home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / FOXPRO / FCT1_12 / FC_STACK.HDR < prev    next >
Text File  |  1991-01-11  |  1KB  |  78 lines
  1. #output Force Tools 1.1 - Stack functions
  2.  
  3. *
  4. * initialize a local stack to push var's on
  5. *
  6. function logical init_stack prototype
  7.    params value int stack_size
  8.    
  9. *
  10. * clear memory allocated to the local stack
  11. *
  12. procedure clear_stack prototype
  13.  
  14. *
  15. * push any variable on the stack
  16. *
  17. procedure push prototype
  18.    params untyped var_name, value int var_len
  19.    
  20. *
  21. * pop any variabele from the stack
  22. *
  23. procedure pop prototype
  24.    params untyped var_name
  25.    
  26. *
  27. * test on an empty stack
  28. *
  29. function logical empty_stack prototype
  30.  
  31. *
  32. *    You can use next functions to push a variabele on the stack without
  33. *    knowing it's length, use the normal pop procedure to restore a variabele.
  34. *
  35.  
  36. *
  37. * push a string on the stack
  38. *
  39. procedure push_str prototype
  40.    params const char string_to_push
  41.    
  42. *
  43. * push a byte on the stack
  44. *
  45. procedure push_byte prototype
  46.    params byte byte_to_push
  47.  
  48. *
  49. * push an integer on the stack
  50. *
  51. procedure push_int prototype
  52.    params untyped integer_to_push
  53.  
  54. *
  55. * push a long on the stack
  56. *
  57. procedure push_long prototype
  58.    params untyped long_to_push
  59.    
  60. *
  61. * push a real on the stack
  62. *
  63. procedure push_dbl prototype
  64.    params dbl dbl_to_push
  65.  
  66. *
  67. * push a date on the stack
  68. *
  69. procedure push_date prototype
  70.    params date date_to_push
  71.    
  72. *
  73. * push a logical on the stack
  74. *
  75. procedure push_logical prototype
  76.    params logical logical_to_push
  77.       
  78. * eof - fc_stack.hdr