1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#! /usr/bin/env perl
##
## Copyright (C) by Argonne National Laboratory
## See COPYRIGHT in top-level directory
##
require "./maint/parse.sub";
$debug = 1;
while (<>) {
print "Input line $_" if $debug;
$remainder = StripComments( STDIN, $_ );
$remainder =~ s/[\r]*\n//;
while ($remainder ne "") {
($leader, $bal,$remainder) = &GetBalancedParen( STDIN, $remainder );
print "Leader is $leader\n";
print "Paren string is $bal\n";
print "Remainder is $remainder\n";
if ($bal ne "") {
($leader, $remainder, @args) = &GetSubArgs( STDIN, $bal );
print "Number of args is 1+$#args\n" if $debug;
foreach $arg (@args) {
print "arg $arg\n";
}
print "Remainder is $remainder\n";
}
}
}
|
