WebSVN – tendra.SVN – Diff – /branches/tendra5/src/installers/80x86/common/spec_tok.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
 /* intercepts specially defined tokens */
 tokval special_token
-    PROTO_N ( (t, pars, sortcode, done) )
-    PROTO_T ( token t X bitstream pars X int sortcode X int * done )
+(token t, bitstream pars, int sortcode, int * done)
+{
   tokval tkv;
   UNUSED(sortcode);
   if (t -> tok_name == (char*)0) {
     SET(tkv); /* call looks at done to see if result is meaningful */
     return tkv;
   };
-  if (!strcmp(t -> tok_name, "JMFprofile"))  {
+  if (!strcmp(t -> tok_name, "JMFprofile")) {
       nat n;
       place old_place;
       old_place = keep_place();
       set_place(pars);
       n = d_nat();
       set_place(old_place);
       tkv.tk_exp = f_profile(n);
       *done = 1;
       return tkv;
   };
-  if (!strcmp(t -> tok_name, "JMFinline"))  {
+  if (!strcmp(t -> tok_name, "JMFinline")) {
       exp s;
       place old_place;
       old_place = keep_place();
       set_place(pars);
       IGNORE d_shape();
       set_place(old_place);
       tkv.tk_exp = s;
       *done = 1;
       return tkv;
   };
-  if (!strcmp(t -> tok_name, "~div"))  {
+  if (!strcmp(t -> tok_name, "~div")) {
       exp arg1, arg2;
       place old_place;
       old_place = keep_place();
       set_place(pars);
       arg1 = hold_check(d_exp());
       set_place(old_place);
       tkv.tk_exp = me_b2(arg1, arg2, div0_tag);
       *done = 1;
       return tkv;
   };
-  if (!strcmp(t -> tok_name, "~rem"))  {
+  if (!strcmp(t -> tok_name, "~rem")) {
       exp arg1, arg2;
       place old_place;
       old_place = keep_place();
       set_place(pars);
       arg1 = hold_check(d_exp());
     a = snatint(sn);
     sn = d_signed_nat();
     b = snatint(sn);
     set_place(old_place);
     snatint(sn) = arith_type(a, b);
     tkv.tk_signed_nat = sn;
     *done = 1;
     return tkv;
   };
   if (!strcmp(t -> tok_name, "~promote")) {
     int a;
     place old_place;
     signed_nat sn;
     old_place = keep_place();
     set_place(pars);
     sn = d_signed_nat();
     a = snatint(sn);
     set_place(old_place);
     snatint(sn) = promote(a);
     tkv.tk_signed_nat = sn;
     *done = 1;
     return tkv;
   };
   if (!strcmp(t -> tok_name, "~sign_promote")) {
     int a;
     place old_place;
     signed_nat sn;
     old_place = keep_place();
     set_place(pars);
     sn = d_signed_nat();
     a = snatint(sn);
     set_place(old_place);
     snatint(sn) = sign_promote(a);
     a = snatint(sn);
     set_place(old_place);
     tkv.tk_variety = convert((unsigned)a);
     *done = 1;
     return tkv;
   };
 #endif
-  if (!strcmp(t -> tok_name, "~alloca"))  {
+  if (!strcmp(t -> tok_name, "~alloca")) {
       exp arg1;
       place old_place;
       old_place = keep_place();
       set_place(pars);
       arg1 = hold_check(d_exp());
       set_place(old_place);
       tkv.tk_exp = hold_check(me_u3(f_pointer(long_to_al(8)),
 			   arg1, alloca_tag));
       *done = 1;
       has_alloca = 1;
       return tkv;
   };
   if (!strcmp(t -> tok_name, "~exp_to_source") ||
       !strcmp(t -> tok_name, "~diag_type_scope") ||
       !strcmp(t -> tok_name, "~diag_tag_scope")
 #ifdef NEWDIAGS
 	|| !strcmp(t -> tok_name, "~dg_exp")
 #endif
-     )  {
+    ) {
       place old_place;
       old_place = keep_place();
       set_place(pars);
       tkv.tk_exp = hold_check(d_exp());
         };
      if (!strcmp(t -> tok_name, "~exp_to_source"))
+       {
 #ifdef NEWDIAGS
-	tkv.tk_exp = read_exp_to_source (tkv.tk_exp);
+	tkv.tk_exp = read_exp_to_source(tkv.tk_exp);
 #else
         diag_info * di = read_exp_to_source();
         exp r = getexp(sh(tkv.tk_exp), nilexp, 0, tkv.tk_exp, nilexp,
 , 0, diagnose_tag);
         setfather(r, tkv.tk_exp);
         dno(r) = di;
         tkv.tk_exp = r;
 	crt_lno = natint(di -> data.source.end.line_no);
 	crt_charno = natint(di -> data.source.end.char_off);
 	crt_flnm = di -> data.source.beg.file->file.ints.chars;
 #endif
        };
      if (!strcmp(t -> tok_name, "~diag_id_scope"))
+       {
 #ifdef NEWDIAGS
-        tkv.tk_exp = read_diag_id_scope (tkv.tk_exp);
+        tkv.tk_exp = read_diag_id_scope(tkv.tk_exp);
 #else
         diag_info * di = read_diag_id_scope();
         exp r = getexp(sh(tkv.tk_exp), nilexp, 0, tkv.tk_exp, nilexp,
 , 0, diagnose_tag);
         setfather(r, tkv.tk_exp);
        };
      if (!strcmp(t -> tok_name, "~diag_type_scope"))
+       {
 #ifdef NEWDIAGS
-        tkv.tk_exp = read_diag_type_scope (tkv.tk_exp);
+        tkv.tk_exp = read_diag_type_scope(tkv.tk_exp);
 #else
         diag_info * di = read_diag_type_scope();
         exp r = getexp(sh(tkv.tk_exp), nilexp, 0, tkv.tk_exp, nilexp,
 , 0, diagnose_tag);
         setfather(r, tkv.tk_exp);
        };
 #ifdef NEWDIAGS
      if (!strcmp(t -> tok_name, "~dg_exp"))
+       {
-        tkv.tk_exp = read_dg_exp (tkv.tk_exp);
+        tkv.tk_exp = read_dg_exp(tkv.tk_exp);
         set_place(old_place);
         return tkv;
        };
 #endif
     exp arg1;
     place old_place;
     old_place = keep_place();
     if (!strcmp(t -> tok_name, "~asm")) {
       set_place(pars);
-      arg1 = hold_check (f_make_nof_int (ucharsh, d_string()));
+      arg1 = hold_check(f_make_nof_int(ucharsh, d_string()));
       prp = 1;
+    }
     else {
       if (!strcmp(t -> tok_name, "~asm_sequence"))
 	prp = 0;
       if (!strcmp(t -> tok_name, "~asm_exp_address"))
 	prp = 8;
       else
 	return tkv;
       set_place(pars);
-      arg1 = hold_check (d_exp());
+      arg1 = hold_check(d_exp());
+    }
     set_place(old_place);
-    tkv.tk_exp = getexp (f_top, nilexp, 0, arg1, nilexp, prp, 0, asm_tag);
+    tkv.tk_exp = getexp(f_top, nilexp, 0, arg1, nilexp, prp, 0, asm_tag);
-    setfather (tkv.tk_exp, arg1);
+    setfather(tkv.tk_exp, arg1);
     *done = 1;
     return tkv;
+  }
   SET(tkv); /* call looks at done to see if result is meaningful */

Subversion Repositories tendra.SVN

(root)/branches/tendra5/src/installers/80x86/common/spec_tok.c – Rev 5 → 6