[Back to MISC SWAG index]  [Back to Main SWAG index]  [Original]

{
  Coded By Frank Diacheysn Of Gemini Software

  PROCEDURE CALLFUNCTION

  Input......: UserRoutine = Pointer To The Routine To Call
             : NA          = String To Pass To <UserRoutine>
             :
             :
             :

  Output.....: None
             :
             :
             :
             :

  Example....: PROCEDURE CALLME(Str:STRING);
             : BEGIN
             :   WriteLn(Str);
             : END;
             :
             : MyPointer := @CallMe;
             : CallFunction(MyPointer,'Calling You!');

  Description: Used To Call A Function Or A Procedure, Mainly A
             : Procedure, Since Output Of The Function Can't Be
             : Returned.
             :
             :

}
PROCEDURE CALLFUNCTION(UserRoutine:POINTER; NA:STRING);
  PROCEDURE InsideCallFunction(NA:STRING);
  INLINE( $FF/$5E/<UserRoutine );
BEGIN
  InsideCallFunction(NA);
END;

[Back to MISC SWAG index]  [Back to Main SWAG index]  [Original]