87 lines
1.8 KiB
C
Executable File
87 lines
1.8 KiB
C
Executable File
/* RAND-SRC.C - Generate random message bits. */
|
|
|
|
/* 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 <math.h>
|
|
|
|
#include "open.h"
|
|
#include "rand.h"
|
|
|
|
void usage(void);
|
|
|
|
|
|
/* MAIN PROGRAM. */
|
|
|
|
int main
|
|
( int argc,
|
|
char **argv
|
|
)
|
|
{
|
|
int seed, bs, nb;
|
|
char *file, *n_bits;
|
|
char junk;
|
|
int i, j;
|
|
FILE *f;
|
|
|
|
if (!(file = argv[1])
|
|
|| !argv[2] || sscanf(argv[2],"%d%c",&seed,&junk)!=1
|
|
|| !(n_bits = argv[3])
|
|
|| argv[4])
|
|
{ usage();
|
|
}
|
|
|
|
if (sscanf(n_bits,"%d%c",&nb,&junk)==1)
|
|
{ if (nb<=0) usage();
|
|
bs = 1;
|
|
}
|
|
else if (sscanf(n_bits,"%dx%d%c",&bs,&nb,&junk)==2)
|
|
{ if (nb<=0 || bs<=0) usage();
|
|
}
|
|
else
|
|
{ usage();
|
|
}
|
|
|
|
f = open_file_std(file,"w");
|
|
if (f==NULL)
|
|
{ fprintf(stderr,"Can't create source file: %s\n",file);
|
|
exit(1);
|
|
}
|
|
|
|
rand_seed(10*seed+2);
|
|
|
|
for (i = 0; i<nb; i++)
|
|
{ for (j = 0; j<bs; j++)
|
|
{ fprintf(f,"%d",rand_int(2));
|
|
}
|
|
fprintf(f,"\n");
|
|
}
|
|
|
|
if (ferror(f) || fclose(f)!=0)
|
|
{ fprintf(stderr,"Error writing random source blocks to %s\n",file);
|
|
exit(1);
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
/* PRINT USAGE MESSAGE AND EXIT. */
|
|
|
|
void usage(void)
|
|
{ fprintf(stderr,"Usage: rand-src source-file seed n-bits\n");
|
|
exit(1);
|
|
}
|