Commit 272ea0533e5eb8036aaa8a58af03954893a2649b
1 parent
ec7e8588
semantyka z dep trees
Showing
3 changed files
with
5 additions
and
3 deletions
diagnostics/treeChange.ml
| @@ -23,10 +23,10 @@ let correct_coordination paths tokens = | @@ -23,10 +23,10 @@ let correct_coordination paths tokens = | ||
| 23 | let paths_ls = List.mapi (fun i (id,super,label) -> | 23 | let paths_ls = List.mapi (fun i (id,super,label) -> |
| 24 | (i,id,super,label)) (Array.to_list paths) in | 24 | (i,id,super,label)) (Array.to_list paths) in |
| 25 | 25 | ||
| 26 | - let ps a sons = | 26 | + (* let ps a sons = |
| 27 | print_endline a; | 27 | print_endline a; |
| 28 | List.iter (fun (i,_,_,_) -> print_endline (ExtArray.get tokens i).orth) sons; | 28 | List.iter (fun (i,_,_,_) -> print_endline (ExtArray.get tokens i).orth) sons; |
| 29 | - print_endline "" in | 29 | + print_endline "" in *) |
| 30 | 30 | ||
| 31 | let rec correct_rec (i,id,super,label) sons = | 31 | let rec correct_rec (i,id,super,label) sons = |
| 32 | let left_s, right_s = List.partition (fun (a,b,c,d) -> a < i) sons in | 32 | let left_s, right_s = List.partition (fun (a,b,c,d) -> a < i) sons in |
parser/.gitignore
parser/LCGvalence.ml
| @@ -227,7 +227,7 @@ let match_args modifications nodes e i t = function | @@ -227,7 +227,7 @@ let match_args modifications nodes e i t = function | ||
| 227 | 227 | ||
| 228 | let rec assign_frames_and_senses_rec modifications valence nodes t = | 228 | let rec assign_frames_and_senses_rec modifications valence nodes t = |
| 229 | (* printf "pred=%s id=%d\n" t.pred t.id; *) | 229 | (* printf "pred=%s id=%d\n" t.pred t.id; *) |
| 230 | - if t.id = 0 then failwith ("assign_frames_and_senses_rec: t.id=0 pred=" ^ t.pred) else | 230 | + (* 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 *) |
| 231 | let e,node_valence = select_frames ((*if t.id >= Array.length valence then create_pro_frames t else*) valence.(t.id)) t in | 231 | let e,node_valence = select_frames ((*if t.id >= Array.length valence then create_pro_frames t else*) valence.(t.id)) t in |
| 232 | let node_valence = if node_valence <> [] then node_valence else ["1",(t.pred,StringSet.empty,0.,"","",Frame(EmptyAtrs[],[]))] in | 232 | let node_valence = if node_valence <> [] then node_valence else ["1",(t.pred,StringSet.empty,0.,"","",Frame(EmptyAtrs[],[]))] in |
| 233 | let l = Xlist.map node_valence (fun (i,(meaning,hipero,weight,lrole,lrole_attr,frame)) -> | 233 | let l = Xlist.map node_valence (fun (i,(meaning,hipero,weight,lrole,lrole_attr,frame)) -> |