languages/ecmascript/js.pir

   1 =head1 NAME
   2
   3 js -- A compiler for js ECMAScript-262
   4
   5 =head1 SYNOPSIS
   6
   7   $ ./parrot languages/emcascript/js.pir script.js
   8
   9 =head1 DESCRIPTION
  10
  11 js is a compiler for ECMAScript-262 (3rd edition) running on Parrot.
  12
  13 =cut
  14
  15
  16 #.include 'src/gen_builtins.pir'
  17
  18 ## Create a 'List' class; stolen from Rakudo.
  19 ## At some point, this should be refactored/reused.
  20 ##
  21 .namespace []
  22
  23 .sub '__onload' :load :init
  24     $P0 = subclass 'ResizablePMCArray', 'List'
  25 .end
  26
  27 ## Methods for the List class
  28 ##
  29 .namespace ['List']
  30
  31 .sub 'elems' :method
  32     $I0 = elements self
  33     .return ($I0)
  34 .end
  35
  36 .sub 'unshift' :method
  37     .param pmc x
  38     unshift self, x
  39 .end
  40
  41 .sub 'shift' :method
  42     .local pmc x
  43     x = shift self
  44     .return (x)
  45 .end
  46
  47
  48
  49
  50 .namespace ['JS::Compiler']
  51
  52 .loadlib 'js_group'
  53
  54 .sub 'onload' :load :init :anon
  55     load_bytecode 'PCT.pbc'
  56     load_bytecode 'Protoobject.pbc'
  57
  58     $P0 = get_hll_global 'Protomaker'
  59     $P1 = get_class ['PCT::HLLCompiler']
  60     $P0.'new_subclass'($P1, 'JS::Compiler')
  61
  62     ## Create a list called '@?BLOCK' and store it, so it can
  63     ## be used in the parse actions.
  64     ##
  65     $P0 = new 'List'
  66     set_hll_global ['JS';'Grammar';'Actions'], '@?BLOCK', $P0
  67 .end
  68
  69
  70 .sub 'init' :vtable :method
  71     self.'language'('JS')
  72     self.'parsegrammar'('JS::Grammar')
  73     self.'parseactions'('JS::Grammar::Actions')
  74 .end
  75
  76
  77 .sub 'main' :main
  78     .param pmc args
  79     $P0 = compreg 'JS'
  80     $P1 = $P0.'command_line'(args)
  81 .end
  82
  83
  84 .include 'src/gen_grammar.pir'
  85 .include 'src/gen_actions.pir'
  86
  87
  88 .namespace []
  89
  90 .include 'src/builtin/builtins.pir'
  91
  92
  93 # Local Variables:
  94 #   mode: pir
  95 #   fill-column: 100
  96 # End:
  97 # vim: expandtab shiftwidth=4 ft=pir: