/[geocaml]/geocaml/src/abrlex.ml
ViewVC logotype

Diff of /geocaml/src/abrlex.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by adoniec, Tue Apr 1 12:33:15 2003 UTC revision 1.6 by adoniec, Tue Sep 9 14:46:09 2003 UTC
# Line 200  let treat_exception e = Line 200  let treat_exception e =
200    | Circle_found_point_expected s -> s^" est un cercle,la construction nécessite un point\n"    | Circle_found_point_expected s -> s^" est un cercle,la construction nécessite un point\n"
201    | Point_found_line_expected s -> s^" est un point,la construction nécessite une droite\n"    | Point_found_line_expected s -> s^" est un point,la construction nécessite une droite\n"
202    | Circle_found_line_expected s -> s^" est un cercle,la construction nécessite une droite\n"    | Circle_found_line_expected s -> s^" est un cercle,la construction nécessite une droite\n"
203      | _ -> "Syntaxe incorrecte!"
204    
205  let rec add_abr_for_im abr fig f =  let rec add_abr_for_im abr fig f =
206    match abr with    match abr with
# Line 218  let rec add_abr_for_im abr fig f = Line 218  let rec add_abr_for_im abr fig f =
218    
219  and suppr_abr_for_im abr fig f =  and suppr_abr_for_im abr fig f =
220    match abr with    match abr with
221      | POINT (p,s) -> (Geom.suppr_obj s fig;f#remove_point s)      | POINT (p,s) -> (Geom.suppr_obj s fig f;f#remove_point s)
222      | LINE (l,s) -> (Geom.suppr_obj s fig;f#remove_line s)      | LINE (l,s) -> (Geom.suppr_obj s fig f;f#remove_line s)
223      | CIRCLE (c,s) -> (Geom.suppr_obj s fig;f#remove_circle s)      | CIRCLE (c,s) -> (Geom.suppr_obj s fig f;f#remove_circle s)
224      | _ -> ()      | _ -> ()
225    
226  let rec add_abr abr fig=  let rec add_abr abr fig=
# Line 234  let rec add_abr abr fig= Line 234  let rec add_abr abr fig=
234                          | LINE (l,s) -> Geom.add_line (Geom.Ruler l) s fig                          | LINE (l,s) -> Geom.add_line (Geom.Ruler l) s fig
235                          | CIRCLE (c,s) -> Geom.add_circle (Geom.Compass c) s fig                          | CIRCLE (c,s) -> Geom.add_circle (Geom.Compass c) s fig
236                          | MULTIPLE l -> List.iter (fun a -> add_abr (CONSTRUCT a) fig) l)                          | MULTIPLE l -> List.iter (fun a -> add_abr (CONSTRUCT a) fig) l)
237      | SUPPR o -> suppr_abr o fig      | SUPPR o -> ()
238    
239    
240  and suppr_abr abr fig=  and suppr_abr abr fig f=
241    match abr with    match abr with
242      | POINT (p,s) -> (Geom.suppr_obj s fig)      | POINT (p,s) -> (Geom.suppr_obj s fig f)
243      | LINE (l,s) -> (Geom.suppr_obj s fig)      | LINE (l,s) -> (Geom.suppr_obj s fig f)
244      | CIRCLE (c,s) -> (Geom.suppr_obj s fig)      | CIRCLE (c,s) -> (Geom.suppr_obj s fig f)
245      | _ -> ()      | _ -> ()
246    
247    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26