Changeset 27

Timestamp:

2008/05/05 11時25分07秒 (4 years ago)

Author:

skoba

Message:

worked on ADLParser

File:

• haskell/trunk/ADLParser.hs (modified) (2 diffs)

haskell/trunk/ADLParser.hs

@@ -24 +24 @@
                  return ontology
 
-
-adlVersion :: Parser String
+adlVersion :: Parser Version
 adlVersion = do dec1 <- string "archetype (adl_version="
                 ver <- many anyChar
@@ -52 +51 @@
 
 adlLanguage :: Parser Language
+adlLanguage = do spaces
+                 head <- string "language"
+                 
 
+
+parseAtoms :: Parser [Atom]
+parseAtoms = many atom
+    where
+      atom :: Parser Atom
+      atom = do spaces
+                name <- string
+                spaces
+                equal <- char '='
+                spaces
+      <|> return []
+
+
+data Language = Original_Laguage String
+              | Translaions [Transpation]
+                deriving Show
+
+data Translation = Symbol String
+                 | Language String
+                 | Author Author
+
+data Author = Name String
+            | Organisation String
+
+data Atom = Name String
+          | Description String
+
+type Version :: String