;;; Hey, Emacs, this file is -*- Common-Lisp -*- ... got that? (in-package :tsdb) (setf *tsdb-cache-connections-p* t) (setf *pvm-encoding* :utf-8) (defparameter %logon% (let ((root (system:getenv "LOGONROOT"))) (when root (namestring (parse-namestring root))))) (when %logon% ;; ;; point to Norwegian skeletons, rather than the default English ones ;; (tsdb :skeleton (format nil "~a/lingo/lkb/src/tsdb/skeletons/norsk" %logon%)) ;; ;; define [incr tsdb()] clients in terms of binary to run, command-line ;; arguments, and the host to run on; if the default of `(short-site-name)' ;; for the current host does not work for you, then contact me for advice. ;; (17-dec-03; oe) ;; (let ((erg "LinGO (13-feb-06)") (binary (format nil "~a/franz/~a/alisp" %logon% mk::%system-binaries%)) (base (format nil "~a/franz/~a/base.dxl" %logon% mk::%system-binaries%)) (xle #+:null (format nil "~a/franz/~a/xle.dxl" %logon% mk::%system-binaries%) #+:linux (format nil "~a/franz/~a/xle.dxl" %logon% "linux.x86.32") #-:linux (format nil "~a/franz/~a/xle.dxl" %logon% mk::%system-binaries%)) (cheap (format nil "~a/bin/cheapo" %logon%)) (ace (format nil "~a/bin/ace" %logon%)) (wait 300) (quantum 180)) (setf *pvm-cpus* (list ;; ;; _fix_me_ ;; while there is no 64-bit version of the XLE, force into 32-bit mode ;; on Linux :-{. (23-jan-06; oe) ;; (make-cpu :host (short-site-name) :spawn #+:linux (format nil "~a/franz/linux.x86.32/alisp" %logon%) #-:linux (format nil "~a/franz/macos.ppc.32/alisp" %logon%) :options (list "-I" xle "-qq" "-locale" "ISO-8859-1" "-L" (format nil "~a/uib/client.lisp" %logon%)) :class :norgram :grammar "NorGram (16-feb-06)" :name "xle" :task '(:parse) :template "norgram/%t/%d/xle" :wait wait :quantum quantum) (make-cpu :host (short-site-name) :spawn binary :options (list "-I" base "-qq" "-locale" "no_NO.UTF-8" "-L" (format nil "~a/lingo/noen.lisp" %logon%)) :class :noen :name "noen" :grammar "NoEn (27-feb-06)" :task '(:transfer) :wait wait :quantum quantum) (make-cpu :host (short-site-name) :spawn binary :options (list "-I" base "-qq" "-locale" "no_NO.UTF-8" "-L" (format nil "~a/lingo/erg.lisp" %logon%)) :class :erg :grammar erg :task '(:generate) :wait wait :quantum quantum) (make-cpu :host (short-site-name) :spawn binary :options (list "-I" base "-qq" "-locale" "no_NO.UTF-8" "-L" (format nil "~a/lingo/logon.lisp" %logon%)) :class '(:logon :no2en) :name "logon" :task '(:translate) :template "%s/%t/%d" :wait wait :quantum 7200) (make-cpu :host (short-site-name) :spawn binary :options (list "-I" base "-qq" "-locale" "ja_JP.EUC" "-L" (format nil "~a/dfki/client.lisp" %logon%)) :class :jacy :name "lkb" :grammar "JaCY (jul-05)" :task '(:parse) :wait wait :quantum quantum) (make-cpu :host (short-site-name) :spawn binary :options (list "-I" base "-qq" "-locale" "ja_JP.UTF-8" "-L" (format nil "~a/lingo/jaen.lisp" %logon%)) :class :jaen :name "lkb" :grammar "JaEn (2-aug-04)" :task '(:transfer) :wait wait :quantum quantum) (make-cpu :host (short-site-name) :spawn binary :options (list "-I" base "-qq" "-locale" "no_NO.UTF-8" "-L" (format nil "~a/lingo/ja2en.lisp" %logon%)) :class :ja2en :name "ja2en" :task '(:translate) :wait wait) (make-cpu :host (short-site-name) :spawn cheap :options (list "-tsdb" "-yy" "-packing" (format nil "~a/lingo/erg/english.grm" %logon%)) :preprocessor "lkb::preprocess-for-pet" :class :cheap :grammar erg :name "pet" :wait wait) (make-cpu :host (short-site-name) :spawn ace :options (list "-g" (format nil "~a/lingo/erg/erg.ace" %logon%) "-t") :class :ape :grammar erg :name "ape" :wait wait) (make-cpu :host (short-site-name) :spawn ace :options (list "-g" (format nil "~a/lingo/erg/erg.ace" %logon%) "-e" "-t") :preprocessor "tsdb::answer-enrich-mrs" :class :age :grammar erg :name "ape" :wait wait)))))