/* TLPatch.c V1.0 */ /* Translator.library patch utility */ /* Richard Sheppard - Jan. 7, 1991 */ /* Toronto, Canada */ /* (source for Lattice C ??) */ /* TLPatch204.c */ /* translator.library patch utility */ /* Kenneth Jennings - Dec. 23, 1994 */ /* Miami, Florida */ /* Source for SAS/C 6.51 */ #include #include #include #include #include #include void AddFile(void); void Validate(void); void Extract(void); int GetLine(char line[], int max); int GetExcept(char line[], int max); int StrIndex(char source[], char searchfor[]); FILE *fp1, *fp2; /* input file (exception table), outfile */ FILE *fp3; /* input file (translator.library) */ #ifdef DEBUG_ON FILE *fp4; /* Debugging file */ #endif char pattern[] = "[A"; /* 1st search pattern */ char line[256]; /* line buffer */ LONG codesize; /* size of code & xtbl hunk */ LONG jmptab[28]; /* jump table array */ WORD code[1024]; /* original code at start */ LONG reloc[45] = /* reloc table at end of file */ { 0x000003EC, 0x00000003, 0x00000000, 0x00000012, 0x0000000E, 0x00000002, 0x00000003, 0x00000000, 0x0000007E, 0x0000007A, 0x00000076, 0x00000012, 0x00000000, 0x000005DC, 0x000005D8, 0x000005D4, 0x000005D0, 0x000005CC, 0x000005C8, 0x000005C4, 0x000005C0, 0x000005BC, 0x000005B8, 0x000005B4, 0x000005B0, 0x000005AC, 0x00000574, 0x00000352, 0x0000033A, 0x0000019C, 0x00000132, 0x00000001, 0x00000000, 0x00000006, 0x00000001, 0x00000000, 0x00000016, 0x00000001, 0x00000000, 0x00000060, 0x00000000, 0x000003F2, 0x000003E9, 0x00000000, 0x000003F2 }; struct ExecBase *ExecBase = NULL; struct Node *node; void main(int argc,char *argv[]) { int c,opt; int x = 0; int xcnt = 0; int size = 0; printf("\n\tTLPatch - translator.library patch utility V1.0\n"); printf("\t For WB 1.3, Rel. 33.2 library\n"); printf("\t Richard Sheppard - 1991\n\n"); printf("\n\tTLPatch204 - translator.library patch utility V2.04\n"); printf("\t For WB 2.04, Rel. 37.1 library\n"); printf("\t Kenneth Jennings - 1994\n\n"); while (--argc > 0) { if ( (*++argv)[0] == '-') /* parse command line arguments */ { while (opt = *++argv[0]) { switch (opt) { case 'x': case 'X': Extract(); exit(0); break; default: break; } } } } if ( (fp1 = fopen("ram:except.tbl","r")) == NULL) { printf("*** Can't open ram:except.tbl\n"); printf("--- Copy your except.tbl to ram: or\n"); printf("--- use \"%s -x\" to extract table.\n",*argv); exit(0); } else if ( (fp2 = fopen("ram:xtable.new","w")) == NULL) { printf("*** Can't open ram:xtable.new\n"); fclose(fp1); exit(0); } else if ( (fp3 = fopen("sys:libs/translator.library","rb")) == NULL) { printf("*** Can't open sys:libs/translator.library\n"); fclose(fp2); fclose(fp1); exit(0); } #ifdef DEBUG_ON else if ( (fp4 = fopen("ram:tl.debug","w")) == NULL) { printf("*** Can't open ram:tl.debug\n"); fclose(fp3); fclose(fp2); fclose(fp1); exit(0); } #endif if ( !(ExecBase = (struct ExecBase *)OpenLibrary("exec.library", 0L)) ) printf("*** Can't open ExecBase\n"); else { if ( (node = (struct Node *)FindName( &ExecBase->LibList, "translator.library") ) != 0) { printf("\tRemoving resident translator.library\n"); Remove(node); } } printf("\tReading exception table...\n"); #ifdef DEBUG_ON fprintf(fp4, "Reading exception table...\n"); #endif while ( (c = GetLine(line, 256) ) > 0) { size = size + c; #ifdef DEBUG_ON fprintf(fp4, "Read %d chars, size is now (%d, 0x%0X) bytes: %s\n", c, size, size, line); #endif if (StrIndex(line, pattern) >= 0) { jmptab[x] = (LONG)(size - c + 0x70);/* table size = 0x70 (112) Bytes */ #ifdef DEBUG_ON fprintf(fp4, "Calc jmptab[%d] = (%d, 0x%0X)\n", x, jmptab[x], jmptab[x]); #endif x++; pattern[1]++; /* increment search character */ if(pattern[1] == 91) pattern[1] = 48; /* "0" - start of numbers */ if(pattern[1] == 49) pattern[1] = 32; /* " " - start of punctuation */ if(pattern[1] == 33) pattern[0] = 0; /* NULL */ } fprintf(fp2,"%s",line); /* write new xtable */ xcnt++; /* exception count */ } fputc('\0',fp2); /* NULL at end of exception table */ size++; /* size + NULL */ #ifdef DEBUG_ON fprintf(fp4, "Wrote NULL, size is now (%d, 0x%0X) bytes, DeltaLONG %d\n", size, size, size%4 ); #endif if (size % 4) { for (x = (size % 4); x < 4; x++) { fputc('\0', fp2); /* align table to LONG boundary */ size++; #ifdef DEBUG_ON fprintf(fp4, "Filling NULL, size is now (%d, 0x%0X) bytes, DeltaLONG %d\n", size, size, size%4); #endif } } codesize = (size + 0x77C) / 4; /* 0x77C (1916) = code + jmptab - hunks */ #ifdef DEBUG_ON fprintf(fp4, "Calc codesize = (%d, 0x%0X) is (size (%d, 0x%0X) + (1916, 0x77C) ) / 4\n", codesize, codesize, size, size); #endif fclose(fp2); fclose(fp1); printf("\tReading original code...\n"); #ifdef DEBUG_ON fprintf(fp4, "Reading original code...\n"); #endif Validate(); fclose(fp3); if (codesize <= 0xFFFF) /* Hunks in 64K blocks */ { code[10] = 0x0000; /* patch hunk size */ code[11] = (WORD)codesize; } else { code[10] = (WORD)codesize / 0xFFFF; /* patch hunk size */ code[11] = (WORD)codesize % 0xFFFF; } code[16] = code[10]; /* 2nd copy of hunk size */ code[17] = code[11]; #ifdef DEBUG_ON fprintf(fp4, "Calc Hunks [10/16] = 0x%0X, [11/17] = 0x%0X\n", code[10], code[11]); #endif if ( (fp1 = fopen("ram:translator.library","wb")) == NULL) { printf("*** Can't create ram:translator.library\n"); exit(0); } #ifdef DEBUG_ON fprintf(fp4, "Writing code and jumptable...\n"); #endif fwrite((char *)&code,2,0x398,fp1); /* write code: 0x1CC L, 0x398 W, 0x730 (1840)B */ fwrite((char *)&jmptab,2,0x38,fp1); /* write jmptbl: 0x1C L, 0x38 W, 0x70 (112)B */ #ifdef DEBUG_ON fprintf(fp4, "Appending new exceptions table...\n"); #endif AddFile(); /* append new xtable ?? bytes */ #ifdef DEBUG_ON fprintf(fp4, "Writing reloc code...\n"); #endif fwrite((char *)&reloc,2,0x5A,fp1); /* write reloc: 0x2D L, 0x5A W, 0xB4 (180)B */ fclose(fp1); remove("ram:xtable.new"); printf("\n\tThe new translator.library is now in ram:\n"); printf("\t\t\t%d exceptions\n\n",xcnt); if(ExecBase) CloseLibrary((struct Library *)ExecBase); #ifdef DEBUG_ON fprintf(fp4, "Finished\n"); fclose(fp4); #endif exit(0); } int GetLine(char line[], int max) { int i = 0; int c; while( (--max > 0) && ( (c = fgetc(fp1)) != EOF) && (c != '\n') ) line[i++] = c; line[i] = '\0'; return i; } int GetExcept(char line[], int max) { int i = 0; int c; while ( (--max > 0) && ( (c=fgetc(fp3)) != EOF) && (c != '\\') && (c != '`') ) line[i++] = c; if (c == '\\' || c == '`') line[i++] = c; line[i] = '\0'; return i; } int StrIndex(char source[], char searchfor[]) { int i; for (i = 0; source[i] != '\0'; i++) { if ( (source[i] == searchfor[0]) && (source[i+1] == searchfor[1]) ) return i; } return -1; } void AddFile() { int c; #ifdef DEBUG_ON int cnt = 0; #endif if ( (fp2 = fopen("ram:xtable.new","r")) == NULL) { printf("*** Can't reead ram:xtable.new\n"); #ifdef DEBUG_ON fprintf(fp4, "*** Can't read ram:xtable.new\n"); fclose(fp4); #endif fclose(fp1); exit(0); } while ( (c = getc(fp2)) != EOF) { #ifdef DEBUG_ON cnt++; #endif putc(c,fp1); } fclose(fp2); #ifdef DEBUG_ON fprintf(fp4, "Wrote (%d, 0x%0X) chars, DeltaWORD %d, DeltaLONG %d\n", cnt, cnt, cnt%2, cnt%4); #endif return; } void Validate() { int x; fread((char *)&code,2,0x398,fp3); /* read 0x398 words (thru byte 0x72F) */ if ( (code[0x2e] != 0x3337) || /* Check words at byte location 0x5c, 0x5e */ (code[0x2f] != 0x2e31) ) { printf("*** WARNING - not V37.1, unpredictable results could occur!\n"); for(x = 0; x < 2; x++) printf("%04x ", code[0x5c + x]); printf("\n"); } return; } void Extract() { int c; printf("\tExtracting exception table ...\n"); if ( (fp1 = fopen("ram:except.tbl","w")) == NULL) { printf("*** Can't create ram:except.tbl\n"); exit(0); } else if ( (fp3 = fopen("sys:libs/translator.library","rb")) == NULL) { printf("*** Can't open sys:libs/translator.library\n"); fclose(fp1); exit(0); } Validate(); fread((char *)&code, 2, 0x38, fp3); /* read jump table Bytes 0x730 thru 0x7af */ while ( (c = GetExcept(line, 256)) > 0) { fprintf(fp1,"%s",line); if(line[1] != '\\' && line[1] != '`') fprintf(fp1,"\n"); } fclose(fp3); fclose(fp1); printf("\n\tThe exception table is now in ram:except.tbl\n\n"); return; } /* end of TLPatch204.c */