version 1.60, 2020/06/26 15:57:39 |
version 1.61, 2020/07/01 13:26:54 |
|
|
|
|
x = execute(a[0]); |
x = execute(a[0]); |
n1 = strlen(getsval(x)); |
n1 = strlen(getsval(x)); |
|
adjbuf(&s, &ssz, n1, recsize, 0, "cat1"); |
|
memcpy(s, x->sval, n1); |
|
|
y = execute(a[1]); |
y = execute(a[1]); |
n2 = strlen(getsval(y)); |
n2 = strlen(getsval(y)); |
|
adjbuf(&s, &ssz, n1 + n2 + 1, recsize, 0, "cat2"); |
adjbuf(&s, &ssz, n1 + n2 + 1, recsize, 0, "cat"); |
|
memcpy(s, x->sval, n1); |
|
memcpy(s + n1, y->sval, n2); |
memcpy(s + n1, y->sval, n2); |
s[n1 + n2] = '\0'; |
s[n1 + n2] = '\0'; |
|
|