void Init_Tokens(const char *fname)
{
line_num = 0;
include_level = 0;
cur_token = &misc_token;
misc_token.token = TK_NULL;
/*
* Find the main input file...
*/
if((fp = SCN_FindFile(fname, "r", scn_source_paths,
SCN_FINDFILE_CHK_CUR_FIRST)) == NULL)
{
SCN_Message(SCN_MSG_ERROR, "scene: Unable to find input file: %s", fname);
return;
}
/*
* Locate the last token in the list.
*/
for(last_token = tokens, ntokens = 0;
last_token->token != THE_END;
last_token++, ntokens++)
; /* Just inc through the list... */
Init_Symbol();
line_num = 1;
strcpy(source_file, fname);
}
void
rb_call_inits()
{
Init_PreSymbol();
Init_id();
Init_var_tables();
Init_Object();
Init_Class();
Init_VM();
Init_Encoding();
Init_Comparable();
Init_Enumerable();
Init_Precision();
Init_String();
Init_Symbol();
Init_Exception();
Init_eval();
Init_jump();
Init_Numeric();
Init_Bignum();
Init_syserr();
Init_Array();
Init_Hash();
Init_ENV();
Init_Struct();
Init_Regexp();
Init_pack();
Init_marshal();
Init_Range();
Init_IO();
Init_Dir();
Init_Time();
Init_Random();
Init_signal();
Init_process();
Init_load();
Init_Proc();
Init_Binding();
Init_Math();
Init_GC();
Init_Enumerator();
Init_Thread();
//Init_Cont();
Init_Rational();
Init_Complex();
Init_version();
Init_PostGC();
Init_ObjC();
Init_BridgeSupport();
Init_FFI();
Init_Dispatch();
Init_Transcode();
Init_sandbox();
Init_PostVM();
}
void Init_Everything () {
Init_Type ();
Init_Cstring ();
Init_String ();
Init_Symbol ();
Init_Env ();
Init_Error ();
Init_Exception ();
Init_Io ();
Init_Prim ();
Init_Math ();
Init_Print ();
Init_Auto ();
Init_Heap ();
Init_Load ();
Init_Proc ();
Init_Special ();
Init_Read ();
Init_Features ();
Init_Terminate ();
#ifdef CAN_DUMP
Init_Dump ();
#endif
}
