# HG changeset patch # User oheimb # Date 878741378 -3600 # Node ID e87fa74113aa4c4efb8adf7ec8f5ceb3d4317e42 # Parent 26ebb89cc1d7b3df5ae27ecfff6caec439a72dfd abandoned generation of tmp files diff -r 26ebb89cc1d7 -r e87fa74113aa src/Tools/8bit/perl/generators/gen-isa2latex.pl --- a/src/Tools/8bit/perl/generators/gen-isa2latex.pl Wed Nov 05 15:48:24 1997 +0100 +++ b/src/Tools/8bit/perl/generators/gen-isa2latex.pl Wed Nov 05 15:49:38 1997 +0100 @@ -85,8 +85,10 @@ die "\nCONV_SOURCE_DIR is not a directory\n";} if (! (-r $conv_source_dir)){ - die "\nno read permission for directory CONV_SOURCE_DIR \n";} + die "\nno read permission for directory CONV_SOURCE_DIR\n";} +if (!(-w $conv_source_dir)){ + die "no write permission for directory CONV_SOURCE_DIR\n";} #if ($install_source && !(-w $conv_source_dir)){ # die "\noption -s used but no write permission for directory CONV_SOURCE_DIR\n";} @@ -353,8 +355,8 @@ open(INFILE ,$filename) || die "can't open $filename in CONV_SOURCE_DIR: $!\n"; print "opened $filename for reading\n" if $do_ddebug; -open(OUTFILE,">tmp.txt") || die "can't open temporary file tmp.txt: $!\n"; -print "opened tmp.txt for writing\n" if $do_ddebug; +open(OUTFILE,">/tmp/tmp.txt") || die "can't open temporary file /tmp/tmp.txt: $!\n"; +print "opened /tmp/tmp.txt for writing\n" if $do_ddebug; $found = &replicate_until('^\s*\/\*\s*BEGIN\s*gen-isa2late(x)','BEGIN gen-isa2latex'); if ($found eq "") { @@ -378,10 +380,10 @@ close(INFILE); close(OUTFILE); -print "closed $filename and tmp.txt\n" if $do_ddebug; +print "closed $filename and /tmp/tmp.txt\n" if $do_ddebug; -$status = system("cp tmp.txt $filename") ; -if ($status) { die "can't copy tmp.txt to $filename: $!\n";} +$status = system("cp /tmp/tmp.txt $filename") ; +if ($status) { die "can't copy /tmp/tmp.txt to $filename: $!\n";} ######################## # configure conv-tables.h @@ -393,8 +395,8 @@ open(INFILE ,$filename) || die "can't open $filename in CONV_SOURCE_DIR: $!\n"; print "opened $filename for reading\n" if $do_ddebug; -open(OUTFILE,">tmp.txt") || die "can't open temporary file tmp.txt: $!\n"; -print "opened tmp.txt for writing\n" if $do_ddebug; +open(OUTFILE,">/tmp/tmp.txt") || die "can't open temporary file /tmp/tmp.txt: $!\n"; +print "opened /tmp/tmp.txt for writing\n" if $do_ddebug; ### LOW TABLE $found = &replicate_until('^\s*\/\*\s*BEGIN_OF_LOW_TABL(E)','BEGIN_OF_LOW_TABLE'); @@ -475,10 +477,10 @@ close(INFILE); close(OUTFILE); -print "closed $filename and tmp.txt\n" if $do_ddebug; +print "closed $filename and /tmp/tmp.txt\n" if $do_ddebug; -$status = system("cp tmp.txt $filename") ; -if ($status) { die "can't copy tmp.txt to $filename: $!\n";} +$status = system("cp /tmp/tmp.txt $filename") ; +if ($status) { die "can't copy /tmp/tmp.txt to $filename: $!\n";} ######################## # configure conv-lex.x @@ -490,8 +492,8 @@ open(INFILE ,$filename) || die "can't open $filename in CONV_SOURCE_DIR: $!\n"; print "opened $filename for reading\n" if $do_ddebug; -open(OUTFILE,">tmp.txt") || die "can't open temporary file tmp.txt: $!\n"; -print "opened tmp.txt for writing\n" if $do_ddebug; +open(OUTFILE,">/tmp/tmp.txt") || die "can't open temporary file /tmp/tmp.txt: $!\n"; +print "opened /tmp/tmp.txt for writing\n" if $do_ddebug; ### HI TABLE @@ -539,10 +541,10 @@ close(INFILE); close(OUTFILE); -print "closed $filename and tmp.txt\n" if $do_ddebug; +print "closed $filename and /tmp/tmp.txt\n" if $do_ddebug; -$status = system("cp tmp.txt $filename") ; -if ($status) { die "can't copy tmp.txt to $filename: $!\n";} +$status = system("cp /tmp/tmp.txt $filename") ; +if ($status) { die "can't copy /tmp/tmp.txt to $filename: $!\n";} ######################## # execute Makefile