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 
}