From a428288e216135cc249c8a4e4db251ec1390c8a9 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 19 Mar 2012 01:10:32 -0400
Subject: [PATCH] fillchar MPL procedure

---
 mystic/mpl_common.pas  | 2 ++
 mystic/mpl_execute.pas | 4 ++++
 2 files changed, 6 insertions(+)

diff --git a/mystic/mpl_common.pas b/mystic/mpl_common.pas
index 88046ed..acdfbe6 100644
--- a/mystic/mpl_common.pas
+++ b/mystic/mpl_common.pas
@@ -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
 
diff --git a/mystic/mpl_execute.pas b/mystic/mpl_execute.pas
index 5bc6279..71b6e0e 100644
--- a/mystic/mpl_execute.pas
+++ b/mystic/mpl_execute.pas
@@ -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);