WebSVN – tendra.SVN – Diff – /trunk/src/installers/80x86/sco/cv_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
 /* VARIABLES */
 /* All variables initialised */
 static int crt_proc_start;
 static int last_line_no;
-static char * main_filename;	/* init by diagnose_prelude */
+static char *main_filename;	/* init by diagnose_prelude */
 static int filename_space = 0;	/* init by diagnose_prelude */
 static long filename_pos;
 static int filename_gate = 0;	/* init by diagnose_prelude */
 /* PROCEDURES */
-static int check_filename
+static int
-    PROTO_N ( (sm) )
-    PROTO_T ( sourcemark sm )
+check_filename(sourcemark sm)
+{
-  if (main_filename)
+  if (main_filename) {
-    {
-      if (!strcmp(main_filename, sm.file->file.ints.chars))
+      if (!strcmp(main_filename, sm.file->file.ints.chars)) {
         return 1;
+      }
       return 0;
-    }
-  else
+  } else {
-    {
       main_filename = sm.file->file.ints.chars;
       return 1;
-    };
+  }
+}
+void
-void out_diagnose_prelude
+out_diagnose_prelude(void)
-    PROTO_Z ()
+{
-  main_filename = (char*)0;
+  main_filename = (char *)0;
   filename_space = 0;
   filename_gate = 0;
   return;
+}
+void
-void out_diagnose_postlude
+out_diagnose_postlude(void)
-    PROTO_Z ()
+{
   return;
+}
 #ifdef NEWDIAGS
-void code_diag_info
+void
-    PROTO_N ( (d, proc_no, mcode, args) )
-    PROTO_T ( diag_info * d X int proc_no X void (*mcode)(void *) X void * args )
+code_diag_info(diag_info *d, int proc_no, void(*mcode)(void *), void *args)
+{
   if (d == nildiag) {
-    (*mcode)(args);
+   (*mcode)(args);
     return;
+  }
   switch (d->key) {
     case DIAG_INFO_SCOPE: {
 	fprintf(fpout, " .def .bb; .val .; .scl 100;  .line %d; .endef\n",
-           last_line_no);
+		last_line_no);
-	code_diag_info (d->more, proc_no, mcode, args);
+	code_diag_info(d->more, proc_no, mcode, args);
 	fprintf(fpout, " .def .eb; .val .; .scl 100; .line %d; .endef\n",
-             last_line_no);
+		last_line_no);
 	return;
+    }
     case DIAG_INFO_SOURCE: {
-	int l = (int)d -> data.source.beg.line_no.nat_val.small_nat -
+	int l = (int)d->data.source.beg.line_no.nat_val.small_nat -
-                       crt_proc_start + 1;
+	    crt_proc_start + 1;
 	if (check_filename(d -> data.source.beg) && l != last_line_no) {
 	  last_line_no = l;
-	  if (l > 0)
+	  if (l > 0) {
 	    fprintf(fpout, " .ln %d\n", l);
+	  }
+	}
-	code_diag_info (d->more, proc_no, mcode, args);
+	code_diag_info(d->more, proc_no, mcode, args);
 	return;
+    }
     case DIAG_INFO_ID: {
-	exp acc = d -> data.id_scope.access;
+	exp acc = d->data.id_scope.access;
 	ot ty;
 	int p, param_dec;
-	if (name(acc) != hold_tag && name(acc) != hold2_tag)
+	if (name(acc)!= hold_tag && name(acc) != hold2_tag) {
 	  failer("not hold_tag");
+	}
 	acc = son(acc);
-	if (name(acc) == cont_tag && name(son(acc)) == name_tag && isvar(son(son(acc))))
+	if (name(acc) == cont_tag && name(son(acc)) == name_tag &&
+	    isvar(son(son(acc)))) {
 	  acc = son(acc);
+	}
-	if ( name(acc) == name_tag && !isdiscarded(acc) && !isglob(son(acc)) ) {
+	if (name(acc) == name_tag && !isdiscarded(acc) && !isglob(son(acc))) {
 	  p = (no(acc) + no(son(acc))) / 8;
 	  param_dec = isparam(son(acc));
-	  fprintf(fpout, " .def %s; .val ", d -> data.id_scope.nme.ints.chars);
+	  fprintf(fpout, " .def %s; .val ", d->data.id_scope.nme.ints.chars);
-	  if (param_dec)
+	  if (param_dec) {
-	    fprintf(fpout, "%d", p+8);
+	    fprintf(fpout, "%d", p + 8);
-	  else
+	  } else {
 	    fprintf(fpout, "%d-.Ldisp%d", p, proc_no);
+	  }
-	  fprintf(fpout, "; .scl %d; ", (param_dec) ? 9 : 1);
+	  fprintf(fpout, "; .scl %d; ",(param_dec) ? 9 : 1);
-	  ty = out_type(d -> data.id_scope.typ, 0);
+	  ty = out_type(d->data.id_scope.typ, 0);
-	  fprintf(fpout, ".type 0%o; .endef\n", ty.type + (ty.modifier<<4));
+	  fprintf(fpout, ".type 0%o; .endef\n", ty.type + (ty.modifier << 4));
+	}
-	code_diag_info (d->more, proc_no, mcode, args);
+	code_diag_info(d->more, proc_no, mcode, args);
+    }
-  };
+  }
   return;
 }
 #else
