Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Posting-Version: version B 2.10.2 9/5/84; site mnetor.UUCP Path: utzoo!utcs!mnetor!clewis From: clewis@mnetor.UUCP (Chris Lewis) Newsgroups: net.sources Subject: Software Tools in Pascal (Part 0 of 6) Message-ID: <1209@mnetor.UUCP> Date: Mon, 8-Jul-85 10:18:28 EDT Article-I.D.: mnetor.1209 Posted: Mon Jul 8 10:18:28 1985 Date-Received: Mon, 8-Jul-85 11:26:21 EDT Organization: Computer X (CANADA) Ltd., Toronto, Ontario, Canada Lines: 88 Finally, here is the distribution of Software Tools in Pascal. Sorry for the delay, but I got bogged down in "real work", and I had to get permission from Brian Kernighan to post this stuff. There are 7 items in total, item 0 is this posting which includes a README file so that you know what you are getting. I will be posting two of these per day until they are done. #!/bin/sh echo 'Start of pack.out, part 01 of 01:' echo 'x - ../../README' sed 's/^X//' > ../../README << '/' X A version of Kernighan and Plauger's X Software Tools in Pascal (SWTiP) X X Chris Lewis, Copyright (c) June 1985 X {whereever}!utzoo!mnetor!clewis X X All of the software in this distribution is copyright, see X the notices on the individual files to determine the ownership. X X Right is hereby granted to freely distribute or duplicate this X software, providing distribution or duplication is not for profit X or other commerical gain and that this copyright notice remains X intact. X XTools in this distribution: X XDefine define handler XDeskCalculator desk calculator XEcho XExpand "expand" input "picture" XGrep XKwic kwic index stuff XMacro macro and define expansion XRot "rotate" a picture XScreen prints table of characters XSort generic sort merge XSortDriv " " " XSW editor Xswch sort of a "sed" XSWTr more or less UNIX "tr" XUnique uniq XWc word count X Xfontinit.pascal contains a font definition - you should be able Xto figure out how to build a driver for it. It is in two pieces, Xfontinit.A and fontinit.B (so that the batch is smaller than 50k). XJust catenate them together. X XSome of these are from SWTiP, some I have written myself - these are Xnoted in the headers. X XUsing this software (details for Pascal/VS on VM/CMS): X 1) take the swtools.copy file: X convert it to Fixed 80 X add line numbers in column 73-80 X MACLIB it to SWTOOLS MACLIB X swtools.copy is the complete set of include files required X for building the tools. (from each *COPY to the next) X 2) Compile all of the source that are "segment"s, and X put the objects in a TXTLIB. X These are library routines used by various programs. X 3) Compile all of the source that are "program"s, and X link them with TXTLIB. X XMVS users: you will have to change some of the I/O routines (the Xones copyrighted by me) to use appropriate MVS functions. X XNon-Pascal/VS: you will have to convert the flavour of pascal to Xwhat you have: X Pascal/VS supports separate compilations X Pascal/VS supports true strings (which I don't use much) X Pascal/VS supports includes X Pascal/VS supports fairly complicated initialized global X data types, including binary constants. X You may have to throw out all of the I/O, some of the X include files, and include all of the routines for a given X program together. Yech! Good Luck! X XThis software is unsupported, however, upon request I may be able Xto provide some hints. / echo 'Part 01 of pack.out complete.' exit -- Chris Lewis, UUCP: {allegra, linus, ihnp4}!utzoo!mnetor!clewis BELL: (416)-475-8980 ext. 321