Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed

  • haskell/trunk/ADLParser.hs

    r27 r2  
    2424                 return ontology
    2525
    26 adlVersion :: Parser Version
     26
     27adlVersion :: Parser String
    2728adlVersion = do dec1 <- string "archetype (adl_version="
    2829                ver <- many anyChar
    … …  
    5152
    5253adlLanguage :: Parser Language
    53 adlLanguage = do spaces
    54                  head <- string "language"
    55                  
    5654
    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.