/*
 * Copyright 1985, 1988 by the Massachusetts Institute of Technology.
 *
 * For copying and distribution information, please
 * see the file <mit-cpyright.h>.
 *
 * This routine generates the P permutation code for the DES.
 */

#include <afsconfig.h>
#include <afs/param.h>

RCSID
    ("$Header: /cvs/openafs/src/des/make_p.c,v 1.6 2006/03/09 06:34:36 shadow Exp $");

#include <mit-cpyright.h>
#include <stdio.h>
#include <des.h>
#include "des_internal.h"
#include "tables.h"
#include "des_prototypes.h"

void
gen(FILE * stream)
{
    /* P permutes 32 bit input R1 into 32 bit output R2 */

    /* clear the output */
    fprintf(stream, "    L2 = 0;\n");
#ifndef	BIG
    fprintf(stream, "    R2 = 0;\n");
    fprintf(stream, "/* P operations */\n/* from right to right */\n");
    /* first list mapping from left to left */
    for (i = 0; i <= 31; i++)
	if (P[i] < 32)
	    fprintf(stream, "    if (R1 & (1<<%d)) R2 |= 1<<%d;\n", P[i], i);
#else /* BIG */
    /* flip p into p_temp */
    fprintf(stream, "    P_temp = R1;\n");
    fprintf(stream, "    P_temp_p = (unsigned char *) &P_temp;\n");

#ifdef AFS_DARWIN80_ENV
    fprintf(stream, "#if defined(__i386__)\n");
    fprintf(stream, "    R2 = P_prime[0][*P_temp_p++];\n");
    fprintf(stream, "    R2 |= P_prime[1][*P_temp_p++];\n");
    fprintf(stream, "    R2 |= P_prime[2][*P_temp_p++];\n");
    fprintf(stream, "    R2 |= P_prime[3][*P_temp_p];\n");
    fprintf(stream, "#elif defined(__ppc__)\n");
    fprintf(stream, "    R2 = P_prime[3][*P_temp_p++];\n");
    fprintf(stream, "    R2 |= P_prime[2][*P_temp_p++];\n");
    fprintf(stream, "    R2 |= P_prime[1][*P_temp_p++];\n");
    fprintf(stream, "    R2 |= P_prime[0][*P_temp_p];\n");
    fprintf(stream, "#else\n#error Unsupported architecture\n#endif\n");
#else /* !AFS_DARWIN80_ENV */
#ifdef	LSBFIRST
    fprintf(stream, "    R2 = P_prime[0][*P_temp_p++];\n");
    fprintf(stream, "    R2 |= P_prime[1][*P_temp_p++];\n");
    fprintf(stream, "    R2 |= P_prime[2][*P_temp_p++];\n");
    fprintf(stream, "    R2 |= P_prime[3][*P_temp_p];\n");
#else /* MSBFIRST */
    fprintf(stream, "    R2 = P_prime[3][*P_temp_p++];\n");
    fprintf(stream, "    R2 |= P_prime[2][*P_temp_p++];\n");
    fprintf(stream, "    R2 |= P_prime[1][*P_temp_p++];\n");
    fprintf(stream, "    R2 |= P_prime[0][*P_temp_p];\n");
#endif /* MSBFIRST */
#endif /* !AFS_DARWIN80_ENV */
#endif /* BIG */
}
