From 5d69a524f81f234b3fbc41d49ba18d6f6886baba Mon Sep 17 00:00:00 2001
From: jcorgan
Date: Thu, 3 Aug 2006 04:51:51 +0000
Subject: Houston, we have a trunk.

git-svn-id: http://gnuradio.org/svn/gnuradio/trunk@3122 221aa14e-8319-0410-a670-987f0aec2ac5
---
 gnuradio-core/src/lib/reed-solomon/exercise.c | 126 ++++++++++++++++++++++++++
 1 file changed, 126 insertions(+)
 create mode 100644 gnuradio-core/src/lib/reed-solomon/exercise.c

(limited to 'gnuradio-core/src/lib/reed-solomon/exercise.c')

diff --git a/gnuradio-core/src/lib/reed-solomon/exercise.c b/gnuradio-core/src/lib/reed-solomon/exercise.c
new file mode 100644
index 000000000..91d43e157
--- /dev/null
+++ b/gnuradio-core/src/lib/reed-solomon/exercise.c
@@ -0,0 +1,126 @@
+/* Exercise an RS codec a specified number of times using random
+ * data and error patterns
+ *
+ * Copyright 2002 Phil Karn, KA9Q
+ * May be used under the terms of the GNU General Public License (GPL)
+ */
+#define FLAG_ERASURE 1 /* Randomly flag 50% of errors as erasures */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#ifdef FIXED
+#include "fixed.h"
+#define EXERCISE exercise_8
+#elif defined(CCSDS)
+#include "fixed.h"
+#include "ccsds.h"
+#define EXERCISE exercise_ccsds
+#elif defined(BIGSYM)
+#include "int.h"
+#define EXERCISE exercise_int
+#else
+#include "char.h"
+#define EXERCISE exercise_char
+#endif
+
+#ifdef FIXED
+#define PRINTPARM printf("(255,223):");
+#elif defined(CCSDS)
+#define PRINTPARM printf("CCSDS (255,223):");
+#else
+#define PRINTPARM printf("(%d,%d):",rs->nn,rs->nn-rs->nroots);
+#endif
+
+/* Exercise the RS codec passed as an argument */
+int EXERCISE(
+#if !defined(CCSDS) && !defined(FIXED)
+void *p,
+#endif
+int trials){
+#if !defined(CCSDS) && !defined(FIXED)
+  struct rs *rs = (struct rs *)p;
+#endif
+  DTYPE block[NN],tblock[NN];
+  int i;
+  int errors;
+  int errlocs[NN];
+  int derrlocs[NROOTS];
+  int derrors;
+  int errval,errloc;
+  int erasures;
+  int decoder_errors = 0;
+
+  while(trials-- != 0){
+    /* Test up to the error correction capacity of the code */
+    for(errors=0;errors <= NROOTS/2;errors++){
+
+      /* Load block with random data and encode */
+      for(i=0;i<NN-NROOTS;i++)
+	block[i] = random() & NN;
+      
+#if defined(CCSDS) || defined(FIXED)
+      ENCODE_RS(&block[0],&block[NN-NROOTS]);
+#else
+      ENCODE_RS(rs,&block[0],&block[NN-NROOTS]);
+#endif
+
+      /* Make temp copy, seed with errors */
+      memcpy(tblock,block,sizeof(tblock));
+      memset(errlocs,0,sizeof(errlocs));
+      memset(derrlocs,0,sizeof(derrlocs));
+      erasures=0;
+      for(i=0;i<errors;i++){
+	do {
+	  errval = random() & NN;
+	} while(errval == 0); /* Error value must be nonzero */
+
+	do {
+	  errloc = random() % NN;
+	} while(errlocs[errloc] != 0); /* Must not choose the same location twice */
+
+	errlocs[errloc] = 1;
+
+#if FLAG_ERASURE
+	if(random() & 1) /* 50-50 chance */
+	  derrlocs[erasures++] = errloc;
+#endif
+	tblock[errloc] ^= errval;
+      }
+
+      /* Decode the errored block */
+#if defined(CCSDS) || defined(FIXED)
+      derrors = DECODE_RS(tblock,derrlocs,erasures);
+#else
+      derrors = DECODE_RS(rs,tblock,derrlocs,erasures);
+#endif
+
+      if(derrors != errors){
+	PRINTPARM
+	printf(" decoder says %d errors, true number is %d\n",derrors,errors);
+	decoder_errors++;
+      }
+      for(i=0;i<derrors;i++){
+	if(errlocs[derrlocs[i]] == 0){
+	  PRINTPARM
+	  printf(" decoder indicates error in location %d without error\n",i);
+	  decoder_errors++;
+	}
+      }
+      if(memcmp(tblock,block,sizeof(tblock)) != 0){
+	PRINTPARM
+	printf(" uncorrected errors! output ^ input:");
+	decoder_errors++;
+	for(i=0;i<NN;i++)
+	  printf(" %02x",tblock[i] ^ block[i]);
+	printf("\n");
+      }
+    }
+  }
+  return decoder_errors;
+}
-- 
cgit 


