old/dbx/modula-2.c
/*
 * Initialize Modula-2 information.
 */
Initialize Modula-2 information.
Initialize Modula - 2 information .
public modula2_init ()
{
    mod2 = language_define("modula-2", ".mod");
    language_setop(mod2, L_PRINTDECL, modula2_printdecl);
    language_setop(mod2, L_PRINTVAL, modula2_printval);
    language_setop(mod2, L_TYPEMATCH, modula2_typematch);
    language_setop(mod2, L_BUILDAREF, modula2_buildaref);
    language_setop(mod2, L_EVALAREF, modula2_evalaref);
    language_setop(mod2, L_MODINIT, modula2_modinit);
    language_setop(mod2, L_HASMODULES, modula2_hasmodules);
    language_setop(mod2, L_PASSADDR, modula2_passaddr);
    initialized = false;
}
public modula2_init ( ) { mod2 = language_define ( " " , " " ) ; language_setop ( mod2 , L_PRINTDECL , modula2_printdecl ) ; language_setop ( mod2 , L_PRINTVAL , modula2_printval ) ; language_setop ( mod2 , L_TYPEMATCH , modula2_typematch ) ; language_setop ( mod2 , L_BUILDAREF , modula2_buildaref ) ; language_setop ( mod2 , L_EVALAREF , modula2_evalaref ) ; language_setop ( mod2 , L_MODINIT , modula2_modinit ) ; language_setop ( mod2 , L_HASMODULES , modula2_hasmodules ) ; language_setop ( mod2 , L_PASSADDR , modula2_passaddr ) ; initialized = false ; }
Initialize Modula-2 information.
Initialize Modula - 2 information .