Browse Source

TempleOS V5.03 Nightly (ISO SHA-1 f70d475)

v6
Terry A. Davis 5 years ago committed by TempleOS-bot
parent
commit
2c532ea9f1
  1. BIN
      0000Boot/0000Kernel.BIN.C
  2. 4
      Adam/ADefine.HC
  3. 1
      Adam/AExts.HC
  4. 35
      Adam/AutoComplete/ACFill.HC
  5. 17
      Adam/DolDoc/DocEd.HC
  6. 2
      Adam/DolDoc/DocFile.HC
  7. 4
      Adam/DolDoc/DocPutKey.HC
  8. BIN
      Compiler/Compiler.BIN
  9. 2
      Compiler/CompilerB.HH
  10. 2
      Demo/AcctExample/PersonalNotes.DD
  11. 2
      Demo/AcctExample/Registry.HC
  12. 2
      Demo/AcctExample/TOS/TOSBlog.HC
  13. 5
      Doc/ChgLog.DD
  14. 1
      Doc/EdPullDown.DD
  15. 2212
      Kernel/Kernel.MAP
  16. 22
      Kernel/KernelA.HH

BIN
0000Boot/0000Kernel.BIN.C

Binary file not shown.

4
Adam/ADefine.HC

@ -18,8 +18,8 @@ U0 LoadDocDefines()
//$LK,"DD_BOOT_HIGH_LOC_DVD",A="FF:::/Adam/Opt/Boot/BootDVD.HC,DD_BOOT_HIGH_LOC_DVD"$
$TR-C,"LineRep"$
$ID,4$DefinePrint("DD_TEMPLEOS_LOC","120,874");
DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","82,152");
$ID,4$DefinePrint("DD_TEMPLEOS_LOC","120,860");
DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","82,136");
$ID,-4$
DefinePrint("DD_MP_VECT","%08X",MP_VECT_ADDR);
DefinePrint("DD_MP_VECT_END","%08X",

1
Adam/AExts.HC

@ -3,7 +3,6 @@ extern U0 ACDDefsPut(CDoc *doc=NULL,U8 *st,I64 num=-1);
extern U0 ACDFillin(I64 n);
extern U0 ACFillIn(I64 n);
extern U0 ACMan(I64 n,CTask *parent_task=NULL);
extern U0 ACMisspelledFind(CDoc *doc);
extern I64 AdamFile(U8 *filename,Bool warn_ext=TRUE);
extern Bool AutoComplete(Bool val=OFF);
extern I64 BMPWrite(U8 *filename,CDC *dc,I64 bits=4);

35
Adam/AutoComplete/ACFill.HC

@ -204,41 +204,6 @@ U0 ACDDef(I64 n,CTask *parent=NULL)
ACDPopUpDef(acd.fillins[n],-1,parent);
}
U0 ACMisspelledFind(CDoc *doc)
{
Bool unlock=DocLock(doc);
CDocEntry *doc_e=doc->cur_entry;
I64 col=doc->cur_col,col2,ch;
do {
if (doc_e!=doc && doc_e->de_flags&DOCEF_TAG) {
while (col<doc_e->max_col) {
while (col<doc_e->max_col && !Bt(char_bmp_word,doc_e->tag[col]))
col++;
if (col<doc_e->max_col) {
col2=col;
while (col2<doc_e->max_col && Bt(char_bmp_word,doc_e->tag[col2]))
col2++;
ch=doc_e->tag[col2];
doc_e->tag[col2]=0;
if (StrICmp(&doc_e->tag[col],ACDWordPtAt(&doc_e->tag[col])+1)) {
doc_e->tag[col2]=ch;
doc->cur_entry=doc_e;
doc->cur_col=col;
goto fm_done;
}
doc_e->tag[col2]=ch;
col=col2;
}
}
}
doc_e=doc_e->next;
col=doc_e->min_col;
} while (doc_e!=doc->cur_entry);
fm_done:
if (unlock)
DocUnlock(doc);
}
#help_index "AutoComplete"
U0 ACFillIn(I64 n)
{

17
Adam/DolDoc/DocEd.HC

@ -21,6 +21,18 @@ U8 *EdOverStrikeCB(CDoc *,CDocEntry *doc_e,CTask *mem_task)
return st;
}
U8 *EdAutoSaveCB(CDoc *,CDocEntry *doc_e,CTask *mem_task)
{
CDoc *doc=doc_e->user_data;
U8 *st=MAlloc(8,mem_task);
if (doc->flags & DOCF_AUTO_SAVE)
*st='S';
else
*st='Ä';
st[1]=0;
return st;
}
U8 *EdFilterCB(CDoc *,CDocEntry *doc_e,CTask *mem_task)
{
CDoc *doc=doc_e->user_data;
@ -109,7 +121,7 @@ public Bool DocEd(CDoc *doc,I64 dof_flags=0)
DocDataFmt(bdoc,doc_e);
}
DocPrint(bdoc,"$$CM+BY+RX+NC,-30,1$$");
DocPrint(bdoc,"$$CM+BY+RX+NC,-31,1$$");
doc_e=DocPrint(bdoc,"$$TX+BD+TC,\" \"$$");
doc_e->user_data=doc;
doc_e->tag_cb=&EdMoreCB;
@ -124,6 +136,9 @@ public Bool DocEd(CDoc *doc,I64 dof_flags=0)
doc_e->tag_cb=&EdOverStrikeCB;
doc_e=DocPrint(bdoc,"$$TX+BD+TC,\" \"$$");
doc_e->user_data=doc;
doc_e->tag_cb=&EdAutoSaveCB;
doc_e=DocPrint(bdoc,"$$TX+BD+TC,\" \"$$");
doc_e->user_data=doc;
doc_e->tag_cb=&EdDollarCB;
doc_e=DocPrint(bdoc,"$$DA+BD+RD-TRM,A=\"Line:%%04d \"$$");
doc_e->data=&doc->line;

