Changeset 657 in Sophya for trunk/Poubelle/archediab.old/archediab.sources/h/compress.h

Timestamp:

Nov 25, 1999, 4:58:46 PM (26 years ago)

Author:

ansari

Message:

4 bit pour bolo on-of/bolo transmis

File:

• trunk/Poubelle/archediab.old/archediab.sources/h/compress.h (modified) (6 diffs)

trunk/Poubelle/archediab.old/archediab.sources/h/compress.h

@@ -17 +17 @@
 /*      pour    n = 72    en sortie     19 mots = 76 octets             */
 
-void compress_7_1(long* in,long*out,int n,int pasin);
+void compress_7_1(unsigned long* in,unsigned long*out,int n,int pasin);
 void decompress_7_1(long* in,long*out,int n);
 
@@ -29 +29 @@
 /*      pour    n = 72    en sortie     11 mots = 44 octets             */
 
-void compress_4_1(long* in,long*out,int n,int pasin);
+void compress_4_1(unsigned long* in,unsigned long*out,int n,int pasin);
 void decompress_4_1(long* in,long*out,int n);
 
@@ -42 +42 @@
 
 
-void compress_3_1(long* in,long*out,int n,int pasin);
+void compress_3_1(unsigned long* in,unsigned long*out,int n,int pasin);
 void decompress_3_1(long* in,long*out,int n);
 
@@ -63 +63 @@
 
 
-void compress_7_2(long* in,long*out,int n,int pasin);
+void compress_7_2(unsigned long* in,unsigned long*out,int n,int pasin);
 void decompress_7_2(long* in,long*out,int n);
 
@@ -78 +78 @@
 
 
-void compress_4_2(long* in,long*out,int n,int pasin);
+void compress_4_2(unsigned long* in,unsigned long*out,int n,int pasin);
 void decompress_4_2(long* in,long*out,int n);
 
@@ -89 +89 @@
 /************************************************************************/
 
-/*Les valeures de la table d'entree sont consideres comme toujopurs positives   */
-/* les ecarts sont calculés signés sur 32 bit avant d'etre tronconnés           */
+/*      tous les nombres sont des entiers unsigned long pour compress                           */
+/*Les valeures de la table d'entree sont consideres comme toujours positives et sur 21 bits     */
+/*  les valeurs de reference pour le calcul des ecarts sont augmentees de ecart_bit=0x10000000  */
+/*      LES ECARTS SONT DES ENTIERS POSITIFS (ecart_bit +  valeur courante - valeur precedente) */
 
-#define shif(ec,k,q)    {while(ec>q)if(k<kmax_){k++;q<<=1;}else ec=q;while(ec<-q)if(k<kmax_){k++;q<<=1;}else ec=-q;}
-#define recup(ec,sss,k) {ec=((R>>sss)&emak_);if(ec & sgbi_ ) ec|= sign_ ; ec<<=k;}
-#define arrondi(ec,k)   ((ec &  filtre[k]) +( (ec & test[k]) <<1 ) )    
+/*  pour tous les compresseurs  */
+#define kmax_   15              /*  valeur maximum de l'exposant        */
+#define ecart_bit       0x10000000
+#define shif(ec,k,q)    {while(ec>(q|ecart_bit))if(k<kmax_){k++;q<<=1;}else ec=(q|ecart_bit);while(ec<ecart_bit-q)if(k<kmax_){k++;q<<=1;}else ec=ecart_bit-q;}
+#define arrondi(ec,k)   ((ec &  filtre[k]) +( (ec & test[k]) <<1 ) ) /* resultat sur 28 bit  */ 
+#define new_val(val,ec,k)       ((val + arrondi(ec,k))&data_mask);
 
+/* pour les decompresseurs      */
+#define recup(ec,sss,k) {ec=((R>>sss)&ecart_mask);if(ec & sgbi_ ) ec|= sign_ ; ec<<=k;}
+