Lines Matching refs:self
61 my ($self) = @_;
62 return $self->line;
66 my ($self, $value) = @_;
67 $self->line($value);
72 my ($self) = @_;
73 return $self->char_position_in_line;
77 my ($self, $value) = @_;
78 $self->char_position_in_line($value);
83 my ($self) = @_;
85 $self->p(0);
86 $self->line(1);
87 $self->char_position_in_line(0);
88 $self->mark_depth(0);
93 my ($self) = @_;
95 if ($self->p < length $self->input) {
96 $self->char_position_in_line($self->char_position_in_line + 1);
97 if (substr($self->input, $self->p, 1) eq "\n") {
98 $self->line($self->line + 1);
99 $self->char_position_in_line(0);
101 $self->p($self->p + 1);
107 my ($self, $i) = @_;
115 if ($self->p + $i - 1 < 0) {
116 return $self->EOF;
120 if ($self->p + $i - 1 >= length $self->input) {
121 return $self->EOF;
124 return substr $self->input, $self->p + $i - 1, 1;
128 my ($self, $i) = @_;
130 return $self->LA($i);
134 my ($self) = @_;
136 return $self->p;
140 my ($self) = @_;
142 return length $self->input;
146 my ($self) = @_;
148 $self->mark_depth($self->mark_depth + 1);
150 if ($self->mark_depth >= @{$self->markers}) {
152 push @{$self->markers}, $state;
154 $state = $self->markers->[$self->mark_depth];
157 $state->set_p($self->p);
158 $state->set_line($self->line);
159 $state->set_char_position_in_line($self->char_position_in_line);
160 $self->last_marker($self->mark_depth);
162 return $self->mark_depth;
166 my $self = shift;
169 $m = $self->last_marker;
174 my $state = $self->markers->[$m];
176 $self->seek($state->get_p);
177 $self->line($state->get_line);
178 $self->char_position_in_line($state->get_char_position_in_line);
179 $self->release($m);
184 my ($self, $marker) = @_;
187 $self->mark_depth($marker);
189 $self->mark_depth($self->mark_depth - 1);
196 my ($self, $index) = @_;
198 if ($index <= $self->p) {
200 $self->p($index);
205 while ($self->p < $index) {
206 $self->consume();
212 my ($self, $start, $stop) = @_;
214 return substr $self->input, $start, $stop - $start + 1;
218 my ($self) = @_;
219 return $self->name;