update ricecomp.c to CFITSIO 4.5.0 version with our mods - #496

PDLPorters · Oct 22, 2024 · 42bc210 · 42bc210
1 parent 55415b1
commit 42bc210
Show file tree

Hide file tree

Showing 4 changed files with 1,147 additions and 460 deletions.
diff --git a/Libtmp/Compression/compression.pd b/Libtmp/Compression/compression.pd
@@ -150,8 +150,7 @@ EOD
 	CHeader => qq{#include "ricecomp.h"\n},
 	Code => <<'EOD',
 char *err = "error message not updated";
-$len() = rcomp(&err, $P(in),
-		      sizeof($GENERIC(in)),
+$len() = fits_rcomp$TBSUL(_byte,_short,_short,)(&err, $P(in),
 		      $SIZE(n),
 		      (unsigned char *)($P(out)),
 		      $SIZE(m) * sizeof($GENERIC(out)),
@@ -180,10 +179,9 @@ Unsquishes a PDL that has been squished by rice_compress.
 EOD
 	CHeader => qq{#include "ricecomp.h"\n},
 	Code=><<'EOD',
-char *err = rdecomp( (unsigned char *)($P(in)),
+char *err = fits_rdecomp$TBSUL(_byte,_short,_short,)( (unsigned char *)($P(in)),
 	 $len(),
 	 $P(out),
-	 sizeof($GENERIC(out)),
 	 $SIZE(m),
 	 $COMP(blocksize)
 	 );