Path: utzoo!utgpu!water!watmath!clyde!att!osu-cis!tut.cis.ohio-state.edu!bloom-beacon!bu-cs!purdue!decwrl!sun!pitstop!sundc!seismo!uunet!mcvax!unido!sbsvax!greim From: greim@sbsvax.UUCP (Michael Greim) Newsgroups: comp.bugs.misc Subject: a small enhancement to PATCH Keywords: patch 14-character-filenames Message-ID: <521@sbsvax.UUCP> Date: 21 Jun 88 18:11:06 GMT Organization: Universitaet des Saarlandes, Saarbruecken, West Germany Lines: 110 Hello, I have made a change to my copy of PATCH recently. I am posting it as it might be interesting to other people as well. This is *not* a bug fix, but rather an enhancement. Reason: I am running PATCH on a SYS3 based machine. The filesystem allows filenames up to 14 characters long. When I apply patches, the old file will be moved to fileExt, where Ext is either '.orig' or a user supplied extension. If file had a long name some file might get overwritten. PATCH uses a clever routine to produce unique orig-file-names, but it can be confusing to figure out later, which is the orig-file of which file. I added an option '-B prefix' with which the user can specify a prefix to be added to the orig-file. A sideeffect is that you can specify '-B bak01/' and the orig-file will be put in the (existing) directory bak01. Context Diff: apply the following context diff to patch 2.0.1.4, patchlevel 8 *** common.h.old Tue May 31 13:19:52 1988 --- common.h Tue May 31 13:18:06 1988 *************** *** 95,100 **** --- 95,101 ---- EXT char rejname[128]; EXT char *origext INIT(Nullch); + EXT char *origprae INIT(Nullch); EXT char TMPOUTNAME[] INIT("/tmp/patchoXXXXXX"); EXT char TMPINNAME[] INIT("/tmp/patchiXXXXXX"); /* might want /usr/tmp here */ *** patch.c.old Tue May 31 13:20:15 1988 --- patch.c Tue May 31 13:18:09 1988 *************** *** 366,371 **** --- 366,375 ---- origext = savestr(Argv[1]); Argc--,Argv++; break; + case 'B': + origprae = savestr(Argv[1]); + Argc--,Argv++; + break; case 'c': diff_type = CONTEXT_DIFF; break; *** patch.man.old Tue May 31 13:23:24 1988 --- patch.man Mon May 2 11:57:13 1988 *************** *** 213,218 **** --- 213,224 ---- causes the next argument to be interpreted as the backup extension, to be used in place of \*(L".orig\*(R". .TP 5 + .B \-B + causes the next argument to be interpreted as a prefix to the backup file + name. If this argument is specified any argument from -b will be ignored. + This argument is an extension to Larry Wall's patch v2.0.1.4, patchlevel 8, + made by M. Greim (greim@sbsvax.uucp). + .TP 5 .B \-c forces .I patch *** util.c.old Tue May 31 13:20:31 1988 --- util.c Tue May 31 13:18:11 1988 *************** *** 31,38 **** return 0; } ! Strcpy(bakname, to); ! Strcat(bakname, origext?origext:ORIGEXT); if (stat(to, &filestat) >= 0) { /* output file exists */ dev_t to_device = filestat.st_dev; ino_t to_inode = filestat.st_ino; --- 31,43 ---- return 0; } ! if (origprae) { ! Strcpy (bakname, origprae); ! Strcat(bakname, to); ! } else { ! Strcpy(bakname, to); ! Strcat(bakname, origext?origext:ORIGEXT); ! } if (stat(to, &filestat) >= 0) { /* output file exists */ dev_t to_device = filestat.st_dev; ino_t to_inode = filestat.st_ino; Absorb, apply and enjoy, Michael -- +------------------------------------------------------------------------------+ | UUCP: ...!uunet!unido!sbsvax!greim | Michael T. Greim | | or greim@sbsvax.UUCP | Universitaet des Saarlandes | | CSNET: greim%sbsvax.uucp@Germany.CSnet| FB 10 - Informatik (Dept. of CS) | | ARPA: greim%sbsvax.uucp@uunet.UU.NET | Bau 36, Im Stadtwald 15 | | Phone: +49 681 302 2434 | D-6600 Saarbruecken 11, West Germany | +------------------------------------------------------------------------------+ | # include| +------------------------------------------------------------------------------+