Cross Reference: /illumos-gate/usr/src/common/ficl/primitives.c

Lines Matching refs:counted
895  * runtime for a precompiled parse step - pop a counted string off the
1282 		ficlCountedString *counted = (ficlCountedString *)
1285 		ficlVmGetString(vm, counted, '\"');
1286 		ficlStackPushPointer(vm->dataStack, counted);
1292 		    counted->length + sizeof (ficlUnsigned8));
1521 	ficlCountedString *counted = FICL_POINTER_TO_COUNTED_STRING(vm->pad);
1522 	counted->length = 0;
1536 	ficlCountedString *counted;
1542 	counted = FICL_POINTER_TO_COUNTED_STRING(vm->pad);
1545 	counted->text[counted->length++] = ficlDigitToCharacter(uqr.remainder);
1558 	ficlCountedString *counted;
1562 	counted = FICL_POINTER_TO_COUNTED_STRING(vm->pad);
1563 	counted->text[counted->length] = 0;
1564 	ficlStringReverse(counted->text);
1566 	ficlStackPushPointer(vm->dataStack, counted->text);
1567 	ficlStackPushUnsigned(vm->dataStack, counted->length);
1580 	ficlCountedString *counted;
1586 	counted = FICL_POINTER_TO_COUNTED_STRING(vm->pad);
1591 		counted->text[counted->length++] =
1608 	ficlCountedString *counted;
1613 	counted = FICL_POINTER_TO_COUNTED_STRING(vm->pad);
1615 	counted->text[counted->length++] = (char)i;
1627 	ficlCountedString *counted;
1632 	counted = FICL_POINTER_TO_COUNTED_STRING(vm->pad);
1635 		counted->text[counted->length++] = '-';
1931  * Return the character string specification for the counted string stored
1939 	ficlCountedString *counted;
1943 	counted = ficlStackPopPointer(vm->dataStack);
1944 	ficlStackPushPointer(vm->dataStack, counted->text);
1945 	ficlStackPushUnsigned(vm->dataStack, counted->length);
2028 		ficlCountedString *counted;
2029 		counted = (ficlCountedString *)dictionary->here;
2030 		ficlVmGetString(vm, counted, '\"');
2031 		ficlStackPushPointer(vm->dataStack, counted->text);
2032 		ficlStackPushUnsigned(vm->dataStack, counted->length);
2062 	 * Since we don't have an output primitive for a counted string
2083  * than the implementation-defined length of a counted string.
2086  * as a counted string. If the parse area was empty or contained no
2095 	ficlCountedString *counted;
2101 	counted = (ficlCountedString *)vm->pad;
2108 	counted->length = (ficlUnsigned8)FICL_STRING_GET_LENGTH(name);
2109 	strncpy(counted->text, FICL_STRING_GET_POINTER(name),
2116 	counted->text[counted->length] = ' ';
2117 	counted->text[counted->length + 1] = 0;
2119 	ficlStackPushPointer(vm->dataStack, counted);
2167  * Find the definition named in the counted string at c-addr. If the
2193  * Find the definition named in the counted string at c-addr. If the
2203 	ficlCountedString *counted;
2208 	counted = ficlStackPopPointer(vm->dataStack);
2209 	FICL_STRING_SET_FROM_COUNTED_STRING(name, *counted);
2210 	do_find(vm, name, counted);
3304 	ficlDictionarySetConstant(environment, "/counted-string",