search for: pod2text

- 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 +++++++++++++++-------------------- 4 files changed, 137 insertions(+), 58 deletions(-) create mode 10064...

...losing the process --- generator/utils.ml | 35 ++++++++++++++++------------------- 1 file changed, 16 insertions(+), 19 deletions(-) diff --git a/generator/utils.ml b/generator/utils.ml index bcbac8d2c..f8837ed3c 100644 --- a/generator/utils.ml +++ b/generator/utils.ml @@ -177,36 +177,33 @@ type pod2text_memo_key = int option * bool * bool * string * string (* width, trim, discard, name, longdesc *) type pod2text_memo_value = string list (* list of lines of POD file *) let run_pod2text (width, trim, discard, name, longdesc) = - let filename, chan = Filename.open_te...

...ces a bit the disk usage during generator run. --- generator/utils.ml | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/generator/utils.ml b/generator/utils.ml index 3a62084..1b00ce5 100644 --- a/generator/utils.ml +++ b/generator/utils.ml @@ -291,10 +291,22 @@ let pod2text_memo : (memo_key, memo_value) Hashtbl.t = v with _ -> Hashtbl.create 13 -let pod2text_memo_updated () = +let pod2text_memo_unsaved_count = ref 0 +let pod2text_memo_atexit = ref false +let pod2text_memo_save () = let chan = open_out pod2text_memo_filename in output_value chan p...

Source: xen Version: 4.2.2-1 Severity: important User: debian-perl at lists.debian.org Usertags: perl-5.18-transition This package FTBFS with perl 5.18 (which will soon be uploaded to unstable) owing to a stricter pod2man: pod2text man/xl.pod.1 txt/man/xl.1.txt.tmp man/xl.pod.1 around line 854: Expected text after =item, not a bullet POD document had syntax errors at /usr/bin/pod2text line 84. make[4]: *** [txt/man/xl.1.txt] Error 255 make[4]: Leaving directory `/build/dom-xen_4.2.2-1-i386-N3d2cV/xen-4.2.2/debian/ build/build...

> Can you explain which errors did you get? I tried pod2markdown on a > couple of API longdesc's, and the result seemed OK. > Most probably we will need to write our own pod2markdown though, as > pod2markdown does not allow users to customize all the options that > the Pod::Markdown module has. Yes. Most of the results seemed OK. But, for example, translating

...+) diff --git a/generator/rust.ml b/generator/rust.ml index 1f5cefa62..3a07c3b53 100644 --- a/generator/rust.ml +++ b/generator/rust.ml @@ -52,6 +52,14 @@ let translate_bad_symbols s = else s +(* output longdesc to the rust file *) +let pr_longdesc name longdesc indent_depth = + let l = pod2text name longdesc in + List.iter (fun x -> + indent indent_depth; + pr "/// %s\n" x; + ) l + let generate_rust () = generate_header ~copyrights CStyle LGPLv2plus; @@ -398,6 +406,8 @@ extern \"C\" { style = (ret, args, optargs) } as f) -> l...

tag 719506 +patch thanks On Mon, 2013-08-12 at 17:40 +0200, Dominic Hargreaves wrote: > This package FTBFS with perl 5.18 (which will soon be uploaded to > unstable) owing to a stricter pod2man: > > pod2text man/xl.pod.1 txt/man/xl.1.txt.tmp > man/xl.pod.1 around line 854: Expected text after =item, not a bullet > POD document had syntax errors at /usr/bin/pod2text line 84. > make[4]: *** [txt/man/xl.1.txt] Error 255 > make[4]: Leaving directory `/build/dom-xen_4.2.2-1-i386-N3d2cV/xen-4.2.2...

...east RHEL 6 era OCaml. --- generator/utils.ml | 9 +-------- generator/utils.mli | 3 --- 2 files changed, 1 insertion(+), 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...