From 38ea3a576a20820e574c6cb37607aeafe07f34b4 Mon Sep 17 00:00:00 2001
From: eb
Date: Wed, 30 Apr 2008 02:24:06 +0000
Subject: Tweaks for gcc 4.3 based on patch from Marek Mahut
 <mmahut@fedoraproject.org>.

git-svn-id: http://gnuradio.org/svn/gnuradio/trunk@8292 221aa14e-8319-0410-a670-987f0aec2ac5
---
 gnuradio-core/src/lib/reed-solomon/exercise.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'gnuradio-core/src/lib/reed-solomon/exercise.c')

diff --git a/gnuradio-core/src/lib/reed-solomon/exercise.c b/gnuradio-core/src/lib/reed-solomon/exercise.c
index 91d43e157..1e04f618d 100644
--- a/gnuradio-core/src/lib/reed-solomon/exercise.c
+++ b/gnuradio-core/src/lib/reed-solomon/exercise.c
@@ -13,6 +13,7 @@
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
+#include <strings.h>
 
 #ifdef FIXED
 #include "fixed.h"
-- 
cgit 


From 8abd6a443e72439f4c7e77bc0c6f5b54bb70f8e7 Mon Sep 17 00:00:00 2001
From: Josh Blum
Date: Wed, 3 Aug 2011 00:12:43 -0700
Subject: rs: reasonable workaround for compiling reed-solomon under MSVC

---
 gnuradio-core/src/lib/reed-solomon/exercise.c | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'gnuradio-core/src/lib/reed-solomon/exercise.c')

diff --git a/gnuradio-core/src/lib/reed-solomon/exercise.c b/gnuradio-core/src/lib/reed-solomon/exercise.c
index 1e04f618d..987fe1aeb 100644
--- a/gnuradio-core/src/lib/reed-solomon/exercise.c
+++ b/gnuradio-core/src/lib/reed-solomon/exercise.c
@@ -13,7 +13,6 @@
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
-#include <strings.h>
 
 #ifdef FIXED
 #include "fixed.h"
@@ -47,11 +46,19 @@ int trials){
 #if !defined(CCSDS) && !defined(FIXED)
   struct rs *rs = (struct rs *)p;
 #endif
+#if MAX_ARRAY
+  DTYPE block[MAX_ARRAY],tblock[MAX_ARRAY];
+  int i;
+  int errors;
+  int errlocs[MAX_ARRAY];
+  int derrlocs[MAX_ARRAY];
+#else
   DTYPE block[NN],tblock[NN];
   int i;
   int errors;
   int errlocs[NN];
   int derrlocs[NROOTS];
+#endif
   int derrors;
   int errval,errloc;
   int erasures;
-- 
cgit 


From 9c853b962d73565f2980789a32f347309bcc605f Mon Sep 17 00:00:00 2001
From: Tom Rondeau
Date: Tue, 25 Oct 2011 14:50:14 -0400
Subject: reed-solomon: fixed the signed/unsigned warnings in the RS code.

Some of these had to be done through type-casting since changing
the actual data type would cause the tests to fail. make test
still passes.
---
 gnuradio-core/src/lib/reed-solomon/exercise.c | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'gnuradio-core/src/lib/reed-solomon/exercise.c')

