From 9ee82d9d744de52916817412318f43f26960d719 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 21 Jan 2025 19:41:00 -0800
Subject: get-csv: rewrite in C.

* autload.c (csv_set_entries, csv_instantiate): Functions
removed.
(autoload_init): Autoload registration for stdlib/csv
removed.

* stdlib/csv.tl: File removed.

* stream.c (get_csv): New function.
(stream_init): Register get-csv intrinsic.

* stream.h (get_csv): Declared.
---
 autoload.c | 17 -----------------
 1 file changed, 17 deletions(-)

(limited to 'autoload.c')

diff --git a/autoload.c b/autoload.c
index 251707aa..dd1ef410 100644
--- a/autoload.c
+++ b/autoload.c
@@ -1020,22 +1020,6 @@ 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))
 {
@@ -1108,7 +1092,6 @@ 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));
 }
-- 
cgit v1.2.3