Updated to use the training id start variable in startup.lisp

delph-in · Jun 15, 2009 · 2ee2d80 · 2ee2d80
1 parent 839d82c
commit 2ee2d80
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/lisp/common/gpmrs.lisp b/lisp/common/gpmrs.lisp
@@ -10,5 +10,5 @@
                 dir :format :ascii)
               (tsdb::do-import-items (format nil "~a/bitext/original" profile_top) 
                 dir :format :bitext)) )
-      (tsdb::tsdb-do-process dir :condition (format nil "result-id=~a" m)
+      (tsdb::tsdb-do-process dir :condition (format nil "(result-id=~a) && (i-id>~a)" m gen-start)
   	    :type :generate :overwrite t :gold (format nil "pmrs/~a" n)) )))
diff --git a/lisp/common/pmrs.lisp b/lisp/common/pmrs.lisp
@@ -1,3 +1,4 @@
+;; Starting common/pmrs.lisp
 (setf tsdb::*tsdb-transfer-include-fragments-p* t)
 (tsdb::tsdb :home profile_top)
 (tsdb::tsdb :list)
@@ -9,5 +10,6 @@
               dir :format :ascii)
             (tsdb::do-import-items (format nil "~a/bitext/original" profile_top) 
               dir :format :bitext)) )
-    (tsdb::tsdb-do-process dir :condition (format nil "result-id=~a" n)
+    (tsdb::tsdb-do-process dir :condition (format nil "(result-id=~a) && (i-id>~a)" n transfer-start)
 	  :type :transfer :overwrite t :gold "smrs")))
+;; Ending common/pmrs.lisp
diff --git a/lisp/common/smrs.lisp b/lisp/common/smrs.lisp
@@ -11,4 +11,4 @@
           (tsdb::do-import-items (format nil "~a/bitext/original" profile_top) 
             dir :format :bitext))) )
 (setf *tsdb-trees-hook* "lkb::parse-tree-structure")
-(tsdb::tsdb :process "smrs" :condition "i-wf=1")
+(tsdb::tsdb :process "smrs" :condition (format nil "(i-wf=1) && (i-id>~a)" parse-start))