From a32000612a4e63624835df9fdee20b0475865087 Mon Sep 17 00:00:00 2001
From: Tomek Kurcz <tomsandbox@gmail.com>
Date: Thu, 31 Aug 2017 09:43:26 +0200
Subject: [PATCH] texinfo: Port Reader from the old doc

---
 src/doc/new-doc/standards/index.txi  |  6 ++----
 src/doc/new-doc/standards/reader.txi | 26 ++++++++++++++++++++++++++
 2 files changed, 28 insertions(+), 4 deletions(-)
 create mode 100644 src/doc/new-doc/standards/reader.txi

diff --git a/src/doc/new-doc/standards/index.txi b/src/doc/new-doc/standards/index.txi
index 381d41cb3..d0acd99ca 100644
--- a/src/doc/new-doc/standards/index.txi
+++ b/src/doc/new-doc/standards/index.txi
@@ -24,7 +24,7 @@
 * Files::
 * Streams::
 * Printer::
-@c * Reader::
+* Reader::
 @c * System construction::
 @c * Environment::
 @c * Glossary::
@@ -84,9 +84,7 @@
 @include standards/files.txi
 @include standards/streams.txi
 @include standards/printer.txi
-
-@c @node Reader
-@c @section Reader
+@include standards/reader.txi
 @c @c #$ - random state
 
 @c @node System construction
diff --git a/src/doc/new-doc/standards/reader.txi b/src/doc/new-doc/standards/reader.txi
new file mode 100644
index 000000000..182231aed
--- /dev/null
+++ b/src/doc/new-doc/standards/reader.txi
@@ -0,0 +1,26 @@
+@node Reader
+@section Reader
+
+@subsection C Reference
+
+@subsubsection ANSI Dictionary
+Common Lisp and C equivalence
+
+@subsubheading Synopsis
+
+@multitable @columnfractions .3 .7
+@headitem Lisp symbol @tab C function
+@item @clhs{f_cp_rdt.htm,copy-readtable} @tab cl_object cl_copy_readtable(cl_narg narg, ...)
+@item @clhs{f_mk_dis.htm,make-dispatch-macro-character} @tab cl_object cl_make_dispatch_macro_character(cl_narg narg, cl_object char, ...)
+@item @clhs{f_rd_rd.htm,read} @tab cl_object cl_read(cl_narg narg, ...)
+@item @clhs{f_rd_rd.htm,read-preerving-whitespace} @tab cl_object cl_read_preserving_whitespace(cl_narg narg, ...)
+@item @clhs{f_rd_de1.htm,read-delimited-list} @tab cl_object cl_read_delimited_list(cl_narg narg, cl_object char, ...)
+@item @clhs{f_rd_fro.htm,read-from-string} @tab cl_object cl_read_from_string(cl_narg narg, cl_object string, ...)
+@item @clhs{f_rdtab1.htm,readtable-case} @tab cl_object cl_readtable_case(cl_object readtable)
+@item @clhs{f_rdta_1.htm,readtablep} @tab cl_object cl_readtablep(cl_object object)
+@item @clhs{f_set__1.htm,get-dispatch-macro-character} @tab cl_object cl_get_dispatch_macro_character(cl_narg narg, cl_object disp_char, cl_object sub_char, ...)
+@item @clhs{f_set__1.htm,set-dispatch-macro-character} @tab cl_object cl_set_dispatch_macro_character(cl_narg narg, cl_object disp_char, cl_object sub_char, cl_object function, ...)
+@item @clhs{f_set_ma.htm,get-macro-character} @tab cl_object cl_get_macro_character(cl_narg narg, cl_object char, ...)
+@item @clhs{f_set_ma.htm,set-macro-character} @tab cl_object cl_set_macro_character(cl_narg narg, cl_object char, cl_object function, ...)
+@item @clhs{f_set_sy.htm,set-syntax-from-char} @tab cl_object cl_set_syntax_from_char(cl_narg narg, cl_object to_char, cl_object from_char, ...)
+@end multitable