Releasing debian version 0.5.1-1debian/0.5.1-1

1 files changed, 557 insertions, 0 deletions

diff --git a/Str.c b/Str.c
new file mode 100644
index 0000000..e5a0982
--- /dev/null
+++ b/Str.c
@@ -0,0 +1,557 @@
+/* $Id: Str.c,v 1.8 2002/12/24 17:20:46 ukai Exp $ */
+/* 
+ * String manipulation library for Boehm GC
+ *
+ * (C) Copyright 1998-1999 by Akinori Ito
+ *
+ * This software may be redistributed freely for this purpose, in full 
+ * or in part, provided that this entire copyright notice is included 
+ * on any copies of this software and applications and derivations thereof.
+ *
+ * This software is provided on an "as is" basis, without warranty of any
+ * kind, either expressed or implied, as to any matter including, but not
+ * limited to warranty of fitness of purpose, or merchantability, or
+ * results obtained from use of this software.
+ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <gc.h>
+#include <stdarg.h>
+#include <string.h>
+#ifdef __EMX__			/* or include "fm.h" for HAVE_BCOPY? */
+#include <strings.h>
+#endif
+#include "Str.h"
+#include "myctype.h"
+
+#define INITIAL_STR_SIZE 32
+
+#ifdef STR_DEBUG
+/* This is obsolete, because "Str" can handle a '\0' character now. */
+#define STR_LENGTH_CHECK(x) if (((x)->ptr==0&&(x)->length!=0)||(strlen((x)->ptr)!=(x)->length))abort();
+#else				/* not STR_DEBUG */
+#define STR_LENGTH_CHECK(x)
+#endif				/* not STR_DEBUG */
+
+Str
+Strnew()
+{
+    Str x = GC_MALLOC(sizeof(struct _Str));
+    x->ptr = GC_MALLOC_ATOMIC(INITIAL_STR_SIZE);
+    x->ptr[0] = '\0';
+    x->area_size = INITIAL_STR_SIZE;
+    x->length = 0;
+    return x;
+}
+
+Str
+Strnew_size(int n)
+{
+    Str x = GC_MALLOC(sizeof(struct _Str));
+    x->ptr = GC_MALLOC_ATOMIC(n + 1);
+    x->ptr[0] = '\0';
+    x->area_size = n + 1;
+    x->length = 0;
+    return x;
+}
+
+Str
+Strnew_charp(char *p)
+{
+    Str x;
+    int n;
+
+    if (p == NULL)
+	return Strnew();
+    x = GC_MALLOC(sizeof(struct _Str));
+    n = strlen(p) + 1;
+    x->ptr = GC_MALLOC_ATOMIC(n);
+    x->area_size = n;
+    x->length = n - 1;
+    bcopy((void *)p, (void *)x->ptr, n);
+    return x;
+}
+
+Str
+Strnew_m_charp(char *p, ...)
+{
+    va_list ap;
+    Str r = Strnew();
+
+    va_start(ap, p);
+    while (p != NULL) {
+	Strcat_charp(r, p);
+	p = va_arg(ap, char *);
+    }
+    return r;
+}
+
+Str
+Strnew_charp_n(char *p, int n)
+{
+    Str x;
+
+    if (p == NULL)
+	return Strnew_size(n);
+    x = GC_MALLOC(sizeof(struct _Str));
+    x->ptr = GC_MALLOC_ATOMIC(n + 1);
+    x->area_size = n + 1;
+    x->length = n;
+    bcopy((void *)p, (void *)x->ptr, n);
+    x->ptr[n] = '\0';
+    return x;
+}
+
+Str
+Strdup(Str s)
+{
+    Str n = Strnew_size(s->length);
+    STR_LENGTH_CHECK(s);
+    Strcopy(n, s);
+    return n;
+}
+
+void
+Strclear(Str s)
+{
+    s->length = 0;
+    s->ptr[0] = '\0';
+}
+
+void
+Strfree(Str x)
+{
+    GC_free(x->ptr);
+    GC_free(x);
+}
+
+void
+Strcopy(Str x, Str y)
+{
+    STR_LENGTH_CHECK(x);
+    STR_LENGTH_CHECK(y);
+    if (x->area_size < y->length + 1) {
+	GC_free(x->ptr);
+	x->ptr = GC_MALLOC_ATOMIC(y->length + 1);
+	x->area_size = y->length + 1;
+    }
+    bcopy((void *)y->ptr, (void *)x->ptr, y->length + 1);
+    x->length = y->length;
+}
+
+void
+Strcopy_charp(Str x, char *y)
+{
+    int len;
+
+    STR_LENGTH_CHECK(x);
+    if (y == NULL) {
+	x->length = 0;
+	return;
+    }
+    len = strlen(y);
+    if (x->area_size < len + 1) {
+	GC_free(x->ptr);
+	x->ptr = GC_MALLOC_ATOMIC(len + 1);
+	x->area_size = len + 1;
+    }
+    bcopy((void *)y, (void *)x->ptr, len + 1);
+    x->length = len;
+}
+
+void
+Strcopy_charp_n(Str x, char *y, int n)
+{
+    int len = n;
+
+    STR_LENGTH_CHECK(x);
+    if (y == NULL) {
+	x->length = 0;
+	return;
+    }
+    if (x->area_size < len + 1) {
+	GC_free(x->ptr);
+	x->ptr = GC_MALLOC_ATOMIC(len + 1);
+	x->area_size = len + 1;
+    }
+    bcopy((void *)y, (void *)x->ptr, n);
+    x->ptr[n] = '\0';
+    x->length = n;
+}
+
+void
+Strcat_charp_n(Str x, char *y, int n)
+{
+    int newlen;
+
+    STR_LENGTH_CHECK(x);
+    if (y == NULL)
+	return;
+    newlen = x->length + n + 1;
+    if (x->area_size < newlen) {
+	char *old = x->ptr;
+	newlen = newlen * 3 / 2;
+	x->ptr = GC_MALLOC_ATOMIC(newlen);
+	x->area_size = newlen;
+	bcopy((void *)old, (void *)x->ptr, x->length);
+	GC_free(old);
+    }
+    bcopy((void *)y, (void *)&x->ptr[x->length], n);
+    x->length += n;
+    x->ptr[x->length] = '\0';
+}
+
+void
+Strcat(Str x, Str y)
+{
+    STR_LENGTH_CHECK(y);
+    Strcat_charp_n(x, y->ptr, y->length);
+}
+
+void
+Strcat_charp(Str x, char *y)
+{
+    if (y == NULL)
+	return;
+    Strcat_charp_n(x, y, strlen(y));
+}
+
+void
+Strcat_m_charp(Str x, ...)
+{
+    va_list ap;
+    char *p;
+
+    va_start(ap, x);
+    while ((p = va_arg(ap, char *)) != NULL)
+	 Strcat_charp_n(x, p, strlen(p));
+}
+
+void
+Strgrow(Str x)
+{
+    char *old = x->ptr;
+    int newlen;
+    newlen = x->length * 6 / 5;
+    if (newlen == x->length)
+	newlen += 2;
+    x->ptr = GC_MALLOC_ATOMIC(newlen);
+    x->area_size = newlen;
+    bcopy((void *)old, (void *)x->ptr, x->length);
+    GC_free(old);
+}
+
+Str
+Strsubstr(Str s, int beg, int len)
+{
+    Str new_s;
+    int i;
+
+    STR_LENGTH_CHECK(s);
+    new_s = Strnew();
+    if (beg >= s->length)
+	return new_s;
+    for (i = 0; i < len && beg + i < s->length; i++)
+	Strcat_char(new_s, s->ptr[beg + i]);
+    return new_s;
+}
+
+void
+Strlower(Str s)
+{
+    int i;
+    STR_LENGTH_CHECK(s);
+    for (i = 0; i < s->length; i++)
+	s->ptr[i] = TOLOWER(s->ptr[i]);
+}
+
+void
+Strupper(Str s)
+{
+    int i;
+    STR_LENGTH_CHECK(s);
+    for (i = 0; i < s->length; i++)
+	s->ptr[i] = TOUPPER(s->ptr[i]);
+}
+
+void
+Strchop(Str s)
+{
+    STR_LENGTH_CHECK(s);
+    while ((s->ptr[s->length - 1] == '\n' || s->ptr[s->length - 1] == '\r') &&
+	   s->length > 0) {
+	s->length--;
+    }
+    s->ptr[s->length] = '\0';
+}
+
+void
+Strinsert_char(Str s, int pos, char c)
+{
+    int i;
+    STR_LENGTH_CHECK(s);
+    if (pos < 0 || s->length < pos)
+	return;
+    if (s->length + 2 > s->area_size)
+	Strgrow(s);
+    for (i = s->length; i > pos; i--)
+	s->ptr[i] = s->ptr[i - 1];
+    s->ptr[++s->length] = '\0';
+    s->ptr[pos] = c;
+}
+
+void
+Strinsert_charp(Str s, int pos, char *p)
+{
+    STR_LENGTH_CHECK(s);
+    while (*p)
+	Strinsert_char(s, pos++, *(p++));
+}
+
+void
+Strdelete(Str s, int pos, int n)
+{
+    int i;
+    STR_LENGTH_CHECK(s);
+    if (s->length <= pos + n) {
+	s->ptr[pos] = '\0';
+	s->length = pos;
+	return;
+    }
+    for (i = pos; i < s->length - n; i++)
+	s->ptr[i] = s->ptr[i + n];
+    s->ptr[i] = '\0';
+    s->length = i;
+}
+
+void
+Strtruncate(Str s, int pos)
+{
+    STR_LENGTH_CHECK(s);
+    s->ptr[pos] = '\0';
+    s->length = pos;
+}
+
+void
+Strshrink(Str s, int n)
+{
+    STR_LENGTH_CHECK(s);
+    if (n >= s->length) {
+	s->length = 0;
+	s->ptr[0] = '\0';
+    }
+    else {
+	s->length -= n;
+	s->ptr[s->length] = '\0';
+    }
+}
+
+void
+Strremovefirstspaces(Str s)
+{
+    int i;
+
+    STR_LENGTH_CHECK(s);
+    for (i = 0; i < s->length && IS_SPACE(s->ptr[i]); i++) ;
+    if (i == 0)
+	return;
+    Strdelete(s, 0, i);
+}
+
+void
+Strremovetrailingspaces(Str s)
+{
+    int i;
+
+    STR_LENGTH_CHECK(s);
+    for (i = s->length - 1; i >= 0 && IS_SPACE(s->ptr[i]); i--) ;
+    s->length = i + 1;
+    s->ptr[i + 1] = '\0';
+}
+
+Str
+Stralign_left(Str s, int width)
+{
+    Str n;
+    int i;
+
+    STR_LENGTH_CHECK(s);
+    if (s->length >= width)
+	return Strdup(s);
+    n = Strnew_size(width);
+    Strcopy(n, s);
+    for (i = s->length; i < width; i++)
+	Strcat_char(n, ' ');
+    return n;
+}
+
+Str
+Stralign_right(Str s, int width)
+{
+    Str n;
+    int i;
+
+    STR_LENGTH_CHECK(s);
+    if (s->length >= width)
+	return Strdup(s);
+    n = Strnew_size(width);
+    for (i = s->length; i < width; i++)
+	Strcat_char(n, ' ');
+    Strcat(n, s);
+    return n;
+}
+
+Str
+Stralign_center(Str s, int width)
+{
+    Str n;
+    int i, w;
+
+    STR_LENGTH_CHECK(s);
+    if (s->length >= width)
+	return Strdup(s);
+    n = Strnew_size(width);
+    w = (width - s->length) / 2;
+    for (i = 0; i < w; i++)
+	Strcat_char(n, ' ');
+    Strcat(n, s);
+    for (i = w + s->length; i < width; i++)
+	Strcat_char(n, ' ');
+    return n;
+}
+
+#define SP_NORMAL 0
+#define SP_PREC   1
+#define SP_PREC2  2
+
+Str
+Sprintf(char *fmt, ...)
+{
+    int len = 0;
+    int status = SP_NORMAL;
+    int p = 0;
+    char *f;
+    Str s;
+    va_list ap;
+
+    va_start(ap, fmt);
+    for (f = fmt; *f; f++) {
+      redo:
+	switch (status) {
+	case SP_NORMAL:
+	    if (*f == '%') {
+		status = SP_PREC;
+		p = 0;
+	    }
+	    else
+		len++;
+	    break;
+	case SP_PREC:
+	    if (IS_ALPHA(*f)) {
+		/* conversion char. */
+		double vd;
+		int vi;
+		char *vs;
+		void *vp;
+
+		switch (*f) {
+		case 'l':
+		case 'h':
+		case 'L':
+		case 'w':
+		    continue;
+		case 'd':
+		case 'i':
+		case 'o':
+		case 'x':
+		case 'X':
+		case 'u':
+		    vi = va_arg(ap, int);
+		    len += (p > 0) ? p : 10;
+		    break;
+		case 'f':
+		case 'g':
+		case 'e':
+		case 'G':
+		case 'E':
+		    vd = va_arg(ap, double);
+		    len += (p > 0) ? p : 15;
+		    break;
+		case 'c':
+		    len += 1;
+		    vi = va_arg(ap, int);
+		    break;
+		case 's':
+		    vs = va_arg(ap, char *);
+		    vi = strlen(vs);
+		    len += (p > vi) ? p : vi;
+		    break;
+		case 'p':
+		    vp = va_arg(ap, void *);
+		    len += 10;
+		    break;
+		case 'n':
+		    vp = va_arg(ap, void *);
+		    break;
+		}
+		status = SP_NORMAL;
+	    }
+	    else if (IS_DIGIT(*f))
+		p = p * 10 + *f - '0';
+	    else if (*f == '.')
+		status = SP_PREC2;
+	    else if (*f == '%') {
+		status = SP_NORMAL;
+		len++;
+	    }
+	    break;
+	case SP_PREC2:
+	    if (IS_ALPHA(*f)) {
+		status = SP_PREC;
+		goto redo;
+	    }
+	    break;
+	}
+    }
+    va_end(ap);
+    s = Strnew_size(len * 2);
+    va_start(ap, fmt);
+    vsprintf(s->ptr, fmt, ap);
+    va_end(ap);
+    s->length = strlen(s->ptr);
+    if (s->length > len * 2) {
+	fprintf(stderr, "Sprintf: string too long\n");
+	exit(1);
+    }
+    return s;
+}
+
+Str
+Strfgets(FILE * f)
+{
+    Str s = Strnew();
+    char c;
+    while (1) {
+	c = fgetc(f);
+	if (feof(f) || ferror(f))
+	    break;
+	Strcat_char(s, c);
+	if (c == '\n')
+	    break;
+    }
+    return s;
+}
+
+Str
+Strfgetall(FILE * f)
+{
+    Str s = Strnew();
+    char c;
+    while (1) {
+	c = fgetc(f);
+	if (feof(f) || ferror(f))
+	    break;
+	Strcat_char(s, c);
+    }
+    return s;
+}