src/edu/berkeley/fleet/assembler/fleet.g

   1 // The FLEET Assembly Language Grammar
   2 // Updated 05-Nov-2006
   3
   4 // Note that this is the *entire, complete* formal specification of
   5 // the grammar.  An equivalent lex+yacc grammar and support code would
   6 // be several times as long.
   7
   8 Comment        = "//" ~[\n\r]* [\r\n]!
   9                | "/*" ~[\n\r]* "*/"
  10 ws             = ([\r\n ] | Comment)* -> ~[\r\n ]
  11
  12 s               = ws! Program ws!
  13 Program         = Program:: Directive+/ws
  14                 | Program:: (Directive+/ws) ws! CodeBagBody
  15
  16 Statement       = Fiber::                  Source  ":" (Instruction +/ ws)     /ws
  17                 | Literal::                int     ":" "sendto" Port       ";" /ws
  18                 | ShipSpecificLiteral::    SSL     ":" "sendto" Port       ";" /ws
  19                 | CodeBagDescriptor::      CodeBag ":" "sendto" Port       ";" /ws
  20                 | NamedCodeBag::           name    ":" "{" CodeBagBody "}"     /ws
  21
  22 CountField      = Brack::     "[" int "]"
  23                 | Paren::     "(" int ")"
  24                 | BrackStar:: "[*]"
  25                 | ParenStar:: "(*)"
  26 Instruction     = Instruction::
  27                         (CountField ws!)?
  28                         (Command +/ (ws! "," ws!) ws! ";"!)
  29 Command         = Nop::      "nop"
  30                 | Kill::     "kill"
  31                 | KillStar:: "kill*"
  32                 | Wait::     "wait"
  33                 | Discard::  "dismiss"
  34                 | Take::     ("take"|"receive")
  35                 | SendTo::   "sendto" ws! Port
  36                 | Deliver::  "deliver"
  37                 | Ack::      "notify" ws! Port
  38
  39 Source         = Port
  40                | ShipSpecific
  41
  42 SSL            = ShipSpecificLiteral:: shiptype "." ShipSpecificLiteral
  43 Port           = Port::     shipname "." portname
  44                | SubPort::  shipname "." portname "." portname
  45                |           ^"()"
  46
  47 CodeBagBody    = Statement +/ ws
  48 CodeBag        = CodeBagRef:: CodeBagName
  49                | AnonymousCodeBag:: "{" CodeBagBody "}" /ws
  50
  51 CodeBagName         = name
  52 shipname            = name
  53 shiptype            = Name:: [A-Z] [A-Za-z0-9\[\]_]**
  54 ShipSpecificLiteral = Name:: [A-Z] [A-Z0-9\[\]_]**
  55 portname            = Name:: [a-z] [A-Za-z0-9\[\]_]**
  56 name                = Name:: [A-Za-z] [A-Za-z0-9\[\]_]**
  57 index               = "[" [0-9]+ "]" | [0-9]+
  58 int                 = [\-0-9]++
  59 ShipSpecific        = ShipSpecific:: "\"" ~[\"]++ "\""
  60
  61 // the following are not part of the official FLEET syntax and are
  62 // specific to Adam's interpreter.
  63
  64 Directive      = Memory::  "#memory" "{" (int +/ (ws! "," ws!)) "}" /ws
  65                | Import::  "#import" [A-Za-z_.]++ /ws
  66                | Include:: "#include" ("\"" (~[\"])+ "\"") /ws
  67                | Ship::    "#ship" shipname ":" [0-9A-Za-z_.]++ /ws
  68                | Expect::  "#expect" int /ws
  69