diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/cli/ledgersmb_cli.pl | 13 | ||||
| -rw-r--r-- | utils/cli/sample.lsmb | 5 |
2 files changed, 15 insertions, 3 deletions
diff --git a/utils/cli/ledgersmb_cli.pl b/utils/cli/ledgersmb_cli.pl index 39d550e7..4bdd0d5f 100644 --- a/utils/cli/ledgersmb_cli.pl +++ b/utils/cli/ledgersmb_cli.pl @@ -134,9 +134,7 @@ sub pop_loop { sub if_handler { my $key = shift; if (!$stackref->{$key}){ - while ($line !~ /^(\s*FI\s*|\s*END\s+IF\s*)$/ ){ - $line = <>; - } + $if_count = 1; } } @@ -155,6 +153,15 @@ sub load_mod { my $scriptparse = new Parse::RecDescent($syntax); while ($line = <>){ + if ($if_count){ + if ($line =~ /^\s*IF\s/){ + ++$if_count; + } + if ($line =~ /^(\s*FI\s*|\s*END\s+IF\s*)$/){ + --$if_count; + } + } + next if ($if_count); $line =~ s/#.*$//; # strip comments $scriptparse->startrule($line); } diff --git a/utils/cli/sample.lsmb b/utils/cli/sample.lsmb index 9e544b4e..24747b26 100644 --- a/utils/cli/sample.lsmb +++ b/utils/cli/sample.lsmb @@ -1,3 +1,4 @@ +# Comments start with a pund sign ENV:PGUSER = postgres # how to set an environment variable login = demo # How to set a form variable password = demo @@ -7,3 +8,7 @@ id = 10139 vc = customer db = customer CALL CT->create_links(user, form) # call a function +IF bcc4 # Conditional IF's can be nested +testing = hi +FI + |