boot/ficl/words.c

2580     FICL_STRING *sp = (FICL_STRING *)(pVM->ip);
2582     char *cp = sp->text;
2583     cp += sp->count + 1;
2587     stackPushPtr(pVM->pStack, sp);
2598         FICL_STRING *sp = (FICL_STRING *) dp->here;
2599         vmGetString(pVM, sp, '\"');
2600         stackPushPtr(pVM->pStack, sp);
2602 		dictAllot(dp, sp->count + sizeof(FICL_COUNT));
2627     FICL_STRING *sp;
2634     sp = (FICL_STRING *)(pVM->ip);
2635     count = sp->count;
2636     cp = sp->text;
2911     FICL_STRING *sp = PTRtoSTRING pVM->pad;
2912     sp->count = 0;
2926     FICL_STRING *sp;
2933     sp = PTRtoSTRING pVM->pad;
2936     sp->text[sp->count++] = digit_to_char(rem);
2949     FICL_STRING *sp;
2954     sp = PTRtoSTRING pVM->pad;
2955     sp->text[sp->count] = 0;
2956     strrev(sp->text);
2958     PUSHPTR(sp->text);
2959     PUSHUNS(sp->count);
2972     FICL_STRING *sp;
2979     sp = PTRtoSTRING pVM->pad;
2985         sp->text[sp->count++] = digit_to_char(rem);
3000     FICL_STRING *sp;
3006     sp = PTRtoSTRING pVM->pad;
3008     sp->text[sp->count++] = (char) i;
3020     FICL_STRING *sp;
3026     sp = PTRtoSTRING pVM->pad;
3029         sp->text[sp->count++] = '-';
3362     FICL_STRING *sp;
3367     sp = POPPTR();
3368     PUSHPTR(sp->text);
3369     PUSHUNS(sp->count);
3462         FICL_STRING *sp = (FICL_STRING *) dp->here;
3463         vmGetString(pVM, sp, '\"');
3464         PUSHPTR(sp->text);
3465         PUSHUNS(sp->count);
3521     FICL_STRING *sp;
3528     sp = (FICL_STRING *)pVM->pad;
3535     sp->count = (FICL_COUNT)SI_COUNT(si);
3536     strncpy(sp->text, SI_PTR(si), SI_COUNT(si));
3538     sp->text[sp->count] = 0;
3539     strcat(sp->text, " ");
3541     PUSHPTR(sp);
3663     FICL_STRING *sp;
3669     sp = POPPTR();
3670     SI_PFS(si, sp);
3671     do_find(pVM, si, sp);