stemmer4r 0.1

data/CVS/Entries

@@ -0,0 +1,5 @@
+/LICENSE/1.1.1.1/Wed May 11 07:39:26 2005//
+/README/1.1.1.1/Wed May 11 07:39:26 2005//
+/stemmer4r.gemspec/1.1.1.1/Wed May 11 07:39:26 2005//
+D/ext////
+D/test////

data/CVS/Repository

@@ -0,0 +1 @@
+stemmer4r

data/CVS/Root

@@ -0,0 +1 @@
+:ext:fabpot@rubyforge.org:/var/cvs/stemmer4r

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2005 Fabien POTENCIER
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be included
+in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY
+KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
+WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README

@@ -0,0 +1,9 @@
+This is stemmer4r, a Ruby extension that wraps the snowball stemmer library (libstemmer).
+
+For more information on libstemmer itself please refer to it's web page at:
+
+  http://snowball.tartarus.org/
+
+Please direct any questions to the author,
+
+Fabien POTENCIER <fabien.potencier@gmail.com>

data/ext/CVS/Entries

@@ -0,0 +1 @@
+D/stemmer4r////

data/ext/CVS/Repository

@@ -0,0 +1 @@
+stemmer4r/ext

data/ext/CVS/Root

@@ -0,0 +1 @@
+:ext:fabpot@rubyforge.org:/var/cvs/stemmer4r

data/ext/stemmer4r/CVS/Entries

@@ -0,0 +1,4 @@
+/depend/1.1.1.1/Wed May 11 07:39:26 2005//
+/extconf.rb/1.1.1.1/Wed May 11 07:39:26 2005//
+D/libstemmer_c////
+/stemmer4r.c/1.2/Wed May 11 06:57:38 2005//

data/ext/stemmer4r/CVS/Repository

@@ -0,0 +1 @@
+stemmer4r/ext/stemmer4r

data/ext/stemmer4r/CVS/Root

@@ -0,0 +1 @@
+:ext:fabpot@rubyforge.org:/var/cvs/stemmer4r

data/ext/stemmer4r/depend

@@ -0,0 +1,14 @@
+OBJS += libstemmer_c/libstemmer.o
+
+stemmer4r.so: libstemmer_c/libstemmer.o
+
+stemmer4r.o: stemmer4r.c /usr/local/ruby/lib/ruby/1.8/i686-linux/ruby.h \
+  /usr/local/ruby/lib/ruby/1.8/i686-linux/config.h \
+  /usr/local/ruby/lib/ruby/1.8/i686-linux/defines.h \
+  /usr/local/ruby/lib/ruby/1.8/i686-linux/missing.h \
+  /usr/local/ruby/lib/ruby/1.8/i686-linux/intern.h \
+  libstemmer_c/include/libstemmer.h
+
+libstemmer_c/libstemmer.o:
+	@$(MAKE) -C libstemmer_c
+

data/ext/stemmer4r/extconf.rb

@@ -0,0 +1,8 @@
+#!/usr/bin/ruby -w
+
+require 'mkmf'
+
+$CFLAGS << " -I #{File.dirname(__FILE__)}/libstemmer_c/include"
+
+#have_header('libstemmer.h')
+create_makefile 'stemmer4r'

data/ext/stemmer4r/libstemmer_c/CVS/Entries

@@ -0,0 +1,7 @@
+/MANIFEST/1.1.1.1/Wed May 11 07:39:26 2005//
+/Makefile/1.1.1.1/Wed May 11 07:39:26 2005//
+/mkinc.mak/1.1.1.1/Wed May 11 07:39:26 2005//
+D/include////
+D/libstemmer////
+D/runtime////
+D/src_c////

data/ext/stemmer4r/libstemmer_c/CVS/Repository

@@ -0,0 +1 @@
+stemmer4r/ext/stemmer4r/libstemmer_c

data/ext/stemmer4r/libstemmer_c/CVS/Root

@@ -0,0 +1 @@
+:ext:fabpot@rubyforge.org:/var/cvs/stemmer4r

data/ext/stemmer4r/libstemmer_c/MANIFEST

