- Timestamp:
- May 5, 2008, 11:25:07 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
haskell/trunk/ADLParser.hs
r2 r27 24 24 return ontology 25 25 26 27 adlVersion :: Parser String 26 adlVersion :: Parser Version 28 27 adlVersion = do dec1 <- string "archetype (adl_version=" 29 28 ver <- many anyChar … … 52 51 53 52 adlLanguage :: Parser Language 53 adlLanguage = do spaces 54 head <- string "language" 55 54 56 57 58 parseAtoms :: Parser [Atom] 59 parseAtoms = many atom 60 where 61 atom :: Parser Atom 62 atom = do spaces 63 name <- string 64 spaces 65 equal <- char '=' 66 spaces 67 <|> return [] 68 69 70 data Language = Original_Laguage String 71 | Translaions [Transpation] 72 deriving Show 73 74 data Translation = Symbol String 75 | Language String 76 | Author Author 77 78 data Author = Name String 79 | Organisation String 80 81 data Atom = Name String 82 | Description String 83 84 type Version :: String
Note:
See TracChangeset
for help on using the changeset viewer.