diff options
| author | aarne <aarne@chalmers.se> | 2009-06-22 15:39:08 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-06-22 15:39:08 +0000 |
| commit | e89fdae2fa1626348d8025824a7469252fa85e42 (patch) | |
| tree | c7d46bbd0494043b4bd6f917a25a7687517d0547 /next-lib/src/common/ConstructX.gf | |
| parent | 3049b59b35b25381a7c6787444165c200d66e08b (diff) | |
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'next-lib/src/common/ConstructX.gf')
| -rw-r--r-- | next-lib/src/common/ConstructX.gf | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/next-lib/src/common/ConstructX.gf b/next-lib/src/common/ConstructX.gf deleted file mode 100644 index 0c6de51ae..000000000 --- a/next-lib/src/common/ConstructX.gf +++ /dev/null @@ -1,19 +0,0 @@ ---# -path=.:../abstract:prelude - -resource ConstructX = open CommonX in { - - oper - mkText : Str -> Text = \s -> {s = s ; lock_Text = <>} ; - mkPhr : Str -> Phr = \s -> {s = s ; lock_Phr = <>} ; - mkUtt : Str -> Utt = \s -> {s = s ; lock_Utt = <>} ; - mkVoc : Str -> Voc = \s -> {s = s ; lock_Voc = <>} ; - mkSC : Str -> SC = \s -> {s = s ; lock_SC = <>} ; - mkAdv : Str -> Adv = \s -> {s = s ; lock_Adv = <>} ; - mkAdV : Str -> AdV = \s -> {s = s ; lock_AdV = <>} ; - mkAdA : Str -> AdA = \s -> {s = s ; lock_AdA = <>} ; - mkAdN : Str -> AdN = \s -> {s = s ; lock_AdN = <>} ; - mkIAdv : Str -> IAdv = \s -> {s = s ; lock_IAdv = <>} ; - mkCAdv : Str -> Str -> CAdv = \s,p -> {s = s ; p = p ; lock_CAdv = <>} ; - mkPConj : Str -> PConj = \s -> {s = s ; lock_PConj = <>} ; - -} |
