!*************************************************************************
!									 *
! © 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:
!   eXtended LSE (XLSE)
! 
! Abstract:
!   Defines XLSE line-mode commands.
! 
! Author:
!   W. Ward Clark, CASEE Group
! 
! Creation Date: 18-Sep-88
! 
!--

PROCEDURE xlse__define_commands
!+
!   Define XLSE line-mode commands.
!-
LOCAL cmd;
cmd := "DEFINE COMMAND ";
!
LSE$DO_COMMAND( cmd + 'bars       "CALL xlse_change_bars"' );
LSE$DO_COMMAND( cmd + 'compileall "CALL xlse_compile_modified_buffers"' );
LSE$DO_COMMAND( cmd + 'quote      "CALL xlse_quote_lse_body"' );
LSE$DO_COMMAND( cmd + 'symbol     "CALL xlse_show_symbol"' );
LSE$DO_COMMAND( cmd + 'writeall   "CALL xlse_write_modified_buffers"' );
LSE$DO_COMMAND( cmd + 'detab      "DO/TPU ""xlse_tabs_to_spaces(ON)"""' );
LSE$DO_COMMAND( cmd + 'pretab     "DO/TPU ""xlse_spaces_to_tabs(OFF,ON)"""' );
LSE$DO_COMMAND( cmd + 'retab      "DO/TPU ""xlse_spaces_to_tabs(ON,ON)"""' );

LSE$DO_COMMAND( cmd + 'diff       "CALL rnf_do_diff"' );
LSE$DO_COMMAND( cmd + 'ediff	  "CALL rnf_do_diff_end"' );
LSE$DO_COMMAND( cmd + 'end_diff   "CALL rnf_do_diff_end"' );
ENDPROCEDURE