Archive-Date: Fri, 01 Nov 1996 22:47:37 +0100
Sender: owner-emacs-hackers@lp.se
Date: Fri,  1 Nov 1996 22:47:17 MET
Message-ID: <12922.32245.271755.feedmail.pl5.LEVITTE@devil.bofh.se>
From: Richard Levitte - VMS Whacker <levitte@lp.se>
Reply-To: emacs-hackers@LISTS.VMS.GNU.AI.MIT.EDU
To: emacs-hackers@lists.vms.gnu.ai.mit.edu, gnu-announce@lists.vms.gnu.ai.mit.edu, gnu-bugs@lists.vms.gnu.ai.mit.edu, gnu-utils@lists.vms.gnu.ai.mit.edu
Subject: GNU programs and VMS 7.1

Due to a TPU bug, none of the GNU programs that I have ported are possible
to build (at least without much work) on VMS 7.1, since a few files depend
on a working TPU section to work correctly.  The following article has
been posted on the correct newsgroup.  Lets hope Digital does something
about it.


Newsgroups: vmsnet.sdk.openvms.fieldtest
Subject: TPU section problem
From: levitte@lp.se (Richard Levitte - VMS Whacker)
Date: 01 Nov 1996 21:38:58 GMT
Organization: Levitte Programming
Nntp-Posting-Host: www.bofh.se

Facts:
 OS:		OVMS 7.1, EFT1 and EFT2
 Hardware:	DEC 3000 model 500

The following is a typical log that I get when I try to use any TPU
section file that I have compiled:

GEYSIR$ edit/tpu/nosect/nodisp/command=test.tpu/out=sys$disk:[]test.tpu$section
%TPU-S-CREATED, File DISK$DATA:[USER.LEVITTE.EMACS-19_28]TEST.TPU$SECTION;1 created
%TPU-S-SECTSAVED, 1 procedure, 0 variables, 0 keys saved
GEYSIR$ edit/tpu/section=sys$disk:[]test.tpu$section/nodisplay/command=test2.tpu/out=test2.result cookie.txt
%TPU-F-IDMISMATCH, section NOT restored, section file must be rebuilt

The test files I had where the following:

test.tpu:
  ! TEST.TPU
  !
  ! Just a test module to check that TPU can load section files it has
  ! compiled.  There seems to be a bug in VMS 7.1 (both EFT1 and EFT2)

  procedure removespaces(my_string)
          local b,r,s;
          b := create_buffer("temp");
          position (beginning_of (b));
          copy_text(my_string);
          position (beginning_of (b));
          loop
                  r := search_quietly (" ", FORWARD);
                  EXITIF r = 0;
                  erase (r);
                  position (end_of (r));
          endloop;
          s := substr(b,1);
          delete (b);
          return s;
  endprocedure;

  save (get_info (command_line, öutput_file"));
  quit;

test2.tpu:
  foo := removespaces ("foo bar cookie");
  quit;


This error makes it impossible to compile Emacs 19.28 for VMS, since the
build procedure depends on a working TPU section.

--
R Levitte, Levitte Programming; Spannvägen 38, I; S-161 43  Bromma; SWEDEN
                  Tel: +46-8-26 52 47;  No fax right now
  PGP key fingerprint = A6 96 C0 34 3A 96 AA 6C  B0 D5 9A DF D2 E9 9C 65
   Check http://www.lp.se/~levitte for my public key.   bastard@bofh.se