home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / FOXPRO / FCT1_12 / FC_NUM.HDR < prev    next >
Text File  |  1990-10-23  |  2KB  |  87 lines
  1. #output Force Tools 1.1 - Numeric / conversion functions
  2.  
  3. *
  4. * imidiate if on logical result returning integer
  5. *
  6. function int iifi prototype
  7.    params value logical expr, value int ret_on_true, value int ret_on_false
  8.  
  9. *
  10. * and two integers
  11. *
  12. function uint and prototype
  13.    params value uint in_1, value uint in_2
  14.    
  15. *
  16. * not integer
  17. *
  18. function uint not prototype
  19.    params value uint in_1
  20.    
  21. *
  22. * or two integers
  23. *
  24. function uint or prototype
  25.    params value uint in_1, value uint in_2
  26.    
  27. *
  28. * xor two integers
  29. *
  30. function uint xor prototype
  31.    params value uint in_1, value uint in_2
  32.          
  33. *
  34. * shr an integer
  35. *
  36. function uint shr prototype
  37.    params value uint int_val, value byte shr_pos
  38.    
  39. *
  40. * shl an integer
  41. *
  42. function uint shl prototype
  43.    params value uint int_val, value byte shl_pos
  44.       
  45. *
  46. * return low byte of an integer
  47. *
  48. function int lo prototype
  49.    params value uint word
  50.    
  51. *
  52. * return high byte of an integer
  53. *
  54. function int hi prototype
  55.    params value uint word
  56.  
  57. *
  58. * return low word of an long
  59. *
  60. function uint lw prototype
  61.    params value long long_word
  62.    
  63. *
  64. * return high word of an long
  65. *
  66. function uint hw prototype
  67.    params value long long_word
  68.    
  69. *
  70. * convert byte to two char hex string
  71. *
  72. function char(2) hexb prototype
  73.    params value byte byte_to_convert
  74.    
  75. *
  76. * convert integer to four char hex string
  77. *
  78. function char(4) hexw prototype
  79.    params value uint int_to_convert
  80.  
  81. *
  82. * convert long to eight char hex string
  83. *
  84. function char(8) hexl prototype
  85.    params value ulong long_to_convert
  86.    
  87. * eof - fc_num.hdr