Initial (manual) import
This commit is contained in:
1 parent
f39611c506
commit
895fe109de
661 files changed
+245862
No files matched your search
@@ -0,0 +1,46 @@
|
||||
//This is executed by the Adam task at boot.
|
||||
//See $LK,"Adam Start-up",A="FF:::/Kernel/KEnd.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)
|
||||
MkDir("/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"$.
|
||||
Reference in new issue
Block a user