Annotation of OpenXM_contrib2/asir2000/engine/str.c, Revision 1.1
1.1 ! noro 1: /* $OpenXM: OpenXM/src/asir99/engine/str.c,v 1.1.1.1 1999/11/10 08:12:26 noro Exp $ */
! 2: #include "ca.h"
! 3:
! 4: void addstr(vl,a,b,c)
! 5: VL vl;
! 6: STRING a,b;
! 7: STRING *c;
! 8: {
! 9: char *buf;
! 10:
! 11: buf = (char *)MALLOC(strlen(BDY(a))+strlen(BDY(b))+1);
! 12: sprintf(buf,"%s%s",BDY(a),BDY(b));
! 13: MKSTR(*c,buf);
! 14: }
! 15:
! 16: int compstr(vl,a,b)
! 17: VL vl;
! 18: STRING a,b;
! 19: {
! 20: return a ? (b?strcmp(BDY(a),BDY(b)):1) : (b?-1:0);
! 21: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>