diff options
author | tpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da> | 2011-01-03 20:16:47 +0000 |
---|---|---|
committer | tpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da> | 2011-01-03 20:16:47 +0000 |
commit | 495d08bc2db58ee7fc4ea55a7158f2f61b82fc56 (patch) | |
tree | daabcb652c07b9a17cad88ca50b63a2d91ead4a3 /konsole/doc/VT100/genTC.pl | |
parent | 50001f1757f97510e80cb1990e2f2d5b00144c2a (diff) | |
download | tdebase-495d08bc2db58ee7fc4ea55a7158f2f61b82fc56.tar.gz tdebase-495d08bc2db58ee7fc4ea55a7158f2f61b82fc56.zip |
Automated conversion for enhanced compatibility with TQt for Qt4 3.4.0 TP1
git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdebase@1211357 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
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 a3a7c5669..bc06a3cb1 100755 --- a/konsole/doc/VT100/genTC.pl +++ b/konsole/doc/VT100/genTC.pl @@ -147,7 +147,7 @@ sub txt2Html return $_; } -sub layout +sub tqlayout { my ($Name, $Head, $Code, $Doku, $Dflt, $Attr) = @_; if ($html) { @@ -234,7 +234,7 @@ print "</table>\n"; print "</h2>\n"; } -sub layout2 +sub tqlayout2 { my ($Name, $Head, $Code) = @_; my @Part = split('\|',$Code); my $Type = $#Part > -1 ? $Part[0] : ""; @@ -261,7 +261,7 @@ sub layout2 print "<td $color1>$Head\n"; } -sub layoutTable +sub tqlayoutTable { 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/) { - layout2( $name, $head, exists $t->{"$name.code"}?$t->{"$name.code"}:""); + tqlayout2( $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]; - layout2($name,$t->{"$name.head"},$p); + tqlayout2($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"; -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"); +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"); print "</table>\n"; # ------------------------------- secthead("Terminal to Host"); print "<table>\n"; -layoutTable("Replies",$t,"Reply"); -layoutTable("Events",$t,"Event"); +tqlayoutTable("Replies",$t,"Reply"); +tqlayoutTable("Events",$t,"Event"); # ------------------------------- print "</table>\n"; secthead("Modes"); print "<table>\n"; -layoutTable("Modes",$t,"Mode"); +tqlayoutTable("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}; - layout( $name, $head, + tqlayout( $name, $head, exists $t->{"$name.code"}?$t->{"$name.code"}:"", exists $t->{"$name.text"}?$t->{"$name.text"}:"", exists $t->{"$name.dflt"}?$t->{"$name.dflt"}:"", |