@@ -0,0 +1,39 @@
+src_c/stem_danish.c
+src_c/stem_danish.h
+src_c/stem_dutch.c
+src_c/stem_dutch.h
+src_c/stem_english.c
+src_c/stem_english.h
+src_c/stem_finnish.c
+src_c/stem_finnish.h
+src_c/stem_french.c
+src_c/stem_french.h
+src_c/stem_german.c
+src_c/stem_german.h
+src_c/stem_german2.c
+src_c/stem_german2.h
+src_c/stem_italian.c
+src_c/stem_italian.h
+src_c/stem_kraaij_pohlmann.c
+src_c/stem_kraaij_pohlmann.h
+src_c/stem_lovins.c
+src_c/stem_lovins.h
+src_c/stem_norwegian.c
+src_c/stem_norwegian.h
+src_c/stem_porter.c
+src_c/stem_porter.h
+src_c/stem_portuguese.c
+src_c/stem_portuguese.h
+src_c/stem_russian.c
+src_c/stem_russian.h
+src_c/stem_spanish.c
+src_c/stem_spanish.h
+src_c/stem_swedish.c
+src_c/stem_swedish.h
+runtime/api.c
+runtime/api.h
+runtime/header.h
+runtime/utilities.c
+libstemmer/libstemmer.c
+libstemmer/modules.h
+include/libstemmer.h

data/ext/stemmer4r/libstemmer_c/Makefile

@@ -0,0 +1,5 @@
+include mkinc.mak
+libstemmer.o: $(snowball_sources:.c=.o)
+	$(AR) -cru $@ $^
+clean:
+	rm -f *.o src_c/*.o runtime/*.o libstemmer/*.o

data/ext/stemmer4r/libstemmer_c/include/CVS/Entries

@@ -0,0 +1,2 @@
+/libstemmer.h/1.1.1.1/Wed May 11 07:39:26 2005//
+D

data/ext/stemmer4r/libstemmer_c/include/CVS/Repository

@@ -0,0 +1 @@
+stemmer4r/ext/stemmer4r/libstemmer_c/include

data/ext/stemmer4r/libstemmer_c/include/CVS/Root

@@ -0,0 +1 @@
+:ext:fabpot@rubyforge.org:/var/cvs/stemmer4r

data/ext/stemmer4r/libstemmer_c/include/libstemmer.h

@@ -0,0 +1,63 @@
+
+/* Make header file work when included from C++ */
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+struct sb_stemmer;
+typedef char sb_symbol;
+
+/* FIXME - should be able to get a version number for each stemming
+ * algorithm (which will be incremented each time the output changes). */
+
+/** Returns an array of the names of the available stemming algorithms.
+ *  Note that these are the canonical names - aliases (ie, other names for
+ *  the same algorithm) will not be included in the list.
+ *  The list is terminated with a null pointer.
+ *
+ *  The list must not be modified in any way.
+ */
+const char ** sb_stemmer_list(void);
+
+/** Create a new stemmer object, using the specified algorithm.
+ *
+ *  @return If the specified algorithm is not recognised, 0 will be 
+ *  returned; otherwise a pointer to a newly created stemmer for that
+ *  algorithm will be returned.
+ *
+ *  @note NULL will also be returned if an out of memory error occurs.
+ */
+struct sb_stemmer * sb_stemmer_new(const char * algorithm);
+
+/** Delete a stemmer object.
+ *
+ *  This frees all resources allocated for the stemmer.  After calling
+ *  this function, the supplied stemmer may no longer be used in any way.
+ *
+ *  It is safe to pass a null pointer to this function - this will have
+ *  no effect.
+ */
+void                sb_stemmer_delete(struct sb_stemmer * stemmer);
+
+/** Stem a word.
+ *
+ *  The return value is owned by the stemmer - it must not be freed or
+ *  modified, and it will become invalid when the stemmer is called again,
+ *  or if the stemmer is freed.
+ *
+ *  The length of the return value can be obtained using sb_stemmer_length().
+ *
+ *  If an out-of-memory error occurs, this will return NULL.
+ */
+const sb_symbol *   sb_stemmer_stem(struct sb_stemmer * stemmer,
+				    const sb_symbol * word, int size);
+
+/** Get the length of the result of the last stemmed word.
+ *  This should not be called before sb_stemmer_stem() has been called.
+ */
+int                 sb_stemmer_length(struct sb_stemmer * stemmer);
+
+#ifdef __cplusplus
+}
+#endif
+

