Displaying 7 results from an estimated 7 matches for "action_compare".
2016 Jun 14
1
[PATCH] generator: Remove unnecessary 'chars' function.
...nsertion(+), 11 deletions(-)
diff --git a/generator/utils.ml b/generator/utils.ml
index 34edf9d..6fb04dc 100644
--- a/generator/utils.ml
+++ b/generator/utils.ml
@@ -356,14 +356,7 @@ let pod2text ?width ?(trim = true) ?(discard = true) name longdesc =
(* Compare two actions (for sorting). *)
let action_compare { name = n1 } { name = n2 } = compare n1 n2
-let chars c n =
- let str = String.create n in
- for i = 0 to n-1 do
- String.unsafe_set str i c
- done;
- str
-
-let spaces n = chars ' ' n
+let spaces n = String.make n ' '
let args_of_optargs optargs =
List.map (
diff --...
2016 Sep 02
6
[PATCH 0/4] generator: Some work to split large C files
By splitting up large C files we can make parallel compiles
a bit faster.
Rich.
2013 Feb 04
1
[PATCH] generator: Add visibility to action struct
...er is_documented all_functions
+
+let fish_functions =
+ List.filter is_fish all_functions
(* In some places we want the functions to be displayed sorted
* alphabetically, so this is useful:
@@ -11071,6 +11103,12 @@ let external_functions_sorted =
let internal_functions_sorted =
List.sort action_compare internal_functions
+let documented_functions_sorted =
+ List.sort action_compare documented_functions
+
+let fish_functions_sorted =
+ List.sort action_compare fish_functions
+
(* This is used to generate the src/MAX_PROC_NR file which
* contains the maximum procedure number, a surrogate for...
2013 Jan 30
1
[PATCH] Make internal-only functions and structures private
...functions =
+ List.filter (fun x -> not x.internal) all_functions
+
+let internal_functions =
+ List.filter (fun x -> x.internal) all_functions
+
(* In some places we want the functions to be displayed sorted
* alphabetically, so this is useful:
*)
let all_functions_sorted = List.sort action_compare all_functions
+let external_functions_sorted =
+ List.sort action_compare external_functions
+
+let internal_functions_sorted =
+ List.sort action_compare internal_functions
+
(* This is used to generate the src/MAX_PROC_NR file which
* contains the maximum procedure number, a surrogate for...
2019 Aug 13
5
[PATCH 0/3] generator: pod2text-related improvements
- refactor memoization code
- pass pod as stdin rather than files
Pino Toscano (3):
generator: isolate memoized cache in own module
generator: adjust variable names
generator: improve pod2text invocation
generator/Makefile.am | 3 ++
generator/memoized_cache.ml | 62 +++++++++++++++++++++
generator/memoized_cache.mli | 29 ++++++++++
generator/utils.ml | 101
2016 Dec 08
4
[PATCH] generator: Share Common_utils code.
...trim then triml line else line in
+ let line = if trim then String.triml line else line in
lines := line :: !lines;
loop (i+1)
) in
@@ -376,8 +241,6 @@ let pod2text ?width ?(trim = true) ?(discard = true) name longdesc =
(* Compare two actions (for sorting). *)
let action_compare { name = n1 } { name = n2 } = compare n1 n2
-let spaces n = String.make n ' '
-
let args_of_optargs optargs =
List.map (
function
@@ -387,9 +250,3 @@ let args_of_optargs optargs =
| OString n -> String n
| OStringList n -> StringList n
) optargs
-
-let html_esc...
2017 Apr 04
1
[PATCH] Use Unicode single quotes ‘’ in place of short single quoted strings throughout.
...from fusermount. The return status is
still set (see L</EXIT STATUS> below).
=item B<--no-retry>
diff --git a/generator/actions.ml b/generator/actions.ml
index fa0e6568a..a04fdc0f9 100644
--- a/generator/actions.ml
+++ b/generator/actions.ml
@@ -191,4 +191,4 @@ let sort = List.sort action_compare
(* Find a single action by name, or give an error. *)
let find name =
try List.find (fun { name = n } -> n = name) actions
- with Not_found -> failwithf "could not find action named '%s'" name
+ with Not_found -> failwithf "could not find action named ‘%s’&quo...