From 98665df78b8018af30051cb4a9a31f845e0ba19d Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 22 Sep 2008 11:49:15 +0000 Subject: moved lib/next-resource to next-lib/src, to enable linking with next-lib as value of GF_LIB_PATH --- next-lib/src/common/ConstructX.gf | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 next-lib/src/common/ConstructX.gf (limited to 'next-lib/src/common/ConstructX.gf') diff --git a/next-lib/src/common/ConstructX.gf b/next-lib/src/common/ConstructX.gf new file mode 100644 index 000000000..ee4decf00 --- /dev/null +++ b/next-lib/src/common/ConstructX.gf @@ -0,0 +1,19 @@ +--# -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