TempleOSCDV4.08.ISO
This commit is contained in:
1 parent
b632ab9a4f
commit
2d56cda5f3
258 files changed
+6973
-5476
No files matched your search
@@ -9,6 +9,35 @@
|
||||
|
||||
U0 DoOnce()
|
||||
{
|
||||
switch (sys_boot_src.u16[0]) {
|
||||
case BOOT_SRC_DVD:
|
||||
"\nIf you answer 'No' you can play with\n"
|
||||
"the live CD without installing.\n\n"
|
||||
"Install onto hard drive ";
|
||||
if (YorN) {
|
||||
DocBottom;
|
||||
ExeFile("::/Misc/OSInstall");
|
||||
if (ExePrint("OSInstall(FALSE);")) {
|
||||
*sys_registry_doc->filename.name='C';
|
||||
"\n\n1) TAD\n\n";
|
||||
switch (GetI64("Staff Member Number:")) {
|
||||
case 1:
|
||||
RegWriteBranch("TempleOS/Staff",
|
||||
"#define PERSONAL_INITIALS \"TAD\"\n"
|
||||
"#define MACHINE_CFG %d\n",
|
||||
GetI64("Machine Cfg Number:")
|
||||
);
|
||||
break;
|
||||
}
|
||||
Del("C:/Home/DoDistro.CPP.Z");
|
||||
Del("D:/Home/DoDistro.CPP.Z");
|
||||
"\n\n\nAfter Reboot be sure to run MakeDistrosAndBackUp.\n\n";
|
||||
PressAKey;
|
||||
Reboot; //Too dangerous for amateurs until reboot.
|
||||
}
|
||||
}
|
||||
break;
|
||||
}
|
||||
if (FileFind("D:/Temp/Logs/access.log")) {
|
||||
Auto("\n\n%C",CH_ESC);
|
||||
WebLogRep("D:/Temp/Logs/*.log","D:/Temp/LogRep.TXT");
|
||||
|
||||
@@ -321,7 +321,7 @@ Bool MyPutKey(I64 ch,I64 sc)
|
||||
if (sc&SCF_KEY_DESC)
|
||||
KeyDescSet("Cmd /JukeBox(Home/Downloads)");
|
||||
else
|
||||
JukeBox("::/Home/Downloads/Psalmody");
|
||||
JukeBox("~/Downloads/Psalmody");
|
||||
return TRUE;
|
||||
case 'P':
|
||||
if (sc&SCF_KEY_DESC)
|
||||
|
||||
@@ -1,14 +0,0 @@
|
||||
//Place this file in /Home and change
|
||||
//anything you want.
|
||||
|
||||
#include "::/HomePkgs"
|
||||
#include "::/Apps/Psalmody/Load"
|
||||
#include "::/Demo/WebLogExample/WebLogRep"
|
||||
Cd("::/Home");;
|
||||
#include "::/Home/TOSCfg"
|
||||
#include "::/Home/TOSMisc"
|
||||
#include "::/Home/TOSToHtml"
|
||||
#include "::/Home/TOSDistro"
|
||||
#include "::/Home/TOSBlog"
|
||||
#include "::/Home/TOSHolySpirit"
|
||||
Cd("::/Home");;
|
||||
@@ -9,7 +9,7 @@ U0 UserStartUp()
|
||||
WinToTop;
|
||||
WinZBufUpdate;
|
||||
Dir;
|
||||
"$TX,"81,095",D="DD_TEMPLEOS_LOC_OFFICIAL"$LOC:";
|
||||
"$TX,"80,142",D="DD_TEMPLEOS_LOC_OFFICIAL"$LOC:";
|
||||
CPURep;
|
||||
}
|
||||
|
||||
@@ -30,9 +30,9 @@ U0 StartUpTasks()
|
||||
WinToTop(user1);
|
||||
WinTileVert;
|
||||
"Boot Time:%7.3fs\n",tS;
|
||||
XTalk(user1,"Cd(\"::/Home\");#include \"DoOnce\";\n");
|
||||
XTalk(user1,"Cd;#include \"DoOnce\";\n");
|
||||
Silent;
|
||||
ACInit("/*;~*/Bible.TXT*;~*.TXT*"); //No Bible, no uncompressed TXT.
|
||||
ACInit("/*;!*/Bible.TXT*;!*.TXT*"); //No Bible, no uncompressed TXT.
|
||||
Silent(OFF);
|
||||
"AutoComplete Time:%7.3fs\n",tS;
|
||||
}
|
||||
|
||||
@@ -1,8 +1,8 @@
|
||||
#help_index "Cmd Line (Typically)"
|
||||
|
||||
#define FILEMASK_OFF_LIMITS "~*/Misc/PCIDevices.TXT*;~*/Misc/Bible.TXT*;"\
|
||||
"~*/Downloads/Text/*;~*/Downloads/Words/*;~*/Downloads/Bin/*;"\
|
||||
"~*/God/Vocab.TXT*"
|
||||
#define FILEMASK_OFF_LIMITS "!*/Misc/PCIDevices.TXT*;!*/Misc/Bible.TXT*;"\
|
||||
"!*/Downloads/Text/*;!*/Downloads/Words/*;!*/Downloads/Bin/*;"\
|
||||
"!*/God/Vocab.TXT*"
|
||||
|
||||
public I64 F(U8 *needle_str,U8 *fu_flags=NULL)
|
||||
{//Find text in all text files.
|
||||
|
||||
@@ -0,0 +1,24 @@
|
||||
Cd(__DIR__);;
|
||||
|
||||
//If these are not present in /Home, it uses the version in the root dir. You
|
||||
//can make your own, modified, version of these files in your /Home directory.
|
||||
#include "~/HomeLocalize"
|
||||
|
||||
#include "/Adam/Opt/Boot/MakeBoot"
|
||||
#include "/Adam/Opt/Utils/MakeUtils"
|
||||
MapFileLoad("::/Kernel/Kernel");
|
||||
MapFileLoad("::/Compiler/Compiler");
|
||||
|
||||
#include "::/Apps/Psalmody/Load"
|
||||
#include "::/Demo/WebLogDemo/WebLogRep"
|
||||
#include "~/TOSCfg"
|
||||
#include "~/TOSMisc"
|
||||
#include "~/TOSToHtml"
|
||||
#include "~/TOSDistro"
|
||||
#include "~/TOSBlog"
|
||||
#include "~/TOSHolySpirit"
|
||||
|
||||
#include "~/HomeKeyPlugIns"
|
||||
#include "~/HomeWrappers"
|
||||
#include "~/HomeSys"
|
||||
Cd("..");;
|
||||
Binary file not shown.
@@ -1,4 +1,5 @@
|
||||
$WW,1$$FG,5$$TX+CX,"TODO"$$FG$
|
||||
* $LK,"::/Demo/Games/RawHide.CPP"$ fix waterfall code so not in center.
|
||||
|
||||
* Investigate why packet loss $LK,"Training Sleep(1)",A="FF:::/Adam/Training.CPP,Sleep(1)"$.
|
||||
|
||||
@@ -6,10 +7,6 @@ $WW,1$$FG,5$$TX+CX,"TODO"$$FG$
|
||||
|
||||
* $LK,"SpriteEd",A="FI:::/Adam/Gr/SpriteEd.CPP"$ shift pts, Ctrl pt for ellipse/polygon w,h is off when rotated.
|
||||
|
||||
* $LK,"SpriteMesh",A="FI:::/Adam/Gr/SpriteMesh.CPP"$: $LK,"R",A="MN:R"$("Mesh",...);?
|
||||
* $LK,"SpriteMesh",A="FI:::/Adam/Gr/SpriteMesh.CPP"$: Add change triangle color.
|
||||
* $LK,"SpriteMesh",A="FI:::/Adam/Gr/SpriteMesh.CPP"$: Add make-prism.
|
||||
|
||||
* God said this is bad. $LK,"FL:::/Adam/DolDoc/DocFind.CPP,41"$
|
||||
* Backward <SHIFT-F3> is broken?
|
||||
|
||||
@@ -57,6 +54,8 @@ $WW,1$$FG,5$$TX+CX,"TODO"$$FG$
|
||||
|
||||
* Use pen_width and pen_height when clipping with pen_width>1.
|
||||
|
||||
* $LK,"~/Downloads/Games/Rocks.CPP"$.
|
||||
|
||||
* Asm LIST NOLIST bugs.
|
||||
|
||||
* Review writing to same cache-line from multicore. Do $LK,"CTask",A="MN:CTask"$->task_flags and others need to be in separate cache lines?
|
||||
@@ -64,6 +63,14 @@ $WW,1$$FG,5$$TX+CX,"TODO"$$FG$
|
||||
* Fix $LK,"KbdLEDsSet",A="MN:KbdLEDsSet"$().
|
||||
* NumLock comes on with break key.
|
||||
|
||||
* Hymns: mightest, finger
|
||||
|
||||
* Get rid of JIFFY and HPET and just use tS.
|
||||
|
||||
* Change %h*c so the character is not a arg?
|
||||
|
||||
* $LK,"GrLineFat3",A="MN:GrLineFat3"$() needs work.
|
||||
|
||||
|
||||
$FG,5$$TX+CX,"TODO? Meh"$$FG$
|
||||
* Compiler: lock{} needs warn on invalid modes or something.
|
||||
@@ -152,7 +159,7 @@ $FG,5$$TX+CX,"Bugs? Not really sure."$$FG$
|
||||
|
||||
* $LK,"ChkDsk",A="MN:ChkDsk"$ alloc unalloced. I don't know if I fixed this.
|
||||
|
||||
* 1/?/2015,8/10/2015 Macro select in Menu did not go to shell? No, I think just <CTRL-m> twice. Not a bug.
|
||||
* 1/?/2015,8/10/2015 Macro sel in Menu did not go to shell? No, I think just <CTRL-m> twice. Not a bug.
|
||||
|
||||
* 5/7/14:Something like $LK,"AFSetIP",A="MN:AFSetIP"$ caused hang, then reboot in TestSuite.
|
||||
* 5/7/14:#63 Maybe, $LK,"::/Demo/Graphics/Pick3D.CPP"$ crashed in TestSuite.
|
||||
@@ -205,6 +212,8 @@ $ID,-5$
|
||||
$FG,5$$TX+CX,"Committee Needed"$$FG$
|
||||
* Make binary tree look-up using FUN_SEG symbol addresses, so we can eliminate fun_seg cache and wall-paper kludge? All HolyC functions and glbl vars would have left-right for address search.
|
||||
|
||||
* $LK,"MP DepthBuf",A="FF:::/Adam/Gr/SpriteMesh.CPP,dc->depth_buf=e->"$ is a kludge because of dc->depth_buf=NULL in various graphics routines.
|
||||
|
||||
* Improve editor undo, add redo.
|
||||
|
||||
* Compiler: F32?
|
||||
@@ -261,7 +270,9 @@ $FG,5$$TX+CX,"Committee Needed"$$FG$
|
||||
|
||||
* Note: We will never put multiple $LK,"Keyboard Tables",A="FI:::/Kernel/SerialDev/Keyboard.CPP"$. Each country must make their own version of TempleOS. The $LK,"Intel Factory ROM",A="FF:::/Doc/Demands.TXT,English"$ will have just English. Our $LK,"Charter",A="FI:::/Doc/Charter.TXT"$ bans multiple country or architectures in the same version.
|
||||
|
||||
* We are not doing UTF, but we will add cyrillic 8-bit Russian font on aux_font. <CTRL-ALT-f> will toggle fonts. Or, we will redefine upper 128-255 ASCII characters and move 12 border chars to screen font codes 0-26? $LK,"TextBorder",A="MN:TextBorder"$() $LK,"RawDr",A="MN:RawDr"$(). Add aux_font option with $LK,"chars_bmp_alpha",A="MN:chars_bmp_alpha"$ configured for any aux_font?
|
||||
* 12 border chars in screen font codes 0x02-0x0D. $LK,"TextBorder",A="MN:TextBorder"$() $LK,"RawDr",A="MN:RawDr"$() LineFeed shows-up in $FG,2$<CTRL-m>$FG$ PersonalMenu.
|
||||
|
||||
* Super-simple high speed serial needs flow control. $FG,2$<CTRL-s>$FG$ and $FG,2$<CTRL-q>$FG$?
|
||||
|
||||
|
||||
$FG,5$$TX+CX,"Inspirational Ideas"$$FG$
|
||||
@@ -354,7 +365,7 @@ $FG,5$$TX+CX,"Uncategorized"$$FG$
|
||||
|
||||
* $LK,"gr.screen_image",A="MN:CGrGlbls"$
|
||||
>Might want to do ZOOM in U8 graphics and convert screen capture to U8
|
||||
>Might want to reverse bit order
|
||||
>Might want to rev bit order
|
||||
|
||||
* This $LK,"Fs->catch_except=TRUE",A="FF:::/Kernel/SrvCmd.CPP,Fs->catch_except=TRUE"$ causes problems because it
|
||||
catches divide and out-of-mem. Not sure what to do, yet.
|
||||
@@ -397,7 +408,7 @@ Do not seek your own wealth $TX,"1 Corinthians 10:24",HTML="http://www.biblegat
|
||||
$FG,5$$TX+CX,"Misc Notes"$$FG$
|
||||
Intel CEO's name: Brian Krzanich
|
||||
>$FG,2$lspci -v$FG$
|
||||
Size:$TX,"17380 KB",D="DD_TEMPLEOSCD_K_SIZE"$
|
||||
Size:$TX,"17400 KB",D="DD_TEMPLEOSCD_K_SIZE"$
|
||||
|
||||
$FG,5$$TX+CX,"My Web Bookmarks"$$FG$$WW,0$
|
||||
$TX,"My FireFox Bookmarks",HTML="http://www.templeos.org/Wb/Home/Downloads/Blog/Bookmarks"$
|
||||
|
||||
@@ -2,45 +2,48 @@ $TR-UL,"Adam"$
|
||||
$ID,2$$TR,"SysMsgFlags"$
|
||||
$ID,2$sys_msg_flags[0]=0xFF;
|
||||
$ID,-2$$TR,"SysRegVer"$
|
||||
$ID,2$registry_version=4.06;
|
||||
$ID,-2$$ID,-2$$TR-UL,"TempleOS"$
|
||||
$ID,2$registry_version=4.080;
|
||||
$ID,-2$$ID,-2$$TR-C-UL,"TempleOS"$
|
||||
$ID,2$$TR,"TOS"$
|
||||
$ID,2$I64 tos_code_walk_thru=105,tos_after_egypt_in_action=46;
|
||||
$ID,-2$$TR,"CircleTrace"$
|
||||
$ID,2$F64 best_score=4.9425;
|
||||
$ID,-2$$TR,"DiningStars"$
|
||||
$ID,2$F64 best_score=9999.0000;
|
||||
$ID,-2$$TR,"Staff"$
|
||||
$ID,2$#define PERSONAL_INITIALS "TAD"
|
||||
#define MACHINE_CFG 0
|
||||
$ID,-2$$TR,"BlackDiamond"$
|
||||
$ID,2$I64 best_score=9;
|
||||
$ID,-2$$TR,"EagleDive"$
|
||||
$ID,2$I64 best_score=8;
|
||||
$ID,-2$$TR,"DunGen"$
|
||||
$ID,2$F64 best_score=20.5295;
|
||||
$ID,-2$$TR,"CastleFrankenstein"$
|
||||
$ID,2$F64 best_score=33.8405;
|
||||
$ID,-2$$TR,"ZoneOut"$
|
||||
$ID,2$F64 best_score=8.1373;
|
||||
$ID,-2$$TR,"Varoom"$
|
||||
$ID,2$F64 best_score=46.2643;
|
||||
$ID,-2$$TR,"FlapBat"$
|
||||
$ID,2$F64 best_score=16.4090;
|
||||
$ID,-2$$TR,"TimeOut"$
|
||||
$ID,2$I64 best_score=22202;
|
||||
$ID,-2$$TR,"RawHide"$
|
||||
$ID,2$F64 best_score=96.1279;
|
||||
$ID,-2$$TR,"KeepAway"$
|
||||
$ID,2$I64 best_score0=0,best_score1=9999;
|
||||
$ID,-2$$TR,"Wenceslas"$
|
||||
$ID,2$F64 best_score=49.8074;
|
||||
$ID,-2$$TR,"BomberGolf"$
|
||||
$ID,2$I64 best_score=175;
|
||||
$ID,-2$$TR,"Varoom"$
|
||||
$ID,2$F64 best_score=46.2643;
|
||||
$ID,-2$$TR,"EagleDive"$
|
||||
$ID,2$I64 best_score=4;
|
||||
$ID,-2$$TR,"XCaliber"$
|
||||
$ID,2$I64 best_score=248;
|
||||
I64 msg_flags=1;
|
||||
$ID,-2$$TR,"Wenceslas"$
|
||||
$ID,2$F64 best_score=43.9944;
|
||||
$ID,-2$$TR,"BomberGolf"$
|
||||
$ID,2$I64 best_score=175;
|
||||
$ID,-2$$TR,"KeepAway"$
|
||||
$ID,2$I64 best_score0=68,best_score1=30;
|
||||
$ID,-2$$ID,-2$$TR,"DemoCompany"$
|
||||
$ID,2$
|
||||
$TR,"Game1"$
|
||||
$ID,2$F64 best_score=190.66292;
|
||||
$ID,2$F64 best_score=166.57305;
|
||||
$TR,"SimpleVal"$
|
||||
$ID,2$1313;
|
||||
$ID,2$1329;
|
||||
$ID,-2$$ID,-2$
|
||||
@@ -100,7 +100,8 @@ public U0 MakeWebSitePartial()
|
||||
public U0 Blog()
|
||||
{
|
||||
if (!FileFind(BlogLocalFile,,FUF_JUST_FILES))
|
||||
Copy("::/Home/Downloads/Blog/DailyBlogHeader.TXT.Z",BlogLocalFile);
|
||||
Copy("~/Web/" PERSONAL_INITIALS "/DailyBlogHeader.TXT.Z",
|
||||
BlogLocalFile);
|
||||
AutoComplete;
|
||||
WinBorder;
|
||||
WinMax;
|
||||
|
||||
@@ -1,7 +1,12 @@
|
||||
#help_index "TOS"
|
||||
|
||||
RegSetDftEntry("TempleOS/Staff",
|
||||
"#define PERSONAL_INITIALS \"TAD\"\n"
|
||||
"#define MACHINE_CFG 0\n"
|
||||
);
|
||||
RegExeBranch("TempleOS/Staff");
|
||||
|
||||
#define PERSONAL_WEB "http:/" "/www.templeos.org/Wb"
|
||||
#define PERSONAL_INITIALS "TAD"
|
||||
#define BLOG_BASE "/Home/Web/" PERSONAL_INITIALS "/Blog"
|
||||
#define DAILY_BASE "/Home/Web/" PERSONAL_INITIALS "/DailyBlog"
|
||||
#define BLOG_LOCAL_BASE "::" BLOG_BASE
|
||||
@@ -29,16 +34,29 @@ U0 TOSBootRescueDrv2()
|
||||
|
||||
U0 TOSInit()
|
||||
{
|
||||
DefinePrint("CFG_RAM_DRVS",
|
||||
"\"b\nScale2Mem(2048,0x100000,4*1024*1024*1024)\n\"");
|
||||
DefinePrint("CFG_HARD_DRVS","\"\"");
|
||||
DefinePrint("CFG_DVD_DRVS","\"\"");
|
||||
DefinePrint("CFG_DSK_CACHE","\"Scale2Mem(0x80000,0x8000000)\n\"");
|
||||
DefinePrint("TOS_HDS","\"CD\"");
|
||||
DefinePrint("TOS_MASTER_BOOT_DRVS","\"C\"");
|
||||
switch (MACHINE_CFG) {
|
||||
case 1: //TAD Native Machine
|
||||
DefinePrint("CFG_RAM_DRVS",
|
||||
"\"b\nScale2Mem(2048,0x100000,4*1024*1024*1024)\n\"");
|
||||
DefinePrint("CFG_HARD_DRVS","\"cs0xFE00\n0xFE10\n0\"");
|
||||
DefinePrint("CFG_DVD_DRVS","\"ts0x1F0\n1\"");
|
||||
DefinePrint("CFG_DSK_CACHE","\"Scale2Mem(0x80000,0x8000000)\n\"");
|
||||
DefinePrint("TOS_HDS","\"CD\"");
|
||||
DefinePrint("TOS_MASTER_BOOT_DRVS","\"C\"");
|
||||
break;
|
||||
default:
|
||||
DefinePrint("CFG_RAM_DRVS",
|
||||
"\"b\nScale2Mem(2048,0x100000,4*1024*1024*1024)\n\"");
|
||||
DefinePrint("CFG_HARD_DRVS","\"\"");
|
||||
DefinePrint("CFG_DVD_DRVS","\"\"");
|
||||
DefinePrint("CFG_DSK_CACHE","\"Scale2Mem(0x80000,0x8000000)\n\"");
|
||||
DefinePrint("TOS_HDS","\"CD\"");
|
||||
DefinePrint("TOS_MASTER_BOOT_DRVS","\"C\"");
|
||||
}
|
||||
} TOSInit;
|
||||
|
||||
#define TOS_ISO_NAME "B:/TempleOSCD.ISO"
|
||||
#define TOS_ISO_C_NAME "B:/TempleOSCD.ISO.C"
|
||||
#define TOS_DISTRO_DIR "B:/Distro"
|
||||
#define CFG_OPTS "AutoMountIDE\nCT\n"
|
||||
#define CFG_DBG_OPTS "AutoMountIDE\nCT"\
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
//The CFG defines are $LK,"::/Home/TOSCfg.CPP",A="FI:::/Demo/AcctExample/TOSCfg.CPP"$.
|
||||
//The CFG defines are $LK,"~/TOSCfg.CPP",A="FI:::/Demo/AcctExample/TOSCfg.CPP"$.
|
||||
|
||||
#help_index "TOS"
|
||||
|
||||
@@ -68,10 +68,7 @@ public U0 CopySongs(U8 threshold='7')
|
||||
|
||||
U0 DistroPrep()
|
||||
{
|
||||
Del("/Demo/WebLogExample/WebLogRep.TXT*");
|
||||
Del("/Demo/ReverseFileExample/PoemForeward.TXT*");
|
||||
Del("/Demo/ToHtmlToTXTExample/Out*");
|
||||
Del("/Home/NumBible.TXT.Z");
|
||||
Del("/Home/Demo*");
|
||||
DelTree("/Home/*Temp.TXT.Z");
|
||||
if (FileFind("/Home/Downloads/Psalmody"))
|
||||
CopySongs;
|
||||
@@ -97,7 +94,7 @@ U0 DistroPrep()
|
||||
if (FileFind("/Home/Downloads/Blog/YouTube.TXT.Z"))
|
||||
Sort("/Home/Downloads/Blog/YouTube.TXT.Z",,2);
|
||||
|
||||
//Once in a while, do $LK,"::/Home/Downloads/Utils/DblSpaceScan.CPP"$.
|
||||
//Once in a while, do $LK,"~/Downloads/Utils/DblSpaceScan.CPP"$.
|
||||
|
||||
CursorRem("/*");
|
||||
DelTree("/Demo/*.BI*");
|
||||
@@ -223,7 +220,7 @@ I64 MakeLineRepFile()
|
||||
return res;
|
||||
}
|
||||
|
||||
U0 TOSDistroPrep()
|
||||
U0 StaffDistroPrep()
|
||||
{/*This is the TempleOS internal distro. Only run this on a
|
||||
virtual machine, not bare metal hardware because it's settings could cause
|
||||
problems. The hard drive must be partitioned. Install Std Distro, then
|
||||
@@ -233,17 +230,18 @@ install this on top.
|
||||
DistroPrep;
|
||||
Auto(TOS_DVD_CFG);
|
||||
MakeOSDrvBootInstall('C','T');
|
||||
Fmt('B',,FALSE,FSt_REDSEA);
|
||||
DelTree(TOS_DISTRO_DIR);
|
||||
CopyTree("C:/",TOS_DISTRO_DIR "/");
|
||||
Del(TOS_DISTRO_DIR "/" KERNEL_BIN_C);
|
||||
}
|
||||
U0 MakeTOSDistro()
|
||||
U0 MakeStaffDistro()
|
||||
{
|
||||
TOSDistroPrep;
|
||||
ISOFileCreate(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
|
||||
StaffDistroPrep;
|
||||
ISO9660ISO(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
|
||||
TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
|
||||
DefinePrint("DD_TEMPLEOSTS_SIZE",
|
||||
"Download $TX,"TempleOS V4.06",D="DD_OS_NAME_VERSION"$ - T.S. Company Internal Distro (%0.1f MB)",
|
||||
DefinePrint("DD_TEMPLEOSSTAFF_SIZE",
|
||||
"Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - T.S. Company Internal Distro (%0.1f MB)",
|
||||
0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
|
||||
Drv('C');
|
||||
}
|
||||
@@ -267,6 +265,7 @@ I call $LK,"MakeBootDrvFile",A="FF:::/Demo/AcctExample/TOSDistro.CPP,MakeBootRes
|
||||
MakeBootRescueDrvFile;
|
||||
Auto(TOS_DVD_DBG_CFG);
|
||||
MakeOSDrvBootInstall('C','T');
|
||||
Fmt('B',,FALSE,FSt_REDSEA);
|
||||
DelTree(TOS_DISTRO_DIR);
|
||||
CopyTree("C:/",TOS_DISTRO_DIR "/");
|
||||
Del(TOS_DISTRO_DIR "/" KERNEL_BIN_C);
|
||||
@@ -275,10 +274,10 @@ I call $LK,"MakeBootDrvFile",A="FF:::/Demo/AcctExample/TOSDistro.CPP,MakeBootRes
|
||||
U0 MakeDbgDistro()
|
||||
{
|
||||
DbgDistroPrep;
|
||||
ISOFileCreate(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
|
||||
ISO9660ISO(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
|
||||
TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
|
||||
DefinePrint("DD_TEMPLEOSDBG_SIZE",
|
||||
"Download $TX,"TempleOS V4.06",D="DD_OS_NAME_VERSION"$ - Debug Distro (%0.1f MB)",
|
||||
"Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - Debug Distro (%0.1f MB)",
|
||||
0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
|
||||
Drv('C');
|
||||
}
|
||||
@@ -289,6 +288,7 @@ U0 StdDistroPrep()
|
||||
DistroPrep;
|
||||
Auto(STD_DISTRO_DVD_CFG);
|
||||
MakeOSDrvBootInstall('C','T');
|
||||
Fmt('B',,FALSE,FSt_REDSEA);
|
||||
DelTree(TOS_DISTRO_DIR);
|
||||
CopyTree("C:/",TOS_DISTRO_DIR "/");
|
||||
DelTree(TOS_DISTRO_DIR "/Home");
|
||||
@@ -300,8 +300,20 @@ U0 StdDistroPrep()
|
||||
U0 MakeStdDistro()
|
||||
{
|
||||
StdDistroPrep;
|
||||
ISOFileCreate(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
|
||||
ISO9660ISO(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
|
||||
TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
|
||||
DefinePrint("DD_TEMPLEOSCD_SIZE",
|
||||
"Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - Standard Distro (%0.1f MB)",
|
||||
0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
|
||||
Drv('C');
|
||||
}
|
||||
U0 MakeStdRedSeaDistro()
|
||||
{
|
||||
StdDistroPrep;
|
||||
RedSeaISO(TOS_ISO_C_NAME,TOS_DISTRO_DIR,TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
|
||||
DefinePrint("DD_TEMPLEOSCD_RS_SIZE",
|
||||
"Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - Standard RedSea Distro (%0.1f MB)",
|
||||
0.1*(10*Size(TOS_ISO_C_NAME,"+s")/1024/1024));
|
||||
Drv('C');
|
||||
}
|
||||
|
||||
@@ -323,10 +335,10 @@ Demos, Documentation.
|
||||
U0 MakeLiteDistro()
|
||||
{
|
||||
LiteDistroPrep;
|
||||
ISOFileCreate(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
|
||||
ISO9660ISO(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
|
||||
TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
|
||||
DefinePrint("DD_TEMPLEOSLITE_SIZE",
|
||||
"Download $TX,"TempleOS V4.06",D="DD_OS_NAME_VERSION"$ - Lite Distro (%0.1f MB)",
|
||||
"Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - Lite Distro (%0.1f MB)",
|
||||
0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
|
||||
Drv('C');
|
||||
}
|
||||
@@ -356,11 +368,20 @@ FileManager, WindowManager, PCSpeaker, Documentation.
|
||||
U0 MakeUltraDistro()
|
||||
{
|
||||
UltraDistroPrep;
|
||||
ISOFileCreate(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
|
||||
ISO9660ISO(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
|
||||
TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
|
||||
DefinePrint("DD_TEMPLEOSULTRA_SIZE",
|
||||
"Download $TX,"TempleOS V4.06",D="DD_OS_NAME_VERSION"$ - UltraLite Distro (%0.1f MB)",
|
||||
0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
|
||||
"Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - UltraSmall Distro (%0.2f MB)",
|
||||
0.01*(100*Size(TOS_ISO_NAME,"+s")/1024/1024));
|
||||
Drv('C');
|
||||
}
|
||||
U0 MakeUltraRedSeaDistro()
|
||||
{
|
||||
UltraDistroPrep;
|
||||
RedSeaISO(TOS_ISO_C_NAME,TOS_DISTRO_DIR,TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
|
||||
DefinePrint("DD_TEMPLEOSULTRA_RS_SIZE",
|
||||
"Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - UltraSmall RedSea Distro (%0.2f MB)",
|
||||
0.01*(100*Size(TOS_ISO_C_NAME,"+s")/1024/1024));
|
||||
Drv('C');
|
||||
}
|
||||
|
||||
@@ -368,26 +389,38 @@ U0 UpdateISODocDefines()
|
||||
{
|
||||
try {
|
||||
DefinePrint("DD_TEMPLEOSCD_SIZE",
|
||||
"Download $TX,"TempleOS V4.06",D="DD_OS_NAME_VERSION"$ - Standard Distro (%0.1f MB)",
|
||||
"Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - Standard Distro (%0.1f MB)",
|
||||
0.1*(10*Size("D:/Wb/TempleOSCD.ISO","+s")/1024/1024));
|
||||
DefinePrint("DD_TEMPLEOSCD_K_SIZE",
|
||||
"%d KB",Size("D:/Wb/TempleOSCD.ISO","+s")/1024);
|
||||
|
||||
DefinePrint("DD_TEMPLEOSCD_RS_SIZE",
|
||||
"Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - Standard RedSea Distro (%0.1f MB)",
|
||||
0.1*(10*Size("D:/Wb/TempleOSCDRS.ISO","+s")/1024/1024));
|
||||
DefinePrint("DD_TEMPLEOSCD_RS_K_SIZE",
|
||||
"%d KB",Size("D:/Wb/TempleOSCDRS.ISO","+s")/1024);
|
||||
|
||||
DefinePrint("DD_TEMPLEOSULTRA_SIZE",
|
||||
"Download $TX,"TempleOS V4.06",D="DD_OS_NAME_VERSION"$ - UltraSmall Distro (%0.1f MB)",
|
||||
0.1*(10*Size("D:/Wb/TempleOSUltra.ISO","+s")/1024/1024));
|
||||
"Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - UltraSmall Distro (%0.2f MB)",
|
||||
0.01*(100*Size("D:/Wb/TempleOSUltra.ISO","+s")/1024/1024));
|
||||
DefinePrint("DD_TEMPLEOSULTRA_K_SIZE",
|
||||
"%d KB",Size("D:/Wb/TempleOSUltra.ISO","+s")/1024);
|
||||
|
||||
DefinePrint("DD_TEMPLEOSULTRA_RS_SIZE",
|
||||
"Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - UltraSmall RedSea Distro (%0.2f MB)",
|
||||
0.01*(100*Size("D:/Wb/TempleOSUltraRS.ISO","+s")/1024/1024));
|
||||
DefinePrint("DD_TEMPLEOSULTRA_RS_K_SIZE",
|
||||
"%d KB",Size("D:/Wb/TempleOSUltraRS.ISO","+s")/1024);
|
||||
} catch
|
||||
Fs->catch_except=TRUE;
|
||||
}
|
||||
|
||||
UpdateISODocDefines;
|
||||
|
||||
public U0 MakeDistrosAndBackUp()
|
||||
{
|
||||
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
||||
progress4=*progress4_desc=0;
|
||||
progress4_max=14;
|
||||
progress4_max=19;
|
||||
AutoComplete;
|
||||
WinBorder;
|
||||
WinMax;
|
||||
@@ -401,11 +434,23 @@ public U0 MakeDistrosAndBackUp()
|
||||
|
||||
MakeStdDistro; progress4++;
|
||||
DocClear;
|
||||
Copy(TOS_ISO_NAME,"D:/Wb/TempleOSCD.ISO"); progress4++;
|
||||
Move(TOS_ISO_NAME,"D:/Wb/TempleOSCD.ISO"); progress4++;
|
||||
|
||||
MakeStdRedSeaDistro; progress4++;
|
||||
DocClear;
|
||||
Move(TOS_ISO_C_NAME,"D:/Wb/TempleOSCDRS.ISO"); progress4++;
|
||||
|
||||
MakeUltraDistro; progress4++;
|
||||
DocClear;
|
||||
Copy(TOS_ISO_NAME,"D:/Wb/TempleOSUltra.ISO"); progress4++;
|
||||
Move(TOS_ISO_NAME,"D:/Wb/TempleOSUltra.ISO"); progress4++;
|
||||
|
||||
MakeUltraRedSeaDistro; progress4++;
|
||||
DocClear;
|
||||
Move(TOS_ISO_C_NAME,"D:/Wb/TempleOSUltraRS.ISO"); progress4++;
|
||||
|
||||
MakeStaffDistro; progress4++;
|
||||
DocClear;
|
||||
Move(TOS_ISO_NAME,"D:/Wb/TempleOSStaff.ISO"); progress4++;
|
||||
|
||||
UpdateISODocDefines;
|
||||
|
||||
|
||||
@@ -15,7 +15,11 @@ U0 BadCodeJump()
|
||||
DocDel(doc);
|
||||
tempde=tempde->next;
|
||||
}
|
||||
num=KbdMouseEvtTime>>GOD_BAD_BITS%cnt;
|
||||
|
||||
FifoU8Flush(god.fifo);
|
||||
GodBitsIns(GOD_GOOD_BITS,KbdMouseEvtTime>>GOD_BAD_BITS);
|
||||
num=GodBits(GOD_GOOD_BITS)%cnt;
|
||||
|
||||
tempde=tempde1;
|
||||
while (tempde) {
|
||||
num-=tempde->user_data;
|
||||
@@ -30,7 +34,7 @@ U0 BadCodeJump()
|
||||
Free(st);
|
||||
}
|
||||
|
||||
U8 *WebBookMarks(U8 *filename="::/Home/Downloads/Blog/Bookmarks.html")
|
||||
U8 *WebBookMarks(U8 *filename="~/Downloads/Blog/Bookmarks.html")
|
||||
{
|
||||
U8 *st;
|
||||
CDocEntry *doc_e;
|
||||
@@ -190,10 +194,11 @@ class CRandDecForm
|
||||
I64 sec;
|
||||
};
|
||||
|
||||
class CRandHexForm
|
||||
class CRandHex5Form
|
||||
{
|
||||
U8 tag[STR_LEN];
|
||||
U8 special[STR_LEN] fmtstr "$$DA-P,A=\"Line (Hex):%s\"$$\n";
|
||||
U8 special[STR_LEN] fmtstr "$$DA-P-TRM,LEN=5,"
|
||||
"A=\"Line (5-Digit Hex):%5s\"$$\n";
|
||||
I64 timestamp;
|
||||
I64 cert;
|
||||
I64 min;
|
||||
@@ -618,7 +623,7 @@ U0 InsMyURL()
|
||||
}
|
||||
break;
|
||||
case:
|
||||
if (DocForm(url(CRandHexForm *))) {
|
||||
if (DocForm(url(CRandHex5Form *))) {
|
||||
"$$TX,\"Guidelines for Talking with God\","
|
||||
"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
|
||||
tag="http://qrng.anu.edu.au/NIST.php";
|
||||
@@ -627,7 +632,7 @@ U0 InsMyURL()
|
||||
}
|
||||
break;
|
||||
case:
|
||||
if (DocForm(url(CRandHexForm *))) {
|
||||
if (DocForm(url(CRandHex5Form *))) {
|
||||
"$$TX,\"Guidelines for Talking with God\","
|
||||
"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
|
||||
tag="https://www.fourmilab.ch/hotbits/secure_generate.html";
|
||||
@@ -677,5 +682,5 @@ U0 InsMyURL()
|
||||
Free(url);
|
||||
}
|
||||
|
||||
if (FileFind("::/Home/Downloads/Words/LinuxDict.TXT"))
|
||||
GodInit("::/Home/Downloads/Words/LinuxDict.TXT");
|
||||
if (FileFind("~/Downloads/Words/LinuxDict.TXT"))
|
||||
GodInit("~/Downloads/Words/LinuxDict.TXT");
|
||||
@@ -124,7 +124,7 @@ public U0 JukeSong(I64 num)
|
||||
AutoComplete;
|
||||
if (!fg_on)
|
||||
FrameGrabberToggle;
|
||||
JukeSongsPuppet("::/Home/Downloads/Psalmody",,num,num+1);
|
||||
JukeSongsPuppet("~/Downloads/Psalmody",,num,num+1);
|
||||
if (fg_on)
|
||||
FrameGrabberToggle;
|
||||
}
|
||||
@@ -134,7 +134,7 @@ public U0 JukeLines(I64 start_line,I64 end_line)
|
||||
AutoComplete;
|
||||
if (!fg_on)
|
||||
FrameGrabberToggle;
|
||||
JukeSongsPuppet("::/Home/Downloads/Psalmody",,start_line*5,end_line*5);
|
||||
JukeSongsPuppet("~/Downloads/Psalmody",,start_line*5,end_line*5);
|
||||
if (fg_on)
|
||||
FrameGrabberToggle;
|
||||
}
|
||||
@@ -273,7 +273,7 @@ U0 AfterEgyptInAction()
|
||||
WinMax;
|
||||
if (!fg_on)
|
||||
PopUp("Sleep(50);FrameGrabberToggle;");
|
||||
Ed("::/Home/Videos/AfterEgypt.TXT.Z");
|
||||
Ed("~/Videos/AfterEgypt.TXT.Z");
|
||||
Msg(MSG_KEY_DOWN_UP,CH_SPACE,0x3900000039); //<SPACE>
|
||||
ExeFile("::/Apps/AfterEgypt/Run");
|
||||
SettingsPop;
|
||||
@@ -289,7 +289,7 @@ U0 CodeWalkThru()
|
||||
WinMax;
|
||||
if (!fg_on)
|
||||
PopUp("Sleep(50);FrameGrabberToggle;");
|
||||
Ed("::/Home/Videos/RandomCode.TXT.Z");
|
||||
Ed("~/Videos/RandomCode.TXT.Z");
|
||||
SettingsPop;
|
||||
Msg(MSG_KEY_DOWN_UP,'b',0x83000000830); //<ALT-b>
|
||||
tos_code_walk_thru++;
|
||||
@@ -300,7 +300,7 @@ U0 TempleOSTheme()
|
||||
{
|
||||
if (!fg_on)
|
||||
PopUp("Sleep(50);FrameGrabberToggle;");
|
||||
ExeFile("::/Home/Downloads/Graphics/TempleOSTheme.CPP");
|
||||
ExeFile("~/Downloads/Graphics/TempleOSTheme.CPP");
|
||||
DocClear;
|
||||
}
|
||||
|
||||
@@ -310,6 +310,6 @@ U0 TOSJukeVideo(I64 start=0,I64 end=10)
|
||||
Free(buf);
|
||||
AutoComplete;
|
||||
FrameGrabberToggle;
|
||||
JukeSongsPuppet("::/Home/Downloads/Psalmody",,start,end);
|
||||
JukeSongsPuppet("~/Downloads/Psalmody",,start,end);
|
||||
FrameGrabberToggle;
|
||||
}
|
||||
@@ -1,4 +1,4 @@
|
||||
//This is a customized version of $LK,"::/Demo/ToHtmlToTXTExample/ToHtml.CPP"$.
|
||||
//This is a customized version of $LK,"::/Demo/ToHtmlToTXTDemo/ToHtml.CPP"$.
|
||||
|
||||
#help_index "DolDoc/Conversion"
|
||||
//See $LK,"::/Doc/Credits.TXT"$.
|
||||
@@ -33,25 +33,25 @@ U0 HtmlPutS(CDoc *doc,I64 u32_attr,I64 *_old_u32_attr,
|
||||
} while (*_col&7);
|
||||
break;
|
||||
|
||||
sub_switch_start:
|
||||
start:
|
||||
case 'ã': ptr="pi"; break;
|
||||
case 'é': ptr="theta"; break;
|
||||
case 'è': ptr="phi"; break;
|
||||
case 'ê': ptr="omega"; break;
|
||||
case 'ì': ptr="inf"; break;
|
||||
case 'æ': ptr="u"; break;
|
||||
sub_switch_end:
|
||||
end:
|
||||
DocPrint(doc,ptr);
|
||||
*_col=*_col+StrLen(ptr);
|
||||
break;
|
||||
|
||||
sub_switch_start:
|
||||
start:
|
||||
case CH_SHIFT_SPACE: ptr=" "; break;
|
||||
case '&': ptr="&"; break;
|
||||
case '<': ptr="<"; break;
|
||||
case '>': ptr=">"; break;
|
||||
case '"': ptr="""; break;
|
||||
sub_switch_end:
|
||||
end:
|
||||
DocPrint(doc,ptr);
|
||||
*_col=*_col+1;
|
||||
break;
|
||||
@@ -83,7 +83,7 @@ U8 *URLBibleGateway(U8 *src)
|
||||
{
|
||||
U8 buf[STR_LEN],*dst=buf;
|
||||
if (!MemCmp(src,"BF:",3))
|
||||
src+=3;
|
||||
src+=3;
|
||||
while (*src) {
|
||||
if (*src==CH_SPACE || *src==',')
|
||||
*dst++='+';
|
||||
@@ -92,8 +92,12 @@ U8 *URLBibleGateway(U8 *src)
|
||||
src++;
|
||||
}
|
||||
*dst=0;
|
||||
return MStrPrint(
|
||||
"http://www.biblegateway.com/passage/?search=%s&version=NIV",buf);
|
||||
if (StrOcc(buf,'-'))
|
||||
return MStrPrint(
|
||||
"http://www.biblegateway.com/passage/?search=%s&version=NIV",buf);
|
||||
else
|
||||
return MStrPrint(
|
||||
"http://www.biblegateway.com/verse/en/%s",buf);
|
||||
}
|
||||
|
||||
U8 *TOSLinkCvt1(U8 *link_st)
|
||||
@@ -122,12 +126,8 @@ U8 *TOSLinkCvt1(U8 *link_st)
|
||||
Yield;
|
||||
if (!bible)
|
||||
bible=Adam("DocRead(\"%s\");",filename);
|
||||
if (DocFind(bible,num,needle)) {
|
||||
if (StrOcc(link_st,'-'))
|
||||
res=URLBibleGateway(link_st);
|
||||
else
|
||||
res=TOSLinkCvt2(filename,bible->cur_entry->y+1);
|
||||
}
|
||||
if (DocFind(bible,num,needle))
|
||||
res=URLBibleGateway(link_st);
|
||||
LBtr(&locks,0);
|
||||
break;
|
||||
default:
|
||||
@@ -171,7 +171,7 @@ public CDoc *Doc2Html(CDoc *doc_in,U8 *html_header=NULL,U8 *body_header=NULL,
|
||||
"<head>\n"
|
||||
"<meta http-equiv=\"Content-Type\" "
|
||||
"content=\"text/html;charset=US-ASCII\">\n"
|
||||
"<meta name=\"generator\" content=\"$TX,"TempleOS V4.06",D="DD_OS_NAME_VERSION"$\">\n";
|
||||
"<meta name=\"generator\" content=\"$TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$\">\n";
|
||||
if (!body_header) body_header=
|
||||
"<body>\n"
|
||||
"<pre style=\"font-family:courier;font-size:10pt\">\n";
|
||||
@@ -393,7 +393,7 @@ U0 TOSWebFile(U8 *name)
|
||||
"<meta name=\"keywords\" "
|
||||
"content=\"Operating System,64-Bit,64 Bit,"
|
||||
"Temple,OS,TempleOS,Free,Open Source,Public Domain,x86_64\">\n"
|
||||
"<meta name=\"generator\" content=\"$TX,"TempleOS V4.06",D="DD_OS_NAME_VERSION"$\">\n",
|
||||
"<meta name=\"generator\" content=\"$TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$\">\n",
|
||||
|
||||
"<body style=\"background-color:#55FFFF; border-style:solid;
|
||||
border-width:8px; border-color:#0000AA;
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
/* To run this, do a directory, right click on
|
||||
this file's name and select "AutoFile".
|
||||
this file's name and sel "AutoFile".
|
||||
Or, type $LK,"AutoFile",A="MN:AutoFile"$(filename);
|
||||
See $LK,"AutoFile",A="FF:::/Doc/Glossary.TXT,AutoFile"$ in the glossary for more info.
|
||||
*/
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
/* To run this, do a directory, right click on
|
||||
this file's name and select "AutoFile".
|
||||
this file's name and sel "AutoFile".
|
||||
Or, type $LK,"AutoFile",A="MN:AutoFile"$(filename);
|
||||
See $LK,"AutoFile",A="FF:::/Doc/Glossary.TXT,AutoFile"$ in the glossary for more info.
|
||||
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
/* To run this, do a directory, right click on
|
||||
this file's name and select "AutoFile".
|
||||
this file's name and sel "AutoFile".
|
||||
Or, type $LK,"AutoFile",A="MN:AutoFile"$(filename);
|
||||
See $LK,"AutoFile",A="FF:::/Doc/Glossary.TXT,AutoFile"$ in the glossary for more info.
|
||||
|
||||
|
||||
+8
-8
@@ -1,13 +1,13 @@
|
||||
U0 Directives()
|
||||
{
|
||||
"Date :%s\n",__DATE__;
|
||||
"Time :%s\n",__TIME__;
|
||||
"File :%s\n",__FILE__;
|
||||
"Dir :%s\n",__DIR__;
|
||||
"Line :%d\n",__LINE__;
|
||||
"Depth:%d\n",__DEPTH__;
|
||||
"Inst1:%P:%08X\n",$$,$$;
|
||||
"Inst2:%P:%08X\n",$$,$$;
|
||||
"Date :%s\n",__DATE__;
|
||||
"Time :%s\n",__TIME__;
|
||||
"File :%s\n",__FILE__;
|
||||
"Dir :%s\n",__DIR__;
|
||||
"Line :%d\n",__LINE__;
|
||||
"CmdLine:%d\n",__CMD_LINE__;
|
||||
"Inst1 :%P:%08X\n",$$,$$;
|
||||
"Inst2 :%P:%08X\n",$$,$$;
|
||||
}
|
||||
|
||||
Directives;
|
||||
@@ -1,5 +1,5 @@
|
||||
class FDStruct
|
||||
{//Use <CTRL-l> and select "Data", "List" or "Check Box"
|
||||
{//Use <CTRL-l> and sel "Data", "List" or "Check Box"
|
||||
//to generate the fmtstrs.
|
||||
F64 num1 fmtstr "$$DA-TRM,A=\"Float 1:%12.8f\"$$\n";
|
||||
F64 num2 fmtstr "$$DA-TRM,A=\"Float 2:%12e\"$$\n";
|
||||
|
||||
@@ -27,7 +27,7 @@ U0 MenuButton()
|
||||
Bool done=FALSE;
|
||||
I64 i,j=0,freq=100;
|
||||
I64 old_flags=DocPut->flags;
|
||||
//This allows keyboard navigation to skip nonselectible entries.
|
||||
//This allows keyboard navigation to skip nonselible entries.
|
||||
DocPut->flags|=DOCF_FORM;
|
||||
do {
|
||||
DocClear;
|
||||
|
||||
@@ -4,7 +4,7 @@
|
||||
U0 NumBible()
|
||||
{
|
||||
CDoc *doc_in=DocRead("::/Misc/Bible.TXT.Z",DOCF_PLAIN_TEXT_TABS),
|
||||
*doc_out=DocNew("::/Home/NumBible.TXT.Z");
|
||||
*doc_out=DocNew("~/DemoNumBible.TXT.Z");
|
||||
CDocEntry *doc_e=doc_in->root.next;
|
||||
while (doc_e!=doc_in) {
|
||||
if (doc_e->type_u8==DOCT_TEXT) {
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
#define DB_FILENAME "::/Home/DataBaseDemo.BIN"
|
||||
#define DB_FILENAME "~/DataBaseDemo.BIN"
|
||||
#define DB_MAX_ACCT 100
|
||||
#define DB_ACCT_BLKS 1
|
||||
|
||||
|
||||
+5
-5
@@ -17,19 +17,19 @@ U0 RawAccess(I64 drv_let=0)
|
||||
//Temporarily change partition range to full device.
|
||||
//Normally, you are limited to just your partition.
|
||||
//This is obviously $BK,1$dangerous$BK,0$!
|
||||
old_offset=dv->base_offset;
|
||||
old_offset=dv->drv_offset;
|
||||
old_size =dv->size;
|
||||
dv->base_offset=bd->min_blk;
|
||||
dv->size=bd->max_blk-bd->min_blk+1;
|
||||
dv->drv_offset=0;
|
||||
dv->size=bd->max_blk+1;
|
||||
|
||||
try {
|
||||
blk=GetI64("Blk to Read: ",old_offset,bd->min_blk,bd->max_blk);
|
||||
blk=GetI64("Blk to Read: ",old_offset,0,bd->max_blk);
|
||||
RBlks(dv,buf,blk,1);
|
||||
D(buf,BLK_SIZE);
|
||||
} catch
|
||||
PutExcept;
|
||||
|
||||
dv->base_offset=old_offset;
|
||||
dv->drv_offset=old_offset;
|
||||
dv->size =old_size;
|
||||
|
||||
Free(buf);
|
||||
|
||||
Binary file not shown.
@@ -594,7 +594,7 @@ fs_done:
|
||||
}
|
||||
|
||||
CastleFrankenstein;
|
||||
| ||||