long@ittvax.ATC.ITT.UUCP (H. Morrow Long [ATG]) (04/23/86)
> Mod.sources: Volume 4, Issue 75 > Submitted by: Jerry Peek (Tek CSC Training) <tektronix!tektools!jerryp> While unshar'ing the travel macros recently posted on mod.sources (Mod.sources: Volume 4, Issue 75 Submitted by: Jerry Peek (Tek CSC Training) <tektronix!tektools!jerryp>) I received a message about a loss of 8 characters from the original tmac.ti. This discrepancy is probably due to news, mail or uucp software at genrad or decvax (or here) gobbling those 8 characters. Anyway, I had to make the following modifications to my tmac.ti to make it work properly: Changed the .tl invocations to separate the arguments properly. Added escapes inside macros to use invocation-time values for distances (when kilometres, etc.). # This is a shell archive. # Remove everything above and including the cut line. # Then run the rest of the file through sh. -----cut here-----cut here-----cut here-----cut here----- #!/bin/sh # shar: Shell Archiver # Run the following text with /bin/sh to create: # tmac.ti.diff # This archive created: Wed Apr 23 10:07:59 1986 echo shar: extracting tmac.ti.diff '(528 characters)' sed 's/^XX//' << \SHAR_EOF > tmac.ti.diff XXRCS file: RCS/tmac.ti,v XXretrieving revision 1.26 XXdiff -r1.26 tmac.ti XX1c1 XX< '\" $Header: tmac.ti,v 1.26 86/02/15 11:20:14 jerryp Exp $ XX--- XX> '\" $Header: tmac.ti,v 1.27 86/04/22 21:30:30 long Exp $ XX83c83 XX< each \\n(DU \*(UL travelled will cost one \\*(CS for gas, oil, etc. XX--- XX> each \\n(DU \\*(UL travelled will cost one \\*(CS for gas, oil, etc. XX112c112 XX< 'tl ITINERARYPage %\\*(TI XX--- XX> 'tl 'ITINERARY'Page %'\\*(TI' XX183c183 XX< .ie \\$4>0 .tl \\$1 \\$2\0\0\\$3\\$4 \*(US XX--- XX> .ie \\$4>0 .tl '\\$1 \\$2\0\0\\$3''\\$4 \\*(US' SHAR_EOF if test 528 -ne "`wc -c tmac.ti.diff`" then echo shar: error transmitting tmac.ti.diff '(should have been 528 characters)' fi # End of shell archive exit 0 -- H. Morrow Long Member Research Staff - Knowledge Based Systems ITT-ATC Advanced Technology Group 1 Research Drive Shelton, CT 06484 Phone #: (203)-929-7341 x. 634 path = {allegra bunker dcdvaxb dcdwest ucbvax!decvax milford mit-eddie psuvax1 qumix sii supai tmmnet yale}!ittatc!long