WebSVN – tendra.SVN – Diff – /trunk/src/installers/680x0/common/xdb_basics.c

+/*
+ * Copyright (c) 2002-2006 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) 1996
     This TenDRA(r) Computer Program is subject to Copyright
     owned by the United Kingdom Secretary of State for Defence
  * Revision 1.1.1.1  1996/09/20  10:57:01  john
+ *
  * Revision 1.2  1996/07/05  14:33:46  john
  * Fix to diagnostics
  *
  * Revision 1.1  95/03/08  16:46:19  ra
  * Added missing files.
+ *
  * Revision 1.1  93/02/22  17:17:20  17:17:20  ra (Robert Andrews)
  * Initial revision
 /*
     DIAGNOSTICS INITIALIZATION ROUTINE
 */
-void diag_prologue
+void
-    PROTO_Z ()
+diag_prologue(void)
+{
-    init_diag () ;
+	init_diag();
-    return ;
+	return;
+}
 /*
     DIAGNOSTICS TERMINATION ROUTINE
 */
-void diag_epilogue
+void
-    PROTO_Z ()
+diag_epilogue(void)
+{
-    while ( dnt_end () ) /* empty */ ;
+	while (dnt_end()) {
+		; /* empty */
+	}
-    if ( diag_format == DIAG_STAB ) {
+	if (diag_format == DIAG_STAB) {
-	mach_op *op = make_extern_data ( "Letext", 0 ) ;
+		mach_op *op = make_extern_data("Letext", 0);
-	area ( ptext ) ;
+		area(ptext);
-	make_stabs ( "\"\"", 100, 0, op ) ;
+		make_stabs("\"\"", 100, 0, op);
-	make_external_label ( "Letext" ) ;
+		make_external_label("Letext");
-    }
+	}
-    output_all () ;
+	output_all();
-    copy_diag () ;
+	copy_diag();
-    return ;
+	return;
 }
 /*
     OUTPUT A DIAGNOSTICS SOURCE MARK
 */
-static void diag_mark
+static void
-    PROTO_N ( ( sm ) )
-    PROTO_T ( sourcemark *sm )
+diag_mark(sourcemark *sm)
 {
-    char *nm = sm->file->file.ints.chars ;
+	char *nm = sm->file->file.ints.chars;
-    long ln = sm->line_no.nat_val.small_nat ;
+	long ln = sm->line_no.nat_val.small_nat;
-    diag_source ( nm, ln, 1 ) ;
+	diag_source(nm, ln, 1);
-    return ;
+	return;
 }
 /*
     DIAGNOSTICS FOR A LOCAL VARIABLE
 */
-static void diag_variable
+static void
-    PROTO_N ( ( di, e ) )
-    PROTO_T ( diag_info *di X exp e )
+diag_variable(diag_info *di, exp e)
 {
-    exp s = di->data.id_scope.access ;
+	exp s = di->data.id_scope.access;
-    diag_type t = di->data.id_scope.typ ;
+	diag_type t = di->data.id_scope.typ;
-    char *nm = di->data.id_scope.nme.ints.chars ;
+	char *nm = di->data.id_scope.nme.ints.chars;
-    long p = ( no ( s ) + no ( son ( s ) ) ) / 8 ;
+	long p = (no(s) + no(son(s))) / 8;
-    if ( !isparam ( son ( s ) ) ) {
+	if (!isparam(son(s))) {
-	diag_local_variable ( t, nm, p ) ;
+		diag_local_variable(t, nm, p);
-    }
+	}
-    return ;
+	return;
 }
 /*
     START OF A DIAGNOSTICS ITEM
 */
