Mantis Bugtracker

Einfache Problemansicht anzeigen Zu Notizen wechseln ] erweiterte Anzeige ] Problem-Historie ] Drucken ]
ID Kategorie Auswirkung Reproduzierbar Meldungsdatum Letzte Aktualisierung
0000097 [Bisect] general schwerer Fehler immer 2012-01-31 13:38 2012-08-14 19:32
Reporter AndreasRomeyke Anzeigestatus öffentlich  
Bearbeitung durch
Priorität normal Lösung nicht reproduzierbar  
Status geschlossen   Produktversion 1.1
Zusammenfassung 0000097: camlp4o-error using bisect from darcs-repository
Beschreibung Hello Xavier,

I am upgrading our project from using ocaml 3.11.2 and bisect1.0 to ocaml 3.12.1 and bisect1.1 (darcs-repos).

Our code seems to be ok, because it compiles very well if bisect is disabled in pp-call.

Any hints?

Bye Andreas
Zusätzliche Information Now we got follwing errors compiling code:

Here our call:
ocamlc.opt -c -w Aez -I +dynlink -I /usr/lib/ocaml/bolt -I +threads -I +lablgtk2 -I +extlib -I +pcre -I +netsys -I +netstring -I +json-wheel -I +num -I +nums -I +dynlink -I +sexplib -I +zip -I +xml-light -I +xmlrpc-light -I +equeue -I +netclient -I /home/andreas/projekte/leibniz/trunk/core/_build -I +oUnit -I +bisect -g -annot -thread -pp 'camlp4o -verbose -I /usr/lib/ocaml/ -I /usr/lib/ocaml/bisect str.cma /usr/local/lib/ocaml/3.12.1/bisect/bisect_pp.cmo -disable cldevps -- /usr/lib/ocaml/bolt/bolt_pp.cmo -logger '\''test_all_native.otarget'\'' -level DEBUG -- -I /usr/lib/ocaml/sexplib -I /usr/lib/ocaml/type-conv pa_type_conv.cma pa_sexp_conv.cma pa_macro.cmo -DNEWSEXP' -I form/tests -I bbox -I ocr -I examples -I img -I io -I test -I dictionary -I structure -I segment -I preprocessing -I pdf -I composite -I helper -I glyphs -I form -I bbox/tests -I ocr/tests -I img/tests -I io/tests -I dictionary/tests -I structure/tests -I segment/tests -I preprocessing/tests -I composite/tests -I helper/tests -I glyphs/tests -o form/tests/test_form_experts.cmo form/tests/test_form_experts.ml

This results in:

----------------------------------
Parse error in entry [module_longident_dot_lparen], rule:
  [ a_UIDENT; "."; "("
  | a_UIDENT; "."; SELF ]
----------------------------------


----------------------------------
Parse error in entry [module_longident_dot_lparen], rule:
  [ a_UIDENT; "."; "("
  | a_UIDENT; "."; SELF ]
----------------------------------


----------------------------------
Parse error in entry [module_longident_dot_lparen], rule:
  [ a_UIDENT; "."; "("
  | a_UIDENT; "."; SELF ]
----------------------------------


----------------------------------
Parse error in entry [module_longident_dot_lparen], rule:
  [ a_UIDENT; "."; "("
  | a_UIDENT; "."; SELF ]
----------------------------------


----------------------------------
Parse error in entry [module_longident_dot_lparen], rule:
  [ a_UIDENT; "."; "("
  | a_UIDENT; "."; SELF ]
----------------------------------


----------------------------------
Parse error in entry [module_longident_dot_lparen], rule:
  [ a_UIDENT; "."; "("
  | a_UIDENT; "."; SELF ]
----------------------------------


----------------------------------
Parse error in entry [module_longident_dot_lparen], rule:
  [ a_UIDENT; "."; "("
  | a_UIDENT; "."; SELF ]
----------------------------------


