home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / FOXPRO / FCT1_12 / FC_ARRAY.HDR < prev    next >
Text File  |  1990-11-28  |  2KB  |  65 lines
  1. #output Force Tools 1.1 - Array / Sort functions
  2.  
  3. *--- initialize a dynamic array, returns a handle
  4. function int array_init prototype
  5.    params value byte array_type, value long max_elements
  6.  
  7. *--- array types
  8. #define  logi_array  0
  9. #define  byte_array  1
  10. #define  word_array  2
  11. #define  long_array  3
  12. #define  date_array  4
  13. #define  real_array  5
  14.  
  15. *--- clear an array from memory   
  16. procedure array_clear prototype
  17.    params value int arr_hdl
  18.  
  19. *--- put an element to an array
  20. procedure array_put prototype
  21.    params value int arr_hdl, value long arr_ele, untyped var_ptr
  22.    
  23. *--- retrieve an element from an array
  24. procedure array_get prototype
  25.    params value int arr_hdl, value long arr_ele, untyped var_ptr
  26.             
  27. *--- insert an element into an array
  28. procedure array_ins prototype
  29.    params value int arr_hdl, value long arr_ele, untyped var_ptr
  30.  
  31. *--- delete an element from an array
  32. procedure array_del prototype
  33.    params value int arr_hdl, value long arr_ele
  34.  
  35. *--- return the number of elements in an array
  36. function long array_len prototype
  37.    params value int arr_hdl
  38.    
  39. *--- return the maximun number of elements in an array
  40. function long array_max prototype
  41.    params value int arr_hdl
  42.  
  43. *--- retrieve the type of an array
  44. function byte array_type prototype
  45.    params value int arr_hdl
  46.  
  47. ************************************************
  48. * Achoice(Top Row, Top Col, Bottom Row, Bottom Col, Array choices,
  49. *         array allowed, udf, initital item, initial row, len array choices)
  50. *
  51. * Simulate clipper's achoice function.
  52. *
  53. * Para 1 - 4 : Top, left, bottom and right window coordinates
  54. * Para 2     : Array of characters strings to display as menu
  55. * Para 3     : Parralel array determing the avaibility
  56. * Para 4     : Name of the Udf to call without quotes
  57. * Para 5     : Initial item to start with
  58. * Para 6     : Initial row to start with (IGNORED use initial item)
  59. * Para 7     : Len of array of choice
  60. *
  61. FUNCTION UINT Achoice PROTOTYPE
  62.    PARAMS VALUE UINT, VALUE UINT, VALUE UINT, VALUE UINT, CHAR(77) Array_1[0],;
  63.           LOGICAL Array_2[0], UNTYPED, VALUE UINT, VALUE UINT, VALUE UINT
  64.           
  65. * eof - fc_array.hdr