-void output_diag
+void
-    PROTO_N ( (d, proc_no, e) )
-    PROTO_T ( diag_info * d X int proc_no X exp e )
+output_diag(diag_info *d, int proc_no, exp e)
+{
-  if (d -> key == DIAG_INFO_SOURCE)
+  if (d->key == DIAG_INFO_SOURCE) {
-   {
-     int l = (int)d -> data.source.beg.line_no.nat_val.small_nat -
+     int l = (int)d->data.source.beg.line_no.nat_val.small_nat -
-                       crt_proc_start + 1;
+	 crt_proc_start + 1;
-     if (!check_filename(d -> data.source.beg))
+     if (!check_filename(d -> data.source.beg)) {
        return;
+     }
-     if (l == last_line_no)
+     if (l == last_line_no) {
        return;
+     }
      last_line_no = l;
-     if (l > 0)
+     if (l > 0) {
        fprintf(fpout, " .ln %d\n", l);
+     }
      return;
-   };
+  }
-  if (d -> key == DIAG_INFO_ID)
+  if (d -> key == DIAG_INFO_ID) {
-   {
      ot ty;
      exp acc = d -> data.id_scope.access;
      int p = (no(acc) + no(son(acc))) / 8;
      int param_dec = isparam(son(acc));
      mark_scope(e);
-     if (props(e) & 0x80)
+     if (props(e) & 0x80) {
-      {
        fprintf(fpout, " .def .bb; .val .; .scl 100;  .line %d; .endef\n",
-           last_line_no);
+	       last_line_no);
-      };
+     }
-     fprintf(fpout, " .def %s; .val ", d -> data.id_scope.nme.ints.chars);
+     fprintf(fpout, " .def %s; .val ", d->data.id_scope.nme.ints.chars);
-     if (param_dec)
+     if (param_dec) {
-       fprintf(fpout, "%d", p+8);
+       fprintf(fpout, "%d", p + 8);
-     else
+     } else {
        fprintf(fpout, "%d-.Ldisp%d", p, proc_no);
+     }
-     fprintf(fpout, "; .scl %d; ", (param_dec) ? 9 : 1);
+     fprintf(fpout, "; .scl %d; ",(param_dec) ? 9 : 1);
      ty = out_type(d -> data.id_scope.typ, 0);
      fprintf(fpout, ".type 0%o; .endef\n", ty.type + (ty.modifier<<4));
      return;
-   };
+   }
   return;
 }
 #endif
-void output_end_scope
+void
-    PROTO_N ( (d, e) )
-    PROTO_T ( diag_info * d X exp e )
+output_end_scope(diag_info *d, exp e)
+{
-  if (d -> key == DIAG_INFO_ID && props(e) & 0x80)
+  if (d -> key == DIAG_INFO_ID && props(e) & 0x80) {
     fprintf(fpout, " .def .eb; .val .; .scl 100; .line %d; .endef\n",
-             last_line_no);
+	    last_line_no);
+  }
   return;
 }
-void diag_val_begin
+void
-    PROTO_N ( (d, global, cname, pname) )
-    PROTO_T ( diag_global * d X int global X int cname X char * pname )
+diag_val_begin(diag_global *d, int global, int cname, char *pname)
 {
   ot typ;
   outs(" .def ");
-  outs(d -> data.id.nme.ints.chars);
+  outs(d->data.id.nme.ints.chars);
   outs("; .val ");
   if (cname == -1) {
-    outs (pname);
+    outs(pname);
+  } else {
+    outs(local_prefix);
+    outn((long)cname);
+  }
-  else {
-    outs(local_prefix);
-    outn ((long)cname);
-  };
   outs("; .scl ");
   outn((long)(global ? 2 : 3));
   outs("; ");
-  typ = out_type(d -> data.id.new_type, 0);
+  typ = out_type(d->data.id.new_type, 0);
   fprintf(fpout, ".type 0%o; .endef\n", typ.type + (typ.modifier << 4));
   return;
+}
-void diag_val_end
+void
-    PROTO_N ( (d) )
-    PROTO_T ( diag_global * d )
+diag_val_end(diag_global *d)
-{
-  UNUSED(d);
-  return;
-}
-void diag_proc_begin
-    PROTO_N ( (d, global, cname, pname) )
-    PROTO_T ( diag_global * d X int global X int cname X char * pname )
+{
+  UNUSED(d);
+  return;
+}
+void
+diag_proc_begin(diag_global *d, int global, int cname, char *pname)
+{
   ot typ;
   UNUSED(cname);
-  if (!d)
+  if (!d) {
     return;
+  }
-  check_filename(d -> data.id.whence);
+  check_filename(d->data.id.whence);
   outs(" .def ");
-  outs(d -> data.id.nme.ints.chars);
+  outs(d->data.id.nme.ints.chars);
   outs("; .val ");
   outs(pname);
   outs("; .scl ");
   outn((long)(global ? 2 : 3));
   outs("; ");
-  typ = out_type(d -> data.id.new_type->data.proc.result_type, 0);
+  typ = out_type(d->data.id.new_type->data.proc.result_type, 0);
-  fprintf(fpout, ".type 0%o; .endef\n",
-           typ.type + (typ.modifier << 6) + 32);
+  fprintf(fpout, ".type 0%o; .endef\n", typ.type + (typ.modifier << 6) + 32);
-  crt_proc_start = d -> data.id.whence.line_no.nat_val.small_nat;
+  crt_proc_start = d->data.id.whence.line_no.nat_val.small_nat;
   last_line_no = 1;
   fprintf(fpout, " .def .bf; .val .; .scl 101; .line %d; .endef\n",
-            crt_proc_start);
+	  crt_proc_start);
   fprintf(fpout, " .ln 1\n");
   return;
 }