----------------------------------
Parse error in entry [module_longident_dot_lparen], rule:
  [ a_UIDENT; "."; "("
  | a_UIDENT; "."; SELF ]
----------------------------------


----------------------------------
Parse error in entry [module_longident_dot_lparen], rule:
  [ a_UIDENT; "."; "("
  | a_UIDENT; "."; SELF ]
----------------------------------


----------------------------------
Parse error in entry [module_longident_dot_lparen], rule:
  [ a_UIDENT; "."; "("
  | a_UIDENT; "."; SELF ]
----------------------------------


----------------------------------
Parse error in entry [module_longident_dot_lparen], rule:
  [ a_UIDENT; "."; "("
  | a_UIDENT; "."; SELF ]
----------------------------------


----------------------------------
Parse error in entry [module_longident_dot_lparen], rule:
  [ a_UIDENT; "."; "("
  | a_UIDENT; "."; SELF ]
----------------------------------


----------------------------------
Parse error in entry [module_longident_dot_lparen], rule:
  [ a_UIDENT; "."; "("
  | a_UIDENT; "."; SELF ]
----------------------------------


----------------------------------
Parse error in entry [module_longident_dot_lparen], rule:
  [ a_UIDENT; "."; "("
  | a_UIDENT; "."; SELF ]
----------------------------------

File "ghost-location", line 1, characters 0-0:
Error: Unbound module Bisect

It could be related to uncommented stuff, the code of our file is:

open OUnit;;
open Text;;
open Types;;
open Form_types;;

let ef = Form.empty ();;

let (!==!) = assert_equal;;
let fg = Foreground (Color.black);;
let px0000 = {x0=0; y0=0; x1=0; y1=0};;

let empty_psi = Psi.empty ();;
let empty_formv = Form.empty ();;

let gpsi = Psi.with_language (Some German) empty_psi;;
let epsi = Psi.with_language (Some English) empty_psi;;


let empty_struc = {st_segment=Segment({s_frame=px0000; s_layer=fg; s_bboxes=[];}); st_scanlocations=[]; st_id= ~-1; st_formv=None; st_form_class=0};;

let testplan_selftest =
  "text (selftest) " >::: [
    "selftest " >:: (fun () -> !==! 1 1);
  ]
;;

