Re: [Active4d-dev] Compiler methods

Thu, 25 Sep 2003 18:41:22 +0200

At 10:33 09/25/2003 -0400, you wrote: 
Hi all,

Has anyone put together compiler methods for the various shells?

This is what I have and it was developed against 3.0 MC1. I can't promise that any extensions I've added aren't included though. There are two methods: one for methods, one for variables.

-- Brad

  ` Project Method: COMPILER_A4D_ShellMethods

  ` 11-Jul-2003, tct: added param declarations for
  ` new Active 4D v3.0MC1 methods


  `Function A4D_GETPARAM(Fixed string:255;Fixed string:255;...
  `...Fixed string:255):Fixed string:255
C_STRING(255;A4D_GetParam ;$0)
C_STRING(255;A4D_GetParam ;$1)
C_STRING(255;A4D_GetParam ;$2)
C_STRING(255;A4D_GetParam ;$3)

  `     (M)  A4D_Init

  `     (M)  A4D_ITK_Closer

  `     (M)  A4D_ITK_Master

`Function A4D_ITK_RECEIVECALLBACK(Long integer;Fixed string:255;Long integer;...
`... Long integer):BLOB
C_BLOB(A4D_ITK_ReceiveCallback ;$0)
C_LONGINT(A4D_ITK_ReceiveCallback ;$1)
C_STRING(255;A4D_ITK_ReceiveCallback ;$2)
C_LONGINT(A4D_ITK_ReceiveCallback ;$3)
C_LONGINT(A4D_ITK_ReceiveCallback ;$4)

  `Procedure A4D_ITK_SERVER(Long integer)
C_LONGINT(A4D_ITK_Server ;$1)

  `     (M)  A4D_ITK_Slave

  `Function A4D_ITK_STATUSCALLBACK(Long integer):Boolean
C_BOOLEAN(A4D_ITK_StatusCallback ;$0)
C_LONGINT(A4D_ITK_StatusCallback ;$1)

  `Procedure A4D_INITSSLHOOK(Pointer;Pointer;Pointer)
C_POINTER(A4D_InitSSLHook ;$1)
C_POINTER(A4D_InitSSLHook ;$2)
C_POINTER(A4D_InitSSLHook ;$3)

  `Procedure A4D_INITHOOK(Pointer)
C_POINTER(A4D_InitHook ;$1)

  `Procedure A4D_DEBUGINITHOOK(Pointer;Pointer)
C_POINTER(A4D_DebugInitHook ;$1)
C_POINTER(A4D_DebugInitHook ;$2)

  `     (M)  A4D_Console

  `     (M)  A4D_DebugInit

  `Procedure A4D_GETCURRENTSESSIONDATA(Long integer)
C_LONGINT(A4D_GetCurrentSessionData ;$1)

  `Procedure A4D_PREFS(Boolean)
C_BOOLEAN(A4D_Prefs ;$1)

  `Procedure A4D_SESSIONMONITOR(Boolean)
C_BOOLEAN(A4D_SessionMonitor ;$1)

  `Procedure A4D_SESSIONWATCHER(Long integer)
C_LONGINT(A4D_SessionWatcher ;$1)


  `     (M)  A4D_UpdateSessionStats

  `Procedure A4D_WRITETOCONSOLE(Text)
C_TEXT(A4D_WriteToConsole ;$1)

  `     (M)  A4D_ExecuteFile

  `     (M)  A4D_ExecuteText

  `Procedure A4D_SHOWOUTPUT(BLOB;Long integer;Long integer)
C_BLOB(A4D_ShowOutput ;$1)
C_LONGINT(A4D_ShowOutput ;$2)
C_LONGINT(A4D_ShowOutput ;$3)

  `Function A4D_PRESTREAMEXECUTEHOOK(Long integer):Boolean
C_BOOLEAN(A4D_PreStreamExecuteHook ;$0)
C_LONGINT(A4D_PreStreamExecuteHook ;$1)

  `Procedure A4D_POSTEXECUTEHOOK(Pointer;Pointer;Pointer)
C_POINTER(A4D_PostExecuteHook ;$1)
C_POINTER(A4D_PostExecuteHook ;$2)
C_POINTER(A4D_PostExecuteHook ;$3)

  ` 11-Jul-2003, tct:
