static void bomb (char *p_name) { char_varying(256) msgvs; strcpy_vstr_nstr (&msgvs, "FATAL ERROR: Call to unimplemented function '"); strcat_vstr_nstr (&msgvs, p_name); strcat_vstr_nstr (&msgvs, "'. Entering debugger."); s$write_code (&msgvs, &0); strcpy_vstr_nstr (&msgvs, "Please capture the output of the 'trace' request and mail it to [email protected]."); s$write_code (&msgvs, &0); vos_call_debug (); strcpy_vstr_nstr (&msgvs, "Return from debugger. Stopping program. Sorry but this error is unrecoverable."); s$write_code (&msgvs, &0); s$stop_program (&"", &1); }
int dcc_ncpus(int *ncpus) { short int code; module_info mi; char_varying(66) module_name; strcpy_vstr_nstr (&module_name, ""); mi.version = MODULE_INFO_VERSION_1; s$get_module_info ((char_varying *)&module_name, (void *)&mi, &code); if (code != 0) *ncpus = 1; /* safe guess... */ else *ncpus = mi.n_user_cpus; return 0; }