Changes in haskell/trunk/ADLParser.hs [27:2]
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
haskell/trunk/ADLParser.hs
r27 r2 24 24 return ontology 25 25 26 adlVersion :: Parser Version 26 27 adlVersion :: Parser String 27 28 adlVersion = do dec1 <- string "archetype (adl_version=" 28 29 ver <- many anyChar … … 51 52 52 53 adlLanguage :: Parser Language 53 adlLanguage = do spaces54 head <- string "language"55 56 54 57 58 parseAtoms :: Parser [Atom]59 parseAtoms = many atom60 where61 atom :: Parser Atom62 atom = do spaces63 name <- string64 spaces65 equal <- char '='66 spaces67 <|> return []68 69 70 data Language = Original_Laguage String71 | Translaions [Transpation]72 deriving Show73 74 data Translation = Symbol String75 | Language String76 | Author Author77 78 data Author = Name String79 | Organisation String80 81 data Atom = Name String82 | Description String83 84 type Version :: String
Note:
See TracChangeset
for help on using the changeset viewer.