home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 379a.lha / p2c1_13a / src / src.zoo / system.imp < prev    next >
Text File  |  1990-03-09  |  4KB  |  127 lines
  1.  
  2. { Declarations for Pascal built-in objects }
  3.  
  4. { Note: All functions with unusual syntaxes are not included here }
  5.  
  6.  
  7. {*IgnoreNonAlpha=0}   { If Language=UCSD, make sure we can parse "__module" }
  8.  
  9.  
  10. __module SYSTEM;   {PERMANENT}
  11.  
  12.  
  13. __export
  14.  
  15. { Standard Pascal functions }
  16. function  arctan(x : longreal) : longreal;
  17. function  cos(x : longreal) : longreal;
  18. function  exp(x : longreal) : longreal;
  19. function  ln(x : longreal) : longreal;
  20. procedure mark(var p);
  21. function  odd(i : integer) : boolean;
  22. procedure release(var p);
  23. function  round(x : longreal) : integer;
  24. function  sin(x : longreal) : longreal;
  25. function  sqrt(x : longreal) : longreal;
  26. function  trunc(x : longreal) : integer;
  27.  
  28.  
  29.  
  30. { HP Pascal extensions }
  31. function  binary(s : string) : integer;
  32. procedure gotoxy(x, y : integer);
  33. function  hex(s : string) : integer;
  34. function  lastpos(anyvar f : text) : integer;
  35. function  linepos(var f : text) : integer;
  36. procedure moveleft(anyvar s, d : integer; i : integer);
  37. procedure moveright(anyvar s, d : integer; i : integer);
  38. function  octal(s : string) : integer;
  39. function  str(s : string; i, j : integer) : string;
  40. function  strlen(s : string) : integer;
  41. function  strltrim(s : string) : string;
  42. function  strmax(s : string) : integer;
  43. function  strpos(s, s2 : string) : integer;
  44. function  strrpt(s : string; i : integer) : string;
  45. function  strrtrim(s : string) : string;
  46.  
  47.  
  48.  
  49. { Turbo/UCSD Pascal extensions }
  50. function  copy(s : string; i, j : integer) : string;
  51. procedure delete(var s; i, j : integer);
  52. function  frac(x : longreal) : longreal;
  53. procedure freemem(var p);
  54. procedure getmem(var p; i : integer);
  55. procedure insert(s : string; var s2; i : integer);
  56. function  length(s : string) : integer;
  57. function  log(x : longreal) : longreal;
  58. function  maxavail : integer;
  59. function  memavail : integer;
  60. procedure move(var s, d; i : integer);
  61. function  paramcount : integer;
  62. function  paramstr(i : integer) : string;
  63. function  pos(s, s2 : string) : integer;
  64. function  ptr(i, j : integer) : pointer;
  65. function  pwroften(r : longreal) : longreal;
  66. function  swap(i : integer) : integer;
  67. function  upcase(c : char) : char;
  68.  
  69.  
  70. { Turbo standard variables }
  71.  
  72. var
  73.    HeapPtr, FreePtr: pointer;
  74.  
  75.  
  76. { Oregon Software Pascal-2 extensions }
  77. {FuncMacro p2_inew(n) = malloc(n)}
  78. {FuncMacro p2_new(x,n) = (*x = Malloc(n))}
  79. {FuncMacro p2_dispose(x,n) = Free(*x)}
  80. procedure noioerror(var f);
  81. function ioerror(var f) : boolean;
  82. function iostatus(var f) : integer;
  83. {FuncMacro exitst(s) = exit(s)}
  84. procedure exitst(s : integer);
  85. {FuncMacro P_getcmdline(low,high,line,len)=(*len=P_getcmdline(low,high,line))}
  86. procedure P_getcmdline(var line : array [low..high : integer] of char; var len : integer);
  87. procedure TimeStamp(var day, month, year, hour, min, sec : integer);
  88.  
  89.  
  90. { VAX Pascal extensions }
  91. function  expo(r : real) : integer;
  92. function  index(s, s2 : string) : integer;
  93. function  pad(s : string; padchar : char; size : integer) : string;
  94. function  substr(s : string; i, j : integer) : string;
  95. function  uround(x : longreal) : integer;
  96. function  utrunc(x : longreal) : integer;
  97.  
  98.  
  99.  
  100. { MPW Pascal extensions }
  101. function  arccos(r : longreal) : longreal;
  102. function  arcsin(r : longreal) : longreal;
  103. function  arctanh(r : longreal) : longreal;
  104. function  cosh(r : longreal) : longreal;
  105. function  exp10(r : longreal) : longreal;
  106. function  log10(r : longreal) : longreal;
  107. function  scaneq(limit : integer; ch : char; var s : univ integer) : integer;
  108. function  scanne(limit : integer; ch : char; var s : univ integer) : integer;
  109. function  sinh(r : longreal) : longreal;
  110. function  tan(r : longreal) : longreal;
  111. function  tanh(r : longreal) : longreal;
  112.  
  113.  
  114. { SUN Pascal extensions }
  115. type alfa = packed array [1..10] of char;
  116. {FuncMacro argc = P_argc}
  117. function  argc : integer;
  118. {FuncMacro null = 0}
  119. procedure null;
  120.  
  121.  
  122.  
  123. end.
  124.  
  125.  
  126.  
  127.