init_type ('number', 'any', C_TYPE => 'double',
ATOM => 'number', MANGLE => 'n', HUMAN_NAME => 'num',
STACK => 'ns', MISSING_VALUE => 'SYSMIS');
- init_type ('string', 'any', C_TYPE => 'struct fixed_string',
+ init_type ('string', 'any', C_TYPE => 'struct substring',
ATOM => 'string', MANGLE => 's', HUMAN_NAME => 'string',
STACK => 'ss', MISSING_VALUE => 'empty_string');
init_type ('boolean', 'any', C_TYPE => 'double',
$op{OPTIMIZABLE} = 1;
$op{UNIMPLEMENTED} = 0;
$op{EXTENSION} = 0;
+ $op{PERM_ONLY} = 0;
for (;;) {
if (match ('extension')) {
$op{EXTENSION} = 1;
$op{OPTIMIZABLE} = 0;
} elsif (match ('absorb_miss')) {
$op{ABSORB_MISS} = 1;
+ } elsif (match ('perm_only')) {
+ $op{PERM_ONLY} = 1;
} else {
last;
}