/* * Copyright (c) 2002, The Tendra Project * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice unmodified, this list of conditions, and the following * disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. * * * Crown Copyright (c) 1997 * * This TenDRA(r) Computer Program is subject to Copyright * owned by the United Kingdom Secretary of State for Defence * acting through the Defence Evaluation and Research Agency * (DERA). It is made available to Recipients with a * royalty-free licence for its use, reproduction, transfer * to other parties and amendment for any purpose not excluding * product development provided that any such use et cetera * shall be deemed to be acceptance of the following conditions:- * * (1) Its Recipients shall ensure that this Notice is * reproduced upon any copies or amended versions of it; * * (2) Any amended version of it shall be clearly marked to * show both the nature of and the organisation responsible * for the relevant amendment or amendments; * * (3) Its onward transfer from a recipient to another * party shall be deemed to be that party's acceptance of * these conditions; * * (4) DERA gives no warranty or assurance as to its * quality or suitability for any purpose and DERA accepts * no liability whatsoever in relation to any use to which * it may be put. * * $TenDRA: tendra/src/tools/tspec/variable.c,v 1.7 2004/08/08 08:50:21 stefanf Exp $ */ #include "config.h" #include "msgcat.h" #include "object.h" #include "hash.h" #include "name.h" #include "type.h" #include "utility.h" /* * CURRENT OBJECT * * This is the current object, which is affected by any file property * changes. */ object *crt_object = null; /* * SET A STRING VARIABLE * * This routine sets the string variable with identifier v to have value s. */ void set_string(char *v, char *s) { boolean known = 0; switch (v [1]) { case 'A' : { if (streq (v, "$APINAME")) { if (crt_object) { info *i = crt_object->u.u_info; i->api = s; i->prefix = null; } known = 1; } break; } case 'B' : { if (streq (v, "$BLOCKNAME")) { if (crt_object) { info *i = crt_object->u.u_info; if (*s) { i->block = hack_name (s, "_Aa0"); } else { i->block = null; } } known = 1; } break; } case 'F' : { if (streq (v, "$FILE")) { filename = s; known = 1; } else if (streq (v, "$FILENAME")) { if (crt_object) { info *i = crt_object->u.u_info; i->file = s; i->prefix = null; } known = 1; } break; } case 'I' : { if (streq (v, "$INCLNAME")) { if (crt_object) { info *i = crt_object->u.u_info; if (*s) { char *dir = output_incl_dir; char *sub = null; i->incl = include_name (dir, i->api, s, sub); } else { i->incl = null; } } known = 1; } break; } case 'L' : { if (streq (v, "$LINKAGE")) { if (crt_object) { info *i = crt_object->u.u_info; if (*s) { i->linkage = s; } else { i->linkage = null; } } known = 1; } break; } case 'M' : { if (streq (v, "$METHOD")) { if (crt_object) { info *i = crt_object->u.u_info; i->method = s; if (i->src && streq (s, "TNC")) { int n = (int) strlen (i->src) - 1; i->src [n] = 'p'; } } known = 1; } break; } case 'N' : { if (streq (v, "$NAMESPACE")) { if (crt_object) { info *i = crt_object->u.u_info; if (*s) { i->nspace = s; } else { i->nspace = null; } } known = 1; } break; } case 'P' : { if (streq (v, "$PREFIX")) { if (crt_object) crt_object->u.u_info->prefix = s; known = 1; } else if (streq (v, "$PROTECT")) { if (crt_object) crt_object->u.u_info->protect = s; known = 1; } break; } case 'S' : { if (streq (v, "$SOURCENAME")) { if (crt_object) { info *i = crt_object->u.u_info; if (*s) { char *dir = output_src_dir; char *sub = null; i->src = src_name (dir, i->api, s, sub); } else { i->src = null; } } known = 1; } else if (streq (v, "$SUBSETNAME")) { if (crt_object) { info *i = crt_object->u.u_info; i->subset = s; i->prefix = null; } known = 1; } break; } case 'V' : { if (streq (v, "$VERSION")) { if (crt_object) crt_object->u.u_info->version = s; known = 1; } break; } } if (!known) MSG_unknown_string_variable (v); return; } /* * SET AN INTEGER VARIABLE * * This routine sets the integer variable with identifier v to have value n. */ void set_integer(char *v, int n) { boolean known = 0; switch (v [1]) { case 'I' : { if (streq (v, "$INTERFACE")) { if (crt_object) { crt_object->u.u_info->tokens = (boolean) n; } known = 1; } break; } case 'L' : { if (streq (v, "$LINE")) { line_no = n; known = 1; } break; } case 'U' : { if (streq (v, "$UNIQUE")) { unique_names = (boolean) n; known = 1; } break; } case 'V' : { if (streq (v, "$VERBOSE")) { verbose = n; known = 1; } break; } } if (!known) MSG_unknown_integer_variable (v); return; }