diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2001-10-17 05:10:53 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-18 12:17:16 +0000 |
| commit | bb6f4497de510b4ef8ece50af67246912d14fb8e (patch) | |
| tree | 6f7e45279f9b70493fc324eee0140ec7233f16bf /opcode.pl | |
| parent | fd7b6849d7cf47f2fe101ad9761adae57a573493 (diff) | |
| download | perl-bb6f4497de510b4ef8ece50af67246912d14fb8e.tar.gz | |
try#2: [proposed PATCH Perl@12401] ieee floats, rand() & old systems
Message-Id: <011017090944.15ad2e@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@12491
Diffstat (limited to 'opcode.pl')
| -rwxr-xr-x | opcode.pl | 21 |
1 files changed, 13 insertions, 8 deletions
@@ -1,7 +1,9 @@ #!/usr/bin/perl -open(OC, ">opcode.h.new") || die "Can't create opcode.h.new: $!\n"; -open(ON, ">opnames.h.new") || die "Can't create opnames.h.new: $!\n"; +$opcode_new = 'opcode.h-new'; +$opname_new = 'opnames.h-new'; +open(OC, ">$opcode_new") || die "Can't create $opcode_new: $!\n"; +open(ON, ">$opname_new") || die "Can't create $opname_new: $!\n"; select OC; # Read data. @@ -262,11 +264,14 @@ close ON or die "Error closing opnames.h: $!"; chmod 0600, 'opcode.h'; # required by dosish filesystems chmod 0600, 'opnames.h'; # required by dosish filesystems -rename 'opcode.h.new', 'opcode.h' or die "renaming opcode.h: $!\n"; -rename 'opnames.h.new', 'opnames.h' or die "renaming opnames.h: $!\n"; +rename $opcode_new, 'opcode.h' or die "renaming opcode.h: $!\n"; +rename $opname_new, 'opnames.h' or die "renaming opnames.h: $!\n"; -open PP, '>pp_proto.h.new' or die "Error creating pp_proto.h.new: $!"; -open PPSYM, '>pp.sym.new' or die "Error creating pp.sym.new: $!"; +$pp_proto_new = 'pp_proto.h-new'; +$pp_sym_new = 'pp.sym-new'; + +open PP, ">$pp_proto_new" or die "Error creating $pp_proto_new: $!"; +open PPSYM, ">$pp_sym_new" or die "Error creating $pp_sym_new: $!"; print PP <<"END"; /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!! @@ -307,8 +312,8 @@ close PPSYM or die "Error closing pp.sym: $!"; chmod 0600, 'pp_proto.h'; # required by dosish filesystems chmod 0600, 'pp.sym'; # required by dosish filesystems -rename 'pp_proto.h.new', 'pp_proto.h' or die "rename pp_proto.h: $!\n"; -rename 'pp.sym.new', 'pp.sym' or die "rename pp.sym: $!\n"; +rename $pp_proto_new, 'pp_proto.h' or die "rename pp_proto.h: $!\n"; +rename $pp_sym_new, 'pp.sym' or die "rename pp.sym: $!\n"; ########################################################################### sub tab { |