home *** CD-ROM | disk | FTP | other *** search
/ Computer Club Elmshorn Atari PD / CCE_PD.iso / mac / 1000 / CCE_1024.ZIP / CCE_1024 / UP220195.LZH / EXTRA / FSER096B.LZH / GETCOOKI.C < prev    next >
C/C++ Source or Header  |  1993-07-27  |  501b  |  31 lines
  1.  
  2. #include <portab.h>
  3. #include <tos.h>
  4.  
  5. WORD get_cookie( LONG cookie, LONG *value)
  6. {
  7.     WORD cookiecnt=0;
  8.     LONG oldstack=0;
  9.     LONG *cookiejar;
  10.     
  11.     if ( !Super ((void *)1L) ) oldstack = Super (0L);
  12.     cookiejar = *( (LONG **) 0x5a0L );
  13.     if ( oldstack )    Super( (void *) oldstack );
  14.  
  15.     if ( cookiejar==0L )
  16.     {
  17.         return FALSE;
  18.     }
  19.     
  20.     while ( *cookiejar!=NULL && *cookiejar!=cookie )
  21.     {
  22.         cookiejar += 2;
  23.         cookiecnt++;
  24.     }
  25.     
  26.     *value = *(cookiejar+1);
  27.  
  28.     return (*cookiejar==cookie);
  29. }
  30.  
  31.