24 lines
659 B
C
24 lines
659 B
C
|
/* These must be defined as macros, because they use Alloca().
|
||
|
|
*/
|
||
|
|
|
||
|
|
#define Get_String_Stack(_from,_to) {\
|
||
|
|
int _len;\
|
||
|
|
Check_Type(_from, T_String);\
|
||
|
|
_len = STRING(_from)->size;\
|
||
|
|
Alloca ((_to), char*, _len+1);\
|
||
|
|
bcopy (STRING(_from)->data, (_to), _len);\
|
||
|
|
(_to)[_len] = '\0';\
|
||
|
|
}
|
||
|
|
|
||
|
|
#define Get_Strsym_Stack(_from,_to) {\
|
||
|
|
int _len;\
|
||
|
|
if (TYPE(_from) == T_Symbol)\
|
||
|
|
(_from) = SYMBOL(_from)->name;\
|
||
|
|
else if (TYPE(_from) != T_String)\
|
||
|
|
Wrong_Type_Combination ((_from), "string or symbol");\
|
||
|
|
_len = STRING(_from)->size;\
|
||
|
|
Alloca ((_to), char*, _len+1);\
|
||
|
|
bcopy (STRING(_from)->data, (_to), _len);\
|
||
|
|
(_to)[_len] = '\0';\
|
||
|
|
}
|