C_LONGINT(A4D_SendMail ;$0)
C_TEXT(A4D_SendMail ;$1;$2;$3;$4;$5;$6;$7;$8)

  ` 11-Jul-2003, tct:
C_LONGINT(A4D_IPToLongint ;$0)
C_STRING(255;A4D_IPToLongint ;$1)


ARRAY LONGINT(A4D_SESSIONIDS;0)
ARRAY LONGINT(A4D_SESSIONREMAININGTIMES;0)
ARRAY LONGINT(A4D_SESSIONSIZES;0)

ARRAY REAL(A4D_SESSIONTIMEOUTS;0)

ARRAY STRING(15;<>A4D_FILTEREDIPS;0)
ARRAY STRING(255;A4D_SESSIONDATAKEYS;0)
ARRAY STRING(255;A4D_SESSIONDATATYPES;0)

ARRAY TEXT(<>A4D_CONSOLEMESSAGES;0)
ARRAY TEXT(A4D_PREFSTAB;0)
ARRAY TEXT(A4D_RESPONSEHEADERNAMES;0)
ARRAY TEXT(A4D_RESPONSEHEADERVALUES;0)
ARRAY TEXT(A4D_SESSIONDATAVALUES;0)

C_BLOB(A4D_RESPONSE)

C_BOOLEAN(<>A4D_CLIENTISWEBSERVER)
C_BOOLEAN(<>A4D_DEBUG)
C_BOOLEAN(<>A4D_EXITINGDB)
C_BOOLEAN(<>A4D_ISWEBSERVER)
C_BOOLEAN(A4D_WATCHSESSIONS)

C_DATE(A4D_EXPDATE)

C_LONGINT(<>A4D_CONSOLEPROCESS)
C_LONGINT(<>A4D_FILTERLIST)
C_LONGINT(<>A4D_FILTERNONE)
C_LONGINT(<>A4D_ITKVERSION)
C_LONGINT(<>A4D_ITK_CLOSER)
C_LONGINT(<>A4D_ITK_MASTER)
C_LONGINT(A4D_APPLY)
C_LONGINT(A4D_BUTTON)
C_LONGINT(A4D_CANCEL)
C_LONGINT(A4D_CONSOLEON)
C_LONGINT(A4D_DONE)
C_LONGINT(A4D_ERROR)
C_LONGINT(A4D_FILTERLIST)
C_LONGINT(A4D_FILTERNONE)
C_LONGINT(A4D_LICENSETYPE)
C_LONGINT(A4D_SESSIONID)
C_LONGINT(A4D_SESSIONWATCHERPID)
C_LONGINT(A4D_SHOWCLIENTIP)
C_LONGINT(A4D_SHOWTIME)
C_LONGINT(A4D_TICKS)

C_POINTER(<>A4D_DIALOGTABLE)
C_POINTER(A4D_SESSIONSORT)

C_STRING(255;<>A4D_HOSTADDR)
C_STRING(255;<>A4D_STARTUPMESSAGE)
C_STRING(255;A4D_COMPANY)
C_STRING(255;A4D_NUMBER)
C_STRING(255;A4D_SERVERIP)
C_STRING(255;A4D_SESSIONCACHESIZE)
C_STRING(255;A4D_STATUS)
C_STRING(255;A4D_TIMEREMAINING)
C_STRING(255;A4D_TYPE)
C_STRING(255;A4D_USERNAME)
C_STRING(2;<>A4D_CRLF)

C_TEXT(<>A4D_SSL_CERTKEYPATH)
C_TEXT(<>A4D_SSL_CERTPASSWORD)
C_TEXT(<>A4D_SSL_CERTPATH)
C_TEXT(A4D_HTMLINPUT)
C_TEXT(A4D_HTMLOUTPUT)
C_TEXT(A4D_IPFILTERLIST)
C_TEXT(A4D_LOG)
C_TEXT(A4D_QUERYPARAMS)
C_TEXT(A4D_REMOTEADDR)
C_TEXT(A4D_SESSIONDATAVALUE)

`###############################################

  ` Project Method: COMPILER_A4D_Variables

ARRAY LONGINT(A4D_SESSIONIDS;0)
ARRAY LONGINT(A4D_SESSIONREMAININGTIMES;0)
ARRAY LONGINT(A4D_SESSIONSIZES;0)

ARRAY REAL(A4D_SESSIONTIMEOUTS;0)

ARRAY STRING(15;<>A4D_FILTEREDIPS;0)
ARRAY STRING(255;A4D_SESSIONDATAKEYS;0)
ARRAY STRING(255;A4D_SESSIONDATATYPES;0)

ARRAY TEXT(<>A4D_CONSOLEMESSAGES;0)
ARRAY TEXT(A4D_PREFSTAB;0)
ARRAY TEXT(A4D_RESPONSEHEADERNAMES;0)
ARRAY TEXT(A4D_RESPONSEHEADERVALUES;0)
ARRAY TEXT(A4D_SESSIONDATAVALUES;0)

C_BLOB(A4D_RESPONSE)

C_BOOLEAN(<>A4D_CLIENTISWEBSERVER)
C_BOOLEAN(<>A4D_DEBUG)
C_BOOLEAN(<>A4D_EXITINGDB)
C_BOOLEAN(<>A4D_ISWEBSERVER)
C_BOOLEAN(A4D_WATCHSESSIONS)

C_DATE(A4D_EXPDATE)

C_LONGINT(<>A4D_CONSOLEPROCESS)
C_LONGINT(<>A4D_FILTERLIST)
C_LONGINT(<>A4D_FILTERNONE)
C_LONGINT(<>A4D_ITKVERSION)
C_LONGINT(<>A4D_ITK_CLOSER)
C_LONGINT(<>A4D_ITK_MASTER)
C_LONGINT(A4D_APPLY)
C_LONGINT(A4D_BUTTON)
C_LONGINT(A4D_CANCEL)
C_LONGINT(A4D_CONSOLEON)
C_LONGINT(A4D_DONE)
C_LONGINT(A4D_ERROR)
C_LONGINT(A4D_FILTERLIST)
C_LONGINT(A4D_FILTERNONE)
C_LONGINT(A4D_LICENSETYPE)
C_LONGINT(A4D_SESSIONID)
C_LONGINT(A4D_SESSIONWATCHERPID)
C_LONGINT(A4D_SHOWCLIENTIP)
C_LONGINT(A4D_SHOWTIME)
C_LONGINT(A4D_TICKS)

C_POINTER(<>A4D_DIALOGTABLE)
C_POINTER(A4D_SESSIONSORT)

C_STRING(255;<>A4D_HOSTADDR)
C_STRING(255;<>A4D_STARTUPMESSAGE)
C_STRING(255;A4D_COMPANY)
C_STRING(255;A4D_NUMBER)
C_STRING(255;A4D_SERVERIP)
C_STRING(255;A4D_SESSIONCACHESIZE)
C_STRING(255;A4D_STATUS)
C_STRING(255;A4D_TIMEREMAINING)
C_STRING(255;A4D_TYPE)
C_STRING(255;A4D_USERNAME)
C_STRING(2;<>A4D_CRLF)

C_TEXT(<>A4D_SSL_CERTKEYPATH)
C_TEXT(<>A4D_SSL_CERTPASSWORD)
C_TEXT(<>A4D_SSL_CERTPATH)
C_TEXT(A4D_HTMLINPUT)
C_TEXT(A4D_HTMLOUTPUT)
C_TEXT(A4D_IPFILTERLIST)
C_TEXT(A4D_LOG)
C_TEXT(A4D_QUERYPARAMS)
C_TEXT(A4D_REMOTEADDR)
C_TEXT(A4D_SESSIONDATAVALUE)



Regards,

   Aparajita
   Victory-Heart Productions
   [EMAIL PROTECTED]
   www.aparajitaworld.com

   "If you dare to fail, you are bound to succeed."
   - Sri Chinmoy   |   www.srichinmoylibrary.com

_______________________________________________
Active4d-dev mailing list
[EMAIL PROTECTED]
http://mailman.aparajitaworld.com/mailman/listinfo/active4d-dev


_______________________________________________
Active4d-dev mailing list
[EMAIL PROTECTED]
http://mailman.aparajitaworld.com/mailman/listinfo/active4d-dev

Reply via email to