home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / XLIB.ZIP / OVR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-08-31  |  3.3 KB  |  79 lines
  1. (*****************************************************************************)
  2. (*                                                                           *)
  3. (*        Filename        : OVR.PAS                                          *)
  4. (*        Autor           : Stefan Böther                                    *)
  5. (*        System          : TURBO 6.0  / MS-DOS 3.3 / Netzwerk               *)
  6. (*        Letzte Änderung :                                                  *)
  7. (*        wann     was                                                wer    *)
  8. (*---------------------------------------------------------------------------*)
  9. (*        26.09.89 Debug Info entfernt_______________________________ Stefc  *)
  10. (*        27.09.89 EMS-integriert / Auch Freigabe funktioniert_______ Stefc  *)
  11. (*        03.10.89 Nicht mehr mit ASSIGN / RESET Datei testen________ Stefc  *)
  12. (*        24.01.90 Prüfen ob auch die richtige OVR-Datei benutzt wird Stefc  *)
  13. (*        17.02.90 5.5 Routine PARAMSTR(0) benutzt -> Programmdatei__ Stefc  *)
  14. (*        17.02.90 Wieder mit dem Unit auf R:UNITS abgestimmt________ Stefc  *)
  15. (*        18.02.90 Beschreibung GUIDE\OVR.DOK aufbereitet____________ Stefc  *)
  16. (*        01.04.90 Integration des Objects Units für ExitListe_______ Stefc  *)
  17. (*        25.08.90 Verallgemeinert___________________________________ Stefc  *)
  18. (*        14.11.90 EMS-Entfernt______________________________________ Stefc  *)
  19. (*        16.11.90 FileMode sichern und wieder setzen________________ Stefc  *)
  20. (*        16.11.90 Keine EMS-Benutzung mehr__________________________ Stefc  *)
  21. (*        30.12.90 Umstellung auf Turbo Pascal 6.0___________________ Stefc  *)
  22. (*        04.09.91 Prüfen ob EXE+OVR Datei zusammenpassen____________ Stefc  *)
  23. (*        21.09.91 Ovr-Filemode setzen_______________________________ Stefc  *)
  24. (*        27.02.92 Auch EXE Files als Overlay einsetzbar_____________ Stefc  *)
  25. (*        27.03.92 Erhöhen der Buffergröße eingebaut_________________ Stefc  *)
  26. (*        30.08.92 Use Unit FModes instead of Include________________ Stefc  *)
  27. (*        31.08.92 Increase Overlay Buffer only in Main programs_____ Stefc  *)
  28. (*                                                                           *)
  29. (*****************************************************************************)
  30. (*        Beschreibung: Verwaltung und Init von Overlaydateien               *)
  31. (*****************************************************************************)
  32.  
  33. UNIT Ovr;
  34.  
  35. {$D-,O-}
  36.  
  37. INTERFACE
  38.  
  39. IMPLEMENTATION
  40.  
  41.   USES Dos,
  42.        Overlay,
  43.        Ext,
  44.        FModes;
  45.  
  46.   PROCEDURE Overlay_Init;
  47.  
  48.     VAR Pfad    : DirStr;
  49.         Name    : NameStr;
  50.         Ext     : ExtStr;
  51.         SFmode  : BYTE;
  52.  
  53.     FUNCTION Ext_OvrInit( Ext : ExtStr ) : BOOLEAN;
  54.     BEGIN
  55.       OvrInit( Pfad + Name + Ext );
  56.       Ext_OvrInit :=  OvrResult = ovrOk;
  57.     END;
  58.  
  59.   BEGIN (* Overlay_Init *)
  60.  
  61.     OvrFilemode := fmDenyWrite+fmReadOnly;
  62.     FSplit( PARAMSTR( 0 ), Pfad, Name, Ext );
  63.  
  64.     IF NOT Ext_OvrInit( Ovr_Ext ) THEN
  65.        IF NOT Ext_OvrInit( Exe_Ext ) THEN
  66.           BEGIN
  67.             writeln( 'Overlay Error', OvrResult );
  68.             Halt( 209 );
  69.           END;
  70.  
  71.     OvrInitEMS;
  72.   END; (* Overlay_Init *)
  73.  
  74. BEGIN (* Main *)
  75.  
  76.   Overlay_Init;
  77.   
  78. END. (* Main *)
  79.