Changeset 639 in Sophya for trunk/Poubelle/archediab.old/archediab.sources/c/reglage.c

Timestamp:

Nov 25, 1999, 2:07:25 PM (26 years ago)

Author:

ansari

Message:

archediab 25

File:

• trunk/Poubelle/archediab.old/archediab.sources/c/reglage.c (modified) (3 diffs)

trunk/Poubelle/archediab.old/archediab.sources/c/reglage.c

@@ -2 +2 @@
 #include "reglage.h"
 
+#define uc(iii)   (((long)(iii))&0xff)
+#define us(iii)   (((long)(iii))&0xffff)
 
 void    param_reglage(void)
@@ -138 +140 @@
 
 ecritT(fenetre_fichier_archeops_c,insert_f,"/*debut reglage %d */\n",num);
-ecritT(fenetre_fichier_archeops_c,insert_f,"{%d,%d,%d,%d},\n",gg->reglage.horloge.periode,gg->reglage.horloge.nb_mesures
-                ,gg->reglage.horloge.temp_mort,gg->reglage.horloge.flag);
-
+
+/***********   structure normale pour le mac   ****************/
+ecritT(fenetre_fichier_archeops_c,insert_f,"#ifdef programme\n");
+
+/*  ecrit horloge    */
+ecritT(fenetre_fichier_archeops_c,insert_f,"{%d,%d,%d,%d},\n",uc(gg->reglage.horloge.periode),uc(gg->reglage.horloge.nb_mesures)
+                ,uc(gg->reglage.horloge.temp_mort),uc(gg->reglage.horloge.flag));
+
+/* ecrit vitesses  */
 for(i=0;i<nb_type_blocks;i++)
