home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a120 / 1.ddi / API / NEWARRAY.C < prev    next >
Encoding:
C/C++ Source or Header  |  1992-04-23  |  2.0 KB  |  57 lines
  1. /*------------------------------------------------------------------*/
  2. /* NEWARRAY.C                                                       */
  3. /*------------------------------------------------------------------*/
  4. /* API ▒`  ªí : 1. SetUp()   ( in newarray.c )                      */
  5. /*              2. CleanUp() ( in newarray.c )                      */
  6. /* API ¿τ╝╞└] : newarray.plb                                        */
  7. /* ⌐IÑsñΦªí   : SET LIBRARY TO NEWARRAY ( ½╪Ñ▀░}ªC   )              */
  8. /*              SET LIBRARY TO          ( ─└⌐±▒╝░}ªC )              */
  9. /*------------------------------------------------------------------*/
  10.  
  11. #include  <pro_ext.h>
  12. Locator loc;
  13. Value   val;
  14.  
  15. void FAR SetUp()
  16. {
  17.         int building;
  18.  
  19.         val.ev_type  = 'N';    /* ╕Ω«╞½¼║A        */
  20.         val.ev_width = 8;      /* ┼πÑ▄╝╞¡╚¬║╝e½╫  */
  21.         val.ev_length= 2;      /* ñp╝╞ª∞╝╞        */
  22.         val.ev_real  = 0.00;   /* ª╣╝╞¡╚¬║¡╚      */
  23.  
  24.         loc.l_subs = 2;        /* ¬φÑ▄¼░ñ@¡╙ñG║√ñº░O╛╨┼Θ┼▄╝╞░}ªC             */
  25.         loc.l_sub1 = 4;        /* ░}ªCñº▓─ñ@¡╙╛n╝╨, ÑτºY▓─ñ@¡╙║√½╫¬║│]⌐w     */
  26.         loc.l_sub2 = 5;        /* ░}ªCñº▓─ñG¡╙╡∙╝╨, ÑτºY▓─ñG¡╙║√½╫¬║│]⌐w     */
  27.  
  28.         building= _NewVar("myarray",&loc,NV_PUBLIC); /* ½╪Ñ▀ªW║┘¼░  myarray  */
  29.                                                      /* ñºñG║√░O╛╨┼Θ┼▄╝╞░}ªC */
  30.         if(building>0)
  31.             /* │]⌐wñG║√░}ªC myarray ñºªUñ╕»└¬║¬∞¡╚¼░ 0.00 */
  32.             for (loc.l_sub1=1;loc.l_sub1 <= 4;loc.l_sub1++)
  33.                 for (loc.l_sub2=1;loc.l_sub2 <= 5;loc.l_sub2++)
  34.                      building = _Store(&loc, &val);
  35.         else
  36.             _Error(building);            /* ½╪Ñ▀ñG║√░O╛╨┼Θ┼▄╝╞░}ªC«╔╡oÑ═┐∙╗~ */
  37.  
  38. }
  39.  
  40. void FAR CleanUp()
  41. {
  42.         _Release(loc.l_NTI);             /* ─└⌐±ª╣ñG║√░O╛╨┼Θ┼▄╝╞░}ªC         */
  43. }
  44. FoxInfo myFoxInfo[] =
  45. {
  46.         {"SETUP", SetUp, CALLONLOAD, ""},
  47.         {"CLEANUP", CleanUp,CALLONUNLOAD ,""},
  48. };
  49.  
  50.  
  51. FoxTable _FoxTable =
  52. {
  53.     (FoxTable FAR *)0,
  54.     sizeof(myFoxInfo) / sizeof(FoxInfo),
  55.     myFoxInfo
  56. };
  57.