Subversion Repositories DevTools

Rev

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

Rev 261 Rev 289
Line 63... Line 63...
63 
 
 63 
 
64 
 
 64 
 
65 
sub Prt
 65 
sub Prt
66 
{
 66 
{
67 
    my ($self) = shift;
 67 
    my ($self) = shift;
68 
    ::MakePrint "@_";
 68 
    ::MakePrint ("@_");
69 
}
 69 
}
70 
 
 70 
 
71 
sub PrtLn
 71 
sub PrtLn
72 
{
 72 
{
73 
    my ($self) = shift;
 73 
    my ($self) = shift;
74 
    ::MakePrint "@_\n";
 74 
    ::MakePrint ("@_\n");
75 
}
 75 
}
76 
 
 76 
 
77 
sub Entry
 77 
sub Entry
78 
{
 78 
{
79 
    my ($self) = shift;
 79 
    my ($self) = shift;
Line 82... Line 82...
82 
 
 82 
 
83 
 
 83 
 
84 
sub Newline
 84 
sub Newline
85 
{
 85 
{
86 
    my ($self) = shift;
 86 
    my ($self) = shift;
87 
    ::MakePrint "\n";
 87 
    ::MakePrint ("\n");
88 
}
 88 
}
89 
 
 89 
 
90 
 
 90 
 
91 
sub SetTag
 91 
sub SetTag
92 
{
 92 
{
Line 110... Line 110...
110 
 
 110 
 
111 
 
 111 
 
112 
sub Cmd
 112 
sub Cmd
113 
{
 113 
{
114 
    my ($self) = shift;
 114 
    my ($self) = shift;
115 
    ::MakeQuote "$self->{TAG}\t+=@_$self->{CMDTERM}";
 115 
    ::MakeQuote ("$self->{TAG}\t+=@_$self->{CMDTERM}");
116 
}
 116 
}
117 
 
 117 
 
118 
 
 118 
 
119 
sub Tag
 119 
sub Tag
120 
{
 120 
{
121 
    my ($self) = shift;
 121 
    my ($self) = shift;
122 
    ::MakePrint "$self->{TAG}\t+=@_\n";
 122 
    ::MakePrint ("$self->{TAG}\t+=@_\n");
123 
}
 123 
}
124 
 
 124 
 
125 
 
 125 
 
126 
sub Label
 126 
sub Label
127 
{
 127 
{