cmd/pax/convert.c

/***********************************************************************
*                                                                      *
*               This software is part of the ast package               *
*          Copyright (c) 1987-2011 AT&T Intellectual Property          *
*                      and is licensed under the                       *
*                 Eclipse Public License, Version 1.0                  *
*                    by AT&T Intellectual Property                     *
*                                                                      *
*                A copy of the License is available at                 *
*          http://www.eclipse.org/org/documents/epl-v10.html           *
*         (with md5 checksum b35adb5213ca9657e911e9befb180842)         *
*                                                                      *
*              Information and Software Systems Research               *
*                            AT&T Research                             *
*                           Florham Park NJ                            *
*                                                                      *
*                 Glenn Fowler <gsf@research.att.com>                  *
*                                                                      *
***********************************************************************/
#pragma prototyped
/*
 * Glenn Fowler
 * AT&T Bell Laboratories
 *
 * pax conversion support
 */

#include "pax.h"

/*
 * set char code conversion for section
 */

void
convert(Archive_t* ap, int section, int from, int to)
{
    if (ap->convert[section].on = (ap->convert[section].f2t = ccmap(from, to)) != 0)
    {
        ap->convert[section].t2f = ccmap(to, from);
        ap->convert[section].f2a = ccmap(from, CC_ASCII);
        ap->convert[section].t2a = ccmap(to, CC_ASCII);
    }
}

/*
 * convert string to lower case in place
 */

char*
strlower(register char* s)
{
    register int    c;
    register char*  t;

    for (t = s; c = *t; t++)
        if (isupper(c))
            *t = tolower(c);
    return s;
}

/*
 * convert string to upper case in place
 */

char*
strupper(register char* s)
{
    register int    c;
    register char*  t;

    for (t = s; c = *t; t++)
        if (islower(c))
            *t = toupper(c);
    return s;
}

/*
 * return 1 if s is a portable string
 */

int
portable(Archive_t* ap, const char* s)
{
    register unsigned char* u = (unsigned char*)s;
    register unsigned char* m;
    register int        c;

    if (!ap->convert[SECTION_CONTROL].on)
    {
        while (c = *u++)
            if (c > 0177)
                return 0;
    }
    else
    {
        m = ap->convert[SECTION_CONTROL].f2t;
        while (c = m[*u++])
            if (c > 0177)
                return 0;
    }
    return 1;
}

/*
 * this is an obsolete version of the ast library implementation
 */

#undef  OHASHPART
#define OHASHPART(b,h,c,l,r)    (h = ((h = ((unsigned)h << (l)) ^ (h >> (r)) ^ (c)) & ((unsigned)1 << (b)) ? ~h : h) & (((((unsigned)1 << ((b) - 1)) - 1) << 2) | 3))

#undef  OHASHLPART
#define OHASHLPART(h,c)     OHASHPART(31, h, c, 3, 2)

unsigned long
omemsum(const void* b, int n, register unsigned long c)
{
    register unsigned char* p;
    register unsigned char* e;

    p = (unsigned char*)b;
    e = p + n;
    while (p < e) OHASHLPART(c, *p++ + 1);
    return c;
}