New function: get-csv.

* autloload.c (csv_set_entries, csv_instantiate): New
static funtions.
(autoload_init): Register autoload of stdlib/csv
module via new functions.

* stdlib/csv.tl: New file.

* tests/010/csv.tl: Likewise.

* txr.1: Documented.

1 files changed, 17 insertions, 0 deletions

diff --git a/autoload.c b/autoload.c
index dd1ef410..251707aa 100644
--- a/autoload.c
+++ b/autoload.c
@@ -1020,6 +1020,22 @@ static val enum_instantiate(void)
   return nil;
 }
 
+static val csv_set_entries(val fun)
+{
+  val name[] = {
+    lit("get-csv"),
+    nil
+  };
+  autoload_set(al_fun, name, fun);
+  return nil;
+}
+
+static val csv_instantiate(void)
+{
+  load(scat2(stdlib_path, lit("csv")));
+  return nil;
+}
+
 val autoload_reg(val (*instantiate)(void),
                  val (*set_entries)(val))
 {
@@ -1092,6 +1108,7 @@ void autoload_init(void)
   autoload_reg(csort_instantiate, csort_set_entries);
   autoload_reg(glob_instantiate, glob_set_entries);
   autoload_reg(enum_instantiate, enum_set_entries);
+  autoload_reg(csv_instantiate, csv_set_entries);
 
   reg_fun(intern(lit("autoload-try-fun"), system_package), func_n1(autoload_try_fun));
 }