Initial Commit

2018-02-08 21:28:33 -05:00
commit 678c1d3966
14352 changed files with 3176737 additions and 0 deletions
@@ -0,0 +1,114 @@
+/* PRINT-PCHK.C - Print the parity check matrix for a code. */
+
+/* Copyright (c) 1995-2012 by Radford M. Neal.
+ *
+ * Permission is granted for anyone to copy, use, modify, and distribute
+ * these programs and accompanying documents for any purpose, provided
+ * this copyright notice is retained and prominently displayed, and note
+ * is made of any changes made to these programs.  These programs and
+ * documents are distributed without any warranty, express or implied.
+ * As the programs were written for research purposes only, they have not
+ * been tested to the degree that would be advisable in any important
+ * application.  All use of these programs is entirely at the user's own
+ * risk.
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <math.h>
+
+#include "rand.h"
+#include "alloc.h"
+#include "open.h"
+#include "mod2sparse.h"
+#include "mod2dense.h"
+#include "mod2convert.h"
+#include "rcode.h"
+
+void usage(void);
+
+
+/* MAIN PROGRAM. */
+
+int main
+( int argc,
+  char **argv
+)
+{
+  mod2dense *D;
+  mod2sparse *T;
+
+  char *pchk_file;
+  int dprint, trans;
+
+  dprint = 0;
+  trans = 0;
+
+  for (;;)
+  {
+    if (argc>1 && strcmp(argv[1],"-d")==0)
+    { dprint = 1;
+      argc -= 1;
+      argv += 1;
+    }
+    else if (argc>1 && strcmp(argv[1],"-t")==0)
+    { trans = 1;
+      argc -= 1;
+      argv += 1;
+    }
+    else
+    { break;
+    }
+  }
+
+  if (!(pchk_file = argv[1]) || argv[2])
+  { usage();
+  }
+
+  read_pchk(pchk_file);
+
+  if (trans)
+  { T = mod2sparse_allocate(N,M);
+    mod2sparse_transpose(H,T);
+  }
+
+  if (dprint)
+  { if (trans)
+    { D = mod2dense_allocate(N,M);
+      mod2sparse_to_dense(T,D);
+      printf("\nTranspose of parity check matrix in %s (dense format):\n\n",
+             pchk_file);
+      mod2dense_print(stdout,D);
+    }
+    else
+    { D = mod2dense_allocate(M,N);
+      mod2sparse_to_dense(H,D);
+      printf("\nParity check matrix in %s (dense format):\n\n",pchk_file);
+      mod2dense_print(stdout,D);
+    }
+  }
+  else /* sparse */
+  { if (trans)
+    { printf("\nTranspose of parity check matrix in %s (sparse format):\n\n",
+             pchk_file);
+      mod2sparse_print(stdout,T);
+    }
+    else
+    { printf("\nParity check matrix in %s (sparse format):\n\n",pchk_file);
+      mod2sparse_print(stdout,H);
+    }
+  }
+
+  printf("\n");
+
+  return 0;
+}
+
+
+/* PRINT USAGE MESSAGE AND EXIT. */
+
+void usage(void)
+{ fprintf(stderr,"Usage: print-pchk [ -d ] [ -t ] pchk-file\n");
+  exit(1);
+}