File: parsetest

package info (click to toggle)
mpich 3.3-3
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 131,836 kB
  • sloc: ansic: 975,868; cpp: 57,437; f90: 53,762; perl: 19,562; xml: 12,464; sh: 12,303; fortran: 7,875; makefile: 7,078; ruby: 126; java: 100; python: 98; lisp: 19; php: 8; sed: 4
file content (24 lines) | stat: -rwxr-xr-x 635 bytes parent folder | download
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";
	}
    }
}