Mercurial > octave-nkf
changeset 17256:ee1d19174316
doc: Use 0x1d as record separator for joint compatibility with Texinfo 4.x and 5.x.
* doc/interpreter/mk_doc_cache.m, doc/interpreter/munge-texi.pl,
libinterp/corefcn/help.cc(install_built_in_docstrings), libinterp/gendoc.pl,
scripts/mkdoc.pl: Use 0x1d as record separator.
| author | Rik <rik@octave.org> |
|---|---|
| date | Thu, 15 Aug 2013 12:31:22 -0700 |
| parents | a28c0d73e253 |
| children | ce55a8575874 |
| files | doc/interpreter/mk_doc_cache.m doc/interpreter/munge-texi.pl libinterp/corefcn/help.cc libinterp/gendoc.pl scripts/mkdoc.pl |
| diffstat | 5 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/doc/interpreter/mk_doc_cache.m Thu Aug 15 12:27:37 2013 -0700 +++ b/doc/interpreter/mk_doc_cache.m Thu Aug 15 12:31:22 2013 -0700 @@ -24,7 +24,7 @@ docstrings_files = args(2:end); ## Special character used as break between DOCSTRINGS -doc_delim = char (0x1e); +doc_delim = char (0x1d); ## Read the contents of all the DOCSTRINGS files into TEXT. ## It is more efficient to fork to shell for makeinfo only once on large data
--- a/doc/interpreter/munge-texi.pl Thu Aug 15 12:27:37 2013 -0700 +++ b/doc/interpreter/munge-texi.pl Thu Aug 15 12:31:22 2013 -0700 @@ -6,7 +6,7 @@ $top_srcdir = shift (@ARGV); # Constant patterns -$doc_delim = qr/^\x{1e}/; +$doc_delim = qr/^\x{1d}/; $tex_delim = qr/\Q-*- texinfo -*-\E/; $comment_line = qr/^\s*(?:$|#)/; # Pre-declare hash size for efficiency
--- a/libinterp/corefcn/help.cc Thu Aug 15 12:27:37 2013 -0700 +++ b/libinterp/corefcn/help.cc Thu Aug 15 12:31:22 2013 -0700 @@ -967,7 +967,7 @@ if (file) { // Ignore header; - file.ignore (1000, 0x1e); + file.ignore (1000, 0x1d); if (file.gcount () == 1000) { @@ -988,7 +988,7 @@ while (! file.eof ()) { - file.getline (buf, bufsize, 0x1e); + file.getline (buf, bufsize, 0x1d); std::string tmp (buf);
--- a/libinterp/gendoc.pl Thu Aug 15 12:27:37 2013 -0700 +++ b/libinterp/gendoc.pl Thu Aug 15 12:31:22 2013 -0700 @@ -64,7 +64,7 @@ foreach $i (0 .. $#func_list) { $func = $func_list[$i]; - print "\x{1e}$func\n"; + print "\x{1d}$func\n"; print "\@c $func $src_fname\n"; print $docstr[$i],"\n"; }
--- a/scripts/mkdoc.pl Thu Aug 15 12:27:37 2013 -0700 +++ b/scripts/mkdoc.pl Thu Aug 15 12:31:22 2013 -0700 @@ -52,7 +52,7 @@ @help_txt = gethelp ($fcn, $full_fname); next MFILE if ($help_txt[0] eq ""); - print "\x{1e}$fcn\n"; + print "\x{1d}$fcn\n"; print "\@c $fcn scripts/$m_fname\n"; foreach $_ (@help_txt)