File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 11# !/usr/local/bin/perl
22# Index of property names.
33# Arnaud Le Hors lehors@w3.org/Ian Jacobs ij@w3.org
4- # $Id: mkpropidx,v 2.1 1998-03-14 23:42:38 ijacobs Exp $
4+ # $Id: mkpropidx,v 2.2 1998-04-13 20:33:22 ijacobs Exp $
55use English;
66
77
@@ -74,12 +74,14 @@ sub cleanup {
7474# Property database entries between "/*" and "*/"
7575
7676sub format_name {
77- $name = cleanup($_ [0]);
78- # print OUTPUT "<td><span class=\"propinst-" . $name . ", xref\">'" . $name . "'<\/span>\n";
79- print OUTPUT " <td><span class=\" propinst-" . $name . " \" >'" . $name . " '<\/ span>\n " ;
77+ print OUTPUT " <td>" ;
78+ foreach $name (split (' ' , $_ [0])) {
79+ $name = cleanup($name );
80+ print STDERR " $name \n " ;
81+ print OUTPUT " <span class=\" propinst-" . $name . " \" >'" . $name . " '<\/ span>\n " ;
82+ }
8083}
8184
82-
8385sub format_val {
8486 # Replace <n> by link to value def of n
8587 # Replace <'m'> by link to property 'm'
Original file line number Diff line number Diff line change 11# !/usr/local/bin/perl
22# Index of property names.
33# Arnaud Le Hors lehors@w3.org/Ian Jacobs ij@w3.org
4- # $Id: mkpropidx,v 2.1 1998-03-14 23:42:38 ijacobs Exp $
4+ # $Id: mkpropidx,v 2.2 1998-04-13 20:33:22 ijacobs Exp $
55use English;
66
77
@@ -74,12 +74,14 @@ sub cleanup {
7474# Property database entries between "/*" and "*/"
7575
7676sub format_name {
77- $name = cleanup($_ [0]);
78- # print OUTPUT "<td><span class=\"propinst-" . $name . ", xref\">'" . $name . "'<\/span>\n";
79- print OUTPUT " <td><span class=\" propinst-" . $name . " \" >'" . $name . " '<\/ span>\n " ;
77+ print OUTPUT " <td>" ;
78+ foreach $name (split (' ' , $_ [0])) {
79+ $name = cleanup($name );
80+ print STDERR " $name \n " ;
81+ print OUTPUT " <span class=\" propinst-" . $name . " \" >'" . $name . " '<\/ span>\n " ;
82+ }
8083}
8184
82-
8385sub format_val {
8486 # Replace <n> by link to value def of n
8587 # Replace <'m'> by link to property 'm'
You can’t perform that action at this time.
0 commit comments