# HG changeset patch
# User Rik <rik@octave.org>
# Date 1376595082 25200
# Node ID ee1d19174316b38e9487eec84e770ca09c8c27b5
# Parent  a28c0d73e2532c0ce1f7de54763bedc9f77e5694
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.

diff -r a28c0d73e253 -r ee1d19174316 doc/interpreter/mk_doc_cache.m
--- 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
diff -r a28c0d73e253 -r ee1d19174316 doc/interpreter/munge-texi.pl
--- 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
diff -r a28c0d73e253 -r ee1d19174316 libinterp/corefcn/help.cc
--- 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);
 
diff -r a28c0d73e253 -r ee1d19174316 libinterp/gendoc.pl
--- 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";
   }
diff -r a28c0d73e253 -r ee1d19174316 scripts/mkdoc.pl
--- 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)