github.com/open-simh.simtools
1
0
Fork 0
mirror of https://github.com/open-simh/simtools.git synced 2026-01-13 23:36:03 +00:00
Code Issues Projects Releases Wiki Activity

Add -rt11 option to dumpobj too.

Browse Source
This commit is contained in:
Olaf Seibert 2020-03-03 22:58:32 +01:00
parent 592b7facf1
commit 94d044fd77
1 changed files with 64 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

107
dumpobj.c
View File

@ -57,7 +57,8 @@ int xferad = 1;
char *readrec(
FILE *fp,
int *len)
int *len,
int rt11)
{
int c,
i;
@ -66,33 +67,33 @@ char *readrec(
chksum = 0;
#if RT11
while (c = fgetc(fp), c != EOF && c == 0) ;
if (rt11) {
while (c = fgetc(fp), c != EOF && c == 0) ;
if (c == EOF)
return NULL;
if (c == EOF)
return NULL;
if (c != 1) {
fprintf(stderr, "Improperly formatted OBJ file (1)\n");
return NULL; /* Not a properly formatted file. */
if (c != 1) {
fprintf(stderr, "Improperly formatted OBJ file (1)\n");
return NULL; /* Not a properly formatted file. */
}
chksum -= c;
c = fgetc(fp);
if (c != 0) {
fprintf(stderr, "Improperly formatted OBJ file (2)\n");
return NULL; /* Not properly formatted */
}
chksum -= c; /* even though for 0 the checksum isn't changed... */
}
chksum -= c;
c = fgetc(fp);
if (c != 0) {
fprintf(stderr, "Improperly formatted OBJ file (2)\n");
return NULL; /* Not properly formatted */
}
chksum -= c; /* even though for 0 the checksum isn't changed... */
#endif /* RT11 */
c = fgetc(fp);
if (c == EOF) {
#if RT11
fprintf(stderr, "Improperly formatted OBJ file (3)\n");
#endif /* RT11 */
if (rt11) {
fprintf(stderr, "Improperly formatted OBJ file (3)\n");
}
return NULL;
}
*len = c;
@ -109,9 +110,10 @@ char *readrec(
chksum -= c;
#if RT11
*len -= 4; /* Subtract header and length bytes from length */
#endif
if (rt11) {
*len -= 4; /* Subtract header and length bytes from length */
}
if (*len < 0) {
fprintf(stderr, "Improperly formatted OBJ file (5)\n");
return NULL;
@ -133,28 +135,28 @@ char *readrec(
for (i = 0; i < *len; i++)
chksum -= (buf[i] & 0xff);
#if RT11
c = fgetc(fp);
c &= 0xff;
chksum &= 0xff;
if (c != chksum) {
free(buf);
fprintf(stderr, "Bad record checksum, " "calculated=$%04x, recorded=$%04x\n", chksum, c);
return NULL;
}
#else
if (*len & 1) {
/* skip 1 byte of padding */
if (rt11) {
c = fgetc(fp);
if (c == EOF) {
c &= 0xff;
chksum &= 0xff;
if (c != chksum) {
free(buf);
fprintf(stderr, "EOF where padding byte should be\n");
fprintf(stderr, "Bad record checksum, " "calculated=$%04x, recorded=$%04x\n", chksum, c);
return NULL;
}
} else {
if (*len & 1) {
/* skip 1 byte of padding */
c = fgetc(fp);
if (c == EOF) {
free(buf);
fprintf(stderr, "EOF where padding byte should be\n");
return NULL;
}
}
}
#endif /* RT11 */
return buf;
}
@ -683,7 +685,24 @@ int main(
{
int len;
FILE *fp;
char *cp;
int arg;
int rt11 = 0;
for (arg = 1; arg < argc; arg++) {
if (*argv[arg] == '-') {
char *cp;
cp = argv[arg] + 1;
if (!strcasecmp(cp, "rt11")) {
rt11 = 1;
} else if (!strcasecmp(cp, "rsx")) {
rt11 = 0;
} else {
fprintf(stderr, "Unknown option %s\n", argv[arg]);
exit(EXIT_FAILURE);
}
}
}
if (argc < 2) {
fprintf(stderr, "Usage: dumpobj input.obj [ output.obj ]\n");
@ -699,7 +718,9 @@ int main(
return EXIT_FAILURE;
}
while ((cp = readrec(fp, &len)) != NULL) {
char *cp;
while ((cp = readrec(fp, &len, rt11)) != NULL) {
switch (cp[0] & 0xff) {
case 1:
got_gsd(cp, len);