Subversion Repositories DevTools

Rev

Rev 335 | Rev 5709 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 335 Rev 4728
Line 14... Line 14...
14
#
14
#
15
#       Prt         Print a raw line
15
#       Prt         Print a raw line
16
#
16
#
17
#       PrtLn       Print a raw line and a new line
17
#       PrtLn       Print a raw line and a new line
18
#
18
#
-
 
19
#       PrtPart     Print a raw line that will be extended. Contains continuation charaters and a new line
-
 
20
#
19
#       Newline     Print a single new line
21
#       Newline     Print a single new line
20
#
22
#
21
#       Tag         Tagged line print.
23
#       Tag         Tagged line print.
22
#
24
#
23
#       Cmd         Command line print, tagged with meta quoted and terminates.
25
#       Cmd         Command line print, tagged with meta quoted and terminates.
Line 80... Line 82...
80
{
82
{
81
    my ($self) = shift;
83
    my ($self) = shift;
82
    ::MakePrint ("@_\n");
84
    ::MakePrint ("@_\n");
83
}
85
}
84
 
86
 
-
 
87
sub PrtPart
-
 
88
{
-
 
89
    my ($self) = shift;
-
 
90
    ::MakePrint ("@_ \\\n");
-
 
91
}
-
 
92
 
85
sub Entry
93
sub Entry
86
{
94
{
87
    my ($self) = shift;
95
    my ($self) = shift;
88
    ::MakeEntry( @_ );
96
    ::MakeEntry( @_ );
89
}
97
}