mirror of https://github.com/minexew/Shrine.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
46 lines
1.1 KiB
46 lines
1.1 KiB
//This is executed by the Adam task at boot. |
|
//See $LK,"Adam Start-up",A="FF:::/Kernel/KMain.HC,\"StartOS"$. |
|
|
|
#help_index "Compiler/Directive" |
|
public extern I8i Option(I64i num,I8i val); |
|
Option(0,0); //(0,0)=EchoOff (0,1)=EchoOn |
|
|
|
#include "/Kernel/KernelA.HH" |
|
#include "/Compiler/CompilerA.HH" |
|
#include "/Kernel/KernelB.HH" |
|
#include "/Kernel/KernelC.HH" |
|
#include "/Compiler/CompilerB.HH" |
|
|
|
Option(OPTf_WARN_PAREN,ON); |
|
Option(OPTf_WARN_DUP_TYPES,ON); |
|
HashTablePurge(adam_task->hash_table); |
|
|
|
#include "/Adam/MakeAdam" |
|
|
|
//Dbg("Type 'G;'"); |
|
DocTermNew; |
|
WinVert(2,10); |
|
|
|
sys_winmgr_task=Spawn(&WinMgrTask,NULL,"Window Mgr"); |
|
Fs->win_inhibit=WIG_TASK_DFT-WIF_SELF_BORDER |
|
-WIF_SELF_GRAB_SCROLL-WIF_SELF_CTRLS; |
|
LBts(&Fs->display_flags,DISPLAYf_CHILDREN_NOT_ON_TOP); |
|
LBts(&Fs->display_flags,DISPLAYf_SHOW); |
|
RegInit; |
|
LBts(&sys_run_level,RLf_REGISTRY); |
|
if (!ins_reg.registered) |
|
InsUnreg; |
|
|
|
WallPaperInit; |
|
|
|
if (DrvIsWritable) |
|
DirMk("/Tmp"); //Good to have a Tmp |
|
|
|
Option(OPTf_WARN_PAREN,OFF); |
|
Option(OPTf_WARN_DUP_TYPES,OFF); |
|
LBts(&sys_run_level,RLf_HOME); |
|
|
|
#help_index "" |
|
#include "~/MakeHome" |
|
|
|
//After this file, the Adam task enters $LK,"server mode",A="HI:Job"$.
|
|
|