char buff[256],*next;
char *next;
static char *getscope(str,scp)char *str;FontScope scp;{    char buff[256],*next;    unsigned long start=0,end=0,dest=0,shift=0,direction=0;    sscanf(str,"[\\x%lx,\\x%lx]->\\x%lx", &start, &end,&dest);    if( dest ){        if(dest >= start ){            shift = dest - start;            direction = FORWARD ;        } else {            shift = start - dest;            direction = BACKWARD;        }    }    scp->start = start      ;    scp->end   = end        ;    scp->shift = shift      ;    scp->shift_direction               = direction  ;    /* .......... */    while(*str){        if(*str == ',' && *(str+1) == '['){            break;        }        str++;    }    next = str+1 ;    return(next);}