diff options
author | 2008-06-22 09:27:29 -0400 | |
---|---|---|
committer | 2008-06-22 09:27:29 -0400 | |
commit | a78e978c05d7d28f31f4407b6918d89d44a5643c (patch) | |
tree | 29f8a7dd372a3fd5fa14b1960e5b3917c6aa1e50 /src/lacweb.grm | |
parent | 79223408d7b3ce19f0463142461d84a1ad09d785 (diff) |
Start of FFI
Diffstat (limited to 'src/lacweb.grm')
-rw-r--r-- | src/lacweb.grm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/lacweb.grm b/src/lacweb.grm index 85a58eb8..17bc31cc 100644 --- a/src/lacweb.grm +++ b/src/lacweb.grm @@ -44,7 +44,7 @@ val s = ErrorMsg.spanOf | TYPE | NAME | ARROW | LARROW | DARROW | FN | PLUSPLUS | DOLLAR - | STRUCTURE | SIGNATURE | STRUCT | SIG | END | FUNCTOR | WHERE + | STRUCTURE | SIGNATURE | STRUCT | SIG | END | FUNCTOR | WHERE | EXTERN %nonterm file of decl list @@ -119,6 +119,7 @@ decl : CON SYMBOL EQ cexp (DCon (SYMBOL, NONE, cexp), s (CONleft, (DStr (CSYMBOL1, NONE, (StrFun (CSYMBOL2, sgn1, SOME sgn2, str), s (FUNCTORleft, strright))), s (FUNCTORleft, strright)) + | EXTERN STRUCTURE CSYMBOL COLON sgn (DFfiStr (CSYMBOL, sgn), s (EXTERNleft, sgnright)) sgn : sgntm (sgntm) | FUNCTOR LPAREN CSYMBOL COLON sgn RPAREN COLON sgn |