WebSVN – tendra.SVN – Diff – /trunk/src/utilities/make_err/syntax.c

 /*
  * Automatically generated from the files:
- *	/u/g/release/Source/src/utilities/make_err/syntax.sid
+ *	syntax.sid
  * and
- *	/u/g/release/Source/src/utilities/make_err/syntax.act
+ *	syntax.act
  * by:
  *	sid
  */
 /* BEGINNING OF HEADER */
 /*
     		 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.
 */
     This routine searches the name list p for an identifier matching id.
     The null name is returned if no matching name is found.
 */
 static NAME find_name
-    PROTO_N ( ( p, id ) )
-    PROTO_T ( LIST ( NAME ) p X string id )
+    ( LIST ( NAME ) p, string id )
+{
     while ( !IS_NULL_list ( p ) ) {
 	NAME a = DEREF_name ( HEAD_list ( p ) ) ;
 	string nm = DEREF_string ( name_id ( a ) ) ;
 	if ( streq ( nm, id ) ) return ( a ) ;
     This routine searches the parameter list p for an identifier matching
     id.  The null parameter is returned if no matching parameter is found.
 */
 static PARAM find_param
-    PROTO_N ( ( p, id ) )
-    PROTO_T ( LIST ( PARAM ) p X string id )
+    ( LIST ( PARAM ) p, string id )
+{
     while ( !IS_NULL_list ( p ) ) {
 	PARAM a = DEREF_param ( HEAD_list ( p ) ) ;
 	string nm = DEREF_string ( param_name ( a ) ) ;
 	if ( streq ( nm, id ) ) return ( a ) ;
 /* BEGINNING OF FUNCTION DECLARATIONS */
-static void ZRparam_Hlist PROTO_S ((LIST_PARAM *));
+static void ZRparam_Hlist(LIST_PARAM *);
-static void ZRname_Hlist PROTO_S ((LIST_NAME *, LIST_NAME *, LIST_NAME *));
+static void ZRname_Hlist(LIST_NAME *, LIST_NAME *, LIST_NAME *);
-static void ZRname_Hseq PROTO_S ((LIST_NAME *, LIST_NAME *, LIST_NAME *));
+static void ZRname_Hseq(LIST_NAME *, LIST_NAME *, LIST_NAME *);
-static void ZRprops_Hlist PROTO_S ((LIST_PROPERTY *));
+static void ZRprops_Hlist(LIST_PROPERTY *);
-static void ZRmap_Hlist PROTO_S ((LIST_PARAM, LIST_MAP *));
+static void ZRmap_Hlist(LIST_PARAM, LIST_MAP *);
-static void ZRentry PROTO_S ((ENTRY *));
+static void ZRentry(ENTRY *);
-extern void read_errors PROTO_S ((void));
+extern void read_errors(void);
-static void ZRmessage_Hlist PROTO_S ((LIST_PARAM, LIST_MESSAGE *));
+static void ZRmessage_Hlist(LIST_PARAM, LIST_MESSAGE *);
-static void ZRsignature PROTO_S ((LIST_PARAM *));
+static void ZRsignature(LIST_PARAM *);
-static void ZRentries_Hlist PROTO_S ((LIST_ENTRY *));
+static void ZRentries_Hlist(LIST_ENTRY *);
 /* BEGINNING OF STATIC VARIABLES */
 /* BEGINNING OF FUNCTION DEFINITIONS */
 static void
-ZRparam_Hlist PROTO_N ((ZOp))
-  PROTO_T (LIST_PARAM *ZOp)
+ZRparam_Hlist(LIST_PARAM *ZOp)
+{
     LIST_PARAM ZIp;
     if ((CURRENT_TERMINAL) == 26) {
 	return;
   ZL0:;
     *ZOp = ZIp;
+}
 static void
-ZRname_Hlist PROTO_N ((ZOp, ZOq, ZOr))
-  PROTO_T (LIST_NAME *ZOp X LIST_NAME *ZOq X LIST_NAME *ZOr)
+ZRname_Hlist(LIST_NAME *ZOp, LIST_NAME *ZOq, LIST_NAME *ZOr)
+{
     LIST_NAME ZIp;
     LIST_NAME ZIq;
     LIST_NAME ZIr;
     *ZOq = ZIq;
     *ZOr = ZIr;
+}
 static void
-ZRname_Hseq PROTO_N ((ZOp, ZOq, ZOr))
-  PROTO_T (LIST_NAME *ZOp X LIST_NAME *ZOq X LIST_NAME *ZOr)
+ZRname_Hseq(LIST_NAME *ZOp, LIST_NAME *ZOq, LIST_NAME *ZOr)
+{
     LIST_NAME ZIp;
     LIST_NAME ZIq;
     LIST_NAME ZIr;
     *ZOq = ZIq;
     *ZOr = ZIr;
+}
 static void
-ZRprops_Hlist PROTO_N ((ZOp))
-  PROTO_T (LIST_PROPERTY *ZOp)
+ZRprops_Hlist(LIST_PROPERTY *ZOp)
+{
     LIST_PROPERTY ZIp;
     if ((CURRENT_TERMINAL) == 26) {
 	return;
   ZL0:;
     *ZOp = ZIp;
+}
 static void
-ZRmap_Hlist PROTO_N ((ZIs, ZOp))
-  PROTO_T (LIST_PARAM ZIs X LIST_MAP *ZOp)
+ZRmap_Hlist(LIST_PARAM ZIs, LIST_MAP *ZOp)
+{
     LIST_MAP ZIp;
     switch (CURRENT_TERMINAL) {
       case 5:
   ZL0:;
     *ZOp = ZIp;
+}
 static void
-ZRentry PROTO_N ((ZOe))
-  PROTO_T (ENTRY *ZOe)
+ZRentry(ENTRY *ZOe)
+{
     ENTRY ZIe;
     if ((CURRENT_TERMINAL) == 26) {
 	return;
   ZL0:;
     *ZOe = ZIe;
+}
 void
-read_errors PROTO_Z ()
+read_errors(void)
+{
     if ((CURRENT_TERMINAL) == 26) {
 	return;
+    }
+    {
+	}
+    }
+}
 static void
-ZRmessage_Hlist PROTO_N ((ZIs, ZOp))
-  PROTO_T (LIST_PARAM ZIs X LIST_MESSAGE *ZOp)
+ZRmessage_Hlist(LIST_PARAM ZIs, LIST_MESSAGE *ZOp)
+{
     LIST_MESSAGE ZIp;
     switch (CURRENT_TERMINAL) {
       case 0:
   ZL0:;
     *ZOp = ZIp;
+}
 static void
-ZRsignature PROTO_N ((ZOp))
-  PROTO_T (LIST_PARAM *ZOp)
+ZRsignature(LIST_PARAM *ZOp)
+{
     LIST_PARAM ZIp;
     switch (CURRENT_TERMINAL) {
       case 0:
   ZL0:;
     *ZOp = ZIp;
+}
 static void
-ZRentries_Hlist PROTO_N ((ZOp))
+ZRentries_Hlist(LIST_ENTRY *ZOp)
-  PROTO_T (LIST_ENTRY *ZOp)
+{
     LIST_ENTRY ZIp;
     switch (CURRENT_TERMINAL) {
       case 0:

Subversion Repositories tendra.SVN

(root)/trunk/src/utilities/make_err/syntax.c – Rev 2 → 7