Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!seismo!mcvax!cernvax!ethz!fede
From: fede@ethz.UUCP (F. Bonzanigo)
Newsgroups: comp.os.vms
Subject: Re: new SWING source, part 4 of 5 (4.for)
Message-ID: <191@bernina.UUCP>
Date: Mon, 31-Aug-87 12:46:02 EDT
Article-I.D.: bernina.191
Posted: Mon Aug 31 12:46:02 1987
Date-Received: Sat, 5-Sep-87 09:43:18 EDT
References: <8708141558.AA11179@scgvaxd.SCG.HAC.COM>
Reply-To: fede@bernina.UUCP (F. Bonzanigo)
Organization: ETH Zuerich, Switzerland
Lines: 19
Keywords: SWING
Summary: flaw in subroutine print_file

The string "file" in the subroutine PRINT_FILE is too short.
Therefore the command PRINT in the Filer fails if the string containing
the directory path and the file name is too long. I declared

      character ... file*255       (instead of "file*50")

in the subroutine print_file (which is in the file 4.for), as it has been
done in move_file.

Federico Bonzanigo
  Institut fuer Elektronik
  Swiss Federal Institute of Technology (ETH)
  CH-8092 Zurich, Switzerland
EAN:         bonzanigo@nimbus.ethz.ch
EARN/BITNET: BONZANIGO@CZHETH5A
EUNET/UUCP:  ...!mcvax!cernvax!ethz!fede
Phone:   +41 (1) 256-5134      (+ = whatever you have to dial
Telefax: +41 (1) 251-2172       to phone outside your country)
Telex:   81 73 79