开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 编译器/解释器 > 查看源码
system.imp
资源名称：pascal2c.tar.Z　[点击查看]
上传用户：upcnvip
上传日期：2007-01-06
资源大小：474k
文件大小：4k
源码类别：

编译器/解释器

开发平台：

C/C++

system.imp：源码内容
  2. { Declarations for Pascal built-in objects }
  4. { Note: All functions with unusual syntaxes are not included here }
  7. {*IgnoreNonAlpha=0}   { If Language=UCSD, make sure we can parse "__module" }
  10. __module SYSTEM;   {PERMANENT}
  13. __export
  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;
  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;
  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;
  70. { Turbo standard variables }
  72. var
  73.    HeapPtr, FreePtr: pointer;
  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);
  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;
  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;
  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;
  123. end.