Changeset 9ace5d2 for app/src/dgp/dgc
- Timestamp:
- 12/11/08 22:20:14 (16 years ago)
- Branches:
- master, help
- Children:
- 2d89d4b
- Parents:
- 91ed676
- git-author:
- obrebski <obrebski@…> (12/11/08 22:20:14)
- git-committer:
- obrebski <obrebski@…> (12/11/08 22:20:14)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
app/src/dgp/dgc
r3748bd1 r9ace5d2 98 98 my $nreq=0; 99 99 my $nlink=0; 100 my $nflag=0; 100 101 101 102 my %cats; … … 113 114 open(OUTPUT, ">$outputfile") or die("Can't open output file: $outputfile!"); 114 115 } 115 116 116 117 117 … … 192 192 } 193 193 } 194 } 195 elsif(/^FLAG\s+\S+$/) 196 { 197 ++$nflag; 198 print OUTPUT "$_\n" 194 199 } 195 200 elsif(/^$/) { … … 249 254 printf STDERR "%6d RIGHT statements\n", $nright; 250 255 printf STDERR "%6d LINK statements\n", $nlink; 256 printf STDERR "%6d FLAG statements\n", $nflag; 251 257 252 258
Note: See TracChangeset
for help on using the changeset viewer.