TempleOSCDV5.02.ISO
This commit is contained in:
Terry A. Davis authored and minexew committed
1 parent
320c7ee98a
commit
4b32f058d5
137 files changed
+3474
-3293
No files matched your search
@@ -8,7 +8,7 @@ public U8 *BlogLocalDir(CDate cdt=0)
|
||||
Date2Struct(&ds,cdt);
|
||||
StrPrint(dir,BLOG_LOCAL_BASE "/%d%Z",ds.year,ds.mon-1,"ST_MONTHS");
|
||||
if (!FileFind(dir,,FUF_JUST_DIRS))
|
||||
MkDir(dir);
|
||||
DirMk(dir);
|
||||
return dir;
|
||||
}
|
||||
|
||||
@@ -89,11 +89,11 @@ public U0 BlogScrnShot()
|
||||
|
||||
public U0 FreshenBlog()
|
||||
{//Regen html files for D:/Home/Web.
|
||||
MkDir("D:/Wb");
|
||||
MkDir("D:/Wb/Home");
|
||||
MkDir("D:/Wb/Home/Web");
|
||||
MkDir("D:/Wb/Home/Web/" INS_REG_PERSONAL_INITIALS);
|
||||
MkDir("D:/Wb/Home/Web/" INS_REG_PERSONAL_INITIALS "/BlogDir");
|
||||
DirMk("D:/Wb");
|
||||
DirMk("D:/Wb/Home");
|
||||
DirMk("D:/Wb/Home/Web");
|
||||
DirMk("D:/Wb/Home/Web/" INS_REG_PERSONAL_INITIALS);
|
||||
DirMk("D:/Wb/Home/Web/" INS_REG_PERSONAL_INITIALS "/BlogDir");
|
||||
|
||||
FreshenWebDir("/Home/Web");
|
||||
FreshenWebDir("/Home/Web/" INS_REG_PERSONAL_INITIALS);
|
||||
|
||||
@@ -54,14 +54,14 @@ U0 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 "StaffMode\nAutoMountIDE\nCT\n"
|
||||
#define CFG_DBG_OPTS "StaffMode\nAutoMountIDE\nCT"\
|
||||
#define CFG_OPTS "StaffMode\nMountIDEAuto\nCT\n"
|
||||
#define CFG_DBG_OPTS "StaffMode\nMountIDEAuto\nCT"\
|
||||
"HeapInit\n130\nMemInit\n131\nVarInit\n132\n\n"
|
||||
#define CFG_DBGZ_OPTS "StaffMode\nAutoMountIDE\nCT"\
|
||||
#define CFG_DBGZ_OPTS "StaffMode\nMountIDEAuto\nCT"\
|
||||
"HeapInit\n0\nMemInit\n0\nVarInit\n0\n\n"
|
||||
#define TOS_CFG "\n" CFG_RAM_DRVS CFG_DVD_DRVS CFG_HARD_DRVS "\n"\
|
||||
CFG_DSK_CACHE CFG_OPTS
|
||||
#define TOS_DVD_CFG "TB\n0x20000\nT \n\n\nStaffMode\nAutoMountIDE\nCT\n"
|
||||
#define TOS_DVD_CFG "TB\n0x20000\nT \n\n\nStaffMode\nMountIDEAuto\nCT\n"
|
||||
#define TOS_DVD_DBG_CFG "A" CFG_DBG_DISTRO\
|
||||
"B\nScale2Mem(2048,0x40000)\n\n\n"\
|
||||
"NoMP\nTextMode\nDontProbe\nDbgDistro\n"\
|
||||
|
||||
@@ -63,9 +63,9 @@ U0 DistroSongsPrep(U8 threshold='7')
|
||||
CDoc *doc;
|
||||
CDocEntry *doc_e;
|
||||
CDirEntry *tmpde=FilesFind("/Home/Sup1/Sup1Hymns/*.HC*",
|
||||
FUF_CLUSTER_ORDER),*tmpde1=tmpde;
|
||||
FUF_CLUS_ORDER),*tmpde1=tmpde;
|
||||
DelTree("/Apps/Psalmody/Examples");
|
||||
MkDir("/Apps/Psalmody/Examples");
|
||||
DirMk("/Apps/Psalmody/Examples");
|
||||
while (tmpde) {
|
||||
doc=DocRead(tmpde->full_name);
|
||||
doc_e=doc->head.next;
|
||||
@@ -88,8 +88,8 @@ U0 DistroPrep()
|
||||
DistroSongsPrep;
|
||||
|
||||
DelTree("/Tmp");
|
||||
MkDir("/Tmp");
|
||||
MkDir("/Tmp/ScrnShots");
|
||||
DirMk("/Tmp");
|
||||
DirMk("/Tmp/ScrnShots");
|
||||
|
||||
Touch("/PersonalMenu.DD.Z","+T");
|
||||
Touch("/Home/PersonalMenu.DD.Z","+T");
|
||||
@@ -130,19 +130,19 @@ U0 DbgDistroFilePrep()
|
||||
bd=Let2BlkDev('A');
|
||||
Fmt('A',,FALSE,FSt_REDSEA);
|
||||
|
||||
MkDir("A:/Compiler");
|
||||
DirMk("A:/Compiler");
|
||||
Copy("C:/Compiler/Compiler.BIN.Z", "A:/Compiler");
|
||||
Copy("C:/Compiler/OpCodes.DD.Z", "A:/Compiler");
|
||||
Copy("C:/Compiler/CompilerA.HH.Z", "A:/Compiler");
|
||||
Copy("C:/Compiler/CompilerB.HH.Z", "A:/Compiler");
|
||||
|
||||
MkDir("A:/Kernel");
|
||||
DirMk("A:/Kernel");
|
||||
Copy("C:/Kernel/*.HH*", "A:/Kernel");
|
||||
CopyTree("C:/Kernel/BlkDev", "A:/Kernel/BlkDev");
|
||||
|
||||
Copy("C:/Home/Sup1/Sup1Distro/DbgStartOS.HC.Z","A:/StartOS.HC.Z");
|
||||
|
||||
MkDir("A:/Adam");
|
||||
DirMk("A:/Adam");
|
||||
Copy("C:/Home/Sup1/Sup1Distro/DbgMakeAdam.HC.Z","A:/Adam/MakeAdam.HC.Z");
|
||||
Copy("C:/Home/Sup1/Sup1Distro/DbgMount.HC.Z","A:/Adam");
|
||||
Copy("C:/Adam/AExts.HC.Z", "A:/Adam");
|
||||
@@ -189,7 +189,6 @@ I64 MakeLineRepFile()
|
||||
U8 *st;
|
||||
CDoc *doc;
|
||||
I64 res,official;
|
||||
CDocEntry *tree_branch,*start_indent,*end_indent;
|
||||
|
||||
DocClear;
|
||||
Drv('C');
|
||||
@@ -219,15 +218,10 @@ I64 MakeLineRepFile()
|
||||
CopyTree("B:/TOS/TOS","C:/Home");
|
||||
DelTree("B:/TOS/TOS");
|
||||
|
||||
doc=DocRead("C:/Adam/ADefine.HC.Z");
|
||||
DocTreeFind(doc,"LineRep",&tree_branch,&start_indent,&end_indent);
|
||||
DocCut(doc,start_indent->next,end_indent->last);
|
||||
doc->cur_entry=start_indent->next;
|
||||
doc->cur_col=0;
|
||||
DocPrint(doc,"DefinePrint(\"DD_TEMPLEOS_LOC\",\"%,d\");\n",res);
|
||||
DocPrint(doc,"DefinePrint(\"DD_TEMPLEOS_LOC_OFFICIAL\",\"%,d\");\n",official);
|
||||
DocWrite(doc);
|
||||
DocDel(doc);
|
||||
DocTreeFWrite("C:/Adam/ADefine.HC.Z","LineRep",
|
||||
"DefinePrint(\"DD_TEMPLEOS_LOC\",\"%,d\");\n",res);
|
||||
DocTreeFAppend("C:/Adam/ADefine.HC.Z","LineRep",
|
||||
"DefinePrint(\"DD_TEMPLEOS_LOC_OFFICIAL\",\"%,d\");\n",official);
|
||||
|
||||
DefinePrint("DD_TEMPLEOS_LOC","%,d",res);
|
||||
DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","%,d",official);
|
||||
@@ -256,7 +250,7 @@ U0 MakeStaffDistro()
|
||||
ISO9660ISO(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
|
||||
TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
|
||||
DefinePrint("DD_TEMPLEOS_STAFF_SIZE",
|
||||
"Download $TX,"TempleOS V5.01",D="DD_OS_NAME_VERSION"$ - T.S. Company Internal Distro (%0.1fMB)",
|
||||
"Download $TX,"TempleOS V5.02",D="DD_OS_NAME_VERSION"$ - T.S. Company Internal Distro (%0.1fMB)",
|
||||
0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
|
||||
Drv('C');
|
||||
}
|
||||
@@ -272,7 +266,7 @@ U0 DbgDistroPrep()
|
||||
DelTree(TOS_DISTRO_DIR);
|
||||
CopyTree("C:/",TOS_DISTRO_DIR "/");
|
||||
DelTree(TOS_DISTRO_DIR "/Home");
|
||||
MkDir(TOS_DISTRO_DIR "/Home");
|
||||
DirMk(TOS_DISTRO_DIR "/Home");
|
||||
Del(TOS_DISTRO_DIR "/" KERNEL_BIN_C);
|
||||
Del(TOS_DISTRO_DIR BOOT_DIR "/OldMBR.BIN.C");
|
||||
Del(TOS_DISTRO_DIR BOOT_DIR "/BootMHD2.BIN.C");
|
||||
@@ -283,7 +277,7 @@ U0 MakeDbgDistro()
|
||||
ISO9660ISO(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
|
||||
TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
|
||||
DefinePrint("DD_TEMPLEOS_DBG_SIZE",
|
||||
"Download $TX,"TempleOS V5.01",D="DD_OS_NAME_VERSION"$ - Debug Distro (%0.1fMB)",
|
||||
"Download $TX,"TempleOS V5.02",D="DD_OS_NAME_VERSION"$ - Debug Distro (%0.1fMB)",
|
||||
0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
|
||||
Drv('C');
|
||||
}
|
||||
@@ -298,7 +292,7 @@ U0 StdDistroPrep()
|
||||
DelTree(TOS_DISTRO_DIR);
|
||||
CopyTree("C:/",TOS_DISTRO_DIR "/");
|
||||
DelTree(TOS_DISTRO_DIR "/Home");
|
||||
MkDir(TOS_DISTRO_DIR "/Home");
|
||||
DirMk(TOS_DISTRO_DIR "/Home");
|
||||
Del(TOS_DISTRO_DIR "/" KERNEL_BIN_C);
|
||||
Del(TOS_DISTRO_DIR BOOT_DIR "/OldMBR.BIN.C");
|
||||
Del(TOS_DISTRO_DIR BOOT_DIR "/BootMHD2.BIN.C");
|
||||
@@ -309,7 +303,7 @@ U0 MakeStdDistro()
|
||||
ISO9660ISO(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
|
||||
TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
|
||||
DefinePrint("DD_TEMPLEOSCD_SIZE",
|
||||
"Download $TX,"TempleOS V5.01",D="DD_OS_NAME_VERSION"$ - Standard Distro (%0.1fMB)",
|
||||
"Download $TX,"TempleOS V5.02",D="DD_OS_NAME_VERSION"$ - Standard Distro (%0.1fMB)",
|
||||
0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
|
||||
Drv('C');
|
||||
}
|
||||
@@ -318,7 +312,7 @@ 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 V5.01",D="DD_OS_NAME_VERSION"$ - Standard RedSea Distro (%0.1fMB)",
|
||||
"Download $TX,"TempleOS V5.02",D="DD_OS_NAME_VERSION"$ - Standard RedSea Distro (%0.1fMB)",
|
||||
0.1*(10*Size(TOS_ISO_C_NAME,"+s")/1024/1024));
|
||||
Drv('C');
|
||||
}
|
||||
@@ -333,7 +327,7 @@ U0 UltraDistroPrep()
|
||||
Del(TOS_DISTRO_DIR "/Misc/Bible.TXT.Z");
|
||||
|
||||
DelTree(TOS_DISTRO_DIR "/Apps");
|
||||
MkDir(TOS_DISTRO_DIR "/Apps");
|
||||
DirMk(TOS_DISTRO_DIR "/Apps");
|
||||
DelTree(TOS_DISTRO_DIR "/Demo");
|
||||
DelTree(TOS_DISTRO_DIR "/Misc/Tour");
|
||||
Del(TOS_DISTRO_DIR "/" KERNEL_BIN_C);
|
||||
@@ -351,7 +345,7 @@ U0 MakeUltraDistro()
|
||||
ISO9660ISO(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
|
||||
TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
|
||||
DefinePrint("DD_TEMPLEOS_ULTRA_SIZE",
|
||||
"Download $TX,"TempleOS V5.01",D="DD_OS_NAME_VERSION"$ - UltraSmall Distro (%0.2fMB)",
|
||||
"Download $TX,"TempleOS V5.02",D="DD_OS_NAME_VERSION"$ - UltraSmall Distro (%0.2fMB)",
|
||||
0.01*(100*Size(TOS_ISO_NAME,"+s")/1024/1024));
|
||||
Drv('C');
|
||||
}
|
||||
@@ -360,7 +354,7 @@ U0 MakeUltraRedSeaDistro()
|
||||
UltraDistroPrep;
|
||||
RedSeaISO(TOS_ISO_C_NAME,TOS_DISTRO_DIR,TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
|
||||
DefinePrint("DD_TEMPLEOS_ULTRA_RS_SIZE",
|
||||
"Download $TX,"TempleOS V5.01",D="DD_OS_NAME_VERSION"$ - UltraSmall RedSea Distro (%0.2fMB)",
|
||||
"Download $TX,"TempleOS V5.02",D="DD_OS_NAME_VERSION"$ - UltraSmall RedSea Distro (%0.2fMB)",
|
||||
0.01*(100*Size(TOS_ISO_C_NAME,"+s")/1024/1024));
|
||||
Drv('C');
|
||||
}
|
||||
@@ -370,28 +364,28 @@ U0 UpdateISODocDefines()
|
||||
try {
|
||||
#if MAKE_STD
|
||||
DefinePrint("DD_TEMPLEOSCD_SIZE",
|
||||
"Download $TX,"TempleOS V5.01",D="DD_OS_NAME_VERSION"$ - Standard Distro (%0.1fMB)",
|
||||
"Download $TX,"TempleOS V5.02",D="DD_OS_NAME_VERSION"$ - Standard Distro (%0.1fMB)",
|
||||
0.1*(10*Size("D:/Wb/TempleOSCD.ISO","+s")/1024/1024));
|
||||
DefinePrint("DD_TEMPLEOSCD_K_SIZE",
|
||||
"%dKB",Size("D:/Wb/TempleOSCD.ISO","+s")/1024);
|
||||
#endif
|
||||
#if MAKE_STD_RS
|
||||
DefinePrint("DD_TEMPLEOSCD_RS_SIZE",
|
||||
"Download $TX,"TempleOS V5.01",D="DD_OS_NAME_VERSION"$ - Standard RedSea Distro (%0.1fMB)",
|
||||
"Download $TX,"TempleOS V5.02",D="DD_OS_NAME_VERSION"$ - Standard RedSea Distro (%0.1fMB)",
|
||||
0.1*(10*Size("D:/Wb/TempleOSCDRS.ISO","+s")/1024/1024));
|
||||
DefinePrint("DD_TEMPLEOSCD_RS_K_SIZE",
|
||||
"%dKB",Size("D:/Wb/TempleOSCDRS.ISO","+s")/1024);
|
||||
#endif
|
||||
#if MAKE_ULTRA
|
||||
DefinePrint("DD_TEMPLEOS_ULTRA_SIZE",
|
||||
"Download $TX,"TempleOS V5.01",D="DD_OS_NAME_VERSION"$ - UltraSmall Distro (%0.2fMB)",
|
||||
"Download $TX,"TempleOS V5.02",D="DD_OS_NAME_VERSION"$ - UltraSmall Distro (%0.2fMB)",
|
||||
0.01*(100*Size("D:/Wb/TempleOSUltra.ISO","+s")/1024/1024));
|
||||
DefinePrint("DD_TEMPLEOS_ULTRA_K_SIZE",
|
||||
"%dKB",Size("D:/Wb/TempleOSUltra.ISO","+s")/1024);
|
||||
#endif
|
||||
#if MAKE_ULTRA_RS
|
||||
DefinePrint("DD_TEMPLEOS_ULTRA_RS_SIZE",
|
||||
"Download $TX,"TempleOS V5.01",D="DD_OS_NAME_VERSION"$ - UltraSmall RedSea Distro (%0.2fMB)",
|
||||
"Download $TX,"TempleOS V5.02",D="DD_OS_NAME_VERSION"$ - UltraSmall RedSea Distro (%0.2fMB)",
|
||||
0.01*(100*Size("D:/Wb/TempleOSUltraRS.ISO","+s")/1024/1024));
|
||||
DefinePrint("DD_TEMPLEOS_ULTRA_RS_K_SIZE",
|
||||
"%dKB",Size("D:/Wb/TempleOSUltraRS.ISO","+s")/1024);
|
||||
@@ -452,11 +446,11 @@ U0 TOSRegen3()
|
||||
tos_progress_t0=tS;
|
||||
RegExe("TempleOS/TOSRegen");
|
||||
|
||||
TOSProgress("ChkDsk All");
|
||||
TOSProgress("DskChk All");
|
||||
AutoComplete;
|
||||
WinBorder;
|
||||
WinMax;
|
||||
ChkAll;
|
||||
DskChkAll;
|
||||
|
||||
TOSProgress("Make LineRep");
|
||||
MakeLineRepFile;
|
||||
@@ -554,9 +548,9 @@ U0 TOSRegen3()
|
||||
TOSProgress("Find /Home");
|
||||
slash_home=F2("/Home","-i+la");
|
||||
|
||||
TOSProgress("ChkDsk All");
|
||||
TOSProgress("DskChk All");
|
||||
Drv('C');
|
||||
ChkAll;
|
||||
DskChkAll;
|
||||
|
||||
TOSProgress("Done");
|
||||
SettingsPop;
|
||||
@@ -570,9 +564,39 @@ public U0 TOSPreRegen()
|
||||
Copy("D:/Home/Sup1/Sup1Blog/Bookmarks.html","C:/Home/Sup1/Sup1Blog");
|
||||
Del("C:/Home/Sup1/Sup1Bin/*");
|
||||
Copy("D:/Home/Sup1/Sup1Bin/*","C:/Home/Sup1/Sup1Bin");
|
||||
Copy("D:/Home/Sup1/Sup1CodeScraps/Comm/TOSSocket*",
|
||||
"C:/Home/Sup1/Sup1CodeScraps/Comm");
|
||||
Copy("D:/Home/Sup1/Sup1Bin/God*","C:/Linux");
|
||||
}
|
||||
|
||||
public U0 TOSHomeIn()
|
||||
{//Copy D:/Home to C:/Home
|
||||
DelTree("C:/Home");
|
||||
CopyTree("D:/Home","C:/Home");
|
||||
}
|
||||
|
||||
public U0 TOSHomeOut()
|
||||
{//Copy C:/Home to D:/Home
|
||||
DelTree("D:/Home");
|
||||
CopyTree("C:/Home","D:/Home");
|
||||
}
|
||||
|
||||
public U0 TOSSongsIn()
|
||||
{//Copy songs from D:/Home/Sup1 to C:/Home/Sup1
|
||||
Del("C:/Home/Sup1/Sup1Hymns/*");
|
||||
Del("C:/Home/Sup1/Sup1Songs/*");
|
||||
Copy("D:/Home/Sup1/Sup1Hymns/*","C:/Home/Sup1/Sup1Hymns");
|
||||
Copy("D:/Home/Sup1/Sup1Songs/*","C:/Home/Sup1/Sup1Songs");
|
||||
}
|
||||
|
||||
public U0 TOSSongsOut()
|
||||
{//Copy songs from C:/Home/Sup1 to D:/Home/Sup1
|
||||
Del("D:/Home/Sup1/Sup1Hymns/*");
|
||||
Del("D:/Home/Sup1/Sup1Songs/*");
|
||||
Copy("C:/Home/Sup1/Sup1Hymns/*","D:/Home/Sup1/Sup1Hymns");
|
||||
Copy("C:/Home/Sup1/Sup1Songs/*","D:/Home/Sup1/Sup1Songs");
|
||||
}
|
||||
|
||||
U0 TOSRegen2()
|
||||
{
|
||||
TOSChgLog; //$LK,"::/Doc/ChgLog.DD"$ datetime matches Kernel $LK,"sys_compile_time",A="MN:sys_compile_time"$.
|
||||
|
||||
@@ -255,7 +255,8 @@ extern U0 FreshenBlog();
|
||||
extern U0 GodBooksPassageU32(U32 rand_u32,U8 *files_find_mask,
|
||||
U8 *file_mask="*",I64 len=512,I64 verbosity=GBP_MEDIUM);
|
||||
extern I64 GodHeaderIns(U8 *type=NULL);
|
||||
extern U0 GodVideo(U8 *title,U8 *webpage,U8 *rnd,I64 digits,U8 *filename);
|
||||
extern U0 GodVideoDigits(U8 *title,U8 *webpage,U8 *rnd,I64 digits,U8 *filename);
|
||||
extern U0 GodVideoU32(U32 rand_u32,U8 *filename);
|
||||
extern U0 GodWebIdx(U8 *title,U8 *webpage,U8 *rnd,I64 digits,U8 *filename)
|
||||
extern U0 GodWordBatch(CHexWordForm *gm);
|
||||
extern U0 TOSBookLines(U8 *book_filename,I64 book_lines,U8 *st,I64 num_lines,
|
||||
|
||||
@@ -178,7 +178,7 @@ U8 *FileDblRead(U8 *filename,I64 line)
|
||||
{//FileDbl's are DolDoc files with 2-line entries.
|
||||
U8 *res=NULL;
|
||||
CDoc *doc=DocRead(filename,DOCF_PLAIN_TEXT_TABS|DOCF_NO_CURSOR);
|
||||
if (DocLineNumGoTo(doc,line-1) && doc->cur_entry->type_u8==DOCT_TEXT)
|
||||
if (DocGoToLine(doc,line-1) && doc->cur_entry->type_u8==DOCT_TEXT)
|
||||
res=StrNew(doc->cur_entry->tag);
|
||||
DocDel(doc);
|
||||
return res;
|
||||
@@ -188,7 +188,7 @@ U8 *FileDblWrite(U8 *filename,I64 line,U8 *st)
|
||||
{//FileDbl's are DolDoc files with 2-line entries.
|
||||
U8 *res=NULL;
|
||||
CDoc *doc=DocRead(filename,DOCF_PLAIN_TEXT_TABS|DOCF_NO_CURSOR);
|
||||
if (DocLineNumGoTo(doc,line-1)) {
|
||||
if (DocGoToLine(doc,line-1)) {
|
||||
if (doc->cur_entry->type_u8==DOCT_TEXT) {
|
||||
Free(doc->cur_entry->tag);
|
||||
doc->cur_entry->tag=StrNew(st);
|
||||
@@ -201,7 +201,7 @@ U8 *FileDblWrite(U8 *filename,I64 line,U8 *st)
|
||||
return res;
|
||||
}
|
||||
|
||||
U0 GodVideo(U8 *title,U8 *webpage,U8 *rnd,I64 digits,U8 *filename)
|
||||
U0 GodVideoDigits(U8 *title,U8 *webpage,U8 *rnd,I64 digits,U8 *filename)
|
||||
{
|
||||
U8 *st,*st2;
|
||||
CGodVideoForm *gvf=CAlloc(sizeof(CGodVideoForm));
|
||||
@@ -252,6 +252,36 @@ U0 GodVideo(U8 *title,U8 *webpage,U8 *rnd,I64 digits,U8 *filename)
|
||||
Free(gvf);
|
||||
}
|
||||
|
||||
U0 GodVideoU32(U32 rand_u32,U8 *filename)
|
||||
{
|
||||
U8 *st,*st2;
|
||||
I64 i,num;
|
||||
Bool old_silent=Silent;
|
||||
num=LineRep(filename,"-S")/2;
|
||||
Silent(old_silent);
|
||||
if (num) {
|
||||
i=rand_u32%num;
|
||||
if (st=FileDblRead(filename,i*2)) {
|
||||
st2=FileDblRead(filename,i*2+1);
|
||||
PutFileLink(filename);
|
||||
"\nGod's response:\n"
|
||||
"%08X-->#%d out of %d\n%s\n",rand_u32,i,num,st;
|
||||
"$$HC,\"<object width=\\\"640\\\" height=\\\"520\\\">"
|
||||
"<param name=\\\"movie\\\" "
|
||||
"value=\\\"http://www.youtube.com/v/%s\\\"></param><param "
|
||||
"name=\\\"allowscriptaccess\\\" "
|
||||
"value=\\\"always\\\"></param><embed "
|
||||
"src=\\\"http://www.youtube.com/v/%s\\\" "
|
||||
"type=\\\"application/x-shockwave-flash\\\" "
|
||||
"allowscriptaccess=\\\"always\\\" "
|
||||
"width=\\\"640\\\" height=\\\"520\\\">"
|
||||
"</embed></object>\"$$\n",st2,st2;
|
||||
Free(st2);
|
||||
Free(st);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
U0 GodWebIdx(U8 *title,U8 *webpage,U8 *rnd,I64 digits,U8 *filename)
|
||||
{
|
||||
U8 *st1,*st2;
|
||||
@@ -414,7 +444,7 @@ U0 TimerGodIns()
|
||||
GodHeaderIns;
|
||||
FifoU8Flush(god.fifo);
|
||||
GodBitsIns(GOD_GOOD_BITS,KbdMsEvtTime>>GOD_BAD_BITS);
|
||||
switch (PopUpPickLst("Hex5Bible\0Hex8Books\0Doodle\0Movie\0Painting100\0"
|
||||
switch (PopUpPickLst("Hex5Bible\0Hex8Books\0Doodle\0Movie100\0Painting100\0"
|
||||
"Painting1000\0Metallica\0")) {
|
||||
case:
|
||||
StrPrint(buf,"%05X",GodBits(5*4));
|
||||
@@ -432,9 +462,9 @@ U0 TimerGodIns()
|
||||
break;
|
||||
case:
|
||||
StrPrint(buf,"%05X",GodBits(2*5*4)); //Little bit risky if no dec.
|
||||
GodVideo("Top 100 Movies",
|
||||
GodVideoDigits("Top 100 Movies",
|
||||
"http://www.afi.com/100years/movies10.aspx",
|
||||
buf,2,"~/Sup1/Sup1Blog/Movies.DD.Z");
|
||||
buf,2,"~/Sup1/Sup1Blog/Movies100.DD.Z");
|
||||
break;
|
||||
case:
|
||||
StrPrint(buf,"%05X",GodBits(2*5*4)); //Little bit risky if no dec.
|
||||
@@ -451,7 +481,7 @@ U0 TimerGodIns()
|
||||
break;
|
||||
case:
|
||||
StrPrint(buf,"%05X",GodBits(2*5*4)); //Little bit risky if no dec.
|
||||
GodVideo("Metallica Song",
|
||||
GodVideoDigits("Metallica Song",
|
||||
"http://home.hccnet.nl/a.r.adams/lyrics/"
|
||||
"metallica/songindex.html",
|
||||
buf,2,"~/Sup1/Sup1Blog/Metallica.DD.Z");
|
||||
@@ -481,8 +511,8 @@ public U0 GodIns()
|
||||
GodHeaderIns;
|
||||
"$$TX,\"%$$Q\",HTML=\"%$$Q\"$$\n",tag,tag;
|
||||
switch (PopUpPickLst("ExtDec5Bible\0LinuxWords\0"
|
||||
"HappyWords\0Hex5Bible\0Hex8Books\0Doodle\0Movie\0Painting100\0"
|
||||
"Painting1000\0Metallica\0")) {
|
||||
"HappyWords\0Hex5Bible\0Hex8Books\0Doodle\0Movie100\0"
|
||||
"Painting100\0Painting1000\0Metallica\0")) {
|
||||
case:
|
||||
if (DocForm(gm(CRandExtDec5Form *)))
|
||||
TOSBookLines("~/Sup1/Sup1Blog/NumBible.TXT",ST_BIBLE_LINES,
|
||||
@@ -524,9 +554,9 @@ public U0 GodIns()
|
||||
break;
|
||||
case:
|
||||
if (DocForm(gm(CMoviesForm *)))
|
||||
GodVideo("Top 100 Movies",
|
||||
GodVideoDigits("Top 100 Movies",
|
||||
"http://www.afi.com/100years/movies10.aspx",
|
||||
gm->rnd0,2,"~/Sup1/Sup1Blog/Movies.DD.Z");
|
||||
gm->rnd0,2,"~/Sup1/Sup1Blog/Movies100.DD.Z");
|
||||
break;
|
||||
case:
|
||||
if (DocForm(gm(CPaintings100Form *))) {
|
||||
@@ -545,7 +575,7 @@ public U0 GodIns()
|
||||
break;
|
||||
case:
|
||||
if (DocForm(gm(CMetallicaForm *)))
|
||||
GodVideo("Metallica Song",
|
||||
GodVideoDigits("Metallica Song",
|
||||
"http://home.hccnet.nl/a.r.adams/lyrics/"
|
||||
"metallica/songindex.html",
|
||||
gm->rnd0,2,"~/Sup1/Sup1Blog/Metallica.DD.Z");
|
||||
@@ -563,13 +593,12 @@ public U0 GodIns()
|
||||
tag="https://passed.pw";
|
||||
break;
|
||||
case GSRC_GENERATE_DATA:
|
||||
tag="http://www.generatedata.com";
|
||||
break;
|
||||
end:
|
||||
GodHeaderIns;
|
||||
"$$TX,\"%$$Q\",HTML=\"%$$Q\"$$\n",tag,tag;
|
||||
switch (PopUpPickLst("ExtDec5Bible\0HexWordBatch\0"
|
||||
"Hex5Bible\0Hex8Books\0Movie\0Metallica\0")) {
|
||||
"Hex5Bible\0Hex8Books\0Movie100\0Metallica\0")) {
|
||||
case:
|
||||
if (DocForm(gm(CRandExtDec5Form *)))
|
||||
TOSBookLines("~/Sup1/Sup1Blog/NumBible.TXT",ST_BIBLE_LINES,
|
||||
@@ -599,13 +628,13 @@ public U0 GodIns()
|
||||
break;
|
||||
case:
|
||||
if (DocForm(gm(CMoviesForm *)))
|
||||
GodVideo("Top 100 Movies",
|
||||
GodVideoDigits("Top 100 Movies",
|
||||
"http://www.afi.com/100years/movies10.aspx",
|
||||
gm->rnd0,2,"~/Sup1/Sup1Blog/Movies.DD.Z");
|
||||
gm->rnd0,2,"~/Sup1/Sup1Blog/Movies100.DD.Z");
|
||||
break;
|
||||
case:
|
||||
if (DocForm(gm(CMetallicaForm *)))
|
||||
GodVideo("Metallica Song",
|
||||
GodVideoDigits("Metallica Song",
|
||||
"http://home.hccnet.nl/a.r.adams/lyrics/"
|
||||
"metallica/songindex.html",
|
||||
gm->rnd0,2,"~/Sup1/Sup1Blog/Metallica.DD.Z");
|
||||
|
||||
@@ -9,7 +9,7 @@ U8 *YouTubeGet(U8 *filename="~/Sup1/Sup1Blog/YouTube.DD.Z",U8 *needle)
|
||||
while (DocFind(doc,line,needle)) {
|
||||
if (!(doc->cur_entry->y&1)) {
|
||||
title=doc->cur_entry->tag;
|
||||
DocLineNumGoTo(doc,doc->cur_entry->y+2);
|
||||
DocGoToLine(doc,doc->cur_entry->y+2);
|
||||
if (doc->cur_entry->type_u8==DOCT_TEXT) {
|
||||
code=doc->cur_entry->tag;
|
||||
DocPrint(doc2,"$$MU-UL,\"%s\",LE=0x%X$$\n",title,code);
|
||||
@@ -177,7 +177,7 @@ U0 TOSIns()
|
||||
public U0 GodCodeJmp()
|
||||
{//Jump to rand code in OS. See $LK,"::/Adam/God/HSNotes.DD"$.
|
||||
CDirEntry *tmpde1=FilesFind("/*",
|
||||
FUF_JUST_FILES|FUF_RECURSE|FUF_JUST_SRC|FUF_CLUSTER_ORDER),
|
||||
FUF_JUST_FILES|FUF_RECURSE|FUF_JUST_SRC|FUF_CLUS_ORDER),
|
||||
*tmpde=tmpde1;
|
||||
I64 cnt=0,num;
|
||||
CDoc *doc;
|
||||
|
||||
@@ -20,7 +20,7 @@ U0 FrameGrabberTask(I64)
|
||||
st_dir="B:/Tmp/ScrnShots";
|
||||
else
|
||||
st_dir="::/Tmp/ScrnShots";
|
||||
MkDir(st_dir);
|
||||
DirMk(st_dir);
|
||||
while (fg_on) {
|
||||
StrPrint(buf,"%s/VID%05d.BMP.Z",st_dir,frame_num++);
|
||||
StrCpy(buf2,buf);
|
||||
@@ -48,7 +48,7 @@ I64 CopyVideo()
|
||||
DelTree("D:/Tmp/ScrnShots");
|
||||
if (fg_mode==FG_RAM_DRV) {
|
||||
res=CopyTree("B:/Tmp/ScrnShots","D:/Tmp/ScrnShots");
|
||||
"Unused Space: %12.6fMeg\n",UnusedDrvSpace('B')/1024.0/1024.0;
|
||||
"Unused Space: %12.6fMeg\n",DrvUnused('B')/1024.0/1024.0;
|
||||
} else
|
||||
res=CopyTree("::/Tmp/ScrnShots","D:/Tmp/ScrnShots");
|
||||
"$$BK,1$$Files Copied:%d$$BK,0$$ Time:%8.3fm\n",
|
||||
@@ -80,7 +80,6 @@ public U0 FrameGrabberToggle()
|
||||
|
||||
public U0 JukeSong(I64 num)
|
||||
{//Make movie of one song.
|
||||
AutoComplete;
|
||||
if (!fg_on)
|
||||
FrameGrabberToggle;
|
||||
JukeSongsPuppet("~/Sup1/Sup1Hymns",,num,num+1);
|
||||
@@ -90,7 +89,6 @@ public U0 JukeSong(I64 num)
|
||||
|
||||
public U0 JukeLines(I64 start_line,I64 end_line)
|
||||
{//Make movie of many lines of songs.
|
||||
AutoComplete;
|
||||
if (!fg_on)
|
||||
FrameGrabberToggle;
|
||||
JukeSongsPuppet("~/Sup1/Sup1Hymns",,start_line*5,end_line*5);
|
||||
@@ -98,11 +96,11 @@ public U0 JukeLines(I64 start_line,I64 end_line)
|
||||
FrameGrabberToggle;
|
||||
}
|
||||
|
||||
public U0 ChkAll()
|
||||
{//ChkDsk on C & D.
|
||||
public U0 DskChkAll()
|
||||
{//DskChk on C & D.
|
||||
U8 *ptr=TOS_HDS;
|
||||
while (*ptr)
|
||||
ChkDsk(*ptr++);
|
||||
DskChk(*ptr++);
|
||||
}
|
||||
|
||||
public CDoc *DC2Doc(CDC *dc,I64 dx=0,I64 dy=0,I64 *_total_score=NULL)
|
||||
@@ -158,11 +156,11 @@ public U0 BMP2Doc(U8 *_in_name,U8 *_out_name=NULL)
|
||||
I64 dx,dy,score,best_score=I64_MAX;
|
||||
CDC *dc;
|
||||
CDoc *doc;
|
||||
in_name=DftExt(_in_name,"BMP");
|
||||
in_name=ExtDft(_in_name,"BMP");
|
||||
if (_out_name)
|
||||
out_name=DftExt(_out_name,"DD.Z");
|
||||
out_name=ExtDft(_out_name,"DD.Z");
|
||||
else
|
||||
out_name=ChgExt(_in_name,"DD.Z");
|
||||
out_name=ExtChg(_in_name,"DD.Z");
|
||||
if (dc=BMPRead(in_name)) {
|
||||
for (dy=-3;dy<=4;dy++)
|
||||
for (dx=-3;dx<=4;dx++) {
|
||||
@@ -187,16 +185,6 @@ U0 TOSTheme()
|
||||
DocClear;
|
||||
}
|
||||
|
||||
U0 TOSJukeVideo(I64 start=0,I64 end=10)
|
||||
{
|
||||
U8 *buf=FileRead("::/Misc/Bible.TXT.Z"); //Put in cache
|
||||
Free(buf);
|
||||
AutoComplete;
|
||||
FrameGrabberToggle;
|
||||
JukeSongsPuppet("~/Sup1/Sup1Hymns",,start,end);
|
||||
FrameGrabberToggle;
|
||||
}
|
||||
|
||||
#define MEM_TEST_SIZE 1024*1024
|
||||
U0 MemTest()
|
||||
{
|
||||
|
||||
@@ -48,7 +48,7 @@ U0 NISTBeaconURL(I64 timestamp)
|
||||
U0 NISTGodIns1()
|
||||
{
|
||||
tos_type=PopUpPickLst("ExtDec5Bible\0LinuxWords\0HappyWords\0"
|
||||
"Hex5Bible\0Hex8Books\0Doodle\0Movie\0Painting100\0Painting1000\0"
|
||||
"Hex5Bible\0Hex8Books\0Doodle\0Movie100\0Painting100\0Painting1000\0"
|
||||
"Metallica\0");
|
||||
switch (tos_type) {
|
||||
case: tos_timestamp=GodHeaderIns("Bible"); break;
|
||||
@@ -56,8 +56,8 @@ U0 NISTGodIns1()
|
||||
case: tos_timestamp=GodHeaderIns("HappyWords"); break;
|
||||
case: tos_timestamp=GodHeaderIns("Bible"); break;
|
||||
case: tos_timestamp=GodHeaderIns("BookPick"); break;
|
||||
case: tos_timestamp=GodHeaderIns("Doodle"); break;
|
||||
case: tos_timestamp=GodHeaderIns("Movie"); break;
|
||||
case: tos_timestamp=GodHeaderIns("Doodle"); break;
|
||||
case: tos_timestamp=GodHeaderIns("Movie100"); break;
|
||||
case: tos_timestamp=GodHeaderIns("Painting100"); break;
|
||||
case: tos_timestamp=GodHeaderIns("Painting1000"); break;
|
||||
case: tos_timestamp=GodHeaderIns("Metallica"); break;
|
||||
@@ -122,9 +122,9 @@ U0 NISTGodIns2()
|
||||
case:
|
||||
if (DocForm(gm(CMoviesForm *))) {
|
||||
NISTBeaconURL(gm->timestamp);
|
||||
GodVideo("Top 100 Movies",
|
||||
GodVideoDigits("Top 100 Movies",
|
||||
"http://www.afi.com/100years/movies10.aspx",
|
||||
gm->rnd0,2,"~/Sup1/Sup1Blog/Movies.DD.Z");
|
||||
gm->rnd0,2,"~/Sup1/Sup1Blog/Movies100.DD.Z");
|
||||
}
|
||||
break;
|
||||
case:
|
||||
@@ -147,7 +147,7 @@ U0 NISTGodIns2()
|
||||
case:
|
||||
if (DocForm(gm(CMetallicaForm *))) {
|
||||
NISTBeaconURL(gm->timestamp);
|
||||
GodVideo("Metallica Song",
|
||||
GodVideoDigits("Metallica Song",
|
||||
"http://home.hccnet.nl/a.r.adams/lyrics/"
|
||||
"metallica/songindex.html",
|
||||
gm->rnd0,2,"~/Sup1/Sup1Blog/Metallica.DD.Z");
|
||||
|
||||
@@ -88,7 +88,7 @@ U8 *TOSLinkCvt2(U8 *filename,I64 line_num)
|
||||
//Make your own LinkCvt routine
|
||||
U8 *res=NULL,*st;
|
||||
if (filename) {
|
||||
st=ChgExt(filename,"html");
|
||||
st=ExtChg(filename,"html");
|
||||
if (st && StrLen(st)>3 && !StrNCmp(st+1,":/",2))
|
||||
res=MStrPrint(PERSONAL_WEB "/%s#l%d",st+3,line_num);
|
||||
Free(st);
|
||||
@@ -189,7 +189,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 V5.01",D="DD_OS_NAME_VERSION"$\">\n";
|
||||
"<meta name=\"generator\" content=\"$TX,"TempleOS V5.02",D="DD_OS_NAME_VERSION"$\">\n";
|
||||
if (!body_header) body_header=
|
||||
"<body>\n"
|
||||
"<pre style=\"font-family:courier;font-size:10pt\">\n";
|
||||
@@ -380,11 +380,11 @@ public U0 TOSToHtml(U8 *_in_name,U8 *_out_name=NULL,U8 *html_header=NULL,
|
||||
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
||||
WinHorz(0,width-1); //Sets doc width for word wrap.
|
||||
|
||||
in_name=DftExt(_in_name,"HC.Z");
|
||||
in_name=ExtDft(_in_name,"HC.Z");
|
||||
if (_out_name)
|
||||
out_name=DftExt(_out_name,"html");
|
||||
out_name=ExtDft(_out_name,"html");
|
||||
else
|
||||
out_name=ChgExt(_in_name,"html");
|
||||
out_name=ExtChg(_in_name,"html");
|
||||
|
||||
doc_in=DocRead(in_name);
|
||||
DocTop(doc_in);
|
||||
@@ -413,7 +413,7 @@ U0 TOSWebFile(U8 *name,Bool line_nums=FALSE)
|
||||
"File:%s\n",name;
|
||||
Collapse(name,FALSE);
|
||||
Touch(name,"",,de.datetime);
|
||||
name2=ChgExt(name,"html");
|
||||
name2=ExtChg(name,"html");
|
||||
|
||||
if (StrMatch(BLOG_BASE,name) || StrMatch(DAILY_BASE,name))
|
||||
line_anchors=FALSE;
|
||||
@@ -430,7 +430,7 @@ U0 TOSWebFile(U8 *name,Bool line_nums=FALSE)
|
||||
"<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 V5.01",D="DD_OS_NAME_VERSION"$\">\n",
|
||||
"<meta name=\"generator\" content=\"$TX,"TempleOS V5.02",D="DD_OS_NAME_VERSION"$\">\n",
|
||||
|
||||
"<body style=\"background-color:#55FFFF; border-style:solid;
|
||||
border-width:8px; border-color:#0000AA;
|
||||
@@ -451,7 +451,7 @@ U0 FreshenWebDir(U8 *dirname,Bool line_nums=FALSE)
|
||||
U8 *src,*dst;
|
||||
|
||||
src=MStrPrint("D:/Wb%s",dirname);
|
||||
MkDir(src);
|
||||
DirMk(src);
|
||||
Free(src);
|
||||
|
||||
src=MStrPrint("D:/Wb%s/*",dirname);
|
||||
@@ -465,7 +465,7 @@ U0 FreshenWebDir(U8 *dirname,Bool line_nums=FALSE)
|
||||
Free(dst);
|
||||
|
||||
src=MStrPrint("D:/Wb%s/*",dirname);
|
||||
tmpde=tmpde1=FilesFind(src,FUF_JUST_FILES|FUF_JUST_TXT|FUF_CLUSTER_ORDER);
|
||||
tmpde=tmpde1=FilesFind(src,FUF_JUST_FILES|FUF_JUST_TXT|FUF_CLUS_ORDER);
|
||||
while (tmpde) {
|
||||
TOSWebFile(tmpde->full_name,line_nums);
|
||||
tmpde=tmpde->next;
|
||||
@@ -487,7 +487,7 @@ public U0 FreshenSite()
|
||||
Touch("D:/Wb/Home/Web/DownloadOS.DD.Z","");
|
||||
Touch("D:/Wb/Home/Web/TempleOS.DD.Z","");
|
||||
tmpde=tmpde1=FilesFind("*",
|
||||
FUF_RECURSE|FUF_JUST_FILES|FUF_JUST_TXT|FUF_CLUSTER_ORDER);
|
||||
FUF_RECURSE|FUF_JUST_FILES|FUF_JUST_TXT|FUF_CLUS_ORDER);
|
||||
while (tmpde) {
|
||||
TOSWebFile(tmpde->full_name);
|
||||
tmpde=tmpde->next;
|
||||
|
||||
Reference in new issue
Block a user