home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / program / lynxlib / setcooki.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-10-23  |  3.6 KB  |  111 lines
  1. /* This source file is part of the LynxLib miscellaneous library by
  2. Robert Fischer, and is Copyright 1990 by Robert Fischer.  It costs no
  3. money, and you may not make money off of it, but you may redistribute
  4. it.  It comes with ABSOLUTELY NO WARRANTY.  See the file LYNXLIB.DOC
  5. for more details.
  6. To contact the author:
  7.     Robert Fischer \\80 Killdeer Rd \\Hamden, CT   06517   USA
  8.     (203) 288-9599     fischer-robert@cs.yale.edu                 */
  9.  
  10. #include <tos.h>
  11. #include <sysvar.h>
  12.  
  13. #define JAR_INCR    15      /* Amount to increment jar size by (in cookies) */
  14. /* --------------------------------------------------------- */
  15. COOKIE *scan_jar(jar, target, size, num_cookies)
  16. /* Searches for target, and returns that cookie if it is found. */
  17. /* Otherwise, it returns the zero cookie, and sets size and num_cookies */
  18. /* appropriately.  Returns NULL if no cookie jar exists. */
  19. COOKIE *jar;
  20. long target;        /* Cookie to search for */
  21. int *size;          /* Total size of jar */
  22. int *num_cookies;   /* # cookies currently in jar (including the zero cookie) */
  23. {
  24. COOKIE *p;
  25. COOKIE *ret;
  26.     *size = *num_cookies = 0;
  27.     if (jar == NULL) return NULL;
  28.  
  29.     /* Count the cookies */
  30.     ret = NULL;
  31.     p = jar;
  32.     while (TRUE) {
  33.         (*num_cookies)++;
  34.         if (p->c == 0) break;
  35.         if (p->c == target) ret = p;
  36.         p++;
  37.     }
  38.     if (ret == NULL) ret = p;    /* Set to zero-cookie if the cookie no found */
  39.  
  40.     *size = (int)(p->v);
  41.  
  42.     return ret;
  43. }
  44. /* --------------------------------------------------------- */
  45. typedef char *charp;
  46. typedef charp (charpfunc)();
  47. BOOLEAN setcookie(cook, val, mem_alloc, copyover)
  48. /* Returns whether or not the cookie existed before */
  49. LONG cook;          /* Cookie to set */
  50. LONG val;           /* Value of cookie */
  51. charpfunc *mem_alloc;   /* Memory allocator, if needed */
  52.     /* If NULL, Malloc is used */
  53. BOOLEAN copyover;    /* TRUE if setcookie should change the old cookie, if found */
  54. {
  55. COOKIE *p, *jar, *njar;
  56. int size;           /* capacity of jar */
  57. int nsize;          /* capacity of new jar */
  58. long nbsize;            /* Number of BYTES to allocate for new jar */
  59. int num_cookies;    /* # of cookies in jar */
  60.     /* Get a pointer to the cookie */
  61.     p = scan_jar(jar = (COOKIE *)peekl(p_cookies), cook, &size, &num_cookies);
  62.  
  63.     if (size == num_cookies) {    /* No more room... */
  64.         if (p == NULL) {    /* We'll create a jar, so arrange to */
  65.             unjar();        /* release it at reset time */
  66.         }
  67.  
  68.         /* Calculate new jar size */
  69.         nsize = size+JAR_INCR;
  70.         nbsize = nsize*sizeof(COOKIE);
  71.  
  72.         /* Allocate and install new jar */
  73.         njar = (mem_alloc == NULL ? Malloc(nbsize) : (*mem_alloc)(nbsize));
  74.         pokel(p_cookies, njar);     /* Install the new jar */
  75.  
  76.         /* Copy the old jar */
  77.         while (--num_cookies > 0) *(njar++) = *(jar++);
  78.  
  79.         /* Install the new cookie */
  80.         njar->c = cook;
  81.         njar->v = val;
  82.         njar++;
  83.         njar->c = 0;
  84.         njar->v = nsize;
  85.         return FALSE;
  86.     } else if (p->c == 0L) {    /* Cookie didn't exist */
  87.         (p + 1)->v = p->v;
  88.         (p + 1)->c = 0L;
  89.         p->v = val;
  90.         p->c = cook;
  91.         return FALSE;
  92.     } else {    /* Cookie found */
  93.         if (copyover) p->v = val;
  94.         return TRUE;
  95.     }
  96. }
  97. /* --------------------------------------------------------- */
  98. #if 0
  99. main()
  100. {
  101. LONG c;
  102.     for (c = 1; c < 100; c++) {
  103.         setcookie(c, c, NULL);
  104. printf("Cookie: %ld\n", c);
  105.     }
  106. printf("***********************************************************\n");
  107.     term_res(0);
  108. }
  109. #endif
  110. /* --------------------------------------------------------- */
  111.