File: parsetest

package info (click to toggle)
mpich2 1.2.1.1-5
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 73,904 kB
  • ctags: 65,947
  • sloc: ansic: 343,583; makefile: 55,174; java: 34,959; sh: 27,558; perl: 17,355; cpp: 10,472; python: 9,649; f90: 5,753; fortran: 5,128; cs: 4,019; csh: 152; xml: 91; php: 8
file content (24 lines) | stat: -rwxr-xr-x 633 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#! /usr/bin/env perl
#
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";
	}
    }
}