Changeset e2bde98 for app/src/ser

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:

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

app/src/ser/ser

@@ -97 +97 @@
 }
 
+
 die("$0: no pattern given.\n") unless $pattern;
 
@@ -155 +156 @@
 (undef, my $tmpfile_x) = File::Temp::tempfile();
 
+# w tych `` nie dziala
+#`m4 "--define=PATTERN=$flexpattern" "--define=DEFAULTACTION=$defaultaction" $flextemplate > $tmpfile_l`;
 
-`m4 "--define=PATTERN=$flexpattern" "--define=DEFAULTACTION=$defaultaction" $flextemplate > $tmpfile_l`;
+system "m4 \"--define=PATTERN=$flexpattern\" \"--define=DEFAULTACTION=$defaultaction\" $flextemplate > $tmpfile_l";
 
 if($flex)
 {
-        if(open(FLEX, $tmpfile_l)) {
-                while(<FLEX>) {
-                        print @_;
-                }
-                close FLEX;
-        }
-        else {
-                print "Unable to open file $tmpfile_l\n";
-        }
-        exit 0;
+    # w tych `` nie dziala
+    system "cat $tmpfile_l";
+#       if(open(FLEX, $tmpfile_l)) {
+#               while(<FLEX>) {
+#                       print @_;
+#               }
+#               close FLEX;
+#       }
+#       else {
+#               print "Unable to open file $tmpfile_l\n";
+#       }
+    exit(0);
 }
 
 `flex -o$tmpfile_c $tmpfile_l`;
 `cc -O3 -o $tmpfile_x $tmpfile_c -lfl`;
-`$tmpfile_x`;
+#`$tmpfile_x`;
+
+system "$tmpfile_x";
 
 unlink $tmpfile_l;