! LSE$VMS_HELP.TPU
!*************************************************************************
!									 *
! © Copyright 2005 Hewlett-Packard Development Company, L.P.		 *
!									 *
! Confidential computer software. Valid license  from  HP  required  for *
! possession, use or copying. Consistent with  FAR  12.211  and  12.212, *
! Commercial Computer Software,  Computer  Software  Documentation,  and *
! Technical  Data  for  Commercial  Items  are  licensed  to  the   U.S. *
! Government under vendor's standard commercial license.		 *
!									 *
!*************************************************************************
!
!++
! FACILITY:
!	DEC Language-Sensitive Editor
!                               
! ABSTRACT:
!       This file contains grammar routines for old-grammar commands to
!       inform the user what the corresponding new-grammar command is.
!
! ENVIRONMENT:
!	Portable/LSE
!
! Author: Diana E. Carroll
!
! CREATION DATE: 17-Apr-1992
!
! MODIFIED BY:
!


procedure lse$vms_lse_module_ident

return "X4.0";

endprocedure;

procedure vmshelp_goto_file(;file_name)

    eve$message("This is a VMS-only command, new commands are: OPEN FILE and NEW FILE");
    lse_open_file(file_name);

endprocedure; ! vmshelp_goto_file

procedure vmshelp_write(;file_name)

    eve$message("This is a VMS-only command, new commands are: SAVE FILE and SAVE AS");
    if file_name = tpu$k_unspecified
    then
	lse_save_file;
    else
	lse_save_as(file_name);
    endif;

endprocedure; ! vmshelp_write

procedure vmshelp_define(;p1, p2, p3)

    eve$message("This is an ambiguous VMS-only command, no command was executed.");
    eve$message("The new command is NEW <language-element>");

endprocedure; ! vmshelp_define

procedure vmshelp_do (;buffer_name)
 
    eve$message("This is an ambiguous VMS-only command, no command was executed.");
    eve$message("The new commands are: EXECUTE BUFFER LSE and EXECUTE BUFFER TPU");

endprocedure; ! vmshelp_do

procedure vmshelp_set_read_only

    eve$message("This is a VMS-only command, new command is: SET BUFFER CLOSE READONLY");
    lse_set_buffer_close("readonly");

endprocedure; ! vmshelp_set_read_only

procedure vmshelp_set_nowrite

    eve$message("This is a VMS-only command, new command is: SET BUFFER CLOSE READONLY");
    lse_set_buffer_close("readonly");

endprocedure; ! vmshelp_set_nowrite

procedure vmshelp_set_write

    eve$message("This is a VMS-only command, new command is: SET BUFFER CLOSE WRITE");
    lse_set_buffer_close("write");

endprocedure; ! vmshelp_write

procedure vmshelp_set_modify

    eve$message("This is a VMS-only command, new command is: SET BUFFER MODIFIABLE ON");
    lse_set_buffer_modifiable("on");

endprocedure; ! vmshelp_set_modify

procedure vmshelp_set_noread

    eve$message("This is a VMS-only command, new command is: SET BUFFER CLOSE WRITE");
    lse_set_buffer_close("write");

endprocedure; !vmshelp_set_noread

procedure vmshelp_set_nomodify

    eve$message("This is a VMS-only command, new command is: SET BUFFER MODIFIABLE OFF");
    lse_set_buffer_modifiable("off");

endprocedure; ! vmshelp_set_nomodify

procedure vmshelp_end_review

    eve$message("This is a VMS-only command, new command is: CLOSE BUFFER $REVIEW");
    lse_close_buffer("$review");

endprocedure; ! vmshelp_end_review

procedure vmshelp_dcl(;command_line)

    eve$message("This is a VMS-only command, new command is: CLI [command-line]");
    lse_cli(command_line);

endprocedure; ! vmshelp_dcl

procedure vmshelp_unexpand

    eve$message("This is a VMS-only command, new command is: DELETE EXPAND");
    lse_delete_expand;

endprocedure; ! vmshelp_unexpand