-        {if(i>0) ecritT(fenetre_fichier_archeops_c,insert_f,",%d\n",gg->reglage.vitesse[i]); else  ecritT(fenetre_fichier_archeops_c,insert_f,"{%d\n",gg->reglage.vitesse[i]); }
-
-ecritT(fenetre_fichier_archeops_c,insert_f,"},{\n");
-        
+        {if(i>0) ecritT(fenetre_fichier_archeops_c,insert_f,",%d\n",uc(gg->reglage.vitesse[i])); else  ecritT(fenetre_fichier_archeops_c,insert_f,"{%d\n",uc(gg->reglage.vitesse[i])); }
+
+ecritT(fenetre_fichier_archeops_c,insert_f,"},{\n");
+
+/* ecrit        reglage_un_bolo  : 2 mots long */
 for(i=0;i<nb_max_bolo;i++)
         {if(i>0) ecritT(fenetre_fichier_archeops_c,insert_f,",{%d,%d}\n",gg->reglage.bolo[i].mot1,gg->reglage.bolo[i].mot2); 
@@ -152 +161 @@
 
 ecritT(fenetre_fichier_archeops_c,insert_f,"},{\n");
-        
+
+/* ecrit auto_bolo  4 char */   
 for(i=0;i<nombre_de_voies;i++)
-        {if(i>0) ecritT(fenetre_fichier_archeops_c,insert_f,",{%d,%d,%d,%d}\n",gg->reglage.autom[i].mode,gg->reglage.autom[i].gain,gg->reglage.autom[i].courant,gg->reglage.autom[i].delai); 
-                        else    ecritT(fenetre_fichier_archeops_c,insert_f,"{%d,%d,%d,%d}\n",gg->reglage.autom[i].mode,gg->reglage.autom[i].gain,gg->reglage.autom[i].courant,gg->reglage.autom[i].delai);
-        }
-
-ecritT(fenetre_fichier_archeops_c,insert_f,"},{\n");
-        
+        {if(i>0) ecritT(fenetre_fichier_archeops_c,insert_f,",{%d,%d,%d,%d}\n",uc(gg->reglage.autom[i].mode),uc(gg->reglage.autom[i].gain),uc(gg->reglage.autom[i].courant),uc(gg->reglage.autom[i].delai)); 
+                        else    ecritT(fenetre_fichier_archeops_c,insert_f,"{%d,%d,%d,%d}\n",uc(gg->reglage.autom[i].mode),uc(gg->reglage.autom[i].gain),uc(gg->reglage.autom[i].courant),uc(gg->reglage.autom[i].delai));
+        }
+
+ecritT(fenetre_fichier_archeops_c,insert_f,"},{\n");
+
+/* ecrit  regul_bolo   */
 for(i=0;i<nombre_de_regul;i++)
         {if(i>0) ecritT(fenetre_fichier_archeops_c,insert_f,",{%d,%d,%d,%d,%d,%d,%d}\n"
-                                ,gg->reglage.regul[i].mode,gg->reglage.regul[i].num_bolo,gg->reglage.regul[i].voie_chauf,gg->reglage.regul[i].prop
-                                ,gg->reglage.regul[i].integ,gg->reglage.regul[i].deriv,gg->reglage.regul[i].chauffage); 
+                                ,uc(gg->reglage.regul[i].mode),uc(gg->reglage.regul[i].num_bolo),uc(gg->reglage.regul[i].voie_chauf),uc(gg->reglage.regul[i].prop)
+                                ,uc(gg->reglage.regul[i].integ),uc(gg->reglage.regul[i].deriv),us(gg->reglage.regul[i].chauffage)); 
         else    ecritT(fenetre_fichier_archeops_c,insert_f,"{%d,%d,%d,%d,%d,%d,%d}\n"
-                                ,gg->reglage.regul[i].mode,gg->reglage.regul[i].num_bolo,gg->reglage.regul[i].voie_chauf,gg->reglage.regul[i].prop
-                                ,gg->reglage.regul[i].integ,gg->reglage.regul[i].deriv,gg->reglage.regul[i].chauffage);
-        }
-
+                                ,uc(gg->reglage.regul[i].mode),uc(gg->reglage.regul[i].num_bolo),uc(gg->reglage.regul[i].voie_chauf),uc(gg->reglage.regul[i].prop)
+                                ,uc(gg->reglage.regul[i].integ),uc(gg->reglage.regul[i].deriv),us(gg->reglage.regul[i].chauffage)); 
+        }
+
+/*  ecrit  auto_dilu   */
 ecritT(fenetre_fichier_archeops_c,insert_f,"},{%d,%d,%d,%d,%d,%d,%d,%d} \n"
-                ,gg->reglage.dilu.vanne,gg->reglage.dilu.helium,gg->reglage.dilu.chauffage,gg->reglage.dilu.piles
-                ,gg->reglage.dilu.transmission,gg->reglage.dilu.temps_max_vanne,gg->reglage.dilu.xx7,gg->reglage.dilu.xx8);
-
+                ,uc(gg->reglage.dilu.vanne),uc(gg->reglage.dilu.helium),uc(gg->reglage.dilu.chauffage),uc(gg->reglage.dilu.piles)
+                ,uc(gg->reglage.dilu.transmission),uc(gg->reglage.dilu.temps_max_vanne),uc(gg->reglage.dilu.xx7),uc(gg->reglage.dilu.xx8));
+
+
+/***********  structure swappée pour le transputer   ****************/
+ecritT(fenetre_fichier_archeops_c,insert_f,"#else\n");
+
+/*  ecrit horloge    */
+ecritT(fenetre_fichier_archeops_c,insert_f,"{%d,%d,%d,%d},\n",uc(gg->reglage.horloge.flag),uc(gg->reglage.horloge.temp_mort)
+                ,uc(gg->reglage.horloge.nb_mesures),uc(gg->reglage.horloge.periode));
+
+/* ecrit vitesses  */
+for(i=0;i<nb_type_blocks;i++)
+        {if(i>0) ecritT(fenetre_fichier_archeops_c,insert_f,",%d\n",uc(gg->reglage.vitesse[i^3])); else  ecritT(fenetre_fichier_archeops_c,insert_f,"{%d\n",uc(gg->reglage.vitesse[i^3])); }
+
+ecritT(fenetre_fichier_archeops_c,insert_f,"},{\n");
+
+/* ecrit        reglage_un_bolo  : 2 mots long */
+for(i=0;i<nb_max_bolo;i++)
+        {if(i>0) ecritT(fenetre_fichier_archeops_c,insert_f,",{%d,%d}\n",gg->reglage.bolo[i].mot1,gg->reglage.bolo[i].mot2); 
+                        else    ecritT(fenetre_fichier_archeops_c,insert_f,"{%d,%d}\n",gg->reglage.bolo[i].mot1,gg->reglage.bolo[i].mot2);
+        }
+
+ecritT(fenetre_fichier_archeops_c,insert_f,"},{\n");
+
+/* ecrit auto_bolo  4 char */   
+for(i=0;i<nombre_de_voies;i++)
+        {if(i>0) ecritT(fenetre_fichier_archeops_c,insert_f,",{%d,%d,%d,%d}\n"
+                                ,uc(gg->reglage.autom[i].delai),uc(gg->reglage.autom[i].courant),uc(gg->reglage.autom[i].gain),uc(gg->reglage.autom[i].mode)); 
+                        else    ecritT(fenetre_fichier_archeops_c,insert_f,"{%d,%d,%d,%d}\n"
+                                ,uc(gg->reglage.autom[i].delai),uc(gg->reglage.autom[i].courant),uc(gg->reglage.autom[i].gain),uc(gg->reglage.autom[i].mode)); 
+        }
+
+ecritT(fenetre_fichier_archeops_c,insert_f,"},{\n");
+
+/* ecrit  regul_bolo   */
+for(i=0;i<nombre_de_regul;i++)
+        {if(i>0) ecritT(fenetre_fichier_archeops_c,insert_f,",{%d,%d,%d,%d,%d,%d,%d}\n"
+                                ,uc(gg->reglage.regul[i].prop),uc(gg->reglage.regul[i].voie_chauf),uc(gg->reglage.regul[i].num_bolo),uc(gg->reglage.regul[i].mode)
+                                ,us(gg->reglage.regul[i].chauffage),uc(gg->reglage.regul[i].deriv),uc(gg->reglage.regul[i].integ)); 
+        else    ecritT(fenetre_fichier_archeops_c,insert_f,"{%d,%d,%d,%d,%d,%d,%d}\n"
+                                ,uc(gg->reglage.regul[i].prop),uc(gg->reglage.regul[i].voie_chauf),uc(gg->reglage.regul[i].num_bolo),uc(gg->reglage.regul[i].mode)
+                                ,us(gg->reglage.regul[i].chauffage),uc(gg->reglage.regul[i].deriv),uc(gg->reglage.regul[i].integ)); 
+        }
+
+/*  ecrit  auto_dilu   */
+ecritT(fenetre_fichier_archeops_c,insert_f,"},{%d,%d,%d,%d,%d,%d,%d,%d} \n"
+                ,uc(gg->reglage.dilu.piles),uc(gg->reglage.dilu.chauffage),uc(gg->reglage.dilu.helium),uc(gg->reglage.dilu.vanne)
+                ,uc(gg->reglage.dilu.xx8),uc(gg->reglage.dilu.xx7),uc(gg->reglage.dilu.temps_max_vanne),uc(gg->reglage.dilu.transmission));
+
+
+
+
+/***********   fin des structures swappées       ****************/
+ecritT(fenetre_fichier_archeops_c,insert_f,"#endif\n");
 
 ecritT(fenetre_fichier_archeops_c,insert_f,"/*fin_reglage*/\n");