source: haskell/trunk/Archetype.hs@ 291

Last change on this file since 291 was 2, checked in by KOBAYASHI, Shinji, 14 years ago

restructure project tree

File size: 952 bytes
Line 
1module Archetype where
2
3import List
4import Data.Tree
5
6type V_STRING = String
7type V_IDENTIFIER = String
8type V_LOCAL_TERM_CODES = String
9
10data Archetype = Archetype {
11 arch_identification :: ArchIdentification
12 arch_specialisation :: ArchSpecialisation
13 arch_concept :: ArchConcept
14 arch_language :: ArchLanguage
15 arch_description :: ArchDescription
16 arch_definition :: ArchDefinition
17 arch_invariant :: ArchInvariant
18 arch_ontology :: ArchOntology
19}
20
21ArchIdentification :: ArchIdentification {
22 code :: String, desc :: String}
23
24data Language = Langage {
25 orig :: String, translation :: [Translation]}
26
27data Translation = Translation {
28 symbol :: String, lang :: String, author :: Author }
29data Author = Author {
30 name :: String, organization :: String,
31 date :: String, email :: String }
32data Description = Description {
33 orig :: Author, details :: [Details],
34
35
36
Note: See TracBrowser for help on using the repository browser.