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 />
<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>WORD in RECORD to SMALLWORD</li>
<li>INTEGER in RECORD to SMALLINT</li>
@ -27,4 +26,5 @@ TODO list:<br />
Completed list<br />
<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>

16
SOURCE/RENEMAIL.PAS
View File

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