static const unsigned char *unpackedstring(const unsigned char *lptr,int *flags)
{
  unsigned char *stringize;
  int instring=1;
  if (*flags & STRINGIZE)                 /* ignore leading spaces after the # */
    while (*lptr==' ' || *lptr=='\t')     /* this is as defines with parameters may add them */
      lptr++;                             /* when you use a space after , in a match pattern */
  while (*lptr!='\0') {
    if (*lptr=='\a') {
      lptr++;
      continue;
    } /* if */
    if (!instring) {
      if (*lptr=='\"') {
        instring=1;
      } else if (*lptr=='#') {
        while (*++lptr==' ' || *lptr=='\t');
        lptr--;
        instring=1;
        *flags |= STRINGIZE;
      } else if (*lptr==')' || *lptr==',' || *lptr=='}' || *lptr==';') {
        break;
      } else if (*lptr!=' ' && *lptr!='\t') {
        error(1,"-string end-","-identifier-");
        break;
      }
      lptr++;
      continue;
    }
    if (*flags & STRINGIZE) {
      stringize=lptr; /* check we're still in a valid stringize string */
      while (*stringize==' ' || *stringize=='\t')
        stringize++; /* find next non space */
      if (*stringize=='#') { /* new stringize string */
        lptr=stringize+1;
        while (*lptr==' ' || *lptr=='\t')
          lptr++;
        continue;
      } else if (*stringize=='\"') { /* new string */
        lptr=stringize+1;
        *flags &= ~STRINGIZE;
        continue;
      } else if (*stringize==',' || *stringize==')' || *stringize=='}' || *stringize==';') { /* end */
        lptr=stringize;
        break;
      } else if (*stringize=='\0') {
        lptr=stringize;
        *flags &= ~STRINGIZE; /* shouldn't happen - trigger an error */
        break;
      }
    } else {
      if (*lptr=='\"') {
        stringize=lptr++;
        instring=0;
        continue;
      } /* if (*flags & STRINGIZE) */
    }
    litadd(litchar(&lptr,*flags | UTF8MODE));  /* litchar() alters "lptr" */
  } /* while */
  litadd(0);
  
  if (*lptr==',' || *lptr==')' || *lptr=='}' || *lptr==';')
    lptr=stringize;						/* backtrack to end of last string for closing " */
  return lptr;
}

static const unsigned char *packedstring(const unsigned char *lptr,int *flags)
{
  int i;
  ucell val,c;
  unsigned char *stringize;
  int instring=1;
  if (*flags & STRINGIZE)                     
    while (*lptr==' ' || *lptr=='\t')
      lptr++;

  i=sizeof(ucell)-(sCHARBITS/8); /* start at most significant byte */
  val=0;
  while (*lptr!='\0') {
    if (*lptr=='\a') {          /* ignore '\a' (which was inserted at a line concatenation) */
      lptr++;
      continue;
    } /* if */
    if (!instring) {
      if (*lptr=='\"') {
        instring=1;
      } else if (*lptr=='#') {
        while (*++lptr==' ' || *lptr=='\t');
        lptr--;
        instring=1;
        *flags |= STRINGIZE;
      } else if (*lptr==')' || *lptr==',' || *lptr=='}' || *lptr==';') {
        break;
      } else if (*lptr!=' ' && *lptr!='\t') {
        error(1,"-string end-","-identifier-");
        break;
      }
      lptr++;
      continue;
    }
    if (*flags & STRINGIZE) {
      stringize=lptr; /* check we're still in a valid stringize string */
      while (*stringize==' ' || *stringize=='\t')
        stringize++; /* find next non space */
      if (*stringize=='#') { /* new stringize string */
        lptr=stringize+1;
        while (*lptr==' ' || *lptr=='\t')
          lptr++;
        continue;
      } else if (*stringize=='\"') { /* new string */
        lptr=stringize+1;
        *flags &= ~STRINGIZE;
        continue;
      } else if (*stringize==',' || *stringize==')' || *stringize=='}' || *stringize==';') { /* end */
        lptr=stringize;
        break;
      } else if (*stringize=='\0') {
        lptr=stringize;
        *flags &= ~STRINGIZE; /* shouldn't happen - trigger an error */
        break;
      }
    } else {
      if (*lptr=='\"') {
        stringize=lptr++;
        instring=0;
        continue;
      } /* if (*flags & STRINGIZE) */
    }
    c=litchar(&lptr,*flags);     /* litchar() alters "lptr" */
    if (c>=(ucell)(1 << sCHARBITS))
      error(43);                /* character constant exceeds range */
    val |= (c << 8*i);
    if (i==0) {
      litadd(val);
      val=0;
    } /* if */
    i=(i+sizeof(ucell)-(sCHARBITS/8)) % sizeof(ucell);
  } /* while */
  /* save last code; make sure there is at least one terminating zero character */
  if (i!=(int)(sizeof(ucell)-(sCHARBITS/8)))
    litadd(val);        /* at least one zero character in "val" */
  else
    litadd(0);          /* add full cell of zeros */

  if (*lptr==',' || *lptr==')' || *lptr=='}' || *lptr==';')
    lptr=stringize;						/* backtrack to end of last string for closing " */
  return lptr;
}