TempleOSCDV4.02.ISO
This commit is contained in:
1 parent
fedf66361e
commit
1541d7328d
171 files changed
+5160
-5071
No files matched your search
Binary file not shown.
@@ -58,39 +58,6 @@ public U8 *Dump(U8 *filename,Bool write=FALSE)
|
|||||||
return buf;
|
return buf;
|
||||||
}
|
}
|
||||||
|
|
||||||
#help_index "File/Program Routines"
|
|
||||||
|
|
||||||
U0 FOFlatten(CDirEntry *tempde,CDirEntry **a,I64 *i)
|
|
||||||
{
|
|
||||||
CDirEntry *tempde1;
|
|
||||||
while (tempde) {
|
|
||||||
tempde1=tempde->next;
|
|
||||||
if (tempde->attr&RS_ATTR_DIR) {
|
|
||||||
FOFlatten(tempde->sub,a,i);
|
|
||||||
DirEntryDel(tempde);
|
|
||||||
} else {
|
|
||||||
a[*i]=tempde;
|
|
||||||
*i=*i+1;
|
|
||||||
}
|
|
||||||
tempde=tempde1;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
public I64 FileCnt(CDirEntry *tempde)
|
|
||||||
{//Cnt of files in $LK,"CDirEntry",A="MN:CDirEntry"$ tree.
|
|
||||||
I64 cnt=0;
|
|
||||||
while (tempde) {
|
|
||||||
if (tempde->attr&RS_ATTR_DIR)
|
|
||||||
cnt+=FileCnt(tempde->sub);
|
|
||||||
else
|
|
||||||
cnt++;
|
|
||||||
tempde=tempde->next;
|
|
||||||
}
|
|
||||||
return cnt;
|
|
||||||
}
|
|
||||||
|
|
||||||
#help_index "File/Cmd Line (Typically);Cmd Line (Typically)"
|
|
||||||
|
|
||||||
public Bool Copy(U8 *src_files_find_mask,U8 *dst_files_find_mask=".")
|
public Bool Copy(U8 *src_files_find_mask,U8 *dst_files_find_mask=".")
|
||||||
{//Copy files.
|
{//Copy files.
|
||||||
//If the name ends in ".Z", it will
|
//If the name ends in ".Z", it will
|
||||||
@@ -281,128 +248,3 @@ Touch(filename,"",,datetime);
|
|||||||
}
|
}
|
||||||
DirTreeDel(tempde1);
|
DirTreeDel(tempde1);
|
||||||
}
|
}
|
||||||
|
|
||||||
public I64 FF(U8 *files_find_mask,U8 *fu_flags=NULL)
|
|
||||||
{//Files find. List files matching mask.
|
|
||||||
I64 cnt=0,fuf_flags=0;
|
|
||||||
CDirEntry *tempde,*tempde1;
|
|
||||||
ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),"+r+f+F");
|
|
||||||
ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),fu_flags);
|
|
||||||
tempde=tempde1=FilesFind(files_find_mask,fuf_flags);
|
|
||||||
while (tempde) {
|
|
||||||
PutFileLink(tempde->full_name);
|
|
||||||
'\n';
|
|
||||||
cnt++;
|
|
||||||
tempde=tempde->next;
|
|
||||||
}
|
|
||||||
DirTreeDel(tempde1);
|
|
||||||
return cnt;
|
|
||||||
}
|
|
||||||
|
|
||||||
public U0 DrvTextAttrSet(U8 drv_let,U8 attr)
|
|
||||||
{//Set color of the window border text
|
|
||||||
//for when this drive is the current drive.
|
|
||||||
CDrv *dv;
|
|
||||||
try {
|
|
||||||
dv=Let2Drv(drv_let);
|
|
||||||
dv->text_attr=attr;
|
|
||||||
} catch
|
|
||||||
Fs->catch_except=TRUE;
|
|
||||||
}
|
|
||||||
I64 RedSeaUnusedDrvSpace(U8 drv_let=0)
|
|
||||||
{
|
|
||||||
CDrv *dv=Let2Drv(drv_let);
|
|
||||||
I64 result=0,i,l;
|
|
||||||
U8 *bitmap;
|
|
||||||
try {
|
|
||||||
l=(dv->size+dv->spc-1)/dv->spc;
|
|
||||||
i=((l+7)>>3+BLK_SIZE-1)>>BLK_SIZE_BITS;
|
|
||||||
bitmap=MAlloc(i<<BLK_SIZE_BITS);
|
|
||||||
RBlks(dv,bitmap,dv->fat1,i);
|
|
||||||
for (i=0;i<l;i++)
|
|
||||||
if (!Bt(bitmap,i))
|
|
||||||
result++;
|
|
||||||
Free(bitmap);
|
|
||||||
} catch
|
|
||||||
DrvUnlock(dv);
|
|
||||||
return result*BLK_SIZE*dv->spc;
|
|
||||||
}
|
|
||||||
I64 FAT32UnusedDrvSpace(U8 drv_let=0)
|
|
||||||
{
|
|
||||||
CDrv *dv=Let2Drv(drv_let);
|
|
||||||
I64 result=0,i,l;
|
|
||||||
U32 *bitmap;
|
|
||||||
try {
|
|
||||||
l=(dv->size+dv->spc-1)/dv->spc;
|
|
||||||
i=(l*4+BLK_SIZE-1)>>BLK_SIZE_BITS;
|
|
||||||
bitmap=MAlloc(i<<BLK_SIZE_BITS);
|
|
||||||
RBlks(dv,bitmap,dv->fat1,i);
|
|
||||||
for (i=0;i<l;i++)
|
|
||||||
if (!bitmap[i])
|
|
||||||
result++;
|
|
||||||
Free(bitmap);
|
|
||||||
} catch
|
|
||||||
DrvUnlock(dv);
|
|
||||||
return result*BLK_SIZE*dv->spc;
|
|
||||||
}
|
|
||||||
public I64 UnusedDrvSpace(U8 drv_let=0)
|
|
||||||
{//Returns unused size in bytes.
|
|
||||||
CDrv *dv=Let2Drv(drv_let),*old_dv=Fs->cur_dv;
|
|
||||||
U8 *old_dir=StrNew(Fs->cur_dir);
|
|
||||||
I64 result=0;
|
|
||||||
Drv(drv_let);
|
|
||||||
switch (dv->type) {
|
|
||||||
case DVT_REDSEA:
|
|
||||||
result=RedSeaUnusedDrvSpace(drv_let);
|
|
||||||
break;
|
|
||||||
case DVT_FAT32:
|
|
||||||
result=FAT32UnusedDrvSpace(drv_let);
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
PrintErr("File System Not Supported\n");
|
|
||||||
}
|
|
||||||
Drv(Drv2Let(old_dv));
|
|
||||||
Cd(old_dir);
|
|
||||||
Free(old_dir);
|
|
||||||
return result;
|
|
||||||
}
|
|
||||||
|
|
||||||
#help_index "File/Program Routines"
|
|
||||||
I64 Size1(CDirEntry *tempde,I64 *_fuf_flags,I64 round_to)
|
|
||||||
{
|
|
||||||
U8 buf[BLK_SIZE];
|
|
||||||
I64 result=0,i;
|
|
||||||
CDrv *dv;
|
|
||||||
while (tempde) {
|
|
||||||
if ((i=tempde->size) && Bt(_fuf_flags,FUf_EXPAND) &&
|
|
||||||
!(tempde->attr&RS_ATTR_DIR) &&
|
|
||||||
FileAttr(tempde->name)&RS_ATTR_COMPRESSED) {
|
|
||||||
dv=Let2Drv(*tempde->full_name);
|
|
||||||
RBlks(dv,buf,Cluster2Blk(dv,tempde->cluster),1);
|
|
||||||
i=(&buf)(CArcCompress *)->expanded_size;
|
|
||||||
}
|
|
||||||
if (round_to)
|
|
||||||
i=CeilU64(tempde->size,round_to);
|
|
||||||
if (tempde->attr&RS_ATTR_DIR)
|
|
||||||
i+=Size1(tempde->sub,_fuf_flags,round_to);
|
|
||||||
tempde->user_data=i;
|
|
||||||
result+=i;
|
|
||||||
tempde=tempde->next;
|
|
||||||
}
|
|
||||||
return result;
|
|
||||||
}
|
|
||||||
public I64 Size(U8 *files_find_mask="/*",U8 *fu_flags=NULL,I64 round_to=0)
|
|
||||||
{//Total size of files in mask. "+x" for expanded size.
|
|
||||||
//Does not include directory size of base directory, but
|
|
||||||
//does include size of sub directories.
|
|
||||||
I64 fuf_flags=0,result=0;
|
|
||||||
CDirEntry *tempde1=NULL;
|
|
||||||
ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),"+r");
|
|
||||||
ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),fu_flags);
|
|
||||||
if (tempde1=FilesFind(files_find_mask,fuf_flags&FUG_FILES_FIND)) {
|
|
||||||
fuf_flags&=FUF_EXPAND;
|
|
||||||
result=Size1(tempde1,&fuf_flags,round_to);
|
|
||||||
DirTreeDel(tempde1);
|
|
||||||
}
|
|
||||||
return result;
|
|
||||||
}
|
|
||||||
+73
-317
@@ -60,336 +60,92 @@ public CDirEntry *DirTreeUnserialize(U8 *src)
|
|||||||
return tempde;
|
return tempde;
|
||||||
}
|
}
|
||||||
|
|
||||||
#help_index "Install;File/Cmd Line (Typically);Cmd Line (Typically)"
|
#help_index "File/Program Routines"
|
||||||
|
U0 FOFlatten(CDirEntry *tempde,CDirEntry **a,I64 *i)
|
||||||
#define ROUND_DRV_TO (63*255)
|
|
||||||
#define DRV_HEADER 63
|
|
||||||
|
|
||||||
class CPlannedDrv
|
|
||||||
{
|
{
|
||||||
CPlannedDrv *next,*last;
|
CDirEntry *tempde1;
|
||||||
I64 size;
|
while (tempde) {
|
||||||
Bool pri;
|
tempde1=tempde->next;
|
||||||
};
|
if (tempde->attr&RS_ATTR_DIR) {
|
||||||
|
FOFlatten(tempde->sub,a,i);
|
||||||
//Available to assist in writing scripts.
|
DirEntryDel(tempde);
|
||||||
I64 drv_dsk_dsk_size;
|
} else {
|
||||||
|
a[*i]=tempde;
|
||||||
public U0 PrtDsk(U8 drv_let=0)
|
*i=*i+1;
|
||||||
{//Partition the disk containing partition drv_let.
|
|
||||||
//drv_let=0 means add new drive that
|
|
||||||
//is not already mounted.
|
|
||||||
CBlkDev *bd;
|
|
||||||
CPlannedDrv root,*temppp;
|
|
||||||
CMasterBoot mbr;
|
|
||||||
Bool pri=TRUE;
|
|
||||||
I64 ext_base,drv_let2,pri_cnt=0,
|
|
||||||
i,start_offset,offset,remaining;
|
|
||||||
"This command does not play well\n"
|
|
||||||
"with other operating systems.\n"
|
|
||||||
"You really should use another\n"
|
|
||||||
"operating system's partitioner.\n"
|
|
||||||
"If you use this, it may, in fact,\n"
|
|
||||||
"make your hard drive impossible\n"
|
|
||||||
"to repartition with other operating\n"
|
|
||||||
"until you set block zero to zero\n"
|
|
||||||
"with $$LK,\"MasterBootZero\",\"MN:MasterBootZero\"$$()\n\n\n"
|
|
||||||
"Continue";
|
|
||||||
if (!YorN) return;
|
|
||||||
|
|
||||||
if (drv_let)
|
|
||||||
try
|
|
||||||
Let2BlkDev(drv_let);
|
|
||||||
catch {
|
|
||||||
drv_let=0;
|
|
||||||
Fs->catch_except=TRUE;
|
|
||||||
}
|
}
|
||||||
|
tempde=tempde1;
|
||||||
if (!drv_let) {
|
|
||||||
Mount(TRUE);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
bd=Let2BlkDev(drv_let);
|
|
||||||
if (!bd || bd->type!=BDT_ATA)
|
|
||||||
return;
|
|
||||||
|
|
||||||
drv_dsk_dsk_size=bd->max_blk+1;
|
|
||||||
|
|
||||||
QueInit(&root);
|
|
||||||
|
|
||||||
drv_let2=bd->first_drv_let;
|
|
||||||
remaining=FloorU64(bd->max_blk+1,ROUND_DRV_TO);
|
|
||||||
while (FloorU64(remaining,ROUND_DRV_TO)>=ROUND_DRV_TO) {
|
|
||||||
temppp=MAlloc(sizeof(CPlannedDrv));
|
|
||||||
do {
|
|
||||||
"$$RED$$Partition %C$$FG$$\n",drv_let2;
|
|
||||||
temppp->pri=FALSE;
|
|
||||||
if (pri) {
|
|
||||||
"Primary Partition";
|
|
||||||
if (YorN) {
|
|
||||||
pri_cnt++;
|
|
||||||
temppp->pri=TRUE;
|
|
||||||
if (pri_cnt==3)
|
|
||||||
pri=FALSE;
|
|
||||||
} else
|
|
||||||
pri=FALSE;
|
|
||||||
}
|
|
||||||
"Blocks Remaining:%d (0x%X)\n",
|
|
||||||
remaining-DRV_HEADER,remaining-DRV_HEADER;
|
|
||||||
temppp->size=CeilU64(GetI64("Size in Blocks :",
|
|
||||||
remaining-DRV_HEADER)+DRV_HEADER,ROUND_DRV_TO);
|
|
||||||
} while (!(ROUND_DRV_TO<=temppp->size<=FloorU64(remaining,ROUND_DRV_TO)));
|
|
||||||
QueIns(temppp,root.last);
|
|
||||||
remaining-=temppp->size;
|
|
||||||
drv_let2++;
|
|
||||||
}
|
|
||||||
|
|
||||||
"\n\n!!! Repartition Drive !!!\n\n";
|
|
||||||
temppp=root.next;
|
|
||||||
drv_let2=bd->first_drv_let;
|
|
||||||
while (temppp!=&root) {
|
|
||||||
"Drive %C:%08X ",drv_let2,temppp->size;
|
|
||||||
if (temppp->pri)
|
|
||||||
"Primary\n";
|
|
||||||
else
|
|
||||||
"Logical\n";
|
|
||||||
temppp=temppp->next;
|
|
||||||
drv_let2++;
|
|
||||||
}
|
|
||||||
if (!AreYouSure)
|
|
||||||
goto pd_done;
|
|
||||||
|
|
||||||
remaining=FloorU64(bd->max_blk+1,ROUND_DRV_TO)-ROUND_DRV_TO;
|
|
||||||
temppp=root.next;
|
|
||||||
MemSet(&mbr,0,BLK_SIZE);
|
|
||||||
mbr.signature=0xAA55;
|
|
||||||
offset=0;
|
|
||||||
for (i=0;i<pri_cnt;i++) {
|
|
||||||
mbr.p[i].active=0x80;
|
|
||||||
mbr.p[i].start_head=0;
|
|
||||||
mbr.p[i].start_cyl=0x101;
|
|
||||||
mbr.p[i].type=1; //Will get set different.
|
|
||||||
mbr.p[i].end_head=0xFE;
|
|
||||||
mbr.p[i].end_cyl=0xFFFF;
|
|
||||||
mbr.p[i].offset=DRV_HEADER+offset;
|
|
||||||
mbr.p[i].size=temppp->size-DRV_HEADER;
|
|
||||||
offset+=temppp->size;
|
|
||||||
remaining-=temppp->size;
|
|
||||||
temppp=temppp->next;
|
|
||||||
}
|
|
||||||
if (!i) i++;
|
|
||||||
if (temppp!=&root) {
|
|
||||||
mbr.p[i].active=0x80;
|
|
||||||
mbr.p[i].start_head=0;
|
|
||||||
mbr.p[i].start_cyl=0x101;
|
|
||||||
mbr.p[i].type=0xF;
|
|
||||||
mbr.p[i].end_head=0xFE;
|
|
||||||
mbr.p[i].end_cyl=0xFFFF;
|
|
||||||
mbr.p[i].offset=offset;
|
|
||||||
mbr.p[i].size=remaining;
|
|
||||||
ext_base=offset;
|
|
||||||
}
|
|
||||||
ATAWriteBlks(bd,&mbr,0,1);
|
|
||||||
|
|
||||||
while (temppp!=&root) {
|
|
||||||
start_offset=offset;
|
|
||||||
MemSet(&mbr,0,BLK_SIZE);
|
|
||||||
mbr.signature=0xAA55;
|
|
||||||
|
|
||||||
mbr.p[0].active=0x80;
|
|
||||||
mbr.p[0].start_head=1;
|
|
||||||
mbr.p[0].start_cyl=0x101;
|
|
||||||
mbr.p[0].type=1; //Will get set different.
|
|
||||||
mbr.p[0].end_head=0xFE;
|
|
||||||
mbr.p[0].end_cyl=0xFFFF;
|
|
||||||
mbr.p[0].offset=DRV_HEADER;
|
|
||||||
mbr.p[0].size=temppp->size-DRV_HEADER;
|
|
||||||
offset+=temppp->size;
|
|
||||||
temppp=temppp->next;
|
|
||||||
if (temppp!=&root) {
|
|
||||||
mbr.p[1].active=0x80;
|
|
||||||
mbr.p[1].start_head=0;
|
|
||||||
mbr.p[1].start_cyl=0x101;
|
|
||||||
mbr.p[1].type=5;
|
|
||||||
mbr.p[1].end_head=0xFE;
|
|
||||||
mbr.p[1].end_cyl=0xFFFF;
|
|
||||||
mbr.p[1].offset=offset-ext_base;
|
|
||||||
mbr.p[1].size=temppp->size;
|
|
||||||
}
|
|
||||||
ATAWriteBlks(bd,&mbr,start_offset,1);
|
|
||||||
}
|
|
||||||
|
|
||||||
bd->flags&=~(BDF_INITIALIZED | BDF_INIT_IN_PROGRESS);
|
|
||||||
BlkDevAdd(bd,FALSE,TRUE);
|
|
||||||
for (i=bd->first_drv_let;i<drv_let2;i++)
|
|
||||||
Fmt(i,,FALSE);
|
|
||||||
|
|
||||||
pd_done:
|
|
||||||
while (root.next!=&root) {
|
|
||||||
temppp=root.next;
|
|
||||||
QueRem(temppp);
|
|
||||||
Free(temppp);
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
#help_index "Info;File/Cmd Line (Typically);Cmd Line (Typically)"
|
I64 Size1(CDirEntry *tempde,I64 *_fuf_flags,I64 round_to)
|
||||||
|
|
||||||
U0 RedSeaDrvView(U8 drv_let=0)
|
|
||||||
{
|
{
|
||||||
CDrv *dv=Let2Drv(drv_let);
|
U8 buf[BLK_SIZE];
|
||||||
I64 lohi,c1,i,x,y,l,s;
|
I64 result=0,i;
|
||||||
U8 *bitmap;
|
|
||||||
CDC *dc=DCAlias;
|
|
||||||
|
|
||||||
l=(GR_HEIGHT-3*FONT_HEIGHT)*(GR_WIDTH-FONT_WIDTH<<1),
|
|
||||||
s=(dv->size+dv->spc-1)/dv->spc;
|
|
||||||
|
|
||||||
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
|
||||||
WinMax;
|
|
||||||
DocCursor;
|
|
||||||
DocClear;
|
|
||||||
DCFill;
|
|
||||||
try {
|
|
||||||
i=((s+7)>>3+BLK_SIZE-1)>>BLK_SIZE_BITS;
|
|
||||||
bitmap=MAlloc(i<<BLK_SIZE_BITS);
|
|
||||||
RBlks(dv,bitmap,dv->fat1,i);
|
|
||||||
i=0;
|
|
||||||
for (y=0;y<GR_HEIGHT-3*FONT_HEIGHT;y++) {
|
|
||||||
if (ScanKey)
|
|
||||||
break;
|
|
||||||
for (x=0;x<GR_WIDTH-FONT_WIDTH<<1;x++) {
|
|
||||||
lohi=i*s;
|
|
||||||
c1=lohi/l;
|
|
||||||
if (Bt(bitmap,c1))
|
|
||||||
dc->color=ROP_XOR+BLUE^TRANSPARENT;
|
|
||||||
else
|
|
||||||
dc->color=ROP_XOR+WHITE^TRANSPARENT;
|
|
||||||
GrPlot(dc,x,y);
|
|
||||||
i++;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
Free(bitmap);
|
|
||||||
} catch
|
|
||||||
DrvUnlock(dv);
|
|
||||||
GetChar;
|
|
||||||
|
|
||||||
SettingsPop;
|
|
||||||
DCFill;
|
|
||||||
DCDel(dc);
|
|
||||||
}
|
|
||||||
U0 FAT32DrvView(U8 drv_let=0)
|
|
||||||
{
|
|
||||||
CDrv *dv=Let2Drv(drv_let);
|
|
||||||
I64 lohi,c1,i,x,y,l,s;
|
|
||||||
U32 *bitmap;
|
|
||||||
CDC *dc=DCAlias;
|
|
||||||
l=(GR_HEIGHT-3*FONT_HEIGHT)*(GR_WIDTH-FONT_WIDTH<<1),
|
|
||||||
s=(dv->size+dv->spc-1)/dv->spc;
|
|
||||||
|
|
||||||
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
|
||||||
WinMax;
|
|
||||||
DocCursor;
|
|
||||||
DocClear;
|
|
||||||
DCFill;
|
|
||||||
try {
|
|
||||||
i=(s*4+BLK_SIZE-1)>>BLK_SIZE_BITS;
|
|
||||||
bitmap=MAlloc(i<<BLK_SIZE_BITS);
|
|
||||||
RBlks(dv,bitmap,dv->fat1,i);
|
|
||||||
i=0;
|
|
||||||
for (y=0;y<GR_HEIGHT-3*FONT_HEIGHT;y++) {
|
|
||||||
if (ScanKey)
|
|
||||||
break;
|
|
||||||
for (x=0;x<GR_WIDTH-FONT_WIDTH<<1;x++) {
|
|
||||||
lohi=i*s;
|
|
||||||
c1=lohi/l;
|
|
||||||
if (bitmap[c1])
|
|
||||||
dc->color=ROP_XOR+BLUE^TRANSPARENT;
|
|
||||||
else
|
|
||||||
dc->color=ROP_XOR+WHITE^TRANSPARENT;
|
|
||||||
GrPlot(dc,x,y);
|
|
||||||
i++;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
Free(bitmap);
|
|
||||||
} catch
|
|
||||||
DrvUnlock(dv);
|
|
||||||
GetChar;
|
|
||||||
|
|
||||||
SettingsPop;
|
|
||||||
DCFill;
|
|
||||||
DCDel(dc);
|
|
||||||
}
|
|
||||||
public U0 DrvView(U8 drv_let=0)
|
|
||||||
{//Drive view. Graph the allocation map's fragmentation.
|
|
||||||
CDrv *dv=Let2Drv(drv_let),*old_dv=Fs->cur_dv;
|
|
||||||
Drv(drv_let);
|
|
||||||
switch (dv->type) {
|
|
||||||
case DVT_REDSEA:
|
|
||||||
RedSeaDrvView(drv_let);
|
|
||||||
break;
|
|
||||||
case DVT_FAT32:
|
|
||||||
FAT32DrvView(drv_let);
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
PrintErr("File System Not Supported\n");
|
|
||||||
}
|
|
||||||
Drv(Drv2Let(old_dv));
|
|
||||||
}
|
|
||||||
|
|
||||||
public U0 DskView(U8 drv_let=0)
|
|
||||||
{//Disk view. Pie chart of partition sizes.
|
|
||||||
I64 i,j,
|
|
||||||
h=Fs->pix_width,
|
|
||||||
v=Fs->pix_height,
|
|
||||||
radius;
|
|
||||||
CDrv *dv;
|
CDrv *dv;
|
||||||
CBlkDev *bd=Let2BlkDev(drv_let);
|
while (tempde) {
|
||||||
CDC *dc=DCAlias;
|
if ((i=tempde->size) && Bt(_fuf_flags,FUf_EXPAND) &&
|
||||||
F64 sect_start,sect_end;
|
!(tempde->attr&RS_ATTR_DIR) &&
|
||||||
|
FileAttr(tempde->name)&RS_ATTR_COMPRESSED) {
|
||||||
|
dv=Let2Drv(*tempde->full_name);
|
||||||
|
RBlks(dv,buf,Cluster2Blk(dv,tempde->cluster),1);
|
||||||
|
i=(&buf)(CArcCompress *)->expanded_size;
|
||||||
|
}
|
||||||
|
if (round_to)
|
||||||
|
i=CeilU64(tempde->size,round_to);
|
||||||
|
if (tempde->attr&RS_ATTR_DIR)
|
||||||
|
i+=Size1(tempde->sub,_fuf_flags,round_to);
|
||||||
|
tempde->user_data=i;
|
||||||
|
result+=i;
|
||||||
|
tempde=tempde->next;
|
||||||
|
}
|
||||||
|
return result;
|
||||||
|
}
|
||||||
|
public I64 Size(U8 *files_find_mask="/*",U8 *fu_flags=NULL,I64 round_to=0)
|
||||||
|
{//Total size of files in mask. "+x" for expanded size.
|
||||||
|
//Does not include directory size of base directory, but
|
||||||
|
//does include size of sub directories.
|
||||||
|
I64 fuf_flags=0,result=0;
|
||||||
|
CDirEntry *tempde1=NULL;
|
||||||
|
ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),"+r");
|
||||||
|
ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),fu_flags);
|
||||||
|
if (tempde1=FilesFind(files_find_mask,fuf_flags&FUG_FILES_FIND)) {
|
||||||
|
fuf_flags&=FUF_EXPAND;
|
||||||
|
result=Size1(tempde1,&fuf_flags,round_to);
|
||||||
|
DirTreeDel(tempde1);
|
||||||
|
}
|
||||||
|
return result;
|
||||||
|
}
|
||||||
|
|
||||||
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
public I64 FileCnt(CDirEntry *tempde)
|
||||||
DocCursor;
|
{//Cnt of files in $LK,"CDirEntry",A="MN:CDirEntry"$ tree.
|
||||||
DocClear;
|
I64 cnt=0;
|
||||||
DCFill;
|
while (tempde) {
|
||||||
if (h<v)
|
if (tempde->attr&RS_ATTR_DIR)
|
||||||
radius=0.4*h;
|
cnt+=FileCnt(tempde->sub);
|
||||||
else
|
else
|
||||||
radius=0.4*v;
|
cnt++;
|
||||||
dc->color=BLACK;
|
tempde=tempde->next;
|
||||||
GrCircle(dc,h>>1,v>>1,radius);
|
|
||||||
|
|
||||||
j=1;
|
|
||||||
for (i=0;i<NUM_DRVS;i++) {
|
|
||||||
dv=&blkdev.drvs[i];
|
|
||||||
if (bd==dv->bd && dv->type) {
|
|
||||||
sect_start=-(dv->base_offset*2*ã/(bd->max_blk+1));
|
|
||||||
sect_end =-((dv->base_offset+dv->size)*2*ã/(bd->max_blk+1));
|
|
||||||
dc->color=BLACK;
|
|
||||||
GrLine(dc,h>>1,v>>1,
|
|
||||||
h>>1+radius*Cos(sect_start),
|
|
||||||
v>>1+radius*Sin(sect_start));
|
|
||||||
GrLine(dc,h>>1,v>>1,
|
|
||||||
h>>1+radius*Cos(sect_end),
|
|
||||||
v>>1+radius*Sin(sect_end));
|
|
||||||
|
|
||||||
dc->color=j;
|
|
||||||
GrPrint(dc,0,v-FONT_HEIGHT*j,"%C %-8Z",Drv2Let(dv),
|
|
||||||
dv->type.u16[0],"ST_DRV_TYPES");
|
|
||||||
GrFloodFill(dc,
|
|
||||||
h>>1+(radius-4)*Cos((sect_start+sect_end)/2),
|
|
||||||
v>>1+(radius-4)*Sin((sect_start+sect_end)/2),FALSE);
|
|
||||||
j++;
|
|
||||||
}
|
}
|
||||||
}
|
return cnt;
|
||||||
|
|
||||||
GetChar(,FALSE);
|
|
||||||
SettingsPop;
|
|
||||||
DCFill;
|
|
||||||
DCDel(dc);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
#help_index "File/Cmd Line (Typically);Cmd Line (Typically)"
|
#help_index "File/Cmd Line (Typically);Cmd Line (Typically)"
|
||||||
|
public I64 FF(U8 *files_find_mask,U8 *fu_flags=NULL)
|
||||||
|
{//Files find. List files matching mask.
|
||||||
|
I64 cnt=0,fuf_flags=0;
|
||||||
|
CDirEntry *tempde,*tempde1;
|
||||||
|
ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),"+r+f+F");
|
||||||
|
ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),fu_flags);
|
||||||
|
tempde=tempde1=FilesFind(files_find_mask,fuf_flags);
|
||||||
|
while (tempde) {
|
||||||
|
PutFileLink(tempde->full_name);
|
||||||
|
'\n';
|
||||||
|
cnt++;
|
||||||
|
tempde=tempde->next;
|
||||||
|
}
|
||||||
|
DirTreeDel(tempde1);
|
||||||
|
return cnt;
|
||||||
|
}
|
||||||
|
|
||||||
public I64 Zip(U8 *files_find_mask="*",U8 *fu_flags=NULL)
|
public I64 Zip(U8 *files_find_mask="*",U8 *fu_flags=NULL)
|
||||||
{//Compress files by moving to .Z filename.
|
{//Compress files by moving to .Z filename.
|
||||||
|
|||||||
+218
-3
@@ -209,11 +209,11 @@ public I64 ChkDsk(U8 drv_let=0,Bool fix=FALSE,Bool confirm=TRUE)
|
|||||||
//You probably want to reformat and reinstall.
|
//You probably want to reformat and reinstall.
|
||||||
I64 errs=0;
|
I64 errs=0;
|
||||||
CDrv *dv=Let2Drv(drv_let);
|
CDrv *dv=Let2Drv(drv_let);
|
||||||
switch (dv->type) {
|
switch (dv->fs_type) {
|
||||||
case DVT_REDSEA:
|
case FSt_REDSEA:
|
||||||
errs=RedSeaChkDsk(drv_let,&fix,&confirm);
|
errs=RedSeaChkDsk(drv_let,&fix,&confirm);
|
||||||
break;
|
break;
|
||||||
case DVT_FAT32:
|
case FSt_FAT32:
|
||||||
errs=FAT32ChkDsk(drv_let,&fix,&confirm);
|
errs=FAT32ChkDsk(drv_let,&fix,&confirm);
|
||||||
break;
|
break;
|
||||||
default:
|
default:
|
||||||
@@ -228,3 +228,218 @@ public I64 ChkDsk(U8 drv_let=0,Bool fix=FALSE,Bool confirm=TRUE)
|
|||||||
}
|
}
|
||||||
return errs;
|
return errs;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
U0 RedSeaDrvView(U8 drv_let=0)
|
||||||
|
{
|
||||||
|
CDrv *dv=Let2Drv(drv_let);
|
||||||
|
I64 lohi,c1,i,x,y,l,s;
|
||||||
|
U8 *bitmap;
|
||||||
|
CDC *dc=DCAlias;
|
||||||
|
|
||||||
|
l=(GR_HEIGHT-3*FONT_HEIGHT)*(GR_WIDTH-FONT_WIDTH<<1),
|
||||||
|
s=(dv->size+dv->spc-1)/dv->spc;
|
||||||
|
|
||||||
|
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
||||||
|
WinMax;
|
||||||
|
DocCursor;
|
||||||
|
DocClear;
|
||||||
|
DCFill;
|
||||||
|
try {
|
||||||
|
i=((s+7)>>3+BLK_SIZE-1)>>BLK_SIZE_BITS;
|
||||||
|
bitmap=MAlloc(i<<BLK_SIZE_BITS);
|
||||||
|
RBlks(dv,bitmap,dv->fat1,i);
|
||||||
|
i=0;
|
||||||
|
for (y=0;y<GR_HEIGHT-3*FONT_HEIGHT;y++) {
|
||||||
|
if (ScanKey)
|
||||||
|
break;
|
||||||
|
for (x=0;x<GR_WIDTH-FONT_WIDTH<<1;x++) {
|
||||||
|
lohi=i*s;
|
||||||
|
c1=lohi/l;
|
||||||
|
if (Bt(bitmap,c1))
|
||||||
|
dc->color=ROP_XOR+BLUE^TRANSPARENT;
|
||||||
|
else
|
||||||
|
dc->color=ROP_XOR+WHITE^TRANSPARENT;
|
||||||
|
GrPlot(dc,x,y);
|
||||||
|
i++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
Free(bitmap);
|
||||||
|
} catch
|
||||||
|
DrvUnlock(dv);
|
||||||
|
GetChar;
|
||||||
|
|
||||||
|
SettingsPop;
|
||||||
|
DCFill;
|
||||||
|
DCDel(dc);
|
||||||
|
}
|
||||||
|
U0 FAT32DrvView(U8 drv_let=0)
|
||||||
|
{
|
||||||
|
CDrv *dv=Let2Drv(drv_let);
|
||||||
|
I64 lohi,c1,i,x,y,l,s;
|
||||||
|
U32 *bitmap;
|
||||||
|
CDC *dc=DCAlias;
|
||||||
|
l=(GR_HEIGHT-3*FONT_HEIGHT)*(GR_WIDTH-FONT_WIDTH<<1),
|
||||||
|
s=(dv->size+dv->spc-1)/dv->spc;
|
||||||
|
|
||||||
|
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
||||||
|
WinMax;
|
||||||
|
DocCursor;
|
||||||
|
DocClear;
|
||||||
|
DCFill;
|
||||||
|
try {
|
||||||
|
i=(s*4+BLK_SIZE-1)>>BLK_SIZE_BITS;
|
||||||
|
bitmap=MAlloc(i<<BLK_SIZE_BITS);
|
||||||
|
RBlks(dv,bitmap,dv->fat1,i);
|
||||||
|
i=0;
|
||||||
|
for (y=0;y<GR_HEIGHT-3*FONT_HEIGHT;y++) {
|
||||||
|
if (ScanKey)
|
||||||
|
break;
|
||||||
|
for (x=0;x<GR_WIDTH-FONT_WIDTH<<1;x++) {
|
||||||
|
lohi=i*s;
|
||||||
|
c1=lohi/l;
|
||||||
|
if (bitmap[c1])
|
||||||
|
dc->color=ROP_XOR+BLUE^TRANSPARENT;
|
||||||
|
else
|
||||||
|
dc->color=ROP_XOR+WHITE^TRANSPARENT;
|
||||||
|
GrPlot(dc,x,y);
|
||||||
|
i++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
Free(bitmap);
|
||||||
|
} catch
|
||||||
|
DrvUnlock(dv);
|
||||||
|
GetChar;
|
||||||
|
|
||||||
|
SettingsPop;
|
||||||
|
DCFill;
|
||||||
|
DCDel(dc);
|
||||||
|
}
|
||||||
|
public U0 DrvView(U8 drv_let=0)
|
||||||
|
{//Drive view. Graph the allocation map's fragmentation.
|
||||||
|
CDrv *dv=Let2Drv(drv_let),*old_dv=Fs->cur_dv;
|
||||||
|
Drv(drv_let);
|
||||||
|
switch (dv->fs_type) {
|
||||||
|
case FSt_REDSEA:
|
||||||
|
RedSeaDrvView(drv_let);
|
||||||
|
break;
|
||||||
|
case FSt_FAT32:
|
||||||
|
FAT32DrvView(drv_let);
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
PrintErr("File System Not Supported\n");
|
||||||
|
}
|
||||||
|
Drv(Drv2Let(old_dv));
|
||||||
|
}
|
||||||
|
|
||||||
|
public U0 DskView(U8 drv_let=0)
|
||||||
|
{//Disk view. Pie chart of partition sizes.
|
||||||
|
I64 i,j,attr,
|
||||||
|
h=Fs->pix_width,
|
||||||
|
v=Fs->pix_height,
|
||||||
|
radius;
|
||||||
|
CDrv *dv;
|
||||||
|
CBlkDev *bd=Let2BlkDev(drv_let);
|
||||||
|
CDC *dc=DCAlias;
|
||||||
|
F64 sect_start,sect_end;
|
||||||
|
|
||||||
|
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
||||||
|
DocCursor;
|
||||||
|
DocClear;
|
||||||
|
DCFill;
|
||||||
|
if (h<v)
|
||||||
|
radius=0.4*h;
|
||||||
|
else
|
||||||
|
radius=0.4*v;
|
||||||
|
dc->color=BLACK;
|
||||||
|
GrCircle(dc,h>>1,v>>1,radius);
|
||||||
|
|
||||||
|
j=1;
|
||||||
|
for (i=0;i<NUM_DRVS;i++) {
|
||||||
|
dv=&blkdev.drvs[i];
|
||||||
|
if (bd==dv->bd && dv->fs_type) {
|
||||||
|
sect_start=-(dv->base_offset*2*ã/(bd->max_blk+1));
|
||||||
|
sect_end =-((dv->base_offset+dv->size)*2*ã/(bd->max_blk+1));
|
||||||
|
dc->color=BLACK;
|
||||||
|
GrLine(dc,h>>1,v>>1,
|
||||||
|
h>>1+radius*Cos(sect_start),
|
||||||
|
v>>1+radius*Sin(sect_start));
|
||||||
|
GrLine(dc,h>>1,v>>1,
|
||||||
|
h>>1+radius*Cos(sect_end),
|
||||||
|
v>>1+radius*Sin(sect_end));
|
||||||
|
|
||||||
|
attr=DrvTextAttrGet(Drv2Let(dv));
|
||||||
|
dc->color=attr&15;
|
||||||
|
GrPrint(dc,0,v-FONT_HEIGHT*j,"%C %-8Z",Drv2Let(dv),
|
||||||
|
dv->fs_type,"ST_DRV_TYPES");
|
||||||
|
dc->color.c1=attr>>4;
|
||||||
|
dc->color|=ROPF_DITHER;
|
||||||
|
GrFloodFill(dc,
|
||||||
|
h>>1+(radius-4)*Cos((sect_start+sect_end)/2),
|
||||||
|
v>>1+(radius-4)*Sin((sect_start+sect_end)/2),FALSE);
|
||||||
|
j++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
GetChar(,FALSE);
|
||||||
|
SettingsPop;
|
||||||
|
DCFill;
|
||||||
|
DCDel(dc);
|
||||||
|
}
|
||||||
|
|
||||||
|
I64 RedSeaUnusedDrvSpace(U8 drv_let=0)
|
||||||
|
{
|
||||||
|
CDrv *dv=Let2Drv(drv_let);
|
||||||
|
I64 result=0,i,l;
|
||||||
|
U8 *bitmap;
|
||||||
|
try {
|
||||||
|
l=(dv->size+dv->spc-1)/dv->spc;
|
||||||
|
i=((l+7)>>3+BLK_SIZE-1)>>BLK_SIZE_BITS;
|
||||||
|
bitmap=MAlloc(i<<BLK_SIZE_BITS);
|
||||||
|
RBlks(dv,bitmap,dv->fat1,i);
|
||||||
|
for (i=0;i<l;i++)
|
||||||
|
if (!Bt(bitmap,i))
|
||||||
|
result++;
|
||||||
|
Free(bitmap);
|
||||||
|
} catch
|
||||||
|
DrvUnlock(dv);
|
||||||
|
return result*BLK_SIZE*dv->spc;
|
||||||
|
}
|
||||||
|
I64 FAT32UnusedDrvSpace(U8 drv_let=0)
|
||||||
|
{
|
||||||
|
CDrv *dv=Let2Drv(drv_let);
|
||||||
|
I64 result=0,i,l;
|
||||||
|
U32 *bitmap;
|
||||||
|
try {
|
||||||
|
l=(dv->size+dv->spc-1)/dv->spc;
|
||||||
|
i=(l*4+BLK_SIZE-1)>>BLK_SIZE_BITS;
|
||||||
|
bitmap=MAlloc(i<<BLK_SIZE_BITS);
|
||||||
|
RBlks(dv,bitmap,dv->fat1,i);
|
||||||
|
for (i=0;i<l;i++)
|
||||||
|
if (!bitmap[i])
|
||||||
|
result++;
|
||||||
|
Free(bitmap);
|
||||||
|
} catch
|
||||||
|
DrvUnlock(dv);
|
||||||
|
return result*BLK_SIZE*dv->spc;
|
||||||
|
}
|
||||||
|
public I64 UnusedDrvSpace(U8 drv_let=0)
|
||||||
|
{//Returns unused size in bytes.
|
||||||
|
CDrv *dv=Let2Drv(drv_let),*old_dv=Fs->cur_dv;
|
||||||
|
U8 *old_dir=StrNew(Fs->cur_dir);
|
||||||
|
I64 result=0;
|
||||||
|
Drv(drv_let);
|
||||||
|
switch (dv->fs_type) {
|
||||||
|
case FSt_REDSEA:
|
||||||
|
result=RedSeaUnusedDrvSpace(drv_let);
|
||||||
|
break;
|
||||||
|
case FSt_FAT32:
|
||||||
|
result=FAT32UnusedDrvSpace(drv_let);
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
PrintErr("File System Not Supported\n");
|
||||||
|
}
|
||||||
|
Drv(Drv2Let(old_dv));
|
||||||
|
Cd(old_dir);
|
||||||
|
Free(old_dir);
|
||||||
|
return result;
|
||||||
|
}
|
||||||
@@ -217,9 +217,9 @@ U0 FMRebuildDoc(CDoc **_doc,CDirEntry **_root,I64 mode)
|
|||||||
DocPrint(doc,"$$LTBLUE$$");
|
DocPrint(doc,"$$LTBLUE$$");
|
||||||
for (i=0;i<NUM_DRVS;i++) {
|
for (i=0;i<NUM_DRVS;i++) {
|
||||||
dv=&blkdev.drvs[i];
|
dv=&blkdev.drvs[i];
|
||||||
if (dv->type==DVT_REDSEA||dv->type==DVT_FAT32)
|
if (dv->fs_type==FSt_REDSEA||dv->fs_type==FSt_FAT32)
|
||||||
FMRebuildDocDrv(Drv2Let(dv),doc,_root,TRUE);
|
FMRebuildDocDrv(Drv2Let(dv),doc,_root,TRUE);
|
||||||
else if (dv->type==DVT_ISO9660) {
|
else if (dv->fs_type==FSt_ISO9660) {
|
||||||
if (dv->bd->flags&BDF_INITIALIZED)
|
if (dv->bd->flags&BDF_INITIALIZED)
|
||||||
tempde=FMRebuildDocDrv(Drv2Let(dv),doc,_root,TRUE);
|
tempde=FMRebuildDocDrv(Drv2Let(dv),doc,_root,TRUE);
|
||||||
else {
|
else {
|
||||||
|
|||||||
@@ -1,7 +1,8 @@
|
|||||||
Cd(__DIR__);;
|
Cd(__DIR__);;
|
||||||
#include "ADskA"
|
#include "ADskA"
|
||||||
#include "Mount"
|
|
||||||
#include "ADskB"
|
#include "ADskB"
|
||||||
|
#include "PrtDsk"
|
||||||
|
#include "Mount"
|
||||||
#include "ChkDsk"
|
#include "ChkDsk"
|
||||||
#include "FileMgr"
|
#include "FileMgr"
|
||||||
Cd("..");;
|
Cd("..");;
|
||||||
+55
-43
@@ -1,34 +1,47 @@
|
|||||||
#help_index "Install;File/Cmd Line (Typically);Cmd Line (Typically);"
|
#help_index "Install;File/Cmd Line (Typically);Cmd Line (Typically);"
|
||||||
CDoc *BlkDevPmt(U8 boot_drv_let=0,Bool make_free=FALSE,Bool repartition=FALSE)
|
I64 Mount2(U8 boot_drv_let,CDoc *_doc,Bool repartition)
|
||||||
{
|
{//If _doc, called by $LK,"::/Kernel/KCfg.CPP"$ else called by $LK,"Mount",A="MN:Mount"$().
|
||||||
I64 num_hints,drv_let,type,unit;
|
I64 cnt,result=0,num_hints,drv_let,type,unit;
|
||||||
U8 blks_buf[STR_LEN],addr_buf[STR_LEN],base0_buf[STR_LEN],base1_buf[STR_LEN];
|
U8 blks_buf[STR_LEN],addr_buf[STR_LEN],base0_buf[STR_LEN],base1_buf[STR_LEN];
|
||||||
CATARep *root=NULL,*tempha;
|
CATARep *root=NULL,*tempha;
|
||||||
|
Bool one_drv,make_free;
|
||||||
CDoc *doc;
|
CDoc *doc;
|
||||||
|
boot_drv_let=ToUpper(boot_drv_let);
|
||||||
|
do {
|
||||||
|
cnt=0;
|
||||||
|
if (!_doc)
|
||||||
|
DrvRep;
|
||||||
"\n****** Mount Drives ******\n"
|
"\n****** Mount Drives ******\n"
|
||||||
"$$GREEN$$A$$FG$$-$$GREEN$$B$$FG$$ are RAM drives.\n"
|
"$$GREEN$$A$$FG$$-$$GREEN$$B$$FG$$ are RAM drives.\n"
|
||||||
"$$GREEN$$C$$FG$$-$$GREEN$$S$$FG$$ are hard drives.\n"
|
"$$GREEN$$C$$FG$$-$$GREEN$$S$$FG$$ are ATA hard drives.\n"
|
||||||
"$$GREEN$$T$$FG$$-$$GREEN$$Z$$FG$$ are CD/DVD drives.\n"
|
"$$GREEN$$T$$FG$$-$$GREEN$$Z$$FG$$ are ATAPI CD/DVD drives.\n"
|
||||||
"\nDrive Letter ($$PURPLE$$<ENTER>$$FG$$ to exit):";
|
"\nDrive Letter ($$PURPLE$$<ENTER>$$FG$$ to exit):";
|
||||||
drv_let=ToUpper(GetChar);
|
drv_let=ToUpper(GetChar);
|
||||||
'\n';
|
'\n';
|
||||||
if ('A'<=drv_let<='Z') {
|
if (type=Let2BlkDevType(drv_let)) {
|
||||||
|
one_drv=FALSE;
|
||||||
|
if (_doc) { //Called by $LK,"::/Kernel/KCfg.CPP"$
|
||||||
|
doc=_doc;
|
||||||
|
make_free=FALSE;
|
||||||
|
} else { //Called by $LK,"Mount",A="MN:Mount"$()
|
||||||
doc=DocNew;
|
doc=DocNew;
|
||||||
|
DocPrint(doc,"CBlkDev *bd;\n");
|
||||||
|
make_free=TRUE;
|
||||||
|
}
|
||||||
unit=0;
|
unit=0;
|
||||||
if ('A'<=drv_let<='B') {
|
switch (type) {
|
||||||
|
case BDT_RAM:
|
||||||
type=BDT_RAM;
|
type=BDT_RAM;
|
||||||
"Addr of RAM disk ($$PURPLE$$<ENTER>$$FG$$ to MAlloc):";
|
"Addr of RAM disk ($$PURPLE$$<ENTER>$$FG$$ to MAlloc):";
|
||||||
GetS(addr_buf,STR_LEN);
|
GetS(addr_buf,STR_LEN);
|
||||||
"Blks of 512 bytes:";
|
"Blks of 512 bytes:";
|
||||||
GetS(blks_buf,STR_LEN);
|
GetS(blks_buf,STR_LEN);
|
||||||
} else {
|
break;
|
||||||
|
case BDT_ATA:
|
||||||
|
case BDT_ATAPI:
|
||||||
num_hints=ATARep(,,&root);
|
num_hints=ATARep(,,&root);
|
||||||
if ('C'<=drv_let<='S')
|
|
||||||
type=BDT_ATA;
|
|
||||||
else
|
|
||||||
type=BDT_ATAPI;
|
|
||||||
if (type==BDT_ATAPI && boot_drv_let)
|
if (type==BDT_ATAPI && boot_drv_let)
|
||||||
"<ENTER> to use booted CD/DVD\n";
|
"<ENTER> to use booted CD/DVD\n"; //Only $LK,"::/Kernel/KCfg.CPP"$
|
||||||
do {
|
do {
|
||||||
if (num_hints)
|
if (num_hints)
|
||||||
"Enter dev number or\nport with $$PURPLE$$0x$$FG$$ prefix.\n"
|
"Enter dev number or\nport with $$PURPLE$$0x$$FG$$ prefix.\n"
|
||||||
@@ -57,46 +70,45 @@ CDoc *BlkDevPmt(U8 boot_drv_let=0,Bool make_free=FALSE,Bool repartition=FALSE)
|
|||||||
'\n';
|
'\n';
|
||||||
}
|
}
|
||||||
LinkedLstDel(root);
|
LinkedLstDel(root);
|
||||||
|
break;
|
||||||
}
|
}
|
||||||
DocPrint(doc,"bd=BlkDevNextFree(%d,%d);bd->unit=%d;\n",drv_let,type,unit);
|
DocPrint(doc,"bd=BlkDevNextFree(\'%C\',%d);bd->unit=%d;\n",
|
||||||
if (type==BDT_RAM) {
|
drv_let,type,unit);
|
||||||
|
switch (type) {
|
||||||
|
case BDT_RAM:
|
||||||
if (!*addr_buf) StrCpy(addr_buf,"0");
|
if (!*addr_buf) StrCpy(addr_buf,"0");
|
||||||
DocPrint(doc,"bd->RAM_dsk=%s;bd->max_blk=(%s)-1;\n",addr_buf,blks_buf);
|
DocPrint(doc,"bd->RAM_dsk=%s;bd->max_blk=(%s)-1;\n",
|
||||||
}
|
addr_buf,blks_buf);
|
||||||
if (type==BDT_ATA || type==BDT_ATAPI) {
|
break;
|
||||||
|
case BDT_ATA:
|
||||||
|
case BDT_ATAPI:
|
||||||
if (type==BDT_ATAPI && !*base0_buf) {
|
if (type==BDT_ATAPI && !*base0_buf) {
|
||||||
DocPrint(doc,"GetBaseUnit(bd);\n");
|
DocPrint(doc,"GetBaseUnit(bd);\n"); //Only $LK,"::/Kernel/KCfg.CPP"$
|
||||||
if (drv_let==boot_drv_let)
|
if (drv_let==boot_drv_let)
|
||||||
make_free=TRUE;
|
make_free=TRUE;
|
||||||
} else
|
} else
|
||||||
DocPrint(doc,"bd->base0=%s;bd->base1=%s;\n",
|
DocPrint(doc,"bd->base0=%s;bd->base1=%s;\n",base0_buf,base1_buf);
|
||||||
base0_buf,base1_buf);
|
|
||||||
}
|
|
||||||
if (type==BDT_ATA && repartition) {
|
if (type==BDT_ATA && repartition) {
|
||||||
"\nReformat WHOLE drive!";
|
"\nReformat WHOLE drive!";
|
||||||
if (YorN) {
|
one_drv=YorN;
|
||||||
DocPrint(doc,"if (!BlkDevAdd(bd,TRUE,TRUE))"
|
|
||||||
"\"\n\n$$BK,1$$$$RED$$Operation Failed$$BK,0$$$$FG$$\n\n\";"
|
|
||||||
"else PrtDsk(bd->first_drv_let);\n");
|
|
||||||
return doc;
|
|
||||||
}
|
}
|
||||||
|
break;
|
||||||
}
|
}
|
||||||
DocPrint(doc,"if (!BlkDevAdd(bd,FALSE,%d))"
|
DocPrint(doc,"BlkDevAdd(bd,%d,%d);\n",one_drv,make_free);
|
||||||
"\"\n\n$$BK,1$$$$RED$$Operation Failed$$BK,0$$$$FG$$\n\n\";\n",make_free);
|
if (_doc) //Called by $LK,"::/Kernel/KCfg.CPP"$
|
||||||
return doc;
|
cnt++;
|
||||||
} else
|
else { //Called by $LK,"Mount",A="MN:Mount"$()
|
||||||
return NULL;
|
if ((cnt=ExeDoc(doc)) && one_drv)
|
||||||
}
|
PrtDsk(drv_let);
|
||||||
|
|
||||||
public U0 Mount(Bool repartition=FALSE)
|
|
||||||
{//Mount a drive.
|
|
||||||
CDoc *doc;
|
|
||||||
ExePrint("CBlkDev *bd;"); //Leaks
|
|
||||||
do {
|
|
||||||
DrvRep;
|
|
||||||
if (doc=BlkDevPmt(,TRUE,repartition)) {
|
|
||||||
ExeDoc(doc);
|
|
||||||
DocDel(doc);
|
DocDel(doc);
|
||||||
}
|
}
|
||||||
} while (doc);
|
}
|
||||||
|
result+=cnt;
|
||||||
|
} while (cnt || !result && _doc); //At least 1 if Called by $LK,"::/Kernel/KCfg.CPP"$
|
||||||
|
return result;
|
||||||
|
}
|
||||||
|
|
||||||
|
public I64 Mount(Bool repartition=FALSE)
|
||||||
|
{//Mount drives.
|
||||||
|
return Mount2(0,NULL,repartition);
|
||||||
}
|
}
|
||||||
@@ -0,0 +1,163 @@
|
|||||||
|
#help_index "Install;File/Cmd Line (Typically);Cmd Line (Typically)"
|
||||||
|
|
||||||
|
#define ROUND_DRV_TO (63*255)
|
||||||
|
#define DRV_HEADER 63
|
||||||
|
|
||||||
|
class CPlannedDrv
|
||||||
|
{
|
||||||
|
CPlannedDrv *next,*last;
|
||||||
|
I64 size;
|
||||||
|
Bool pri;
|
||||||
|
};
|
||||||
|
|
||||||
|
//Available to assist in writing scripts.
|
||||||
|
I64 drv_dsk_dsk_size=0;
|
||||||
|
|
||||||
|
public I64 PrtDsk(U8 drv_let=0)
|
||||||
|
{//Partition the disk containing partition drv_let.
|
||||||
|
//drv_let=0 means add new drive that
|
||||||
|
//is not already mounted.
|
||||||
|
CBlkDev *bd;
|
||||||
|
CPlannedDrv root,*temppp;
|
||||||
|
CMasterBoot mbr;
|
||||||
|
Bool pri=TRUE;
|
||||||
|
I64 ext_base,drv_let2,pri_cnt=0,
|
||||||
|
i,start_offset,offset,remaining;
|
||||||
|
drv_dsk_dsk_size=0;
|
||||||
|
"This command does not play well\n"
|
||||||
|
"with other operating systems.\n"
|
||||||
|
"You really should use another\n"
|
||||||
|
"operating system's partitioner.\n"
|
||||||
|
"If you use this, it may, in fact,\n"
|
||||||
|
"make your hard drive impossible\n"
|
||||||
|
"to repartition with other operating\n"
|
||||||
|
"until you set block zero to zero\n"
|
||||||
|
"with $$LK,\"MasterBootZero\",\"MN:MasterBootZero\"$$()\n\n\n"
|
||||||
|
"Continue";
|
||||||
|
if (!YorN) return 0;
|
||||||
|
if (drv_let && !Let2BlkDev(drv_let,FALSE))
|
||||||
|
drv_let=0;
|
||||||
|
if (!drv_let) {
|
||||||
|
Mount(TRUE);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
if (!(bd=Let2BlkDev(drv_let,FALSE)) || bd->type!=BDT_ATA)
|
||||||
|
return 0;
|
||||||
|
|
||||||
|
drv_dsk_dsk_size=bd->max_blk+1;
|
||||||
|
QueInit(&root);
|
||||||
|
drv_let2=bd->first_drv_let;
|
||||||
|
remaining=FloorU64(bd->max_blk+1,ROUND_DRV_TO);
|
||||||
|
while (FloorU64(remaining,ROUND_DRV_TO)>=ROUND_DRV_TO) {
|
||||||
|
temppp=MAlloc(sizeof(CPlannedDrv));
|
||||||
|
do {
|
||||||
|
"$$RED$$Partition %C$$FG$$\n",drv_let2;
|
||||||
|
temppp->pri=FALSE;
|
||||||
|
if (pri) {
|
||||||
|
"Primary Partition";
|
||||||
|
if (YorN) {
|
||||||
|
pri_cnt++;
|
||||||
|
temppp->pri=TRUE;
|
||||||
|
if (pri_cnt==3)
|
||||||
|
pri=FALSE;
|
||||||
|
} else
|
||||||
|
pri=FALSE;
|
||||||
|
}
|
||||||
|
"Blocks Remaining:%d (0x%X)\n",
|
||||||
|
remaining-DRV_HEADER,remaining-DRV_HEADER;
|
||||||
|
temppp->size=CeilU64(GetI64("Size in Blocks :",
|
||||||
|
remaining-DRV_HEADER)+DRV_HEADER,ROUND_DRV_TO);
|
||||||
|
} while (!(ROUND_DRV_TO<=temppp->size<=FloorU64(remaining,ROUND_DRV_TO)));
|
||||||
|
QueIns(temppp,root.last);
|
||||||
|
remaining-=temppp->size;
|
||||||
|
drv_let2++;
|
||||||
|
}
|
||||||
|
|
||||||
|
"\n\n!!! Repartition Drive !!!\n\n";
|
||||||
|
temppp=root.next;
|
||||||
|
drv_let2=bd->first_drv_let;
|
||||||
|
while (temppp!=&root) {
|
||||||
|
"Drive %C:%08X ",drv_let2,temppp->size;
|
||||||
|
if (temppp->pri)
|
||||||
|
"Primary\n";
|
||||||
|
else
|
||||||
|
"Logical\n";
|
||||||
|
temppp=temppp->next;
|
||||||
|
drv_let2++;
|
||||||
|
}
|
||||||
|
if (!AreYouSure)
|
||||||
|
goto pd_done;
|
||||||
|
|
||||||
|
remaining=FloorU64(bd->max_blk+1,ROUND_DRV_TO)-ROUND_DRV_TO;
|
||||||
|
temppp=root.next;
|
||||||
|
MemSet(&mbr,0,BLK_SIZE);
|
||||||
|
mbr.signature=0xAA55;
|
||||||
|
offset=0;
|
||||||
|
for (i=0;i<pri_cnt;i++) {
|
||||||
|
mbr.p[i].active=0x80;
|
||||||
|
mbr.p[i].start_head=0;
|
||||||
|
mbr.p[i].start_cyl=0x101;
|
||||||
|
mbr.p[i].type=1; //Will get set different.
|
||||||
|
mbr.p[i].end_head=0xFE;
|
||||||
|
mbr.p[i].end_cyl=0xFFFF;
|
||||||
|
mbr.p[i].offset=DRV_HEADER+offset;
|
||||||
|
mbr.p[i].size=temppp->size-DRV_HEADER;
|
||||||
|
offset+=temppp->size;
|
||||||
|
remaining-=temppp->size;
|
||||||
|
temppp=temppp->next;
|
||||||
|
}
|
||||||
|
if (!i) i++;
|
||||||
|
if (temppp!=&root) {
|
||||||
|
mbr.p[i].active=0x80;
|
||||||
|
mbr.p[i].start_head=0;
|
||||||
|
mbr.p[i].start_cyl=0x101;
|
||||||
|
mbr.p[i].type=0xF;
|
||||||
|
mbr.p[i].end_head=0xFE;
|
||||||
|
mbr.p[i].end_cyl=0xFFFF;
|
||||||
|
mbr.p[i].offset=offset;
|
||||||
|
mbr.p[i].size=remaining;
|
||||||
|
ext_base=offset;
|
||||||
|
}
|
||||||
|
ATAWriteBlks(bd,&mbr,0,1);
|
||||||
|
|
||||||
|
while (temppp!=&root) {
|
||||||
|
start_offset=offset;
|
||||||
|
MemSet(&mbr,0,BLK_SIZE);
|
||||||
|
mbr.signature=0xAA55;
|
||||||
|
|
||||||
|
mbr.p[0].active=0x80;
|
||||||
|
mbr.p[0].start_head=1;
|
||||||
|
mbr.p[0].start_cyl=0x101;
|
||||||
|
mbr.p[0].type=1; //Will get set different.
|
||||||
|
mbr.p[0].end_head=0xFE;
|
||||||
|
mbr.p[0].end_cyl=0xFFFF;
|
||||||
|
mbr.p[0].offset=DRV_HEADER;
|
||||||
|
mbr.p[0].size=temppp->size-DRV_HEADER;
|
||||||
|
offset+=temppp->size;
|
||||||
|
temppp=temppp->next;
|
||||||
|
if (temppp!=&root) {
|
||||||
|
mbr.p[1].active=0x80;
|
||||||
|
mbr.p[1].start_head=0;
|
||||||
|
mbr.p[1].start_cyl=0x101;
|
||||||
|
mbr.p[1].type=5;
|
||||||
|
mbr.p[1].end_head=0xFE;
|
||||||
|
mbr.p[1].end_cyl=0xFFFF;
|
||||||
|
mbr.p[1].offset=offset-ext_base;
|
||||||
|
mbr.p[1].size=temppp->size;
|
||||||
|
}
|
||||||
|
ATAWriteBlks(bd,&mbr,start_offset,1);
|
||||||
|
}
|
||||||
|
|
||||||
|
bd->flags&=~(BDF_INITIALIZED | BDF_INIT_IN_PROGRESS);
|
||||||
|
BlkDevAdd(bd,FALSE,TRUE);
|
||||||
|
for (i=bd->first_drv_let;i<drv_let2;i++)
|
||||||
|
Fmt(i,,FALSE);
|
||||||
|
|
||||||
|
pd_done:
|
||||||
|
while (root.next!=&root) {
|
||||||
|
temppp=root.next;
|
||||||
|
QueRem(temppp);
|
||||||
|
Free(temppp);
|
||||||
|
}
|
||||||
|
return drv_dsk_dsk_size;
|
||||||
|
}
|
||||||
+2
-2
@@ -11,8 +11,8 @@ U0 LoadDocDefines()
|
|||||||
//This is cut and replaced when I generate a distro.
|
//This is cut and replaced when I generate a distro.
|
||||||
//See $LK,"DD_TEMPLEOS_LOC",A="FF:::/Demo/AcctExample/TOSDistro.CPP,DD_TEMPLEOS_LOC"$.
|
//See $LK,"DD_TEMPLEOS_LOC",A="FF:::/Demo/AcctExample/TOSDistro.CPP,DD_TEMPLEOS_LOC"$.
|
||||||
$TR-C,"LineRep"$
|
$TR-C,"LineRep"$
|
||||||
$ID,4$DefinePrint("DD_TEMPLEOS_LOC","118,914");
|
$ID,4$DefinePrint("DD_TEMPLEOS_LOC","118,999");
|
||||||
DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","80,867");
|
DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","80,991");
|
||||||
$ID,-4$
|
$ID,-4$
|
||||||
DefinePrint("DD_KERNEL","%08X",bfh);
|
DefinePrint("DD_KERNEL","%08X",bfh);
|
||||||
bfh(I64)+=bfh->file_size-1;
|
bfh(I64)+=bfh->file_size-1;
|
||||||
|
|||||||
+2
-1
@@ -2,8 +2,8 @@ extern U0 ACDDef(I64 n,CTask *parent=NULL);
|
|||||||
extern U0 ACDDefsPut(CDoc *doc,U8 *st,I64 num=-1);
|
extern U0 ACDDefsPut(CDoc *doc,U8 *st,I64 num=-1);
|
||||||
extern U0 ACDFillin(I64 n);
|
extern U0 ACDFillin(I64 n);
|
||||||
extern U0 ACFillIn(I64 n);
|
extern U0 ACFillIn(I64 n);
|
||||||
extern U0 ACFindMisspelled(CDoc *doc);
|
|
||||||
extern U0 ACMan(I64 n,CTask *parent=NULL);
|
extern U0 ACMan(I64 n,CTask *parent=NULL);
|
||||||
|
extern U0 ACMisspelledFind(CDoc *doc);
|
||||||
extern I64 AdamFile(U8 *filename,Bool warn_ext=TRUE);
|
extern I64 AdamFile(U8 *filename,Bool warn_ext=TRUE);
|
||||||
extern Bool AutoComplete(Bool val=OFF);
|
extern Bool AutoComplete(Bool val=OFF);
|
||||||
extern I64 BMPWrite(U8 *filename,CDC *dc,I64 bits=4);
|
extern I64 BMPWrite(U8 *filename,CDC *dc,I64 bits=4);
|
||||||
@@ -56,6 +56,7 @@ extern CMenuEntry *MenuEntryFind(CMenu *m,U8 *full_name);
|
|||||||
extern CMenu *MenuFilePush(U8 *filename);
|
extern CMenu *MenuFilePush(U8 *filename);
|
||||||
extern U0 MenuPop();
|
extern U0 MenuPop();
|
||||||
extern CMenu *MenuPush(U8 *st);
|
extern CMenu *MenuPush(U8 *st);
|
||||||
|
extern I64 Mount(Bool repartition=FALSE);
|
||||||
extern CTask *Noise(I64 mS,I64 min_freq,I64 max_freq);
|
extern CTask *Noise(I64 mS,I64 min_freq,I64 max_freq);
|
||||||
extern Bool Plain(U8 *filename,I64 edf_dof_flags=0);
|
extern Bool Plain(U8 *filename,I64 edf_dof_flags=0);
|
||||||
extern Bool PopUpCancelOk(U8 *header=NULL,U8 *footer=NULL);
|
extern Bool PopUpCancelOk(U8 *header=NULL,U8 *footer=NULL);
|
||||||
|
|||||||
@@ -19,7 +19,7 @@ $$ --> $$$$
|
|||||||
U8 *src,*dst;
|
U8 *src,*dst;
|
||||||
CDoc *doc;
|
CDoc *doc;
|
||||||
CDocEntry *doc_e;
|
CDocEntry *doc_e;
|
||||||
if (doc=DocRead(in_name,DOCF_PLAIN_TEXT_WITH_TABS|DOCF_DBL_DOLLARS)) {
|
if (doc=DocRead(in_name,DOCF_PLAIN_TEXT_TABS|DOCF_DBL_DOLLARS)) {
|
||||||
doc_e=doc->root.next;
|
doc_e=doc->root.next;
|
||||||
while (doc_e!=doc) {
|
while (doc_e!=doc) {
|
||||||
if (doc_e->type_u8==DOCT_TEXT) {
|
if (doc_e->type_u8==DOCT_TEXT) {
|
||||||
|
|||||||
@@ -204,7 +204,7 @@ U0 ACDDef(I64 n,CTask *parent=NULL)
|
|||||||
ACDPopUpDef(acd.fillins[n],-1,parent);
|
ACDPopUpDef(acd.fillins[n],-1,parent);
|
||||||
}
|
}
|
||||||
|
|
||||||
U0 ACFindMisspelled(CDoc *doc)
|
U0 ACMisspelledFind(CDoc *doc)
|
||||||
{
|
{
|
||||||
Bool unlock=DocLock(doc);
|
Bool unlock=DocLock(doc);
|
||||||
CDocEntry *doc_e=doc->cur_entry;
|
CDocEntry *doc_e=doc->cur_entry;
|
||||||
|
|||||||
@@ -129,10 +129,9 @@ public U0 ACInit(U8 *mask=NULL)
|
|||||||
Bool start_flag;
|
Bool start_flag;
|
||||||
CBlkDev *bd=Let2BlkDev;
|
CBlkDev *bd=Let2BlkDev;
|
||||||
|
|
||||||
|
AutoComplete;
|
||||||
while (LBts(&ac.flags,ACf_INIT_IN_PROGRESS))
|
while (LBts(&ac.flags,ACf_INIT_IN_PROGRESS))
|
||||||
Yield;
|
Yield;
|
||||||
AutoComplete;
|
|
||||||
|
|
||||||
if (DrvIsWritable && FileFind(ACD_DEF_FILENAME_Z) &&
|
if (DrvIsWritable && FileFind(ACD_DEF_FILENAME_Z) &&
|
||||||
!FileFind(ACD_DEF_FILENAME)) {
|
!FileFind(ACD_DEF_FILENAME)) {
|
||||||
if (bd->type!=BDT_RAM) {
|
if (bd->type!=BDT_RAM) {
|
||||||
|
|||||||
@@ -23,7 +23,8 @@ U0 ACDocRst(I64 left,I64 top)
|
|||||||
DocRst(doc,TRUE);
|
DocRst(doc,TRUE);
|
||||||
doc->flags|=DOCF_MIN_SIZE;
|
doc->flags|=DOCF_MIN_SIZE;
|
||||||
Fs->border_src=BDS_CONST;
|
Fs->border_src=BDS_CONST;
|
||||||
Fs->text_attr =Fs->border_attr=LTGRAY<<4+BLUE;
|
Fs->border_attr=LTGRAY<<4+DrvTextAttrGet(':')&15;
|
||||||
|
Fs->text_attr =LTGRAY<<4+BLUE;
|
||||||
LBtr(&Fs->display_flags,DISPLAYf_SHOW);
|
LBtr(&Fs->display_flags,DISPLAYf_SHOW);
|
||||||
WinHorz(left,Fs->win_right);
|
WinHorz(left,Fs->win_right);
|
||||||
WinVert(top,Fs->win_bottom);
|
WinVert(top,Fs->win_bottom);
|
||||||
@@ -259,9 +260,9 @@ U0 ACTask(I64)
|
|||||||
public Bool AutoComplete(Bool val=OFF)
|
public Bool AutoComplete(Bool val=OFF)
|
||||||
{//Turn AutoComplete OFF or ON.
|
{//Turn AutoComplete OFF or ON.
|
||||||
Bool old_autocomplete=FALSE;
|
Bool old_autocomplete=FALSE;
|
||||||
if (val) {
|
|
||||||
while (Bt(&ac.flags,ACf_INIT_IN_PROGRESS))
|
while (Bt(&ac.flags,ACf_INIT_IN_PROGRESS))
|
||||||
Sleep(10);
|
Sleep(10);
|
||||||
|
if (val) {
|
||||||
if (TaskValidate(ac.task))
|
if (TaskValidate(ac.task))
|
||||||
old_autocomplete=TRUE;
|
old_autocomplete=TRUE;
|
||||||
else {
|
else {
|
||||||
|
|||||||
+3
-2
@@ -13,7 +13,8 @@
|
|||||||
public U0 PCIDevFileGen()
|
public U0 PCIDevFileGen()
|
||||||
{
|
{
|
||||||
Bool first=TRUE,del=FALSE,del2=FALSE,cont=FALSE;
|
Bool first=TRUE,del=FALSE,del2=FALSE,cont=FALSE;
|
||||||
CDoc *doc=DocRead(PCI_DEV_FILE,DOCF_PLAIN_TEXT|DOCF_DBL_DOLLARS);
|
CDoc *doc=DocRead(PCI_DEV_FILE,
|
||||||
|
DOCF_PLAIN_TEXT|DOCF_DBL_DOLLARS|DOCF_NO_CURSOR);
|
||||||
CDocEntry *doc_e=doc->root.next,*doc_e2;
|
CDocEntry *doc_e=doc->root.next,*doc_e2;
|
||||||
while (doc_e!=doc) {
|
while (doc_e!=doc) {
|
||||||
doc_e2=doc_e->next;
|
doc_e2=doc_e->next;
|
||||||
@@ -121,7 +122,7 @@ U0 PCILookUpDevs()
|
|||||||
CDoc *doc;
|
CDoc *doc;
|
||||||
if (dev.pci_root.next!=&dev.pci_root)
|
if (dev.pci_root.next!=&dev.pci_root)
|
||||||
return;
|
return;
|
||||||
doc=DocRead(PCI_DEV_FILE,DOCF_PLAIN_TEXT);
|
doc=DocRead(PCI_DEV_FILE,DOCF_PLAIN_TEXT|DOCF_NO_CURSOR);
|
||||||
for (b=0;b<sys_pci_busses;b++)
|
for (b=0;b<sys_pci_busses;b++)
|
||||||
for (d=0;d<32;d++)
|
for (d=0;d<32;d++)
|
||||||
for (f=0;f<8;f++) {
|
for (f=0;f<8;f++) {
|
||||||
|
|||||||
@@ -462,7 +462,7 @@ U0 EdInsChar(I64 ch,I64 sc,CDoc *doc)
|
|||||||
} else
|
} else
|
||||||
goto ic_done;
|
goto ic_done;
|
||||||
}
|
}
|
||||||
if (ch=='$$' && !(doc->flags & (DOCF_PLAIN_TEXT|DOCF_PLAIN_TEXT_WITH_TABS))) {
|
if (ch=='$$' && !(doc->flags & (DOCF_PLAIN_TEXT|DOCF_PLAIN_TEXT_TABS))) {
|
||||||
doc->flags|=DOCF_IN_DOLLAR;
|
doc->flags|=DOCF_IN_DOLLAR;
|
||||||
doc->dollar_buf_ptr=0;
|
doc->dollar_buf_ptr=0;
|
||||||
doc->dollar_buf[doc->dollar_buf_ptr++]=ch;
|
doc->dollar_buf[doc->dollar_buf_ptr++]=ch;
|
||||||
|
|||||||
+11
-18
@@ -25,7 +25,7 @@ public U0 DocLoad(CDoc *doc,U8 *src2,I64 size)
|
|||||||
doc->cur_bin_num=tempb->num+1;
|
doc->cur_bin_num=tempb->num+1;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
if (!(doc->flags & (DOCF_PLAIN_TEXT|DOCF_PLAIN_TEXT_WITH_TABS)))
|
if (!(doc->flags & (DOCF_PLAIN_TEXT|DOCF_PLAIN_TEXT_TABS)))
|
||||||
DocBinsValidate(doc);
|
DocBinsValidate(doc);
|
||||||
DocTop(doc); //DOCT_CURSOR will set it in recalc
|
DocTop(doc); //DOCT_CURSOR will set it in recalc
|
||||||
DocRecalc(doc);
|
DocRecalc(doc);
|
||||||
@@ -59,14 +59,13 @@ public U8 *DocSave(CDoc *doc,I64 *_size=NULL)
|
|||||||
I64 ch,i,cnt;
|
I64 ch,i,cnt;
|
||||||
U8 *st,*result,*dst,*src;
|
U8 *st,*result,*dst,*src;
|
||||||
|
|
||||||
|
if (!(doc->flags & (DOCF_PLAIN_TEXT|DOCF_PLAIN_TEXT_TABS)))
|
||||||
|
DocBinsValidate(doc);
|
||||||
|
DocRecalc(doc);
|
||||||
if (doc->flags&DOCF_NO_CURSOR || doc->root.next==doc)
|
if (doc->flags&DOCF_NO_CURSOR || doc->root.next==doc)
|
||||||
cnt=1; //terminator
|
cnt=1; //terminator
|
||||||
else
|
else
|
||||||
cnt=2; //cursor + terminator
|
cnt=2; //cursor + terminator
|
||||||
|
|
||||||
if (!(doc->flags & (DOCF_PLAIN_TEXT|DOCF_PLAIN_TEXT_WITH_TABS)))
|
|
||||||
DocBinsValidate(doc);
|
|
||||||
DocRecalc(doc);
|
|
||||||
for (doc_e=doc->root.next;doc_e!=doc;doc_e=doc_e->next) {
|
for (doc_e=doc->root.next;doc_e!=doc;doc_e=doc_e->next) {
|
||||||
if (!Bt(doldoc.type_flags_data,doc_e->type_u8)) {
|
if (!Bt(doldoc.type_flags_data,doc_e->type_u8)) {
|
||||||
switch (doc_e->type_u8) {
|
switch (doc_e->type_u8) {
|
||||||
@@ -80,30 +79,25 @@ public U8 *DocSave(CDoc *doc,I64 *_size=NULL)
|
|||||||
else
|
else
|
||||||
cnt++;
|
cnt++;
|
||||||
break;
|
break;
|
||||||
|
case DOCT_SOFT_NEW_LINE:
|
||||||
|
break;
|
||||||
case DOCT_TEXT://$BK,1$Update $LK,"DOCT_TEXT",A="FF:D:/Compiler/Lex.CPP,DOCT_TEXT"$$BK,0$
|
case DOCT_TEXT://$BK,1$Update $LK,"DOCT_TEXT",A="FF:D:/Compiler/Lex.CPP,DOCT_TEXT"$$BK,0$
|
||||||
if (!(doc_e->de_flags & ~(DOCEF_TAG|DOCG_BL_IV_UL|DOCEF_WORD_WRAP|
|
if (!(doc_e->de_flags & ~(DOCEF_TAG|DOCG_BL_IV_UL|DOCEF_WORD_WRAP|
|
||||||
DOCEF_HIGHLIGHT|DOCEF_SKIP|DOCEF_FILTER_SKIP))&&
|
DOCEF_HIGHLIGHT|DOCEF_SKIP|DOCEF_FILTER_SKIP))&&
|
||||||
!(doc_e->type&DOCG_BL_IV_UL)) {
|
!(doc_e->type&DOCG_BL_IV_UL)) {
|
||||||
cnt+=StrLen(doc_e->tag);
|
cnt+=StrLen(doc_e->tag);
|
||||||
if (!(doc->flags & (DOCF_PLAIN_TEXT | DOCF_PLAIN_TEXT_WITH_TABS)) ||
|
if (!(doc->flags & (DOCF_PLAIN_TEXT | DOCF_PLAIN_TEXT_TABS)) ||
|
||||||
doc->flags&DOCF_DBL_DOLLARS)
|
doc->flags&DOCF_DBL_DOLLARS)
|
||||||
cnt+=StrOcc(doc_e->tag,'$$');
|
cnt+=StrOcc(doc_e->tag,'$$');
|
||||||
} else {
|
|
||||||
st=Doc2PlainText(doc,doc_e);
|
|
||||||
cnt+=StrLen(st)+2;
|
|
||||||
Free(st);
|
|
||||||
}
|
|
||||||
break;
|
break;
|
||||||
|
}
|
||||||
default:
|
default:
|
||||||
if (doc_e->type_u8!=DOCT_SOFT_NEW_LINE &&
|
|
||||||
doc_e->type_u8!=DOCT_CURSOR) {
|
|
||||||
st=Doc2PlainText(doc,doc_e);
|
st=Doc2PlainText(doc,doc_e);
|
||||||
cnt+=StrLen(st)+2;
|
cnt+=StrLen(st)+2;
|
||||||
Free(st);
|
Free(st);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
|
||||||
for (b=doc->bin_root.next;b!=&doc->bin_root;b=b->next) {
|
for (b=doc->bin_root.next;b!=&doc->bin_root;b=b->next) {
|
||||||
if (b->use_cnt>b->temp_use_cnt)
|
if (b->use_cnt>b->temp_use_cnt)
|
||||||
cnt+=offset(CDocBin.end)-
|
cnt+=offset(CDocBin.end)-
|
||||||
@@ -125,7 +119,7 @@ public U8 *DocSave(CDoc *doc,I64 *_size=NULL)
|
|||||||
*dst++=CH_CURSOR;
|
*dst++=CH_CURSOR;
|
||||||
*dst++=ch;
|
*dst++=ch;
|
||||||
if (ch=='$$') {
|
if (ch=='$$') {
|
||||||
if (!(doc->flags & (DOCF_PLAIN_TEXT | DOCF_PLAIN_TEXT_WITH_TABS)) ||
|
if (!(doc->flags & (DOCF_PLAIN_TEXT | DOCF_PLAIN_TEXT_TABS)) ||
|
||||||
doc->flags&DOCF_DBL_DOLLARS)
|
doc->flags&DOCF_DBL_DOLLARS)
|
||||||
*dst++=ch;
|
*dst++=ch;
|
||||||
}
|
}
|
||||||
@@ -148,9 +142,9 @@ public U8 *DocSave(CDoc *doc,I64 *_size=NULL)
|
|||||||
*dst++='\r';
|
*dst++='\r';
|
||||||
*dst++='\n';
|
*dst++='\n';
|
||||||
break;
|
break;
|
||||||
|
case DOCT_SOFT_NEW_LINE:
|
||||||
|
break;
|
||||||
default:
|
default:
|
||||||
if (doc_e->type_u8!=DOCT_SOFT_NEW_LINE &&
|
|
||||||
doc_e->type_u8!=DOCT_CURSOR) {//(Cursor is set by cur_entry)
|
|
||||||
*dst++='$$';
|
*dst++='$$';
|
||||||
st=Doc2PlainText(doc,doc_e);
|
st=Doc2PlainText(doc,doc_e);
|
||||||
StrCpy(dst,st);
|
StrCpy(dst,st);
|
||||||
@@ -161,7 +155,6 @@ public U8 *DocSave(CDoc *doc,I64 *_size=NULL)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
|
||||||
if (doc->cur_entry==doc && doc->root.next!=doc &&
|
if (doc->cur_entry==doc && doc->root.next!=doc &&
|
||||||
!(doc->flags&DOCF_NO_CURSOR))
|
!(doc->flags&DOCF_NO_CURSOR))
|
||||||
*dst++=CH_CURSOR;
|
*dst++=CH_CURSOR;
|
||||||
|
|||||||
@@ -17,7 +17,7 @@ U0 DocInit()
|
|||||||
"PRY\0MRX\0WR\0L\0X\0Q\0FST\0B\0S\0BD\0C\0CA\0RD\0UD\0P\0TRM\0Z\0H\0"
|
"PRY\0MRX\0WR\0L\0X\0Q\0FST\0B\0S\0BD\0C\0CA\0RD\0UD\0P\0TRM\0Z\0H\0"
|
||||||
"TR\0LS\0SK\0PU\0SIF\0FS\0NC\0DD\0");
|
"TR\0LS\0SK\0PU\0SIF\0FS\0NC\0DD\0");
|
||||||
DefineLstLoad("ST_LINK_TYPES",
|
DefineLstLoad("ST_LINK_TYPES",
|
||||||
"FI\0FA\0FF\0FL\0MN\0PI\0PF\0PL\0BF\0DF\0HI\0AD\0AI\0AA\0AF\0AL\0");
|
"FI\0FA\0FF\0FL\0MN\0PI\0PF\0PL\0BF\0DN\0HI\0AD\0AI\0AA\0AF\0AL\0");
|
||||||
|
|
||||||
doldoc.hash=HashTableNew(512);
|
doldoc.hash=HashTableNew(512);
|
||||||
HashDefineLstAdd("ST_DOC_CMDS",DHT_DOC_CMD,doldoc.hash);
|
HashDefineLstAdd("ST_DOC_CMDS",DHT_DOC_CMD,doldoc.hash);
|
||||||
|
|||||||
@@ -13,8 +13,8 @@
|
|||||||
"PF:haystack_filename,needle_str:occurnum"
|
"PF:haystack_filename,needle_str:occurnum"
|
||||||
"PL:filename,linenum"
|
"PL:filename,linenum"
|
||||||
"BF:haystack_bible_book,needle_str"
|
"BF:haystack_bible_book,needle_str"
|
||||||
"DF:word"
|
"DN:word"
|
||||||
"DF:word,defnum"
|
"DN:word,defnum"
|
||||||
"HI:index"
|
"HI:index"
|
||||||
"AD:code_address_number"
|
"AD:code_address_number"
|
||||||
|
|
||||||
@@ -67,7 +67,7 @@ Bool DocFileEd(I64 _type,U8 *filename,
|
|||||||
try {
|
try {
|
||||||
switch (type) {
|
switch (type) {
|
||||||
case LK_PLAIN:
|
case LK_PLAIN:
|
||||||
flags=DOCF_PLAIN_TEXT;
|
flags=DOCF_PLAIN_TEXT|DOCF_NO_CURSOR;
|
||||||
case LK_DOC:
|
case LK_DOC:
|
||||||
type=LK_FILE;
|
type=LK_FILE;
|
||||||
break;
|
break;
|
||||||
@@ -75,17 +75,17 @@ Bool DocFileEd(I64 _type,U8 *filename,
|
|||||||
type=LK_FILE_ANCHOR;
|
type=LK_FILE_ANCHOR;
|
||||||
break;
|
break;
|
||||||
case LK_PLAIN_FIND:
|
case LK_PLAIN_FIND:
|
||||||
flags=DOCF_PLAIN_TEXT;
|
flags=DOCF_PLAIN_TEXT|DOCF_NO_CURSOR;
|
||||||
case LK_DOC_FIND:
|
case LK_DOC_FIND:
|
||||||
type=LK_FILE_FIND;
|
type=LK_FILE_FIND;
|
||||||
break;
|
break;
|
||||||
case LK_PLAIN_LINE:
|
case LK_PLAIN_LINE:
|
||||||
flags=DOCF_PLAIN_TEXT;
|
flags=DOCF_PLAIN_TEXT|DOCF_NO_CURSOR;
|
||||||
case LK_DOC_LINE:
|
case LK_DOC_LINE:
|
||||||
type=LK_FILE_LINE;
|
type=LK_FILE_LINE;
|
||||||
break;
|
break;
|
||||||
case LK_BIBLE_FIND:
|
case LK_BIBLE_FIND:
|
||||||
flags=DOCF_PLAIN_TEXT;
|
flags=DOCF_PLAIN_TEXT|DOCF_NO_CURSOR;
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -309,7 +309,7 @@ public Bool DocLinkChk(U8 *link_st)
|
|||||||
result=TRUE;
|
result=TRUE;
|
||||||
Free(st);
|
Free(st);
|
||||||
break;
|
break;
|
||||||
default://TODO: Need to validate HI: and DF:
|
default://TODO: Need to validate HI: and DN:
|
||||||
if (Ed(link_st,EDF_BAIL))
|
if (Ed(link_st,EDF_BAIL))
|
||||||
result=TRUE;
|
result=TRUE;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -12,11 +12,9 @@ U0 SysMacroStripKey(CSrvCmd *macro_root,I64 a1,I64 a2)
|
|||||||
while (tempc!=macro_root) {
|
while (tempc!=macro_root) {
|
||||||
tempc1=tempc->next;
|
tempc1=tempc->next;
|
||||||
if (tempc->cmd_code==SVCT_MSG &&
|
if (tempc->cmd_code==SVCT_MSG &&
|
||||||
(tempc->msg_code==MSG_KEY_DOWN ||
|
(tempc->msg_code==MSG_KEY_DOWN || tempc->msg_code==MSG_KEY_UP ||
|
||||||
tempc->msg_code==MSG_KEY_UP ||
|
|
||||||
tempc->msg_code==MSG_KEY_DOWN_UP) &&
|
tempc->msg_code==MSG_KEY_DOWN_UP) &&
|
||||||
a1 && tempc->aux1==a1 ||
|
a1 && tempc->aux1==a1 || !a1 && tempc->aux2==a2) {
|
||||||
!a1 && tempc->aux2==a2) {
|
|
||||||
QueRem(tempc);
|
QueRem(tempc);
|
||||||
SrvCmdDel(tempc);
|
SrvCmdDel(tempc);
|
||||||
}
|
}
|
||||||
@@ -161,15 +159,15 @@ I64 PopUpMacroMenu()
|
|||||||
"\n\n\n$$GREEN$$SHIFT-F2$$FG$$ will play macro.\n");
|
"\n\n\n$$GREEN$$SHIFT-F2$$FG$$ will play macro.\n");
|
||||||
doc->flags|=DOCF_MIN_SIZE | DOCF_FORM;
|
doc->flags|=DOCF_MIN_SIZE | DOCF_FORM;
|
||||||
StrPrint(buf,"DocMenu(%d);",doc);
|
StrPrint(buf,"DocMenu(%d);",doc);
|
||||||
sys_macro_util_task=Spawn(&SrvCmdLine,NULL,"Macro Popup",,Fs);
|
sys_macro_task=Spawn(&SrvCmdLine,NULL,"Macro Popup",,Fs);
|
||||||
Fs->popup_task=sys_macro_util_task;
|
Fs->popup_task=sys_macro_task;
|
||||||
LBts(&sys_macro_util_task->display_flags,DISPLAYf_WIN_ON_TOP);
|
LBts(&sys_macro_task->display_flags,DISPLAYf_WIN_ON_TOP);
|
||||||
tempc=TaskExe(sys_macro_util_task,Fs,buf,
|
tempc=TaskExe(sys_macro_task,Fs,buf,
|
||||||
1<<SVCf_WAKE_MASTER|1<<SVCf_FOCUS_MASTER);
|
1<<SVCf_WAKE_MASTER|1<<SVCf_FOCUS_MASTER);
|
||||||
JobResultScan(tempc,&result);
|
JobResultScan(tempc,&result);
|
||||||
Fs->popup_task=NULL;
|
Fs->popup_task=NULL;
|
||||||
Kill(sys_macro_util_task);
|
Kill(sys_macro_task);
|
||||||
sys_macro_util_task=NULL;
|
sys_macro_task=NULL;
|
||||||
DocDataScan(doc,doc_e);
|
DocDataScan(doc,doc_e);
|
||||||
DocDel(doc);
|
DocDel(doc);
|
||||||
return result;
|
return result;
|
||||||
@@ -208,6 +206,6 @@ U0 MacroTask(I64)
|
|||||||
|
|
||||||
U0 EdMacroUtil()
|
U0 EdMacroUtil()
|
||||||
{
|
{
|
||||||
if (!sys_macro_util_task)
|
if (!sys_macro_task)
|
||||||
Spawn(&MacroTask,NULL,"Macro");
|
Spawn(&MacroTask,NULL,"Macro");
|
||||||
}
|
}
|
||||||
@@ -497,7 +497,7 @@ U0 DocEntryToggle(CDoc *doc)
|
|||||||
U8 ch,*st,*st2;
|
U8 ch,*st,*st2;
|
||||||
I64 i,j,k;
|
I64 i,j,k;
|
||||||
if (doc_ce!=doc &&
|
if (doc_ce!=doc &&
|
||||||
!(doc->flags&(DOCF_PLAIN_TEXT|DOCF_PLAIN_TEXT_WITH_TABS))) {
|
!(doc->flags&(DOCF_PLAIN_TEXT|DOCF_PLAIN_TEXT_TABS))) {
|
||||||
if (doc_ce->type_u8==DOCT_TEXT && !(doc_ce->de_flags &
|
if (doc_ce->type_u8==DOCT_TEXT && !(doc_ce->de_flags &
|
||||||
~(DOCEF_TAG|DOCG_BL_IV_UL|DOCEF_WORD_WRAP|DOCEF_HIGHLIGHT|
|
~(DOCEF_TAG|DOCG_BL_IV_UL|DOCEF_WORD_WRAP|DOCEF_HIGHLIGHT|
|
||||||
DOCEF_SKIP|DOCEF_FILTER_SKIP)) &&
|
DOCEF_SKIP|DOCEF_FILTER_SKIP)) &&
|
||||||
@@ -593,7 +593,7 @@ U0 DocFlagsToggle(CDoc *doc,I64 tog_flags)
|
|||||||
U8 *st;
|
U8 *st;
|
||||||
CDocUndo *u_next,*u_last;
|
CDocUndo *u_next,*u_last;
|
||||||
|
|
||||||
doc->flags|=DOCF_COLOR_NAMES;
|
doc->flags=doc->flags&~DOCF_NO_CURSOR|DOCF_COLOR_NAMES;
|
||||||
st=DocSave(doc,&size);
|
st=DocSave(doc,&size);
|
||||||
|
|
||||||
u_next=doc->undo_root.next;
|
u_next=doc->undo_root.next;
|
||||||
@@ -604,8 +604,9 @@ U0 DocFlagsToggle(CDoc *doc,I64 tog_flags)
|
|||||||
doc->undo_root.next=u_next;
|
doc->undo_root.next=u_next;
|
||||||
doc->undo_root.last=u_last;
|
doc->undo_root.last=u_last;
|
||||||
DocUndoCntSet(doc);
|
DocUndoCntSet(doc);
|
||||||
doc->flags=flags & ~(DOCG_BL_IV_UL|DOCF_WORD_WRAP);
|
doc->flags=flags&~(DOCF_NO_CURSOR|DOCG_BL_IV_UL|DOCF_WORD_WRAP);
|
||||||
DocLoad(doc,st,size);
|
DocLoad(doc,st,size);
|
||||||
|
doc->flags|=flags&DOCF_NO_CURSOR;
|
||||||
DocCenter(doc);
|
DocCenter(doc);
|
||||||
if (unlock)
|
if (unlock)
|
||||||
DocUnlock(doc);
|
DocUnlock(doc);
|
||||||
|
|||||||
@@ -15,7 +15,7 @@ U0 PopUpViewPrintEndCB()
|
|||||||
}
|
}
|
||||||
|
|
||||||
public CTask *PopUpViewPrint(U8 *fmt,...)
|
public CTask *PopUpViewPrint(U8 *fmt,...)
|
||||||
{//View Print statement in PopUp win task.
|
{//View Print stmt in PopUp win task.
|
||||||
CTask *task;
|
CTask *task;
|
||||||
U8 *buf=StrPrintJoin(NULL,fmt,argc,argv);
|
U8 *buf=StrPrintJoin(NULL,fmt,argc,argv);
|
||||||
CDoc *doc=DocNew;
|
CDoc *doc=DocNew;
|
||||||
|
|||||||
@@ -253,8 +253,8 @@ public U0 DocPutKey(CDoc *doc,I64 ch=0,I64 sc=0)
|
|||||||
} else {
|
} else {
|
||||||
DocUnlock(doc);
|
DocUnlock(doc);
|
||||||
if (sc&SCF_SHIFT) {
|
if (sc&SCF_SHIFT) {
|
||||||
if (TaskValidate(sys_macro_util_task))
|
if (TaskValidate(sys_macro_task))
|
||||||
PostMsgWait(sys_macro_util_task,
|
PostMsgWait(sys_macro_task,
|
||||||
MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
MSG_KEY_DOWN_UP,CH_SHIFT_ESC,0);
|
||||||
SysMacroStripKey(&sys_macro_root,ch,sc);
|
SysMacroStripKey(&sys_macro_root,ch,sc);
|
||||||
PlaySysMacro;
|
PlaySysMacro;
|
||||||
@@ -557,7 +557,7 @@ public U0 DocPutKey(CDoc *doc,I64 ch=0,I64 sc=0)
|
|||||||
if (sc&SCF_KEY_DESC)
|
if (sc&SCF_KEY_DESC)
|
||||||
KeyDescSet("Cmd /Sprite Graphic Resource");
|
KeyDescSet("Cmd /Sprite Graphic Resource");
|
||||||
else {
|
else {
|
||||||
if (!(doc->flags&(DOCF_PLAIN_TEXT|DOCF_PLAIN_TEXT_WITH_TABS))) {
|
if (!(doc->flags&(DOCF_PLAIN_TEXT|DOCF_PLAIN_TEXT_TABS))) {
|
||||||
DocUnlock(doc);
|
DocUnlock(doc);
|
||||||
if (doc_ce->type_u8==DOCT_SPRITE)
|
if (doc_ce->type_u8==DOCT_SPRITE)
|
||||||
EdSpriteEd(doc,
|
EdSpriteEd(doc,
|
||||||
@@ -577,7 +577,7 @@ public U0 DocPutKey(CDoc *doc,I64 ch=0,I64 sc=0)
|
|||||||
if (sc&SCF_KEY_DESC)
|
if (sc&SCF_KEY_DESC)
|
||||||
KeyDescSet("Edit/Find Misspelled");
|
KeyDescSet("Edit/Find Misspelled");
|
||||||
else
|
else
|
||||||
ACFindMisspelled(doc);
|
ACMisspelledFind(doc);
|
||||||
} else {
|
} else {
|
||||||
if (sc&SCF_KEY_DESC)
|
if (sc&SCF_KEY_DESC)
|
||||||
KeyDescSet("Edit/Save");
|
KeyDescSet("Edit/Save");
|
||||||
@@ -596,7 +596,7 @@ public U0 DocPutKey(CDoc *doc,I64 ch=0,I64 sc=0)
|
|||||||
KeyDescSet("Edit/Toggle Plain Text Display");
|
KeyDescSet("Edit/Toggle Plain Text Display");
|
||||||
else
|
else
|
||||||
if (!(doc->flags&DOCF_FORM) ||
|
if (!(doc->flags&DOCF_FORM) ||
|
||||||
doc->flags&(DOCF_PLAIN_TEXT|DOCF_PLAIN_TEXT_WITH_TABS))
|
doc->flags&(DOCF_PLAIN_TEXT|DOCF_PLAIN_TEXT_TABS))
|
||||||
DocFlagsToggle(doc,DOCF_PLAIN_TEXT);
|
DocFlagsToggle(doc,DOCF_PLAIN_TEXT);
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
|
|||||||
@@ -12,7 +12,7 @@ CDocEntry *DocPutS(CDoc *doc,U8 *st)
|
|||||||
if (!st || !doc && !(doc=DocPut) || doc->doc_signature!=DOC_SIGNATURE_VAL)
|
if (!st || !doc && !(doc=DocPut) || doc->doc_signature!=DOC_SIGNATURE_VAL)
|
||||||
return NULL;
|
return NULL;
|
||||||
unlock=DocLock(doc);
|
unlock=DocLock(doc);
|
||||||
if (doc->flags & DOCF_PLAIN_TEXT_WITH_TABS)
|
if (doc->flags & DOCF_PLAIN_TEXT_TABS)
|
||||||
char_bitmap=chars_bmp_zero_cr_nl_cursor;
|
char_bitmap=chars_bmp_zero_cr_nl_cursor;
|
||||||
else if (doc->flags & DOCF_PLAIN_TEXT)
|
else if (doc->flags & DOCF_PLAIN_TEXT)
|
||||||
char_bitmap=chars_bmp_zero_tab_ff_cr_nl_cursor;
|
char_bitmap=chars_bmp_zero_tab_ff_cr_nl_cursor;
|
||||||
|
|||||||
@@ -329,7 +329,7 @@ public Bool DocRecalc(CDoc *doc,Bool has_cursor=FALSE,I64 recalc=DOC_RECALC)
|
|||||||
}
|
}
|
||||||
best_doc_e=doc->cur_entry;
|
best_doc_e=doc->cur_entry;
|
||||||
|
|
||||||
if (!(doc->flags&(DOCF_PLAIN_TEXT|DOCF_PLAIN_TEXT_WITH_TABS)) &&
|
if (!(doc->flags&(DOCF_PLAIN_TEXT|DOCF_PLAIN_TEXT_TABS)) &&
|
||||||
FilesFindMatch(doc->filename.name,FILEMASK_SRC))
|
FilesFindMatch(doc->filename.name,FILEMASK_SRC))
|
||||||
doc->flags|=DOCF_HIGHLIGHT;
|
doc->flags|=DOCF_HIGHLIGHT;
|
||||||
else
|
else
|
||||||
|
|||||||
@@ -182,27 +182,15 @@ public I64 DocMax(I64 i=MAX_I64)
|
|||||||
#help_index "DolDoc/Task;StdOut/Task"
|
#help_index "DolDoc/Task;StdOut/Task"
|
||||||
U0 DocUpdateTaskDocs(CTask *task)
|
U0 DocUpdateTaskDocs(CTask *task)
|
||||||
{//This is called from $LK,"GrUpdateTaskWin",A="MN:GrUpdateTaskWin"$() by the winmgr at 30fps.
|
{//This is called from $LK,"GrUpdateTaskWin",A="MN:GrUpdateTaskWin"$() by the winmgr at 30fps.
|
||||||
CDrv *dv;
|
|
||||||
CDoc *doc;
|
CDoc *doc;
|
||||||
CD3I64 saved_scroll;
|
CD3I64 saved_scroll;
|
||||||
I64 border_attr;
|
if (task->border_src==BDS_CUR_DRV && task->cur_dv)
|
||||||
if (task->border_src==BDS_CUR_DRV && task->cur_dv) {
|
task->border_attr=DrvTextAttrGet(Drv2Let(task->cur_dv));
|
||||||
border_attr=task->cur_dv->text_attr;
|
|
||||||
if (border_attr&15!=border_attr>>4)
|
|
||||||
task->border_attr=border_attr;
|
|
||||||
}
|
|
||||||
if (task->title_src==TTS_TASK_NAME)
|
if (task->title_src==TTS_TASK_NAME)
|
||||||
StrCpy(task->task_title,task->task_name);
|
StrCpy(task->task_title,task->task_name);
|
||||||
if ((doc=DocDisplay(task)) && !(doc->flags&DOCF_DONT_SHOW)) {
|
if ((doc=DocDisplay(task)) && !(doc->flags&DOCF_DONT_SHOW)) {
|
||||||
if (task->border_src==BDS_ED_FILENAME_DRV)
|
if (task->border_src==BDS_ED_FILENAME_DRV)
|
||||||
try {
|
task->border_attr=DrvTextAttrGet(*doc->filename.name);
|
||||||
if (dv=Let2Drv(*doc->filename.name)) {
|
|
||||||
border_attr=dv->text_attr;
|
|
||||||
if (border_attr&15!=border_attr>>4)
|
|
||||||
task->border_attr=border_attr;
|
|
||||||
}
|
|
||||||
} catch
|
|
||||||
Fs->catch_except=TRUE;
|
|
||||||
if (task->title_src==TTS_ED_FILENAME)
|
if (task->title_src==TTS_ED_FILENAME)
|
||||||
MemCpy(task->task_title,doc->filename.name,TASK_TITLE_LEN);
|
MemCpy(task->task_title,doc->filename.name,TASK_TITLE_LEN);
|
||||||
DocRecalc(doc,TRUE,DOC_RECALC_TO_SCREEN);
|
DocRecalc(doc,TRUE,DOC_RECALC_TO_SCREEN);
|
||||||
|
|||||||
@@ -296,9 +296,9 @@ Bool GetLink(I64 type,U8 **_tag,U8 **_link,Bool *_pop_up,
|
|||||||
else
|
else
|
||||||
*_tag=StrNew(e->tag);
|
*_tag=StrNew(e->tag);
|
||||||
if (e->num<0)
|
if (e->num<0)
|
||||||
*_link=MStrPrint("DF:%s",e->aux);
|
*_link=MStrPrint("DN:%s",e->aux);
|
||||||
else
|
else
|
||||||
*_link=MStrPrint("DF:%s,%d",e->aux,e->num);
|
*_link=MStrPrint("DN:%s,%d",e->aux,e->num);
|
||||||
|
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@@ -906,7 +906,7 @@ U0 EdInsHexEd()
|
|||||||
Free(e);
|
Free(e);
|
||||||
}
|
}
|
||||||
|
|
||||||
class CEdBinary
|
class CEdBin
|
||||||
{
|
{
|
||||||
U8 tag[512] fmtstr "$$DA-P,511,A=\"Tag Text :%s\"$$\n";
|
U8 tag[512] fmtstr "$$DA-P,511,A=\"Tag Text :%s\"$$\n";
|
||||||
I64 bin_num fmtstr "$$DA,512,A=\"Bin Num:%d\"$$\n";
|
I64 bin_num fmtstr "$$DA,512,A=\"Bin Num:%d\"$$\n";
|
||||||
@@ -915,9 +915,9 @@ class CEdBinary
|
|||||||
U8 bin_ptr_link_tag[512] fmtstr "$$DA-P,511,A=\"File Bin Tag:%s\"$$\n";
|
U8 bin_ptr_link_tag[512] fmtstr "$$DA-P,511,A=\"File Bin Tag:%s\"$$\n";
|
||||||
};
|
};
|
||||||
|
|
||||||
U0 EdInsBinary(I64 bin_num,I64 type)
|
U0 EdInsBin(I64 bin_num,I64 type)
|
||||||
{
|
{
|
||||||
CEdBinary *e=CAlloc(sizeof(CEdBinary));
|
CEdBin *e=CAlloc(sizeof(CEdBin));
|
||||||
StrPrint(e->tag,"<%d>",bin_num);
|
StrPrint(e->tag,"<%d>",bin_num);
|
||||||
e->bin_num=bin_num;
|
e->bin_num=bin_num;
|
||||||
e->bin_ptr_link_bin_num=1;
|
e->bin_ptr_link_bin_num=1;
|
||||||
@@ -1036,15 +1036,22 @@ I64 PopUpSpriteType()
|
|||||||
I64 i;
|
I64 i;
|
||||||
CDoc *doc=DocNew;
|
CDoc *doc=DocNew;
|
||||||
DocPrint(doc,"$$PURPLE$$$$TX+CX,\"Graphic Sprite Resource Menu\"$$\n"
|
DocPrint(doc,"$$PURPLE$$$$TX+CX,\"Graphic Sprite Resource Menu\"$$\n"
|
||||||
"$$LK+PU+CX,\"Click for Help\",A=\"FI:::/Doc/Resource.TXT.Z\"$$\n"
|
"$$LK+PU+CX,\"Click for Help\",A=\"FI:::/Doc/Resource.TXT.Z\"$$\n\n"
|
||||||
"\n$$LTBLUE$$$$MU,\"Make Sprite\",LE=EST_SPRITE$$\n"
|
"$$LTBLUE$$$$MU,\"Make Sprite\",LE=EST_SPRITE$$$$FG$$\t "
|
||||||
"$$MU,\"Pointer to Sprite\",LE=EST_SPRITE_PTR$$\n"
|
"Start by making a sprite.\n"
|
||||||
"$$MU,\"Duplicate Sprite\",LE=EST_DUP_SPRITE$$\n"
|
"$$LTBLUE$$$$MU,\"Ptr to Sprite\",LE=EST_SPRITE_PTR$$$$FG$$\t "
|
||||||
"$$MU,\"Sprite Size (not really needed)\",LE=EST_SPRITE_SIZE$$\n"
|
"Insert pointer into src code.\n"
|
||||||
"$$MU,\"Sprite Macro (Icon)\",LE=EST_SPRITE_MACRO$$\n"
|
"$$LTBLUE$$$$MU,\"Duplicate Sprite\",LE=EST_DUP_SPRITE$$$$FG$$ "
|
||||||
"$$MU,\"Sprite Menu Item\",LE=EST_SPRITE_MENU$$\n"
|
"Make dup image for in a doc.\n"
|
||||||
"$$MU,\"Sprite Link\",LE=EST_SPRITE_LINK$$\n"
|
"$$LTBLUE$$$$MU,\"Sprite Size\",LE=EST_SPRITE_SIZE$$$$FG$$\t "
|
||||||
"\n$$MU,\"Abort\",LE=DOCM_CANCEL$$\n\n");
|
"Insert size of a sprite into src code.\n"
|
||||||
|
"$$LTBLUE$$$$MU,\"Sprite Macro\",LE=EST_SPRITE_MACRO$$$$FG$$\t "
|
||||||
|
"Create icon with auto-text payload.\n"
|
||||||
|
"$$LTBLUE$$$$MU,\"Sprite Menu Item\",LE=EST_SPRITE_MENU$$$$FG$$ "
|
||||||
|
"Create icon with numeric payload.\n"
|
||||||
|
"$$LTBLUE$$$$MU,\"Sprite Link\",LE=EST_SPRITE_LINK$$$$FG$$\t "
|
||||||
|
"Create icon with link payload.\n\n"
|
||||||
|
"$$LTBLUE$$$$MU,\"Abort\",LE=DOCM_CANCEL$$\n\n");
|
||||||
i=PopUpMenu(doc);
|
i=PopUpMenu(doc);
|
||||||
DocDel(doc);
|
DocDel(doc);
|
||||||
return i;
|
return i;
|
||||||
@@ -1123,13 +1130,13 @@ U8 *EdSprite(I64 bin_num)
|
|||||||
CatPrint(buf,"+PU");
|
CatPrint(buf,"+PU");
|
||||||
break;
|
break;
|
||||||
case EST_SPRITE_PTR:
|
case EST_SPRITE_PTR:
|
||||||
EdInsBinary(--bin_num,DOCT_INS_BINARY);
|
EdInsBin(--bin_num,DOCT_INS_BIN);
|
||||||
break;
|
break;
|
||||||
case EST_SPRITE_SIZE:
|
case EST_SPRITE_SIZE:
|
||||||
EdInsBinary(--bin_num,DOCT_INS_BINARY_SIZE);
|
EdInsBin(--bin_num,DOCT_INS_BIN_SIZE);
|
||||||
break;
|
break;
|
||||||
case EST_DUP_SPRITE:
|
case EST_DUP_SPRITE:
|
||||||
EdInsBinary(--bin_num,DOCT_SPRITE);
|
EdInsBin(--bin_num,DOCT_SPRITE);
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
if (st1) {
|
if (st1) {
|
||||||
|
|||||||
@@ -157,7 +157,7 @@ public U8 *BibleLine2Verse(I64 line,I64 separate_ch=CH_SPACE)
|
|||||||
ptr+=StrLen(ptr)+1;
|
ptr+=StrLen(ptr)+1;
|
||||||
}
|
}
|
||||||
if (0<=--i<cnt) {
|
if (0<=--i<cnt) {
|
||||||
doc=DocRead(BIBLE_FILENAME,DOCF_PLAIN_TEXT);
|
doc=DocRead(BIBLE_FILENAME,DOCF_PLAIN_TEXT|DOCF_NO_CURSOR);
|
||||||
DocLineNumGoTo(doc,line); //one based
|
DocLineNumGoTo(doc,line); //one based
|
||||||
doc_e=doc->cur_entry;
|
doc_e=doc->cur_entry;
|
||||||
while (doc_e!=doc && (doc_e->type_u8!=DOCT_TEXT || !*doc_e->tag))
|
while (doc_e!=doc && (doc_e->type_u8!=DOCT_TEXT || !*doc_e->tag))
|
||||||
@@ -214,7 +214,7 @@ public U0 BibleLines(CDoc *doc_out=NULL,I64 start,I64 lines)
|
|||||||
CDocEntry *doc_e;
|
CDocEntry *doc_e;
|
||||||
if (!doc_out) doc_out=DocPut;
|
if (!doc_out) doc_out=DocPut;
|
||||||
if (doc_out && FileFind(BIBLE_FILENAME)) {
|
if (doc_out && FileFind(BIBLE_FILENAME)) {
|
||||||
doc_in=DocRead(BIBLE_FILENAME,DOCF_PLAIN_TEXT);
|
doc_in=DocRead(BIBLE_FILENAME,DOCF_PLAIN_TEXT|DOCF_NO_CURSOR);
|
||||||
DocLineNumGoTo(doc_in,start); //one based
|
DocLineNumGoTo(doc_in,start); //one based
|
||||||
doc_e=doc_in->cur_entry;
|
doc_e=doc_in->cur_entry;
|
||||||
while (lines>0 && doc_e!=doc_in) {
|
while (lines>0 && doc_e!=doc_in) {
|
||||||
@@ -247,7 +247,7 @@ public U0 BibleVerse(CDoc *doc_out=NULL,U8 *verse,I64 lines)
|
|||||||
i=DefineMatch(st,"ST_BIBLE_BOOKS",LMF_IGNORE_CASE);
|
i=DefineMatch(st,"ST_BIBLE_BOOKS",LMF_IGNORE_CASE);
|
||||||
if (i>=0) {
|
if (i>=0) {
|
||||||
i=Str2I64(DefineSub(i,"ST_BIBLE_BOOK_LINES"));
|
i=Str2I64(DefineSub(i,"ST_BIBLE_BOOK_LINES"));
|
||||||
doc_in=DocRead(BIBLE_FILENAME,DOCF_PLAIN_TEXT);
|
doc_in=DocRead(BIBLE_FILENAME,DOCF_PLAIN_TEXT|DOCF_NO_CURSOR);
|
||||||
DocLineNumGoTo(doc_in,i); //one based
|
DocLineNumGoTo(doc_in,i); //one based
|
||||||
if (*st2) {
|
if (*st2) {
|
||||||
StrCpy(doc_in->find_replace->find_text,st2);
|
StrCpy(doc_in->find_replace->find_text,st2);
|
||||||
|
|||||||
@@ -8,7 +8,7 @@ There's something obviously different about people in the Bible compared to peop
|
|||||||
|
|
||||||
You can't tell if God's talking unless you have a context of conversation, but, more importantly, you are commanded to do an offering of love, like communion preparation. $LK,"1 Corinthians,11:27",A="BF:1 Corinthians,11:27"$ When you pick a greeting card for someone, that is love effort. If you expect God to put effort toward you, you must put effort toward Him. God said, "honest measures" applies between your offering of love and His response, like a fair barter. You get out of prayer what you put into it. God wants praise, hymns, or whatever you think He might want. Try and see, like Cain and Abel. $LK,"Genesis,4:1",A="BF:Genesis,4:1"$, $LK,"Ephesians,5:10",A="BF:Ephesians,5:10"$ God told Cain his offering was not good and told him to try again. Cain really loved God! Can you imagine being so heart-broken?
|
You can't tell if God's talking unless you have a context of conversation, but, more importantly, you are commanded to do an offering of love, like communion preparation. $LK,"1 Corinthians,11:27",A="BF:1 Corinthians,11:27"$ When you pick a greeting card for someone, that is love effort. If you expect God to put effort toward you, you must put effort toward Him. God said, "honest measures" applies between your offering of love and His response, like a fair barter. You get out of prayer what you put into it. God wants praise, hymns, or whatever you think He might want. Try and see, like Cain and Abel. $LK,"Genesis,4:1",A="BF:Genesis,4:1"$, $LK,"Ephesians,5:10",A="BF:Ephesians,5:10"$ God told Cain his offering was not good and told him to try again. Cain really loved God! Can you imagine being so heart-broken?
|
||||||
|
|
||||||
Do a text search for "new song" in the Bible. It's mentioned nine times. When I hear a NEW awesome rock song, it is ecstasy for the first five times I hear it. Soon, it brings little-to-no pleasure. I did $MA-X+PU,"hymns",HTML="http://www.templeos.org/Wb/Home/Wb2/HymnVideos.html",LM="#include \"::/Apps/Psalmody/Load\";JukeBox(\"::/Apps/Psalmody/Examples\");"$ for God. I also did Moses $MA-X+PU,"comics",HTML="http://www.templeos.org/Wb/Home/Wb2/Files/Comics/",LM="Dir(\"::/Apps/AfterEgypt/Comics\");View;\n"$ for God. When you get to the gates of Heaven, St. Peter will ask how many times you gave blood. That shows you loved neighbor. You better also be able to count the ways you loved God with all heart mind and soul. I praised God for sand castles, popcorn, snowmen, bubbles... You try putting effort into praise! $LK,"Matthew,11:25",A="BF:Matthew,11:25"$, $LK,"Matthew,6:29",A="BF:Matthew,6:29"$
|
Do a text search for "new song" in the Bible. It's mentioned nine times. When I hear a NEW awesome rock song, it is ecstasy for the first five times I hear it. Soon, it brings little-to-no pleasure. I did $MA-X+PU,"hymns",HTML="http://www.templeos.org/Wb/Home/Web/HymnVideos.html",LM="#include \"::/Apps/Psalmody/Load\";JukeBox(\"::/Apps/Psalmody/Examples\");"$ for God. I also did Moses $MA-X+PU,"comics",HTML="http://www.templeos.org/Wb/Home/Downloads/Comics/",LM="Dir(\"::/Apps/AfterEgypt/Comics\");View;\n"$ for God. When you get to the gates of Heaven, St. Peter will ask how many times you gave blood. That shows you loved neighbor. You better also be able to count the ways you loved God with all heart mind and soul. I praised God for sand castles, popcorn, snowmen, bubbles... You try putting effort into praise! $LK,"Matthew,11:25",A="BF:Matthew,11:25"$, $LK,"Matthew,6:29",A="BF:Matthew,6:29"$
|
||||||
|
|
||||||
This is funny -- $LK,"Acts,2:1",A="BF:Acts,2:1"$ -- they didn't bother to record anything the Holy Spirit said. The Holy Spirit is supposed to be a really good gift. $LK,"Luke,11:13",A="BF:Luke,11:13"$ Just remember, "Boys are made of snakes and snails and puppy-dog tails."
|
This is funny -- $LK,"Acts,2:1",A="BF:Acts,2:1"$ -- they didn't bother to record anything the Holy Spirit said. The Holy Spirit is supposed to be a really good gift. $LK,"Luke,11:13",A="BF:Luke,11:13"$ Just remember, "Boys are made of snakes and snails and puppy-dog tails."
|
||||||
|
|
||||||
@@ -135,10 +135,11 @@ Chess? $FG,4$"... will winter with you."$FG$
|
|||||||
If You could teach one class? $FG,4$Health$FG$
|
If You could teach one class? $FG,4$Health$FG$
|
||||||
Favorite video game? $FG,4$Donkey Kong$FG$
|
Favorite video game? $FG,4$Donkey Kong$FG$
|
||||||
Favorite National Park? $FG,4$$TX,"Whitman Mission",HTML="http://www.nps.gov/whmi/index.htm"$$FG$
|
Favorite National Park? $FG,4$$TX,"Whitman Mission",HTML="http://www.nps.gov/whmi/index.htm"$$FG$
|
||||||
Favorite National Anthem? $FG,4$$TX,"Latvia's National Anthem",HTML="http://www.youtube.com/watch?v=qKITbBjO4nE"$$FG$
|
|
||||||
Favorite actor? $FG,4$Hugh Grant$FG$
|
Favorite actor? $FG,4$Hugh Grant$FG$
|
||||||
Favorite vocalist? $FG,4$Mick Jagger$FG$
|
Favorite vocalist? $FG,4$Mick Jagger$FG$
|
||||||
Favorite guitarist? $FG,4$"$TX,"Simmons Destroyer",HTML="http://www.youtube.com/watch?v=nNADrrjTysk&t=3m55s"$"$FG$
|
Favorite guitarist? $FG,4$"$TX,"Simmons Destroyer",HTML="http://www.youtube.com/watch?v=nNADrrjTysk&t=3m55s"$"$FG$
|
||||||
|
Favorite National Anthem? $FG,4$$TX,"Latvia's National Anthem",HTML="http://www.youtube.com/watch?v=qKITbBjO4nE"$$FG$
|
||||||
|
America the Beautiful? $FG,4$Hates it. Poet was too in love with own beauty.$FG$
|
||||||
Model for new $TX,"Sistine Chapel",HTML="http://en.wikipedia.org/wiki/Sistine_chapel"$? $FG,4$Ben Franklin$FG$
|
Model for new $TX,"Sistine Chapel",HTML="http://en.wikipedia.org/wiki/Sistine_chapel"$? $FG,4$Ben Franklin$FG$
|
||||||
Voice if God wanted to sing? $FG,4$$TX,"Stabbing Westward's singer",HTML="https://www.youtube.com/watch?v=5NZsCYOM4j0"$$FG$
|
Voice if God wanted to sing? $FG,4$$TX,"Stabbing Westward's singer",HTML="https://www.youtube.com/watch?v=5NZsCYOM4j0"$$FG$
|
||||||
Stonehenge? $FG,4$Landmark for boundaries.$FG$
|
Stonehenge? $FG,4$Landmark for boundaries.$FG$
|
||||||
|
|||||||
@@ -240,7 +240,7 @@ public I64 GrFloodFill(CDC *dc=gr.dc,I64 x,I64 y,
|
|||||||
Bool not_color=FALSE,I64 z=0,I32 *db=NULL)
|
Bool not_color=FALSE,I64 z=0,I32 *db=NULL)
|
||||||
{//2D. Ignore z and db.
|
{//2D. Ignore z and db.
|
||||||
//not_color=TRUE means fill up to everything which is not the current color.
|
//not_color=TRUE means fill up to everything which is not the current color.
|
||||||
//not_color=FALSE means fill all parts equal to the color under the point.
|
//not_color=FALSE means fill all parts equ to the color under the point.
|
||||||
//Returns cnt of pixs changed
|
//Returns cnt of pixs changed
|
||||||
I64 result=0,j,old_flags=dc->flags;
|
I64 result=0,j,old_flags=dc->flags;
|
||||||
CColorROPU32 old_color2=dc->color2;
|
CColorROPU32 old_color2=dc->color2;
|
||||||
@@ -711,7 +711,7 @@ public Bool GrRegPoly3(CDC *dc=gr.dc,
|
|||||||
public I64 GrFloodFill3(CDC *dc=gr.dc,I64 x1,I64 y1,I64 z1,Bool not_color=FALSE)
|
public I64 GrFloodFill3(CDC *dc=gr.dc,I64 x1,I64 y1,I64 z1,Bool not_color=FALSE)
|
||||||
{//3D. Transformation.
|
{//3D. Transformation.
|
||||||
//not_color=TRUE means fill up to everything which is not the current color.
|
//not_color=TRUE means fill up to everything which is not the current color.
|
||||||
//not_color=FALSE means fill all parts equal to the color under the point.
|
//not_color=FALSE means fill all parts equ to the color under the point.
|
||||||
//Returns cnt of pixs changed
|
//Returns cnt of pixs changed
|
||||||
I64 result,old_flags=dc->flags,
|
I64 result,old_flags=dc->flags,
|
||||||
_x,_y,_z;
|
_x,_y,_z;
|
||||||
@@ -1364,13 +1364,11 @@ p4y
|
|||||||
1
|
1
|
||||||
4
|
4
|
||||||
|
|
||||||
|
|
||||||
2
|
2
|
||||||
1
|
1
|
||||||
4
|
4
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
2
|
2
|
||||||
1
|
1
|
||||||
4
|
4
|
||||||
|
|||||||
@@ -15,7 +15,8 @@ making CSprite by hand. It uses $LK,"SPT_MESH",A="MN:SPT_MESH"$,
|
|||||||
one of the most complicated.
|
one of the most complicated.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
public U0 Sprite3(CDC *dc=gr.dc,I64 x,I64 y,I64 z,U8 *elems,Bool just_one=FALSE)
|
public U0 Sprite3(CDC *dc=gr.dc,I64 x,I64 y,I64 z,U8 *elems,
|
||||||
|
Bool just_one_elem=FALSE)
|
||||||
{//Plot a sprite into a CDC.
|
{//Plot a sprite into a CDC.
|
||||||
CSprite *tempg=elems-offset(CSprite.start);
|
CSprite *tempg=elems-offset(CSprite.start);
|
||||||
I64 i,j,k,x1,y1,z1,x2,y2,
|
I64 i,j,k,x1,y1,z1,x2,y2,
|
||||||
@@ -252,7 +253,7 @@ public U0 Sprite3(CDC *dc=gr.dc,I64 x,I64 y,I64 z,U8 *elems,Bool just_one=FALSE)
|
|||||||
dc->nearest_sprite_elem_num=cur_sprite_elem_num;
|
dc->nearest_sprite_elem_num=cur_sprite_elem_num;
|
||||||
}
|
}
|
||||||
cur_sprite_elem_num++;
|
cur_sprite_elem_num++;
|
||||||
if (just_one) break;
|
if (just_one_elem) break;
|
||||||
tempg(U8 *)+=SpriteElemSize(tempg);
|
tempg(U8 *)+=SpriteElemSize(tempg);
|
||||||
}
|
}
|
||||||
MemCpy(&dc->sym,&old_sym,sizeof(CGrSym));
|
MemCpy(&dc->sym,&old_sym,sizeof(CGrSym));
|
||||||
|
|||||||
@@ -1153,7 +1153,7 @@ U0 EdSpriteIns(CDoc *doc,I64 x,I64 y)
|
|||||||
DocUnlock(doc);
|
DocUnlock(doc);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
if (!(doc->flags & (DOCF_PLAIN_TEXT|DOCF_PLAIN_TEXT_WITH_TABS)))
|
if (!(doc->flags & (DOCF_PLAIN_TEXT|DOCF_PLAIN_TEXT_TABS)))
|
||||||
DocBinsValidate(doc);
|
DocBinsValidate(doc);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
@@ -385,7 +385,7 @@ U0 MPDrawIt(CMeshFrame *e)
|
|||||||
CMeshEdTri *tempt=e->tri_root.next;
|
CMeshEdTri *tempt=e->tri_root.next;
|
||||||
I64 i,*old_r=dc->r;
|
I64 i,*old_r=dc->r;
|
||||||
|
|
||||||
//$LK,"DCAlias",A="MN:DCAlias"$() alllocs a new identity rotation matrix.
|
//$LK,"DCAlias",A="MN:DCAlias"$() allocs a new identity rotation matrix.
|
||||||
//We want e->dc's rotation matrix.
|
//We want e->dc's rotation matrix.
|
||||||
dc->r=e->dc->r;
|
dc->r=e->dc->r;
|
||||||
|
|
||||||
|
|||||||
+13
-21
@@ -42,16 +42,15 @@ public Bool MakeOSDrvBootInstall(U8 src_drv=0,U8 dst_drv=0)
|
|||||||
I64 i,type;
|
I64 i,type;
|
||||||
try {
|
try {
|
||||||
if (!src_drv) src_drv=Drv2Let(Fs->cur_dv);
|
if (!src_drv) src_drv=Drv2Let(Fs->cur_dv);
|
||||||
|
src_drv=ToUpper(src_drv);
|
||||||
if (!dst_drv) dst_drv=src_drv;
|
if (!dst_drv) dst_drv=src_drv;
|
||||||
|
dst_drv=ToUpper(dst_drv);
|
||||||
if (!Drv(src_drv))
|
if (!Drv(src_drv))
|
||||||
throw;
|
throw;
|
||||||
MakeAll;
|
MakeAll;
|
||||||
try {
|
if ((bd=Let2BlkDev(dst_drv,FALSE)) && (dv=Let2Drv(dst_drv,FALSE)))
|
||||||
bd=Let2BlkDev(dst_drv);
|
|
||||||
dv=Let2Drv(dst_drv);
|
|
||||||
type=bd->type;
|
type=bd->type;
|
||||||
} catch {
|
else {
|
||||||
Fs->catch_except=TRUE;
|
|
||||||
type=BDT_ATAPI;
|
type=BDT_ATAPI;
|
||||||
PrintWarn("Defaulting to CD/DVD dst.\n");
|
PrintWarn("Defaulting to CD/DVD dst.\n");
|
||||||
}
|
}
|
||||||
@@ -100,8 +99,8 @@ public U0 MasterBootOldRead(U8 src_drv,U8 dst_drv)
|
|||||||
CMasterBoot mbr;
|
CMasterBoot mbr;
|
||||||
Drv(dst_drv);
|
Drv(dst_drv);
|
||||||
dv=Fs->cur_dv;
|
dv=Fs->cur_dv;
|
||||||
if (dv->type!=DVT_REDSEA && dv->type!=DVT_FAT32)
|
if (dv->fs_type!=FSt_REDSEA && dv->fs_type!=FSt_FAT32)
|
||||||
PrintErr("Not RedSea Drv\n");
|
PrintErr("File System Not Supported\n");
|
||||||
else {
|
else {
|
||||||
//Bypass partition bounds-checking
|
//Bypass partition bounds-checking
|
||||||
BlkDevLock(bd);
|
BlkDevLock(bd);
|
||||||
@@ -146,7 +145,7 @@ public U0 MasterBootZero(U8 dst_drv)
|
|||||||
BlkDevUnlock(bd);
|
BlkDevUnlock(bd);
|
||||||
}
|
}
|
||||||
|
|
||||||
public Bool MasterBootIntall(U8 drv_let,U8 *drv_lst=NULL)
|
public Bool MasterBootInstall(U8 drv_let,U8 *drv_lst=NULL)
|
||||||
{//Create new MBR on the disk that has drv_let as a partition.
|
{//Create new MBR on the disk that has drv_let as a partition.
|
||||||
//Puts stage 2 in BOOT_DIR of drv_let.
|
//Puts stage 2 in BOOT_DIR of drv_let.
|
||||||
CBlkDev *bd,*bd1;
|
CBlkDev *bd,*bd1;
|
||||||
@@ -158,9 +157,10 @@ public Bool MasterBootIntall(U8 drv_let,U8 *drv_lst=NULL)
|
|||||||
Bool result=FALSE;
|
Bool result=FALSE;
|
||||||
|
|
||||||
try {
|
try {
|
||||||
if (drv_lst)
|
if (drv_lst) {
|
||||||
StrCpy(buf,drv_lst);
|
StrCpy(buf,drv_lst);
|
||||||
else {
|
StrUtil(buf,SUF_TO_UPPER);
|
||||||
|
} else {
|
||||||
j=0;
|
j=0;
|
||||||
for (i='A';i<='Z';i++)
|
for (i='A';i<='Z';i++)
|
||||||
buf[j++]=i;
|
buf[j++]=i;
|
||||||
@@ -169,8 +169,8 @@ public Bool MasterBootIntall(U8 drv_let,U8 *drv_lst=NULL)
|
|||||||
|
|
||||||
Drv(drv_let);
|
Drv(drv_let);
|
||||||
dv=Fs->cur_dv;
|
dv=Fs->cur_dv;
|
||||||
if (dv->type!=DVT_REDSEA && dv->type!=DVT_FAT32)
|
if (dv->fs_type!=FSt_REDSEA && dv->fs_type!=FSt_FAT32)
|
||||||
PrintErr("Not RedSea Drv\n");
|
PrintErr("File System Not Supported\n");
|
||||||
else {
|
else {
|
||||||
bd=Let2BlkDev(drv_let);
|
bd=Let2BlkDev(drv_let);
|
||||||
if (!FileFind(BOOT_DIR_OLDMBR_BIN_C,,FUF_JUST_FILES))
|
if (!FileFind(BOOT_DIR_OLDMBR_BIN_C,,FUF_JUST_FILES))
|
||||||
@@ -190,15 +190,7 @@ public Bool MasterBootIntall(U8 drv_let,U8 *drv_lst=NULL)
|
|||||||
|
|
||||||
ptr=buf;
|
ptr=buf;
|
||||||
while (ch=*ptr++) {
|
while (ch=*ptr++) {
|
||||||
try {
|
if ((p1=Let2Drv(ch,FALSE)) && (bd1=Let2BlkDev(ch,FALSE)) && bd1==bd) {
|
||||||
p1 =Let2Drv(ch);
|
|
||||||
bd1=Let2BlkDev(ch);
|
|
||||||
} catch {
|
|
||||||
Fs->catch_except=TRUE;
|
|
||||||
p1 =NULL;
|
|
||||||
bd1=NULL;
|
|
||||||
}
|
|
||||||
if (p1 && bd1==bd) {
|
|
||||||
*_q=p1->base_offset;
|
*_q=p1->base_offset;
|
||||||
"Drive %C:%16X\n",Drv2Let(p1),*_q;
|
"Drive %C:%16X\n",Drv2Let(p1),*_q;
|
||||||
CatPrint(menu_ptr,"%d. Drive %C\n\r",j++,Drv2Let(p1));
|
CatPrint(menu_ptr,"%d. Drive %C\n\r",j++,Drv2Let(p1));
|
||||||
|
|||||||
@@ -237,8 +237,8 @@ Bool DiffBins(CDoc *doc1,CDoc *doc2)
|
|||||||
public Bool Diff(U8 *dst_file,U8 *src_file,I64 *_df_flags=NULL)
|
public Bool Diff(U8 *dst_file,U8 *src_file,I64 *_df_flags=NULL)
|
||||||
{//Report differences between two files and merge differences
|
{//Report differences between two files and merge differences
|
||||||
//from src_file to dst_file. Don't use _df_flags arg. (Used by $LK,"Merge",A="MN:Merge"$().)
|
//from src_file to dst_file. Don't use _df_flags arg. (Used by $LK,"Merge",A="MN:Merge"$().)
|
||||||
CDoc *doc1=DocRead(dst_file,DOCF_PLAIN_TEXT_WITH_TABS|DOCF_NO_CURSOR),
|
CDoc *doc1=DocRead(dst_file,DOCF_PLAIN_TEXT_TABS|DOCF_NO_CURSOR),
|
||||||
*doc2=DocRead(src_file,DOCF_PLAIN_TEXT_WITH_TABS|DOCF_NO_CURSOR);
|
*doc2=DocRead(src_file,DOCF_PLAIN_TEXT_TABS|DOCF_NO_CURSOR);
|
||||||
CDocEntry *doc_e,**doc_sorted1,**doc_sorted2,**doc_unsorted1,**doc_unsorted2;
|
CDocEntry *doc_e,**doc_sorted1,**doc_sorted2,**doc_unsorted1,**doc_unsorted2;
|
||||||
I64 i,cnt1=0,cnt2=0,df_flags;
|
I64 i,cnt1=0,cnt2=0,df_flags;
|
||||||
Bool result=FALSE;
|
Bool result=FALSE;
|
||||||
|
|||||||
@@ -30,7 +30,7 @@ I64 FindFile(U8 *needle_str,U8 *haystack_filename,
|
|||||||
U8 *src,*dst,*dst2,*name_buf=NULL;
|
U8 *src,*dst,*dst2,*name_buf=NULL;
|
||||||
I64 i,j,plen,rlen,dlen,cnt=0,old_flags,ss_flags;
|
I64 i,j,plen,rlen,dlen,cnt=0,old_flags,ss_flags;
|
||||||
CDoc *cur_l,*doc=DocRead(haystack_filename,
|
CDoc *cur_l,*doc=DocRead(haystack_filename,
|
||||||
DOCF_PLAIN_TEXT_WITH_TABS|DOCF_NO_CURSOR);
|
DOCF_PLAIN_TEXT_TABS|DOCF_NO_CURSOR);
|
||||||
CDocEntry *doc_e;
|
CDocEntry *doc_e;
|
||||||
|
|
||||||
if (Bt(_fuf_flags,FUf_IGNORE))
|
if (Bt(_fuf_flags,FUf_IGNORE))
|
||||||
@@ -118,7 +118,7 @@ I64 FindFile(U8 *needle_str,U8 *haystack_filename,
|
|||||||
DocDel(doc);
|
DocDel(doc);
|
||||||
"Wrote:%s\n",name_buf;
|
"Wrote:%s\n",name_buf;
|
||||||
Ed(name_buf);
|
Ed(name_buf);
|
||||||
doc=DocRead(name_buf, DOCF_PLAIN_TEXT_WITH_TABS);
|
doc=DocRead(name_buf, DOCF_PLAIN_TEXT_TABS);
|
||||||
doc_e=doc->cur_entry;
|
doc_e=doc->cur_entry;
|
||||||
if (doc_e->last!=doc) doc_e=doc_e->last;
|
if (doc_e->last!=doc) doc_e=doc_e->last;
|
||||||
src=NULL;
|
src=NULL;
|
||||||
|
|||||||
@@ -7,7 +7,11 @@
|
|||||||
class CHeapLog
|
class CHeapLog
|
||||||
{
|
{
|
||||||
CHeapLog *next,*last;
|
CHeapLog *next,*last;
|
||||||
|
union {
|
||||||
U8 *addr;
|
U8 *addr;
|
||||||
|
I64 size;
|
||||||
|
}
|
||||||
|
I64 cnt;
|
||||||
U8 *caller[HL_CALLER_DEPTH];
|
U8 *caller[HL_CALLER_DEPTH];
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -67,7 +71,7 @@ U0 HeapLogFree(U8 *addr)
|
|||||||
}
|
}
|
||||||
|
|
||||||
public Bool HeapLog(Bool val=ON,CTask *task=NULL)
|
public Bool HeapLog(Bool val=ON,CTask *task=NULL)
|
||||||
{//Turn on. Collect data. Call $LK,"HeapLogRep",A="MN:HeapLogRep"$().
|
{//Turn on. Collect data. Call $LK,"HeapLogAddrRep",A="MN:HeapLogAddrRep"$() or $LK,"HeapLogSizeRep",A="MN:HeapLogSizeRep"$().
|
||||||
I64 i;
|
I64 i;
|
||||||
if (val) {
|
if (val) {
|
||||||
if (Bt(&sys_semas[SYS_SEMA_HEAPLOG_ACTIVE],0)) {
|
if (Bt(&sys_semas[SYS_SEMA_HEAPLOG_ACTIVE],0)) {
|
||||||
@@ -108,7 +112,7 @@ public Bool HeapLog(Bool val=ON,CTask *task=NULL)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
public U0 HeapLogRep(Bool leave_it=OFF)
|
public U0 HeapLogAddrRep(Bool leave_it=OFF)
|
||||||
{//Call $LK,"HeapLog",A="MN:HeapLog"$() first and collect data.
|
{//Call $LK,"HeapLog",A="MN:HeapLog"$() first and collect data.
|
||||||
I64 i,j,total=0;
|
I64 i,j,total=0;
|
||||||
CHeapLog *temphl,hl;
|
CHeapLog *temphl,hl;
|
||||||
@@ -138,3 +142,70 @@ public U0 HeapLogRep(Bool leave_it=OFF)
|
|||||||
if (!leave_it)
|
if (!leave_it)
|
||||||
HeapLog(OFF);
|
HeapLog(OFF);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
public U0 HeapLogSizeRep(Bool leave_it=OFF)
|
||||||
|
{//Call $LK,"HeapLog",A="MN:HeapLog"$() first and collect data.
|
||||||
|
I64 i,j,k,total=0;
|
||||||
|
CHeapLog *temphla,hla,*temphls,*temphls1;
|
||||||
|
CHeapLogHash *size_root;
|
||||||
|
if (!LBtr(&sys_semas[SYS_SEMA_HEAPLOG_ACTIVE],0)) {
|
||||||
|
"HeapLog Not Active\n";
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
size_root=MAlloc(sizeof(CHeapLogHash)*HL_HASH_SIZE,heaplog_hc);
|
||||||
|
for (i=0;i<HL_HASH_SIZE;i++)
|
||||||
|
QueInit(&size_root[i]);
|
||||||
|
|
||||||
|
"$$WW,0$$";
|
||||||
|
while (LBts(&sys_semas[SYS_SEMA_HEAPLOG_LOCK],0))
|
||||||
|
PAUSE
|
||||||
|
for (i=0;i<HL_HASH_SIZE;i++) {
|
||||||
|
temphla=heaplog_root[i].next;
|
||||||
|
while (temphla!=&heaplog_root[i]) {
|
||||||
|
//Take snapshot in case modified. (while we work)
|
||||||
|
MemCpy(&hla,temphla,sizeof(CHeapLog));
|
||||||
|
k=(MSize(hla.addr)>>3+hla.caller[0])&(HL_HASH_SIZE-1);
|
||||||
|
temphls=size_root[k].next;
|
||||||
|
while (temphls!=&size_root[k]) {
|
||||||
|
if (MSize(hla.addr)==temphls->size) {
|
||||||
|
for (j=0;j<HL_CALLER_DEPTH;j++)
|
||||||
|
if (hla.caller[j]!=temphls->caller[j])
|
||||||
|
goto hl_next;
|
||||||
|
temphls->cnt++;
|
||||||
|
goto hl_found;
|
||||||
|
}
|
||||||
|
hl_next:
|
||||||
|
temphls=temphls->next;
|
||||||
|
}
|
||||||
|
temphls=MAlloc(sizeof(CHeapLog),heaplog_hc);
|
||||||
|
MemCpy(temphls,&hla,sizeof(CHeapLog));
|
||||||
|
temphls->cnt=1;
|
||||||
|
temphls->size=MSize(hla.addr);
|
||||||
|
QueIns(temphls,size_root[k].last);
|
||||||
|
hl_found:
|
||||||
|
temphla=hla.next;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
LBtr(&sys_semas[SYS_SEMA_HEAPLOG_LOCK],0);
|
||||||
|
|
||||||
|
for (i=0;i<HL_HASH_SIZE;i++) {
|
||||||
|
temphls=size_root[i].next;
|
||||||
|
while (temphls!=&size_root[i]) {
|
||||||
|
temphls1=temphls->next;
|
||||||
|
"%08X*%08X=%08X",temphls->size,temphls->cnt,temphls->size*temphls->cnt;
|
||||||
|
for (j=0;j<HL_CALLER_DEPTH;j++)
|
||||||
|
" %P",temphls->caller[j];
|
||||||
|
'\n';
|
||||||
|
total+=temphls->size*temphls->cnt;
|
||||||
|
Free(temphls);
|
||||||
|
temphls=temphls1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
Free(size_root);
|
||||||
|
|
||||||
|
"\n$$LTRED$$Total:%08X$$FG$$\n",total;
|
||||||
|
LBts(&sys_semas[SYS_SEMA_HEAPLOG_ACTIVE],0);
|
||||||
|
if (!leave_it)
|
||||||
|
HeapLog(OFF);
|
||||||
|
}
|
||||||
@@ -20,7 +20,7 @@ public I64 Sort(U8 *_in_name,U8 *_out_name=NULL,
|
|||||||
else
|
else
|
||||||
out_name=StrNew(in_name);
|
out_name=StrNew(in_name);
|
||||||
|
|
||||||
doc=DocRead(in_name,DOCF_PLAIN_TEXT_WITH_TABS|DOCF_NO_CURSOR);
|
doc=DocRead(in_name,DOCF_PLAIN_TEXT_TABS|DOCF_NO_CURSOR);
|
||||||
doc_e=doc->root.next;
|
doc_e=doc->root.next;
|
||||||
while (doc_e!=doc) {
|
while (doc_e!=doc) {
|
||||||
if (doc_e->type_u8==DOCT_TEXT)
|
if (doc_e->type_u8==DOCT_TEXT)
|
||||||
@@ -159,7 +159,7 @@ U0 SUFile(U8 *filename,I64 suf_flags,F64 indent_scale_factor)
|
|||||||
U8 *dst;
|
U8 *dst;
|
||||||
Bool chged=FALSE;
|
Bool chged=FALSE;
|
||||||
I64 reduced=0;
|
I64 reduced=0;
|
||||||
CDoc *doc=DocRead(filename,DOCF_PLAIN_TEXT_WITH_TABS | DOCF_NO_CURSOR);
|
CDoc *doc=DocRead(filename,DOCF_PLAIN_TEXT_TABS|DOCF_NO_CURSOR);
|
||||||
CDocEntry *doc_e=doc->root.next;
|
CDocEntry *doc_e=doc->root.next;
|
||||||
while (doc_e!=doc) {
|
while (doc_e!=doc) {
|
||||||
if (doc_e->type_u8==DOCT_TEXT) {
|
if (doc_e->type_u8==DOCT_TEXT) {
|
||||||
|
|||||||
@@ -308,7 +308,7 @@ public U0 ToHtml(U8 *_in_name,U8 *_out_name=NULL,U8 *html_header=NULL,
|
|||||||
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
||||||
WinHorz(0,width-1); //Sets doc width for word wrap.
|
WinHorz(0,width-1); //Sets doc width for word wrap.
|
||||||
|
|
||||||
in_name=DftExt(_in_name,"CPP.Z"),
|
in_name=DftExt(_in_name,"CPP.Z");
|
||||||
if (_out_name)
|
if (_out_name)
|
||||||
out_name=DftExt(_out_name,"html");
|
out_name=DftExt(_out_name,"html");
|
||||||
else
|
else
|
||||||
|
|||||||
@@ -110,7 +110,7 @@ public U0 ToTXT(U8 *_in_name,U8 *_out_name=NULL,I64 width=70)
|
|||||||
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
||||||
WinHorz(0,width-1); //Sets doc width for word wrap.
|
WinHorz(0,width-1); //Sets doc width for word wrap.
|
||||||
|
|
||||||
in_name=DftExt(_in_name,"TXT.Z"),
|
in_name=DftExt(_in_name,"TXT.Z");
|
||||||
if (_out_name)
|
if (_out_name)
|
||||||
out_name=DftExt(_out_name,"TXT");
|
out_name=DftExt(_out_name,"TXT");
|
||||||
else
|
else
|
||||||
|
|||||||
@@ -8,7 +8,7 @@ $WW,1$$FG,5$$TX+CX,"Psalmody Help"$$FG$
|
|||||||
|
|
||||||
* The first line of the $LK,"HolyC",A="FI:::/Doc/HolyC.TXT"$ song files is a comment with a category recognized by $LK,"JukeBox",A="FF:::/Apps/Psalmody/JukeBox.CPP,JukeBox"$(). The categories are $FG,2$"no nothing"$FG$, $FG,2$"has words"$FG$, $FG,2$"has graphics"$FG$, or $FG,2$"special"$FG$. The third character in the song comment is a digit rating number, shown in $LK,"JukeBox",A="FF:::/Apps/Psalmody/JukeBox.CPP,JukeBox"$(). You can set the song rating in $LK,"JukeBox",A="FF:::/Apps/Psalmody/JukeBox.CPP,JukeBox"$() by pressing $FG,2$0$FG$-$FG,2$9$FG$. You can press $FG,2$<DELETE>$FG$ to delete songs.
|
* The first line of the $LK,"HolyC",A="FI:::/Doc/HolyC.TXT"$ song files is a comment with a category recognized by $LK,"JukeBox",A="FF:::/Apps/Psalmody/JukeBox.CPP,JukeBox"$(). The categories are $FG,2$"no nothing"$FG$, $FG,2$"has words"$FG$, $FG,2$"has graphics"$FG$, or $FG,2$"special"$FG$. The third character in the song comment is a digit rating number, shown in $LK,"JukeBox",A="FF:::/Apps/Psalmody/JukeBox.CPP,JukeBox"$(). You can set the song rating in $LK,"JukeBox",A="FF:::/Apps/Psalmody/JukeBox.CPP,JukeBox"$() by pressing $FG,2$0$FG$-$FG,2$9$FG$. You can press $FG,2$<DELETE>$FG$ to delete songs.
|
||||||
|
|
||||||
* You can take the $LK,"Play",A="MN:Play"$() statements out of a song file and place them in your programs. You can also add a song to a document with $FG,2$<CTRL-l>$FG$, but you should do it after pressing $FG,2$<CTRL-t>$FG$ because the clipboard-insert in $FG,2$<CTRL-l>$FG$ is screwy. See this $SO,"<Song>",A="2qG3ECB2eGG3qCeFDsBGBG2qG3ECB2eGG3qCeFDsBGBGqEeEFqEB2eG3FetCAGqFCEeEFqEB2eG3FetCAGqFC"$ after pressing $FG,2$<CTRL-t>$FG$, now.
|
* You can take the $LK,"Play",A="MN:Play"$() stmts out of a song file and place them in your programs. You can also add a song to a document with $FG,2$<CTRL-l>$FG$, but you should do it after pressing $FG,2$<CTRL-t>$FG$ because the clipboard-insert in $FG,2$<CTRL-l>$FG$ is screwy. See this $SO,"<Song>",A="2qG3ECB2eGG3qCeFDsBGBG2qG3ECB2eGG3qCeFDsBGBGqEeEFqEB2eG3FetCAGqFCEeEFqEB2eG3FetCAGqFC"$ after pressing $FG,2$<CTRL-t>$FG$, now.
|
||||||
|
|
||||||
* You can call $LK,"JukeBox",A="FF:::/Apps/Psalmody/JukeBox.CPP,JukeBox"$("::/Home/Psalmody"); to play your songs.
|
* You can call $LK,"JukeBox",A="FF:::/Apps/Psalmody/JukeBox.CPP,JukeBox"$("::/Home/Psalmody"); to play your songs.
|
||||||
|
|
||||||
|
|||||||
@@ -77,7 +77,7 @@ U0 AsmHashLoad()
|
|||||||
i=LstMatch(cc->cur_str,"R8\0R16\0R32\0R64\0SEG\0FSTK\0"
|
i=LstMatch(cc->cur_str,"R8\0R16\0R32\0R64\0SEG\0FSTK\0"
|
||||||
"MM\0XMM\0OPCODE\0KEYWORD\0ASM_KEYWORD\0");
|
"MM\0XMM\0OPCODE\0KEYWORD\0ASM_KEYWORD\0");
|
||||||
if (i<0)
|
if (i<0)
|
||||||
LexExcept(cc,"Unknown Statement");
|
LexExcept(cc,"Unknown Stmt");
|
||||||
Lex(cc); //skip keyword
|
Lex(cc); //skip keyword
|
||||||
if (cc->token!=TK_IDENT)
|
if (cc->token!=TK_IDENT)
|
||||||
LexExcept(cc,"expecting identifier at ");
|
LexExcept(cc,"expecting identifier at ");
|
||||||
|
|||||||
+4
-4
@@ -341,7 +341,7 @@ U0 ICMul(CIntermediateCode *tempi,I64 ip)
|
|||||||
ICMov(tempi,tempi->r.type,tempi->r.reg,tempi->r.disp,TY_REG+RT_I64,r,0,ip);
|
ICMov(tempi,tempi->r.type,tempi->r.reg,tempi->r.disp,TY_REG+RT_I64,r,0,ip);
|
||||||
}
|
}
|
||||||
|
|
||||||
U0 ICMulEqual(CIntermediateCode *tempi,I64 ip)
|
U0 ICMulEqu(CIntermediateCode *tempi,I64 ip)
|
||||||
{
|
{
|
||||||
I64 i=tempi->a2.disp,r=REG_RAX,j;
|
I64 i=tempi->a2.disp,r=REG_RAX,j;
|
||||||
if (!(tempi->ic_class->raw_type&1) &&
|
if (!(tempi->ic_class->raw_type&1) &&
|
||||||
@@ -449,7 +449,7 @@ U0 ICDiv(CIntermediateCode *tempi,I64 ip)
|
|||||||
TY_REG+RT_I64,REG_RAX,0,ip);
|
TY_REG+RT_I64,REG_RAX,0,ip);
|
||||||
}
|
}
|
||||||
|
|
||||||
U0 ICDivEqual(CIntermediateCode *tempi,Bool is_mod,I64 ip)
|
U0 ICDivEqu(CIntermediateCode *tempi,Bool is_mod,I64 ip)
|
||||||
{
|
{
|
||||||
if (tempi->ic_flags & ICF_NOT_ADDR) {
|
if (tempi->ic_flags & ICF_NOT_ADDR) {
|
||||||
if (tempi->ic_flags & ICF_A1_FIRST) {
|
if (tempi->ic_flags & ICF_A1_FIRST) {
|
||||||
@@ -542,7 +542,7 @@ U0 ICMod(CIntermediateCode *tempi,I64 ip)
|
|||||||
TY_REG+RT_I64,REG_RDX,0,ip);
|
TY_REG+RT_I64,REG_RDX,0,ip);
|
||||||
}
|
}
|
||||||
|
|
||||||
U0 ICAddSubEctEqual(CIntermediateCode *tempi,I64 type_pointed,
|
U0 ICAddSubEctEqu(CIntermediateCode *tempi,I64 type_pointed,
|
||||||
I64 t1,I64 r1,I64 d1,I64 t2,I64 r2,I64 d2,
|
I64 t1,I64 r1,I64 d1,I64 t2,I64 r2,I64 d2,
|
||||||
I64 t3,I64 r3,I64 d3,I64 op,I64 ip)
|
I64 t3,I64 r3,I64 d3,I64 op,I64 ip)
|
||||||
{
|
{
|
||||||
@@ -723,7 +723,7 @@ U0 ICShift(CIntermediateCode *tempi,I64 t1,I64 r1,I64 d1,
|
|||||||
ICMov(tempi,t1,r1,d1,TY_REG+RT_I64,result_reg,0,ip);
|
ICMov(tempi,t1,r1,d1,TY_REG+RT_I64,result_reg,0,ip);
|
||||||
}
|
}
|
||||||
|
|
||||||
U0 ICShiftEqual(CIntermediateCode *tempi,I64 type_pointed,I64 t1,I64 r1,I64 d1,
|
U0 ICShiftEqu(CIntermediateCode *tempi,I64 type_pointed,I64 t1,I64 r1,I64 d1,
|
||||||
I64 t2,I64 r2,I64 d2,I64 t3,I64 r3,I64 d3,I64 us,I64 is,I64 ip)
|
I64 t2,I64 r2,I64 d2,I64 t3,I64 r3,I64 d3,I64 us,I64 is,I64 ip)
|
||||||
{
|
{
|
||||||
I64 result_reg;
|
I64 result_reg;
|
||||||
|
|||||||
+6
-6
@@ -691,7 +691,7 @@ U0 ICSwap(CIntermediateCode *tempi,I64 ip2)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
U0 ICAndEqual(CIntermediateCode *tempi,I64 ip2)
|
U0 ICAndEqu(CIntermediateCode *tempi,I64 ip2)
|
||||||
{
|
{
|
||||||
I64 i,bit;
|
I64 i,bit;
|
||||||
if (tempi->a2.type&TY_MASK==TY_IMM && tempi->a1.type&TY_MASK!=TY_STK &&
|
if (tempi->a2.type&TY_MASK==TY_IMM && tempi->a1.type&TY_MASK!=TY_STK &&
|
||||||
@@ -706,13 +706,13 @@ U0 ICAndEqual(CIntermediateCode *tempi,I64 ip2)
|
|||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
ICAddSubEctEqual(tempi,tempi->a1.type_pointed,
|
ICAddSubEctEqu(tempi,tempi->a1.type_pointed,
|
||||||
tempi->r.type,tempi->r.reg,tempi->r.disp,
|
tempi->r.type,tempi->r.reg,tempi->r.disp,
|
||||||
tempi->a1.type,tempi->a1.reg,tempi->a1.disp,
|
tempi->a1.type,tempi->a1.reg,tempi->a1.disp,
|
||||||
tempi->a2.type,tempi->a2.reg,tempi->a2.disp,0x210425240423,ip2);
|
tempi->a2.type,tempi->a2.reg,tempi->a2.disp,0x210425240423,ip2);
|
||||||
}
|
}
|
||||||
|
|
||||||
U0 ICOrEqual(CIntermediateCode *tempi,I64 ip2)
|
U0 ICOrEqu(CIntermediateCode *tempi,I64 ip2)
|
||||||
{
|
{
|
||||||
I64 i,bit;
|
I64 i,bit;
|
||||||
if (tempi->a2.type&TY_MASK==TY_IMM && tempi->a1.type&TY_MASK!=TY_STK &&
|
if (tempi->a2.type&TY_MASK==TY_IMM && tempi->a1.type&TY_MASK!=TY_STK &&
|
||||||
@@ -727,13 +727,13 @@ U0 ICOrEqual(CIntermediateCode *tempi,I64 ip2)
|
|||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
ICAddSubEctEqual(tempi,tempi->a1.type_pointed,
|
ICAddSubEctEqu(tempi,tempi->a1.type_pointed,
|
||||||
tempi->r.type,tempi->r.reg,tempi->r.disp,
|
tempi->r.type,tempi->r.reg,tempi->r.disp,
|
||||||
tempi->a1.type,tempi->a1.reg,tempi->a1.disp,
|
tempi->a1.type,tempi->a1.reg,tempi->a1.disp,
|
||||||
tempi->a2.type,tempi->a2.reg,tempi->a2.disp,0x09010D0C010B,ip2);
|
tempi->a2.type,tempi->a2.reg,tempi->a2.disp,0x09010D0C010B,ip2);
|
||||||
}
|
}
|
||||||
|
|
||||||
U0 ICXorEqual(CIntermediateCode *tempi,I64 ip2)
|
U0 ICXorEqu(CIntermediateCode *tempi,I64 ip2)
|
||||||
{
|
{
|
||||||
I64 i,bit;
|
I64 i,bit;
|
||||||
if (tempi->a2.type&TY_MASK==TY_IMM && tempi->a1.type&TY_MASK!=TY_STK &&
|
if (tempi->a2.type&TY_MASK==TY_IMM && tempi->a1.type&TY_MASK!=TY_STK &&
|
||||||
@@ -748,7 +748,7 @@ U0 ICXorEqual(CIntermediateCode *tempi,I64 ip2)
|
|||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
ICAddSubEctEqual(tempi,tempi->a1.type_pointed,
|
ICAddSubEctEqu(tempi,tempi->a1.type_pointed,
|
||||||
tempi->r.type,tempi->r.reg,tempi->r.disp,
|
tempi->r.type,tempi->r.reg,tempi->r.disp,
|
||||||
tempi->a1.type,tempi->a1.reg,tempi->a1.disp,
|
tempi->a1.type,tempi->a1.reg,tempi->a1.disp,
|
||||||
tempi->a2.type,tempi->a2.reg,tempi->a2.disp,0x310635340633,ip2);
|
tempi->a2.type,tempi->a2.reg,tempi->a2.disp,0x310635340633,ip2);
|
||||||
|
|||||||
+1
-1
@@ -582,7 +582,7 @@ U0 ICFCmp(CCmpCtrl *cc,CIntermediateCode *tempi,I64 op,I64 ip)
|
|||||||
TY_REG+RT_I64,REG_RAX,0,ip);
|
TY_REG+RT_I64,REG_RAX,0,ip);
|
||||||
}
|
}
|
||||||
|
|
||||||
U0 ICFModEqual(CCmpCtrl *cc,CIntermediateCode *tempi,I64 ip)
|
U0 ICFModEqu(CCmpCtrl *cc,CIntermediateCode *tempi,I64 ip)
|
||||||
{
|
{
|
||||||
Bool dont_push_float,dont_pop_float;
|
Bool dont_push_float,dont_pop_float;
|
||||||
CmpSetFloatOpPushPop(cc,tempi,&dont_push_float,&dont_pop_float);
|
CmpSetFloatOpPushPop(cc,tempi,&dont_push_float,&dont_pop_float);
|
||||||
|
|||||||
+1
-1
@@ -1,4 +1,4 @@
|
|||||||
U0 ICFOpEqual(CCmpCtrl *cc,CIntermediateCode *tempi,I64 op,U8 *buf2,I64 ip)
|
U0 ICFOpEqu(CCmpCtrl *cc,CIntermediateCode *tempi,I64 op,U8 *buf2,I64 ip)
|
||||||
{//for ADD,SUB,DIV,MUL
|
{//for ADD,SUB,DIV,MUL
|
||||||
CICArg *a1=&tempi->a1,
|
CICArg *a1=&tempi->a1,
|
||||||
*a2=&tempi->a2;
|
*a2=&tempi->a2;
|
||||||
|
|||||||
+1
-1
@@ -26,7 +26,7 @@ extern CHashClass *PrsClass(
|
|||||||
extern CHashFun *PrsFunJoin(
|
extern CHashFun *PrsFunJoin(
|
||||||
CCmpCtrl *cc,CHashClass *temp_return,U8 *name,I64 fsp_flags);
|
CCmpCtrl *cc,CHashClass *temp_return,U8 *name,I64 fsp_flags);
|
||||||
extern I64 PrsKeyWord(CCmpCtrl *cc);
|
extern I64 PrsKeyWord(CCmpCtrl *cc);
|
||||||
extern Bool PrsStatement(CCmpCtrl *cc,I64 try_cnt=0,
|
extern Bool PrsStmt(CCmpCtrl *cc,I64 try_cnt=0,
|
||||||
CCodeMisc *lb_break=NULL,I64 cmp_flags=CMPF_PRS_SEMICOLON);
|
CCodeMisc *lb_break=NULL,I64 cmp_flags=CMPF_PRS_SEMICOLON);
|
||||||
extern U0 PrsStreamBlk(CCmpCtrl *cc);
|
extern U0 PrsStreamBlk(CCmpCtrl *cc);
|
||||||
extern CHashClass *PrsType(CCmpCtrl *cc,CHashClass **tempc1,
|
extern CHashClass *PrsType(CCmpCtrl *cc,CHashClass **tempc1,
|
||||||
|
|||||||
+48
-49
@@ -72,12 +72,12 @@ CIntermediateStruct intermediate_code_table[IC_NUM_ENTRIES]={
|
|||||||
{IS_2_ARG,1,IST_NULL,TRUE,FALSE,0,0,0,"SUB"},
|
{IS_2_ARG,1,IST_NULL,TRUE,FALSE,0,0,0,"SUB"},
|
||||||
{IS_1_ARG,1,IST_ASSIGN,FALSE,FALSE,0,0,0,"ADD_CONST"},
|
{IS_1_ARG,1,IST_ASSIGN,FALSE,FALSE,0,0,0,"ADD_CONST"},
|
||||||
{IS_1_ARG,1,IST_ASSIGN,FALSE,FALSE,0,0,0,"SUB_CONST"},
|
{IS_1_ARG,1,IST_ASSIGN,FALSE,FALSE,0,0,0,"SUB_CONST"},
|
||||||
{IS_2_ARG,1,IST_CMP,FALSE,FALSE,0,0,0,"EQUAL_EQUAL"},
|
{IS_2_ARG,1,IST_CMP,FALSE,FALSE,0,0,0,"EQU_EQU"},
|
||||||
{IS_2_ARG,1,IST_CMP,FALSE,FALSE,0,0,0,"NOT_EQUAL"},
|
{IS_2_ARG,1,IST_CMP,FALSE,FALSE,0,0,0,"NOT_EQU"},
|
||||||
{IS_2_ARG,1,IST_CMP,FALSE,FALSE,0,0,0,"LESS"},
|
{IS_2_ARG,1,IST_CMP,FALSE,FALSE,0,0,0,"LESS"},
|
||||||
{IS_2_ARG,1,IST_CMP,FALSE,FALSE,0,0,0,"GREATER_EQUAL"},
|
{IS_2_ARG,1,IST_CMP,FALSE,FALSE,0,0,0,"GREATER_EQU"},
|
||||||
{IS_2_ARG,1,IST_CMP,FALSE,FALSE,0,0,0,"GREATER"},
|
{IS_2_ARG,1,IST_CMP,FALSE,FALSE,0,0,0,"GREATER"},
|
||||||
{IS_2_ARG,1,IST_CMP,FALSE,FALSE,0,0,0,"LESS_EQUAL"},
|
{IS_2_ARG,1,IST_CMP,FALSE,FALSE,0,0,0,"LESS_EQU"},
|
||||||
{IS_0_ARG,1,IST_NULL,FALSE,FALSE,0,0,0,"PUSH_CMP"},
|
{IS_0_ARG,1,IST_NULL,FALSE,FALSE,0,0,0,"PUSH_CMP"},
|
||||||
{IS_2_ARG,1,IST_NULL,FALSE,FALSE,0,0,0,"AND_AND"},
|
{IS_2_ARG,1,IST_NULL,FALSE,FALSE,0,0,0,"AND_AND"},
|
||||||
{IS_2_ARG,1,IST_NULL,FALSE,FALSE,0,0,0,"OR_OR"},
|
{IS_2_ARG,1,IST_NULL,FALSE,FALSE,0,0,0,"OR_OR"},
|
||||||
@@ -85,16 +85,16 @@ CIntermediateStruct intermediate_code_table[IC_NUM_ENTRIES]={
|
|||||||
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"ASSIGN"},
|
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"ASSIGN"},
|
||||||
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"ASSIGN_PP"},
|
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"ASSIGN_PP"},
|
||||||
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"ASSIGN_MM"},
|
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"ASSIGN_MM"},
|
||||||
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"SHL_EQUAL"},
|
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"SHL_EQU"},
|
||||||
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"SHR_EQUAL"},
|
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"SHR_EQU"},
|
||||||
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"MUL_EQUAL"},
|
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"MUL_EQU"},
|
||||||
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"DIV_EQUAL"},
|
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"DIV_EQU"},
|
||||||
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"MOD_EQUAL"},
|
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"MOD_EQU"},
|
||||||
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"AND_EQUAL"},
|
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"AND_EQU"},
|
||||||
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"OR_EQUAL"},
|
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"OR_EQU"},
|
||||||
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"XOR_EQUAL"},
|
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"XOR_EQU"},
|
||||||
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"ADD_EQUAL"},
|
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"ADD_EQU"},
|
||||||
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"SUB_EQUAL"},
|
{IS_2_ARG,1,IST_ASSIGN,FALSE,TRUE,0,0,0,"SUB_EQU"},
|
||||||
{IS_0_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"JMP"},
|
{IS_0_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"JMP"},
|
||||||
{IS_0_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"SUB_CALL"},
|
{IS_0_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"SUB_CALL"},
|
||||||
{IS_2_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"SWITCH"},
|
{IS_2_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"SWITCH"},
|
||||||
@@ -152,18 +152,18 @@ CIntermediateStruct intermediate_code_table[IC_NUM_ENTRIES]={
|
|||||||
{IS_1_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_NOT_ZERO"},
|
{IS_1_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_NOT_ZERO"},
|
||||||
{IS_0_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_CARRY"},
|
{IS_0_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_CARRY"},
|
||||||
{IS_0_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_NOT_CARRY"},
|
{IS_0_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_NOT_CARRY"},
|
||||||
{IS_2_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_EQUAL_EQUAL"},
|
{IS_2_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_EQU_EQU"},
|
||||||
{IS_2_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_NOT_EQUAL"},
|
{IS_2_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_NOT_EQU"},
|
||||||
{IS_2_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_LESS"},
|
{IS_2_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_LESS"},
|
||||||
{IS_2_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_GREATER_EQUAL"},
|
{IS_2_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_GREATER_EQU"},
|
||||||
{IS_2_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_GREATER"},
|
{IS_2_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_GREATER"},
|
||||||
{IS_2_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_LESS_EQUAL"},
|
{IS_2_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_LESS_EQU"},
|
||||||
{IS_2_ARG,1,IST_NULL,FALSE,FALSE,0,0,0,"BR_2EQUAL_EQUAL"},
|
{IS_2_ARG,1,IST_NULL,FALSE,FALSE,0,0,0,"BR_2EQU_EQU"},
|
||||||
{IS_2_ARG,1,IST_NULL,FALSE,FALSE,0,0,0,"BR_2NOT_EQUAL"},
|
{IS_2_ARG,1,IST_NULL,FALSE,FALSE,0,0,0,"BR_2NOT_EQU"},
|
||||||
{IS_2_ARG,1,IST_NULL,FALSE,FALSE,0,0,0,"BR_2LESS"},
|
{IS_2_ARG,1,IST_NULL,FALSE,FALSE,0,0,0,"BR_2LESS"},
|
||||||
{IS_2_ARG,1,IST_NULL,FALSE,FALSE,0,0,0,"BR_2GREATER_EQUAL"},
|
{IS_2_ARG,1,IST_NULL,FALSE,FALSE,0,0,0,"BR_2GREATER_EQU"},
|
||||||
{IS_2_ARG,1,IST_NULL,FALSE,FALSE,0,0,0,"BR_2GREATER"},
|
{IS_2_ARG,1,IST_NULL,FALSE,FALSE,0,0,0,"BR_2GREATER"},
|
||||||
{IS_2_ARG,1,IST_NULL,FALSE,FALSE,0,0,0,"BR_2LESS_EQUAL"},
|
{IS_2_ARG,1,IST_NULL,FALSE,FALSE,0,0,0,"BR_2LESS_EQU"},
|
||||||
{IS_2_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_AND_ZERO"},
|
{IS_2_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_AND_ZERO"},
|
||||||
{IS_2_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_AND_NOT_ZERO"},
|
{IS_2_ARG,0,IST_NULL,FALSE,FALSE,0,0,0,"BR_AND_NOT_ZERO"},
|
||||||
{IS_1_ARG,0,IST_NULL,FALSE,TRUE,0,0,0,"BR_MM_ZERO"},
|
{IS_1_ARG,0,IST_NULL,FALSE,TRUE,0,0,0,"BR_MM_ZERO"},
|
||||||
@@ -258,7 +258,6 @@ Expressions are evaluated with a stack machine.
|
|||||||
|
|
||||||
1+(2+3)*4
|
1+(2+3)*4
|
||||||
|
|
||||||
|
|
||||||
STK[2]: 1 1 1 1 1 1 21
|
STK[2]: 1 1 1 1 1 1 21
|
||||||
STK[1]: 2 2 5 5 20
|
STK[1]: 2 2 5 5 20
|
||||||
STK[0]: 3 4
|
STK[0]: 3 4
|
||||||
@@ -299,33 +298,33 @@ R8 : RAX R9 RAX R9 RAX
|
|||||||
cmp.to_stk_temps_map_odd[--k]=i;
|
cmp.to_stk_temps_map_odd[--k]=i;
|
||||||
|
|
||||||
cmp.dual_U16_tokens1=d=CAlloc(sizeof(U32)*TK_NUM_TK);
|
cmp.dual_U16_tokens1=d=CAlloc(sizeof(U32)*TK_NUM_TK);
|
||||||
d['!']=TK_NOT_EQUAL<<16+'=';
|
d['!']=TK_NOT_EQU<<16+'=';
|
||||||
d['&']=TK_AND_AND<<16+'&';
|
d['&']=TK_AND_AND<<16+'&';
|
||||||
d['*']=TK_MUL_EQUAL<<16+'=';
|
d['*']=TK_MUL_EQU<<16+'=';
|
||||||
d['+']=TK_PLUS_PLUS<<16+'+';
|
d['+']=TK_PLUS_PLUS<<16+'+';
|
||||||
d['-']=TK_DEREFERENCE<<16+'>';
|
d['-']=TK_DEREFERENCE<<16+'>';
|
||||||
d['/']='*';
|
d['/']='*';
|
||||||
d[':']=TK_DBL_COLON<<16+':';
|
d[':']=TK_DBL_COLON<<16+':';
|
||||||
d['<']=TK_LESS_EQUAL<<16+'=';
|
d['<']=TK_LESS_EQU<<16+'=';
|
||||||
d['=']=TK_EQUAL_EQUAL<<16+'=';
|
d['=']=TK_EQU_EQU<<16+'=';
|
||||||
d['>']=TK_GREATER_EQUAL<<16+'=';
|
d['>']=TK_GREATER_EQU<<16+'=';
|
||||||
d['^']=TK_XOR_EQUAL<<16+'=';
|
d['^']=TK_XOR_EQU<<16+'=';
|
||||||
d['|']=TK_OR_OR<<16+'|';
|
d['|']=TK_OR_OR<<16+'|';
|
||||||
d['%']=TK_MOD_EQUAL<<16+'=';
|
d['%']=TK_MOD_EQU<<16+'=';
|
||||||
|
|
||||||
cmp.dual_U16_tokens2=d=CAlloc(sizeof(U32)*TK_NUM_TK);
|
cmp.dual_U16_tokens2=d=CAlloc(sizeof(U32)*TK_NUM_TK);
|
||||||
d['&']=TK_AND_EQUAL<<16+'=';
|
d['&']=TK_AND_EQU<<16+'=';
|
||||||
d['+']=TK_ADD_EQUAL<<16+'=';
|
d['+']=TK_ADD_EQU<<16+'=';
|
||||||
d['-']=TK_MINUS_MINUS<<16+'-';
|
d['-']=TK_MINUS_MINUS<<16+'-';
|
||||||
d['/']='/';
|
d['/']='/';
|
||||||
d['<']=TK_SHL<<16+'<';
|
d['<']=TK_SHL<<16+'<';
|
||||||
d['>']=TK_SHR<<16+'>';
|
d['>']=TK_SHR<<16+'>';
|
||||||
d['^']=TK_XOR_XOR<<16+'^';
|
d['^']=TK_XOR_XOR<<16+'^';
|
||||||
d['|']=TK_OR_EQUAL<<16+'=';
|
d['|']=TK_OR_EQU<<16+'=';
|
||||||
|
|
||||||
cmp.dual_U16_tokens3=d=CAlloc(sizeof(U32)*TK_NUM_TK);
|
cmp.dual_U16_tokens3=d=CAlloc(sizeof(U32)*TK_NUM_TK);
|
||||||
d['-']=TK_SUB_EQUAL<<16+'=';
|
d['-']=TK_SUB_EQU<<16+'=';
|
||||||
d['/']=TK_DIV_EQUAL<<16+'=';
|
d['/']=TK_DIV_EQU<<16+'=';
|
||||||
|
|
||||||
cmp.binary_ops=d=CAlloc(sizeof(U32)*TK_NUM_TK);
|
cmp.binary_ops=d=CAlloc(sizeof(U32)*TK_NUM_TK);
|
||||||
d['`'] =(PREC_EXP+ASSOCF_RIGHT)<<16+IC_POWER;
|
d['`'] =(PREC_EXP+ASSOCF_RIGHT)<<16+IC_POWER;
|
||||||
@@ -347,11 +346,11 @@ R8 : RAX R9 RAX R9 RAX
|
|||||||
|
|
||||||
d['<'] =PREC_CMP<<16+IC_LESS;
|
d['<'] =PREC_CMP<<16+IC_LESS;
|
||||||
d['>'] =PREC_CMP<<16+IC_GREATER;
|
d['>'] =PREC_CMP<<16+IC_GREATER;
|
||||||
d[TK_LESS_EQUAL] =PREC_CMP<<16+IC_LESS_EQUAL;
|
d[TK_LESS_EQU] =PREC_CMP<<16+IC_LESS_EQU;
|
||||||
d[TK_GREATER_EQUAL] =PREC_CMP<<16+IC_GREATER_EQUAL;
|
d[TK_GREATER_EQU] =PREC_CMP<<16+IC_GREATER_EQU;
|
||||||
|
|
||||||
d[TK_EQUAL_EQUAL] =PREC_CMP2<<16+IC_EQUAL_EQUAL;
|
d[TK_EQU_EQU] =PREC_CMP2<<16+IC_EQU_EQU;
|
||||||
d[TK_NOT_EQUAL] =PREC_CMP2<<16+IC_NOT_EQUAL;
|
d[TK_NOT_EQU] =PREC_CMP2<<16+IC_NOT_EQU;
|
||||||
|
|
||||||
d[TK_AND_AND] =PREC_AND_AND<<16+IC_AND_AND;
|
d[TK_AND_AND] =PREC_AND_AND<<16+IC_AND_AND;
|
||||||
|
|
||||||
@@ -360,14 +359,14 @@ R8 : RAX R9 RAX R9 RAX
|
|||||||
d[TK_OR_OR] =PREC_OR_OR<<16+IC_OR_OR;
|
d[TK_OR_OR] =PREC_OR_OR<<16+IC_OR_OR;
|
||||||
|
|
||||||
d['='] =(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_ASSIGN;
|
d['='] =(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_ASSIGN;
|
||||||
d[TK_SHL_EQUAL]=(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_SHL_EQUAL;
|
d[TK_SHL_EQU]=(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_SHL_EQU;
|
||||||
d[TK_SHR_EQUAL]=(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_SHR_EQUAL;
|
d[TK_SHR_EQU]=(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_SHR_EQU;
|
||||||
d[TK_MUL_EQUAL]=(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_MUL_EQUAL;
|
d[TK_MUL_EQU]=(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_MUL_EQU;
|
||||||
d[TK_DIV_EQUAL]=(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_DIV_EQUAL;
|
d[TK_DIV_EQU]=(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_DIV_EQU;
|
||||||
d[TK_MOD_EQUAL]=(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_MOD_EQUAL;
|
d[TK_MOD_EQU]=(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_MOD_EQU;
|
||||||
d[TK_AND_EQUAL]=(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_AND_EQUAL;
|
d[TK_AND_EQU]=(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_AND_EQU;
|
||||||
d[TK_OR_EQUAL] =(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_OR_EQUAL;
|
d[TK_OR_EQU] =(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_OR_EQU;
|
||||||
d[TK_XOR_EQUAL]=(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_XOR_EQUAL;
|
d[TK_XOR_EQU]=(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_XOR_EQU;
|
||||||
d[TK_ADD_EQUAL]=(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_ADD_EQUAL;
|
d[TK_ADD_EQU]=(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_ADD_EQU;
|
||||||
d[TK_SUB_EQUAL]=(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_SUB_EQUAL;
|
d[TK_SUB_EQU]=(PREC_ASSIGN+ASSOCF_RIGHT)<<16+IC_SUB_EQU;
|
||||||
}
|
}
|
||||||
+5
-5
@@ -1,5 +1,5 @@
|
|||||||
U8 *LexStatement2Bin(CCmpCtrl *cc,I64 *_type,I64 cmp_flags=0)
|
U8 *LexStmt2Bin(CCmpCtrl *cc,I64 *_type,I64 cmp_flags=0)
|
||||||
{//Compile one cc statement to bin code.
|
{//Compile one cc stmt to bin code.
|
||||||
I64 size,i,j,k,*result=INVALID_PTR;
|
I64 size,i,j,k,*result=INVALID_PTR;
|
||||||
CCodeCtrl *tempcbh;
|
CCodeCtrl *tempcbh;
|
||||||
if (_type) *_type=RT_I64;
|
if (_type) *_type=RT_I64;
|
||||||
@@ -7,7 +7,7 @@ U8 *LexStatement2Bin(CCmpCtrl *cc,I64 *_type,I64 cmp_flags=0)
|
|||||||
if (cc->aot_depth==2)
|
if (cc->aot_depth==2)
|
||||||
COCPush(cc);
|
COCPush(cc);
|
||||||
COCInit(cc);
|
COCInit(cc);
|
||||||
if (!PrsStatement(cc,,,cmp_flags)) {
|
if (!PrsStmt(cc,,,cmp_flags)) {
|
||||||
if (cc->coc.coc_root.next!=&cc->coc.coc_root) {
|
if (cc->coc.coc_root.next!=&cc->coc.coc_root) {
|
||||||
cc->coc.coc_root.last->ic_flags&=~ICF_NO_DEPEND_RESULT;
|
cc->coc.coc_root.last->ic_flags&=~ICF_NO_DEPEND_RESULT;
|
||||||
ICAdd(cc,IC_RETURN_VAL2,0,0);
|
ICAdd(cc,IC_RETURN_VAL2,0,0);
|
||||||
@@ -81,7 +81,7 @@ CAOT *CmpJoin(CCmpCtrl *cc,I64 cmp_flags,U8 *map_name=NULL,U8 mapfile_drv_let=0)
|
|||||||
cmp_flags|=CMPF_PRS_SEMICOLON;
|
cmp_flags|=CMPF_PRS_SEMICOLON;
|
||||||
if (cc->flags&CCF_AOT_COMPILE) {
|
if (cc->flags&CCF_AOT_COMPILE) {
|
||||||
while (cc->token!=TK_EOF) {
|
while (cc->token!=TK_EOF) {
|
||||||
buf=LexStatement2Bin(cc,NULL,cmp_flags);
|
buf=LexStmt2Bin(cc,NULL,cmp_flags);
|
||||||
if (buf!=INVALID_PTR) {
|
if (buf!=INVALID_PTR) {
|
||||||
tempie=CAlloc(sizeof(CAOTImportExport));
|
tempie=CAlloc(sizeof(CAOTImportExport));
|
||||||
tempie->type=IET_MAIN;
|
tempie->type=IET_MAIN;
|
||||||
@@ -92,7 +92,7 @@ CAOT *CmpJoin(CCmpCtrl *cc,I64 cmp_flags,U8 *map_name=NULL,U8 mapfile_drv_let=0)
|
|||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
} else
|
} else
|
||||||
PrsStatement(cc,,,cmp_flags);
|
PrsStmt(cc,,,cmp_flags);
|
||||||
AOTGlblsResolve(cc,result);
|
AOTGlblsResolve(cc,result);
|
||||||
} catch {
|
} catch {
|
||||||
if (Fs->except_ch=='Compiler' && !(cmp_flags&CMPF_ASM_BLK)) {
|
if (Fs->except_ch=='Compiler' && !(cmp_flags&CMPF_ASM_BLK)) {
|
||||||
|
|||||||
Binary file not shown.
+326
-341
@@ -26,266 +26,266 @@ $LK,"ICAndBranch",A="FL:::/Compiler/BackC.CPP.Z,1",BI=22$
|
|||||||
$LK,"MDR_D8_INDIRECT_REG",A="FL:::/Compiler/BackLib.CPP.Z,134"$
|
$LK,"MDR_D8_INDIRECT_REG",A="FL:::/Compiler/BackLib.CPP.Z,134"$
|
||||||
$LK,"U",A="FL:::/Compiler/UAsm.CPP.Z,649",BI=23$
|
$LK,"U",A="FL:::/Compiler/UAsm.CPP.Z,649",BI=23$
|
||||||
$LK,"ICQueRem",A="FL:::/Compiler/BackC.CPP.Z,493",BI=24$
|
$LK,"ICQueRem",A="FL:::/Compiler/BackC.CPP.Z,493",BI=24$
|
||||||
$LK,"ICAndEqual",A="FL:::/Compiler/BackC.CPP.Z,694",BI=25$
|
|
||||||
$LK,"CN_R",A="FL:::/Compiler/BackFA.CPP.Z,4"$
|
$LK,"CN_R",A="FL:::/Compiler/BackFA.CPP.Z,4"$
|
||||||
$LK,"OptLead1",A="FL:::/Compiler/OptLib.CPP.Z,73",BI=26$
|
$LK,"OptLead1",A="FL:::/Compiler/OptLib.CPP.Z,73",BI=25$
|
||||||
$LK,"CmpNoteFloatOp",A="FL:::/Compiler/BackFA.CPP.Z,6",BI=27$
|
$LK,"CmpNoteFloatOp",A="FL:::/Compiler/BackFA.CPP.Z,6",BI=26$
|
||||||
$LK,"AOTGlblsResolve",A="FL:::/Compiler/AsmResolve.CPP.Z,76",BI=28$
|
$LK,"AOTGlblsResolve",A="FL:::/Compiler/AsmResolve.CPP.Z,76",BI=27$
|
||||||
$LK,"ExePutS2",A="FL:::/Compiler/CMain.CPP.Z,627",BI=29$
|
$LK,"ExePutS2",A="FL:::/Compiler/CMain.CPP.Z,627",BI=28$
|
||||||
$LK,"HashEntrySize",A="FL:::/Compiler/CHash.CPP.Z,1",BI=30$
|
$LK,"HashEntrySize",A="FL:::/Compiler/CHash.CPP.Z,1",BI=29$
|
||||||
$LK,"COCPush",A="FL:::/Compiler/PrsLib.CPP.Z,107",BI=31$
|
$LK,"COCPush",A="FL:::/Compiler/PrsLib.CPP.Z,107",BI=30$
|
||||||
$LK,"SLASH_OP_DEC",A="FL:::/Compiler/BackLib.CPP.Z,255"$
|
$LK,"SLASH_OP_DEC",A="FL:::/Compiler/BackLib.CPP.Z,255"$
|
||||||
$LK,"ICPushRegs",A="FL:::/Compiler/BackLib.CPP.Z,341",BI=32$
|
$LK,"ICPushRegs",A="FL:::/Compiler/BackLib.CPP.Z,341",BI=31$
|
||||||
$LK,"PE_POP_HIGHER",A="FL:::/Compiler/PrsExp.CPP.Z,10"$
|
$LK,"PE_POP_HIGHER",A="FL:::/Compiler/PrsExp.CPP.Z,10"$
|
||||||
$LK,"SLASH_OP_FLD",A="FL:::/Compiler/BackLib.CPP.Z,270"$
|
$LK,"SLASH_OP_FLD",A="FL:::/Compiler/BackLib.CPP.Z,270"$
|
||||||
$LK,"ICU32",A="FL:::/Compiler/BackLib.CPP.Z,47",BI=33$
|
$LK,"ICU32",A="FL:::/Compiler/BackLib.CPP.Z,47",BI=32$
|
||||||
$LK,"ICU24",A="FL:::/Compiler/BackLib.CPP.Z,41",BI=34$
|
$LK,"ICU24",A="FL:::/Compiler/BackLib.CPP.Z,41",BI=33$
|
||||||
$LK,"ICU16",A="FL:::/Compiler/BackLib.CPP.Z,35",BI=35$
|
$LK,"ICU16",A="FL:::/Compiler/BackLib.CPP.Z,35",BI=34$
|
||||||
$LK,"SLASH_OP_DIV",A="FL:::/Compiler/BackLib.CPP.Z,260"$
|
$LK,"SLASH_OP_DIV",A="FL:::/Compiler/BackLib.CPP.Z,260"$
|
||||||
$LK,"CmpFillTables",A="FL:::/Compiler/CInit.CPP.Z,236",BI=36$
|
$LK,"CmpFillTables",A="FL:::/Compiler/CInit.CPP.Z,236",BI=35$
|
||||||
$LK,"AOTStoreCodeU32",A="FL:::/Compiler/AsmLib.CPP.Z,30",BI=37$
|
$LK,"AOTStoreCodeU32",A="FL:::/Compiler/AsmLib.CPP.Z,30",BI=36$
|
||||||
$LK,"ICFOpEqual",A="FL:::/Compiler/BackFB.CPP.Z,1",BI=38$
|
$LK,"ICU64",A="FL:::/Compiler/BackLib.CPP.Z,53",BI=37$
|
||||||
$LK,"ICU64",A="FL:::/Compiler/BackLib.CPP.Z,53",BI=39$
|
|
||||||
$LK,"SLASH_OP_INC",A="FL:::/Compiler/BackLib.CPP.Z,254"$
|
$LK,"SLASH_OP_INC",A="FL:::/Compiler/BackLib.CPP.Z,254"$
|
||||||
$LK,"AOTStoreCodeU64",A="FL:::/Compiler/AsmLib.CPP.Z,69",BI=40$
|
$LK,"AOTStoreCodeU64",A="FL:::/Compiler/AsmLib.CPP.Z,69",BI=38$
|
||||||
$LK,"LexPopNoRestore",A="FL:::/Compiler/LexLib.CPP.Z,38",BI=41$
|
$LK,"LexPopNoRestore",A="FL:::/Compiler/LexLib.CPP.Z,38",BI=39$
|
||||||
$LK,"ExePrint",A="FL:::/Compiler/CMain.CPP.Z,607",BI=42$
|
$LK,"ExePrint",A="FL:::/Compiler/CMain.CPP.Z,607",BI=40$
|
||||||
$LK,"SLASH_OP_NEG",A="FL:::/Compiler/BackLib.CPP.Z,257"$
|
$LK,"SLASH_OP_NEG",A="FL:::/Compiler/BackLib.CPP.Z,257"$
|
||||||
$LK,"PrsVarLst",A="FL:::/Compiler/PrsVar.CPP.Z,416",BI=43$
|
$LK,"PrsVarLst",A="FL:::/Compiler/PrsVar.CPP.Z,416",BI=41$
|
||||||
$LK,"PrsAsmDefine",A="FL:::/Compiler/Asm.CPP.Z,811",BI=44$
|
$LK,"PrsAsmDefine",A="FL:::/Compiler/Asm.CPP.Z,811",BI=42$
|
||||||
$LK,"PrsAddOp",A="FL:::/Compiler/PrsExp.CPP.Z,15",BI=45$
|
$LK,"PrsAddOp",A="FL:::/Compiler/PrsExp.CPP.Z,15",BI=43$
|
||||||
$LK,"LexWarn",A="FL:::/Compiler/CExcept.CPP.Z,65",BI=46$
|
$LK,"LexWarn",A="FL:::/Compiler/CExcept.CPP.Z,65",BI=44$
|
||||||
$LK,"PE_POP_ALL1",A="FL:::/Compiler/PrsExp.CPP.Z,12"$
|
$LK,"PE_POP_ALL1",A="FL:::/Compiler/PrsExp.CPP.Z,12"$
|
||||||
$LK,"PE_POP_ALL2",A="FL:::/Compiler/PrsExp.CPP.Z,13"$
|
$LK,"PE_POP_ALL2",A="FL:::/Compiler/PrsExp.CPP.Z,13"$
|
||||||
$LK,"COCAppend",A="FL:::/Compiler/PrsLib.CPP.Z,126",BI=47$
|
$LK,"COCAppend",A="FL:::/Compiler/PrsLib.CPP.Z,126",BI=45$
|
||||||
$LK,"LexFilePush",A="FL:::/Compiler/Lex.CPP.Z,1",BI=48$
|
$LK,"LexFilePush",A="FL:::/Compiler/Lex.CPP.Z,1",BI=46$
|
||||||
$LK,"CN_MAIN",A="FL:::/Compiler/BackFA.CPP.Z,3"$
|
$LK,"CN_MAIN",A="FL:::/Compiler/BackFA.CPP.Z,3"$
|
||||||
$LK,"PrsUnaryModifier",A="FL:::/Compiler/PrsExp.CPP.Z,956",BI=49$
|
$LK,"PrsUnaryModifier",A="FL:::/Compiler/PrsExp.CPP.Z,956",BI=47$
|
||||||
$LK,"OptFixupUnaryOp",A="FL:::/Compiler/OptLib.CPP.Z,196",BI=50$
|
$LK,"OptFixupUnaryOp",A="FL:::/Compiler/OptLib.CPP.Z,196",BI=48$
|
||||||
$LK,"LexPush",A="FL:::/Compiler/LexLib.CPP.Z,12",BI=51$
|
$LK,"LexPush",A="FL:::/Compiler/LexLib.CPP.Z,12",BI=49$
|
||||||
$LK,"SLASH_OP_MOV",A="FL:::/Compiler/BackLib.CPP.Z,261"$
|
$LK,"SLASH_OP_MOV",A="FL:::/Compiler/BackLib.CPP.Z,261"$
|
||||||
$LK,"ICPopRegs",A="FL:::/Compiler/BackLib.CPP.Z,381",BI=52$
|
$LK,"ICPopRegs",A="FL:::/Compiler/BackLib.CPP.Z,381",BI=50$
|
||||||
$LK,"SLASH_OP_MUL",A="FL:::/Compiler/BackLib.CPP.Z,258"$
|
$LK,"SLASH_OP_MUL",A="FL:::/Compiler/BackLib.CPP.Z,258"$
|
||||||
$LK,"SLASH_OP_NOT",A="FL:::/Compiler/BackLib.CPP.Z,256"$
|
$LK,"SLASH_OP_NOT",A="FL:::/Compiler/BackLib.CPP.Z,256"$
|
||||||
$LK,"NUM_INTERNAL_TYPES",A="FL:::/Compiler/CInit.CPP.Z,1"$
|
$LK,"NUM_INTERNAL_TYPES",A="FL:::/Compiler/CInit.CPP.Z,1"$
|
||||||
$LK,"SLASH_OP_POP",A="FL:::/Compiler/BackLib.CPP.Z,263"$
|
$LK,"SLASH_OP_POP",A="FL:::/Compiler/BackLib.CPP.Z,263"$
|
||||||
$LK,"ICFOp",A="FL:::/Compiler/BackFA.CPP.Z,360",BI=53$
|
$LK,"ICFOp",A="FL:::/Compiler/BackFA.CPP.Z,360",BI=51$
|
||||||
$LK,"CN_A1",A="FL:::/Compiler/BackFA.CPP.Z,2"$
|
$LK,"CN_A1",A="FL:::/Compiler/BackFA.CPP.Z,2"$
|
||||||
$LK,"CN_A2",A="FL:::/Compiler/BackFA.CPP.Z,1"$
|
$LK,"CN_A2",A="FL:::/Compiler/BackFA.CPP.Z,1"$
|
||||||
$LK,"LexExpressionF64",A="FL:::/Compiler/PrsExp.CPP.Z,1149",BI=54$
|
$LK,"LexExpressionF64",A="FL:::/Compiler/PrsExp.CPP.Z,1149",BI=52$
|
||||||
$LK,"ICAdd",A="FL:::/Compiler/PrsLib.CPP.Z,79",BI=55$
|
$LK,"ICAdd",A="FL:::/Compiler/PrsLib.CPP.Z,79",BI=53$
|
||||||
$LK,"CmpRawType",A="FL:::/Compiler/OptLib.CPP.Z,509",BI=56$
|
$LK,"CmpRawType",A="FL:::/Compiler/OptLib.CPP.Z,509",BI=54$
|
||||||
$LK,"LexExpressionI64",A="FL:::/Compiler/PrsExp.CPP.Z,1135",BI=57$
|
$LK,"ICFOpEqu",A="FL:::/Compiler/BackFB.CPP.Z,1",BI=55$
|
||||||
$LK,"ICQueInsRev",A="FL:::/Compiler/BackC.CPP.Z,452",BI=58$
|
$LK,"LexExpressionI64",A="FL:::/Compiler/PrsExp.CPP.Z,1135",BI=56$
|
||||||
$LK,"LexExpression",A="FL:::/Compiler/PrsExp.CPP.Z,1163",BI=59$
|
$LK,"ICQueInsRev",A="FL:::/Compiler/BackC.CPP.Z,452",BI=57$
|
||||||
$LK,"ICAddSubEctEqual",A="FL:::/Compiler/BackA.CPP.Z,545",BI=60$
|
$LK,"LexExpression",A="FL:::/Compiler/PrsExp.CPP.Z,1163",BI=58$
|
||||||
$LK,"PrsExpression",A="FL:::/Compiler/PrsExp.CPP.Z,264",BI=61$
|
$LK,"PrsExpression",A="FL:::/Compiler/PrsExp.CPP.Z,264",BI=59$
|
||||||
$LK,"PrsClassNew",A="FL:::/Compiler/PrsLib.CPP.Z,40",BI=62$
|
$LK,"PrsClassNew",A="FL:::/Compiler/PrsLib.CPP.Z,40",BI=60$
|
||||||
$LK,"LexInStr",A="FL:::/Compiler/Lex.CPP.Z,373",BI=63$
|
$LK,"LexInStr",A="FL:::/Compiler/Lex.CPP.Z,372",BI=61$
|
||||||
$LK,"internal_types_table",A="FL:::/Compiler/CInit.CPP.Z,6"$
|
$LK,"internal_types_table",A="FL:::/Compiler/CInit.CPP.Z,6"$
|
||||||
$LK,"OptPass3",A="FL:::/Compiler/OptPass3.CPP.Z,1",BI=64$
|
$LK,"OptPass3",A="FL:::/Compiler/OptPass3.CPP.Z,1",BI=62$
|
||||||
$LK,"OptPass4",A="FL:::/Compiler/OptPass4.CPP.Z,171",BI=65$
|
$LK,"OptPass4",A="FL:::/Compiler/OptPass4.CPP.Z,171",BI=63$
|
||||||
$LK,"OptPass5",A="FL:::/Compiler/OptPass5.CPP.Z,1",BI=66$
|
$LK,"OptPass5",A="FL:::/Compiler/OptPass5.CPP.Z,1",BI=64$
|
||||||
$LK,"OptPass6",A="FL:::/Compiler/OptPass6.CPP.Z,111",BI=67$
|
$LK,"OptPass6",A="FL:::/Compiler/OptPass6.CPP.Z,111",BI=65$
|
||||||
$LK,"Echo",A="FL:::/Compiler/CMisc.CPP.Z,24",BI=68$
|
$LK,"Echo",A="FL:::/Compiler/CMisc.CPP.Z,24",BI=66$
|
||||||
$LK,"PrsGlblVarLst",A="FL:::/Compiler/PrsStmt.CPP.Z,201",BI=69$
|
$LK,"PrsGlblVarLst",A="FL:::/Compiler/PrsStmt.CPP.Z,201",BI=67$
|
||||||
$LK,"ICQueInit",A="FL:::/Compiler/BackC.CPP.Z,397",BI=70$
|
$LK,"ICQueInit",A="FL:::/Compiler/BackC.CPP.Z,397",BI=68$
|
||||||
$LK,"ICCmp",A="FL:::/Compiler/BackB.CPP.Z,136",BI=71$
|
$LK,"ICCmp",A="FL:::/Compiler/BackB.CPP.Z,136",BI=69$
|
||||||
$LK,"ICAddRSP",A="FL:::/Compiler/BackLib.CPP.Z,69",BI=72$
|
$LK,"ICAddRSP",A="FL:::/Compiler/BackLib.CPP.Z,69",BI=70$
|
||||||
$LK,"ICDiv",A="FL:::/Compiler/BackA.CPP.Z,428",BI=73$
|
$LK,"ICDiv",A="FL:::/Compiler/BackA.CPP.Z,428",BI=71$
|
||||||
$LK,"ICDeref",A="FL:::/Compiler/BackLib.CPP.Z,647",BI=74$
|
$LK,"ICDeref",A="FL:::/Compiler/BackLib.CPP.Z,647",BI=72$
|
||||||
$LK,"ICLea",A="FL:::/Compiler/BackLib.CPP.Z,615",BI=75$
|
$LK,"ICLea",A="FL:::/Compiler/BackLib.CPP.Z,615",BI=73$
|
||||||
$LK,"CmpBuf",A="FL:::/Compiler/CMain.CPP.Z,157",BI=76$
|
$LK,"CmpBuf",A="FL:::/Compiler/CMain.CPP.Z,157",BI=74$
|
||||||
$LK,"CMP_TEMPLATES_DONT_PUSH_POP",A="FL:::/Compiler/Templates.CPP.Z,394"$
|
$LK,"CMP_TEMPLATES_DONT_PUSH_POP",A="FL:::/Compiler/Templates.CPP.Z,394"$
|
||||||
$LK,"ICAddEct",A="FL:::/Compiler/BackA.CPP.Z,1",BI=77$
|
$LK,"ICAddEct",A="FL:::/Compiler/BackA.CPP.Z,1",BI=75$
|
||||||
$LK,"ICToF64",A="FL:::/Compiler/BackB.CPP.Z,372",BI=78$
|
$LK,"ICToF64",A="FL:::/Compiler/BackB.CPP.Z,372",BI=76$
|
||||||
$LK,"PrsBinFile",A="FL:::/Compiler/Asm.CPP.Z,885",BI=79$
|
$LK,"PrsBinFile",A="FL:::/Compiler/Asm.CPP.Z,885",BI=77$
|
||||||
$LK,"HashTableSize2",A="FL:::/Compiler/CHash.CPP.Z,72",BI=80$
|
$LK,"HashTableSize2",A="FL:::/Compiler/CHash.CPP.Z,72",BI=78$
|
||||||
$LK,"HashEntrySize2",A="FL:::/Compiler/CHash.CPP.Z,33",BI=81$
|
$LK,"HashEntrySize2",A="FL:::/Compiler/CHash.CPP.Z,33",BI=79$
|
||||||
$LK,"Ui",A="FL:::/Compiler/UAsm.CPP.Z,238",BI=82$
|
$LK,"Ui",A="FL:::/Compiler/UAsm.CPP.Z,238",BI=80$
|
||||||
$LK,"ICSlashOp",A="FL:::/Compiler/BackLib.CPP.Z,275",BI=83$
|
$LK,"ICSlashOp",A="FL:::/Compiler/BackLib.CPP.Z,275",BI=81$
|
||||||
$LK,"OptBrZero",A="FL:::/Compiler/OptLib.CPP.Z,231",BI=84$
|
$LK,"OptBrZero",A="FL:::/Compiler/OptLib.CPP.Z,231",BI=82$
|
||||||
$LK,"Un",A="FL:::/Compiler/UAsm.CPP.Z,664",BI=85$
|
$LK,"Un",A="FL:::/Compiler/UAsm.CPP.Z,664",BI=83$
|
||||||
$LK,"PrsSizeOf",A="FL:::/Compiler/PrsExp.CPP.Z,298",BI=86$
|
$LK,"PrsSizeOf",A="FL:::/Compiler/PrsExp.CPP.Z,298",BI=84$
|
||||||
$LK,"ICMulEqual",A="FL:::/Compiler/BackA.CPP.Z,344",BI=87$
|
$LK,"ICToI64",A="FL:::/Compiler/BackB.CPP.Z,366",BI=85$
|
||||||
$LK,"ICToI64",A="FL:::/Compiler/BackB.CPP.Z,366",BI=88$
|
$LK,"ICMod",A="FL:::/Compiler/BackA.CPP.Z,521",BI=86$
|
||||||
$LK,"ICMod",A="FL:::/Compiler/BackA.CPP.Z,521",BI=89$
|
$LK,"OptSetNOP1",A="FL:::/Compiler/OptLib.CPP.Z,17",BI=87$
|
||||||
$LK,"OptSetNOP1",A="FL:::/Compiler/OptLib.CPP.Z,17",BI=90$
|
$LK,"OptPass789A",A="FL:::/Compiler/OptPass789A.CPP.Z,1",BI=88$
|
||||||
$LK,"OptPass789A",A="FL:::/Compiler/OptPass789A.CPP.Z,1",BI=91$
|
$LK,"OptSetNOP2",A="FL:::/Compiler/OptLib.CPP.Z,25",BI=89$
|
||||||
$LK,"OptSetNOP2",A="FL:::/Compiler/OptLib.CPP.Z,25",BI=92$
|
|
||||||
$LK,"FBO1_F64",A="FL:::/Compiler/OptLib.CPP.Z,94"$
|
$LK,"FBO1_F64",A="FL:::/Compiler/OptLib.CPP.Z,94"$
|
||||||
$LK,"ICToUpper",A="FL:::/Compiler/BackB.CPP.Z,355",BI=93$
|
$LK,"ICXorEqu",A="FL:::/Compiler/BackC.CPP.Z,736",BI=90$
|
||||||
$LK,"AsmLexExpression",A="FL:::/Compiler/AsmLib.CPP.Z,129",BI=94$
|
$LK,"ICToUpper",A="FL:::/Compiler/BackB.CPP.Z,355",BI=91$
|
||||||
$LK,"ICMov",A="FL:::/Compiler/BackLib.CPP.Z,435",BI=95$
|
$LK,"AsmLexExpression",A="FL:::/Compiler/AsmLib.CPP.Z,129",BI=92$
|
||||||
$LK,"ICNot",A="FL:::/Compiler/BackB.CPP.Z,10",BI=96$
|
$LK,"ICMov",A="FL:::/Compiler/BackLib.CPP.Z,435",BI=93$
|
||||||
$LK,"ICMul",A="FL:::/Compiler/BackA.CPP.Z,286",BI=97$
|
$LK,"ICNot",A="FL:::/Compiler/BackB.CPP.Z,10",BI=94$
|
||||||
$LK,"ICRex",A="FL:::/Compiler/BackLib.CPP.Z,22",BI=98$
|
$LK,"ICMul",A="FL:::/Compiler/BackA.CPP.Z,286",BI=95$
|
||||||
$LK,"ICPop",A="FL:::/Compiler/BackLib.CPP.Z,354",BI=99$
|
$LK,"ICRex",A="FL:::/Compiler/BackLib.CPP.Z,22",BI=96$
|
||||||
|
$LK,"ICPop",A="FL:::/Compiler/BackLib.CPP.Z,354",BI=97$
|
||||||
$LK,"MDR_RIP_REL",A="FL:::/Compiler/BackLib.CPP.Z,139"$
|
$LK,"MDR_RIP_REL",A="FL:::/Compiler/BackLib.CPP.Z,139"$
|
||||||
$LK,"SLASH_OP_FADD",A="FL:::/Compiler/BackLib.CPP.Z,264"$
|
$LK,"SLASH_OP_FADD",A="FL:::/Compiler/BackLib.CPP.Z,264"$
|
||||||
$LK,"ICSub",A="FL:::/Compiler/BackA.CPP.Z,207",BI=100$
|
$LK,"LexStmt2Bin",A="FL:::/Compiler/CMain.CPP.Z,1",BI=98$
|
||||||
$LK,"COCFloatConstFind",A="FL:::/Compiler/PrsLib.CPP.Z,164",BI=101$
|
$LK,"ICSub",A="FL:::/Compiler/BackA.CPP.Z,207",BI=99$
|
||||||
$LK,"ICPut",A="FL:::/Compiler/CExcept.CPP.Z,186",BI=102$
|
$LK,"COCFloatConstFind",A="FL:::/Compiler/PrsLib.CPP.Z,164",BI=100$
|
||||||
$LK,"PrsArrayDims",A="FL:::/Compiler/PrsVar.CPP.Z,247",BI=103$
|
$LK,"ICPut",A="FL:::/Compiler/CExcept.CPP.Z,186",BI=101$
|
||||||
$LK,"ICSqr",A="FL:::/Compiler/BackC.CPP.Z,581",BI=104$
|
$LK,"PrsArrayDims",A="FL:::/Compiler/PrsVar.CPP.Z,247",BI=102$
|
||||||
|
$LK,"ICSqr",A="FL:::/Compiler/BackC.CPP.Z,581",BI=103$
|
||||||
$LK,"FBO1_NOT_CONST",A="FL:::/Compiler/OptLib.CPP.Z,92"$
|
$LK,"FBO1_NOT_CONST",A="FL:::/Compiler/OptLib.CPP.Z,92"$
|
||||||
$LK,"CMP_TEMPLATES_DONT_POP",A="FL:::/Compiler/Templates.CPP.Z,178"$
|
$LK,"CMP_TEMPLATES_DONT_POP",A="FL:::/Compiler/Templates.CPP.Z,178"$
|
||||||
$LK,"PrsClass",A="FL:::/Compiler/PrsStmt.CPP.Z,1",BI=105$
|
$LK,"PrsClass",A="FL:::/Compiler/PrsStmt.CPP.Z,1",BI=104$
|
||||||
$LK,"MemberMetaData",A="FL:::/Compiler/LexLib.CPP.Z,45",BI=106$
|
$LK,"MemberMetaData",A="FL:::/Compiler/LexLib.CPP.Z,45",BI=105$
|
||||||
$LK,"ICSwitch",A="FL:::/Compiler/BackC.CPP.Z,757",BI=107$
|
$LK,"ICSwitch",A="FL:::/Compiler/BackC.CPP.Z,757",BI=106$
|
||||||
$LK,"OptBrNotZero",A="FL:::/Compiler/OptLib.CPP.Z,358",BI=108$
|
$LK,"OptBrNotZero",A="FL:::/Compiler/OptLib.CPP.Z,358",BI=107$
|
||||||
$LK,"ICShiftEqual",A="FL:::/Compiler/BackA.CPP.Z,726",BI=109$
|
$LK,"LexPutToken",A="FL:::/Compiler/CExcept.CPP.Z,1",BI=108$
|
||||||
$LK,"LexPutToken",A="FL:::/Compiler/CExcept.CPP.Z,1",BI=110$
|
|
||||||
$LK,"SLASH_OP_FDIV",A="FL:::/Compiler/BackLib.CPP.Z,268"$
|
$LK,"SLASH_OP_FDIV",A="FL:::/Compiler/BackLib.CPP.Z,268"$
|
||||||
$LK,"AsmHashLoad",A="FL:::/Compiler/AsmInit.CPP.Z,50",BI=111$
|
$LK,"AsmHashLoad",A="FL:::/Compiler/AsmInit.CPP.Z,50",BI=109$
|
||||||
$LK,"UAsmHashLoad",A="FL:::/Compiler/UAsm.CPP.Z,188",BI=112$
|
$LK,"UAsmHashLoad",A="FL:::/Compiler/UAsm.CPP.Z,188",BI=110$
|
||||||
$LK,"UnusedExternWarning",A="FL:::/Compiler/CExcept.CPP.Z,104",BI=113$
|
$LK,"UnusedExternWarning",A="FL:::/Compiler/CExcept.CPP.Z,104",BI=111$
|
||||||
$LK,"SLASH_OP_FILD",A="FL:::/Compiler/BackLib.CPP.Z,273"$
|
$LK,"SLASH_OP_FILD",A="FL:::/Compiler/BackLib.CPP.Z,273"$
|
||||||
$LK,"ICXorXor",A="FL:::/Compiler/BackB.CPP.Z,98",BI=114$
|
$LK,"ICXorXor",A="FL:::/Compiler/BackB.CPP.Z,98",BI=112$
|
||||||
$LK,"PrsTryBlk",A="FL:::/Compiler/PrsStmt.CPP.Z,831",BI=115$
|
$LK,"PrsTryBlk",A="FL:::/Compiler/PrsStmt.CPP.Z,831",BI=113$
|
||||||
$LK,"CInit",A="FL:::/Compiler/CMain.CPP.Z,684",BI=116$
|
$LK,"CInit",A="FL:::/Compiler/CMain.CPP.Z,684",BI=114$
|
||||||
$LK,"MemberMetaFind",A="FL:::/Compiler/LexLib.CPP.Z,56",BI=117$
|
$LK,"MemberMetaFind",A="FL:::/Compiler/LexLib.CPP.Z,56",BI=115$
|
||||||
$LK,"ExePrint2",A="FL:::/Compiler/CMain.CPP.Z,646",BI=118$
|
$LK,"ExePrint2",A="FL:::/Compiler/CMain.CPP.Z,646",BI=116$
|
||||||
$LK,"FBO1_INT",A="FL:::/Compiler/OptLib.CPP.Z,93"$
|
$LK,"FBO1_INT",A="FL:::/Compiler/OptLib.CPP.Z,93"$
|
||||||
$LK,"PE_DO_UNARY_OP",A="FL:::/Compiler/PrsExp.CPP.Z,8"$
|
$LK,"PE_DO_UNARY_OP",A="FL:::/Compiler/PrsExp.CPP.Z,8"$
|
||||||
$LK,"PrsVarInit",A="FL:::/Compiler/PrsVar.CPP.Z,1",BI=119$
|
$LK,"PrsVarInit",A="FL:::/Compiler/PrsVar.CPP.Z,1",BI=117$
|
||||||
$LK,"ICModr1",A="FL:::/Compiler/BackLib.CPP.Z,141",BI=120$
|
$LK,"ICOrEqu",A="FL:::/Compiler/BackC.CPP.Z,715",BI=118$
|
||||||
$LK,"ICModr2",A="FL:::/Compiler/BackLib.CPP.Z,223",BI=121$
|
$LK,"ICModr1",A="FL:::/Compiler/BackLib.CPP.Z,141",BI=119$
|
||||||
|
$LK,"ICModr2",A="FL:::/Compiler/BackLib.CPP.Z,223",BI=120$
|
||||||
$LK,"SLASH_OP_FMUL",A="FL:::/Compiler/BackLib.CPP.Z,267"$
|
$LK,"SLASH_OP_FMUL",A="FL:::/Compiler/BackLib.CPP.Z,267"$
|
||||||
$LK,"ICPreIncDec",A="FL:::/Compiler/BackB.CPP.Z,393",BI=122$
|
$LK,"ICPreIncDec",A="FL:::/Compiler/BackB.CPP.Z,393",BI=121$
|
||||||
$LK,"PrsAsmInstruction",A="FL:::/Compiler/Asm.CPP.Z,390",BI=123$
|
$LK,"PrsAsmInstruction",A="FL:::/Compiler/Asm.CPP.Z,390",BI=122$
|
||||||
$LK,"PrsUnaryTerm",A="FL:::/Compiler/PrsExp.CPP.Z,588",BI=124$
|
$LK,"PrsUnaryTerm",A="FL:::/Compiler/PrsExp.CPP.Z,588",BI=123$
|
||||||
$LK,"ICFModEqual",A="FL:::/Compiler/BackFA.CPP.Z,585",BI=125$
|
$LK,"MemberLstDel",A="FL:::/Compiler/LexLib.CPP.Z,157",BI=124$
|
||||||
$LK,"MemberLstDel",A="FL:::/Compiler/LexLib.CPP.Z,157",BI=126$
|
|
||||||
$LK,"SLASH_OP_FSUB",A="FL:::/Compiler/BackLib.CPP.Z,265"$
|
$LK,"SLASH_OP_FSUB",A="FL:::/Compiler/BackLib.CPP.Z,265"$
|
||||||
$LK,"ICAndAnd",A="FL:::/Compiler/BackB.CPP.Z,31",BI=127$
|
$LK,"ICAndAnd",A="FL:::/Compiler/BackB.CPP.Z,31",BI=125$
|
||||||
$LK,"InstEntriesCompare",A="FL:::/Compiler/UAsm.CPP.Z,1",BI=128$
|
$LK,"InstEntriesCompare",A="FL:::/Compiler/UAsm.CPP.Z,1",BI=126$
|
||||||
$LK,"SLASH_OP_IMUL",A="FL:::/Compiler/BackLib.CPP.Z,259"$
|
$LK,"SLASH_OP_IMUL",A="FL:::/Compiler/BackLib.CPP.Z,259"$
|
||||||
$LK,"SLASH_OP_FSTP",A="FL:::/Compiler/BackLib.CPP.Z,271"$
|
$LK,"SLASH_OP_FSTP",A="FL:::/Compiler/BackLib.CPP.Z,271"$
|
||||||
$LK,"COCDel",A="FL:::/Compiler/PrsLib.CPP.Z,186",BI=129$
|
$LK,"COCDel",A="FL:::/Compiler/PrsLib.CPP.Z,186",BI=127$
|
||||||
$LK,"PE_UNARY_TERM1",A="FL:::/Compiler/PrsExp.CPP.Z,1"$
|
$LK,"PE_UNARY_TERM1",A="FL:::/Compiler/PrsExp.CPP.Z,1"$
|
||||||
$LK,"ICFAdd",A="FL:::/Compiler/BackFB.CPP.Z,599",BI=130$
|
$LK,"ICFAdd",A="FL:::/Compiler/BackFB.CPP.Z,599",BI=128$
|
||||||
$LK,"PE_UNARY_TERM2",A="FL:::/Compiler/PrsExp.CPP.Z,2"$
|
$LK,"PE_UNARY_TERM2",A="FL:::/Compiler/PrsExp.CPP.Z,2"$
|
||||||
$LK,"CmdLinePmt",A="FL:::/Compiler/CMisc.CPP.Z,88",BI=131$
|
$LK,"CmdLinePmt",A="FL:::/Compiler/CMisc.CPP.Z,88",BI=129$
|
||||||
$LK,"AsmMakeArgMask",A="FL:::/Compiler/Asm.CPP.Z,172",BI=132$
|
$LK,"AsmMakeArgMask",A="FL:::/Compiler/Asm.CPP.Z,172",BI=130$
|
||||||
$LK,"COCHeaderPut",A="FL:::/Compiler/PrsLib.CPP.Z,229",BI=133$
|
$LK,"COCHeaderPut",A="FL:::/Compiler/PrsLib.CPP.Z,229",BI=131$
|
||||||
$LK,"PrsGlblInit",A="FL:::/Compiler/PrsVar.CPP.Z,206",BI=134$
|
$LK,"PrsGlblInit",A="FL:::/Compiler/PrsVar.CPP.Z,206",BI=132$
|
||||||
$LK,"LexD2I32",A="FL:::/Compiler/CMisc.CPP.Z,52",BI=135$
|
$LK,"ICAndEqu",A="FL:::/Compiler/BackC.CPP.Z,694",BI=133$
|
||||||
$LK,"MemberLstNew",A="FL:::/Compiler/LexLib.CPP.Z,150",BI=136$
|
$LK,"LexD2I32",A="FL:::/Compiler/CMisc.CPP.Z,52",BI=134$
|
||||||
$LK,"LexD3I32",A="FL:::/Compiler/CMisc.CPP.Z,68",BI=137$
|
$LK,"MemberLstNew",A="FL:::/Compiler/LexLib.CPP.Z,150",BI=135$
|
||||||
$LK,"OptClassFwd",A="FL:::/Compiler/OptLib.CPP.Z,9",BI=138$
|
$LK,"LexD3I32",A="FL:::/Compiler/CMisc.CPP.Z,68",BI=136$
|
||||||
$LK,"ICFCmp",A="FL:::/Compiler/BackFA.CPP.Z,545",BI=139$
|
$LK,"OptClassFwd",A="FL:::/Compiler/OptLib.CPP.Z,9",BI=137$
|
||||||
$LK,"PrsSwitch",A="FL:::/Compiler/PrsStmt.CPP.Z,575",BI=140$
|
$LK,"ICFCmp",A="FL:::/Compiler/BackFA.CPP.Z,545",BI=138$
|
||||||
$LK,"ICFDiv",A="FL:::/Compiler/BackFB.CPP.Z,587",BI=141$
|
$LK,"PrsSwitch",A="FL:::/Compiler/PrsStmt.CPP.Z,575",BI=139$
|
||||||
$LK,"AOTStoreCodeU8At",A="FL:::/Compiler/AsmLib.CPP.Z,108",BI=142$
|
$LK,"ICFDiv",A="FL:::/Compiler/BackFB.CPP.Z,587",BI=140$
|
||||||
|
$LK,"AOTStoreCodeU8At",A="FL:::/Compiler/AsmLib.CPP.Z,108",BI=141$
|
||||||
$LK,"PE_PUSH_LOWER",A="FL:::/Compiler/PrsExp.CPP.Z,11"$
|
$LK,"PE_PUSH_LOWER",A="FL:::/Compiler/PrsExp.CPP.Z,11"$
|
||||||
$LK,"ICXorEqual",A="FL:::/Compiler/BackC.CPP.Z,736",BI=143$
|
$LK,"OptPass6Lag",A="FL:::/Compiler/OptPass6.CPP.Z,28",BI=142$
|
||||||
$LK,"OptPass6Lag",A="FL:::/Compiler/OptPass6.CPP.Z,28",BI=144$
|
$LK,"OptLag1",A="FL:::/Compiler/OptLib.CPP.Z,51",BI=143$
|
||||||
$LK,"OptLag1",A="FL:::/Compiler/OptLib.CPP.Z,51",BI=145$
|
$LK,"OptLag2",A="FL:::/Compiler/OptLib.CPP.Z,62",BI=144$
|
||||||
$LK,"OptLag2",A="FL:::/Compiler/OptLib.CPP.Z,62",BI=146$
|
$LK,"StreamPrint",A="FL:::/Compiler/CMisc.CPP.Z,29",BI=145$
|
||||||
$LK,"StreamPrint",A="FL:::/Compiler/CMisc.CPP.Z,29",BI=147$
|
$LK,"ICFCvt",A="FL:::/Compiler/BackFA.CPP.Z,121",BI=146$
|
||||||
$LK,"ICFCvt",A="FL:::/Compiler/BackFA.CPP.Z,121",BI=148$
|
$LK,"StreamDir",A="FL:::/Compiler/CMisc.CPP.Z,43",BI=147$
|
||||||
$LK,"StreamDir",A="FL:::/Compiler/CMisc.CPP.Z,43",BI=149$
|
$LK,"PrsOffsetOf",A="FL:::/Compiler/PrsExp.CPP.Z,348",BI=148$
|
||||||
$LK,"PrsOffsetOf",A="FL:::/Compiler/PrsExp.CPP.Z,348",BI=150$
|
|
||||||
$LK,"MDR_REG",A="FL:::/Compiler/BackLib.CPP.Z,132"$
|
$LK,"MDR_REG",A="FL:::/Compiler/BackLib.CPP.Z,132"$
|
||||||
$LK,"GetOption",A="FL:::/Compiler/CMisc.CPP.Z,6",BI=151$
|
$LK,"GetOption",A="FL:::/Compiler/CMisc.CPP.Z,6",BI=149$
|
||||||
$LK,"PrsDoWhile",A="FL:::/Compiler/PrsStmt.CPP.Z,503",BI=152$
|
$LK,"PrsDoWhile",A="FL:::/Compiler/PrsStmt.CPP.Z,503",BI=150$
|
||||||
$LK,"LexStatement2Bin",A="FL:::/Compiler/CMain.CPP.Z,1",BI=153$
|
$LK,"ICShift",A="FL:::/Compiler/BackA.CPP.Z,693",BI=151$
|
||||||
$LK,"ICShift",A="FL:::/Compiler/BackA.CPP.Z,693",BI=154$
|
$LK,"ICFMod",A="FL:::/Compiler/BackFA.CPP.Z,249",BI=152$
|
||||||
$LK,"ICFMod",A="FL:::/Compiler/BackFA.CPP.Z,249",BI=155$
|
$LK,"COCPop",A="FL:::/Compiler/PrsLib.CPP.Z,121",BI=153$
|
||||||
$LK,"COCPop",A="FL:::/Compiler/PrsLib.CPP.Z,121",BI=156$
|
$LK,"PrsExpression2",A="FL:::/Compiler/PrsExp.CPP.Z,65",BI=154$
|
||||||
$LK,"PrsExpression2",A="FL:::/Compiler/PrsExp.CPP.Z,65",BI=157$
|
|
||||||
$LK,"SLASH_OP_PUSH",A="FL:::/Compiler/BackLib.CPP.Z,262"$
|
$LK,"SLASH_OP_PUSH",A="FL:::/Compiler/BackLib.CPP.Z,262"$
|
||||||
$LK,"PE_DEREFERENCE",A="FL:::/Compiler/PrsExp.CPP.Z,5"$
|
$LK,"PE_DEREFERENCE",A="FL:::/Compiler/PrsExp.CPP.Z,5"$
|
||||||
$LK,"LexPopRestore",A="FL:::/Compiler/LexLib.CPP.Z,23",BI=158$
|
$LK,"LexPopRestore",A="FL:::/Compiler/LexLib.CPP.Z,23",BI=155$
|
||||||
$LK,"ICUnaries",A="FL:::/Compiler/BackB.CPP.Z,1",BI=159$
|
$LK,"ICUnaries",A="FL:::/Compiler/BackB.CPP.Z,1",BI=156$
|
||||||
$LK,"ICFMul",A="FL:::/Compiler/BackFB.CPP.Z,569",BI=160$
|
$LK,"ICFMul",A="FL:::/Compiler/BackFB.CPP.Z,569",BI=157$
|
||||||
$LK,"LexExpression2Bin",A="FL:::/Compiler/PrsExp.CPP.Z,1112",BI=161$
|
$LK,"ICShiftEqu",A="FL:::/Compiler/BackA.CPP.Z,726",BI=158$
|
||||||
$LK,"ICFPow",A="FL:::/Compiler/BackFA.CPP.Z,280",BI=162$
|
$LK,"LexExpression2Bin",A="FL:::/Compiler/PrsExp.CPP.Z,1112",BI=159$
|
||||||
$LK,"MapFileWrite",A="FL:::/Compiler/CHash.CPP.Z,90",BI=163$
|
$LK,"ICFPow",A="FL:::/Compiler/BackFA.CPP.Z,280",BI=160$
|
||||||
$LK,"ICFSub",A="FL:::/Compiler/BackFB.CPP.Z,635",BI=164$
|
$LK,"MapFileWrite",A="FL:::/Compiler/CHash.CPP.Z,90",BI=161$
|
||||||
$LK,"CmpF1PushPop",A="FL:::/Compiler/OptLib.CPP.Z,529",BI=165$
|
$LK,"ICFSub",A="FL:::/Compiler/BackFB.CPP.Z,635",BI=162$
|
||||||
$LK,"OptFree",A="FL:::/Compiler/OptLib.CPP.Z,33",BI=166$
|
$LK,"ICFModEqu",A="FL:::/Compiler/BackFA.CPP.Z,585",BI=163$
|
||||||
|
$LK,"CmpF1PushPop",A="FL:::/Compiler/OptLib.CPP.Z,529",BI=164$
|
||||||
|
$LK,"OptFree",A="FL:::/Compiler/OptLib.CPP.Z,33",BI=165$
|
||||||
$LK,"CMP_TEMPLATES_DONT_PUSH2",A="FL:::/Compiler/Templates.CPP.Z,458"$
|
$LK,"CMP_TEMPLATES_DONT_PUSH2",A="FL:::/Compiler/Templates.CPP.Z,458"$
|
||||||
$LK,"CInternalType",A="FL:::/Compiler/CInit.CPP.Z,3"$
|
$LK,"CInternalType",A="FL:::/Compiler/CInit.CPP.Z,3"$
|
||||||
$LK,"LexDollar",A="FL:::/Compiler/Lex.CPP.Z,93",BI=167$
|
$LK,"LexDollar",A="FL:::/Compiler/Lex.CPP.Z,93",BI=166$
|
||||||
$LK,"AsmUnresolvedAdd",A="FL:::/Compiler/AsmResolve.CPP.Z,189",BI=168$
|
$LK,"AsmUnresolvedAdd",A="FL:::/Compiler/AsmResolve.CPP.Z,189",BI=167$
|
||||||
$LK,"AOTStoreCodeU8",A="FL:::/Compiler/AsmLib.CPP.Z,1",BI=169$
|
$LK,"AOTStoreCodeU8",A="FL:::/Compiler/AsmLib.CPP.Z,1",BI=168$
|
||||||
$LK,"MDR_INDIRECT_REG",A="FL:::/Compiler/BackLib.CPP.Z,133"$
|
$LK,"MDR_INDIRECT_REG",A="FL:::/Compiler/BackLib.CPP.Z,133"$
|
||||||
$LK,"ICBitOps",A="FL:::/Compiler/BackB.CPP.Z,256",BI=170$
|
$LK,"ICBitOps",A="FL:::/Compiler/BackB.CPP.Z,256",BI=169$
|
||||||
$LK,"lex_zeros",A="FL:::/Compiler/Lex.CPP.Z,91"$
|
$LK,"lex_zeros",A="FL:::/Compiler/Lex.CPP.Z,91"$
|
||||||
$LK,"CSwitchCase",A="FL:::/Compiler/PrsStmt.CPP.Z,568"$
|
$LK,"CSwitchCase",A="FL:::/Compiler/PrsStmt.CPP.Z,568"$
|
||||||
$LK,"AsmResolve",A="FL:::/Compiler/AsmResolve.CPP.Z,1",BI=171$
|
$LK,"AsmResolve",A="FL:::/Compiler/AsmResolve.CPP.Z,1",BI=170$
|
||||||
$LK,"COCCompile",A="FL:::/Compiler/PrsLib.CPP.Z,249",BI=172$
|
$LK,"COCCompile",A="FL:::/Compiler/PrsLib.CPP.Z,249",BI=171$
|
||||||
$LK,"Cmp",A="FL:::/Compiler/CMain.CPP.Z,419",BI=173$
|
$LK,"Cmp",A="FL:::/Compiler/CMain.CPP.Z,419",BI=172$
|
||||||
$LK,"PrsPush2",A="FL:::/Compiler/PrsLib.CPP.Z,11",BI=174$
|
$LK,"PrsPush2",A="FL:::/Compiler/PrsLib.CPP.Z,11",BI=173$
|
||||||
$LK,"ICArgPut",A="FL:::/Compiler/CExcept.CPP.Z,141",BI=175$
|
$LK,"ICArgPut",A="FL:::/Compiler/CExcept.CPP.Z,141",BI=174$
|
||||||
$LK,"UndefinedExtern",A="FL:::/Compiler/CExcept.CPP.Z,98",BI=176$
|
$LK,"UndefinedExtern",A="FL:::/Compiler/CExcept.CPP.Z,98",BI=175$
|
||||||
$LK,"OptIC4",A="FL:::/Compiler/OptPass4.CPP.Z,1",BI=177$
|
$LK,"OptIC4",A="FL:::/Compiler/OptPass4.CPP.Z,1",BI=176$
|
||||||
$LK,"OptIC6",A="FL:::/Compiler/OptPass6.CPP.Z,1",BI=178$
|
$LK,"OptIC6",A="FL:::/Compiler/OptPass6.CPP.Z,1",BI=177$
|
||||||
$LK,"ICCmpAndBranch",A="FL:::/Compiler/BackB.CPP.Z,556",BI=179$
|
$LK,"ICCmpAndBranch",A="FL:::/Compiler/BackB.CPP.Z,556",BI=178$
|
||||||
$LK,"PrsStatement",A="FL:::/Compiler/PrsStmt.CPP.Z,893",BI=180$
|
$LK,"ICDivEqu",A="FL:::/Compiler/BackA.CPP.Z,452",BI=179$
|
||||||
$LK,"PrsWhile",A="FL:::/Compiler/PrsStmt.CPP.Z,483",BI=181$
|
$LK,"PrsWhile",A="FL:::/Compiler/PrsStmt.CPP.Z,483",BI=180$
|
||||||
$LK,"ICFCmpAndBranch",A="FL:::/Compiler/BackFB.CPP.Z,306",BI=182$
|
$LK,"ICFCmpAndBranch",A="FL:::/Compiler/BackFB.CPP.Z,306",BI=181$
|
||||||
$LK,"Lex",A="FL:::/Compiler/Lex.CPP.Z,443",BI=183$
|
$LK,"Lex",A="FL:::/Compiler/Lex.CPP.Z,442",BI=182$
|
||||||
$LK,"ICTestAndBranch",A="FL:::/Compiler/BackB.CPP.Z,736",BI=184$
|
$LK,"ICTestAndBranch",A="FL:::/Compiler/BackB.CPP.Z,736",BI=183$
|
||||||
$LK,"uasm",A="FL:::/Compiler/Compiler.PRJ.Z,21"$
|
$LK,"uasm",A="FL:::/Compiler/Compiler.PRJ.Z,21"$
|
||||||
$LK,"MDR_SIB_D32_INDIRECT_REG",A="FL:::/Compiler/BackLib.CPP.Z,138"$
|
$LK,"MDR_SIB_D32_INDIRECT_REG",A="FL:::/Compiler/BackLib.CPP.Z,138"$
|
||||||
$LK,"PE_MAYBE_MODIFIERS",A="FL:::/Compiler/PrsExp.CPP.Z,3"$
|
$LK,"PE_MAYBE_MODIFIERS",A="FL:::/Compiler/PrsExp.CPP.Z,3"$
|
||||||
$LK,"PE_UNARY_MODIFIERS",A="FL:::/Compiler/PrsExp.CPP.Z,4"$
|
$LK,"PE_UNARY_MODIFIERS",A="FL:::/Compiler/PrsExp.CPP.Z,4"$
|
||||||
$LK,"AOTLocalsResolve",A="FL:::/Compiler/AsmResolve.CPP.Z,42",BI=185$
|
$LK,"AOTLocalsResolve",A="FL:::/Compiler/AsmResolve.CPP.Z,42",BI=184$
|
||||||
$LK,"PE_DO_BINARY_OP",A="FL:::/Compiler/PrsExp.CPP.Z,9"$
|
$LK,"PE_DO_BINARY_OP",A="FL:::/Compiler/PrsExp.CPP.Z,9"$
|
||||||
$LK,"CmpFixUpAOTAsm",A="FL:::/Compiler/CMain.CPP.Z,302",BI=186$
|
$LK,"CmpFixUpAOTAsm",A="FL:::/Compiler/CMain.CPP.Z,302",BI=185$
|
||||||
$LK,"OptLabelFwd",A="FL:::/Compiler/OptLib.CPP.Z,1",BI=187$
|
$LK,"OptLabelFwd",A="FL:::/Compiler/OptLib.CPP.Z,1",BI=186$
|
||||||
$LK,"ICOrOr",A="FL:::/Compiler/BackB.CPP.Z,63",BI=188$
|
$LK,"ICOrOr",A="FL:::/Compiler/BackB.CPP.Z,63",BI=187$
|
||||||
$LK,"LexExcept",A="FL:::/Compiler/CExcept.CPP.Z,81",BI=189$
|
$LK,"LexExcept",A="FL:::/Compiler/CExcept.CPP.Z,81",BI=188$
|
||||||
$LK,"cmp_templates",A="FL:::/Compiler/CExts.CPP.Z,42"$
|
$LK,"cmp_templates",A="FL:::/Compiler/CExts.CPP.Z,42"$
|
||||||
$LK,"CmpF2PushPop",A="FL:::/Compiler/OptLib.CPP.Z,536",BI=190$
|
$LK,"CmpF2PushPop",A="FL:::/Compiler/OptLib.CPP.Z,536",BI=189$
|
||||||
$LK,"MDR_D32_INDIRECT_REG",A="FL:::/Compiler/BackLib.CPP.Z,135"$
|
$LK,"MDR_D32_INDIRECT_REG",A="FL:::/Compiler/BackLib.CPP.Z,135"$
|
||||||
$LK,"CmpJoin",A="FL:::/Compiler/CMain.CPP.Z,35",BI=191$
|
$LK,"CmpJoin",A="FL:::/Compiler/CMain.CPP.Z,35",BI=190$
|
||||||
$LK,"MDR_SIB_INDIRECT_REG",A="FL:::/Compiler/BackLib.CPP.Z,136"$
|
$LK,"MDR_SIB_INDIRECT_REG",A="FL:::/Compiler/BackLib.CPP.Z,136"$
|
||||||
$LK,"PrsPop2",A="FL:::/Compiler/PrsLib.CPP.Z,16",BI=192$
|
$LK,"PrsPop2",A="FL:::/Compiler/PrsLib.CPP.Z,16",BI=191$
|
||||||
$LK,"CMP_TEMPLATES",A="FL:::/Compiler/Templates.CPP.Z,4"$
|
$LK,"CMP_TEMPLATES",A="FL:::/Compiler/Templates.CPP.Z,4"$
|
||||||
$LK,"PrsAsmBlk",A="FL:::/Compiler/Asm.CPP.Z,901",BI=193$
|
$LK,"PrsAsmBlk",A="FL:::/Compiler/Asm.CPP.Z,901",BI=192$
|
||||||
$LK,"PrsAsmArg",A="FL:::/Compiler/Asm.CPP.Z,35",BI=194$
|
$LK,"PrsAsmArg",A="FL:::/Compiler/Asm.CPP.Z,35",BI=193$
|
||||||
$LK,"LexFirstRem",A="FL:::/Compiler/Lex.CPP.Z,276",BI=195$
|
$LK,"LexFirstRem",A="FL:::/Compiler/Lex.CPP.Z,276",BI=194$
|
||||||
$LK,"MemberClassBaseFind",A="FL:::/Compiler/LexLib.CPP.Z,87",BI=196$
|
$LK,"MemberClassBaseFind",A="FL:::/Compiler/LexLib.CPP.Z,87",BI=195$
|
||||||
$LK,"MemberFind",A="FL:::/Compiler/LexLib.CPP.Z,67",BI=197$
|
$LK,"MemberFind",A="FL:::/Compiler/LexLib.CPP.Z,67",BI=196$
|
||||||
$LK,"cmp",A="FL:::/Compiler/Compiler.PRJ.Z,16"$
|
$LK,"cmp",A="FL:::/Compiler/Compiler.PRJ.Z,16"$
|
||||||
$LK,"OptLag",A="FL:::/Compiler/OptLib.CPP.Z,40",BI=198$
|
$LK,"OptLag",A="FL:::/Compiler/OptLib.CPP.Z,40",BI=197$
|
||||||
$LK,"ICPostIncDec",A="FL:::/Compiler/BackB.CPP.Z,434",BI=199$
|
$LK,"ICPostIncDec",A="FL:::/Compiler/BackB.CPP.Z,434",BI=198$
|
||||||
$LK,"ICDivEqual",A="FL:::/Compiler/BackA.CPP.Z,452",BI=200$
|
$LK,"ICFPostIncDec",A="FL:::/Compiler/BackFB.CPP.Z,677",BI=199$
|
||||||
$LK,"ICFPostIncDec",A="FL:::/Compiler/BackFB.CPP.Z,677",BI=201$
|
$LK,"ICTest",A="FL:::/Compiler/BackLib.CPP.Z,403",BI=200$
|
||||||
$LK,"ICTest",A="FL:::/Compiler/BackLib.CPP.Z,403",BI=202$
|
$LK,"ICModU64",A="FL:::/Compiler/BackC.CPP.Z,588",BI=201$
|
||||||
$LK,"ICModU64",A="FL:::/Compiler/BackC.CPP.Z,588",BI=203$
|
$LK,"ICLastIns",A="FL:::/Compiler/BackLib.CPP.Z,59",BI=202$
|
||||||
$LK,"ICLastIns",A="FL:::/Compiler/BackLib.CPP.Z,59",BI=204$
|
$LK,"PrsAsmImm",A="FL:::/Compiler/Asm.CPP.Z,1",BI=203$
|
||||||
$LK,"PrsAsmImm",A="FL:::/Compiler/Asm.CPP.Z,1",BI=205$
|
$LK,"LexExtStr",A="FL:::/Compiler/LexLib.CPP.Z,218",BI=204$
|
||||||
$LK,"LexExtStr",A="FL:::/Compiler/LexLib.CPP.Z,218",BI=206$
|
$LK,"ICAddSubEctEqu",A="FL:::/Compiler/BackA.CPP.Z,545",BI=205$
|
||||||
$LK,"ICAddSubEctImm",A="FL:::/Compiler/BackA.CPP.Z,57",BI=207$
|
$LK,"ICAddSubEctImm",A="FL:::/Compiler/BackA.CPP.Z,57",BI=206$
|
||||||
$LK,"ICPush",A="FL:::/Compiler/BackLib.CPP.Z,303",BI=208$
|
$LK,"ICPush",A="FL:::/Compiler/BackLib.CPP.Z,303",BI=207$
|
||||||
$LK,"ICSwap",A="FL:::/Compiler/BackC.CPP.Z,632",BI=209$
|
$LK,"ICSwap",A="FL:::/Compiler/BackC.CPP.Z,632",BI=208$
|
||||||
$LK,"CMP_TEMPLATES_DONT_PUSH",A="FL:::/Compiler/Templates.CPP.Z,267"$
|
$LK,"CMP_TEMPLATES_DONT_PUSH",A="FL:::/Compiler/Templates.CPP.Z,267"$
|
||||||
$LK,"intermediate_code_table",A="FL:::/Compiler/CInit.CPP.Z,16"$
|
$LK,"intermediate_code_table",A="FL:::/Compiler/CInit.CPP.Z,16"$
|
||||||
$LK,"ICZero",A="FL:::/Compiler/BackLib.CPP.Z,394",BI=210$
|
$LK,"ICZero",A="FL:::/Compiler/BackLib.CPP.Z,394",BI=209$
|
||||||
$LK,"CmpCtrlDel",A="FL:::/Compiler/Lex.CPP.Z,58",BI=211$
|
$LK,"CmpCtrlDel",A="FL:::/Compiler/Lex.CPP.Z,58",BI=210$
|
||||||
$LK,"ICClassPut",A="FL:::/Compiler/CExcept.CPP.Z,117",BI=212$
|
$LK,"ICClassPut",A="FL:::/Compiler/CExcept.CPP.Z,117",BI=211$
|
||||||
$LK,"ICAssign",A="FL:::/Compiler/BackC.CPP.Z,159",BI=213$
|
$LK,"ICAssign",A="FL:::/Compiler/BackC.CPP.Z,159",BI=212$
|
||||||
$LK,"ICFTemplateFun",A="FL:::/Compiler/BackFB.CPP.Z,701",BI=214$
|
$LK,"ICFTemplateFun",A="FL:::/Compiler/BackFB.CPP.Z,701",BI=213$
|
||||||
$LK,"MemberAdd",A="FL:::/Compiler/LexLib.CPP.Z,103",BI=215$
|
$LK,"MemberAdd",A="FL:::/Compiler/LexLib.CPP.Z,103",BI=214$
|
||||||
$LK,"PrsPush",A="FL:::/Compiler/PrsLib.CPP.Z,1",BI=216$
|
$LK,"PrsPush",A="FL:::/Compiler/PrsLib.CPP.Z,1",BI=215$
|
||||||
$LK,"SLASH_OP_FDIVR",A="FL:::/Compiler/BackLib.CPP.Z,269"$
|
$LK,"SLASH_OP_FDIVR",A="FL:::/Compiler/BackLib.CPP.Z,269"$
|
||||||
$LK,"SLASH_OP_FISTTP",A="FL:::/Compiler/BackLib.CPP.Z,272"$
|
$LK,"SLASH_OP_FISTTP",A="FL:::/Compiler/BackLib.CPP.Z,272"$
|
||||||
$LK,"CmpCtrlSize",A="FL:::/Compiler/Lex.CPP.Z,70",BI=217$
|
$LK,"CmpCtrlSize",A="FL:::/Compiler/Lex.CPP.Z,70",BI=216$
|
||||||
$LK,"ICLocalVarInit",A="FL:::/Compiler/BackC.CPP.Z,923",BI=218$
|
$LK,"ICLocalVarInit",A="FL:::/Compiler/BackC.CPP.Z,923",BI=217$
|
||||||
$LK,"PrsFor",A="FL:::/Compiler/PrsStmt.CPP.Z,526",BI=219$
|
$LK,"PrsFor",A="FL:::/Compiler/PrsStmt.CPP.Z,526",BI=218$
|
||||||
$LK,"PassTrace",A="FL:::/Compiler/CMisc.CPP.Z,11",BI=220$
|
$LK,"PassTrace",A="FL:::/Compiler/CMisc.CPP.Z,11",BI=219$
|
||||||
$LK,"PrsPopDeref",A="FL:::/Compiler/PrsLib.CPP.Z,21",BI=221$
|
$LK,"PrsPopDeref",A="FL:::/Compiler/PrsLib.CPP.Z,21",BI=220$
|
||||||
$LK,"ICCopyTemplate",A="FL:::/Compiler/BackFA.CPP.Z,75",BI=222$
|
$LK,"ICCopyTemplate",A="FL:::/Compiler/BackFA.CPP.Z,75",BI=221$
|
||||||
|
$LK,"PrsStmt",A="FL:::/Compiler/PrsStmt.CPP.Z,893",BI=222$
|
||||||
$LK,"PrsFun",A="FL:::/Compiler/PrsStmt.CPP.Z,132",BI=223$
|
$LK,"PrsFun",A="FL:::/Compiler/PrsStmt.CPP.Z,132",BI=223$
|
||||||
$LK,"LexIncludeStr",A="FL:::/Compiler/Lex.CPP.Z,298",BI=224$
|
$LK,"LexIncludeStr",A="FL:::/Compiler/Lex.CPP.Z,298",BI=224$
|
||||||
$LK,"PrsType",A="FL:::/Compiler/PrsVar.CPP.Z,287",BI=225$
|
$LK,"PrsType",A="FL:::/Compiler/PrsVar.CPP.Z,287",BI=225$
|
||||||
$LK,"CmpCtrlNew",A="FL:::/Compiler/Lex.CPP.Z,28",BI=226$
|
$LK,"CmpCtrlNew",A="FL:::/Compiler/Lex.CPP.Z,28",BI=226$
|
||||||
$LK,"cmp_type_flags_src_code",A="FL:::/Compiler/Lex.CPP.Z,328"$
|
$LK,"cmp_type_flags_src_code",A="FL:::/Compiler/Lex.CPP.Z,327"$
|
||||||
$LK,"PrsVarInit2",A="FL:::/Compiler/PrsVar.CPP.Z,123",BI=227$
|
$LK,"PrsVarInit2",A="FL:::/Compiler/PrsVar.CPP.Z,123",BI=227$
|
||||||
$LK,"PrsPop",A="FL:::/Compiler/PrsLib.CPP.Z,6",BI=228$
|
$LK,"PrsPop",A="FL:::/Compiler/PrsLib.CPP.Z,6",BI=228$
|
||||||
$LK,"asm_seg_prefixes",A="FL:::/Compiler/Asm.CPP.Z,388"$
|
$LK,"asm_seg_prefixes",A="FL:::/Compiler/Asm.CPP.Z,388"$
|
||||||
@@ -294,157 +294,142 @@ $LK,"CmpLoadDefines",A="FL:::/Compiler/CInit.CPP.Z,205",BI=230$
|
|||||||
$LK,"PrsIf",A="FL:::/Compiler/PrsStmt.CPP.Z,456",BI=231$
|
$LK,"PrsIf",A="FL:::/Compiler/PrsStmt.CPP.Z,456",BI=231$
|
||||||
$LK,"ICBuiltInFloatConst",A="FL:::/Compiler/BackLib.CPP.Z,413",BI=232$
|
$LK,"ICBuiltInFloatConst",A="FL:::/Compiler/BackLib.CPP.Z,413",BI=232$
|
||||||
$LK,"ICFUnaryMinus",A="FL:::/Compiler/BackFA.CPP.Z,198",BI=233$
|
$LK,"ICFUnaryMinus",A="FL:::/Compiler/BackFA.CPP.Z,198",BI=233$
|
||||||
$LK,"ICOrEqual",A="FL:::/Compiler/BackC.CPP.Z,715",BI=234$
|
$LK,"LexDocRead",A="FL:::/Compiler/Lex.CPP.Z,310",BI=234$
|
||||||
$LK,"LexDocRead",A="FL:::/Compiler/Lex.CPP.Z,310",BI=235$
|
$LK,"CmpFixUpJITAsm",A="FL:::/Compiler/CMain.CPP.Z,174",BI=235$
|
||||||
$LK,"CmpFixUpJITAsm",A="FL:::/Compiler/CMain.CPP.Z,174",BI=236$
|
$LK,"COCPopNoFree",A="FL:::/Compiler/PrsLib.CPP.Z,114",BI=236$
|
||||||
$LK,"COCPopNoFree",A="FL:::/Compiler/PrsLib.CPP.Z,114",BI=237$
|
$LK,"ParenWarning",A="FL:::/Compiler/CExcept.CPP.Z,110",BI=237$
|
||||||
$LK,"ParenWarning",A="FL:::/Compiler/CExcept.CPP.Z,110",BI=238$
|
$LK,"PrsFunCall",A="FL:::/Compiler/PrsExp.CPP.Z,378",BI=238$
|
||||||
$LK,"PrsFunCall",A="FL:::/Compiler/PrsExp.CPP.Z,378",BI=239$
|
$LK,"ICDerefPostIncDec",A="FL:::/Compiler/BackB.CPP.Z,473",BI=239$
|
||||||
$LK,"ICDerefPostIncDec",A="FL:::/Compiler/BackB.CPP.Z,473",BI=240$
|
$LK,"Option",A="FL:::/Compiler/CMisc.CPP.Z,1",BI=240$
|
||||||
$LK,"Option",A="FL:::/Compiler/CMisc.CPP.Z,1",BI=241$
|
$LK,"ExeFile2",A="FL:::/Compiler/CMain.CPP.Z,655",BI=241$
|
||||||
$LK,"ExeFile2",A="FL:::/Compiler/CMain.CPP.Z,655",BI=242$
|
|
||||||
$LK,"COptMemberVar",A="FL:::/Compiler/OptLib.CPP.Z,550"$
|
$LK,"COptMemberVar",A="FL:::/Compiler/OptLib.CPP.Z,550"$
|
||||||
$LK,"PE_CHECK_BINARY_OPS1",A="FL:::/Compiler/PrsExp.CPP.Z,6"$
|
$LK,"PE_CHECK_BINARY_OPS1",A="FL:::/Compiler/PrsExp.CPP.Z,6"$
|
||||||
$LK,"PE_CHECK_BINARY_OPS2",A="FL:::/Compiler/PrsExp.CPP.Z,7"$
|
$LK,"PE_CHECK_BINARY_OPS2",A="FL:::/Compiler/PrsExp.CPP.Z,7"$
|
||||||
$LK,"LexBackupLastChar",A="FL:::/Compiler/LexLib.CPP.Z,1",BI=243$
|
$LK,"LexBackupLastChar",A="FL:::/Compiler/LexLib.CPP.Z,1",BI=242$
|
||||||
$LK,"Trace",A="FL:::/Compiler/CMisc.CPP.Z,19",BI=244$
|
$LK,"Trace",A="FL:::/Compiler/CMisc.CPP.Z,19",BI=243$
|
||||||
$LK,"ICBrBitOps",A="FL:::/Compiler/BackC.CPP.Z,211",BI=245$
|
$LK,"ICBrBitOps",A="FL:::/Compiler/BackC.CPP.Z,211",BI=244$
|
||||||
$LK,"LexGetChar",A="FL:::/Compiler/Lex.CPP.Z,107",BI=246$
|
$LK,"LexGetChar",A="FL:::/Compiler/Lex.CPP.Z,107",BI=245$
|
||||||
$LK,"LexSkipEol",A="FL:::/Compiler/Lex.CPP.Z,269",BI=247$
|
$LK,"LexSkipEol",A="FL:::/Compiler/Lex.CPP.Z,269",BI=246$
|
||||||
$LK,"ICFlagBranch",A="FL:::/Compiler/BackB.CPP.Z,785",BI=248$
|
$LK,"ICFlagBranch",A="FL:::/Compiler/BackB.CPP.Z,785",BI=247$
|
||||||
$LK,"SLASH_OP_FSUBR",A="FL:::/Compiler/BackLib.CPP.Z,266"$
|
$LK,"SLASH_OP_FSUBR",A="FL:::/Compiler/BackLib.CPP.Z,266"$
|
||||||
$LK,"ICFPreIncDec",A="FL:::/Compiler/BackFB.CPP.Z,657",BI=249$
|
$LK,"ICFPreIncDec",A="FL:::/Compiler/BackFB.CPP.Z,657",BI=248$
|
||||||
$LK,"ExeFile",A="FL:::/Compiler/CMain.CPP.Z,616",BI=250$
|
$LK,"ExeFile",A="FL:::/Compiler/CMain.CPP.Z,616",BI=249$
|
||||||
$LK,"COCMiscNew",A="FL:::/Compiler/PrsLib.CPP.Z,143",BI=251$
|
$LK,"COCMiscNew",A="FL:::/Compiler/PrsLib.CPP.Z,143",BI=250$
|
||||||
$LK,"cmp_templates_dont_pop",A="FL:::/Compiler/CExts.CPP.Z,43"$
|
$LK,"cmp_templates_dont_pop",A="FL:::/Compiler/CExts.CPP.Z,43"$
|
||||||
$LK,"CmpOffset2Reg",A="FL:::/Compiler/OptLib.CPP.Z,83",BI=252$
|
$LK,"CmpOffset2Reg",A="FL:::/Compiler/OptLib.CPP.Z,83",BI=251$
|
||||||
$LK,"PrsFunNew",A="FL:::/Compiler/PrsLib.CPP.Z,62",BI=253$
|
$LK,"PrsFunNew",A="FL:::/Compiler/PrsLib.CPP.Z,62",BI=252$
|
||||||
$LK,"StreamExePrint",A="FL:::/Compiler/CMain.CPP.Z,666",BI=254$
|
$LK,"StreamExePrint",A="FL:::/Compiler/CMain.CPP.Z,666",BI=253$
|
||||||
$LK,"COCGoToLabelFind",A="FL:::/Compiler/PrsLib.CPP.Z,152",BI=255$
|
$LK,"COCGoToLabelFind",A="FL:::/Compiler/PrsLib.CPP.Z,152",BI=254$
|
||||||
$LK,"OptMVCompare",A="FL:::/Compiler/OptLib.CPP.Z,556",BI=256$
|
$LK,"OptMVCompare",A="FL:::/Compiler/OptLib.CPP.Z,556",BI=255$
|
||||||
$LK,"ICToBool",A="FL:::/Compiler/BackB.CPP.Z,378",BI=257$
|
$LK,"ICToBool",A="FL:::/Compiler/BackB.CPP.Z,378",BI=256$
|
||||||
$LK,"PrsFunJoin",A="FL:::/Compiler/PrsStmt.CPP.Z,68",BI=258$
|
$LK,"PrsFunJoin",A="FL:::/Compiler/PrsStmt.CPP.Z,68",BI=257$
|
||||||
$LK,"PrsNoUnusedWarn",A="FL:::/Compiler/PrsStmt.CPP.Z,780",BI=259$
|
$LK,"PrsNoUnusedWarn",A="FL:::/Compiler/PrsStmt.CPP.Z,780",BI=258$
|
||||||
$LK,"OptFixSizeOf",A="FL:::/Compiler/OptLib.CPP.Z,485",BI=260$
|
$LK,"OptFixSizeOf",A="FL:::/Compiler/OptLib.CPP.Z,485",BI=259$
|
||||||
$LK,"cmp_templates_dont_push",A="FL:::/Compiler/CExts.CPP.Z,45"$
|
$LK,"cmp_templates_dont_push",A="FL:::/Compiler/CExts.CPP.Z,45"$
|
||||||
$LK,"cmp_templates_dont_push_pop",A="FL:::/Compiler/CExts.CPP.Z,46"$
|
$LK,"cmp_templates_dont_push_pop",A="FL:::/Compiler/CExts.CPP.Z,46"$
|
||||||
$LK,"LexAttachDoc",A="FL:::/Compiler/Lex.CPP.Z,331",BI=261$
|
$LK,"LexAttachDoc",A="FL:::/Compiler/Lex.CPP.Z,330",BI=260$
|
||||||
$LK,"PrsStreamBlk",A="FL:::/Compiler/PrsStmt.CPP.Z,794",BI=262$
|
$LK,"PrsStreamBlk",A="FL:::/Compiler/PrsStmt.CPP.Z,794",BI=261$
|
||||||
$LK,"cmp_templates_dont_push2",A="FL:::/Compiler/CExts.CPP.Z,44"$
|
$LK,"cmp_templates_dont_push2",A="FL:::/Compiler/CExts.CPP.Z,44"$
|
||||||
$LK,"InstEntryFind",A="FL:::/Compiler/UAsm.CPP.Z,66",BI=263$
|
$LK,"InstEntryFind",A="FL:::/Compiler/UAsm.CPP.Z,66",BI=262$
|
||||||
$LK,"PrsDotDotDot",A="FL:::/Compiler/PrsVar.CPP.Z,381",BI=264$
|
$LK,"PrsDotDotDot",A="FL:::/Compiler/PrsVar.CPP.Z,381",BI=263$
|
||||||
|
$LK,"ICMulEqu",A="FL:::/Compiler/BackA.CPP.Z,344",BI=264$
|
||||||
$LK,"AsmPrsInsFlags",A="FL:::/Compiler/AsmInit.CPP.Z,1",BI=265$
|
$LK,"AsmPrsInsFlags",A="FL:::/Compiler/AsmInit.CPP.Z,1",BI=265$
|
||||||
| |||||||