attribs[17] = (xattr & _THS_IXUSR) ? '.' : 'X';        attribs[18] = (xattr & _THS_IWUSR) ? '.' : 'W';        attribs[19] = (xattr & _THS_IRUSR) ? '.' : 'R';        attribs[20] = 0;        Info(slide, 0, ((char *)slide, LoadFarString(TheosFileAttributes),          xattr, attribs));#endif /* OLD_THEOS_EXTRA */    } else if ((hostnum != FS_FAT_) && (hostnum != FS_HPFS_) &&               (hostnum != FS_NTFS_) && (hostnum != FS_VFAT_) &&               (hostnum != ACORN_) &&               (hostnum != VM_CMS_) && (hostnum != MVS_))    {                                 /* assume Unix-like */        switch ((unsigned)(xattr & UNX_IFMT)) {            case (unsigned)UNX_IFDIR:   attribs[0] = 'd';  break;            case (unsigned)UNX_IFREG:   attribs[0] = '-';  break;            case (unsigned)UNX_IFLNK:   attribs[0] = 'l';  break;            case (unsigned)UNX_IFBLK:   attribs[0] = 'b';  break;            case (unsigned)UNX_IFCHR:   attribs[0] = 'c';  break;            case (unsigned)UNX_IFIFO:   attribs[0] = 'p';  break;            case (unsigned)UNX_IFSOCK:  attribs[0] = 's';  break;            default:          attribs[0] = '?';  break;        }        attribs[1] = (xattr & UNX_IRUSR)? 'r' : '-';        attribs[4] = (xattr & UNX_IRGRP)? 'r' : '-';        attribs[7] = (xattr & UNX_IROTH)? 'r' : '-';        attribs[2] = (xattr & UNX_IWUSR)? 'w' : '-';        attribs[5] = (xattr & UNX_IWGRP)? 'w' : '-';        attribs[8] = (xattr & UNX_IWOTH)? 'w' : '-';        if (xattr & UNX_IXUSR)            attribs[3] = (xattr & UNX_ISUID)? 's' : 'x';        else            attribs[3] = (xattr & UNX_ISUID)? 'S' : '-';   /* S = undefined */        if (xattr & UNX_IXGRP)            attribs[6] = (xattr & UNX_ISGID)? 's' : 'x';   /* == UNX_ENFMT */        else            attribs[6] = (xattr & UNX_ISGID)? 'l' : '-';        if (xattr & UNX_IXOTH)            attribs[9] = (xattr & UNX_ISVTX)? 't' : 'x';   /* "sticky bit" */        else            attribs[9] = (xattr & UNX_ISVTX)? 'T' : '-';   /* T = undefined */        attribs[10] = 0;        Info(slide, 0, ((char *)slide, LoadFarString(UnixFileAttributes), xattr,          attribs));    } else {        Info(slide, 0, ((char *)slide, LoadFarString(NonMSDOSFileAttributes),            G.crec.external_file_attributes >> 8));    } /* endif (hostnum: external attributes format) */    if ((xattr=(unsigned)(G.crec.external_file_attributes & 0xFF)) == 0)        Info(slide, 0, ((char *)slide, LoadFarString(MSDOSFileAttributes),          xattr));    else if (xattr == 1)        Info(slide, 0, ((char *)slide, LoadFarString(MSDOSFileAttributesRO),          xattr));    else        Info(slide, 0, ((char *)slide, LoadFarString(MSDOSFileAttributesAlpha),          xattr, (xattr&1)? "rdo " : nullStr,          (xattr&2)? "hid " : nullStr,          (xattr&4)? "sys " : nullStr,          (xattr&8)? "lab " : nullStr,          (xattr&16)? "dir " : nullStr,          (xattr&32)? "arc " : nullStr,          (xattr&64)? "lnk " : nullStr,          (xattr&128)? "exe" : nullStr));/*---------------------------------------------------------------------------    Analyze the extra field, if any, and print the file comment, if any (the    filename has already been printed, above).  That finishes up this file    entry...  ---------------------------------------------------------------------------*/    if (G.crec.extra_field_length > 0) {        uch *ef_ptr = G.extra_field;        ush ef_len = G.crec.extra_field_length;        ush eb_id, eb_datalen;        ZCONST char Far *ef_fieldname;        if (error_in_archive > PK_WARN)   /* fatal:  can't continue */            /* delayed "fatal error" return from extra field reading */            return error;        if (G.extra_field == (uch *)NULL)            return PK_ERR;   /* not consistent with crec length */        Info(slide, 0, ((char *)slide, LoadFarString(ExtraFields)));        while (ef_len >= EB_HEADSIZE) {            eb_id = makeword(&ef_ptr[EB_ID]);            eb_datalen = makeword(&ef_ptr[EB_LEN]);            ef_ptr += EB_HEADSIZE;            ef_len -= EB_HEADSIZE;            if (eb_datalen > (ush)ef_len) {                Info(slide, 0x421, ((char *)slide,                  LoadFarString(ExtraFieldTrunc), eb_id, eb_datalen, ef_len));                eb_datalen = ef_len;            }            switch (eb_id) {                case EF_PKSZ64:                    ef_fieldname = efPKSZ64;                    break;                case EF_AV:                    ef_fieldname = efAV;                    break;                case EF_OS2:                    ef_fieldname = efOS2;                    break;                case EF_ACL:                    ef_fieldname = efACL;                    break;                case EF_NTSD:                    ef_fieldname = efNTSD;                    break;                case EF_PKVMS:                    ef_fieldname = efPKVMS;                    break;                case EF_IZVMS:                    ef_fieldname = efIZVMS;                    break;                case EF_PKW32:                    ef_fieldname = efPKWin32;                    break;                case EF_PKUNIX:                    ef_fieldname = efPKUnix;                    break;                case EF_IZUNIX:                    ef_fieldname = efIZUnix;                    if (hostnum == UNIX_ && *pEndprev > 0L)                        *pEndprev += 4L;  /* also have UID/GID in local copy */                    break;                case EF_IZUNIX2:                    ef_fieldname = efIZUnix2;                    if (*pEndprev > 0L)                        *pEndprev += 4L;  /* 4 byte UID/GID in local copy */                    break;                case EF_TIME:                    ef_fieldname = efTime;                    break;                case EF_MAC3:                    ef_fieldname = efMac3;                    break;                case EF_JLMAC:                    ef_fieldname = efJLMac;                    break;                case EF_ZIPIT:                    ef_fieldname = efZipIt;                    break;                case EF_ZIPIT2:                    ef_fieldname = efZipIt2;                    break;                case EF_VMCMS:                    ef_fieldname = efVMCMS;                    break;                case EF_MVS:                    ef_fieldname = efMVS;                    break;                case EF_BEOS:                    ef_fieldname = efBeOS;                    break;                case EF_QDOS:                    ef_fieldname = efQDOS;                    break;                case EF_AOSVS:                    ef_fieldname = efAOSVS;                    break;                case EF_SPARK:   /* from RISC OS */                    ef_fieldname = efSpark;                    break;                case EF_MD5:                    ef_fieldname = efMD5;                    break;                case EF_ASIUNIX:                    ef_fieldname = efASiUnix;                    break;                case EF_TANDEM:                    ef_fieldname = efTandem;                    break;                case EF_SMARTZIP:                    ef_fieldname = efSmartZip;                    break;                case EF_THEOS:#ifdef OLD_THEOS_EXTRA                case EF_THEOSO:#endif                    ef_fieldname = efTheos;                    break;                default:                    ef_fieldname = efUnknown;                    break;            }            Info(slide, 0, ((char *)slide, LoadFarString(ExtraFieldType),                 eb_id, LoadFarStringSmall(ef_fieldname), eb_datalen));            /* additional, field-specific information: */            switch (eb_id) {                case EF_OS2:                case EF_ACL:                    if (eb_datalen >= EB_OS2_HLEN) {                        if (eb_id == EF_OS2)                            ef_fieldname = OS2EAs;                        else                            ef_fieldname = ACLdata;                        Info(slide, 0, ((char *)slide,                          LoadFarString(ef_fieldname), makelong(ef_ptr)));                        *pEndprev = 0L;   /* no clue about csize of local */                    }                    break;                case EF_NTSD:                    if (eb_datalen >= EB_NTSD_C_LEN) {                        Info(slide, 0, ((char *)slide, LoadFarString(NTSDData),                          makelong(ef_ptr)));                        *pEndprev = 0L;   /* no clue about csize of local */                    }                    break;                case EF_IZVMS:                    if (eb_datalen >= 8) {                        char *p, q[8];                        unsigned compr = makeword(ef_ptr+EB_IZVMS_FLGS)                                        & EB_IZVMS_BCMASK;                        *q = '\0';                        if (compr > 3)                            compr = 3;                        if (strncmp((char *)ef_ptr, "VFAB", 4) == 0)                            p = "FAB";                        else if (strncmp((char *)ef_ptr, "VALL", 4) == 0)                            p = "XABALL";                        else if (strncmp((char *)ef_ptr, "VFHC", 4) == 0)                            p = "XABFHC";                        else if (strncmp((char *)ef_ptr, "VDAT", 4) == 0)                            p = "XABDAT";                        else if (strncmp((char *)ef_ptr, "VRDT", 4) == 0)                            p = "XABRDT";                        else if (strncmp((char *)ef_ptr, "VPRO", 4) == 0)                            p = "XABPRO";                        else if (strncmp((char *)ef_ptr, "VKEY", 4) == 0)                            p = "XABKEY";                        else if (strncmp((char *)ef_ptr, "VMSV", 4) == 0) {                            p = "version";                            if (eb_datalen >= 16) {                                q[0] = ' ';                                q[1] = '(';                                strncpy(q+2, (char *)ef_ptr+EB_IZVMS_HLEN, 4);                                q[6] = ')';                                q[7] = '\0';                            }                        } else                            p = "unknown";                        Info(slide, 0, ((char *)slide,                          LoadFarString(izVMSdata),                          LoadFarStringSmall(izVMScomp[compr]),                          makeword(ef_ptr+EB_IZVMS_UCSIZ), p, q));                    }                    break;                case EF_TIME:                    if (eb_datalen >= 1) {                        char types[80];                        int num = 0, len;                        *types = '\0';                        if (*ef_ptr & 1) {                            strcpy(types, LoadFarString(UTmodification));                            ++num;                        }                        if (*ef_ptr & 2) {                            len = strlen(types);                            if (num)                                types[len++] = '/';                            strcpy(types+len, LoadFarString(UTaccess));                            ++num;                            if (*pEndprev > 0L)                                *pEndprev += 4L;                        }                        if (*ef_ptr & 4) {                            len = strlen(types);                            if (num)                                types[len++] = '/';                            strcpy(types+len, LoadFarString(UTcreation));                            ++num;                            if (*pEndprev > 0L)                                *pEndprev += 4L;                        }                        if (num > 0)                            Info(slide, 0, ((char *)slide,                              LoadFarString(UTdata), types,                              num == 1? nullStr : PlurSufx));                    }                    break;                case EF_MAC3:                    if (eb_datalen >= EB_MAC3_HLEN) {                        ulg eb_uc = makelong(ef_ptr);                        unsigned mac3_flgs = makeword(ef_ptr+EB_FLGS_OFFS);                        unsigned eb_is_uc = mac3_flgs & EB_M3_FL_UNCMPR;                        Info(slide, 0, ((char *)slide, LoadFarString(Mac3data),                          eb_uc, eb_is_uc ? "un" : nullStr));                        if (eb_is_uc) {                            if (*pEndprev > 0L)                                *pEndprev += makelon