From 83d9d261a7e0085987f5e3ec440e7b8eaf77cf60 Mon Sep 17 00:00:00 2001
From: Kevin Lyda <kevin@lyda.ie>
Date: Sun, 7 Nov 2021 01:24:31 +0000
Subject: [PATCH] Comment out vax specific include files.
---
src/Makefile | 4 +++-
src/bulletin.for | 16 ++++++++--------
src/bulletin0.for | 4 ++--
src/bulletin1.for | 4 ++--
src/bulletin2.for | 4 ++--
src/bulletin3.for | 22 +++++++++++-----------
src/bulletin4.for | 20 ++++++++++----------
src/bulletin5.for | 24 ++++++++++++------------
src/bulletin6.for | 16 ++++++++--------
src/bulletin7.for | 16 ++++++++--------
src/bulletin8.for | 24 ++++++++++++------------
src/bulletin9.for | 14 +++++++-------
12 files changed, 85 insertions(+), 83 deletions(-)
diff --git a/src/Makefile b/src/Makefile
index 5368da3..36bd174 100644
--- a/src/Makefile
+++ b/src/Makefile
@@ -1,2 +1,4 @@
+GFORTRAN=gfortran
+
bulletin: bulletin0.for bulletin1.for bulletin2.for bulletin3.for bulletin4.for bulletin5.for bulletin6.for bulletin7.for bulletin8.for bulletin9.for bulletin.for
- gfortran -ffixed-line-length-none -fdefault-real-8 -std=legacy -fd-lines-as-comments $<
+ $(GFORTRAN) -ffixed-line-length-none -fdefault-real-8 -std=legacy -fd-lines-as-comments $<
diff --git a/src/bulletin.for b/src/bulletin.for
index 6bc56f6..dfef72b 100644
--- a/src/bulletin.for
+++ b/src/bulletin.for
@@ -15,7 +15,7 @@ C
INCLUDE 'bulluser.inc
- INCLUDE '($RMSDEF)'
+C INCLUDE '($RMSDEF)'
COMMON /BULLPAR/ BULL_PARAMETER,LEN_P
CHARACTER*64 BULL_PARAMETER
@@ -1271,9 +1271,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($PSLDEF)'
+C INCLUDE '($PSLDEF)'
- INCLUDE '($LNMDEF)'
+C INCLUDE '($LNMDEF)'
CHARACTER*(*) INPUT,OUTPUT
@@ -1305,7 +1305,7 @@ C
COMMON /REALPROC/ REALPROCPRIV(2)
- INCLUDE '($JPIDEF)'
+C INCLUDE '($JPIDEF)'
CALL INIT_ITMLST ! Initialize item list
CALL ADD_2_ITMLST(8,JPI$_PROCPRIV,%LOC(PROCPRIV))
@@ -1328,7 +1328,7 @@ C
COMMON /PRIVILEGES/ PROCPRIV(2),NEEDPRIV(2)
DATA NEEDPRIV/0,0/
- INCLUDE '($PRVDEF)'
+C INCLUDE '($PRVDEF)'
INCLUDE 'bulluser.inc
@@ -1357,7 +1357,7 @@ C
LOGICAL FUNCTION OPER_PRIV
IMPLICIT INTEGER (A-Z)
COMMON /PRIVILEGES/ PROCPRIV(2),NEEDPRIV(2)
- INCLUDE '($PRVDEF)'
+C INCLUDE '($PRVDEF)'
OPER_PRIV = BTEST(PROCPRIV(1),PRV$V_OPER)
RETURN
END
@@ -1376,11 +1376,11 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($PRVDEF)'
+C INCLUDE '($PRVDEF)'
CHARACTER*(*) USERNAME ! Limit is 12 characters
- INCLUDE '($JPIDEF)'
+C INCLUDE '($JPIDEF)'
CALL INIT_ITMLST ! Initialize item list
CALL ADD_2_ITMLST(LEN(USERNAME),JPI$_USERNAME,%LOC(USERNAME))
diff --git a/src/bulletin0.for b/src/bulletin0.for
index 1dba5c5..9f53380 100644
--- a/src/bulletin0.for
+++ b/src/bulletin0.for
@@ -10,7 +10,7 @@ C
INCLUDE 'bulldir.inc
- INCLUDE '($BRKDEF)'
+C INCLUDE '($BRKDEF)'
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -1430,7 +1430,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($SYIDEF)'
+C INCLUDE '($SYIDEF)'
CHARACTER*(*) NODE_NAME
diff --git a/src/bulletin1.for b/src/bulletin1.for
index d3c1509..daa329c 100644
--- a/src/bulletin1.for
+++ b/src/bulletin1.for
@@ -175,7 +175,7 @@ C
INCLUDE 'bullfiles.inc
- INCLUDE '($SSDEF)'
+C INCLUDE '($SSDEF)'
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -675,7 +675,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($SJCDEF)'
+C INCLUDE '($SJCDEF)'
INCLUDE 'bulldir.inc
diff --git a/src/bulletin2.for b/src/bulletin2.for
index b2cc0d2..0633575 100644
--- a/src/bulletin2.for
+++ b/src/bulletin2.for
@@ -18,7 +18,7 @@ C
INCLUDE 'bullfiles.inc
- INCLUDE '($UAIDEF)'
+C INCLUDE '($UAIDEF)'
EXTERNAL CLI$_ABSENT
@@ -325,7 +325,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($SYIDEF)'
+C INCLUDE '($SYIDEF)'
CALL INIT_ITMLST ! Initialize item list
! Now add items to list
diff --git a/src/bulletin3.for b/src/bulletin3.for
index 4276137..9f08c9b 100644
--- a/src/bulletin3.for
+++ b/src/bulletin3.for
@@ -170,7 +170,7 @@ C
INCLUDE 'bulldir.inc
- INCLUDE '($PRVDEF)'
+C INCLUDE '($PRVDEF)'
CHARACTER TODAY*23
@@ -457,7 +457,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($SSDEF)'
+C INCLUDE '($SSDEF)'
COMMON /COMMAND_LINE/ INCMD
CHARACTER*132 INCMD
@@ -512,13 +512,13 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($PRCDEF)'
+C INCLUDE '($PRCDEF)'
- INCLUDE '($JPIDEF)'
+C INCLUDE '($JPIDEF)'
- INCLUDE '($SSDEF)'
+C INCLUDE '($SSDEF)'
- INCLUDE '($PRVDEF)'
+C INCLUDE '($PRVDEF)'
INCLUDE 'bullfiles.inc
@@ -1060,7 +1060,7 @@ C
INCLUDE 'bullfolder.inc
- INCLUDE '($RMSDEF)'
+C INCLUDE '($RMSDEF)'
COMMON /KNOWN_FOLDERS/ FOLDER_Q1,NUM_FOLDERS
DATA FOLDER_Q1/0/
@@ -1368,7 +1368,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($PRCDEF)'
+C INCLUDE '($PRCDEF)'
INCLUDE 'bullfiles.inc
@@ -1421,7 +1421,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($JPIDEF)'
+C INCLUDE '($JPIDEF)'
CALL INIT_ITMLST ! Initialize item list
! Now add items to list
@@ -1445,7 +1445,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($SYIDEF)'
+C INCLUDE '($SYIDEF)'
INTEGER UPTIME(2)
CHARACTER*(*) UPTIME_TIME,UPTIME_DATE
@@ -1544,7 +1544,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($JPIDEF)'
+C INCLUDE '($JPIDEF)'
CHARACTER*(*) IMAGNAME
diff --git a/src/bulletin4.for b/src/bulletin4.for
index 8ecd913..a1fd2ea 100644
--- a/src/bulletin4.for
+++ b/src/bulletin4.for
@@ -539,7 +539,7 @@ C
INCLUDE 'bulldir.inc
- INCLUDE '($RMSDEF)'
+C INCLUDE '($RMSDEF)'
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -960,7 +960,7 @@ C
COMMON /READIT/ READIT
- INCLUDE '($TRMDEF)'
+C INCLUDE '($TRMDEF)'
INTEGER TERMSET(2)
@@ -1071,7 +1071,7 @@ C PAGE_WIDTH - Page size of the terminal.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($DVIDEF)'
+C INCLUDE '($DVIDEF)'
LOGICAL*1 DEVDEPEND(4)
@@ -1114,7 +1114,7 @@ C
LOGICAL*1 IOSB(8)
- INCLUDE '($TTDEF)'
+C INCLUDE '($TTDEF)'
IER = SYS$QIOW(,%VAL(TERM_CHAN),IO$_SENSEMODE,IOSB,,,
& CHAR_BUF,%VAL(8),,,,)
@@ -1145,9 +1145,9 @@ C
INCLUDE 'bullfiles.inc
- INCLUDE '($PRVDEF)'
+C INCLUDE '($PRVDEF)'
- INCLUDE '($SSDEF)'
+C INCLUDE '($SSDEF)'
COMMON /PRVDEF/ PRIVS
CHARACTER*8 PRIVS(0:38)
@@ -1201,7 +1201,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($PRVDEF)'
+C INCLUDE '($PRVDEF)'
INCLUDE 'bulluser.inc
@@ -1325,9 +1325,9 @@ C
CHARACTER ACLENT*255,ID*(*),ACCESS*(*)
- INCLUDE '($ACLDEF)'
+C INCLUDE '($ACLDEF)'
- INCLUDE '($SSDEF)'
+C INCLUDE '($SSDEF)'
IER = SYS$PARSE_ACL('(IDENTIFIER='//ID//',ACCESS='
& //ACCESS//')',ACLENT,,)
@@ -1397,7 +1397,7 @@ C
CHARACTER ACLENT*255,ID*(*),ACCESS*(*)
- INCLUDE '($ACLDEF)'
+C INCLUDE '($ACLDEF)'
IF (ID.NE.' ') THEN
IER = SYS$PARSE_ACL('(IDENTIFIER='//ID//',ACCESS='
diff --git a/src/bulletin5.for b/src/bulletin5.for
index ad737d6..bec852f 100644
--- a/src/bulletin5.for
+++ b/src/bulletin5.for
@@ -254,8 +254,8 @@ C
INCLUDE 'bulluser.inc
- INCLUDE '($RMSDEF)'
- INCLUDE '($SSDEF)'
+C INCLUDE '($RMSDEF)'
+C INCLUDE '($SSDEF)'
COMMON /POINT/ BULL_POINT
@@ -713,9 +713,9 @@ C
COMMON /COMMAND_LINE/ INCMD
CHARACTER*132 INCMD
- INCLUDE '($SSDEF)'
+C INCLUDE '($SSDEF)'
- INCLUDE '($RMSDEF)'
+C INCLUDE '($RMSDEF)'
EXTERNAL CLI$_ABSENT
@@ -1011,7 +1011,7 @@ C
INCLUDE 'bullfiles.inc
- INCLUDE '($SSDEF)'
+C INCLUDE '($SSDEF)'
LOGICAL ACCESS,ALL,READONLY
@@ -1199,8 +1199,8 @@ C
CHARACTER*(*) FILENAME
- INCLUDE '($ACLDEF)'
- INCLUDE '($SSDEF)'
+C INCLUDE '($ACLDEF)'
+C INCLUDE '($SSDEF)'
CHARACTER*255 ACLENT,ACLSTR
@@ -1238,9 +1238,9 @@ C
CHARACTER FILENAME*(*),USERNAME*(*),ACE*255,OUTPUT*80
- INCLUDE '($ACLDEF)'
- INCLUDE '($CHPDEF)'
- INCLUDE '($ARMDEF)'
+C INCLUDE '($ACLDEF)'
+C INCLUDE '($CHPDEF)'
+C INCLUDE '($ARMDEF)'
CALL INIT_ITMLST ! Initialize item list
CALL ADD_2_ITMLST(4,CHP$_FLAGS,%LOC(FLAGS))
@@ -1296,7 +1296,7 @@ C FILENAME - Name of file to check.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($ACLDEF)'
+C INCLUDE '($ACLDEF)'
CHARACTER*(*) FILENAME
@@ -1570,7 +1570,7 @@ C
CHARACTER USERNAME*(*),ACCOUNT*(*)
- INCLUDE '($UAIDEF)'
+C INCLUDE '($UAIDEF)'
INTEGER*2 UIC(2)
diff --git a/src/bulletin6.for b/src/bulletin6.for
index d99d7e0..096d876 100644
--- a/src/bulletin6.for
+++ b/src/bulletin6.for
@@ -80,9 +80,9 @@ C
INCLUDE 'bulldir.inc
- INCLUDE '($FORIOSDEF)'
+C INCLUDE '($FORIOSDEF)'
- INCLUDE '($PRVDEF)'
+C INCLUDE '($PRVDEF)'
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -299,7 +299,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($FORIOSDEF)'
+C INCLUDE '($FORIOSDEF)'
INCLUDE 'bullfiles.inc
@@ -789,9 +789,9 @@ C
INCLUDE 'bullfiles.inc
- INCLUDE '($SSDEF)'
+C INCLUDE '($SSDEF)'
- INCLUDE '($FORIOSDEF)'
+C INCLUDE '($FORIOSDEF)'
CHARACTER*80 NEW_FILE
@@ -1384,7 +1384,7 @@ C
INCLUDE 'bullfiles.inc
- INCLUDE '($ACLDEF)'
+C INCLUDE '($ACLDEF)'
CHARACTER ACLENT*(*),OUTPUT*80,ACLSTR*255,FILENAME*(*)
CHARACTER NOT_ID*3
@@ -1531,7 +1531,7 @@ C Copy ACLs from one file to another file
C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($ACLDEF)'
+C INCLUDE '($ACLDEF)'
CHARACTER ACLENT*255
@@ -1562,7 +1562,7 @@ C since must convert location of string into a character string.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($ACLDEF)'
+C INCLUDE '($ACLDEF)'
CHARACTER ACLENT*(*),INFILE*(*),OUTFILE*(*)
diff --git a/src/bulletin7.for b/src/bulletin7.for
index e143d3f..661c011 100644
--- a/src/bulletin7.for
+++ b/src/bulletin7.for
@@ -19,9 +19,9 @@ C
INCLUDE 'bullfolder.inc
- INCLUDE '($BRKDEF)'
+C INCLUDE '($BRKDEF)'
- INCLUDE '($SSDEF)'
+C INCLUDE '($SSDEF)'
DIMENSION READ_BTIM_SAVE(2),TEMP_BTIM(2)
@@ -531,7 +531,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($PRVDEF)'
+C INCLUDE '($PRVDEF)'
COMMON /PRIVS/ SETPRV,PRV_DEPTH
DIMENSION SETPRV(2)
@@ -798,9 +798,9 @@ C
CHARACTER*(*) USERNAME
- INCLUDE '($PRVDEF)'
+C INCLUDE '($PRVDEF)'
- INCLUDE '($UAIDEF)'
+C INCLUDE '($UAIDEF)'
INTEGER DEF_PRIV(2)
@@ -845,7 +845,7 @@ C
INTEGER PASSCHANGE(2)
- INCLUDE '($UAIDEF)'
+C INCLUDE '($UAIDEF)'
CALL INIT_ITMLST
CALL ADD_2_ITMLST(4,UAI$_FLAGS,%LOC(FLAGS))
@@ -916,7 +916,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($RMSDEF)'
+C INCLUDE '($RMSDEF)'
DATA INIT /.TRUE./
@@ -1391,7 +1391,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($JPIDEF)'
+C INCLUDE '($JPIDEF)'
CHARACTER USERNAME*(*),TERMINAL*(*)
diff --git a/src/bulletin8.for b/src/bulletin8.for
index dba2cf0..37cfa46 100644
--- a/src/bulletin8.for
+++ b/src/bulletin8.for
@@ -72,11 +72,11 @@ C CALL SET_TIMER('02')
IMPLICIT INTEGER (A-Z)
- INCLUDE '($LNMDEF)'
+C INCLUDE '($LNMDEF)'
- INCLUDE '($PSLDEF)'
+C INCLUDE '($PSLDEF)'
- INCLUDE '($UAIDEF)'
+C INCLUDE '($UAIDEF)'
CHARACTER DEFDIR*64,DEFDEV*16,USERNAME*(*),ACCOUNT*9
@@ -144,7 +144,7 @@ C CALL SET_TIMER('02')
IMPLICIT INTEGER (A-Z)
- INCLUDE '($MSGDEF)'
+C INCLUDE '($MSGDEF)'
INCLUDE 'bulluser.inc
@@ -489,7 +489,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($DVIDEF)'
+C INCLUDE '($DVIDEF)'
CALL INIT_ITMLST ! Initialize item list
! Now add items to list
@@ -518,7 +518,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($DVIDEF)'
+C INCLUDE '($DVIDEF)'
CHARACTER*(*) DEV_NAME
@@ -638,7 +638,7 @@ C
CHARACTER USERNAME*(*)
- INCLUDE '($UAIDEF)'
+C INCLUDE '($UAIDEF)'
INTEGER*2 UIC(2)
@@ -1355,7 +1355,7 @@ C
CHARACTER*(*) ACCOUNT ! Limit is 12 characters
- INCLUDE '($JPIDEF)'
+C INCLUDE '($JPIDEF)'
CALL INIT_ITMLST ! Initialize item list
CALL ADD_2_ITMLST(LEN(ACCOUNT),JPI$_ACCOUNT,%LOC(ACCOUNT))
@@ -1382,7 +1382,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($JPIDEF)'
+C INCLUDE '($JPIDEF)'
CALL INIT_ITMLST ! Initialize item list
CALL ADD_2_ITMLST(4,JPI$_STS,%LOC(STS))
@@ -1401,8 +1401,8 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($FABDEF)'
- INCLUDE '($RABDEF)'
+C INCLUDE '($FABDEF)'
+C INCLUDE '($RABDEF)'
RECORD /FABDEF/ FAB
RECORD /RABDEF/ RAB
@@ -1420,7 +1420,7 @@ C
INTEGER FUNCTION REC_LOCK(IER)
- INCLUDE '($FORIOSDEF)'
+C INCLUDE '($FORIOSDEF)'
DATA INIT /.TRUE./
diff --git a/src/bulletin9.for b/src/bulletin9.for
index c0575a3..5f7d75a 100644
--- a/src/bulletin9.for
+++ b/src/bulletin9.for
@@ -330,7 +330,7 @@ C
COMMON /SMG/ KEYBOARD_ID,KEY_TABLE_ID
- INCLUDE '($SMGDEF)'
+C INCLUDE '($SMGDEF)'
TERM = SMG$M_KEY_TERMINATE
@@ -351,7 +351,7 @@ C
COMMON /SMG/ KEYBOARD_ID,KEY_TABLE_ID
- INCLUDE '($SMGDEF)'
+C INCLUDE '($SMGDEF)'
TERM = SMG$M_KEY_TERMINATE
@@ -404,7 +404,7 @@ C
EXTERNAL LIB$PUT_OUTPUT,PRINT_OUTPUT
CHARACTER*(*) LIBRARY
- INCLUDE '($HLPDEF)'
+C INCLUDE '($HLPDEF)'
IF (CLI$PRESENT('PRINT')) THEN
OPEN (UNIT=8,STATUS='NEW',FILE='SYS$PRINT:KEYPAD.DAT',
@@ -447,7 +447,7 @@ C LIBRARY - Character string. Name of help library.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($LBRDEF)'
+C INCLUDE '($LBRDEF)'
COMMON /HELP/ HELP_PAGE,DISPLAY_ID,HELP_INPUT,HELP_INPUT_LEN
COMMON /HELP/ NEED_ERASE,KEYBOARD_ID,KEY_TABLE_ID
@@ -594,7 +594,7 @@ C LEVEL - Longword. Contains current key level.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($HLPDEF)'
+C INCLUDE '($HLPDEF)'
COMMON /LEVELS/ KEY,KEYL,NKEY,OLD_NKEY,EXACT
CHARACTER*20 KEY(10)
@@ -777,7 +777,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($FORIOSDEF)'
+C INCLUDE '($FORIOSDEF)'
INCLUDE 'bulldir.inc
@@ -843,7 +843,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE '($FORIOSDEF)'
+C INCLUDE '($FORIOSDEF)'
INCLUDE 'bulluser.inc
--
GitLab