Google
 

Trailing-Edge - PDP-10 Archives - TOPS-20_V6.1_DECnetSrc_7-23-85 - mcb/utilities/eddat.bli
There are 2 other files named eddat.bli in the archive. Click here to see a list.
MODULE EDDAT (					!Date and time conversion
		IDENT = '001000',
		LANGUAGE (BLISS16, BLISS36) %BLISS36 (, ENTRY ($DAT, $TIM))
		) =
BEGIN
!
!                    COPYRIGHT (c) 1980, 1981, 1982
!                    DIGITAL EQUIPMENT CORPORATION
!                        Maynard, Massachusetts
!
!     This software is furnished under a license and may  be  used
!     and copied only in accordance with the terms of such license
!     and with the inclusion of the above copyright notice.   This
!     software  or any other copies thereof may not be provided or
!     otherwise made available to any other person.  No  title  to
!     and ownership of the software is hereby transferred.
!
!     The information  in  this  software  is  subject  to  change
!     without  notice  and should not be construed as a commitment
!     by DIGITAL EQUIPMENT CORPORATION.
!
!     DIGITAL assumes no responsibility for the use or reliability
!     of  its  software  on  equipment  which  is  not supplied by
!     DIGITAL.
!

!++
! FACILITY: SYSTEM LIBRARY
!
! ABSTRACT:
!
!	This module contains conversion routines to take RSX11M - form
!	time and date blocks and output ASCII representations.
!
! ENVIRONMENT: ANY
!
! AUTHOR: ALAN D. PECKHAM	, CREATION DATE: 8-SEP-78
!
! MODIFIED BY:
!
! 	, : VERSION
! 01	-
!--

!<BLF/PAGE>
!
! TABLE OF CONTENTS:
!

FORWARD ROUTINE
    $DAT,					!Convert date into ASCII.
    $TIM;					!Convert time into ASCII.

!
! INCLUDE FILES:
!
!
! MACROS:
!
!
! EQUATED SYMBOLS:
!
!
! OWN STORAGE:
!
!
! EXTERNAL REFERENCES:
!

EXTERNAL ROUTINE
    $CBDAT;					!Convert binary to decimal.
GLOBAL ROUTINE $DAT (BUF_PTR_ADR, DATE_BLOCK) =

!++
! FUNCTIONAL DESCRIPTION:
!
!
! FORMAL PARAMETERS:
!
!	..BUF_PTR_ADR				!Pointer to buffer to receive text.
!	.DATE_BLOCK[0]				!Year
!	.DATE_BLOCK[1]				!Month (1-12)
!	.DATE_BLOCK[2]				!Day (1-31)
!
! IMPLICIT INPUTS:
!
!	NONE
!
! IMPLICIT OUTPUTS:
!
!	The buffer pointer ..BUF_PTR_ADR is updated to point past
!	the information inserted.
!
! ROUTINE VALUE:
!
!	A count of the number of characters inserted is returned.
!
! SIDE EFFECTS:
!
!	NONE
!
!--

    BEGIN

    MAP
	DATE_BLOCK : REF VECTOR [3];

    LOCAL
	BUF_PTR_INI;

    BIND
	MONTH = UPLIT (CH$PTR (UPLIT ('JAN')), CH$PTR (UPLIT ('FEB')),
		CH$PTR(UPLIT('MAR')),CH$PTR(UPLIT('APR')),CH$PTR(UPLIT('MAY')),
		CH$PTR(UPLIT('JUN')),CH$PTR(UPLIT('JUL')),CH$PTR(UPLIT('AUG')),
		CH$PTR(UPLIT('SEP')),CH$PTR(UPLIT('OCT')),CH$PTR(UPLIT('NOV')),
		CH$PTR(UPLIT('DEC')) ) : VECTOR [12];

    BUF_PTR_INI = ..BUF_PTR_ADR;
    $CBDAT (.BUF_PTR_ADR, .DATE_BLOCK [2], 0);
    CH$WCHAR_A (%C'-', .BUF_PTR_ADR);
    .BUF_PTR_ADR = CH$MOVE (3, .MONTH [.DATE_BLOCK [1] - 1], ..BUF_PTR_ADR);
    CH$WCHAR_A (%C'-', .BUF_PTR_ADR);
    $CBDAT (.BUF_PTR_ADR, .DATE_BLOCK [0], 0);
    CH$DIFF (..BUF_PTR_ADR, .BUF_PTR_INI)
    END;					!End of $DAT
GLOBAL ROUTINE $TIM (BUF_PTR_ADR, TIME_BLOCK, COUNT) =

!++
! FUNCTIONAL DESCRIPTION:
!
!
! FORMAL PARAMETERS:
!
!	..BUF_PTR_ADR				!Pointer to buffer to receive text.
!	.TIME_BLOCK[0]				!Hour in day
!	.TIME_BLOCK[1]				!Minute in hour
!	.TIME_BLOCK[2]				!Second in minute
!	.TIME_BLOCK[3]				!Tick in second
!	.TIME_BLOCK[4]				!Number of ticks in a second
!	.COUNT					!Indicates the format to use:
!						!0 or 1	- HH
!						!   2	- HH:MM
!						!   3	- HH:MM:SS
!						!4 or 5	- HH:MM:SS.S
!
! IMPLICIT INPUTS:
!
!	NONE
!
! IMPLICIT OUTPUTS:
!
!	The buffer pointer ..BUF_PTR_ADR is updated to point past
!	the information inserted.
!
! ROUTINE VALUE:
!
!	A count of the number of characters inserted is returned.
!
! SIDE EFFECTS:
!
!	NONE
!
!--

    BEGIN

    MAP
	TIME_BLOCK : REF VECTOR [5];

    LOCAL
	BUF_PTR_INI;

    BUF_PTR_INI = ...BUF_PTR_ADR;

    SELECT .COUNT OF
	SET

	[0 TO 5] :
	    $CBDAT (.BUF_PTR_ADR, .TIME_BLOCK [0], 1);

	[2 TO 5] :
	    BEGIN
	    CH$WCHAR_A (%C':', .BUF_PTR_ADR);
	    $CBDAT (.BUF_PTR_ADR, .TIME_BLOCK [1], 1)
	    END;

	[3 TO 5] :
	    BEGIN
	    CH$WCHAR_A (%C':', .BUF_PTR_ADR);
	    $CBDAT (.BUF_PTR_ADR, .TIME_BLOCK [2], 1)
	    END;

	[4 TO 5] :
	    BEGIN
	    CH$WCHAR_A (%C'.', .BUF_PTR_ADR);
	    CH$WCHAR_A (%C'0', .BUF_PTR_ADR)
	    END;
	TES;

    CH$DIFF (..BUF_PTR_ADR, .BUF_PTR_INI)
    END;					!End of $TIM

END						!End of module

ELUDOM