diff --git a/gnuradio-core/src/lib/reed-solomon/exercise.c b/gnuradio-core/src/lib/reed-solomon/exercise.c
index 987fe1aeb..be3d3bd13 100644
--- a/gnuradio-core/src/lib/reed-solomon/exercise.c
+++ b/gnuradio-core/src/lib/reed-solomon/exercise.c
@@ -48,13 +48,13 @@ int trials){
 #endif
 #if MAX_ARRAY
   DTYPE block[MAX_ARRAY],tblock[MAX_ARRAY];
-  int i;
+  unsigned int i;
   int errors;
   int errlocs[MAX_ARRAY];
   int derrlocs[MAX_ARRAY];
 #else
   DTYPE block[NN],tblock[NN];
-  int i;
+  unsigned int i;
   int errors;
   int errlocs[NN];
   int derrlocs[NROOTS];
@@ -66,7 +66,7 @@ int trials){
 
   while(trials-- != 0){
     /* Test up to the error correction capacity of the code */
-    for(errors=0;errors <= NROOTS/2;errors++){
+    for(errors=0;(unsigned int)errors <= NROOTS/2;errors++){
 
       /* Load block with random data and encode */
       for(i=0;i<NN-NROOTS;i++)
@@ -83,7 +83,7 @@ int trials){
       memset(errlocs,0,sizeof(errlocs));
       memset(derrlocs,0,sizeof(derrlocs));
       erasures=0;
-      for(i=0;i<errors;i++){
+      for(i=0;i<(unsigned int)errors;i++){
 	do {
 	  errval = random() & NN;
 	} while(errval == 0); /* Error value must be nonzero */
@@ -113,7 +113,7 @@ int trials){
 	printf(" decoder says %d errors, true number is %d\n",derrors,errors);
 	decoder_errors++;
       }
-      for(i=0;i<derrors;i++){
+      for(i=0;i<(unsigned int)derrors;i++){
 	if(errlocs[derrlocs[i]] == 0){
 	  PRINTPARM
 	  printf(" decoder indicates error in location %d without error\n",i);
-- 
cgit 


From f919f9dcbb54a08e6e26d6c229ce92fb784fa1b2 Mon Sep 17 00:00:00 2001
From: Tom Rondeau
Date: Fri, 13 Apr 2012 18:36:53 -0400
Subject: Removed whitespace and added dtools/bin/remove-whitespace as a tool
 to do this in the future.

The sed script was provided by Moritz Fischer.
---
 gnuradio-core/src/lib/reed-solomon/exercise.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'gnuradio-core/src/lib/reed-solomon/exercise.c')

diff --git a/gnuradio-core/src/lib/reed-solomon/exercise.c b/gnuradio-core/src/lib/reed-solomon/exercise.c
index be3d3bd13..de33a6bff 100644
--- a/gnuradio-core/src/lib/reed-solomon/exercise.c
+++ b/gnuradio-core/src/lib/reed-solomon/exercise.c
@@ -71,7 +71,7 @@ int trials){
       /* Load block with random data and encode */
       for(i=0;i<NN-NROOTS;i++)
 	block[i] = random() & NN;
-      
+
 #if defined(CCSDS) || defined(FIXED)
       ENCODE_RS(&block[0],&block[NN-NROOTS]);
 #else
-- 
cgit