;;;   -*- Mode: LISP; Package: CL-USER; BASE: 10; Syntax: ANSI-Common-Lisp; -*-

(in-package "CL-USER")

;; *** CHANGE to whatever applies: ***
#-:init-file-loaded
(setf (logical-pathname-translations "cgp")
      '(("**;*.*" "home:projects;cgp;**;")))

;; Should not export all that?
(defpackage "CONSTRAINT-GRAMMAR-PARSER" 
  (:nicknames "CGP")
  (:use "COMMON-LISP" "UTILS" "STRING-NET"
	#+allegro "MP" #+sbcl "ACL-COMPAT.MP"
	#+(and :aserve (not :cgp-basic)) "JAVASCRIPT"
	#+(and :aserve (not :cgp-basic)) "ASERVE" ;; #+allegro "HMM"
	"MORPH")
  (:export "CONSTRAINT-GRAMMAR" "*CG*" "*NBO-CG*" "*NNY-CG*"
           "PARSE-OPERATIONS"
           "DEFINE-SETS"
           "DEFINE-@-SETS"
           "DEFINE-TEMPLATES"
           "DEFINE-DISAMBIGUATION-RULES"
           "DEFINE-HEURISTIC-DISAMBIGUATION-RULES"
           "DEFINE-SYNTACTIC-FUNCTIONS"
           "DEFINE-SYNTACTIC-RULES"
           "DEFINE-MAPPING-RULES"
           "DEFINE-HEURISTIC-SYNTACTIC-RULES"
           "DEFINE-MORPHOLOGICAL-HEURISTICS-RULES"
           "@W" "@1" "@2" "=!!" "=!" "=0" "=**CLB" "=H" "=S!" "=S0" 
           "^" "~" "$" "**CLB" "**CLB-C" "<**CLB>" "CLB"
           "ANALIZE-UNKNOWN-WORDS"
           "DISAMBIGUATE-SENTENCE"
           "H-DISAMBIGUATE-SENTENCE"
           "S-DISAMBIGUATE-SENTENCE"
           "H-S-DISAMBIGUATE-SENTENCE"
           "MAP-SENTENCE"
           "DISAMBIGUATE"
           "DISAMBIGUATE-STREAM" "DISAMBIGUATE-FILE"
           "RULE-ID" "RULE-TYPE" "RULE-ARRAY" "CG" "MULTI-TAGGER" ;"LANGUAGE"
           "RULE-DOMAIN" "RULE-TARGET" "RULE-CONSTRAINTS" "RULE-STRING"
           "DISAMBIGUATE-FROM-STRING" "SENTENCE" "DOCUMENT-SENTENCE" "SENTENCE-DOCUMENT" "TOKEN" "TOKEN-VALUE" "TOKEN-ATTRIBUTES" "TOKEN-ID"
           "FIRST-TOKEN" "TOKEN-NEXT" "LAST-TOKEN" "TOKEN-USED-RULES" "TOKEN-FEATURES" "FEATURES" "FILTERED-FEATURES" 
           "CODE-FEATURES" "CHARS-TO-ENTITIES" "EXTRACT")
  (:import-from "FSA" "FEATURE-REGEXP" "UPDATE-FEATURE-REGEXP")
  (:shadowing-import-from "UTILS"  "ENQUEUE" "DEQUEUE"))

(eval-when (:load-toplevel :compile-toplevel :execute)
  (pushnew :garsia-wachs *features*))

:eof