/*
* This function is called from accdesk_start (in gemstart.S) which
* is itself called from gem_main() below.
*
* It runs under a separate process which terminates on shutdown or
* resolution change (see accdesk_start). This ensures that all
* memory allocated to or by desk accessories is automatically freed
* on resolution change.
*/
void run_accs_and_desktop(void)
{
WORD i;
BOOL isgem;
/* load gem resource and fix it up before we go */
gem_rsc_init();
/* get mice forms */
ad_armice = (MFORM *)rs_bitblk[MICE00].bi_pdata;
ad_hgmice = (MFORM *)rs_bitblk[MICE02].bi_pdata;
/* init button stuff */
gl_btrue = 0x0;
gl_bdesired = 0x0;
gl_bdely = 0x0;
gl_bclick = 0x0;
gl_logdrv = dos_gdrv() + 'A'; /* boot directory */
gsx_init(); /* do gsx open work station */
load_accs(num_accs); /* load up to 'num_accs' desk accessories */
/* fix up icons */
for (i = 0; i < 3; i++) {
memcpy(&bi, &rs_bitblk[NOTEBB+i], sizeof(BITBLK));
gsx_trans(bi.bi_pdata, bi.bi_wb, bi.bi_pdata, bi.bi_wb, bi.bi_hl);
}
/* take the critical err handler int. */
disable_interrupts();
takeerr();
enable_interrupts();
sh_tographic(); /* go into graphic mode */
/* take the tick interrupt */
disable_interrupts();
gl_ticktime = gsx_tick(tikaddr, &tiksav);
enable_interrupts();
/* set initial click rate: must do this after setting gl_ticktime */
ev_dclick(3, TRUE);
/* fix up the GEM rsc file now that we have an open WS */
gem_rsc_fixit();
wm_start(); /* initialise window vars */
fs_start(); /* startup gem libs */
sh_curdir(D.s_cdir); /* remember current desktop directory */
isgem = process_inf2(); /* process emudesk.inf part 2 */
dsptch(); /* off we go !!! */
all_run(); /* let them run */
sh_init(); /* init for shell loop */
sh_main(isgem); /* main shell loop */
/* give back the tick */
disable_interrupts();
gl_ticktime = gsx_tick(tiksav, &tiksav);
enable_interrupts();
/* close workstation */
gsx_wsclose();
}
void gem_main(void)
{
WORD i;
const BITBLK *tmpadbi;
sh_rdinf(); /* get start of emudesk.inf */
if (!gl_changerez) /* can't be here because of rez change, */
process_inf1(); /* so see if .inf says we need to change rez */
if (gl_changerez) {
switch(gl_changerez) {
#if CONF_WITH_SHIFTER
case 1: /* ST(e) or TT display */
Setscreen(-1L,-1L,gl_nextrez-2,0);
initialise_palette_registers(gl_nextrez-2,0);
break;
#endif
#if CONF_WITH_VIDEL
case 2: /* Falcon display */
Setscreen(-1L, -1L, FALCON_REZ, gl_nextrez);
initialise_palette_registers(FALCON_REZ,gl_nextrez);
break;
#endif
}
gsx_wsclear(); /* avoid artefacts that may show briefly */
}
totpds = NUM_PDS;
ml_ocnt = 0;
gl_changerez = FALSE;
ini_dlongs(); /* init longs */
cli();
takecpm(); /* take the 0efh int. */
/* init event recorder */
gl_recd = FALSE;
gl_rlen = 0;
gl_rbuf = 0x0L;
/* initialize pointers to heads of event list and thread list */
elinkoff = (BYTE *) &(D.g_intevb[0].e_link) - (BYTE *) &(D.g_intevb[0]);
/* link up all the evb's to the event unused list */
eul = NULLPTR;
ev_init(&D.g_intevb[0], NUM_IEVBS);
if (totpds > 2)
ev_init(&D.g_extevb[0], NUM_EEVBS);
/* initialize sync blocks */
wind_spb.sy_tas = 0;
wind_spb.sy_owner = NULLPTR;
wind_spb.sy_wait = 0;
/*
* init processes - TODO: should go in gempd or gemdisp.
*/
/* initialize list and unused lists */
nrl = drl = NULLPTR;
dlr = zlr = NULLPTR;
fph = fpt = fpcnt = 0;
/* init initial process */
for(i=totpds-1; i>=0; i--)
{
rlr = pd_index(i);
if (i < 2)
{
rlr->p_uda = &D.g_intuda[i];
rlr->p_cda = &D.g_intcda[i];
}
else
{
rlr->p_uda = &D.g_extuda[i-2];
rlr->p_cda = &D.g_extcda[i-2];
}
rlr->p_qaddr = (LONG)(&rlr->p_queue[0]);
rlr->p_qindex = 0;
memset(rlr->p_name, ' ', 8);
rlr->p_appdir[0] = '\0'; /* by default, no application directory */
/* if not rlr then initialize his stack pointer */
if (i != 0)
rlr->p_uda->u_spsuper = &rlr->p_uda->u_supstk;
rlr->p_pid = i;
rlr->p_stat = 0;
}
curpid = 0;
rlr->p_pid = curpid++;
rlr->p_link = NULLPTR;
/* end of process init */
/* restart the tick */
sti();
/*
* screen manager process init. this process starts out owning the mouse
* and the keyboard. it has a pid == 1
*/
gl_dacnt = 0;
gl_mowner = ctl_pd = iprocess("SCRENMGR", ctlmgr);
/* load gem resource and fix it up before we go */
gem_rsc_init();
{
/* get mice forms */
ad_armice = *(LONG *)&rs_bitblk[MICE00];
ad_hgmice = *(LONG *)&rs_bitblk[MICE02];
/* init button stuff */
gl_btrue = 0x0;
gl_bdesired = 0x0;
gl_bdely = 0x0;
gl_bclick = 0x0;
gl_logdrv = dos_gdrv() + 'A'; /* boot directory */
gsx_init(); /* do gsx open work station */
/* load all desk acc's */
if (totpds > 2)
ldaccs();
/* fix up icons */
for(i=0; i<3; i++) {
tmpadbi = &rs_bitblk[NOTEBB+i];
memcpy((char *)&bi, tmpadbi, sizeof(BITBLK));
gsx_trans(bi.bi_pdata, bi.bi_wb, bi.bi_pdata, bi.bi_wb, bi.bi_hl);
}
/* take the critical err handler int. */
cli();
takeerr();
sti();
/* go into graphic mode */
sh_tographic();
/* take the tick int. */
cli();
gl_ticktime = gsx_tick(tikaddr, &tiksav);
sti();
/* set init. click rate: must do this after setting gl_ticktime */
ev_dclick(3, TRUE);
/* fix up the GEM rsc. file now that we have an open WS */
gem_rsc_fixit();
/* get st_desk ptr */
ad_stdesk = (LONG) rs_trees[DESKTOP];
/* init. window vars. */
wm_start();
/* startup gem libs */
fs_start();
/* remember current desktop directory */
sh_curdir(D.s_cdir);
/* process emudesk.inf part 2 */
process_inf2();
/* off we go !!! */
dsptch();
/* let them run */
all_run();
/*
* init for shell loop up thru here it is okay for system to
* overlay this initialization code
*/
sh_init();
/*
* main shell loop. From here on down data should not overlay
* this code
*/
sh_main();
/* give back the tick */
cli();
gl_ticktime = gsx_tick(tiksav, &tiksav);
sti();
/* close workstation */
gsx_wsclose();
}
/* return GEM's 0xEF int*/
cli();
givecpm();
sti();
}
void sh_ldapp()
{
WORD ret, badtry, retry;
SHELL *psh;
psh = &sh[rlr->p_pid];
strcpy(sh_apdir, D.s_cdir); /* initialize sh_apdir */
badtry = 0;
/* Set default DESKTOP if there isn't any yet: */
if(psh->sh_desk[0] == 0)
{
strcpy(&psh->sh_desk[0], DEF_DESKTOP);
strcpy(&psh->sh_cdir[0], &D.s_cdir[0]);
}
do
{
sh_chdef(psh);
/* set up so that we */
/* will exec the */
/* default next time */
/* unless the */
/* application does */
/* a set command */
psh->sh_dodef = TRUE;
/* init graph/char mode */
sh_chgrf(psh);
if (gl_shgem)
{
wm_start();
ratinit();
}
/* fix up/parse cmd tail*/
sh_fixtail(psh->sh_fullstep == 2);
sh_draw(D.s_cmd, 0, 0); /* redraw the desktop */
/* clear his desk field */
desk_tree[rlr->p_pid] = 0x0L;
/* exec it */
/* handle bad try msg */
if (badtry)
{
ret = fm_show(badtry, NULLPTR, 1);
if (badtry == ALNOFIT)
break;
badtry = 0;
}
do
{
retry = FALSE;
Dprintf(("sh_ldapp: Starting %s\n", D.s_cmd));
if(psh->sh_isdef && strcmp(D.s_cmd, DEF_DESKTOP) == 0)
{
/* Start the ROM desktop: */
sh_show(D.s_cmd);
p_nameit(rlr, sh_name(&D.s_cmd[0]));
p_setappdir(rlr, D.s_cmd);
aes_run_rom_program(deskstart);
}
#if WITH_CLI != 0
else if(strcmp(D.s_cmd, "EMUCON") == 0)
{
/* start the EmuCON shell: */
aes_run_rom_program(coma_start);
}
#endif
else if ( sh_find(D.s_cmd) )
{
/* Run a normal application: */
sh_show(D.s_cmd);
p_nameit(rlr, sh_name(&D.s_cmd[0]));
p_setappdir(rlr, D.s_cmd);
if (psh->sh_fullstep == 0)
{
dos_exec(0, D.s_cmd, ad_stail, ad_envrn); /* Run the APP */
/* If the user ran an alternative desktop and quitted it,
return now to the default desktop: (experimental) */
if(psh->sh_isdef && psh->sh_dodef)
{
Dprintf(("sh_ldapp: Returning to ROM desktop!\n"));
strcpy(&psh->sh_desk[0], DEF_DESKTOP);
strcpy(&psh->sh_cdir[0], &D.s_cdir[0]);
}
}
else if (psh->sh_fullstep == 1)
{
dos_exec(0, D.s_cmd, ad_stail, ad_envrn);
DOS_ERR = psh->sh_doexec = FALSE;
}
if (DOS_ERR)
badtry = (psh->sh_isdef) ? ALNOFIT : AL08ERR;
/* 02/11/86 LKW begin */
if (wind_spb.sy_owner == rlr) /* if he still owns screen*/
unsync(&wind_spb); /* then take him off. */
/* 02/11/86 LKW end */
}
else
{
if ( (gl_shgem) &&
(psh->sh_isdef) )
{
ret = fm_show(ALOKDESK, NULLPTR, 1);
if (ret == 1)
retry = TRUE;
else
retry = psh->sh_doexec = FALSE;
}
else
badtry = AL18ERR;
}
} while (retry && !badtry);
desk_tree[rlr->p_pid] = 0x0L; /* clear his desk field */
} while(psh->sh_doexec && !gl_changerez);
}
