🚀 go-pugleaf

In a message of 10 Apr 92 14:09:50 +1200, received on Fri, 10 Apr 92 09:19 -0300
cctr127@csc.canterbury.ac.nz wrote
to: Text Processing Utility (TPU) Language Discussion List <INFO-TPU@SHSU.edu>

>       can a kind soul please show me how to get the following initialisation
>file into TPU format?
>
>SET RIGHT 72
>SPLIT WINDOW
>BUFF "MAIL HELP COMMANDS"
>INC FILENAME.HELP
>SET BUFF READ_ONLY
>SHRINK 5
>NEXT WINDOW

I was sure I e-mailed this AM, but I can't find it in my mail...
must have been interrupted and never finished, but excuse me if I'm repeating
myself...

The included code does what you want and it should be trivial to use EVE$BUILD
to make a changes-only section file (small) and bypass reading in a TPU command
file at startup.

Not that to display help, you should be using either HELP_TEXT or the
documented method of merging help libraries into EVE.  I posted no less than
a month describing how to do this.  I'll be including an easy way to do this
for help on user extended commands in my eventual net release of PeVe.
 _____________________________________________________________________________
 Peter Galbraith       [Phone: (902) 494-7007] |  GALBRTH@AC.DAL.CA (InterNet)
 Dept. of Oceanography,  Dalhousie University  |  GALBRTH@DALAC     (BitNet)
 Halifax, Nova Scotia, Canada, B3H 4J1         |  rhogee@dalcs      (UUCP)

__cut_here___________________________________________________________________
! Uncomment this procedure if you build a section file with EVE$BUILD
!procedure myhelp_module_init
!  display_my_help;
!endprocedure;

procedure display_my_help
  eve_split_window;
  peve$myhelp_buffer :=
    create_buffer ("MAIL HELP COMMANDS","FILENAME.HELP",eve$default_buffer);
  map(current_window,peve$myhelp_buffer);
  set(modifiable,peve$myhelp_buffer,off);
  set(no_write,peve$myhelp_buffer);
  set(eob_text,peve$myhelp_buffer,"[End of HELP buffer]");
  set(margins,peve$myhelp_buffer,1,72);
  eve_shrink_window("5");
  eve_next_window;
  eve$update_status_lines;
endprocedure;

!! execute the following at startup or build-time (depending):

! BUILD TIME CODE -- Uncomment if you use EVE$BUILD
!EVE$$X_SAVE_CHANGES := 1; !create a changes only section file
!EVE$$X_SAVE_NAMES := -1;  !Removes only the debug names

! Startup TPU command code:
display_my_help; !Uncomment this line to use with TPU command file, not section
__cut_here___________________________________________________________________