!++
! FILENAME: TPU_DEVELOP.TPU
! FUNCTION: This file contains procedures which facilitate the writing of
!           TPU procedures.
! AUTHOR:   Steven K. Shapiro, (C) Copyright SKS Enterprises, Austin TX. 
!                                  All Rights Reserved.
!
!           The format, structure and contents of this file are the sole
!           property  of Steven K. Shapiro  and are  copyrighted to  SKS
!           Enterprises, Austin Texas.
!
!           The information may be freely distributed, used and modified
!           provided  that the  information in this  header block is not
!           changed, altered, disturbed or modified in any way.
!
! DATE:     26-AUG-1987 Original.
! HISTORY:  current.
! CONTENTS:
!           eve_ccb
!           eve_csr
!           eve_ecb
!           eve_esr
!
!23456789A123456789B123456789C123456789D123456789E123456789F123456789G123456789H
!--
!*----------------------------------------------------------------------------*!

procedure tpu_develop_module_ident 

  local file_date,
        module_vers;

  file_date := "-<( 15-NOV-1988 14:25:46.34 )>-";
  module_vers := substr(file_date,5,2) +
                 substr(file_date,8,3) +
                 substr(file_date,14,2) +
                 substr(file_date,17,5) ;

  return module_vers;

endprocedure;

!*----------------------------------------------------------------------------*!

procedure eve_ccb
!
! compile current buffer.

    compile(current_buffer);

endprocedure;

!*----------------------------------------------------------------------------*!

procedure eve_csr
!
! compile select range.

    compile(select_range);
    eve$x_select_position := 0;

endprocedure;

!*----------------------------------------------------------------------------*!

procedure eve_ecb
!
! Execute the tpu commands in current buffer.

    execute(current_buffer);

endprocedure;

!*----------------------------------------------------------------------------*!

procedure eve_esr
!
! Execute the tpu command in the select range.

    execute(select_range);
    eve$x_select_position := 0;

endprocedure;