data/ext/stemmer4r/libstemmer_c/libstemmer/CVS/Entries

@@ -0,0 +1,3 @@
+/libstemmer.c/1.1.1.1/Wed May 11 07:39:27 2005//
+/modules.h/1.1.1.1/Wed May 11 07:39:27 2005//
+D

data/ext/stemmer4r/libstemmer_c/libstemmer/CVS/Repository

@@ -0,0 +1 @@
+stemmer4r/ext/stemmer4r/libstemmer_c/libstemmer

data/ext/stemmer4r/libstemmer_c/libstemmer/CVS/Root

@@ -0,0 +1 @@
+:ext:fabpot@rubyforge.org:/var/cvs/stemmer4r

data/ext/stemmer4r/libstemmer_c/libstemmer/libstemmer.c

@@ -0,0 +1,78 @@
+
+#include <stdlib.h>
+#include <string.h>
+#include "../include/libstemmer.h"
+#include "../runtime/api.h"
+#include "modules.h"
+
+struct sb_stemmer {
+    struct SN_env * (*create)(void);
+    void (*close)(struct SN_env *);
+    int (*stem)(struct SN_env *);
+
+    struct SN_env * env;
+};
+
+extern const char **
+sb_stemmer_list(void)
+{
+    return algorithm_names;
+}
+
+extern struct sb_stemmer *
+sb_stemmer_new(const char * algorithm)
+{
+    struct stemmer_modules * module;
+    struct sb_stemmer * stemmer =
+	    (struct sb_stemmer *) malloc(sizeof(struct sb_stemmer));
+    if (stemmer == 0) return NULL;
+
+    for (module = modules; module->name != 0; module++) {
+	if (strcmp(module->name, algorithm) == 0) break;
+    }
+    if (module->name == 0) return NULL;
+    
+    stemmer->create = module->create;
+    stemmer->close = module->close;
+    stemmer->stem = module->stem;
+
+    stemmer->env = stemmer->create();
+    if (stemmer->env == NULL)
+    {
+        sb_stemmer_delete(stemmer);
+        return NULL;
+    }
+
+    return stemmer;
+}
+
+void
+sb_stemmer_delete(struct sb_stemmer * stemmer)
+{
+    if (stemmer == 0) return;
+    if (stemmer->close == 0) return;
+    stemmer->close(stemmer->env);
+    stemmer->close = 0;
+    free(stemmer);
+}
+
+const sb_symbol *
+sb_stemmer_stem(struct sb_stemmer * stemmer, const sb_symbol * word, int size)
+{
+    int ret;
+    if (SN_set_current(stemmer->env, size, word))
+    {
+        stemmer->env->l = 0;
+        return NULL;
+    }
+    ret = stemmer->stem(stemmer->env);
+    if (ret < 0) return NULL;
+    stemmer->env->p[stemmer->env->l] = 0;
+    return stemmer->env->p;
+}
+
+int
+sb_stemmer_length(struct sb_stemmer * stemmer)
+{
+    return stemmer->env->l;
+}

data/ext/stemmer4r/libstemmer_c/libstemmer/modules.h

