OberonCore

  char *res;

  realm = opaque = nonce = NULL;

  au += 6;         /* skip over `Digest' */
  while (*au)
    {
      int i;

      au += skip_lws (au);
      for (i = 0; i < ARRAY_SIZE (options); i++)
   {
     int skip = extract_header_attr (au, options[i].name,
                 options[i].variable);
     if (skip < 0)
       {
         FREE_MAYBE (realm);
         FREE_MAYBE (opaque);
         FREE_MAYBE (nonce);
         return NULL;
       }
     else if (skip)
       {
         au += skip;
         break;
       }
   }
      if (i == ARRAY_SIZE (options))
   {
     while (*au && *au != '=')
       au++;
     if (*au && *++au)
       {
         au += skip_lws (au);
         if (*au == '\"')
      {
        au++;
        while (*au && *au != '\"')
          au++;
        if (*au)
          au++;
      }
       }
   }
      while (*au && *au != ',')
   au++;
      if (*au)
   au++;
    }