eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fillchar MPL procedure

This commit is contained in:
mysticbbs 2012-03-19 01:10:32 -04:00
parent f6d87b72a9
commit a428288e21
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mystic/mpl_common.pas
View File

@ -240,6 +240,8 @@ Begin
AddProc ({$IFDEF MPLPARSER} 'textcolor', {$ENDIF} 'b', iNone); // 86
AddProc ({$IFDEF MPLPARSER} 'addslash', {$ENDIF} 's', iString); // 87
AddProc ({$IFDEF MPLPARSER} 'strippipe', {$ENDIF} 's', iString); // 88
AddProc ({$IFDEF MPLPARSER} 'sizeof', {$ENDIF} '*', iLongInt); // 89
AddProc ({$IFDEF MPLPARSER} 'fillchar', {$ENDIF} '*lc', iNone); // 90
IW := 500; // BEGIN BBS-SPECIFIC STUFF

4
mystic/mpl_execute.pas
View File

@ -1600,6 +1600,10 @@ Begin
TempStr := strStripPipe(Param[1].S);
Store (TempStr, 256);
End;
89 : Begin // neeed to figure out SIZEOF.. time to redo this PARAM garbage finally
End;
90 : FillChar (Param[1].vData^, Param[2].L, Param[3].C);
// should check vDataSize once we get that figured out
500 : Begin
TempStr := Session.io.GetInput(Param[1].B, Param[2].B, Param[3].B, Param[4].S);
Store (TempStr, 256);