Changeset 389de9a for app/src/ser

Timestamp:

03/20/08 12:08:21 (17 years ago)

Author:

pawelk <pawelk@…>

Branches:

master, help

Children:

c8e8fa8

Parents:

20b4e44

git-author:

pawelk <pawelk@…> (03/20/08 12:08:21)

git-committer:

pawelk <pawelk@…> (03/20/08 12:08:21)

Message:

Program generujacy konfiguracje pyta sie o wybor slownika.
Dolozylem obsluge plikow tymczasowych w compiledict.
Zamienilem system na ` w perlu.

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

File:

• app/src/ser/ser (modified) (2 diffs)

app/src/ser/ser

@@ -156 +156 @@
 
 
-system "m4 \"--define=PATTERN=$flexpattern\" \"--define=DEFAULTACTION=$defaultaction\" $flextemplate > $tmpfile_l";
+`m4 "--define=PATTERN=$flexpattern" "--define=DEFAULTACTION=$defaultaction" $flextemplate > $tmpfile_l`;
 
 if($flex)
 {
-        #system "cat $tmpfile_l";
         if(open(FLEX, $tmpfile_l)) {
                 while(<FLEX>) {
@@ -173 +172 @@
 }
 
-system "flex -o$tmpfile_c $tmpfile_l";
-system "cc -O3 -o $tmpfile_x $tmpfile_c -lfl";
-system "$tmpfile_x";
+`flex -o$tmpfile_c $tmpfile_l`;
+`cc -O3 -o $tmpfile_x $tmpfile_c -lfl`;
+`$tmpfile_x`;
 
-#system "rm -f $tmpfile_l $tmpfile_c $tmpfile_x";
 unlink $tmpfile_l;
 unlink $tmpfile_c;
 unlink $tmpfile_x;
-