msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

remove the transfer modules. We don't need anything special, a transfer module is module without concrete syntax

Browse Source
This commit is contained in:
krasimir
2009-09-17 14:32:20 +00:00
parent 347e5db212
commit 45bfba4103
8 changed files with 5 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/GF/Grammar/Parser.y
View File

@@ -91,7 +91,6 @@ import GF.Compile.Update (buildAnyTree)
'resource' { T_resource }
'strs' { T_strs }
'table' { T_table }
'transfer' { T_transfer }
'variants' { T_variants }
'where' { T_where }
'with' { T_with }
@@ -143,7 +142,6 @@ ModType
| 'interface' Ident { (MTInterface, $2) }
| 'concrete' Ident 'of' Ident { (MTConcrete $4, $2) }
| 'instance' Ident 'of' Ident { (MTInstance $4, $2) }
| 'transfer' Ident ':' Open '->' Open { (MTTransfer $4 $6,$2) }
ModHeaderBody :: { ( [(Ident,MInclude Ident)]
, Maybe (Ident,MInclude Ident,[(Ident,Ident)])
@@ -701,11 +699,6 @@ checkInfoType (MTInstance _) (id,pos,info) =
ResValue _ -> return ()
ResOper _ _ -> return ()
_ -> failLoc (fst pos) "illegal definition in instance module"
checkInfoType (MTTransfer _ _) (id,pos,info) =
case info of
AbsCat _ _ -> return ()
AbsFun _ _ _ -> return ()
_ -> failLoc (fst pos) "illegal definition in transfer module"
mkAlts cs = case cs of