! LSE$VMS_CMS.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:
!	VAX Language-Sensitive Editor
!                               
! ABSTRACT:
!	This file contains the grammar syntax for the old-style integration
!   with CMS.
!
! ENVIRONMENT:
!	Portable/LSE
!
! Author: Sharon H. Eikenberry
!
! CREATION DATE: 21-February-1992
!
! MODIFIED BY:
!
!   X4.0-1  SHE	28-Apr-1992	Made parameters optional
!   X4.0-2  SHE 29-Apr-1992	Handle unspecified parameters
!   X4.0-3  SHE 10-Jun-1992	Added error traps, enable/disable_vmscms_bindings
!


procedure lse$vms_cms_module_ident

return "4.6-3";

endprocedure;


procedure vmscms_cms (;cms_command)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to CMS commands.
!
! DESCRIPTION:
!    <X>(CMS)
!    For detailed information see CMS help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	cms_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmscms_cms");
    ENDON_ERROR;

    if cms_command = tpu$k_unspecified 
    then
	cms_str := '';
    else
	cms_str := cms_command;
    endif;

    return lse$do_command ('CMS ' + str(cms_str));

endprocedure;


procedure vmscms_replace (;cms_element)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the CMS command REPLACE.
!
! DESCRIPTION:
!    <X>(REPLACE)
!    For detailed information see CMS help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	cms_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmscms_replace");
    ENDON_ERROR;

    if cms_element = tpu$k_unspecified 
    then
	cms_str := '';
    else
	cms_str := cms_element;
    endif;

    return lse$do_command ('REPLACE ' + str(cms_str));

endprocedure;


procedure vmscms_reserve (;cms_element)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the CMS command RESERVE.
!
! DESCRIPTION:
!    <X>(RESERVE)
!    For detailed information see CMS help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	cms_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmscms_reserve");
    ENDON_ERROR;

    if cms_element = tpu$k_unspecified 
    then
	cms_str := '';
    else
	cms_str := cms_element;
    endif;

    return lse$do_command ('RESERVE ' + str(cms_str));

endprocedure;

procedure vmscms_set_cms (;cms_attributes)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the LSE VMSLSE command language command SET CMS.
!
! DESCRIPTION:
!    <X>(SET CMS)
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	cms_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmscms_set_cms");
    ENDON_ERROR;

    if cms_attributes = tpu$k_unspecified 
    then
	cms_str := '';
    else
	cms_str := cms_attributes;
    endif;

    return lse$do_command ('SET CMS ' + str(cms_str));

endprocedure;


procedure vmscms_show_cms 
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the LSE VMSLSE command language command SHOW CMS.
!
! DESCRIPTION:
!    <X>(SHOW CMS)
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmscms_show_cms");
    ENDON_ERROR;

    return lse$do_command ('SHOW CMS');

endprocedure;


procedure vmscms_unreserve (;cms_element)
!
!doc_begin
!
! ONE LINE DEFINITION:
!    This command provides access from the LSE portable command
!    language to the CMS command UNRESERVE.
!
! DESCRIPTION:
!    <X>(UNRESERVE)
!    For detailed information see CMS help.
!
! RELATED COMMANDS:
!    ENABLE VMS INTEGRATION
!    DISABLE VMS INTEGRATION
!
!doc_end
!
    local
	cms_str;

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmscms_unreserve");
    ENDON_ERROR;

    if cms_element = tpu$k_unspecified 
    then
	cms_str := '';
    else
	cms_str := cms_element;
    endif;

    return lse$do_command ('UNRESERVE ' + str(cms_str));

endprocedure;


procedure vmscms_enable_vmscms_bindings

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmscms_enable_vmscms_bindings");
    ENDON_ERROR;

    if lse$$x_vmscms_bindings_enabled = tpu$k_unspecified
    then
	lse$$x_vmscms_bindings_enabled := false;
    endif;

    if lse$$x_vmscms_bindings_enabled 
    then
	return;
    else
	lse$$x_vmscms_bindings_enabled := true;
    endif;

    lse$$save_menu_label ("Reserve");
    lse$$save_menu_label ("Replace");
    lse$$save_menu_label ("Unreserve");
    lse$$save_menu_label ("CMS ...");

    lse$modify_pulldown_label ("Reserve", "VMSCMS_RESERVE");
    lse$modify_pulldown_label ("Replace", "VMSCMS_REPLACE");
    lse$modify_pulldown_label ("Unreserve", "VMSCMS_UNRESERVE");
    lse$modify_pulldown_label ("CMS ...", "VMSCMS_SHOW_CMS");

endprocedure;

procedure vmscms_disable_vmscms_bindings

    ON_ERROR
	[OTHERWISE]:
	    lse$$unexpected_error( ERROR, ERROR_TEXT, ERROR_LINE, "vmscms_disable_vmscms_bindings");
    ENDON_ERROR;

    if lse$$x_vmscms_bindings_enabled = tpu$k_unspecified
    then
	return;
    endif;

    if not lse$$x_vmscms_bindings_enabled 
    then
	return;
    endif;

    lse$$x_vmscms_bindings_enabled := false;

    lse$$restore_menu_label ("Reserve");
    lse$$restore_menu_label ("Replace");
    lse$$restore_menu_label ("Unreserve");
    lse$$restore_menu_label ("CMS ...");

endprocedure;


variable
    lse$$x_vmscms_bindings_enabled;