From fd3a982e26813f5bcc82c7e89ce6fa2ad44432bf Mon Sep 17 00:00:00 2001 From: tpearson Date: Fri, 7 Jan 2011 04:10:07 +0000 Subject: Revert automated changes Sorry guys, they are just not ready for prime time Work will continue as always git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdebase@1212480 283d02a7-25f6-0310-bc7c-ecb5cbfe19da --- konsole/doc/VT100/genTC.pl | 42 +++++++++++++++++++++--------------------- 1 file changed, 21 insertions(+), 21 deletions(-) (limited to 'konsole/doc/VT100/genTC.pl') 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 "\n"; print "\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 "$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 "

$Fld[0] codes

\n"; } $curr = $Fld[0]; - tqlayout2($name,$t->{"$name.head"},$p); + layout2($name,$t->{"$name.head"},$p); } print "\n"; } @@ -346,29 +346,29 @@ sortTest($t); secthead("Host to Terminal (Instructions by Group)"); htmlsect("Operations"); print "\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 "
\n"; # ------------------------------- secthead("Terminal to Host"); print "\n"; -tqlayoutTable("Replies",$t,"Reply"); -tqlayoutTable("Events",$t,"Event"); +layoutTable("Replies",$t,"Reply"); +layoutTable("Events",$t,"Event"); # ------------------------------- print "
\n"; secthead("Modes"); print "\n"; -tqlayoutTable("Modes",$t,"Mode"); +layoutTable("Modes",$t,"Mode"); #print "

Other Codes

\n"; print "
\n"; # ------------------------------- @@ -385,7 +385,7 @@ foreach $p (sort keys %$t) # print "\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"}:"", -- cgit v1.2.1