@@ -0,0 +1,96 @@
+/* libstemmer/modules.h: List of stemming modules.
+ *
+ * This file is generated by mkmodules.pl from a list of module names.
+ * Do not edit manually.
+ *
+ * Modules included by this file are: danish, dutch, english, finnish, french,
+ * german, german2, italian, kraaij_pohlmann, lovins, norwegian, porter,
+ * portuguese, russian, spanish, swedish
+ */
+
+#include "../src_c/stem_danish.h"
+#include "../src_c/stem_dutch.h"
+#include "../src_c/stem_english.h"
+#include "../src_c/stem_finnish.h"
+#include "../src_c/stem_french.h"
+#include "../src_c/stem_german.h"
+#include "../src_c/stem_german2.h"
+#include "../src_c/stem_italian.h"
+#include "../src_c/stem_kraaij_pohlmann.h"
+#include "../src_c/stem_lovins.h"
+#include "../src_c/stem_norwegian.h"
+#include "../src_c/stem_porter.h"
+#include "../src_c/stem_portuguese.h"
+#include "../src_c/stem_russian.h"
+#include "../src_c/stem_spanish.h"
+#include "../src_c/stem_swedish.h"
+
+struct stemmer_modules {
+  const char * name;
+  struct SN_env * (*create)(void);
+  void (*close)(struct SN_env *);
+  int (*stem)(struct SN_env *);
+};
+static struct stemmer_modules modules[] = {
+  {"da", danish_create_env, danish_close_env, danish_stem},
+  {"dan", danish_create_env, danish_close_env, danish_stem},
+  {"danish", danish_create_env, danish_close_env, danish_stem},
+  {"de", german_create_env, german_close_env, german_stem},
+  {"deu", german_create_env, german_close_env, german_stem},
+  {"dut", dutch_create_env, dutch_close_env, dutch_stem},
+  {"dutch", dutch_create_env, dutch_close_env, dutch_stem},
+  {"en", english_create_env, english_close_env, english_stem},
+  {"eng", english_create_env, english_close_env, english_stem},
+  {"english", english_create_env, english_close_env, english_stem},
+  {"fi", finnish_create_env, finnish_close_env, finnish_stem},
+  {"fin", finnish_create_env, finnish_close_env, finnish_stem},
+  {"finnish", finnish_create_env, finnish_close_env, finnish_stem},
+  {"fr", french_create_env, french_close_env, french_stem},
+  {"fra", french_create_env, french_close_env, french_stem},
+  {"fre", french_create_env, french_close_env, french_stem},
+  {"french", french_create_env, french_close_env, french_stem},
+  {"ger", german_create_env, german_close_env, german_stem},
+  {"german", german_create_env, german_close_env, german_stem},
+  {"german2", german2_create_env, german2_close_env, german2_stem},
+  {"it", italian_create_env, italian_close_env, italian_stem},
+  {"ita", italian_create_env, italian_close_env, italian_stem},
+  {"italian", italian_create_env, italian_close_env, italian_stem},
+  {"kraaij_pohlmann", kraaij_pohlmann_create_env, kraaij_pohlmann_close_env, kraaij_pohlmann_stem},
+  {"lovins", lovins_create_env, lovins_close_env, lovins_stem},
+  {"nl", dutch_create_env, dutch_close_env, dutch_stem},
+  {"nld", dutch_create_env, dutch_close_env, dutch_stem},
+  {"no", norwegian_create_env, norwegian_close_env, norwegian_stem},
+  {"nor", norwegian_create_env, norwegian_close_env, norwegian_stem},
+  {"norwegian", norwegian_create_env, norwegian_close_env, norwegian_stem},
+  {"por", portuguese_create_env, portuguese_close_env, portuguese_stem},
+  {"porter", porter_create_env, porter_close_env, porter_stem},
+  {"portuguese", portuguese_create_env, portuguese_close_env, portuguese_stem},
+  {"pt", portuguese_create_env, portuguese_close_env, portuguese_stem},
+  {"ru", russian_create_env, russian_close_env, russian_stem},
+  {"rus", russian_create_env, russian_close_env, russian_stem},
+  {"russian", russian_create_env, russian_close_env, russian_stem},
+  {"spanish", spanish_create_env, spanish_close_env, spanish_stem},
+  {"sv", swedish_create_env, swedish_close_env, swedish_stem},
+  {"swe", swedish_create_env, swedish_close_env, swedish_stem},
+  {"swedish", swedish_create_env, swedish_close_env, swedish_stem},
+  {0,0,0,0}
+};
+static const char * algorithm_names[] = {
+  "danish", 
+  "dutch", 
+  "english", 
+  "finnish", 
+  "french", 
+  "german", 
+  "german2", 
+  "italian", 
+  "kraaij_pohlmann", 
+  "lovins", 
+  "norwegian", 
+  "porter", 
+  "portuguese", 
+  "russian", 
+  "spanish", 
+  "swedish", 
+  0
+};