(* FIXME: sft () is wrong, should return text_t

let testplan_get_quasi_caption =
    (* create structure from text *)
  let sft text =
    (Text((text, None, 1.0)::[]), empty_struc)
  in
  "text (get_quasi_caption)" >::: [
    "Vorwort " >:: (fun () -> !==! (Form_experts.get_quasi_caption gpsi (sft "Vorwort")) QuasiPrefaceTitle);
    "Vorwort " >:: (fun () -> !==! (Form_experts.get_quasi_caption epsi (sft "Vorwort")) QuasiUnknownCaption);
    "Einführung " >:: (fun () -> !==! (Form_experts.get_quasi_caption gpsi (sft "Einführung")) QuasiIntroductionTitle);
    "Einführung " >:: (fun () -> !==! (Form_experts.get_quasi_caption epsi (sft "Einführung")) QuasiUnknownCaption);
    "Preface " >:: (fun () -> !==! (Form_experts.get_quasi_caption gpsi (sft "Preface")) QuasiUnknownCaption);
    "Preface " >:: (fun () -> !==! (Form_experts.get_quasi_caption epsi (sft "Preface")) QuasiPrefaceTitle);
    "Kapitel " >:: (fun () -> !==! (Form_experts.get_quasi_caption gpsi (sft "Kapitel")) QuasiChapterTitle);
    "1. Kapitel " >:: (fun () -> !==! (Form_experts.get_quasi_caption gpsi (sft "1. Kapitel")) QuasiChapterTitle);
    "Kapitel I " >:: (fun () -> !==! (Form_experts.get_quasi_caption gpsi (sft "Kapitel I")) QuasiChapterTitle);
    "Chapter " >:: (fun () -> !==! (Form_experts.get_quasi_caption epsi (sft "Chapter")) QuasiChapterTitle);
    "1. Chapter " >:: (fun () -> !==! (Form_experts.get_quasi_caption epsi (sft "1. Chapter")) QuasiChapterTitle);
    "Chapter I " >:: (fun () -> !==! (Form_experts.get_quasi_caption epsi (sft "Chapter I")) QuasiChapterTitle);
    "Vorwort " >:: (fun () -> !==! (Form_experts.get_quasi_caption gpsi (sft "Vorwort")) QuasiPrefaceTitle);
    "Preface " >:: (fun () -> !==! (Form_experts.get_quasi_caption epsi (sft "Preface")) QuasiPrefaceTitle);
    "Image 1.1 ab" >:: (fun () -> !==! (Form_experts.get_quasi_caption epsi (sft "Image 1.1 ab")) QuasiFigureCaption);
    "Table 1.1 ab" >:: (fun () -> !==! (Form_experts.get_quasi_caption epsi (sft "Table 1.1 ab")) QuasiTableCaption);
  ]
;;

let testplan_update_text_extent =
  (* create structure from text *)
  let sft text =
    (Text((text, None, 1.0)::[]), empty_struc)
  in
  "text (update_text_extent)" >::: [
    "empty " >:: (fun () -> !==! (Form_experts.update_text_extent (sft "Text") (FormVector [])) (FormVector [FormTextExtent(SingleWord)]));
    "multiline c " >:: (fun () -> !==! (Form_experts.update_text_extent (sft "T") (FormVector [FormTextExtent(MultiLine)])) (FormVector [FormTextExtent(MultiLine)]));
    "multiline w " >:: (fun () -> !==! (Form_experts.update_text_extent (sft "Text") (FormVector [FormTextExtent(MultiLine)])) (FormVector [FormTextExtent(MultiLine)]));
    "multiline sl" >:: (fun () -> !==! (Form_experts.update_text_extent (sft "Text Text") (FormVector [FormTextExtent(MultiLine)])) (FormVector [FormTextExtent(MultiLine)]));
    "sl -> sl " >:: (fun () -> !==! (Form_experts.update_text_extent (sft "Text Text") (FormVector [FormTextExtent(SingleLine)])) (FormVector [FormTextExtent(SingleLine)]));
    "sl -> word " >:: (fun () -> !==! (Form_experts.update_text_extent (sft "Text") (FormVector [FormTextExtent(SingleLine)])) (FormVector [FormTextExtent(SingleWord)]));
    "slpm -> word" >:: (fun () -> !==! (Form_experts.update_text_extent (sft "Text!") (FormVector [FormTextExtent(SingleLine)])) (FormVector [FormTextExtent(SingleWord)]));
    "sl -> char " >:: (fun () -> !==! (Form_experts.update_text_extent (sft "T") (FormVector [FormTextExtent(SingleLine)])) (FormVector [FormTextExtent(SingleCharacter)]));
    "slpm -> char" >:: (fun () -> !==! (Form_experts.update_text_extent (sft "T!") (FormVector [FormTextExtent(SingleLine)])) (FormVector [FormTextExtent(SingleCharacter)]));
  ]
;;


(* Testrunner *)
let _ = [
  run_test_tt ~verbose:true testplan_selftest;
  run_test_tt ~verbose:true testplan_get_quasi_caption;
  run_test_tt ~verbose:true testplan_update_text_extent;
]
;;
 *)
Tags Keine Tags zugeordnet.
Angehängte Dateien

- Problem-Beziehungen

Zu diesem Problem gibt es keine Notizen.

- Problem-Historie
Änderungsdatum Benutzername Feld Änderung
2012-01-31 13:38 AndreasRomeyke Neues Problem
2012-08-14 19:32 xclerc Status neu => geschlossen
2012-08-14 19:32 xclerc Lösung offen => nicht reproduzierbar


Mantis 1.1.7[^]
Copyright © 2000 - 2008 Mantis Group
Powered by Mantis Bugtracker