From c8ceed08efcc0bdc1fcbd89bce643d9f52f0991b Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 9 Dec 2009 09:47:16 +0000 Subject: moving a few things to deprecated --- old-lib/resource/common/ConstructX.gf | 19 ------------------- 1 file changed, 19 deletions(-) delete mode 100644 old-lib/resource/common/ConstructX.gf (limited to 'old-lib/resource/common/ConstructX.gf') diff --git a/old-lib/resource/common/ConstructX.gf b/old-lib/resource/common/ConstructX.gf deleted file mode 100644 index ee4decf00..000000000 --- a/old-lib/resource/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 -> CAdv = \s -> {s = s ; lock_CAdv = <>} ; - mkPConj : Str -> PConj = \s -> {s = s ; lock_PConj = <>} ; - -} -- cgit v1.2.3