|
|
1.1 ! root 1: From burl!lda Tue Apr 5 12:50:04 1983 ! 2: Date: 5-Apr-83 12:49:57-EST (Tue) ! 3: From: burl!lda ! 4: Subject: base 62 sequencing on USG 5.0 uucp ! 5: Via: cbosgd.UUCP (V3.94 [3/6/82]); 5-Apr-83 12:50:00-EST (Tue) ! 6: To: teklabs!stevenm ! 7: Status: R ! 8: ! 9: This is a listing of the changes made to USG 5.0 uucp to support the ! 10: base 62 numbering scheme submitted to the 'uucp.buglist' by Alan S. Watt, ! 11: ittvax!swatt. Simply changing the gename routine was not enough. ! 12: These changes were made by Curtis Jackson, burl!rcj. ! 13: ! 14: Note: The diff here on 'ogename.c gename.c' is for Alan's gename.c ! 15: ! 16: Larry Auton ! 17: burl!lda ! 18: [Caution - a few weeks later, burl's UUCP started behaving very ! 19: strangely. UUCP would record that it xqt'ed rnews, but rnews was ! 20: never started up. Access time on /usr/bin/rnews was unchanged. ! 21: We don't know if this change had anything to do with it, but if ! 22: you see this symptom, be suspicious of this change.] ! 23: _________________________________________________________________________ ! 24: **** ocntrl.c cntrl.c ! 25: 135c135 ! 26: < jobid = 0; ! 27: --- ! 28: > strcpy(jobid,"0000"); ! 29: ! 30: **** ogename.c gename.c ! 31: 29c29,30 ! 32: < sprintf(file, "%c.%.7s%c%.4s", pre, sys, grade, sqnum); ! 33: --- ! 34: > strcpy(jobid,sqnum); ! 35: > updjb(); sprintf(file, "%c.%.6s%c%.1s%.4s", pre, sys, grade, subjob, jobid); ! 36: ! 37: **** ogtcfile.c gtcfile.c ! 38: 57c57 ! 39: < if(jobid == 0){ ! 40: --- ! 41: > if(!strcmp(jobid,"0000")){ ! 42: 60c60 ! 43: < DEBUG(4,"gtcfile2: sqnm - %d\n",sqnm); ! 44: --- ! 45: > DEBUG(4,"gtcfile2: sqnm - %s\n",sqnm); ! 46: 62,63c62,63 ! 47: < updjb(); sprintf(Cfile, "%c.%.6s%c%.1s%.4d", CMDPRE, sys, Grade, subjob, jobid); ! 48: < DEBUG(4,"gtcfile3: jobid - %d\n",jobid); ! 49: --- ! 50: > updjb(); sprintf(Cfile, "%c.%.6s%c%.1s%.4s", CMDPRE, sys, Grade, subjob, jobid); ! 51: > DEBUG(4,"gtcfile3: jobid - %s\n",jobid); ! 52: 70c70 ! 53: < sprintf(Cfile, "%c.%.6s%c%.1s%.4d", CMDPRE, sys, Grade, p->pre_id, jobid); ! 54: --- ! 55: > sprintf(Cfile, "%c.%.6s%c%.1s%.4s", CMDPRE, sys, Grade, p->pre_id, jobid); ! 56: 81c81 ! 57: < static int jid = 0; ! 58: --- ! 59: > static char jid[5] = "0000"; ! 60: 83,85c83,85 ! 61: < if(jobid != jid){ ! 62: < DEBUG(4,"csys0 - jobid: %d\n",jobid); ! 63: < jid = jobid; ! 64: --- ! 65: > if(strcmp(jobid,jid)){ ! 66: > DEBUG(4,"csys0 - jobid: %s\n",jobid); ! 67: > strcpy(jid,jobid); ! 68: ! 69: **** ouucp.c uucp.c ! 70: 597c597 ! 71: < updjb(); sprintf(dfile, "%c.%.6s%c%.1s%.4d", DATAPRE, s2, Grade, subjob, jobid); ! 72: --- ! 73: > updjb(); sprintf(dfile, "%c.%.6s%c%.1s%.4s", DATAPRE, s2, Grade, subjob, jobid); ! 74: 754c754 ! 75: < fprintf(stdout,"uucp job %d\n", jobid); ! 76: --- ! 77: > fprintf(stdout,"uucp job %s\n", jobid); ! 78: 756c756 ! 79: < updjb(); sprintf(Cfile, "%c.%.6s%c%.1s%.4d", CMDPRE, sys, Grade, subjob, jobid); ! 80: --- ! 81: > updjb(); sprintf(Cfile, "%c.%.6s%c%.1s%.4s", CMDPRE, sys, Grade, subjob, jobid); ! 82: 764c764 ! 83: < sprintf(Cfile, "%c.%.6s%c%.1s%.4d", CMDPRE, sys, Grade, p->pre_id, jobid); ! 84: --- ! 85: > sprintf(Cfile, "%c.%.6s%c%.1s%.4s", CMDPRE, sys, Grade, p->pre_id, jobid); ! 86: 775c775 ! 87: < static int jid = 0; ! 88: --- ! 89: > static char jid[5] = "0000"; ! 90: 777,778c777,778 ! 91: < if(jobid != jid){ ! 92: < jid = jobid; ! 93: --- ! 94: > if(strcmp(jobid,jid)){ ! 95: > strcpy(jid,jobid); ! 96: ! 97: **** ouucp.h uucp.h ! 98: 201c201 ! 99: < extern int jobid; ! 100: --- ! 101: > extern char jobid[5]; ! 102: ! 103: **** ouucpdefs.c uucpdefs.c ! 104: 26c26 ! 105: < int jobid; ! 106: --- ! 107: > char jobid[5]; ! 108: ! 109: **** ouux.c uux.c ! 110: 216c216 ! 111: < updjb(); sprintf(tcfile, "%c.%.6s%c%.1s%.4d", DATAPRE, local, 'T', subjob, jobid); ! 112: --- ! 113: > updjb(); sprintf(tcfile, "%c.%.6s%c%.1s%.4s", DATAPRE, local, 'T', subjob, jobid); ! 114: 303c303 ! 115: < updjb(); sprintf(dfile, "%c.%.6s%c%.1s%.4d", DATAPRE, xsys, 'B', subjob, jobid); ! 116: --- ! 117: > updjb(); sprintf(dfile, "%c.%.6s%c%.1s%.4s", DATAPRE, xsys, 'B', subjob, jobid); ! 118: 345c345 ! 119: < fprintf(stdout,"uucp job %d\n", jobid); ! 120: --- ! 121: > fprintf(stdout,"uucp job %s\n", jobid); ! 122: 505c505 ! 123: < updjb(); sprintf(dfile, "%c.%.6s%c%.1s%.4d", DATAPRE, xsys, 'A', subjob, jobid); ! 124: --- ! 125: > updjb(); sprintf(dfile, "%c.%.6s%c%.1s%.4s", DATAPRE, xsys, 'A', subjob, jobid); ! 126: 570c570 ! 127: < updjb(); sprintf(tfile, "%c.%.6s%c%.1s%.4d", CMDPRE, syspart, 'R', subjob, jobid); ! 128: --- ! 129: > updjb(); sprintf(tfile, "%c.%.6s%c%.1s%.4s", CMDPRE, syspart, 'R', subjob, jobid); ! 130: 644c644 ! 131: < updjb(); sprintf(dfile, "%c.%.6s%c%.1s%.4d", DATAPRE, syspart, 'R', subjob, jobid); ! 132: --- ! 133: > updjb(); sprintf(dfile, "%c.%.6s%c%.1s%.4s", DATAPRE, syspart, 'R', subjob, jobid); ! 134: 655c655 ! 135: < updjb(); sprintf(t2file, "%c.%.6s%c%.1s%.4d", DATAPRE, xsys, 'T', subjob, jobid); ! 136: --- ! 137: > updjb(); sprintf(t2file, "%c.%.6s%c%.1s%.4s", DATAPRE, xsys, 'T', subjob, jobid); ! 138: 767c767 ! 139: < updjb(); sprintf(cfile, "%c.%.6s%c%.1s%.4d", CMDPRE, xsys, 'A', subjob, jobid); ! 140: --- ! 141: > updjb(); sprintf(cfile, "%c.%.6s%c%.1s%.4s", CMDPRE, xsys, 'A', subjob, jobid); ! 142: ! 143:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.