Rijn/TempleOS-Rijn
1
1 Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

TempleOSCDV4.08.ISO

Browse Source
This commit is contained in:
Terry A. Davis authored and minexew committed 2018-09-08 21:47:25 +02:00
1 parent b632ab9a4f
commit 2d56cda5f3
258 files changed
+6973 -5476
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

Misc/DoDistro.CPP
+4 -1
View File
@@ -34,7 +34,10 @@ U0 MakeMyISO(U8 *out_iso_filename)
CopyTree("/Linux","/Distro/Linux"); //You can leave this out.
MkDir("/Distro/Temp");
MkDir("/Distro/Temp/ScreenShots");
ISOFileCreate(out_iso_filename,"/Distro/*",,"/Distro" BOOT_DIR_KERNEL_BIN_C);
ISO9660ISO(out_iso_filename,"/Distro/*",,"/Distro" BOOT_DIR_KERNEL_BIN_C);
//If you want $LK,"RedSea",A="FI:::/Doc/RedSea.TXT"$ filesystem, use this instead but make it ISO.C.
//RedSeaISO(out_iso_filename,"/Distro","/Distro" BOOT_DIR_KERNEL_BIN_C);
//If CD-ROM use MT_CD instead of MT_DVD.
//DVDImageWrite('T',out_iso_filename,MT_DVD); //Uncomment to burn.
Misc/OSInstall.CPP
+46 -41
View File
@@ -1,3 +1,22 @@
U0 InstallDrv(U8 drv_let)
{
U8 *st;
ExePrint("CopyTree(\"::/\",\"%C:/\");",drv_let);
ExePrint("MkDir(\"%C:/Temp\");",drv_let);
ExePrint("MkDir(\"%C:/Temp/ScreenShots\");",drv_let);
ExePrint("MkDir(\"%C:/Home\");",drv_let);
st=MStrPrint("%C:/Home/DoDistro.CPP.Z",drv_let);
if (!FileFind(st))
Copy("::/Misc/DoDistro.CPP.Z",st);
Free(st);
st=MStrPrint("%C:/Home/MakeHome.CPP.Z",drv_let);
if (!FileFind(st))
Copy("::/MakeHome.CPP.Z",st);
Free(st);
}
Bool VMPrtDsk(CTask *task,CATARep *ata_drv)
{
if (ata_drv) {
@@ -8,23 +27,11 @@ Bool VMPrtDsk(CTask *task,CATARep *ata_drv)
return FALSE;
}
U0 VMInstallBoot(CTask *task,U8 dvd_drv,U8 drv_let,
U0 VMInstallDrv(CTask *task,U8 drv_let,
CATARep *ata_drv,CATARep *atapi_drv)
{
U8 *st1,*st2;
st1=MStrPrint("%C:/",dvd_drv); st2=MStrPrint("%C:/",drv_let);
CopyTree(st1,st2);
Free(st1); Free(st2);
st1=MStrPrint("%C:/Home",drv_let);
MkDir(st1);
Copy("::/Misc/DoDistro.CPP.Z",st1);
Copy("::/MakeHome.CPP.Z",st1);
Free(st1);
XTalkWait(task,"MakeOSDrvBootInstall('%C');\n"
"\nB\n0x20000\n",drv_let);
InstallDrv(drv_let);
XTalkWait(task,"MakeOSDrvBootInstall('%C');\n\nB\n0x20000\n",drv_let);
if (ata_drv)
XTalkWait(task,"Cp%d\n",ata_drv->num);
if (atapi_drv)
@@ -51,10 +58,10 @@ U0 VMInstallWiz()
WinToTop(Fs);
ATARep(FALSE,TRUE,&root);
ATAIDDrvs(root,blkdev.boot_drv_let,&ata_drv,&atapi_drv);
ATAIDDrvs(root,&ata_drv,&atapi_drv);
if (VMPrtDsk(task,ata_drv)) {
VMInstallBoot(task,blkdev.boot_drv_let,'C',ata_drv,atapi_drv);
VMInstallBoot(task,blkdev.boot_drv_let,'D',ata_drv,atapi_drv);
VMInstallDrv(task,'C',ata_drv,atapi_drv);
VMInstallDrv(task,'D',ata_drv,atapi_drv);
MasterBootInstall('C');
}
LinkedLstDel(root);
@@ -65,7 +72,7 @@ U0 VMInstallWiz()
U0 RegularInstallWiz()
{
I64 unit,drv_let;
U8 *st,*base0,*base1,*st1,*st2,*new_home_str;
U8 *st,*base0,*base1;
CATARep *root=NULL,*tempha;
I64 ch,num_hints;
CTask *task;
@@ -123,8 +130,6 @@ U0 RegularInstallWiz()
Free(st);
} while (!('A'<=drv_let<='Z'));
'\n';
st1=MStrPrint("%C:/",blkdev.boot_drv_let);
st2=MStrPrint("%C:/",drv_let);
"$$RED$$Format %C Partition?$$FG$$\n",drv_let;
if (YorN) {
@@ -141,26 +146,15 @@ U0 RegularInstallWiz()
else
Fmt(drv_let,,FALSE,FSt_REDSEA);
}
CopyTree(st1,st2);
st2=MStrPrint("%C:/Temp",drv_let);
MkDir(st2);
Free(st2);
new_home_str=MStrPrint("%C:/Home",drv_let);
MkDir(new_home_str);
Copy("::/Misc/DoDistro.CPP.Z",new_home_str);
Copy("::/MakeHome.CPP.Z",new_home_str);
XTalkWait(task,"MakeOSDrvBootInstall('%C');\n"
"\nB\n0x20000\n"
"Cs%s\n%s\n%C"
"\n\n\n", //Exit Drives,Dsk Cache,Options
InstallDrv(drv_let);
XTalkWait(task,"MakeOSDrvBootInstall('%C');\n\nB\n0x20000\n"
"Cs%s\n%s\n%C\n\n\n", //Exit Drives,Dsk Cache,Options
drv_let,base0,base1,'0'+unit);
"$$RED$$Install Master Boot loader?$$FG$$";
if (YorN) {
'\n';
MasterBootInstall(drv_let);
}
Free(new_home_str);
Free(base0);
Free(base1);
@@ -182,9 +176,9 @@ U0 DoInstructions()
}
}
U0 DoInstall()
Bool DoInstall(Bool pmt_reboot)
{
I64 vm_install,pmt_reboot;
I64 res=FALSE,vm_install;
"\n\n\n\n\nAre you installing inside VMware, QEMU, VirtualBox "
"or a similar virtual machine? ";
vm_install=YorN;
@@ -192,21 +186,32 @@ U0 DoInstall()
if (vm_install) {
VMInstallWiz();
pmt_reboot=TRUE;
res=TRUE;
} else {
"\n\nThis wizard works if you have a partition ready. "
"You can partition the drive or MakeOSDrvBootInstall() "
"with more options if you do it by hand, not using this wizard.\n\n"
"Continue Install Wizard ";
if (pmt_reboot=YorN)
if (YorN) {
RegularInstallWiz();
res=TRUE;
} else
pmt_reboot=FALSE;
}
if (pmt_reboot) {
"Reboot Now ";
if (YorN)
Reboot;
}
return res;
}
DoInstructions;
DoInstall;
Bool OSInstall(Bool pmt_reboot=TRUE)
{
DoInstructions;
return DoInstall(pmt_reboot);
}
#if __CMD_LINE__
OSInstall(TRUE);
#endif
Misc/OSTestSuite.CPP
+25 -36
View File
@@ -6,7 +6,7 @@ U0 TSStart()
U0 TS()
{
progress4=ts_num++;
progress4_max=168;
progress4_max=167;
*progress4_desc=0;
}
U0 TSEnd()
@@ -281,16 +281,6 @@ U0 DoMountain()
Kill(task);
}
U0 DoCoach()
{
CTask *task=User;
XTalkWait(task,"#include \"::/Demo/Games/Coach\";\n");
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
Sleep(1000);
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
XTalk(task,"Exit;\n");
}
U0 DoDigits()
{
CTask *task=User;
@@ -356,7 +346,7 @@ U0 DoScreenCapture()
Sleep(750);
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
XTalk(task,"Exit;\n");
Del("/Home/ScreenShot.GRA.Z");
Del("~/DemoScreenShot.GRA*");
}
/*
@@ -1765,11 +1755,11 @@ U0 DoFPrintF()
{
CTask *task=User;
XTalkWait(task,"#include \"::/Demo/Dsk/FPrintF\";\n");
XTalkWait(task,"::/Demo/Dsk/FPrintF.TXT");
XTalkWait(task,"~/DemoFPrintF.TXT.Z");
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_ESC,0);
XTalkWait(task,"Type(\"::/Demo/Dsk/FPrintF.TXT\");\n");
XTalkWait(task,"Type(\"~/DemoFPrintF.TXT.Z\");\n");
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_CTRLO,0);
XTalkWait(task,"Del(\"::/Demo/Dsk/FPrintF.TXT\");\n");
XTalkWait(task,"Del(\"~/DemoFPrintF.TXT*\");\n");
Sleep(500);
XTalk(task,"Exit;\n");
}
@@ -1850,7 +1840,7 @@ U0 DoMiniGrLib()
U0 DoWebLog()
{
CTask *task=User;
XTalkWait(task,"#include \"::/Demo/WebLogExample/WebLogRep\";\n");
XTalkWait(task,"#include \"::/Demo/WebLogDemo/WebLogRep\";\n");
PostMsgWait(task,MSG_KEY_DOWN_UP,'\n',0);
PostMsgWait(task,MSG_KEY_DOWN_UP,'\n',0);
PostMsgWait(task,MSG_KEY_DOWN_UP,CH_ESC,0);
@@ -1858,12 +1848,12 @@ U0 DoWebLog()
XTalk(task,"Exit;\n");
}
U0 DoReverseFile()
U0 DoRevFile()
{
CTask *task=User;
Del("::/Demo/ReverseFileExample/PoemForward.TXT.Z");
XTalkWait(task,"#include \"::/Demo/ReverseFileExample/Reverse\";\n");
XTalkWait(task,"Type(\"::/Demo/ReverseFileExample/PoemForeward.TXT.Z\");\n");
Del("~/DemoPoemForward.TXT*");
XTalkWait(task,"#include \"::/Demo/RevFileDemo/Rev\";\n");
XTalkWait(task,"Type(\"~/DemoPoemFwd.TXT.Z\");\n");
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -1871,8 +1861,8 @@ U0 DoReverseFile()
U0 DoSortFile()
{
CTask *task=User;
XTalkWait(task,"#include \"::/Demo/SortFileExample/F64FileGen\";\n");
XTalkWait(task,"#include \"::/Demo/SortFileExample/F64FileSort\";\n");
XTalkWait(task,"#include \"::/Demo/SortFileDemo/F64FileGen\";\n");
XTalkWait(task,"#include \"::/Demo/SortFileDemo/F64FileSort\";\n");
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -1880,8 +1870,8 @@ U0 DoSortFile()
U0 DoToHtmlToTXT()
{
CTask *task=User;
XTalkWait(task,"#include \"::/Demo/ToHtmlToTXTExample/HtmlGen\";\n");
XTalkWait(task,"#include \"::/Demo/ToHtmlToTXTExample/TXTGen\";\n");
XTalkWait(task,"#include \"::/Demo/ToHtmlToTXTDemo/HtmlGen\";\n");
XTalkWait(task,"#include \"::/Demo/ToHtmlToTXTDemo/TXTGen\";\n");
Sleep(750);
XTalk(task,"Exit;\n");
}
@@ -1984,7 +1974,7 @@ U0 DoNumBible()
{
CTask *task=User;
XTalkWait(task,"#include \"::/Demo/DolDoc/NumBible\";\n");
Del("::/Home/NumBible.TXT.Z");
Del("~/DemoNumBible.TXT*");
XTalk(task,"Exit;\n");
}
@@ -2287,7 +2277,7 @@ U0 OSTestSuite()
{
TSStart;
TS; DoBlackDiamond;
TS; if (DrvIsWritable(':')) DoEagleDive;
TS; DoEagleDive;
TS; DoFlatTops;
TS; DoDunGen;
TS; DoFPS;
@@ -2314,7 +2304,7 @@ U0 OSTestSuite()
TS; if (FileFind(BIBLE_FILENAME)) DoPalindrome;
TS; DoClouds;
TS; if (mp_cnt>1) DoRadixSort;
TS; if (mp_cnt>1) DoLoadTest;
TS; if (mp_cnt>1 && DrvIsWritable(':')) DoLoadTest;
TS; if (mp_cnt>1) DoMPPrint;
TS; if (mp_cnt>1) DoLock;
TS; if (mp_cnt>1) DoInterrupts;
@@ -2346,11 +2336,10 @@ U0 OSTestSuite()
TS; DoSpeedLine;
TS; DoKeyBitMap;
TS; DoMountain;
TS; DoCoach;
TS; DoBSpline;
TS; DoGrModels;
TS; DoBlot;
TS; if (DrvIsWritable(':')) DoScreenCapture;
TS; if (DrvIsWritable('~')) DoScreenCapture;
TS; DoGrid;
TS; DoPick;
TS; DoPick3D;
@@ -2386,7 +2375,7 @@ U0 OSTestSuite()
TS; DoUnusedSpaceRep;
TS; DoBlkDevRep;
TS; DoLastClass;
TS; if (DrvIsWritable(':')) DoFPrintF;
TS; if (DrvIsWritable('~')) DoFPrintF;
TS; DoSerializeTree;
TS; DoExceptions;
TS; DoScreenCodes;
@@ -2407,11 +2396,11 @@ U0 OSTestSuite()
TS; DoLogic;
TS; DoCompileDemo;
TS; DoPrompt;
TS; if (DrvIsWritable(':')) DoWebLog;
TS; if (DrvIsWritable(':')) DoReverseFile;
TS; if (DrvIsWritable(':')) DoSortFile;
TS; if (DrvIsWritable(':')) DoToHtmlToTXT;
TS; if (DrvIsWritable(':')) DoRegistryDemo;
TS; if (DrvIsWritable('~')) DoWebLog;
TS; if (DrvIsWritable('~')) DoRevFile;
TS; if (DrvIsWritable('~')) DoSortFile;
TS; if (DrvIsWritable('~')) DoToHtmlToTXT;
TS; if (DrvIsWritable('~')) DoRegistryDemo;
TS; DoDefine;
TS; DoGlblVars;
TS; DoFileRead;
@@ -2420,7 +2409,7 @@ U0 OSTestSuite()
TS; DoData;
TS; DoCallBack;
TS; DoClassMeta;
TS; if (DrvIsWritable(':')) DoNumBible;
TS; if (DrvIsWritable('~')) DoNumBible;
TS; DoForm;
TS; DoClickCallBack;
TS; DoMenuButton;
Misc/Tour/Tour.AUT
+1 -1
View File
@@ -123,4 +123,4 @@ U0 TourMenu()
WinMgrSync(2);
TourMenu;
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"Cd(\"::/Home\");Dir;\n";
"Cd;Dir;\n";
Misc/Tour/Tour3.AUT
+2 -2
View File
@@ -67,9 +67,9 @@ AFUntilChar(CH_ESC,CH_SHIFT_ESC);
TourPut(
"$$GREEN$$<CTRL-ALT-a>$$FG$$\tExtended ASCII.\n"
"$$GREEN$$<CTRL-ALT-c>$$FG$$\tBreak(interrupt) program.\n"
"$$GREEN$$<CTRL-ALT-e>$$FG$$\tSpawn new user terminal window.\n"
"$$GREEN$$<CTRL-ALT-m>$$FG$$\tMutes sound.\n"
"$$GREEN$$<CTRL-ALT-t>$$FG$$\tSwitch tasks.\n"
"$$GREEN$$<CTRL-ALT-n>$$FG$$\tNext tasks.\n"
"$$GREEN$$<CTRL-ALT-t>$$FG$$\tTerminal window.\n"
"$$GREEN$$<CTRL-ALT-x>$$FG$$\tKill task (window).\n",TRUE);
AFPrint(50,"Ed(\"CastleFrankenstein.CPP.Z\");\n");
Misc/Tour/Tour6.AUT
+1 -1
View File
@@ -1,4 +1,4 @@
PopUp("ACInit(\"::/*;~*/Bible.TXT*\");");
PopUp("ACInit(\"::/*;!*/Bible.TXT*\");");
AutoComplete(ON);
Sleep(3500);
Misc/Tour/Tour7.AUT
+2 -2
View File
@@ -48,7 +48,7 @@ Sleep(2000);
TourPut("Notice the number of matches.\n",TRUE);
TourPut(
"The wrapper function is in your $$RED$$/Home/HomeWrappers.CPP.Z$$FG$$ file. "
"The wrapper function is in your $$RED$$~/HomeWrappers.CPP.Z$$FG$$ file. "
"There is a function $$RED$$$$TX+L+PU+UL,\"R\",A=\"MN:R\"$$$$FG$$() for "
"find and replace. Feel free to customize.\n",TRUE);
@@ -58,7 +58,7 @@ TourPut("Press $$GREEN$$<ENTER>$$FG$$.\n");
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
"Ed(\"::/Home/HomeWrappers.CPP.Z\");";
"Ed(\"~/HomeWrappers.CPP.Z\");";
AFGetStr("\n");
TourPut("Press $$GREEN$$<SHIFT-ESC>$$FG$$ to abort the source code.\n");
Misc/Tour/Tour8.AUT
+2 -2
View File
@@ -17,9 +17,9 @@ TourPut(
"Press $$GREEN$$<ENTER>$$FG$$.\n");
AFGetStr("\n");
"FF(\"/Kernel/St*;*.HPP*;~*Print*\");";
"FF(\"/Kernel/St*;*.HPP*;!*Print*\");";
TourPut(
"Let's unselect $$GREEN$$*Print*$$FG$$.\n\n"
"Let's unsel $$GREEN$$*Print*$$FG$$.\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.\n");
AFGetStr("\n");
TourPut("There is no way to include multiple base directories.\n",TRUE);
Misc/Tour/TourB.AUT
+1 -1
View File
@@ -9,7 +9,7 @@ TourPut(
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
"Type(\"::/Home/PersonalMenu.TXT\");";
"Type(\"~/PersonalMenu.TXT\");";
AFGetStr("\n");
Sleep(1500);