/usr/lib/ocaml/galax/rewriting_judgments.mli is in libgalax-ocaml-dev 1.1-12.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | (***********************************************************************)
(* *)
(* GALAX *)
(* XQuery Engine *)
(* *)
(* Copyright 2001-2007. *)
(* Distributed only by permission. *)
(* *)
(***********************************************************************)
(* $Id: rewriting_judgments.mli,v 1.6 2007/10/16 01:25:35 mff Exp $ *)
(* Module: Rewriting_judgments
Description:
This module implements some auxiliary judgments used within
rewriting rules.
*)
open Xquery_core_ast
val used_count : Xquery_common_ast.cvname -> acexpr -> int
(* [used_count] determines the occurrence of variable $x in a
given core expression *)
val can_fail : Processing_context.processing_context -> acexpr -> bool
(* [can_fail] determines whether the given core expression can
raise an error *)
val does_node_care_about_order : acexpr -> bool
(* [is_ordered] determines whether the semantics of the expression
depends on document order or not. *)
(* Inlining variables mess *)
val should_inline_variable : Processing_context.processing_context -> acexpr -> bool
(* recursive function detection *)
(*
val is_recursive_function : Norm_context.norm_context -> (Xquery_common_ast.cfname * int) -> bool
*)
val has_side_effect_judge : Xquery_core_ast.acexpr -> bool
(* val register_side_effect_free_function : Xquery_common_ast.cfname -> unit *)
(* val global_is_side_effect_free_function : Xquery_common_ast.cfname -> bool *)
(* Nicola: this function doesn't seem to be used;
isn't the Updating flag sufficient?
besides, the implementation here is wrong, as it is comparing
rqnames for "=" instead of rqname_equal *)
val side_effect_free_judge : Xquery_core_ast.acexpr -> bool
|