Changeset e2bde98 for app


Ignore:
Timestamp:
04/01/08 21:15:47 (17 years ago)
Author:
obrebski <obrebski@…>
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)
Message:

Napawiony ser - musialem przerobic z powrotem te na system w dwoch liniach.
(Wyglada na to, ze program uruchomiony w tych nie ma lacznosci z konsola)

git-svn-id: svn://atos.wmid.amu.edu.pl/utt@20 e293616e-ec6a-49c2-aa92-f4a8b91c5d16

File:
1 edited

Legend:

Unmodified
Added
Removed
  • app/src/ser/ser

    r389de9a re2bde98  
    9797} 
    9898 
     99 
    99100die("$0: no pattern given.\n") unless $pattern; 
    100101 
     
    155156(undef, my $tmpfile_x) = File::Temp::tempfile(); 
    156157 
     158# w tych `` nie dziala 
     159#`m4 "--define=PATTERN=$flexpattern" "--define=DEFAULTACTION=$defaultaction" $flextemplate > $tmpfile_l`; 
    157160 
    158 `m4 "--define=PATTERN=$flexpattern" "--define=DEFAULTACTION=$defaultaction" $flextemplate > $tmpfile_l`; 
     161system "m4 \"--define=PATTERN=$flexpattern\" \"--define=DEFAULTACTION=$defaultaction\" $flextemplate > $tmpfile_l"; 
    159162 
    160163if($flex) 
    161164{ 
    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); 
    172177} 
    173178 
    174179`flex -o$tmpfile_c $tmpfile_l`; 
    175180`cc -O3 -o $tmpfile_x $tmpfile_c -lfl`; 
    176 `$tmpfile_x`; 
     181#`$tmpfile_x`; 
     182 
     183system "$tmpfile_x"; 
    177184 
    178185unlink $tmpfile_l; 
Note: See TracChangeset for help on using the changeset viewer.