home *** CD-ROM | disk | FTP | other *** search
/ Computer Club Elmshorn Atari PD / CCE_PD.iso / mac / 1000 / CCE_1044.ZIP / CCE_1044 / XUFSL105.LZH / xufsl.105 / cookie / cookie.c next >
C/C++ Source or Header  |  1994-09-18  |  760b  |  41 lines
  1. /* siehe ST-Computer 12/90,1/91 S.157ff. */
  2.  
  3. #include <stddef.h>
  4. #include <string.h>
  5. #include <tos.h>
  6. #include <define.h>
  7. #include <cookie.h>
  8.  
  9. void create_cookie(COOKIE_ENTRY *cookie,long magic,long value)
  10. {
  11.   cookie->magic=magic;
  12.   cookie->value=value;
  13. }
  14.  
  15. boolean new_cookie(COOKIE_ENTRY *cookie)
  16. {
  17. boolean ret;
  18. long    sav;
  19.  
  20.     sav=Super((void *)1L);
  21.     if (sav==0L)
  22.       sav=Super(NULL);
  23.     CK_SetOptions(8,cookie->magic);
  24.   ret=CK_WriteJar(cookie->magic,cookie->value)==TRUE;
  25.     if (sav!=-1L)
  26.       Super((void *)sav);
  27.     return ret;
  28. }
  29.  
  30. long get_cookie(long magic)
  31. {
  32. boolean active;
  33. long    value;
  34. long    sav;
  35.  
  36.   sav=(long)Super(0L);
  37.   active=CK_ReadJar(magic,&value)==TRUE;
  38.   Super((char *)sav);
  39.   return (active)? value : 0L;
  40. }
  41.