search for: action_compare

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...