src/expressions/evaluate.h.pl

   1 do 'generate.pl';
   2
   3 sub generate_output {
   4     print "#include \"helpers.h\"\n\n";
   5
   6     for my $opname (@order) {
   7         my ($op) = $ops{$opname};
   8         next if $op->{UNIMPLEMENTED};
   9
  10         my (@args);
  11         for my $arg (@{$op->{ARGS}}) {
  12             if (!defined $arg->{IDX}) {
  13                 push (@args, c_type ($arg->{TYPE}) . $arg->{NAME});
  14             } else {
  15                 push (@args, c_type ($arg->{TYPE}) . "$arg->{NAME}" . "[]");
  16                 push (@args, "size_t $arg->{IDX}");
  17             }
  18         }
  19         for my $aux (@{$op->{AUX}}) {
  20             push (@args, c_type ($aux->{TYPE}) . $aux->{NAME});
  21         }
  22         push (@args, "void") if !@args;
  23
  24         my ($statements) = $op->{BLOCK} || "  return $op->{EXPRESSION};\n";
  25
  26         print "static inline ", c_type ($op->{RETURNS}), "\n";
  27         print "eval_$opname (", join (', ', @args), ")\n";
  28         print "{\n";
  29         print "$statements";
  30         print "}\n\n";
  31     }
  32 }