cvs commit: parrot make_op_header.pl

[simon]

simon       01/09/03 09:38:30

  Modified:    .        make_op_header.pl
  Log:
  Spit out the whole of op.h, not just the bit in the middle.
  
  Revision  Changes    Path
  1.2       +18 -1     parrot/make_op_header.pl
  
  Index: make_op_header.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/make_op_header.pl,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- make_op_header.pl 2001/08/29 12:07:02     1.1
  +++ make_op_header.pl 2001/09/03 16:38:29     1.2
  @@ -3,9 +3,26 @@
   # rip through opcode_table and spit out a chunk of C header for the
   # functions in it
   while (<>) {
  -    next if /^\s*#/;
  +    next if /^\s*#/ or /^\s*$/;
       chomp;
       (undef, $name, undef) = split /\t/, $_;
       print "IV *$name(IV *, struct Perl_Interp *);\n";
   }
   
  +BEGIN {
  +    print q{/* op.h
  + *
  + * Opcode header
  + *
  + */
  +
  +#if !defined(PARROT_OP_H_GUARD)
  +#define PARROT_OP_H_GUARD
  +
  +typedef IV OP;
  +
  +#define DEFAULT_OPCODE_TABLE NULL
  +}
  +}
  +
  +END { print "\n#endif\n"; }