StrStuff.def: Translation to Stony Brook Modula-2

Last updated: 7. 1.1998, 23:23

<*/NOWARN:F*>
DEFINITION MODULE StrStuff;



IMPORT WIN32;


TYPE
    PSTRCB = PROCEDURE(WIN32.PSTR,WIN32.PVOID): BOOLEAN [EXPORT];


CONST MAX_STRINGS = 256;
<*/PUSH*>
%IF WIN32 %THEN
    <*/CALLS:WIN32SYSTEM*>
%ELSE
    <*/CALLS:WINSYSTEM*>
%END
(*++++*****************************************************************)
PROCEDURE  AddString  (pStringIn   : WIN32.PSTR) : BOOLEAN [EXPORT];
(**********************************************************************)

<*/POP*>

<*/PUSH*>
%IF WIN32 %THEN
    <*/CALLS:WIN32SYSTEM*>
%ELSE
    <*/CALLS:WINSYSTEM*>
%END

(*++++*****************************************************************)
PROCEDURE  DeleteString  (pStringIn   : WIN32.PSTR) : BOOLEAN [EXPORT];
(**********************************************************************)
<*/POP*>

<*/PUSH*>
%IF WIN32 %THEN
    <*/CALLS:WIN32SYSTEM*>
%ELSE
    <*/CALLS:WINSYSTEM*>
%END
(*++++*****************************************************************)
PROCEDURE  GetStrings(pfnGetStrCallBack : PSTRCB; pParam : WIN32.PVOID) : INTEGER [EXPORT];
(**********************************************************************)
<*/POP*>
END StrStuff.