Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: utzoo!utgpu!water!watnot!watmath!clyde!cbatt!ucbvax!u3369429@seismo.CSS.GOV@murdu.OZ.AU From: u3369429@seismo.CSS.GOV@murdu.OZ.AU Newsgroups: mod.computers.vax Subject: (modified) source for SWING available Message-ID: <8703020352.3212@murdu.OZ> Date: Mon, 2-Mar-87 14:52:21 EST Article-I.D.: murdu.8703020352.3212 Posted: Mon Mar 2 14:52:21 1987 Date-Received: Mon, 2-Mar-87 21:34:31 EST Sender: daemon@ucbvax.BERKELEY.EDU Reply-To: u3369429@murdu.oz.au (Michael Bednarek) Followup-To: mod.computers.vax Distribution: world Organization: I.A.E.S.R., Melbourne University Lines: 59 Approved: info-vax@sri-kl.arpa I got the source for SWING recently from Portia. (Thank you very much). However, I had some difficulties to compile it. Then I had some difficulties to use it. And then some people complained that SWING could not handle {<>}-enclosed directory names. Well, here is what I've done: (The source itself is not included. It's about 97000 characters and my mailer allows only 25000 (at least that was its error message). If somebody wants it, mail ME (not the list). If there is sufficient (>4) demand, I'll package it nicely and post it.) Features modified/added to SWING: o A few arrays needed to be dimensioned Dimension blabla(0:SOME_PARAMETER) ^^ o A few IF-statements needed to be turned around. E.g.: If (array(i).eq.0 .and. i.lt.Bound_of_i) must be written as If (i.lt.Bound_of_i .and. array(i).eq.0 ) o Added {Q,q,F10} as commands to quit (identical to {E,e,X,x,^Z} o Changed a flag in the HELP routine to look for HLP$LIBRARYx in the process table (no need to put SWING.HLP in the system help file). o Added support for directories a la TOPS-10/20, e.g.: o Rather than keeping the save-file in the top-level current tree, SWING now checks for a logical name SWING_SAVE and writes/reads save files there, the name being toplevel_SWING.SAV, e.g.: when SWING_SAVE = "D_3:[U3369429.SWING_SAVE]" and I swing through U3364711 and save, the file will be D_3:[U3369429.SWING_SAVE]U3364711_SWING.SAV May I suggest some guidelines for Fortran developers? Use "IMPLICIT NONE"! Someone observed that his FORSYSDEF.TLB didn't contain the proper $SMGDEF. That's due to a mockup on DEC's part. It happened at our site, too. I figured out the missing structure, and it compiled. BUT, no keystroke was recognised because they were all interrogated by their symbolic names, set up as PARAMETERs in $SMGDEF (the proper one), which were missing in my version. Compile using "/CHECK"! SWING bombed a number of times due to susbscript out of bounds. I as an author would find this rather embarrassing. This is not meant to put Eric Andresen down. In fact, I believe SWING is a very commendable effort and I use it a lot. Michael Bednarek (u3369429@murdu.oz.au)