Login | Register
My pages Projects Community openCollabNet

Discussions > cvs > CVS update [1.1]: /mathlib/src/

mathlib
Discussion topic

Back to topic list

CVS update [1.1]: /mathlib/src/

Reply

Author larin
Full name Serge Larin
Date 2004-04-19 08:38:50 PDT
Message Tag: 1.1
User: larin
Date: 04/04/19 08:38:50

Added:
 /mathlib/src/
  random.pas, rmar.pas, rtmswap.pas, srsfile.pas, stadev32.pas, stat.pas,
  ta1mfile.pas

Log:
 First public release on mathlib.tigris.org

File Changes:

Directory: /mathlib/src/
========================

File [added]: random.pas
Url: http://mathlib.tigri​s.org/source/browse/​mathlib/src/random.p​as?rev=1.1&conte​nt-type=text/vnd.vie​wcvs-markup
Added lines: 0
--------------

File [added]: rmar.pas
Url: http://mathlib.tigri​s.org/source/browse/​mathlib/src/rmar.pas​?rev=1.1&content​-type=text/vnd.viewc​vs-markup
Added lines: 0
--------------

File [added]: rtmswap.pas
Url: http://mathlib.tigri​s.org/source/browse/​mathlib/src/rtmswap.​pas?rev=1.1&cont​ent-type=text/vnd.vi​ewcvs-markup
Added lines: 63
---------------
{$I COMPDEF.INC}

{$IFDEF BPC}
  {$IFNDEF DPMI}
    {$FATAL This library can be compile for BP DPMI only }
  {$ENDIF}
{$ELSE}
  {$FATAL This library can be compile for BP DPMI only }
{$ENDIF}

unit RTMSwap;
interface

const
  rtmOK = $0;
  rtmNoMemory = $1;
  rtmFileIOError = $22;

function MemInitSwapFile(FileName: PChar; FileSize: Longint): Integer;
  { Opens a swapfile of the specified size. If a swapfile
     already exists, and the new size is larger, the swapfile
     will grow, otherwise the previous swap file parameters are
     used.

     Returns: rtmOK - Successful
                rtmNoMemory - Not enough disk space
                rtmFileIOError - Could not open/grow file
  }


function MemCloseSwapFile(var Delete: Integer): Integer;
  { Closes the swapfile if it was created by the current task.
     If the value returned in "Delete" is non-zero, the swapfile
     was deleted.

     Returns: rtmOK - Successful
                rtmNoMemory - Not enough physical memory to run
                                  without the swap file
                rtmFileIOError - Could not close/delete the file
  }

implementation

  function MemInitSwapFile; external 'RTM' index 35;
  function MemCloseSwapFile; external 'RTM' index 36;

end.

{ example.pas

uses
  rtmswap;
var
  i:integer;
begin
  writeln('Memory >> ',memavail);
  MemInitSwapFile('c:​bp_dpmi.swp',10*102​4*1024);
  writeln('Memory >> ',memavail);
  MemCloseSwapFile(i);
  writeln('Memory >> ',memavail);
end.

}

File [added]: srsfile.pas
Url: http://mathlib.tigri​s.org/source/browse/​mathlib/src/srsfile.​pas?rev=1.1&cont​ent-type=text/vnd.vi​ewcvs-markup
Added lines: 0
--------------

File [added]: stadev32.pas
Url: http://mathlib.tigri​s.org/source/browse/​mathlib/src/stadev32​.pas?rev=1.1&con​tent-type=text/vnd.v​iewcvs-markup
Added lines: 0
--------------

File [added]: stat.pas
Url: http://mathlib.tigri​s.org/source/browse/​mathlib/src/stat.pas​?rev=1.1&content​-type=text/vnd.viewc​vs-markup
Added lines: 0
--------------

File [added]: ta1mfile.pas
Url: http://mathlib.tigri​s.org/source/browse/​mathlib/src/ta1mfile​.pas?rev=1.1&con​tent-type=text/vnd.v​iewcvs-markup
Added lines: 0
--------------




--------------------​--------------------​--------------------​---------
To unsubscribe, e-mail: cvs-unsubscribe@math​lib.tigris.org
For additional commands, e-mail: cvs-help at mathlib dot tigris dot org

« Previous message in topic | 1 of 1 | Next message in topic »

Messages

Show all messages in topic

CVS update [1.1]: /mathlib/src/ larin Serge Larin 2004-04-19 08:38:50 PDT
Messages per page: