Return to str.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

Annotation of OpenXM_contrib2/asir2000/engine/str.c, Revision 1.1.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: }