semantyka z dep trees

Wojciech Jaworski
1 parent ec7e8588
Showing 3 changed files with 5 additions and 3 deletions
diagnostics/treeChange.ml
parser/.gitignore
parser/LCGvalence.ml
@@ -23,10 +23,10 @@ let correct_coordination paths tokens =
   let paths_ls = List.mapi (fun i (id,super,label) ->
     (i,id,super,label)) (Array.to_list paths) in
  
-  let ps a sons =
+  (* let ps a sons =
     print_endline a;
     List.iter (fun (i,_,_,_) -> print_endline (ExtArray.get tokens i).orth) sons;
-    print_endline "" in
+    print_endline "" in *)
  
   let rec correct_rec (i,id,super,label) sons =
     let left_s, right_s = List.partition (fun (a,b,c,d) -> a < i) sons in
 pipe
 swigra_test
 results/*
+parser2.cgi
+server2
@@ -227,7 +227,7 @@ let match_args modifications nodes e i t = function
  
 let rec assign_frames_and_senses_rec modifications valence nodes t =
 (*        printf "pred=%s id=%d\n" t.pred t.id;   *)
-      if t.id = 0 then failwith ("assign_frames_and_senses_rec: t.id=0 pred=" ^ t.pred) else
+      (* if t.id = 0 then failwith ("assign_frames_and_senses_rec: t.id=0 pred=" ^ t.pred) else *) (* FIXME: zbadać po co było to zabezpieczenie *)
       let e,node_valence = select_frames ((*if t.id >= Array.length valence then create_pro_frames t else*) valence.(t.id)) t in
       let node_valence = if node_valence <> [] then node_valence else ["1",(t.pred,StringSet.empty,0.,"","",Frame(EmptyAtrs[],[]))] in
       let l = Xlist.map node_valence (fun (i,(meaning,hipero,weight,lrole,lrole_attr,frame)) ->