Ticket #836: ops_format_update.patch
File ops_format_update.patch, 6.1 KB (added by cotto, 13 years ago) |
---|
-
src/ops/cmp.ops
3 3 ** cmp.ops 4 4 */ 5 5 6 VERSION = PARROT_VERSION;7 8 6 =head1 NAME 9 7 10 8 cmp.ops - Comparison Opcodes -
src/ops/pmc.ops
6 6 7 7 */ 8 8 9 VERSION = PARROT_VERSION;10 11 9 =head1 NAME 12 10 13 11 pmc.ops - PMC Opcodes -
src/ops/debug.ops
7 7 ** debug.ops 8 8 */ 9 9 10 VERSION = PARROT_VERSION;11 12 10 =head1 NAME 13 11 14 12 debug.ops - Debugging Opcodes -
src/ops/var.ops
3 3 ** var.ops 4 4 */ 5 5 6 VERSION = PARROT_VERSION;7 8 6 =head1 NAME 9 7 10 8 var.ops - Variable Opcodes -
src/ops/core.ops
3 3 ** core.ops 4 4 */ 5 5 6 BEGIN_OPS_PREAMBLE 7 6 8 #include "parrot/dynext.h" 7 9 #include "parrot/embed.h" 8 10 #include "parrot/runcore_api.h" 9 11 #include "../pmc/pmc_continuation.h" 10 12 #include "../pmc/pmc_parrotlibrary.h" 11 13 12 VERSION = PARROT_VERSION; 14 END_OPS_PREAMBLE 13 15 14 16 =head1 NAME 15 17 -
src/ops/math.ops
3 3 ** math.ops 4 4 */ 5 5 6 VERSION = PARROT_VERSION;7 8 6 =head1 NAME 9 7 10 8 math.ops - Mathematical Opcodes -
src/ops/set.ops
3 3 ** set.ops 4 4 */ 5 5 6 VERSION = PARROT_VERSION;7 8 6 =head1 NAME 9 7 10 8 set.ops - Assignment Opcodes -
src/ops/experimental.ops
3 3 ** experimental.ops 4 4 */ 5 5 6 VERSION = PARROT_VERSION;7 8 6 =head1 NAME 9 7 10 8 experimental.ops - Experimental Opcodes -
src/ops/object.ops
6 6 7 7 */ 8 8 9 10 VERSION = PARROT_VERSION;11 12 9 =head1 NAME 13 10 14 11 object.ops - Class and Object Opcodes -
src/ops/string.ops
3 3 ** string.ops 4 4 */ 5 5 6 VERSION = PARROT_VERSION;7 8 6 =head1 NAME 9 7 10 8 string.ops - String Opcodes -
src/ops/io.ops
4 4 ** io.ops 5 5 */ 6 6 7 VERSION = PARROT_VERSION; 7 BEGIN_OPS_PREAMBLE 8 8 #include "../io/io_private.h" 9 END_OPS_PREAMBLE 9 10 10 11 11 12 =head1 NAME -
src/ops/pic.ops
3 3 ** pic.ops 4 4 */ 5 5 6 BEGIN_OPS_PREAMBLE 6 7 #include "parrot/oplib/ops.h" 7 8 #include "../src/pmc/pmc_fixedintegerarray.h" 8 9 9 10 typedef opcode_t* (*interface_f)(Interp*, INTVAL*, void **); 11 END_OPS_PREAMBLE 10 12 11 VERSION = PARROT_VERSION;12 13 13 =head1 NAME 14 14 15 15 pic.ops - PIC (Polymorphic Inline Cache) Opcodes [deprecated] -
src/ops/sys.ops
3 3 ** sys.ops 4 4 */ 5 5 6 VERSION = PARROT_VERSION;7 8 6 =head1 NAME 9 7 10 8 sys.ops - System Interaction Opcodes -
src/ops/bit.ops
3 3 ** bit.ops 4 4 */ 5 5 6 BEGIN_OPS_PREAMBLE 6 7 /* Signed shift operator that is compatible with PMC shifts. This is 7 8 * guaranteed to produce the same result as bitwise_left_shift_internal modulo 8 9 * word size, ignoring the fact that Parrot integers are always signed. This … … 18 19 : (bits) > -8*INTVAL_SIZE ? (number) >> -(bits) \ 19 20 : 0) 20 21 21 VERSION = PARROT_VERSION; 22 END_OPS_PREAMBLE 22 23 23 24 =head1 NAME 24 25 -
lib/Parrot/OpsFile.pm
239 239 240 240 open my $OPS, '<', $file or die "Can't open $file, $!/$^E"; 241 241 242 $self->version( $PConfig{VERSION} ); 243 242 244 if ( !( $file =~ s/\.ops$/.c/ ) ) { 243 245 $file .= ".c"; 244 246 } … … 257 259 my @argdirs; 258 260 my $seen_pod; 259 261 my $seen_op; 262 my $in_preamble; 260 263 my $line; 261 264 my $flags; 262 265 my @labels; 263 266 264 267 while (<$OPS>) { 265 $seen_pod = 1 if m|^=|; 268 $seen_pod = 1 if m|^=|; 269 $in_preamble = 1 if s|^BEGIN_OPS_PREAMBLE||; 266 270 267 271 unless ( $seen_op or m|^(inline\s+)?op\s+| ) { 268 if (m/^\s*VERSION\s*=\s*"(\d+\.\d+\.\d+)"\s*;\s*$/)269 {270 if ( exists $self->{VERSION} ) {271 272 272 #die "VERSION MULTIPLY DEFINED!"; 273 } 274 275 $self->version($1); 273 if (m|^END_OPS_PREAMBLE|) { 276 274 $_ = ''; 275 $in_preamble = 0; 277 276 } 278 elsif (m/^\s*VERSION\s*=\s*PARROT_VERSION\s*;\s*$/) { 279 if ( exists $self->{VERSION} ) { 280 281 #die "VERSION MULTIPLY DEFINED!"; 282 } 283 284 $self->version( $PConfig{VERSION} ); 285 $_ = ''; 277 elsif ($in_preamble) { 278 $self->{PREAMBLE} .= $_; 286 279 } 287 280 288 $self->{PREAMBLE} .= $_289 unless $seen_pod or $count; # Lines up to first op def.290 291 281 next; 292 282 } 293 283