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     ! 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: }