2
Adam/DolDoc/DocFile.HC

@ -265,6 +265,8 @@ Bool DocCaptureUndo(CDoc *doc,Bool force=FALSE)
u->doc_flags=doc->flags;
res=TRUE;
}
if (doc->flags&DOCF_AUTO_SAVE)
DocWrite(doc);
if (unlock)
DocUnlock(doc);
}

4
Adam/DolDoc/DocPutKey.HC

@ -577,9 +577,9 @@ public U0 DocPutKey(CDoc *doc,I64 ch=0,I64 sc=0)
case CH_CTRLS:
if (sc&SCF_SHIFT) {
if (sc&SCF_KEY_DESC)
KeyDescSet("Edit/Find Misspelled");
KeyDescSet("Edit/Toggle AutoSave");
else
ACMisspelledFind(doc);
LBtc(&doc->flags,DOCf_AUTO_SAVE);
} else {
if (sc&SCF_KEY_DESC)
KeyDescSet("Edit/Save");

BIN
Compiler/Compiler.BIN

Binary file not shown.

2
Compiler/CompilerB.HH

@ -11,6 +11,7 @@ public _extern _LAST_FUN I64 LastFun(I64 argc,I64 *argv);
public extern I64 RunFile(U8 *name,I64 ccf_flags=0,...);
public extern I64 RunFile2(U8 *name,I64 ccf_flags=0,...);
public extern CCmpGlbls cmp;
#help_index "Compiler/Directive"
#help_file "::/Doc/Directives"
public extern Bool Echo(Bool val);
@ -64,7 +65,6 @@ public extern I64 PrsKeyWord(CCmpCtrl *cc);
#help_index "Compiler;Cmd Line (Typically)"
extern I64 Cmp(U8 *filename,
U8 *map_name=NULL,U8 *out_name=NULL,U8 mapfile_drv_let=0);
#help_index "Debugging/Unassemble"
public extern U8 *U(U8 *rip,I64 cnt=20,I64 seg_size=64);
public extern U0 Ui(U8 *buf,U8 **_rip,I64 seg_size=64,

2
Demo/AcctExample/PersonalNotes.DD

@ -60,7 +60,7 @@ $WW,1$$FG,5$$TX+CX,"TODO"$$FG$
* Document, perhaps with video, $LK,"GetStr",A="MN:GetStr"$() all the way down into $LK,"PutKey",A="MN:PutKey"$() code.
* Better dictionary.
* Good $LK,"spell checker",A="MN:ACMisspelledFind"$.
* Good spell checker.
* Good Bible search.
* Can $LK,"MEM_EXTRA_HASH2_PAGS",A="MN:MEM_EXTRA_HASH2_PAGS"$ be just one?

2
Demo/AcctExample/Registry.HC

@ -62,7 +62,7 @@ $ID,-2$$TR,"Titanium"$
$ID,2$I64 best_score=16469;
$ID,-2$$TR,"TOSRegen"$
$ID,2$progress1_tf=0.000;progress2_tf=0.000;
progress3_tf=0.000;progress4_tf=190.819;
progress3_tf=0.000;progress4_tf=189.423;
$ID,-2$$TR,"TempleTetris"$
$ID,2$I64 hiscore=1000;
$ID,-2$$ID,-2$$TR,"Once"$

2
Demo/AcctExample/TOS/TOSBlog.HC

@ -34,6 +34,7 @@ public U0 PLog()
Msg(MSG_KEY_DOWN_UP,0,SC_CURSOR_DOWN|SCF_CTRL);
Msg(MSG_KEY_DOWN_UP,0,SC_F6|SCF_ALT);
Msg(MSG_KEY_DOWN_UP,'\n',0);
Msg(MSG_KEY_DOWN_UP,CH_CTRLS,0x61F0000061F);
if (Ed(PLogLocalFile,EDF_WAS_WRITE))
DocOpt(PLogLocalFile,"-r");
}
@ -156,6 +157,7 @@ public U0 Blog(Bool god_misc2=FALSE)
Msg(MSG_KEY_DOWN_UP,0,SC_F6|SCF_ALT);
Msg(MSG_KEY_DOWN_UP,'\n',0);
}
Msg(MSG_KEY_DOWN_UP,CH_CTRLS,0x61F0000061F);
if (Ed(BlogLocalFile,EDF_WAS_WRITE)) {
DocOpt(BlogLocalFile,"-r");
Copy(BlogLocalFile,"::" DAILY_BASE ".DD.Z");

5
Doc/ChgLog.DD

@ -2,7 +2,10 @@ $WW,1$$FG,5$$TX+CX,"Change Log"$$FG$
Use $LK,"R",A="MN:R"$() to rename if I change a label.
$IV,1$----03/16/17 12:05:16----$IV,0$
$IV,1$----03/17/17 03:46:54----$IV,0$
$IV,1$----03/17/17 00:35:11----$IV,0$
* Added toggle AutoSave $FG,2$<CTRL-SHIFT-s>$FG$.
$IV,1$----03/14/17 00:14:39----$IV,0$
* $BK,1$TempleOS version 5.03 Released$BK,0$

1
Doc/EdPullDown.DD

@ -25,6 +25,7 @@ Edit
GoRBrace(,0x5D,0x61B0000061B);
Macro(,,0x3C0000003C);
PlayMacro(,,0x23C0000023C);
AutoSaveToggle(,CH_CTRLS,0x61F0000061F);
}
Insert

