unit CFuncs;

interface

uses Windows;

type

{$ifndef CDataTypeDefs}
{$define CDataTypeDefs}
  PInt = ^Integer;

  UChar = Byte;       // unsigned char
  PUChar = ^Byte;     // unsigned char *

  WChar = Word; // actually a 16-bit unicode character

  Short = Smallint;
  PShort = ^Smallint; // short *

  UShort = Word;  // unsigned short
  PUShort = ^Word;

  Long = Longint;
  PLong = ^Long;
  ULong = LongWord;   // unsigned long

  UInt = Cardinal;
{$endif}

function system(psz: PChar): integer; stdcall;
 external 'msvcrt.dll';

function memcpy(dest,src: Pointer; n: cardinal): Pointer; cdecl;
 external 'msvcrt.dll';

function memset(dest: Pointer; i: integer; n: cardinal): Pointer; cdecl;
 external 'msvcrt.dll';

function fopen(f, m: PChar): Pointer; cdecl;
 external 'msvcrt.dll';

function fclose(h: Pointer): integer; cdecl;
 external 'msvcrt.dll';

function ferror(h: Pointer): integer; cdecl;
 external 'msvcrt.dll';

function feof(h: Pointer): integer; cdecl;
 external 'msvcrt.dll';

function fputs(s: PChar; h: Pointer): integer; cdecl;
 external 'msvcrt.dll';

function fgetc(h: Pointer): integer; cdecl;
 external 'msvcrt.dll';

function fputc(i:integer; h: Pointer): integer; cdecl;
 external 'msvcrt.dll';

function fgets(s: PChar; n: integer; h: Pointer): PChar; cdecl;
 external 'msvcrt.dll';

function c_time(p: Pointer): integer; cdecl;
 external 'msvcrt.dll' name 'time';

function ctime(t: PInt): PChar; cdecl;
 external 'msvcrt.dll' name 'ctime';

function c_strlen(s: PChar): integer; cdecl;
 external 'msvcrt.dll' name 'strlen';

function strlwr(s1: PChar): PChar; cdecl;
 external 'msvcrt.dll' name '_strlwr';

function strcpy(s1,s2: PChar): PChar; cdecl;
 external 'msvcrt.dll' name 'strcpy';

function strcat(s1,s2: PChar): PChar; cdecl;
 external 'msvcrt.dll' name 'strcat';

function strncpy(s1,s2: PChar; n: integer): PChar; cdecl;
 external 'msvcrt.dll' name 'strncpy';

function strcmp(s1,s2: PChar): integer; cdecl;
 external 'msvcrt.dll' name 'strcmp';

function stricmp(s1,s2: PChar): integer; cdecl;
 external 'msvcrt.dll' name '_stricmp';

function strncmp(s1,s2: PChar; len: cardinal): integer; cdecl;
 external 'msvcrt.dll' name 'strncmp';

function strnicmp(s1,s2: PChar; len: cardinal): integer; cdecl;
 external 'msvcrt.dll' name '_strnicmp';

function isspace(ch: integer): integer; cdecl;
 external 'msvcrt.dll' name 'isspace';

function isdigit(ch: integer): integer; cdecl;
 external 'msvcrt.dll' name 'isdigit';

function isalpha(ch: integer): integer; cdecl;
 external 'msvcrt.dll' name 'isalpha';

function isctrl(ch: integer): integer; cdecl;
 external 'msvcrt.dll' name 'iscntrl';

function tolower(ch: integer): integer; cdecl;
 external 'msvcrt.dll' name 'tolower';

function sscanf(psz1,psz2: PChar; p: Pointer): integer; cdecl;
 external 'msvcrt.dll' name 'sscanf';

function fscanf(f: Pointer; s: PChar; p: Pointer): integer; cdecl;
 external 'msvcrt.dll' name 'sscanf';

function strchr(s: PChar; ch: integer): PChar; cdecl;
 external 'msvcrt.dll' name 'strchr';

function strstr(s: PChar; sLookFor: PChar): PChar; cdecl;
 external 'msvcrt.dll' name 'strstr';

function pow(d1,d2: double): double; cdecl;
 external 'msvcrt.dll' name 'pow';

function strtok(s,ch: PChar): PChar; cdecl;
 external 'msvcrt.dll' name 'strtok';

function strspn(s,ch: PChar): integer; cdecl;
 external 'msvcrt.dll' name 'strspn';

function strcspn(s1,s2: PChar): integer; cdecl;
 external 'msvcrt.dll' name 'strcspn';

function strtol(s: PChar; var pch: PChar; iBase: integer): integer; cdecl;
 external 'msvcrt.dll' name 'strtol';


implementation

end.