...s is printed when the user types in an unknown command for the diff --git a/fish/fish.h b/fish/fish.h index b98faf0..9f64979 100644 --- a/fish/fish.h +++ b/fish/fish.h @@ -55,7 +55,7 @@ extern int command_num; extern int issue_command (const char *cmd, char *argv[], const char *pipe); extern void pod2text (const char *name, const char *shortdesc, const char *body); extern void list_builtin_commands (void); -extern void display_builtin_command (const char *cmd); +extern int display_builtin_command (const char *cmd); extern void free_strings (char **argv); extern int count_strings (char *const *arg...

...doc ^ "\n\n" ^ txt in + let doc = + match f.optional with + | None -> doc + | Some opt -> + doc ^ sprintf "\n\nThis function depends on the feature C<%s>. See also C<g.feature-available>." opt in let doc = pod2text ~width:60 f.name doc in let doc = List.map (fun line -> replace_str line "\\" "\\\\") doc in let doc = String.concat "\n " doc in diff --git a/generator/ruby.ml b/generator/ruby.ml index 9567925..97ccfdc 100644 --- a/generator/ruby.ml +++ b/...

...pr " /* do_%s has already called reply_with_error */\n" name; + pr " goto done;\n"; + pr "\n" ); (* If there are any FileOut parameters, then the impl must @@ -6684,8 +6684,8 @@ and generate_fish_cmds () = pr " pod2text (\"%s\", _(\"%s\"), %S);\n" name2 shortdesc ("=head1 SYNOPSIS\n\n " ^ synopsis ^ "\n\n" ^ - "=head1 DESCRIPTION\n\n" ^ - longdesc ^ warnings ^ describe_alias); + "=head1 DESCRIPTION\n\n" ^ + longdes...

...n) if f.protocol_limit_warning then doc ^ "\n\n" ^ protocol_limit_warning else doc in - let doc = - match deprecation_notice f with - | None -> doc - | Some txt -> doc ^ "\n\n" ^ txt in let doc = pod2text ~width:60 f.name doc in let doc = String.concat "\n * " doc in let doc = trim doc in + let doc = + match version_added f with + | None -> doc + | Some version -> doc ^ (sprintf "\n *\n * [Since] Added in version %s." vers...

..._0.2 file /usr/share/man/man1/pod2latex.1.gz from install of perl-5.8.8-10.el5_2.3 conflicts with file from package perl-5.8.8-10.el5_0.2 file /usr/share/man/man1/pod2man.1.gz from install of perl-5.8.8-10.el5_2.3 conflicts with file from package perl-5.8.8-10.el5_0.2 file /usr/share/man/man1/pod2text.1.gz from install of perl-5.8.8-10.el5_2.3 conflicts with file from package perl-5.8.8-10.el5_0.2 file /usr/share/man/man1/pod2usage.1.gz from install of perl-5.8.8-10.el5_2.3 conflicts with file from package perl-5.8.8-10.el5_0.2 file /usr/share/man/man1/podchecker.1.gz from install of perl-5....

On Mon, Jul 01, 2019 at 06:10:48PM +0200, Pino Toscano wrote: > On Monday, 10 June 2019 17:35:52 CEST Richard W.M. Jones wrote: > > So while I'm not a massive fan of git submodules, now that I have used > > them a few times with riscv stuff, they do solve a certain problem as > > long as they are managed carefully. I think the common code and the > > generator are

...e argument name to its value (cast to Object). Pass an empty Map or null for no optional arguments." @@ -263,7 +263,7 @@ public class GuestFS { match deprecation_notice f with | None -> doc | Some txt -> doc ^ "\n\n" ^ txt in - let doc = pod2text ~width:60 name doc in + let doc = pod2text ~width:60 f.name doc in let doc = List.map ( (* RHBZ#501883 *) function | "" -> "<p>" @@ -272,19 +272,19 @@ public class GuestFS { let doc = String.concat "\n * " doc...

...t "" params in - pr " def %s (self%s):\n" name params in - let () = - let longdesc = Str.global_replace py_fn_rex "C<nbd." longdesc in - let longdesc = Str.global_replace py_const_rex "C<" longdesc in - let longdesc = pod2text longdesc in - pr " '''▶ %s\n\n%s'''\n" - shortdesc (String.concat "\n" longdesc) in - let () = - let vars = args @ List.map fst optargs in - let vars = List.map ((^) ", ") vars in - let vars = St...

...44 100644 --- a/.gitignore +++ b/.gitignore @@ -255,8 +255,11 @@ Makefile.in /fuse/test-guestunmount-fd /generator/.depend /generator/bytes.ml +/generator/common_utils.ml +/generator/common_utils.mli /generator/files-generated.txt /generator/generator +/generator/guestfs_config.ml /generator/.pod2text.data* /generator/stamp-generator /get-kernel/.depend diff --git a/dib/utils.ml b/dib/utils.ml index 3df5171..4026ee8 100644 --- a/dib/utils.ml +++ b/dib/utils.ml @@ -74,7 +74,7 @@ let digit_prefix_compare a b = let split_prefix str = let len = String.length str in let digits = -...

This doesn't yet work. However it does make me more convinced than ever that we really need to sort out persistent buffer lifetimes in the library (similar to what we did for closures). Rich.

--- generator/generator_gobject.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/generator/generator_gobject.ml b/generator/generator_gobject.ml index e4c175b..48ddbf0 100644 --- a/generator/generator_gobject.ml +++ b/generator/generator_gobject.ml @@ -391,7 +391,7 @@ let generate_gobject_optargs_source name optargs flags () = pr "G_DEFINE_TYPE(%s, guestfs_%s,

...52,14 @@ let translate_bad_symbols s = > else > s > > +(* output longdesc to the rust file *) > +let pr_longdesc name longdesc indent_depth = indent_depth seems always 1, so I'd say to hardcode this indentation level for now (it can be always changed). > + let l = pod2text name longdesc in Better specify a width, so indent + comment + text does not overflow the recommended line limit of 100 characters: https://rust-lang.github.io/rustc-guide/conventions.html#line-length > + List.iter (fun x -> > + indent indent_depth; > + pr "/// %s\n&qu...