10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe#include <mksh/dosys.h> /* sh_command2string() */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe#include <mksh/i18n.h> /* get_char_semantics_value() */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe#include <mksh/macro.h>

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe#include <mksh/misc.h> /* retmem() */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe#include <mksh/read.h> /* get_next_block_fn() */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe#include <libintl.h>

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowestatic void add_macro_to_global_list(Name macro_to_add);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowestatic void expand_value_with_daemon(Name, register Property macro, register String destination, Boolean cmd);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowestatic void init_arch_macros(void);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowestatic void init_mach_macros(void);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowestatic Boolean init_arch_done = false;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowestatic Boolean init_mach_done = false;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowelong env_alloc_num = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowelong env_alloc_bytes = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowegetvar(register Name name)

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe{

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe String_rec destination;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t buffer[STRING_BUFFER_LENGTH];

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe register Name result;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((name == host_arch) || (name == target_arch)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (!init_arch_done) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe init_arch_done = true;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe init_arch_macros();

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((name == host_mach) || (name == target_mach)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (!init_mach_done) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe init_mach_done = true;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe init_mach_macros();

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe INIT_STRING_FROM_STACK(destination, buffer);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe expand_value(maybe_append_prop(name, macro_prop)->body.macro.value,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe &destination,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe false);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe result = GETNAME(destination.buffer.start, FIND_LENGTH);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (destination.free_after_use) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe retmem(destination.buffer.start);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe return result;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe}

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Loweexpand_value(Name value, register String destination, Boolean cmd)

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe{

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe Source_rec sourceb;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe register Source source = &sourceb;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe register wchar_t *source_p = NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe register wchar_t *source_end = NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t *block_start = NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe int quote_seen = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (value == NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /*

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe MBSTOWCS(wcs_buffer, "");

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(wcs_buffer, destination, FIND_LENGTH);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe destination->text.end = destination->text.p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe return;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (!value->dollar) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /*

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe APPEND_NAME(value,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe destination,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) value->hash.length

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe );

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe destination->text.end = destination->text.p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe return;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (value->being_expanded) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe fatal_reader_mksh(gettext("Loop detected when expanding macro value `%s'"),

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe value->string_mb);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe value->being_expanded = true;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Setup the structure we read from */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe Wstring vals(value);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe sourceb.string.text.p = sourceb.string.buffer.start = wcsdup(vals.get_string());

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe sourceb.string.free_after_use = true;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe sourceb.string.text.end =

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe sourceb.string.buffer.end =

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe sourceb.string.text.p + value->hash.length;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe sourceb.previous = NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe sourceb.fd = -1;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe sourceb.inp_buf =

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe sourceb.inp_buf_ptr =

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe sourceb.inp_buf_end = NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe sourceb.error_converting = false;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Lift some pointers from the struct to local register variables */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe CACHE_SOURCE(0);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe block_start = source_p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe quote_seen = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe for (; 1; source_p++) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe switch (GET_CHAR()) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case backslash_char:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Quote $ in macro value */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (!cmd) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe quote_seen = ~quote_seen;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe continue;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case dollar_char:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Save the plain string we found since */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* start of string or previous $ */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (quote_seen) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(block_start,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe destination,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe source_p - block_start - 1);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe block_start = source_p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(block_start,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe destination,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe source_p - block_start);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe source->string.text.p = ++source_p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe UNCACHE_SOURCE();

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Go expand the macro reference */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe expand_macro(source, destination, sourceb.string.buffer.start, cmd);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe CACHE_SOURCE(1);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe block_start = source_p + 1;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case nul_char:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* The string ran out. Get some more */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(block_start,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe destination,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe source_p - block_start);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe GET_NEXT_BLOCK_NOCHK(source);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (source == NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe destination->text.end = destination->text.p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe value->being_expanded = false;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe return;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (source->error_converting) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe fatal_reader_mksh("Internal error: Invalid byte sequence in expand_value()");

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe block_start = source_p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe source_p--;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe continue;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe quote_seen = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe retmem(sourceb.string.buffer.start);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe}

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Loweexpand_macro(register Source source, register String destination, wchar_t *current_string, Boolean cmd)

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe{

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe static Name make = (Name)NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe static wchar_t colon_sh[4];

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe static wchar_t colon_shell[7];

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe String_rec string;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t buffer[STRING_BUFFER_LENGTH];

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe register wchar_t *source_p = source->string.text.p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe register wchar_t *source_end = source->string.text.end;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe register int closer = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t *block_start = (wchar_t *)NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe int quote_seen = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe register int closer_level = 1;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe Name name = (Name)NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t *colon = (wchar_t *)NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t *percent = (wchar_t *)NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t *eq = (wchar_t *) NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe Property macro = NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t *p = (wchar_t*)NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe String_rec extracted;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t extracted_string[MAXPATHLEN];

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t *left_head = NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t *left_tail = NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t *right_tail = NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe int left_head_len = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe int left_tail_len = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe int tmp_len = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t *right_hand[128];

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe int i = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe enum {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe no_extract,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe dir_extract,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe file_extract

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } extraction = no_extract;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe enum {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe no_replace,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe suffix_replace,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe pattern_replace,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe sh_replace

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } replacement = no_replace;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (make == NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe MBSTOWCS(wcs_buffer, "MAKE");

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe make = GETNAME(wcs_buffer, FIND_LENGTH);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe MBSTOWCS(colon_sh, ":sh");

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe MBSTOWCS(colon_shell, ":shell");

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe right_hand[0] = NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* First copy the (macro-expanded) macro name into string. */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe INIT_STRING_FROM_STACK(string, buffer);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowerecheck_first_char:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Check the first char of the macro name to figure out what to do. */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe switch (GET_CHAR()) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case nul_char:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe GET_NEXT_BLOCK_NOCHK(source);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (source == NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe WCSTOMBS(mbs_buffer, current_string);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe fatal_reader_mksh(gettext("'$' at end of string `%s'"),

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe mbs_buffer);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (source->error_converting) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe fatal_reader_mksh("Internal error: Invalid byte sequence in expand_macro()");

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe goto recheck_first_char;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case parenleft_char:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Multi char name. */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe closer = (int) parenright_char;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case braceleft_char:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Multi char name. */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe closer = (int) braceright_char;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case newline_char:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe fatal_reader_mksh(gettext("'$' at end of line"));

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe default:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Single char macro name. Just suck it up */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_char(*source_p, &string);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe source->string.text.p = source_p + 1;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe goto get_macro_value;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Handle multi-char macro names */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe block_start = ++source_p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe quote_seen = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe for (; 1; source_p++) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe switch (GET_CHAR()) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case nul_char:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(block_start,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe &string,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe source_p - block_start);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe GET_NEXT_BLOCK_NOCHK(source);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (source == NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (current_string != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe WCSTOMBS(mbs_buffer, current_string);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe fatal_reader_mksh(gettext("Unmatched `%c' in string `%s'"),

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe closer ==

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) braceright_char ?

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) braceleft_char :

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) parenleft_char,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe mbs_buffer);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } else {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe fatal_reader_mksh(gettext("Premature EOF"));

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (source->error_converting) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe fatal_reader_mksh("Internal error: Invalid byte sequence in expand_macro()");

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe block_start = source_p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe source_p--;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe continue;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case newline_char:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe fatal_reader_mksh(gettext("Unmatched `%c' on line"),

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe closer == (int) braceright_char ?

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) braceleft_char :

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) parenleft_char);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case backslash_char:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Quote dollar in macro value. */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (!cmd) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe quote_seen = ~quote_seen;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe continue;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case dollar_char:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /*

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (quote_seen) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(block_start,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe &string,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe source_p - block_start - 1);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe block_start = source_p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(block_start,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe &string,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe source_p - block_start);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe source->string.text.p = ++source_p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe UNCACHE_SOURCE();

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe expand_macro(source, &string, current_string, cmd);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe CACHE_SOURCE(0);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe block_start = source_p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe source_p--;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case parenleft_char:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Allow nested pairs of () in the macro name. */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (closer == (int) parenright_char) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe closer_level++;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case braceleft_char:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Allow nested pairs of {} in the macro name. */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (closer == (int) braceright_char) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe closer_level++;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case parenright_char:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case braceright_char:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /*

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((*source_p == closer) && (--closer_level <= 0)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe source->string.text.p = source_p + 1;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(block_start,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe &string,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe source_p - block_start);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe goto get_macro_value;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe quote_seen = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /*

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Loweget_macro_value:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe name = NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* First check if we have a $(@D) type translation. */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((get_char_semantics_value(string.buffer.start[0]) &

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) special_macro_sem) &&

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (string.text.p - string.buffer.start >= 2) &&

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe ((string.buffer.start[1] == 'D') ||

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (string.buffer.start[1] == 'F'))) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe switch (string.buffer.start[1]) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case 'D':

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe extraction = dir_extract;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case 'F':

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe extraction = file_extract;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe default:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe WCSTOMBS(mbs_buffer, string.buffer.start);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe fatal_reader_mksh(gettext("Illegal macro reference `%s'"),

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe mbs_buffer);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Internalize the macro name using the first char only. */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe name = GETNAME(string.buffer.start, 1);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) wcscpy(string.buffer.start, string.buffer.start + 2);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Check for other kinds of translations. */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((colon = (wchar_t *) wcschr(string.buffer.start,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) colon_char)) != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /*

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (name == NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe name = GETNAME(string.buffer.start,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe colon - string.buffer.start);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Pickup all the translations. */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (IS_WEQUAL(colon, colon_sh) || IS_WEQUAL(colon, colon_shell)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe replacement = sh_replace;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } else if ((svr4) ||

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe ((percent = (wchar_t *) wcschr(colon + 1,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) percent_char)) == NULL)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe while (colon != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((eq = (wchar_t *) wcschr(colon + 1,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) equal_char)) == NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe fatal_reader_mksh(gettext("= missing from replacement macro reference"));

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_tail_len = eq - colon - 1;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if(left_tail) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe retmem(left_tail);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_tail = ALLOC_WC(left_tail_len + 1);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) wcsncpy(left_tail,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe colon + 1,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe eq - colon - 1);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_tail[eq - colon - 1] = (int) nul_char;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe replacement = suffix_replace;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((colon = (wchar_t *) wcschr(eq + 1,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) colon_char)) != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe tmp_len = colon - eq;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if(right_tail) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe retmem(right_tail);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe right_tail = ALLOC_WC(tmp_len);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) wcsncpy(right_tail,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe eq + 1,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe colon - eq - 1);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe right_tail[colon - eq - 1] =

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) nul_char;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } else {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if(right_tail) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe retmem(right_tail);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe right_tail = ALLOC_WC(wcslen(eq) + 1);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) wcscpy(right_tail, eq + 1);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } else {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((eq = (wchar_t *) wcschr(colon + 1,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) equal_char)) == NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe fatal_reader_mksh(gettext("= missing from replacement macro reference"));

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((percent = (wchar_t *) wcschr(colon + 1,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) percent_char)) == NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe fatal_reader_mksh(gettext("%% missing from replacement macro reference"));

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (eq < percent) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe fatal_reader_mksh(gettext("%% missing from replacement macro reference"));

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (percent > (colon + 1)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe tmp_len = percent - colon;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if(left_head) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe retmem(left_head);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_head = ALLOC_WC(tmp_len);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) wcsncpy(left_head,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe colon + 1,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe percent - colon - 1);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_head[percent-colon-1] = (int) nul_char;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_head_len = percent-colon-1;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } else {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_head = NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_head_len = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (eq > percent+1) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe tmp_len = eq - percent;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if(left_tail) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe retmem(left_tail);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_tail = ALLOC_WC(tmp_len);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) wcsncpy(left_tail,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe percent + 1,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe eq - percent - 1);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_tail[eq-percent-1] = (int) nul_char;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_tail_len = eq-percent-1;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } else {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_tail = NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_tail_len = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((percent = (wchar_t *) wcschr(++eq,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) percent_char)) == NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe right_hand[0] = ALLOC_WC(wcslen(eq) + 1);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe right_hand[1] = NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) wcscpy(right_hand[0], eq);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } else {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe i = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe do {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe right_hand[i] = ALLOC_WC(percent-eq+1);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) wcsncpy(right_hand[i],

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe eq,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe percent - eq);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe right_hand[i][percent-eq] =

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) nul_char;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (i++ >= VSIZEOF(right_hand)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe fatal_mksh(gettext("Too many %% in pattern"));

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe eq = percent + 1;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (eq[0] == (int) nul_char) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe MBSTOWCS(wcs_buffer, "");

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe right_hand[i] = (wchar_t *) wcsdup(wcs_buffer);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe i++;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } while ((percent = (wchar_t *) wcschr(eq, (int) percent_char)) != NULL);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (eq[0] != (int) nul_char) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe right_hand[i] = ALLOC_WC(wcslen(eq) + 1);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) wcscpy(right_hand[i], eq);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe i++;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe right_hand[i] = NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe replacement = pattern_replace;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (name == NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /*

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe name = GETNAME(string.buffer.start,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe string.text.p - string.buffer.start);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (string.free_after_use) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe retmem(string.buffer.start);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (name == make) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe make_word_mentioned = true;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (name == query) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe query_mentioned = true;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((name == host_arch) || (name == target_arch)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (!init_arch_done) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe init_arch_done = true;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe init_arch_macros();

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((name == host_mach) || (name == target_mach)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (!init_mach_done) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe init_mach_done = true;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe init_mach_macros();

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Get the macro value. */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe macro = get_prop(name->prop, macro_prop);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((macro != NULL) && macro->body.macro.is_conditional) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe conditional_macro_used = true;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /*

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe add_macro_to_global_list(name);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (makefile_type == reading_makefile) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe warning_mksh(gettext("Conditional macro `%s' referenced in file `%ws', line %d"),

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe name->string_mb, file_being_read, line_number);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Macro name read and parsed. Expand the value. */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((macro == NULL) || (macro->body.macro.value == NULL)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* If the value is empty, we just get out of here. */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe goto exit;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (replacement == sh_replace) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* If we should do a :sh transform, we expand the command

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe INIT_STRING_FROM_STACK(string, buffer);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Expand the value into a local string buffer and run cmd. */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe expand_value_with_daemon(name, macro, &string, cmd);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe sh_command2string(&string, destination);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } else if ((replacement != no_replace) || (extraction != no_extract)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /*

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe INIT_STRING_FROM_STACK(string, buffer);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Expand the value into a local string buffer. */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe expand_value_with_daemon(name, macro, &string, cmd);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Scan the expanded string. */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe p = string.buffer.start;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe while (*p != (int) nul_char) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t chr;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /*

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe block_start = p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe while ((*p != (int) nul_char) && iswspace(*p)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe p++;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(block_start,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe destination,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe p - block_start);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Then find the end of the next word. */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe block_start = p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe while ((*p != (int) nul_char) && !iswspace(*p)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe p++;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* If we cant find another word we are done */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (block_start == p) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Then apply the transforms to the word */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe INIT_STRING_FROM_STACK(extracted, extracted_string);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe switch (extraction) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case dir_extract:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /*

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (p != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe chr = *p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe *p = (int) nul_char;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe eq = (wchar_t *) wcsrchr(block_start, (int) slash_char);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (p != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe *p = chr;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((eq == NULL) || (eq > p)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe MBSTOWCS(wcs_buffer, ".");

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(wcs_buffer, &extracted, 1);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } else {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(block_start,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe &extracted,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe eq - block_start);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case file_extract:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /*

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (p != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe chr = *p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe *p = (int) nul_char;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe eq = (wchar_t *) wcsrchr(block_start, (int) slash_char);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (p != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe *p = chr;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((eq == NULL) || (eq > p)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(block_start,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe &extracted,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe p - block_start);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } else {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(eq + 1,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe &extracted,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe p - eq - 1);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case no_extract:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(block_start,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe &extracted,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe p - block_start);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe switch (replacement) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case suffix_replace:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /*

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (((extracted.text.p -

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe extracted.buffer.start) >=

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_tail_len) &&

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe IS_WEQUALN(extracted.text.p - left_tail_len,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_tail,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_tail_len)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(extracted.buffer.start,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe destination,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (extracted.text.p -

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe extracted.buffer.start)

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe - left_tail_len);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(right_tail,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe destination,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe FIND_LENGTH);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } else {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(extracted.buffer.start,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe destination,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe FIND_LENGTH);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case pattern_replace:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* $(X:a%b=c%d) type transform. */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (((extracted.text.p -

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe extracted.buffer.start) >=

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_head_len+left_tail_len) &&

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe IS_WEQUALN(left_head,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe extracted.buffer.start,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_head_len) &&

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe IS_WEQUALN(left_tail,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe extracted.text.p - left_tail_len,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_tail_len)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe i = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe while (right_hand[i] != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(right_hand[i],

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe destination,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe FIND_LENGTH);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe i++;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (right_hand[i] != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(extracted.buffer.

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe start +

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe left_head_len,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe destination,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (extracted.text.p - extracted.buffer.start)-left_head_len-left_tail_len);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } else {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(extracted.buffer.start,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe destination,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe FIND_LENGTH);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case no_replace:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(extracted.buffer.start,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe destination,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe FIND_LENGTH);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case sh_replace:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (string.free_after_use) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe retmem(string.buffer.start);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } else {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /*

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (!strncmp(name->string_mb, "GET", 3)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe dollarget_seen = true;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe dollarless_flag = false;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (!strncmp(name->string_mb, "<", 1) &&

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe dollarget_seen) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe dollarless_flag = true;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe dollarget_seen = false;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe expand_value_with_daemon(name, macro, destination, cmd);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Loweexit:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if(left_tail) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe retmem(left_tail);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if(right_tail) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe retmem(right_tail);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if(left_head) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe retmem(left_head);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe i = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe while (right_hand[i] != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe retmem(right_hand[i]);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe i++;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe *destination->text.p = (int) nul_char;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe destination->text.end = destination->text.p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe}

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowestatic void

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Loweadd_macro_to_global_list(Name macro_to_add)

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe{

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe Macro_list new_macro;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe Macro_list macro_on_list;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe char *name_on_list = (char*)NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe char *name_to_add = macro_to_add->string_mb;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe char *value_on_list = (char*)NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe const char *value_to_add = (char*)NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (macro_to_add->prop->body.macro.value != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe value_to_add = macro_to_add->prop->body.macro.value->string_mb;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } else {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe value_to_add = "";

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /*

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe for (macro_on_list = cond_macro_list;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe macro_on_list != NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe macro_on_list = macro_on_list->next) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe name_on_list = macro_on_list->macro_name;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe value_on_list = macro_on_list->value;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (IS_EQUAL(name_on_list, name_to_add)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (IS_EQUAL(value_on_list, value_to_add)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe return;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe new_macro = (Macro_list) malloc(sizeof(Macro_list_rec));

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe new_macro->macro_name = strdup(name_to_add);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe new_macro->value = strdup(value_to_add);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe new_macro->next = cond_macro_list;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe cond_macro_list = new_macro;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe}

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowestatic void

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Loweinit_arch_macros(void)

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe{

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe String_rec result_string;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t wc_buf[STRING_BUFFER_LENGTH];

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe char mb_buf[STRING_BUFFER_LENGTH];

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe FILE *pipe;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe Name value;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe int set_host, set_target;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe const char *mach_command = "/bin/mach";

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe set_host = (get_prop(host_arch->prop, macro_prop) == NULL);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe set_target = (get_prop(target_arch->prop, macro_prop) == NULL);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (set_host || set_target) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe INIT_STRING_FROM_STACK(result_string, wc_buf);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_char((int) hyphen_char, &result_string);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((pipe = popen(mach_command, "r")) == NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe fatal_mksh(gettext("Execute of %s failed"), mach_command);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe while (fgets(mb_buf, sizeof(mb_buf), pipe) != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe MBSTOWCS(wcs_buffer, mb_buf);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(wcs_buffer, &result_string, wcslen(wcs_buffer));

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (pclose(pipe) != 0) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe fatal_mksh(gettext("Execute of %s failed"), mach_command);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe value = GETNAME(result_string.buffer.start, wcslen(result_string.buffer.start));

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (set_host) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) setvar_daemon(host_arch, value, false, no_daemon, true, 0);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (set_target) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) setvar_daemon(target_arch, value, false, no_daemon, true, 0);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe}

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowestatic void

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Loweinit_mach_macros(void)

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe{

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe String_rec result_string;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t wc_buf[STRING_BUFFER_LENGTH];

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe char mb_buf[STRING_BUFFER_LENGTH];

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe FILE *pipe;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe Name value;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe int set_host, set_target;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe const char *arch_command = "/bin/arch";

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe set_host = (get_prop(host_mach->prop, macro_prop) == NULL);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe set_target = (get_prop(target_mach->prop, macro_prop) == NULL);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (set_host || set_target) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe INIT_STRING_FROM_STACK(result_string, wc_buf);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_char((int) hyphen_char, &result_string);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((pipe = popen(arch_command, "r")) == NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe fatal_mksh(gettext("Execute of %s failed"), arch_command);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe while (fgets(mb_buf, sizeof(mb_buf), pipe) != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe MBSTOWCS(wcs_buffer, mb_buf);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(wcs_buffer, &result_string, wcslen(wcs_buffer));

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (pclose(pipe) != 0) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe fatal_mksh(gettext("Execute of %s failed"), arch_command);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe value = GETNAME(result_string.buffer.start, wcslen(result_string.buffer.start));

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (set_host) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) setvar_daemon(host_mach, value, false, no_daemon, true, 0);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (set_target) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) setvar_daemon(target_mach, value, false, no_daemon, true, 0);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe}

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowestatic void

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Loweexpand_value_with_daemon(Name, register Property macro, register String destination, Boolean cmd)

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe{

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe register Chain chain;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe switch (macro->body.macro.daemon) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case no_daemon:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (!svr4 && !posix) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe expand_value(macro->body.macro.value, destination, cmd);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } else {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (dollarless_flag && tilde_rule) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe expand_value(dollarless_value, destination, cmd);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe dollarless_flag = false;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe tilde_rule = false;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } else {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe expand_value(macro->body.macro.value, destination, cmd);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe return;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case chain_daemon:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* If this is a $? value we call the daemon to translate the */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* list of names to a string */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe for (chain = (Chain) macro->body.macro.value;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe chain != NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe chain = chain->next) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe APPEND_NAME(chain->name,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe destination,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) chain->name->hash.length);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (chain->next != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_char((int) space_char, destination);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe return;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe}

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowechar *sunpro_dependencies_buf = NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowechar *sunpro_dependencies_oldbuf = NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Loweint sunpro_dependencies_buf_size = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowesetvar_daemon(register Name name, register Name value, Boolean append, Daemon daemon, Boolean strip_trailing_spaces, short debug_level)

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe{

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe register Property macro = maybe_append_prop(name, macro_prop);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe register Property macro_apx = get_prop(name->prop, macro_append_prop);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe int length = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe String_rec destination;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t buffer[STRING_BUFFER_LENGTH];

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe register Chain chain;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe Name val;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t *val_string = (wchar_t*)NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe Wstring wcb;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((makefile_type != reading_nothing) &&

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe macro->body.macro.read_only) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe return macro;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Strip spaces from the end of the value */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (daemon == no_daemon) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if(value != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wcb.init(value);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe length = wcb.length();

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe val_string = wcb.get_string();

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((length > 0) && iswspace(val_string[length-1])) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe INIT_STRING_FROM_STACK(destination, buffer);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe buffer[0] = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_string(val_string, &destination, length);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (strip_trailing_spaces) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe while ((length > 0) &&

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe iswspace(destination.buffer.start[length-1])) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe destination.buffer.start[--length] = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe value = GETNAME(destination.buffer.start, FIND_LENGTH);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if(macro_apx != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe val = macro_apx->body.macro_appendix.value;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } else {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe val = macro->body.macro.value;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (append) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /*

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe INIT_STRING_FROM_STACK(destination, buffer);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe buffer[0] = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((macro != NULL) && (val != NULL)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe APPEND_NAME(val,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe &destination,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) val->hash.length);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (value != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wcb.init(value);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if(wcb.length() > 0) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe MBTOWC(wcs_buffer, " ");

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_char(wcs_buffer[0], &destination);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (value != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe APPEND_NAME(value,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe &destination,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) value->hash.length);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe value = GETNAME(destination.buffer.start, FIND_LENGTH);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wcb.init(value);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (destination.free_after_use) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe retmem(destination.buffer.start);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Debugging trace */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (debug_level > 1) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (value != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe switch (daemon) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case chain_daemon:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) printf("%s =", name->string_mb);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe for (chain = (Chain) value;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe chain != NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe chain = chain->next) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) printf(" %s", chain->name->string_mb);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) printf("\n");

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe case no_daemon:

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) printf("%s= %s\n",

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe name->string_mb,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe value->string_mb);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe break;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } else {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) printf("%s =\n", name->string_mb);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Set the new values in the macro property block */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if(macro_apx != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe macro_apx->body.macro_appendix.value = value;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe INIT_STRING_FROM_STACK(destination, buffer);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe buffer[0] = 0;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (value != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe APPEND_NAME(value,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe &destination,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) value->hash.length);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (macro_apx->body.macro_appendix.value_to_append != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe MBTOWC(wcs_buffer, " ");

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe append_char(wcs_buffer[0], &destination);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (macro_apx->body.macro_appendix.value_to_append != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe APPEND_NAME(macro_apx->body.macro_appendix.value_to_append,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe &destination,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (int) macro_apx->body.macro_appendix.value_to_append->hash.length);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe value = GETNAME(destination.buffer.start, FIND_LENGTH);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (destination.free_after_use) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe retmem(destination.buffer.start);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe macro->body.macro.value = value;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe macro->body.macro.daemon = daemon;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /*

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (name == path_name) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe flush_path_cache();

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (name == virtual_root) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe flush_vroot_cache();

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* If this sets the VPATH we remember that */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if ((name == vpath_name) &&

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (value != NULL) &&

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (value->hash.length > 0)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe vpath_defined = true;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /*

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (macro->body.macro.exported) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe static char *env;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (!reading_environment && (value != NULL)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe Envvar p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe for (p = envvar; p != NULL; p = p->next) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (p->name == name) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe p->value = value;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe p->already_put = false;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe goto found_it;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe p = ALLOC(Envvar);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe p->name = name;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe p->value = value;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe p->next = envvar;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe p->env_string = NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe p->already_put = false;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe envvar = p;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowefound_it:;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } if (reading_environment || (value == NULL) || !value->dollar) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe length = 2 + strlen(name->string_mb);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (value != NULL) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe length += strlen(value->string_mb);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe Property env_prop = maybe_append_prop(name, env_mem_prop);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /*

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (!strncmp(name->string_mb, "SUNPRO_DEPENDENCIES", 19)) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (length >= sunpro_dependencies_buf_size) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe sunpro_dependencies_buf_size=length*2;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (sunpro_dependencies_buf_size < 4096)

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe sunpro_dependencies_buf_size = 4096; // Default minimum size

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (sunpro_dependencies_buf)

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe sunpro_dependencies_oldbuf = sunpro_dependencies_buf;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe sunpro_dependencies_buf=getmem(sunpro_dependencies_buf_size);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe env = sunpro_dependencies_buf;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe } else {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe env = getmem(length);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe env_alloc_num++;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe env_alloc_bytes += length;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) sprintf(env,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe "%s=%s",

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe name->string_mb,

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe value == NULL ?

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe "" : value->string_mb);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe (void) putenv(env);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe env_prop->body.env_mem.value = env;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (sunpro_dependencies_oldbuf) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe /* Return old buffer */

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe retmem_mb(sunpro_dependencies_oldbuf);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe sunpro_dependencies_oldbuf = NULL;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe }

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe if (name == target_arch) {

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe Name ha = getvar(host_arch);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe Name ta = getvar(target_arch);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe Name vr = getvar(virtual_root);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe int length;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t *new_value;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t *old_vr;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe Boolean new_value_allocated = false;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe Wstring ha_str(ha);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe Wstring ta_str(ta);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe Wstring vr_str(vr);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t * wcb_ha = ha_str.get_string();

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t * wcb_ta = ta_str.get_string();

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wchar_t * wcb_vr = vr_str.get_string();

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe length = 32 +

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wcslen(wcb_ha) +

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wcslen(wcb_ta) +

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe wcslen(wcb_vr);

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe old_vr = wcb_vr;

10d63b7db37a83b39c7f511cf9426c9d03ea0760Richard Lowe MBSTOWCS(wcs_buffer, "/usr/arch/");