From 820a2cfd5d35de0c277fcb3471f0f3a63ef3bf70 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Mon, 1 Jan 2001 17:59:26 +0000
Subject: [PATCH] No longer needed in new FFI

---
 scsh/rx/re-low.c | 83 ------------------------------------------------
 1 file changed, 83 deletions(-)
 delete mode 100644 scsh/rx/re-low.c

diff --git a/scsh/rx/re-low.c b/scsh/rx/re-low.c
deleted file mode 100644
index 4f58bee..0000000
--- a/scsh/rx/re-low.c
+++ /dev/null
@@ -1,83 +0,0 @@
-/* This is an Scheme48/C interface file, 
-** automatically generated by a hacked version of cig 3.0.
-step 4
-*/
-
-#include <stdio.h>
-#include <stdlib.h> /* For malloc. */
-#include "libcig.h"
-
-/* Make sure foreign-function stubs interface to the C funs correctly: */
-#include <sys/types.h>
-#include "../regexp/regex.h"
-#include "re1.h"
-
-s48_value df_compile_re(s48_value g1, s48_value g2, s48_value mv_vec)
-{
-    extern int compile_re(s48_value , int , regex_t* *);
-    s48_value ret1 = S48_FALSE;
-    S48_DECLARE_GC_PROTECT(2);
-    int r1;
-    regex_t* r2 = 0;
-
-    
-    
-    S48_GC_PROTECT_2(mv_vec,ret1);
-    r1 = compile_re(g1, EXTRACT_BOOLEAN(g2), &r2);
-    ret1 = s48_enter_integer(r1);
-    SetAlienVal(S48_VECTOR_REF(mv_vec,0),(long) r2);//simple-assign
-    S48_GC_UNPROTECT();
-    return ret1;
-}
-
-s48_value df_re_search(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s48_value g5, s48_value g6, s48_value g7)
-{
-    extern s48_value re_search(const regex_t *, s48_value , int , s48_value , int , s48_value , s48_value );
-    s48_value ret1 = S48_FALSE;
-    S48_DECLARE_GC_PROTECT(1);
-    s48_value r1;
-
-    
-    
-    S48_GC_PROTECT_1(ret1);
-    r1 = re_search((const regex_t *)AlienVal(g1), g2, s48_extract_integer(g3), g4, s48_extract_integer(g5), g6, g7);
-    ret1 = r1;
-    S48_GC_UNPROTECT();
-    return ret1;
-}
-
-s48_value df_re_errint2str(s48_value g1, s48_value g2, s48_value mv_vec)
-{
-    extern const char *re_errint2str(int , const regex_t *);
-    s48_value ret1 = S48_FALSE;
-    S48_DECLARE_GC_PROTECT(2);
-    const char *r1;
-
-    
-    
-    S48_GC_PROTECT_2(mv_vec,ret1);
-    r1 = re_errint2str(s48_extract_integer(g1), (const regex_t *)AlienVal(g2));
-    ret1 = S48_VECTOR_REF(mv_vec,0);
-    SetAlienVal(S48_CAR(ret1),(long) r1); S48_SET_CDR(ret1,strlen_or_false(r1));//str-and-len
-    S48_GC_UNPROTECT();
-    return ret1;
-}
-
-s48_value df_free_re(s48_value g1)
-{
-    extern void free_re(regex_t* );
-
-    
-    free_re((regex_t* )AlienVal(g1));
-    return S48_FALSE;
-}
-
-s48_value s48_init_re_low(void)
-{
-    S48_EXPORT_FUNCTION(df_compile_re);
-    S48_EXPORT_FUNCTION(df_re_search);
-    S48_EXPORT_FUNCTION(df_re_errint2str);
-    S48_EXPORT_FUNCTION(df_free_re);
-
-    return S48_UNSPECIFIC;
-}