data/ext/stemmer4r/libstemmer_c/mkinc.mak

@@ -0,0 +1,42 @@
+snowball_sources= \
+libstemmer/libstemmer.c \
+runtime/api.c \
+runtime/utilities.c \
+src_c/stem_danish.c \
+src_c/stem_dutch.c \
+src_c/stem_english.c \
+src_c/stem_finnish.c \
+src_c/stem_french.c \
+src_c/stem_german.c \
+src_c/stem_german2.c \
+src_c/stem_italian.c \
+src_c/stem_kraaij_pohlmann.c \
+src_c/stem_lovins.c \
+src_c/stem_norwegian.c \
+src_c/stem_porter.c \
+src_c/stem_portuguese.c \
+src_c/stem_russian.c \
+src_c/stem_spanish.c \
+src_c/stem_swedish.c \
+
+snowball_headers= \
+include/libstemmer.h \
+libstemmer/modules.h \
+runtime/api.h \
+runtime/header.h \
+src_c/stem_danish.h \
+src_c/stem_dutch.h \
+src_c/stem_english.h \
+src_c/stem_finnish.h \
+src_c/stem_french.h \
+src_c/stem_german.h \
+src_c/stem_german2.h \
+src_c/stem_italian.h \
+src_c/stem_kraaij_pohlmann.h \
+src_c/stem_lovins.h \
+src_c/stem_norwegian.h \
+src_c/stem_porter.h \
+src_c/stem_portuguese.h \
+src_c/stem_russian.h \
+src_c/stem_spanish.h \
+src_c/stem_swedish.h \

data/ext/stemmer4r/libstemmer_c/runtime/CVS/Entries

@@ -0,0 +1,5 @@
+/api.c/1.1.1.1/Wed May 11 07:39:27 2005//
+/api.h/1.1.1.1/Wed May 11 07:39:27 2005//
+/header.h/1.1.1.1/Wed May 11 07:39:27 2005//
+/utilities.c/1.1.1.1/Wed May 11 07:39:27 2005//
+D

data/ext/stemmer4r/libstemmer_c/runtime/CVS/Repository

@@ -0,0 +1 @@
+stemmer4r/ext/stemmer4r/libstemmer_c/runtime

data/ext/stemmer4r/libstemmer_c/runtime/CVS/Root

@@ -0,0 +1 @@
+:ext:fabpot@rubyforge.org:/var/cvs/stemmer4r

data/ext/stemmer4r/libstemmer_c/runtime/api.c

@@ -0,0 +1,69 @@
+
+#include <stdlib.h> /* for calloc, free */
+#include "header.h"
+
+extern struct SN_env * SN_create_env(int S_size, int I_size, int B_size)
+{
+    struct SN_env * z = (struct SN_env *) calloc(1, sizeof(struct SN_env));
+    if (z == NULL) return NULL;
+    z->p = create_s();
+    if (z->p == NULL) goto error;
+    if (S_size)
+    {
+        int i;
+        z->S = (symbol * *) calloc(S_size, sizeof(symbol *));
+        if (z->S == NULL) goto error;
+
+        for (i = 0; i < S_size; i++)
+        {
+            z->S[i] = create_s();
+            if (z->S[i] == NULL) goto error;
+        }
+        z->S_size = S_size;
+    }
+
+    if (I_size)
+    {
+        z->I = (int *) calloc(I_size, sizeof(int));
+        if (z->I == NULL) goto error;
+        z->I_size = I_size;
+    }
+
+    if (B_size)
+    {
+        z->B = (symbol *) calloc(B_size, sizeof(symbol));
+        if (z->B == NULL) goto error;
+        z->B_size = B_size;
+    }
+
+    return z;
+error:
+    SN_close_env(z);
+    return NULL;
+}
+
+extern void SN_close_env(struct SN_env * z)
+{
+    if (z == NULL) return;
+    if (z->S_size)
+    {
+        int i;
+        for (i = 0; i < z->S_size; i++)
+        {
+            lose_s(z->S[i]);
+        }
+        free(z->S);
+    }
+    if (z->I_size) free(z->I);
+    if (z->B_size) free(z->B);
+    if (z->p) lose_s(z->p);
+    free(z);
+}
+
+extern int SN_set_current(struct SN_env * z, int size, const symbol * s)
+{
+    int err = replace_s(z, 0, z->l, size, s, NULL);
+    z->c = 0;
+    return err;
+}
+

