;;;   -*- Mode: LISP; Package: CGP; BASE: 10; Syntax: ANSI-Common-Lisp; -*-
;;
;; Copyright (C) Paul Meurer 2000 - 2004. All rights reserved.
;; paul.meurer@aksis.uib.no
;; HIT-centre, University of Bergen
;;
;; Reimplementation in ANSI CommonLisp of the multi-tagger module 
;; (Perl program) written by Lars Jørgen Tvedt, UiO 1999
;; Used in the CG parser/tagger system (Oslo-tagger) developed at UiO
;; (Dokumentasjonsprosjektet; Tekstlaboratoriet)
;;

(in-package "CGP")

(defparameter *nbo-tagger* (make-instance 'cg-multi-tagger :language :nbo))
(defparameter *nny-tagger* #+nny-parser(make-instance 'cg-multi-tagger :language :nny) #-nny-parser nil)

;;(setf (expressions *nbo-tagger*) (load-string-net "projects:cgp;nets;nbo-expressions.net"))

#+test
(setf (slot-value (gethash "nbo-navn-kh" *cg-table*) 'cg-multi-tagger) *nbo-tagger*)
#+test
(setf (slot-value (gethash "nbo-navn-abj" *cg-table*) 'cg-multi-tagger) *nbo-tagger*)
#+test
(setf (slot-value (gethash "nbo" *cg-table*) 'cg-multi-tagger) *nbo-tagger*)

:eof