home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_C / RTEXP142.ZIP / RTEXP142.EXE / INCLUDE / RTEXPERT.AFS < prev    next >
Text File  |  1994-03-30  |  2KB  |  65 lines
  1. -- Copyright (c) 1994 The Real-Time Intelligent Systems Corporation
  2.  
  3.   -- function to return the character string associated with a symbol
  4. FUNCTION af_desym (sym: SYMBOL) RETURN STRING;
  5.  
  6.   -- function to return the SYMBOLIC equivalent of a character string
  7. FUNCTION af_sym (str: STRING) RETURN SYMBOL;
  8.  
  9.   -- procedure to set the time variable passed to it to zero
  10. PROCEDURE aft_nul (tim: OUT ABSTIME);
  11.  
  12.   -- procedure to convert calendar time to relative time
  13. PROCEDURE time_ctor (t_hours, t_mins, t_secs, t_millisecs: SHORT;
  14.              tim: OUT RELTIME);
  15.  
  16.   -- procedure to convert calendar time to absolute time
  17. PROCEDURE time_ctot (t_year, t_month, t_day, t_hours, t_mins, t_secs, t_millisecs: SHORT;
  18.              tim: OUT ABSTIME);
  19.  
  20.   -- procedure to get the current time
  21. PROCEDURE time_get (t_year, t_month, t_day, t_hours, t_mins, t_secs, t_millisecs: OUT SHORT);
  22.  
  23.   -- procedure to convert relative time to calendar time
  24. PROCEDURE time_rtoc (tim: RELTIME;
  25.              t_hours, t_mins, t_secs, t_millisecs: OUT SHORT);
  26.  
  27.   -- procedure to convert absolute time to calendar time
  28. PROCEDURE time_ttoc (tim: ABSTIME;
  29.     t_year, t_month, t_day, t_hours, t_mins, t_secs, t_millisecs: OUT SHORT);
  30.  
  31. ---------------------------------------------------------------
  32. -- the following are prototypes for commonly used math routines
  33. ---------------------------------------------------------------
  34.  
  35. FUNCTION abs IS labs(n: LONG) return LONG;
  36. FUNCTION abs IS fabs(x: DOUBLE) return DOUBLE;
  37.  
  38. DYNAMIC FUNCTION random IS af_random(n: LONG) return LONG;
  39. PROCEDURE srandom IS af_srandom (n: LONG);
  40.  
  41. FUNCTION acos(x: DOUBLE) return DOUBLE;
  42. FUNCTION cos(x: DOUBLE) return DOUBLE;
  43. FUNCTION cosh(x: DOUBLE) return DOUBLE;
  44.  
  45. FUNCTION asin(x: DOUBLE) return DOUBLE;
  46. FUNCTION sin(x: DOUBLE) return DOUBLE;
  47. FUNCTION sinh(x: DOUBLE) return DOUBLE;
  48.  
  49. FUNCTION atan(x: DOUBLE) return DOUBLE;
  50. FUNCTION tan(x: DOUBLE) return DOUBLE;
  51. FUNCTION tanh(x: DOUBLE) return DOUBLE;
  52.  
  53. FUNCTION atan2(x,y: DOUBLE) return DOUBLE;
  54.  
  55. FUNCTION ceil(x: DOUBLE) return DOUBLE;
  56. FUNCTION floor(x: DOUBLE) return DOUBLE;
  57.  
  58. FUNCTION fmod(x,y: DOUBLE) return DOUBLE;
  59.  
  60. FUNCTION log(x: DOUBLE) return DOUBLE;
  61. FUNCTION log10(x: DOUBLE) return DOUBLE;
  62.  
  63. FUNCTION sqrt(x: DOUBLE) return DOUBLE;
  64.  
  65.