GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-11 04:02:52 -06:00
Code Issues Packages Projects Releases Wiki Activity

inherent features of Int

Browse Source
This commit is contained in:
aarne
2006-04-04 14:44:46 +00:00
parent c437f63404
commit a42a232c57
5 changed files with 136 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/UseGrammar/Linear.hs
View File

@@ -60,8 +60,8 @@ linearizeToRecord gr mk m = lin [] where
r <- case at of
A.AtC f -> lookf c t f >>= comp xs'
A.AtI i -> return $ recInt i
A.AtL s -> return $ recS $ tK $ prt at
A.AtI i -> return $ recS $ tK $ prt at
A.AtF i -> return $ recS $ tK $ prt at
A.AtV x -> lookCat c >>= comp [tK (prt_ at)]
A.AtM m -> lookCat c >>= comp [tK (prt_ at)]
@@ -79,6 +79,10 @@ linearizeToRecord gr mk m = lin [] where
recS t = R [Ass (L (identC "s")) t] ----
recInt i = R [Ass (L (identC "s")) (tK $ show i),
Ass (L (identC "last")) (EInt (rem i 10)),
Ass (L (identC "size")) (EInt (if i > 9 then 1 else 0))]
lookCat = return . errVal defLindef . look
---- should always be given in the module