Google
 

Trailing-Edge - PDP-10 Archives - bb-r775e-bm_tops20_ks_upd_5 - sources/edt/version.req
There are 22 other files named version.req in the archive. Click here to see a list.
!+
! This file, VERSION.REQ, contains the EDT version number
! and copyright notice.
!-
!+
! Maintenance note: don't increase the length of the version string
! without decreasing the length of the copyright string, since the
! sum of the lengths must not exceed 80.
!-

!+
! Version number string
!-
MACRO EDT_VERSION_STRING = 'V1.0(34)   ' %;
MACRO VERSION_TEXT = UPLIT (%UNQUOTE EDT_VERSION_STRING) %;
LITERAL VERSION_TEXT_LEN = %CHARCOUNT (%UNQUOTE EDT_VERSION_STRING);
UNDECLARE %QUOTE EDT_VERSION_STRING;

!+
! Copyright statement for seven-bit (ASCII) terminals.
!-
MACRO EDT_COPYRIGHT_STRING_7 = ' COPYRIGHT (C) DIGITAL,1985 EQUIPMENT CORPORATION  1983,1985' %;
MACRO COPYRIGHT_TEXT_7 = UPLIT (%UNQUOTE EDT_COPYRIGHT_STRING_7) %;
!		ALL RIGHTS RESERVED.
LITERAL COPYRIGHT_TEXT_7_LEN = %CHARCOUNT (%UNQUOTE EDT_COPYRIGHT_STRING_7);
UNDECLARE %QUOTE EDT_COPYRIGHT_STRING_7;

!+
! Copyright statement for eight-bit (DEC Multinational) terminals.  Hex A9 is the
! code for the international copyright symbol, C in a circle, which is simulated
! by (C) for ASCII terminals.
!-
MACRO COPYRIGHT_TEXT_8 = UPLIT (BYTE ('          COPYRIGHT ',%X'A9', ' DIGITAL EQUIPMENT CORPORATION 1980, 1983')) %;
LITERAL COPYRIGHT_TEXT_8_LEN = %CHARCOUNT ('          COPYRIGHT @ DIGITAL EQUIPMENT CORPORATION 1980, 1983');

!+
! Give an error if the total string is longer than 80 characters, since we expect
! it to fit on one line when SHOW VERSION is issued under EXT.
!-
%IF (((VERSION_TEXT_LEN + COPYRIGHT_TEXT_7_LEN) GTR 80) OR ((VERSION_TEXT_LEN + COPYRIGHT_TEXT_8_LEN) GTR 80)) 
   %THEN
   %ERROR ('Version and copyright statement too long');
%FI
!
!	End of file VERSION.REQ