eric
/
Renegade-1.19
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Now everything compiles

This commit is contained in:
Rick Parrish 2013-02-07 13:55:11 -05:00
parent 00cb4ec985
commit 88c971eb16
2 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.md
View File

@ -13,7 +13,6 @@ Ported to Win32 by Rick Parrish<br />
TODO list:<br /> TODO list:<br />
<ul> <ul>
<li>IFDEF out anything that doesn't compile and make a WIN32 placeholder that does a "WriteLn('REETODO UNIT FUNCTION'); Halt;" (then you can grep the executables for REETODO to see which REETODOs actually need to be implemented)</li>
<li>IFDEF out any ASM code blocks and handle the same as above</li> <li>IFDEF out any ASM code blocks and handle the same as above</li>
<li>WORD in RECORD to SMALLWORD</li> <li>WORD in RECORD to SMALLWORD</li>
<li>INTEGER in RECORD to SMALLINT</li> <li>INTEGER in RECORD to SMALLINT</li>
@ -27,4 +26,5 @@ TODO list:<br />
Completed list<br /> Completed list<br />
<ul> <ul>
<li>IFDEF out anything that doesn't compile and make a WIN32 placeholder that does a "WriteLn('REETODO UNIT FUNCTION'); Halt;" (then you can grep the executables for REETODO to see which REETODOs actually need to be implemented)</li>
</ul> </ul>

16
SOURCE/RENEMAIL.PAS
View File

@ -2,7 +2,9 @@
{$I DEFINES.INC} {$I DEFINES.INC}
{$ENDIF} {$ENDIF}
{$IFDEF MSDOS}
{$M 49152,0,65536} {$M 49152,0,65536}
{$ENDIF}
{$A+,I-,E-,F+} {$A+,I-,E-,F+}
PROGRAM ReneMail; PROGRAM ReneMail;
@ -80,7 +82,9 @@ VAR
FidoMsgHdr: FidoRecordType; FidoMsgHdr: FidoRecordType;
{$IFDEF MSDOS}
Regs: Registers; Regs: Registers;
{$ENDIF}
DirInfo: SearchRec; DirInfo: SearchRec;
@ -842,11 +846,16 @@ BEGIN
FCB[1] := Chr(Ord(MemMsgPath[1]) - 64) FCB[1] := Chr(Ord(MemMsgPath[1]) - 64)
ELSE ELSE
FCB[1] := Chr(Ord(StartDir[1]) - 64); FCB[1] := Chr(Ord(StartDir[1]) - 64);
{$IFDEF MSDOS}
Regs.DS := Seg(FCB); Regs.DS := Seg(FCB);
Regs.DX := Ofs(FCB); Regs.DX := Ofs(FCB);
Regs.AX := $1300; Regs.AX := $1300;
MSDOS(Regs); MSDOS(Regs);
Purged := (Lo(Regs.AX) = 0); Purged := (Lo(Regs.AX) = 0);
{$ENDIF}
{$IFDEF WIN32}
WriteLn('REETODO RENEMAIL PurgeDir'); Halt;
{$ENDIF}
END END
ELSE ELSE
BEGIN BEGIN
@ -1679,7 +1688,14 @@ BEGIN
END; END;
IF (IsNetMail) THEN IF (IsNetMail) THEN
{$IFDEF MSDOS}
FidoMsgHdr.Attribute := Word(RGMsgHdr.NetAttribute) FidoMsgHdr.Attribute := Word(RGMsgHdr.NetAttribute)
{$ENDIF}
{$IFDEF WIN32}
BEGIN
WriteLn('REETODO RENEMAIL Scan'); Halt;
END
{$ENDIF}
ELSE IF (Prvt IN RGMsgHdr.Status) THEN ELSE IF (Prvt IN RGMsgHdr.Status) THEN
FidoMsgHdr.Attribute := 257 FidoMsgHdr.Attribute := 257
ELSE ELSE