From d13d8a046838ce3d0e2643bb5b49f2ff77d679ca Mon Sep 17 00:00:00 2001
From: Marc Horowitz <marc@mit.edu>
Date: Wed, 1 Nov 1989 20:02:01 +0000
Subject: Initial revision

---
 zwgc/character_class.c | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 zwgc/character_class.c

(limited to 'zwgc/character_class.c')

diff --git a/zwgc/character_class.c b/zwgc/character_class.c
new file mode 100644
index 0000000..4c50a5b
--- /dev/null
+++ b/zwgc/character_class.c
@@ -0,0 +1,16 @@
+#include "character_class.h"
+
+static character_class cache;
+
+character_class *string_to_character_class(str)
+     string str;
+{
+    int i;
+
+    bzero(cache, sizeof(cache));
+
+    for (i=0; i<strlen(str); i++)
+      cache[str[i]] = 1;
+
+    return(&cache);
+}
-- 
cgit v1.2.3