- Timestamp:
- 04/01/08 21:15:47 (17 years ago)
- Branches:
- master, help
- Children:
- 8abee07
- Parents:
- 2fe08ac
- git-author:
- obrebski <obrebski@…> (04/01/08 21:15:47)
- git-committer:
- obrebski <obrebski@…> (04/01/08 21:15:47)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
app/src/ser/ser
r389de9a re2bde98 97 97 } 98 98 99 99 100 die("$0: no pattern given.\n") unless $pattern; 100 101 … … 155 156 (undef, my $tmpfile_x) = File::Temp::tempfile(); 156 157 158 # w tych `` nie dziala 159 #`m4 "--define=PATTERN=$flexpattern" "--define=DEFAULTACTION=$defaultaction" $flextemplate > $tmpfile_l`; 157 160 158 `m4 "--define=PATTERN=$flexpattern" "--define=DEFAULTACTION=$defaultaction" $flextemplate > $tmpfile_l`;161 system "m4 \"--define=PATTERN=$flexpattern\" \"--define=DEFAULTACTION=$defaultaction\" $flextemplate > $tmpfile_l"; 159 162 160 163 if($flex) 161 164 { 162 if(open(FLEX, $tmpfile_l)) { 163 while(<FLEX>) { 164 print @_; 165 } 166 close FLEX; 167 } 168 else { 169 print "Unable to open file $tmpfile_l\n"; 170 } 171 exit 0; 165 # w tych `` nie dziala 166 system "cat $tmpfile_l"; 167 # if(open(FLEX, $tmpfile_l)) { 168 # while(<FLEX>) { 169 # print @_; 170 # } 171 # close FLEX; 172 # } 173 # else { 174 # print "Unable to open file $tmpfile_l\n"; 175 # } 176 exit(0); 172 177 } 173 178 174 179 `flex -o$tmpfile_c $tmpfile_l`; 175 180 `cc -O3 -o $tmpfile_x $tmpfile_c -lfl`; 176 `$tmpfile_x`; 181 #`$tmpfile_x`; 182 183 system "$tmpfile_x"; 177 184 178 185 unlink $tmpfile_l;
Note: See TracChangeset
for help on using the changeset viewer.