-void diag_proc_end
+void
-    PROTO_N ( (d) )
-    PROTO_T ( diag_global * d )
+diag_proc_end(diag_global *d)
+{
-  if (!d)
+  if (!d) {
     return;
+  }
   fprintf(fpout, " .def .ef; .val .; .scl 101; .line %d; .endef\n",
-            last_line_no + 1);
+	  last_line_no + 1);
   fprintf(fpout, " .def %s; .val .; .scl -1; .endef\n",
-            d -> data.id.nme.ints.chars);
+	  d->data.id.nme.ints.chars);
   return;
+}
+void
-void OUTPUT_GLOBALS_TAB
+OUTPUT_GLOBALS_TAB(void)
-    PROTO_Z ()
+{
   diag_descriptor *di = unit_diagvar_tab.array;
   int n = unit_diagvar_tab.lastused;
   int i;
   ot typ;
-  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) {
-      {
-	fprintf (fpout, " .def %s; .scl 13; ", di[i].data.typ.nme.ints.chars);
+	fprintf(fpout, " .def %s; .scl 13; ", di[i].data.typ.nme.ints.chars);
-	typ = out_type (di[i].data.typ.new_type, 0);
+	typ = out_type(di[i].data.typ.new_type, 0);
 	fprintf(fpout, ".type 0%o; .endef\n", typ.type + (typ.modifier << 4));
-      };
+     }
-   };
+  }
   return;
 }
+void
-void OUTPUT_DIAG_TAGS
+OUTPUT_DIAG_TAGS(void)
-    PROTO_Z ()
 {
-  diag_tagdef ** di = unit_ind_diagtags;
+  diag_tagdef **di = unit_ind_diagtags;
   int n = unit_no_of_diagtags;
   int i;
-  if (!filename_space)
+  if (!filename_space) {
-   {
      filename_pos = ftell(fpout);
-     outs ("                                                                                                                      ");
+     outs("                                                                                                                      ");
-     outnl ();
+     outnl();
      filename_space = 1;
-   };
+   }
-  for (i=0; i<n; ++i)
+  for (i=0; i<n; ++i) {
-   {
-     diag_type d = di[i]->d_type;
+     diag_type d = di[i] ->d_type;
      switch (d -> key)
+      {
         case DIAG_TYPE_STRUCT:
         case DIAG_TYPE_UNION:
         case DIAG_TYPE_ENUM:
             out_tagged(d);
             break;
         default: break;
-      };
+      }
-   };
+   }
   return;
 }
-void INSPECT_FILENAME
+void
-    PROTO_N ( (fn) )
-    PROTO_T ( filename fn )
+INSPECT_FILENAME(filename fn)
+{
   long here;
-  char * nm = fn -> file.ints.chars;
+  char *nm = fn->file.ints.chars;
-  char * f;
+  char *f;
-  int len = (int)strlen(fn -> file.ints.chars);
+  int len = (int)strlen(fn->file.ints.chars);
   if (filename_gate || len < 4 || len > 120 || nm[len-1] == 'h' ||
-           nm[len-2] != '.')
+      nm[len-2]!= '.') {
     return;
+  }
   f = &nm[len-2];
-  while (f != nm && f[-1] != '/')
+  while (f != nm && f[-1]!= '/') {
     --f;
+  }
   filename_gate = 1;
-  if (!filename_space)
+  if (!filename_space) {
     fprintf(fpout, " .file \"%s\"\n", f);
-  else
+  } else {
-   {
-      here = ftell(fpout);
+    here = ftell(fpout);
-      fseek (fpout, filename_pos, 0);
+    fseek(fpout, filename_pos, 0);
-      fprintf(fpout, " .file \"%s\"\n", f);
+    fprintf(fpout, " .file \"%s\"\n", f);
-      fseek(fpout, here, 0);
+    fseek(fpout, here, 0);
-   };
+  }
   return;
+}

Subversion Repositories tendra.SVN

(root)/trunk/src/installers/80x86/sco/cv_fns.c – Rev 2 → 7