abandoned generation of tmp files
authoroheimb
Wed Nov 05 15:49:38 1997 +0100 (1997-11-05)
changeset 4173e87fa74113aa
parent 4172 26ebb89cc1d7
child 4174 0a3556e5d6ed
abandoned generation of tmp files
src/Tools/8bit/perl/generators/gen-isa2latex.pl
     1.1 --- a/src/Tools/8bit/perl/generators/gen-isa2latex.pl	Wed Nov 05 15:48:24 1997 +0100
     1.2 +++ b/src/Tools/8bit/perl/generators/gen-isa2latex.pl	Wed Nov 05 15:49:38 1997 +0100
     1.3 @@ -85,8 +85,10 @@
     1.4      die "\nCONV_SOURCE_DIR is not a directory\n";}
     1.5  
     1.6  if (! (-r $conv_source_dir)){
     1.7 -    die "\nno read permission for directory CONV_SOURCE_DIR \n";}
     1.8 +    die "\nno read permission for directory CONV_SOURCE_DIR\n";}
     1.9  
    1.10 +if (!(-w $conv_source_dir)){
    1.11 +    die "no write permission for directory CONV_SOURCE_DIR\n";}
    1.12  #if ($install_source && !(-w $conv_source_dir)){
    1.13  #    die "\noption -s used but no write permission for directory CONV_SOURCE_DIR\n";}
    1.14  
    1.15 @@ -353,8 +355,8 @@
    1.16  
    1.17  open(INFILE ,$filename) || die "can't open $filename in CONV_SOURCE_DIR: $!\n";
    1.18  print "opened $filename for reading\n" if $do_ddebug;
    1.19 -open(OUTFILE,">tmp.txt") || die "can't open temporary file tmp.txt: $!\n";
    1.20 -print "opened tmp.txt for writing\n" if $do_ddebug;
    1.21 +open(OUTFILE,">/tmp/tmp.txt") || die "can't open temporary file /tmp/tmp.txt: $!\n";
    1.22 +print "opened /tmp/tmp.txt for writing\n" if $do_ddebug;
    1.23  
    1.24  $found = &replicate_until('^\s*\/\*\s*BEGIN\s*gen-isa2late(x)','BEGIN gen-isa2latex');
    1.25  if ($found eq "") {
    1.26 @@ -378,10 +380,10 @@
    1.27  
    1.28  close(INFILE);
    1.29  close(OUTFILE);
    1.30 -print "closed $filename and tmp.txt\n" if $do_ddebug;
    1.31 +print "closed $filename and /tmp/tmp.txt\n" if $do_ddebug;
    1.32  
    1.33 -$status = system("cp tmp.txt $filename") ;
    1.34 -if ($status) { die "can't copy tmp.txt to $filename: $!\n";}
    1.35 +$status = system("cp /tmp/tmp.txt $filename") ;
    1.36 +if ($status) { die "can't copy /tmp/tmp.txt to $filename: $!\n";}
    1.37  
    1.38  ########################
    1.39  # configure conv-tables.h
    1.40 @@ -393,8 +395,8 @@
    1.41  
    1.42  open(INFILE ,$filename) || die "can't open $filename in CONV_SOURCE_DIR: $!\n";
    1.43  print "opened $filename for reading\n" if $do_ddebug;
    1.44 -open(OUTFILE,">tmp.txt") || die "can't open temporary file tmp.txt: $!\n";
    1.45 -print "opened tmp.txt for writing\n" if $do_ddebug;
    1.46 +open(OUTFILE,">/tmp/tmp.txt") || die "can't open temporary file /tmp/tmp.txt: $!\n";
    1.47 +print "opened /tmp/tmp.txt for writing\n" if $do_ddebug;
    1.48  
    1.49  ### LOW TABLE
    1.50  $found = &replicate_until('^\s*\/\*\s*BEGIN_OF_LOW_TABL(E)','BEGIN_OF_LOW_TABLE');
    1.51 @@ -475,10 +477,10 @@
    1.52  
    1.53  close(INFILE);
    1.54  close(OUTFILE);
    1.55 -print "closed $filename and tmp.txt\n" if $do_ddebug;
    1.56 +print "closed $filename and /tmp/tmp.txt\n" if $do_ddebug;
    1.57  
    1.58 -$status = system("cp tmp.txt $filename") ;
    1.59 -if ($status) { die "can't copy tmp.txt to $filename: $!\n";}
    1.60 +$status = system("cp /tmp/tmp.txt $filename") ;
    1.61 +if ($status) { die "can't copy /tmp/tmp.txt to $filename: $!\n";}
    1.62  
    1.63  ########################
    1.64  # configure conv-lex.x
    1.65 @@ -490,8 +492,8 @@
    1.66  
    1.67  open(INFILE ,$filename) || die "can't open $filename in CONV_SOURCE_DIR: $!\n";
    1.68  print "opened $filename for reading\n" if $do_ddebug;
    1.69 -open(OUTFILE,">tmp.txt") || die "can't open temporary file tmp.txt: $!\n";
    1.70 -print "opened tmp.txt for writing\n" if $do_ddebug;
    1.71 +open(OUTFILE,">/tmp/tmp.txt") || die "can't open temporary file /tmp/tmp.txt: $!\n";
    1.72 +print "opened /tmp/tmp.txt for writing\n" if $do_ddebug;
    1.73  
    1.74  
    1.75  ### HI TABLE
    1.76 @@ -539,10 +541,10 @@
    1.77  
    1.78  close(INFILE);
    1.79  close(OUTFILE);
    1.80 -print "closed $filename and tmp.txt\n" if $do_ddebug;
    1.81 +print "closed $filename and /tmp/tmp.txt\n" if $do_ddebug;
    1.82  
    1.83 -$status = system("cp tmp.txt $filename") ;
    1.84 -if ($status) { die "can't copy tmp.txt to $filename: $!\n";}
    1.85 +$status = system("cp /tmp/tmp.txt $filename") ;
    1.86 +if ($status) { die "can't copy /tmp/tmp.txt to $filename: $!\n";}
    1.87  
    1.88  ########################
    1.89  # execute  Makefile