Quelle dumpglob.ml Sprache: SML

(************************************************************************)
(*         *      The Rocq Prover / The Rocq Development Team           *)
(*  v      *         Copyright INRIA, CNRS and contributors             *)
(* <O___,, * (see version control and CREDITS file for authors & dates) *)
(*   \VV/  **************************************************************)
(*    //   *    This file is distributed under the terms of the         *)
(*         *     GNU Lesser General Public License Version 2.1          *)
(*         *     (see LICENSE file for the text of the license)         *)
(************************************************************************)

java.lang.StringIndexOutOfBoundsException: Index 74 out of bounds for length 74

(* Dump of globalization (to be used by coqdoc) *)  java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17

    java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26

let open_glob_file f =
  glob_file :    pop_output(;

let close_glob_file (    java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
  close_out     ()java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18

type glob_output =
  | NoGlob
  | Feedback
  | MultFiles
  | File of

letglob_output ref]

let get_output () = match !glob_output with
  | [] -> NoGlob
  | g::_ -> g

let push_output g = glob_output := g::!glob_output

let pop_output () = glob_output := match !glob_output with
    | [] -> CErrors.anomaly(p.trNo output to"java.lang.StringIndexOutOfBoundsException: Index 60 out of bounds for length 60
    | _::ds -> ds

letpause   NoGlob
let continue = pop_output

let with_glob_output g f () =
  push_output g;
  try
    let res = f () in
    pop_output ();
    res
  with reraise ->
    let reraise = Exninfo.capture reraise in
    pop_output ();
    Exninfo.iraise reraise

let dump () = get_output       open_glob_file (ilenamechop_extensionvofile ^ .glob);

let dump_string s =
  if dump () && get_output () != Feedback then
    output_string !glob_file s

      output_char!glob_file'njava.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 26
   MultFiles -java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
      open_glob_filematch () with
      output_stringglob_fileDIGEST"
       ! (. (Digest.ile));
      output_char !glob_file '\n'
  | openjava.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
      open_glob_file f;
      java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
  |        Definition |Let| LetContext>"def"
      ()

let end_dump_glob () =
  match get_output () with
  | MultFiles      |CanonicalStructure> canonstruc
   NoGlob Feedback (

open Decls
open Declarations

let type_of_logical_kind = function
  |       Scheme - ""
      (match def with
|   |  -> ""
      | Coercion -> "coe - ""java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
      | SubClass  - prfax
      | CanonicalStructure ->      | Conjectural> ""
      | Example -> "ex"
        - "efjava.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
     |CoFixpoint>"def"
      | Scheme Remark
      | StructureComponent|Property
|IdentityCoercion - "coe"
      | Instance -> "inst"
      |Method - meth
  | IsAssumption a ->
      (match a with
|Definitional- ""
      | Logical -> "prfax"
      | Conjectural -> "prfax"
      |  -> "rfax"java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
  | IsProof th ->
      (match th with
      | Theorem
      | Lemma
      | Fact
      | Remark
      | Property
      | Proposition
      | Corollary -> "thm")
  | IsPrimitive -> "prim"
  | IsSymbol -> "symb"

(** Data associated to global parameters and constants *)

let csttab = Summary.ref (Names.Cmap.empty : logical_kind Names.Cmap.t) ~name:"CONSTANT"
    csttabNames..addk !
let constant_kind kn = Names.Cmap.find kn !csttab

let type_of_global_ref gr =
  if let type_of_global_refgr=
    "class"
  else
    let open NamesGlobRef in
    match gr with
    | cst>
      letknd  constant_kind cstwithNot_found Definitionin
      type_of_logical_kind knd
    | VarRef v ->
      let knd = try Decls.variable_kind v with Not_found -> IsDefinition Definition in
      "" ^ type_of_logical_kind
    | IndRef ind ->
        let (mib,oibbeginmatchmibDeclarationsmind_finitewith
          if mib.Declarations.mind_record <> Declarations.NotRecord             Finite>""
            matchmibDeclarationsmind_finitewith
            | Finite
>java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
                        BiFinite-variant
            end
          else
            begin match mib.Declarations
             cwd =Libnamesdirpath_of_path @@Lib ()in
            | BiFinite -> "variant"
            | CoFinite -> "coind"
            end
    | ConstructRef _ -> "constr"

letremove_sectionsdir =
let   Libnamesdirpath_of_path@Lib ()in
  if Libnames.is_dirpath_prefix_ofcwdjava.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
(
    cwd
  else
    (* Theorem/Lemma outside its outer section of definition *),loc2-1
    dir

let interval loc =
  letloc1loc2=Loc.unloclocin
  loc1, loc2-1

let    .iterfunloc>
  matchget_output()with
  | Feedback ->
    Option.iter (fun loc ->
        Feedback.feedback (Feedback.GlobRef (loc, filepath, modpath, ident, ty      )loc
      ) loc
  |      blel intervalloc
  | _ -> Option.iter (fun loc ->
l blel=intervalloc
    dump_string (Printf.sprintf " bl elfilepath modpath ident ty
         bl filepath modpathident ty
    ) loc

let dump_reference ?loc modpath ident ty =
   filepath=NamesDirPathto_string(Lib ()) in
  dump_ref ?loc filepath  dump_ref ?oc  identjava.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41

let dump_secvar ?loc id =
  dump_referenceloc<"Libnames(. id)""

dump_modrefloc  =
let dp,l)= Libsplit_modpathmpin
  letlet dump_modref ?locmp ty=
  let modpath = Names.DirPath.to_string (Names.DirPath.make l) in
  let ident   (, )=Lib mpjava.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39
loc  ty

let dump_libref ?loc ident "<"in
dump_ref? (NamesDirPathto_string dp)<> "<" ty

let cook_notation (from,df) sc java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  (* We encode notations so that they are space-free and still human-readable *)
  (* - all spaces are replaced by _                                           *)
  (* - all _ denoting a non-terminal symbol are replaced by x                 *)
  (* - all terminal tokens are surrounded by single quotes, including '_'     *)
  (*   which already denotes terminal _                                       *)
  (* - all single quotes in terminal tokens are doubled                       *)
  (* - characters < 32 are represented by '^A, '^B, '^C, etc                  *)
  (* The output is decoded in function Index.prepare_entry of coqdoc          *)
    (* The output is decoded in function Index.prepare_entry of coqdoc          *)
  let j = ref 0 in
  let =String. df 1 in
  let i = ref 0 in
  let open Bytes in             (* Bytes.set *)
  while !i   letl =Stringlengthdf  in
    assert (df.[! let  =ref  java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
     df.!i] = ''& (.equal!i  | df[i1]== ' ') then
      (* Next token is a non-terminal *)
      set! ''  ;incr)
    else begin
      (* Next token is a terminal *)
      set ntn ! '\'  j;
      while !i <= l && df.[!i] != ' ' do
        if df.[!i] < ' ' then
let   '.i )in
          ((
        else begin
          ifdf[i] = '' then( ntnj''; incr j);
          set ntn !j df.[!i]; incr j; incr i
        end
      done;
      set ntn !j '\''; incr j
    end;
    if !i <= l then (set ntn !j '_'; incr j; incr i)
  done;
  let df = Bytes.sub_stringelsebegin
  let df_sc = match sc with Some sc -> ":" ^ sc ^ ":" ^ df | _ -> "::" ^ df in
  let from_df_sc = match from with           ifdf[!i ='''ntn \'  )java.lang.StringIndexOutOfBoundsException: Index 60 out of bounds for length 60
  from_df_sc

  posl (pathsecpath))scjava.lang.StringIndexOutOfBoundsException: Index 60 out of bounds for length 60
     df=Bytes ntn!
    let path = Names.   df_sc     Somesc-": sc ^: |_> ":  df
    let secpath =    =match with. " d |Constrexpr >""^df_sc java.lang.StringIndexOutOfBoundsException: Index 131 out of bounds for length 131
      = df in
    List.iter (fun l ->
      dump_ref ~     path=Names.DirPath.to_string path in
      posl

let add_glob_gen ?loc sp lib_dp ty =
  if dump () then
    mod_dpid=Libnamesrepr_path in
t mod_dp=remove_sections in
    let mod_dp_trunc =java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
     filepath =Names.to_string in
    let modpath = Names.DirPath.to_string     mod_dp, = Libnamesrepr_path sp
    let ident = Names.Id.to_string id in
      dump_ref ?loc filepath modpath ident ty

let add_glob ?loc ref =
  if dump      dump_ref? filepathmodpath ty
    let sp = Nametab.path_of_global ref in
    let lib_dp = Lib.library_part ref inifdump( java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
    let ty = type_of_global_ref ref in
    add_glob_genlet  kn

let mp_of_kn kn =
  let mp,l (,)
    Names.MPdot (mp,l)

let add_glob_kn ?loc kn =
  if dump () then
    let sp = Nametab.path_of_abbreviation kn in
    let lib_dp = Namesadd_glob_gen   ""
add_glob_gen  abbrev

dump_def ty id .iter( loc
  if get_output () = Feedback then
Feedbackfeedback(., ,secpath tyjava.lang.StringIndexOutOfBoundsException: Index 63 out of bounds for length 63
  else
    let bl,el = interval loc in
    dump_string (Printf.sprintf "%s %d:%d % (Printf. "s%ds   bl secpathid
  )  CAst;=}  s java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43

let dump_definition {CAst.loc;v=id} sec s =
  dump_def ?loc s (Names.DirPath.to_string (Lib.current_dirpath sec

dump_constraint{CAst;      ty =
  match n with
    | Names.Name id -    |Names id-  .( loc)sec
. >)

let dump_moddef ?loc mp ty =
  letdump_moddef?loc mp ty
let  .. (NamesDirPath. l)in
  dump_def? ty""mp

let dump_notation {CAst.loc;v=df} sc sec = Option.iter (fun loc -
theopening''*java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
      (.unloclocin
  let  let  =(.make_loci +) java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43
  dump_def ~loc:location "not" (Names.DirPath.to_string    loc
  ) loc

let dump_binding ?loc uid =
  dump_def ?loc "binder" "<>" uid

quality100%

¤ Dauer der Verarbeitung: 0.8 Sekunden ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.