data/ext/stemmer4r/libstemmer_c/runtime/api.h

@@ -0,0 +1,27 @@
+
+typedef unsigned char symbol;
+
+/* Or replace 'char' above with 'short' for 16 bit characters.
+
+   More precisely, replace 'char' with whatever type guarantees the
+   character width you need. Note however that sizeof(symbol) should divide
+   HEAD, defined in header.h as 2*sizeof(int), without remainder, otherwise
+   there is an alignment problem. In the unlikely event of a problem here,
+   consult Martin Porter.
+
+*/
+
+struct SN_env {
+    symbol * p;
+    int c; int a; int l; int lb; int bra; int ket;
+    int S_size; int I_size; int B_size;
+    symbol * * S;
+    int * I;
+    symbol * B;
+};
+
+extern struct SN_env * SN_create_env(int S_size, int I_size, int B_size);
+extern void SN_close_env(struct SN_env * z);
+
+extern int SN_set_current(struct SN_env * z, int size, const symbol * s);
+

data/ext/stemmer4r/libstemmer_c/runtime/header.h

@@ -0,0 +1,56 @@
+
+#include <limits.h>
+
+#include "api.h"
+
+#define MAXINT INT_MAX
+#define MININT INT_MIN
+
+#define HEAD 2*sizeof(int)
+
+#define SIZE(p)        ((int *)(p))[-1]
+#define SET_SIZE(p, n) ((int *)(p))[-1] = n
+#define CAPACITY(p)    ((int *)(p))[-2]
+
+struct among
+{   int s_size;     /* number of chars in string */
+    symbol * s;       /* search string */
+    int substring_i;/* index to longest matching substring */
+    int result;     /* result of the lookup */
+    int (* function)(struct SN_env *);
+};
+
+extern symbol * create_s(void);
+extern void lose_s(symbol * p);
+
+extern int in_grouping(struct SN_env * z, unsigned char * s, int min, int max);
+extern int in_grouping_b(struct SN_env * z, unsigned char * s, int min, int max);
+extern int out_grouping(struct SN_env * z, unsigned char * s, int min, int max);
+extern int out_grouping_b(struct SN_env * z, unsigned char * s, int min, int max);
+
+extern int in_range(struct SN_env * z, int min, int max);
+extern int in_range_b(struct SN_env * z, int min, int max);
+extern int out_range(struct SN_env * z, int min, int max);
+extern int out_range_b(struct SN_env * z, int min, int max);
+
+extern int eq_s(struct SN_env * z, int s_size, symbol * s);
+extern int eq_s_b(struct SN_env * z, int s_size, symbol * s);
+extern int eq_v(struct SN_env * z, symbol * p);
+extern int eq_v_b(struct SN_env * z, symbol * p);
+
+extern int find_among(struct SN_env * z, struct among * v, int v_size);
+extern int find_among_b(struct SN_env * z, struct among * v, int v_size);
+
+extern int replace_s(struct SN_env * z, int c_bra, int c_ket, int s_size, const symbol * s, int * adjustment);
+extern int slice_from_s(struct SN_env * z, int s_size, symbol * s);
+extern int slice_from_v(struct SN_env * z, symbol * p);
+extern int slice_del(struct SN_env * z);
+
+extern int insert_s(struct SN_env * z, int bra, int ket, int s_size, symbol * s);
+extern int insert_v(struct SN_env * z, int bra, int ket, symbol * p);
+
+extern symbol * slice_to(struct SN_env * z, symbol * p);
+extern symbol * assign_to(struct SN_env * z, symbol * p);
+
+extern void debug(struct SN_env * z, int number, int line_count);
+