home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OL.LZH / PROCS.LZH / IFNCS.ICN < prev    next >
Text File  |  1991-09-05  |  5KB  |  365 lines

  1. ############################################################################
  2. #
  3. #    Name:    ifncs.icn
  4. #
  5. #    Title:    Wrappers for function tracing
  6. #
  7. #    Author:    Ralph E. Griswold
  8. #
  9. #    Date:    September 2, 1991
  10. #
  11. ############################################################################
  12. #
  13. #  These are procedure wrappers for use in Icon function tracing.  Don't let
  14. #  the apparent recursion fool you.
  15. #
  16. ############################################################################
  17. #
  18. #  See also:  iftrace.icn
  19. #
  20. ############################################################################
  21.  
  22. procedure Acos(r)
  23.    return Acos(r)
  24. end
  25.  
  26. procedure Any(c,s,i1,i2)
  27.    return Any(c,s,i1,i2)
  28. end
  29.  
  30. procedure Args(p)
  31.    return Args(p)
  32. end
  33.  
  34. procedure Asin(r)
  35.    return Asin(r)
  36. end
  37.  
  38. procedure Atan(r1,r2)
  39.    return Atan(r1,r2)
  40. end
  41.  
  42. procedure Bal(c1,c2,c3,s,i1,i2)
  43.    suspend Bal(c1,c2,c3,s,i1,i2)
  44. end
  45.  
  46. procedure Center(s1,i,s2)
  47.    return Center(s1,i,s2)
  48. end
  49.  
  50. procedure Char(i)
  51.    return Char(i)
  52. end
  53.  
  54. procedure Chdir(s)
  55.    return Chdir(s)
  56. end
  57.  
  58. procedure Close(f)
  59.    return Close(f)
  60. end
  61.  
  62. procedure Collect(i1,i2)
  63.    return Collect(i1,i2)
  64. end
  65.  
  66. procedure Copy(x)
  67.    return Copy(x)
  68. end
  69.  
  70. procedure Cos(r)
  71.    return Cos(r)
  72. end
  73.  
  74. procedure Cset(x)
  75.    return Cset(x)
  76. end
  77.  
  78. procedure Delay(i)
  79.    return Delay(i)
  80. end
  81.  
  82. procedure Delete(x1,x2)
  83.    return Delete(x1,x2)
  84. end
  85.  
  86. procedure Detab(x[])
  87.    return Detab ! x
  88. end
  89.  
  90. procedure Display(i,f)
  91.    return Display(i,f)
  92. end
  93.  
  94. procedure Dtor(r)
  95.    return Dtor(r)
  96. end
  97.  
  98. procedure Entab(x[])
  99.    return Entab ! x
  100. end
  101.  
  102. procedure Errorclear()
  103.    return Errorclear()
  104. end
  105.  
  106. procedure Exit(i)
  107.    return Exit(i)
  108. end
  109.  
  110. procedure Exp(r)
  111.    return Exp(r)
  112. end
  113.  
  114. procedure Find(s1,s2,i1,i2)
  115.    suspend Find(s1,s2,i1,i2)
  116. end
  117.  
  118. procedure Flush(f)
  119.    return Flush(f)
  120. end
  121.  
  122. procedure Get(x)
  123.    return Get(x)
  124. end
  125.  
  126. procedure Getenv(s)
  127.    return Getenv(s)
  128. end
  129.  
  130. procedure Iand(i,j)
  131.    return Iand(i,j)
  132. end
  133.  
  134. procedure Icom(i)
  135.    return Icom(i)
  136. end
  137.  
  138. procedure Image(x)
  139.    return Image(x)
  140. end
  141.  
  142. procedure Insert(x1,x2,x3)
  143.    return Insert(x1,x2,x3)
  144. end
  145.  
  146. procedure Integer(x)
  147.    return Integer(x)
  148. end
  149.  
  150. procedure Ior(i,j)
  151.    return Ior(i,j)
  152. end
  153.  
  154. procedure Ishift(i,j)
  155.    return Ishift(i,j)
  156. end
  157.  
  158. procedure Ixor(i,j)
  159.    return Ixor(i,j)
  160. end
  161.  
  162. procedure Key(T)
  163.    suspend Key(T)
  164. end
  165.  
  166. procedure Left(s1,i,s2)
  167.    return Left(s1,i,s2)
  168. end
  169.  
  170. procedure List(i,x)
  171.    return List(i,x)
  172. end
  173.  
  174. procedure Log(r1,r2)
  175.    return Log(r1,r2)
  176. end
  177.  
  178. procedure Many(c,s,i1,i2)
  179.    return Many(c,s,i1,i2)
  180. end
  181.  
  182. procedure Map(s1,s2,s3)
  183.    return Map(s1,s2,s3)
  184. end
  185.  
  186. procedure Match(s1,s2,i1,i2)
  187.    return Match(s1,s2,i1,i2)
  188. end
  189.  
  190. procedure Member(x1,x2)
  191.    return Member(x1,x2)
  192. end
  193.  
  194. procedure Mmout(s)
  195.    return Mmout(s)
  196. end
  197.  
  198. procedure Mmpause(s)
  199.    return Mmpause(s)
  200. end
  201.  
  202. procedure Mmshow(x,s)
  203.    return Mmshow(x,s)
  204. end
  205.  
  206. procedure Move(i)
  207.    suspend Move(i)
  208. end
  209.  
  210. procedure Name(v)
  211.    return Name(v)
  212. end
  213.  
  214. procedure Numeric(x)
  215.    return Numeric(x)
  216. end
  217.  
  218. procedure Open(x[])
  219.    return Open ! x
  220. end
  221.  
  222. procedure Ord(s)
  223.    return Ord(s)
  224. end
  225.  
  226. procedure Pop(x)
  227.    return Pop(x)
  228. end
  229.  
  230. procedure Pos(i)
  231.    return Pos(i)
  232. end
  233.  
  234. procedure Proc(x,i)
  235.    return Proc(x,i)
  236. end
  237.  
  238. procedure Pull(L)
  239.    return Pull(L)
  240. end
  241.  
  242. procedure Push(L,x)
  243.    return Push(L,x)
  244. end
  245.  
  246. procedure Put(L,x)
  247.    return Put(L,x)
  248. end
  249.  
  250. procedure Read(f)
  251.    return Read(f)
  252. end
  253.  
  254. procedure Reads(f,i)
  255.    return Reads(f,i)
  256. end
  257.  
  258. procedure Real(x)
  259.    return Real(x)
  260. end
  261.  
  262. procedure Remove(s)
  263.    return Remove(s)
  264. end
  265.  
  266. procedure Rename(s1,s2)
  267.    return Rename(s1,s2)
  268. end
  269.  
  270. procedure Repl(s,i)
  271.    return Repl(s,i)
  272. end
  273.  
  274. procedure Reverse(s)
  275.    return Reverse(s)
  276. end
  277.  
  278. procedure Right(s1,i,s2)
  279.    return Right(s1,i,s2)
  280. end
  281.  
  282. procedure Rtod(r)
  283.    return Rtod(r)
  284. end
  285.  
  286. procedure Runerr(i,x)
  287.    return Runerr(i,x)
  288. end
  289.  
  290. procedure Seek(f,i)
  291.    return Seek(f,i)
  292. end
  293.  
  294. procedure Seq(i, j)
  295.    suspend Seq(i, j)
  296. end
  297.  
  298. procedure Set(L)
  299.    return Set(L)
  300. end
  301.  
  302. procedure Sin(r)
  303.    return Sin(r)
  304. end
  305.  
  306. procedure Sort(x,i)
  307.    return Sort(x,i)
  308. end
  309.  
  310. procedure Sqrt(r)
  311.    return Sqrt(r)
  312. end
  313.  
  314. procedure Stop(x[])
  315.    return Stop ! x
  316. end
  317.  
  318. procedure String(x)
  319.    return String(x)
  320. end
  321.  
  322. procedure System(s)
  323.    return System(s)
  324. end
  325.  
  326. procedure Tab(i)
  327.    suspend Tab(i)
  328. end
  329.  
  330. procedure Table(x)
  331.    return Table(x)
  332. end
  333.  
  334. procedure Tan(r)
  335.    return Tan(r)
  336. end
  337.  
  338. procedure Trim(s,c)
  339.    return Trim(s,c)
  340. end
  341.  
  342. procedure Type(x)
  343.    return Type(x)
  344. end
  345.  
  346. procedure Upto(c,s,i1,i2)
  347.    suspend Upto(c,s,i1,i2)
  348. end
  349.  
  350. procedure Variable(s)
  351.    return Variable(s)
  352. end
  353.  
  354. procedure Where(f)
  355.    return Where(f)
  356. end
  357.  
  358. procedure Write(x[])
  359.    return Write ! x
  360. end
  361.  
  362. procedure Writes(x[])
  363.    return Writes ! x
  364. end
  365.