2212
Kernel/Kernel.MAP

File diff suppressed because it is too large Load Diff

22
Kernel/KernelA.HH

@ -1268,11 +1268,12 @@ class CEdFileName
// DOC header flags
#define DOCF_PLAIN_TEXT 0x1
#define DOCF_PLAIN_TEXT_TABS 0x2 //has '\t', not DOCT_TAB
#define DOCF_NO_CURSOR 0x4
#define DOCF_CARRIAGE_RETURN 0x8
#define DOCF_DBL_DOLLARS 0x10
#define DOCF_COLOR_NAMES 0x20
//Reserved x2
#define DOCF_AUTO_SAVE 0x4
#define DOCF_NO_CURSOR 0x8
#define DOCF_CARRIAGE_RETURN 0x10
#define DOCF_DBL_DOLLARS 0x20
#define DOCF_COLOR_NAMES 0x40
//Reserved x1
#define DOCF_BORDER_DOC 0x100
#define DOCF_FORM 0x200
#define DOCF_SIZE_MIN 0x400
@ -1304,11 +1305,12 @@ class CEdFileName
#define DOCf_PLAIN_TEXT 0
#define DOCf_PLAIN_TEXT_TABS 1 //has '\t', not DOCT_TAB
#define DOCf_NO_CURSOR 2
#define DOCf_CARRIAGE_RETURN 3
#define DOCf_DBL_DOLLARS 4
#define DOCf_COLOR_NAMES 5
//Reserved x2
#define DOCf_AUTO_SAVE 2
#define DOCf_NO_CURSOR 3
#define DOCf_CARRIAGE_RETURN 4
#define DOCf_DBL_DOLLARS 5
#define DOCf_COLOR_NAMES 6
//Reserved x1
#define DOCf_BORDER_DOC 8
#define DOCf_FORM 9
#define DOCf_SIZE_MIN 10

Loading…
Cancel
Save