Return to str.c CVS log | Up to [local] / OpenXM_contrib2 / asir2000 / engine |
File: [local] / OpenXM_contrib2 / asir2000 / engine / str.c (download)
Revision 1.1, Fri Dec 3 07:39:08 1999 UTC (24 years, 5 months ago) by noro
Initial revision |
/* $OpenXM: OpenXM_contrib2/asir2000/engine/str.c,v 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); }