diff options
Diffstat (limited to 'konsole/doc/VT100/genTC.pl')
| -rwxr-xr-x | konsole/doc/VT100/genTC.pl | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/konsole/doc/VT100/genTC.pl b/konsole/doc/VT100/genTC.pl index bc06a3cb1..a3a7c5669 100755 --- a/konsole/doc/VT100/genTC.pl +++ b/konsole/doc/VT100/genTC.pl @@ -147,7 +147,7 @@ sub txt2Html return $_; } -sub tqlayout +sub layout { my ($Name, $Head, $Code, $Doku, $Dflt, $Attr) = @_; if ($html) { @@ -234,7 +234,7 @@ print "</table>\n"; print "</h2>\n"; } -sub tqlayout2 +sub layout2 { my ($Name, $Head, $Code) = @_; my @Part = split('\|',$Code); my $Type = $#Part > -1 ? $Part[0] : ""; @@ -261,7 +261,7 @@ sub tqlayout2 print "<td $color1>$Head\n"; } -sub tqlayoutTable +sub layoutTable { my ($Head, $t, $Include) = @_; my $p; @@ -276,7 +276,7 @@ foreach $p (sort keys %$t) my $attr = exists $t->{"$name.sect"}?$t->{"$name.sect"}:""; if ($attr =~ /$Include/) { - tqlayout2( $name, $head, exists $t->{"$name.code"}?$t->{"$name.code"}:""); + layout2( $name, $head, exists $t->{"$name.code"}?$t->{"$name.code"}:""); } } } @@ -311,7 +311,7 @@ sub sortTest print "<tr><td colspan=5><h3>$Fld[0] codes</h3>\n"; } $curr = $Fld[0]; - tqlayout2($name,$t->{"$name.head"},$p); + layout2($name,$t->{"$name.head"},$p); } print "</table>\n"; } @@ -346,29 +346,29 @@ sortTest($t); secthead("Host to Terminal (Instructions by Group)"); htmlsect("Operations"); print "<table>\n"; -tqlayoutTable("Commands (Character Display Operation)",$t,"Command\.Display"); -tqlayoutTable("Commands (Rendition related status)",$t,"Command\.RenderMode"); -tqlayoutTable("Commands (Cursor)",$t,"Command\.Cursor"); -tqlayoutTable("Commands (Cursor related status)",$t,"Command\.CursMode"); -tqlayoutTable("Commands (Edit)",$t,"Command\.Erase|Command\.Insert|Command.\Delete"); -tqlayoutTable("Commands (Miscellaneous)",$t,"Command[^.]|Command\$"); -tqlayoutTable("Commands (General mode setting)",$t,"Command\.SetMode"); -tqlayoutTable("Commands (Miscellaneous status)",$t,"Command\.Mode"); -tqlayoutTable("Commands (VT52)",$t,"Command\.VT52"); -tqlayoutTable("Commands (Not implemented)",$t,"Command\.NoImp"); -tqlayoutTable("Commands (Ignored)",$t,"Command\.Ignored"); -tqlayoutTable("Commands (Requests)",$t,"Command\.Request"); +layoutTable("Commands (Character Display Operation)",$t,"Command\.Display"); +layoutTable("Commands (Rendition related status)",$t,"Command\.RenderMode"); +layoutTable("Commands (Cursor)",$t,"Command\.Cursor"); +layoutTable("Commands (Cursor related status)",$t,"Command\.CursMode"); +layoutTable("Commands (Edit)",$t,"Command\.Erase|Command\.Insert|Command.\Delete"); +layoutTable("Commands (Miscellaneous)",$t,"Command[^.]|Command\$"); +layoutTable("Commands (General mode setting)",$t,"Command\.SetMode"); +layoutTable("Commands (Miscellaneous status)",$t,"Command\.Mode"); +layoutTable("Commands (VT52)",$t,"Command\.VT52"); +layoutTable("Commands (Not implemented)",$t,"Command\.NoImp"); +layoutTable("Commands (Ignored)",$t,"Command\.Ignored"); +layoutTable("Commands (Requests)",$t,"Command\.Request"); print "</table>\n"; # ------------------------------- secthead("Terminal to Host"); print "<table>\n"; -tqlayoutTable("Replies",$t,"Reply"); -tqlayoutTable("Events",$t,"Event"); +layoutTable("Replies",$t,"Reply"); +layoutTable("Events",$t,"Event"); # ------------------------------- print "</table>\n"; secthead("Modes"); print "<table>\n"; -tqlayoutTable("Modes",$t,"Mode"); +layoutTable("Modes",$t,"Mode"); #print "<h3>Other Codes</h3>\n"; print "</table>\n"; # ------------------------------- @@ -385,7 +385,7 @@ foreach $p (sort keys %$t) # print "</table>\n" if ($table); my $name = $Fld[0]; my $head = $t->{$p}; - tqlayout( $name, $head, + layout( $name, $head, exists $t->{"$name.code"}?$t->{"$name.code"}:"", exists $t->{"$name.text"}?$t->{"$name.text"}:"", exists $t->{"$name.dflt"}?$t->{"$name.dflt"}:"", |