-void diag_start
+void
-    PROTO_N ( ( di, e ) )
-    PROTO_T ( diag_info *di X exp e )
+diag_start(diag_info *di, exp e)
 {
-    switch ( di->key ) {
+	switch (di->key) {
-	case DIAG_INFO_SOURCE : {
+	case DIAG_INFO_SOURCE: {
-	    sourcemark *sm = &( di->data.source.beg ) ;
+		sourcemark *sm = &(di->data.source.beg);
-	    diag_mark ( sm ) ;
+		diag_mark(sm);
-	    break ;
-	}
-	case DIAG_INFO_ID : {
-	    mark_scope ( e ) ;
-	    if ( props ( e ) & 0x80 ) dnt_begin () ;
-	    if ( diag_format != DIAG_XDB_NEW ) diag_variable ( di, e ) ;
-	    break ;
+		break;
+	}
+	case DIAG_INFO_ID:
+		mark_scope(e);
+		if (props(e) & 0x80) {
+			dnt_begin();
+		}
+		if (diag_format != DIAG_XDB_NEW) {
+			diag_variable(di, e);
+		}
+		break;
-	default : {
+	default:
-	    break ;
+		break;
+	}
-    }
-    return ;
+	return;
+}
 /*
     END OF A DIAGNOSTICS ITEM
 */
-void diag_end
+void
-    PROTO_N ( ( di, e ) )
-    PROTO_T ( diag_info *di X exp e )
+diag_end(diag_info *di, exp e)
-{
-    if ( di->key == DIAG_INFO_ID ) {
-	if ( diag_format == DIAG_XDB_NEW ) diag_variable ( di, e ) ;
-	if ( props ( e ) & 0x80 ) dnt_end () ;
-    }
-    return ;
-}
-/*
-    DIAGNOSTICS FOR THE START OF A PROCEDURE
-*/
-void xdb_diag_proc_begin
-    PROTO_N ( ( di, p, pname, cname, is_ext ) )
-    PROTO_T ( diag_global *di X exp p X char *pname X long cname X int is_ext )
-{
-    char *nm = di->data.id.nme.ints.chars ;
-    diag_type t = di->data.id.new_type ;
-    sourcemark *sm = &( di->data.id.whence ) ;
-    diag_proc_main ( t, p, nm, !is_local ( pname ), pname ) ;
-    diag_mark ( sm ) ;
-    return ;
-}
-/*
-    DIAGNOSTICS FOR THE RETURN STATEMENT OF A PROCEDURE
-*/
-void xdb_diag_proc_return
-    PROTO_Z ()
+{
+	if (di->key == DIAG_INFO_ID) {
-    if ( diag_format == DIAG_XDB_NEW ) slt_exit () ;
+		if (diag_format == DIAG_XDB_NEW) {
+			diag_variable(di, e);
+		}
+		if (props(e) & 0x80) {
+			dnt_end();
+		}
+	}
-    return ;
+	return;
+}
 /*
-    DIAGNOSTICS FOR THE END OF A PROCEDURE
+    DIAGNOSTICS FOR THE START OF A PROCEDURE
 */
+void
+xdb_diag_proc_begin(diag_global *di, exp p, char *pname, long cname,
+		    int is_ext)
+{
+	char *nm = di->data.id.nme.ints.chars;
+	diag_type t = di->data.id.new_type;
+	sourcemark *sm = & (di->data.id.whence);
+	diag_proc_main(t, p, nm, !is_local(pname), pname);
+	diag_mark(sm);
+	return;
+}
+/*
+    DIAGNOSTICS FOR THE RETURN STATEMENT OF A PROCEDURE
+*/
+void
-void xdb_diag_proc_end
+xdb_diag_proc_return(void)
+{
+	if (diag_format == DIAG_XDB_NEW) {
+		slt_exit();
+	}
+	return;
+}
+/*
-    PROTO_N ( ( di ) )
+    DIAGNOSTICS FOR THE END OF A PROCEDURE
+*/
+void
-    PROTO_T ( diag_global *di )
+xdb_diag_proc_end(diag_global *di)
 {
-    area ( ptext ) ;
+	area(ptext);
-    if ( diag_format == DIAG_XDB_NEW ) {
+	if (diag_format == DIAG_XDB_NEW) {
-	mach_op *op1 = make_lab_data ( crt_diag_proc_lab, 0 ) ;
+		mach_op *op1 = make_lab_data(crt_diag_proc_lab, 0);
-	mach_op *op2 = make_extern_data ( ".-1", 0 ) ;
+		mach_op *op2 = make_extern_data(".-1", 0);
-	make_instr ( m_as_assign, op1, op2, 0 ) ;
+		make_instr(m_as_assign, op1, op2, 0);
-    } else if ( diag_format == DIAG_XDB_OLD ) {
+	} else if (diag_format == DIAG_XDB_OLD) {
-	make_label ( crt_diag_proc_lab ) ;
+		make_label(crt_diag_proc_lab);
-    }
+	}
-    dnt_end () ;
+	dnt_end();
-    area ( plast ) ;
+	area(plast);
-    return ;
+	return;
 }
 /*
     DIAGNOSTICS FOR THE START OF A VALUE
 */
-void xdb_diag_val_begin
+void
-    PROTO_N ( ( di, pname, cname, is_ext ) )
-    PROTO_T ( diag_global *di X char *pname X long cname X int is_ext )
+xdb_diag_val_begin(diag_global *di, char *pname, long cname, int is_ext)
 {
-    char *nm = di->data.id.nme.ints.chars ;
+	char *nm = di->data.id.nme.ints.chars;
-    diag_type t = di->data.id.new_type ;
+	diag_type t = di->data.id.new_type;
-    diag_globl_variable ( t, nm, !is_local ( pname ), pname, 1 ) ;
+	diag_globl_variable(t, nm, !is_local(pname), pname, 1);
-    return ;
+	return;
 }
 /*
     OUTPUT GLOBAL TABLE
 */
+void
-void OUTPUT_GLOBALS_TAB
+OUTPUT_GLOBALS_TAB(void)
-    PROTO_Z ()
+{
-    diag_descriptor *di = unit_diagvar_tab.array ;
+	diag_descriptor *di = unit_diagvar_tab.array;
-    unsigned long i, n = unit_diagvar_tab.lastused ;
+	unsigned long i, n = unit_diagvar_tab.lastused;
-    for ( i = 0 ; i < n ; i++ ) {
+	for (i = 0; i < n; i++) {
-	if ( di [i].key == DIAG_TYPEDEF_KEY ) {
+		if (di[i].key == DIAG_TYPEDEF_KEY) {
-	    diag_type d = di [i].data.typ.new_type ;
+			diag_type d = di[i].data.typ.new_type;
-	    char *nm = di [i].data.typ.nme.ints.chars ;
+			char *nm = di[i].data.typ.nme.ints.chars;
-	    diag_type_defn ( nm, d ) ;
+			diag_type_defn(nm, d);
+		}
+	}
-    }
-    return ;
+	return;
+}
 /*
     OUTPUT ALL DIAGNOSTIC TAGS
 */
+void
-void OUTPUT_DIAG_TAGS
+OUTPUT_DIAG_TAGS(void)
-    PROTO_Z ()
 {
-    return ;
+	return;
 }
 /*
     INSPECT FILENAME
 */
-void INSPECT_FILENAME
+void
-    PROTO_N ( ( fn ) )
-    PROTO_T ( filename fn )
+INSPECT_FILENAME(filename fn)
 {
-    char *nm = fn->file.ints.chars ;
+	char *nm = fn->file.ints.chars;
-    diag_source ( nm, 1, 0 ) ;
+	diag_source(nm, 1, 0);
-    return ;
+	return;
 }
 /*
     COMPARE TWO DECLARATIONS
 */
-static bool cmp_dec
+static bool
-    PROTO_N ( ( x, y ) )
-    PROTO_T ( dec *x X dec *y )
+cmp_dec(dec *x, dec *y)
+{
-    int c ;
+	int c;
-    long lx, ly ;
+	long lx, ly;
-    char *fx, *fy ;
+	char *fx, *fy;
-    sourcemark *sx, *sy ;
+	sourcemark *sx, *sy;
-    diag_global *dx = x->dec_u.dec_val.diag_info ;
+	diag_global *dx = x->dec_u.dec_val.diag_info;
-    diag_global *dy = y->dec_u.dec_val.diag_info ;
+	diag_global *dy = y->dec_u.dec_val.diag_info;
-    if ( dy == null || dy->key != DIAG_ID_KEY ) return ( 0 ) ;
+	if (dy == null || dy->key != DIAG_ID_KEY) {
+		return (0);
+	}
-    if ( dx == null || dx->key != DIAG_ID_KEY ) return ( 1 ) ;
+	if (dx == null || dx->key != DIAG_ID_KEY) {
+		return (1);
+	}
-    sx = &( dx->data.id.whence ) ;
+	sx = & (dx->data.id.whence);
-    fx = sx->file->file.ints.chars ;
+	fx = sx->file->file.ints.chars;
-    lx = sx->line_no.nat_val.small_nat ;
+	lx = sx->line_no.nat_val.small_nat;
-    sy = &( dy->data.id.whence ) ;
+	sy = & (dy->data.id.whence);
-    fy = sy->file->file.ints.chars ;
+	fy = sy->file->file.ints.chars;
-    ly = sy->line_no.nat_val.small_nat ;
+	ly = sy->line_no.nat_val.small_nat;
-    c = strcmp ( (char*)sx, (char*)sy ) ;
+	c = strcmp((char *)sx, (char *)sy);
+	if (c < 0) {
-    if ( c < 0 ) return ( 0 ) ;
+		return (0);
+	}
+	if (c > 0) {
-    if ( c > 0 ) return ( 1 ) ;
+		return (1);
+	}
-    return ( lx > ly ? 1 : 0 ) ;
+	return (lx > ly ? 1 : 0);
+}
 /*
     SORT DECLARATION INTO ORDER
 */
-dec *sort_decs
+dec *
-    PROTO_N ( ( p ) )
-    PROTO_T ( dec *p )
+sort_decs(dec *p)
+{
-    dec *res = null ;
+	dec *res = null;
-    dec *x = p, *y ;
+	dec *x = p, *y;
-    while ( x != null ) {
+	while (x != null) {
-	dec *nextx = x->def_next ;
+		dec *nextx = x->def_next;
-	dec *before = null ;
+		dec *before = null;
-	for ( y = res ; y != null ; y = y->def_next ) {
+		for (y = res; y != null; y = y->def_next) {
-	    if ( !cmp_dec ( x, y ) ) break ;
+			if (!cmp_dec(x, y)) {
+				break;
+			}
-	    before = y ;
+			before = y;
-	}
+		}
-	if ( before == null ) {
+		if (before == null) {
-	    x->def_next = res ;
+			x->def_next = res;
-	    res = x ;
+			res = x;
-	} else {
+		} else {
-	    x->def_next = before->def_next ;
+			x->def_next = before->def_next;
-	    before->def_next = x ;
+			before->def_next = x;
+		}
+		x = nextx;
+	}
-	x = nextx ;
-    }
-    return ( res ) ;
+	return (res);
+}

Subversion Repositories tendra.SVN

(root)/trunk/src/installers/680x0/common/xdb_basics.c – Rev 2 → 7