/* $Id: Str.c,v 1.1.1.1 2001/11/08 05:14:08 a-ito 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 <gc.h>#include <stdarg.h>#include <string.h>#ifdef __EMX__#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 */ StrStrnew(){    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;} StrStrnew_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;} StrStrnew_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;} StrStrnew_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;} StrStrnew_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;} StrStrdup(Str s){    Str n = Strnew_size(s->length);    STR_LENGTH_CHECK(s);    Strcopy(n, s);    return n;} voidStrclear(Str s){    s->length = 0;    s->ptr[0] = '\0';} voidStrfree(Str x){    GC_free(x->ptr);    GC_free(x);} voidStrcopy(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;} voidStrcopy_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;} voidStrcopy_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;} voidStrcat_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';} voidStrcat(Str x, Str y){    STR_LENGTH_CHECK(y);    Strcat_charp_n(x, y->ptr, y->length);} voidStrcat_charp(Str x, char *y){    if (y == NULL)	return;    Strcat_charp_n(x, y, strlen(y));} voidStrcat_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));} voidStrgrow(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);} StrStrsubstr(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;} voidStrlower(Str s){    int i;    STR_LENGTH_CHECK(s);    for (i = 0; i < s->length; i++)	s->ptr[i] = tolower(s->ptr[i]);} voidStrupper(Str s){    int i;    STR_LENGTH_CHECK(s);    for (i = 0; i < s->length; i++)	s->ptr[i] = toupper(s->ptr[i]);} voidStrchop(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';} voidStrinsert_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;} voidStrinsert_charp(Str s, int pos, char *p){    STR_LENGTH_CHECK(s);    while (*p)	Strinsert_char(s, pos++, *(p++));} voidStrdelete(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;} voidStrtruncate(Str s, int pos){    STR_LENGTH_CHECK(s);    s->ptr[pos] = '\0';    s->length = pos;} voidStrshrink(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';    }} voidStrremovefirstspaces(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);} voidStrremovetrailingspaces(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';} StrStralign_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;} StrStralign_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;} StrStralign_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 StrSprintf(char *fmt,...){    int len = 0;    int status = SP_NORMAL;    int p;    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 == '.')

Lines 1–500 of 556. Load more