Topspeed_JPI/TS-V3/SRC/LIBMAIN.LST

Listing:

    1  IMPLEMENTATION MODULE LibMain;
    2  
    3  PROCEDURE LIBMAIN(hInstance: Windows.HANDLE; wDataSeg, cbHeapSize: WORD;
*****                               ^ undeclared identifier
*****                                       ^ not supported yet
*****                                                                     ^ undeclared identifier
    4                    lpszCmdLine: Windows.LPSTR): INTEGER;
*****                                 ^ undeclared identifier
*****                                         ^ not supported yet
    5  
    6  VAR
    7    Ret: INTEGER;
    8  BEGIN
    9    Ret := 1;
   10    IF hInstance = 0 THEN                   (* Call initialization procedure *)
*****       ^ not supported yet
   11                                            (* if this is the first instance *)
   12      IF Windows.LocalInit(wDataSeg, 0, cbHeapSize) = 0 THEN
*****         ^ undeclared identifier
*****                 ^ not supported yet
*****                           ^ not supported yet
*****                                        ^ not supported yet
   13        Ret := 0;                           (* error *)
   14      END;
   15    END;
   16    RETURN Ret;
   17  END LIBMAIN;
*****      ^ not supported yet
   18  
   19  
   20  
   21  PROCEDURE WEP(nParam: INTEGER) : INTEGER;
   22  
   23  BEGIN
   24    IF nParam = Windows.WEP_SYSTEM_EXIT THEN
*****                ^ undeclared identifier
*****                        ^ not supported yet
   25      RETURN 1;                       (* system exit *)
   26    END;
   27  
   28    IF nParam = Windows.WEP_FREE_DLL THEN
*****                ^ undeclared identifier
*****                        ^ not supported yet
   29      RETURN 1;                       (* use count is zero - DLL freed *)
   30    ELSE
   31      RETURN 1;                       (* undefined, just return *)
   32    END;
   33  END WEP;
*****      ^ not supported yet
   34  
   35  END LibMain.
*****      ^ not supported yet

   17 errors