diff options
| author | bringert <bringert@cs.chalmers.se> | 2005-11-29 15:48:13 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2005-11-29 15:48:13 +0000 |
| commit | eef20fa404f11fda0b9f73da1a3ee41db3201062 (patch) | |
| tree | f03879bedcf2a7885b092d18581f11a994a008be /src/Transfer/Core/Par.y | |
| parent | 2be80a7e3b4834bd3146ac9d2f27190fd0689d27 (diff) | |
Added meta variables to transfer front-end and core.
Diffstat (limited to 'src/Transfer/Core/Par.y')
| -rw-r--r-- | src/Transfer/Core/Par.y | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Transfer/Core/Par.y b/src/Transfer/Core/Par.y index 23bb44de1..187aec348 100644 --- a/src/Transfer/Core/Par.y +++ b/src/Transfer/Core/Par.y @@ -35,6 +35,7 @@ import Transfer.ErrM L_quoted { PT _ (TL $$) } L_integ { PT _ (TI $$) } +L_TMeta { PT _ (T_TMeta $$) } L_CIdent { PT _ (T_CIdent $$) } L_err { _ } @@ -43,6 +44,7 @@ L_err { _ } String :: { String } : L_quoted { $1 } Integer :: { Integer } : L_integ { (read $1) :: Integer } +TMeta :: { TMeta} : L_TMeta { TMeta ($1)} CIdent :: { CIdent} : L_CIdent { CIdent ($1)} Module :: { Module } @@ -140,6 +142,7 @@ Exp5 : '{' '}' { EEmptyRec } | 'Type' { EType } | String { EStr $1 } | Integer { EInt $1 } + | TMeta { EMeta $1 } | '(' Exp ')' { $2 } |