WebSVN – tendra.SVN – Diff – /trunk/src/installers/common/linkinfo/li_fns.c

+/*
+ * Copyright (c) 2002-2005 The TenDRA Project <http://www.tendra.org/>.
+ * 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,
+ *    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.
+ * 3. Neither the name of The TenDRA Project nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific, prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``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 COPYRIGHT HOLDERS OR
+ * CONTRIBUTORS 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.
+ *
+ * $Id$
+ */
 /*
     		 Crown Copyright (c) 1997
     This TenDRA(r) Computer Program is subject to Copyright
     owned by the United Kingdom Secretary of State for Defence
 #endif
 #if use_link_stuff
 extern weak_cell *weak_list;
 #include "out.h"
 #endif
 #include "xalloc.h"
 #include "readglob.h"
 #include "basicread.h"
 #include "exp.h"
 #include "expmacs.h"
 #include "tags.h"
 #include "machine.h"
 /* PROCEDURES */
-extern void out_rename PROTO_S ( ( char *, char * ) ) ;
+extern void out_rename(char *, char *);
-static char * id_prefix
-    PROTO_N ( (s) )
-    PROTO_T ( char * s )
-{
-  char * r;
-  int l1, l2;
-  l1 = (int)strlen(name_prefix);
-  if (l1==0)
-     return s;
-  l2 = (int)strlen(s);
-  r = (char *)xcalloc(l1+l2+1, sizeof(char));
-  IGNORE strcpy(r, name_prefix);
-  IGNORE strcpy(&r[l1], s);
-  return r;
-}
-linkinfo f_make_weak_defn
-    PROTO_N ( (e1, e2) )
-    PROTO_T ( exp e1 X exp e2 )
-{
-#if use_link_stuff
-  weak_cell * wc = (weak_cell *)xmalloc(sizeof(weak_cell));
-  wc -> weak_id = brog(son(e1))-> dec_u.dec_val.dec_id;
-  wc -> val_id = brog(son(e2))-> dec_u.dec_val.dec_id;
-  brog(son(e2))-> dec_u.dec_val.isweak = 1;
-  wc -> next = weak_list;
-  weak_list = wc;
-#endif
-  kill_exp(e1, e1);
-  kill_exp(e2, e2);
-  return 0;
-}
+static char *
+id_prefix(char *s)
+{
+	char *r;
+	int l1, l2;
+	l1 = (int)strlen(name_prefix);
+	if (l1==0) {
+		return s;
+	}
+	l2 = (int)strlen(s);
+	r = (char *)xcalloc(l1 + l2 + 1, sizeof(char));
+	IGNORE strcpy(r, name_prefix);
+	IGNORE strcpy(&r[l1], s);
+	return r;
+}
+linkinfo
+f_make_weak_defn(exp e1, exp e2)
+{
-linkinfo f_make_weak_symbol
+#if use_link_stuff
+	weak_cell *wc = (weak_cell *)xmalloc(sizeof(weak_cell));
+	wc->weak_id = brog(son(e1))->dec_u.dec_val.dec_id;
+	wc->val_id = brog(son(e2))->dec_u.dec_val.dec_id;
+	brog(son(e2))->dec_u.dec_val.isweak = 1;
+	wc->next = weak_list;
+	weak_list = wc;
+#endif
+	kill_exp(e1, e1);
-    PROTO_N ( (id, e) )
+	kill_exp(e2, e2);
+	return 0;
+}
+linkinfo
-    PROTO_T ( tdfstring id X exp e )
+f_make_weak_symbol(tdfstring id, exp e)
+{
 #if use_link_stuff
-  char * * lid = &brog(son(e))-> dec_u.dec_val.dec_id;
+	char **lid = &brog(son(e))->dec_u.dec_val.dec_id;
-  char * nid = id_prefix(id.ints.chars);
+	char *nid = id_prefix(id.ints.chars);
-  brog(son(e))-> dec_u.dec_val.isweak = 1;
+	brog(son(e))->dec_u.dec_val.isweak = 1;
-  brog(son(e))-> dec_u.dec_val.extnamed = 1;
+	brog(son(e))->dec_u.dec_val.extnamed = 1;
-  outs(".weak ");
+	outs(".weak ");
-  outs(nid);
+	outs(nid);
-  outnl();
+	outnl();
-  out_rename(*lid, nid);
+	out_rename(*lid, nid);
-  *lid = nid;
+	*lid = nid;
 #endif
-  kill_exp(e, e);
+	kill_exp(e, e);
-  return 0;
+	return 0;
+}
-linkinfo f_make_comment
+linkinfo
-    PROTO_N ( (id) )
-    PROTO_T ( tdfstring id )
+f_make_comment(tdfstring id)
+{
 #if use_link_stuff
-  outs(".ident \"");
+	outs(".ident \"");
-  outs(id_prefix(id.ints.chars));
+	outs(id_prefix(id.ints.chars));
-  outs("\"");
+	outs("\"");
-  outnl();
+	outnl();
 #endif
-  return 0;
+	return 0;
+}
-linkinfo f_static_name_def
-    PROTO_N ( (e, id) )
-    PROTO_T ( exp e X tdfstring id )
-{
-  char * * oldid = &brog(son(e))-> dec_u.dec_val.dec_id;
-  char * newid = id_prefix(id.ints.chars);
+linkinfo
-  if (name(e) != name_tag || !isglob(son(e)))
+f_static_name_def(exp e, tdfstring id)
-    {
+{
+	char **oldid = &brog(son(e))->dec_u.dec_val.dec_id;
+	char *newid = id_prefix(id.ints.chars);
+	if (name(e) != name_tag || !isglob(son(e))) {
-      failer(ILLEGAL_STATIC);
+		failer(ILLEGAL_STATIC);
-      kill_exp(e, e);
+		kill_exp(e, e);
-      return 0;
+		return 0;
-    };
+	}
-  if (separate_units)
+	if (separate_units) {
-     failer(INCOMPATIBLE_U);
+		failer(INCOMPATIBLE_U);
-  else
+	} else {
-     out_rename(*oldid, newid);
+		out_rename(*oldid, newid);
+	}
-  *oldid = newid;
+	*oldid = newid;
-  kill_exp(e, e);
+	kill_exp(e, e);
+	return 0;
+}
+void
+init_linkinfo(void)
+{
+	return;
+}
+linkinfo f_dummy_linkinfo;
+linkinfo_list
+new_linkinfo_list(int n)
+{
+	UNUSED(n);
-  return 0;
+	return 0;
 }
+linkinfo_list
+add_linkinfo_list(linkinfo_list list, linkinfo elem, int index)
+{
+	UNUSED(list);
+	UNUSED(elem);
+	UNUSED(index);
+	return 0;
+}
+void
+start_make_linkinfo_unit(int no_of_tokens, int no_of_tags, int no_of_als,
+			 int no_of_diagtypes)
+{
+	int i;
+	UNUSED(no_of_diagtypes);
+	unit_no_of_tokens = no_of_tokens;
+	unit_ind_tokens = (tok_define **)xcalloc(unit_no_of_tokens,
+						 sizeof(tok_define *));
+	for (i = 0; i < unit_no_of_tokens; ++i) {
+		unit_ind_tokens[i] = (tok_define *)0;
+	}
-void init_linkinfo
+	unit_no_of_tags = no_of_tags;
+	unit_ind_tags = (dec **)xcalloc(unit_no_of_tags, sizeof(dec *));
-    PROTO_Z ()
+	for (i = 0; i < unit_no_of_tags; ++i) {
-{
-  return;
+		unit_ind_tags[i] = (dec *)0;
-}
+	}
-linkinfo f_dummy_linkinfo;
+	unit_no_of_als = no_of_als;
+	unit_ind_als = (aldef **)xcalloc(unit_no_of_als, sizeof(aldef *));
+	for (i = 0; i < unit_no_of_als; ++i) {
+		unit_ind_als[i] = (aldef *)0;
+	}
-linkinfo_list new_linkinfo_list
-    PROTO_N ( (n) )
-    PROTO_T ( int n )
-{
-  UNUSED(n);
-  return 0;
+	return;
+}
+int
-linkinfo_list add_linkinfo_list
+f_make_linkinfo_unit(void)
-    PROTO_N ( (list, elem, index) )
-    PROTO_T ( linkinfo_list list X linkinfo elem X int index )
+{
-  UNUSED(list); UNUSED(elem); UNUSED(index);
-  return 0;
-}
-void start_make_linkinfo_unit
-    PROTO_N ( (no_of_tokens, no_of_tags, no_of_als, no_of_diagtypes) )
-    PROTO_T ( int no_of_tokens X int no_of_tags X int no_of_als X int no_of_diagtypes )
-{
-  int i;
-  UNUSED(no_of_diagtypes);
-  unit_no_of_tokens = no_of_tokens;
-  unit_ind_tokens = (tok_define * *)xcalloc(unit_no_of_tokens,
-                    sizeof(tok_define *));
-  for (i = 0; i < unit_no_of_tokens; ++i)
-    unit_ind_tokens[i] = (tok_define*)0;
-  unit_no_of_tags = no_of_tags;
-  unit_ind_tags = (dec * *)xcalloc(unit_no_of_tags,
-                    sizeof(dec *));
-  for (i = 0; i < unit_no_of_tags; ++i)
-    unit_ind_tags[i] = (dec*)0;
-  unit_no_of_als = no_of_als;
-  unit_ind_als = (aldef * *)xcalloc(unit_no_of_als,
-                    sizeof(aldef *));
-  for (i = 0; i < unit_no_of_als; ++i)
-    unit_ind_als[i] = (aldef*)0;
-  return;
-}
-int f_make_linkinfo_unit
-    PROTO_Z ()
-{
-  int i;
+	int i;
-  int j = 0;
+	int j = 0;
-  int no_of_labels;
+	int no_of_labels;
-  for (i = 0; i < unit_no_of_tokens; ++i)
+	for (i = 0; i < unit_no_of_tokens; ++i) {
-   {
-    if (unit_ind_tokens[i] == (tok_define*)0)
+		if (unit_ind_tokens[i] == (tok_define *)0)
-      unit_ind_tokens[i] = &unit_toktab[j++];
+			unit_ind_tokens[i] = &unit_toktab[j++];
-   };
+	}
-  j = 0;
+	j = 0;
-  for (i = 0; i < unit_no_of_tags; ++i)
+	for (i = 0; i < unit_no_of_tags; ++i) {
-   {
-    if (unit_ind_tags[i] == (dec*)0)
+		if (unit_ind_tags[i] == (dec *)0)
-      unit_ind_tags[i] = &unit_tagtab[j++];
+			unit_ind_tags[i] = &unit_tagtab[j++];
-   };
+	}
-  j = 0;
+	j = 0;
-  for (i = 0; i < unit_no_of_als; ++i)
+	for (i = 0; i < unit_no_of_als; ++i) {
-   {
-    if (unit_ind_als[i] == (aldef*)0)
+		if (unit_ind_als[i] == (aldef *)0)
-      unit_ind_als[i] = &unit_altab[j++];
+			unit_ind_als[i] = &unit_altab[j++];
-   };
+	}
-  start_bytestream();
+	start_bytestream();
-  no_of_labels = small_dtdfint();
+	no_of_labels = small_dtdfint();
-  unit_no_of_labels = no_of_labels;
+	unit_no_of_labels = no_of_labels;
-  unit_labtab = (exp*)xcalloc(unit_no_of_labels, sizeof(exp));
+	unit_labtab = (exp *)xcalloc(unit_no_of_labels, sizeof(exp));
-  IGNORE d_linkinfo_list();
+	IGNORE d_linkinfo_list();
-  end_bytestream();
+	end_bytestream();
+	xfree((void *)unit_ind_tokens);
+	xfree((void *)unit_ind_tags);
+	xfree((void *)unit_ind_als);
+	xfree((void *)unit_labtab);
+	xfree((void *)unit_toktab);
+	xfree((void *)unit_tagtab);
-  xfree((void*)unit_ind_tokens);
-  xfree((void*)unit_ind_tags);
-  xfree((void*)unit_ind_als);
+	return 0;
-  xfree((void*)unit_labtab);
-  xfree((void*)unit_toktab);
-  xfree((void*)unit_tagtab);
+}
-  return 0;
-}
-linkinfo_props f_make_linkinfos
+linkinfo_props
-    PROTO_N ( (nl, tds) )
-    PROTO_T ( tdfint nl X linkinfo_list tds )
+f_make_linkinfos(tdfint nl, linkinfo_list tds)
+{
+	UNUSED(nl);
-  UNUSED(nl); UNUSED(tds);
+	UNUSED(tds);
-  return 0;
+	return 0;
+}

Subversion Repositories tendra.SVN

(root)/trunk/src/installers/common/linkinfo/li_fns.c – Rev 2 → 7