Beta Shell
v2.0 · web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
share
/
perl5
/
vendor_perl
/
Pegex
/
Parser
Upload
3 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
Indent.pm
911 B
-rw-r--r--
2020-02-13 20:00:53
Edit
Del
Editing: Indent.pm
(911 B)
Path: /usr/share/perl5/vendor_perl/Pegex/Parser/Indent.pm
Back
package Pegex::Parser::Indent; # The indentation levels of consecutive lines are used to generate INDENT and # DEDENT tokens, using a stack, as follows. Before the first line of the file # is read, a single zero is pushed on the stack; this will never be popped off # again. The numbers pushed on the stack will always be strictly increasing # from bottom to top. At the beginning of each logical line, the line’s # indentation level is compared to the top of the stack. If it is equal, # nothing happens. If it is larger, it is pushed on the stack, and one INDENT # token is generated. If it is smaller, it must be one of the numbers # occurring on the stack; all numbers on the stack that are larger are popped # off, and for each number popped off a DEDENT token is generated. At the end # of the file, a DEDENT token is generated for each number remaining on the # stack that is larger than zero. '' 1;