/***************************************************************/

/*  perk: PE Resource Kit                                      */

/*  Copyright (C) 2015--2025  SysDeer Technologies, LLC        */

/*  Released under GPLv2 and GPLv3; see COPYING.PERK.          */

/***************************************************************/

#include <stdint.h>

#include <stddef.h>

#include <stdlib.h>

#include <string.h>

#include <perk/perk.h>

#include <perk/perk_arbits.h>

#include "perk_ar_impl.h"

#include "perk_driver_impl.h"

#include "perk_errinfo_impl.h"

#include "perk_visibility_impl.h"

perk_hidden int pe_ar_parse_primary_armap_bsd_32(

	const struct pe_driver_ctx *    dctx,

	struct pe_archive_meta_impl *   m)

{

	struct ar_raw_armap_bsd_32 *    armap;

	struct ar_meta_member_info *    memberp;

	struct ar_meta_armap_common_32 *armapref;

	struct ar_meta_armap_ref_32 *   symrefs;

	uint32_t                        idx;

	uint32_t                        uref;

	uint32_t                        attr;

	uint32_t                        nsyms;

	uint32_t                        nstrs;

	uint32_t                        sizeofrefs_le;

	uint32_t                        sizeofrefs_be;

	uint32_t                        sizeofrefs;

	uint32_t                        sizeofstrs;

	const char *                    ch;

	const char *                    cap;

	unsigned char *                 uch;

	unsigned char                   (*mark)[0x04];

	armap   = &m->armaps.armap_bsd_32;

	memberp = m->memberv[0];

	mark = memberp->ar_object_data;

	armap->ar_size_of_refs = mark;

	uch = *mark++;

	armap->ar_first_name_offset = mark;

	sizeofrefs_le = (uch[3] << 24) + (uch[2] << 16) + (uch[1] << 8) + uch[0];

	sizeofrefs_be = (uch[0] << 24) + (uch[1] << 16) + (uch[2] << 8) + uch[3];

	if (sizeofrefs_le < memberp->ar_object_size - sizeof(*mark)) {

		sizeofrefs = sizeofrefs_le;

		attr       = AR_ARMAP_ATTR_LE_32;

	} else if (sizeofrefs_be < memberp->ar_object_size - sizeof(*mark)) {

		sizeofrefs = sizeofrefs_be;

		attr       = AR_ARMAP_ATTR_BE_32;

	} else {

		return PERK_CUSTOM_ERROR(

			dctx,

			PERK_ERR_AR_INVALID_ARMAP_SIZE_OF_REFS);

	}

	nsyms  = sizeofrefs / sizeof(struct ar_raw_armap_ref_32);

	mark  += (sizeofrefs / sizeof(*mark));

	armap->ar_size_of_strs = mark;

	uch = *mark++;

	sizeofstrs = (attr == AR_ARMAP_ATTR_LE_32)

		? (uch[3] << 24) + (uch[2] << 16) + (uch[1] << 8) + uch[0]

		: (uch[0] << 24) + (uch[1] << 16) + (uch[2] << 8) + uch[3];

	if (sizeofstrs > memberp->ar_object_size - 2*sizeof(*mark) - sizeofrefs)

		return PERK_CUSTOM_ERROR(

			dctx,

			PERK_ERR_AR_INVALID_ARMAP_SIZE_OF_STRS);

	m->symstrs = (const char *)mark;

	cap  = m->symstrs;

	cap += sizeofstrs;

	if ((cap == m->symstrs) && nsyms)

		return PERK_CUSTOM_ERROR(

			dctx,

			PERK_ERR_AR_INVALID_ARMAP_STRING_TABLE);

	if (nsyms && !m->symstrs[0])

		return PERK_CUSTOM_ERROR(

			dctx,

			PERK_ERR_AR_INVALID_ARMAP_STRING_TABLE);

	for (ch=&m->symstrs[1],nstrs=0; ch

		if (!ch[0] && !ch[-1] && (nstrs < nsyms))

			return PERK_CUSTOM_ERROR(

				dctx,

				PERK_ERR_AR_INVALID_ARMAP_STRING_TABLE);

		if (!ch[0] && ch[-1] && (nstrs < nsyms))

			nstrs++;

	}

	if (nstrs != nsyms)

		return PERK_CUSTOM_ERROR(

			dctx,

			PERK_ERR_AR_INVALID_ARMAP_STRING_TABLE);

	if (!(m->symstrv = calloc(nsyms + 1,sizeof(const char *))))

		return PERK_SYSTEM_ERROR(dctx);

	if (!(m->armaps.armap_symrefs_32 = calloc(nsyms + 1,sizeof(*symrefs))))

		return PERK_SYSTEM_ERROR(dctx);

	mark    = armap->ar_first_name_offset;

	symrefs = m->armaps.armap_symrefs_32;

	for (idx=0; idx

		uch  = *mark++;

		uref = (attr == AR_ARMAP_ATTR_BE_32)

			? (uch[0] << 24) + (uch[1] << 16) + (uch[2] << 8) + uch[3]

			: (uch[3] << 24) + (uch[2] << 16) + (uch[1] << 8) + uch[0];

		symrefs[idx].ar_name_offset = uref;

		uch  = *mark++;

		uref = (attr == AR_ARMAP_ATTR_BE_32)

			? (uch[0] << 24) + (uch[1] << 16) + (uch[2] << 8) + uch[3]

			: (uch[3] << 24) + (uch[2] << 16) + (uch[1] << 8) + uch[0];

		symrefs[idx].ar_member_offset = uref;

	}

	armap->ar_string_table = m->symstrv;

	armapref = &m->armaps.armap_common_32;

	armapref->ar_member         = memberp;

	armapref->ar_symrefs        = symrefs;

	armapref->ar_armap_bsd      = armap;

	armapref->ar_armap_attr     = AR_ARMAP_ATTR_BSD | attr;

	armapref->ar_num_of_symbols = nsyms;

	armapref->ar_size_of_refs   = sizeofrefs;

	armapref->ar_size_of_strs   = sizeofstrs;

	armapref->ar_string_table   = m->symstrs;

	m->armaps.armap_nsyms = nsyms;

	m->armeta.a_armap_primary.ar_armap_common_32 = armapref;

	return 0;

}