File: [local] / OpenXM_contrib2 / asir2000 / engine / str.c (download)
Revision 1.1.1.1 (vendor branch), Fri Dec 3 07:39:08 1999 UTC (24 years, 7 months ago) by noro
Branch: NORO
CVS Tags: RELEASE_20000124, RELEASE_1_1_2, ASIR2000 Changes since 1.1: +0 -0
lines
Imported asir2000 as OpenXM_contrib2/asir2000.
|
/* $OpenXM: OpenXM_contrib2/asir2000/engine/str.c,v 1.1.1.1 1999/12/03 07:39:08 noro Exp $ */
#include "ca.h"
void addstr(vl,a,b,c)
VL vl;
STRING a,b;
STRING *c;
{
char *buf;
buf = (char *)MALLOC(strlen(BDY(a))+strlen(BDY(b))+1);
sprintf(buf,"%s%s",BDY(a),BDY(b));
MKSTR(*c,buf);
}
int compstr(vl,a,b)
VL vl;
STRING a,b;
{
return a ? (b?strcmp(BDY(a),BDY(b)):1) : (b?-1:0);
}