From 272ea0533e5eb8036aaa8a58af03954893a2649b Mon Sep 17 00:00:00 2001
From: Wojciech Jaworski <wjaworski@mimuw.edu.pl>
Date: Fri, 25 Nov 2016 18:17:08 +0100
Subject: [PATCH] semantyka z dep trees
---
diagnostics/treeChange.ml | 4 ++--
parser/.gitignore | 2 ++
parser/LCGvalence.ml | 2 +-
3 files changed, 5 insertions(+), 3 deletions(-)
diff --git a/diagnostics/treeChange.ml b/diagnostics/treeChange.ml
index 77b7153..45610c5 100644
--- a/diagnostics/treeChange.ml
+++ b/diagnostics/treeChange.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
diff --git a/parser/.gitignore b/parser/.gitignore
index 25d18b8..f32d897 100644
--- a/parser/.gitignore
+++ b/parser/.gitignore
@@ -1,3 +1,5 @@
pipe
swigra_test
results/*
+parser2.cgi
+server2
diff --git a/parser/LCGvalence.ml b/parser/LCGvalence.ml
index 5fda46a..cd1ab32 100644
--- a/parser/LCGvalence.ml
+++ b/parser/LCGvalence.ml
@@ -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)) ->
--
libgit2 0.22.2