blob: 8a36dff31efbfeb45e196ccb049d4062d53d2f28 [file] [log] [blame]
// SPDX-License-Identifier: GPL-2.0
/*
* Copyright (c) 2000 Silicon Graphics, Inc.
* All Rights Reserved.
*/
#include <stdio.h>
#include <sys/param.h>
#include <string.h> /* memset */
#include <stdlib.h> /* rand */
#include "databin.h"
#if UNIT_TEST
#include <malloc.h>
#endif
static char Errmsg[80];
void
databingen (mode, buffer, bsize, offset)
int mode; /* either a, c, r, o, z or C */
unsigned char *buffer; /* buffer pointer */
int bsize; /* size of buffer */
int offset; /* offset into the file where buffer starts */
{
int ind;
switch (mode)
{
default:
case 'a': /* alternating bit pattern */
memset(buffer,0x55,bsize);
break;
case 'c': /* checkerboard pattern */
memset(buffer,0xf0,bsize);
break;
case 'C': /* */
for (ind=0;ind< bsize;ind++) {
buffer[ind] = ((offset+ind)%8 & 0177);
}
break;
case 'o':
memset(buffer,0xff,bsize);
break;
case 'z':
memset(buffer,0x0,bsize);
break;
case 'r': /* random */
for (ind=0;ind< bsize;ind++) {
buffer[ind] = (rand () & 0177) | 0100;
}
}
}
/***********************************************************************
*
* return values:
* >= 0 : error at byte offset into the file, offset+buffer[0-(bsize-1)]
* < 0 : no error
***********************************************************************/
int
databinchk(mode, buffer, bsize, offset, errmsg)
int mode; /* either a, c, r, z, o, or C */
unsigned char *buffer; /* buffer pointer */
int bsize; /* size of buffer */
int offset; /* offset into the file where buffer starts */
char **errmsg;
{
int cnt;
unsigned char *chr;
long expbits;
long actbits;
chr=buffer;
if ( errmsg != NULL ) {
*errmsg = Errmsg;
}
switch (mode)
{
default:
case 'a': /* alternating bit pattern */
expbits=0x55;
break;
case 'c': /* checkerboard pattern */
expbits=0xf0;
break;
case 'C': /* counting pattern */
for (cnt=0;cnt< bsize;cnt++) {
expbits = ((offset+cnt)%8 & 0177);
if ( buffer[cnt] != expbits ) {
sprintf(Errmsg,
"data mismatch at offset %d, exp:%#lo, act:%#o",
offset+cnt, expbits, buffer[cnt]);
return offset+cnt;
}
}
sprintf(Errmsg, "all %d bytes match desired pattern", bsize);
return -1;
case 'o':
expbits=0xff;
break;
case 'z':
expbits=0;
break;
case 'r':
return -1; /* no check can be done for random */
}
for (cnt=0; cnt<bsize; chr++, cnt++) {
actbits = (long)*chr;
if ( actbits != expbits ) {
sprintf(Errmsg, "data mismatch at offset %d, exp:%#lo, act:%#lo",
offset+cnt, expbits, actbits);
return offset+cnt;
}
}
sprintf(Errmsg, "all %d bytes match desired pattern", bsize);
return -1; /* all ok */
}
#if UNIT_TEST
/***********************************************************************
* main for doing unit testing
***********************************************************************/
int
main(ac, ag)
int ac;
char **ag;
{
int size=1023;
int offset;
int number;
unsigned char *buffer;
int ret;
char *errmsg;
if ((buffer=(unsigned char *)malloc(size)) == NULL ) {
perror("malloc");
exit(2);
}
printf("***** for a ****************************\n");
databingen('a', buffer, size, 0);
printf("databingen('a', buffer, %d, 0)\n", size);
ret=databinchk('a', buffer, size, 0, &errmsg);
printf("databinchk('a', buffer, %d, 0, &errmsg) returned %d: %s\n",
size, ret, errmsg);
if ( ret == -1 )
printf("\tPASS return value of -1 as expected\n");
else
printf("\tFAIL return value %d, expected -1\n", ret);
offset=232400;
ret=databinchk('a', &buffer[1], size-1, offset, &errmsg);
printf("databinchk('a', &buffer[1], %d, %d, &errmsg) returned %d: %s\n",
size, offset, ret, errmsg);
if ( ret == -1 )
printf("\tPASS return value of -1 as expected\n");
else
printf("\tFAIL return value %d, expected -1\n", ret);
buffer[15]= 0x0;
printf("changing char 15 (offset (%d+15) = %d) to 0x0\n", offset, offset+15);
number=offset+15;
ret=databinchk('a', &buffer[1], size-1, offset+1, &errmsg);
printf("databinchk('a', &buffer[1], %d, %d, &errmsg) returned %d: %s\n",
size-1, offset+1, ret, errmsg);
if ( ret == number )
printf("\tPASS return value of %d as expected\n", number);
else
printf("\tFAIL return value %d, expected %d\n", ret, number);
printf("***** for c ****************************\n");
databingen('c', buffer, size, 0);
printf("databingen('c', buffer, %d, 0)\n", size);
ret=databinchk('c', buffer, size, 0, &errmsg);
printf("databinchk('c', buffer, %d, 0, &errmsg) returned %d: %s\n",
size, ret, errmsg);
if ( ret == -1 )
printf("\tPASS return value of -1 as expected\n");
else
printf("\tFAIL return value %d, expected -1\n", ret);
offset=232400;
ret=databinchk('c', &buffer[1], size-1, offset, &errmsg);
printf("databinchk('c', &buffer[1], %d, %d, &errmsg) returned %d: %s\n",
size, offset, ret, errmsg);
if ( ret == -1 )
printf("\tPASS return value of -1 as expected\n");
else
printf("\tFAIL return value %d, expected -1\n", ret);
buffer[15]= 0x0;
printf("changing char 15 (offset (%d+15) = %d) to 0x0\n", offset, offset+15);
number=offset+15;
ret=databinchk('c', &buffer[1], size-1, offset+1, &errmsg);
printf("databinchk('c', &buffer[1], %d, %d, &errmsg) returned %d: %s\n",
size-1, offset+1, ret, errmsg);
if ( ret == number )
printf("\tPASS return value of %d as expected\n", number);
else
printf("\tFAIL return value %d, expected %d\n", ret, number);
printf("***** for C ****************************\n");
databingen('C', buffer, size, 0);
printf("databingen('C', buffer, %d, 0)\n", size);
ret=databinchk('C', buffer, size, 0, &errmsg);
printf("databinchk('C', buffer, %d, 0, &errmsg) returned %d: %s\n",
size, ret, errmsg);
if ( ret == -1 )
printf("\tPASS return value of -1 as expected\n");
else
printf("\tFAIL return value %d, expected -1\n", ret);
offset=18;
ret=databinchk('C', &buffer[18], size-18, 18, &errmsg);
printf("databinchk('C', &buffer[18], %d, 18, &errmsg) returned %d: %s\n",
size-18, ret, errmsg);
if ( ret == -1 )
printf("\tPASS return value of -1 as expected\n");
else
printf("\tFAIL return value %d, expected -1\n", ret);
buffer[20]= 0x0;
buffer[21]= 0x0;
printf("changing char 20 and 21 to 0x0 (offset %d and %d)\n", 20,
21);
ret=databinchk('C', &buffer[18], size-18, 18, &errmsg);
printf("databinchk('C', &buffer[18], %d, 18, &errmsg) returned %d: %s\n",
size-18, ret, errmsg);
if ( ret == 20 || ret == 21 )
printf("\tPASS return value of %d or %d as expected\n",
20, 21);
else
printf("\tFAIL return value %d, expected %d or %d\n", ret,
20, 21 );
exit(0);
}
#endif