From: Brian Tillman [tillman_brian@mimesweeper.wilm.fusa.com]
Sent: Friday, March 10, 2000 2:45 PM
To: Info-VAX@Mvb.Saic.Com
Subject: An update to EDIT/ACL
For quite some time now, the ACL editor (EDIT/ACL) has been lacking support
for some of the ACE types that have been added to OpenVMS. In particular, I
missed support for the CREATOR ACE. So, I modified SYS$LIBRARY:ACLEDIT.TPU
to add that support. Here are my changes. After creating the new
ACLEDIT.TPU file, compile it with
$ EDIT/TPU/NOSECTION/COMMAND=ACLEDIT
Then copy the file ACLEDT$SECTION.TPU$SECTION to SYS$LIBRARY.
--
Brian Tillman Internet: tillman_brian at si.com
Smiths Industries, Inc. tillman at swdev.si.com
3290 Patterson Ave. SE, MS Addresses modified to prevent
Grand Rapids, MI 49512-1991 SPAM. Replace "at" with "@"
This opinion doesn't represent that of my company
$ diff sys$library:acledit.tpu .tpu-orig
************
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU;3
305 ACE$C_NEW_OWNER := 13;
306 ACE$C_RESERVED := 255;
******
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU-ORIG;1
305 ACE$C_RESERVED := 255;
************
************
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU;3
1223 IF INDEX("(CREATOR", CURRENT_LINE) <> 0
1224 THEN
1225 ACLEDIT$X_ACE_TYPE := ACE$C_NEW_OWNER;
1226 ENDIF;
1227
******
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU-ORIG;1
1222
************
************
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU;3
1261 ! Type: ACE$C_NEW_OWNER
1262 !
1263 ! (CREATOR, OPT = DEF + HID + PROT + NOPROP + NONE, ACC = R +
W + E + D + C + NONE)
1264 ! ^--0--^ 1 2 3 4 5 6 7 8
9 1 1 1 1
1265 !
0 1 2 3
1266 !
1267 PROCEDURE ACLEDIT$NEXT_FIELD (ADVANCE_OPTION)
******
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU-ORIG;1
1256 PROCEDURE ACLEDIT$NEXT_FIELD (ADVANCE_OPTION)
************
************
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU;3
2310 ! Type: ACE$C_NEW_OWNER
2311 !
2312 ! (CREATOR, OPT = DEF + HID + PROT + NOPROP + NONE, ACC = R +
W + E + D + C + NONE)
2313 ! ^--0--^ 1 2 3 4 5 6 7 8
9 1 1 1 1
2314 !
0 1 2 3
2315 !
2316 PROCEDURE ACLEDIT$SELECT_ITEM
******
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU-ORIG;1
2299 PROCEDURE ACLEDIT$SELECT_ITEM
************
************
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU;3
2393 AND (ACLEDIT$X_ITEM = 4)
2394 THEN
******
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU-ORIG;1
2376 AND (ACLEDIT$X_ITEM = 3)
2377 THEN
************
************
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU;3
2397 IF ACLEDIT$X_ITEM > 4
2398 THEN
******
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU-ORIG;1
2380 IF ACLEDIT$X_ITEM > 3
2381 THEN
************
************
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU;3
2401 CASE ACLEDIT$X_ITEM FROM 1 TO 4
2402 [1]: COPY_TEXT ("IDENTIFIER=");
******
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU-ORIG;1
2384 CASE ACLEDIT$X_ITEM FROM 1 TO 3
2385 [1]: COPY_TEXT ("IDENTIFIER=");
************
************
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU;3
2423 [4]: COPY_TEXT ("CREATOR");
2424 MOVE_HORIZONTAL (-1);
2425 ACLEDIT$X_END_ITEM := MARK (NONE);
2426 MOVE_HORIZONTAL (-(LENGTH ("CREATOR") - 1));
2427 ACLEDIT$X_BEGIN_ITEM := MARK (NONE);
2428 ACLEDIT$X_ACE_TYPE := ACE$C_NEW_OWNER;
2429 ACLEDIT$X_MAX_FIELD_3 := ACLEDIT$X_MIN_FIELD_3 + 6;
2430 ENDCASE;
******
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU-ORIG;1
2406 ENDCASE;
************
************
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU;3
2494 IF (ACLEDIT$X_ACE_TYPE = ACE$C_KEYID OR ACLEDIT$X_ACE_TYPE =
ACE$C_NEW_OWNER)
2495 AND ((ACLEDIT$X_ITEM = 6) OR (ACLEDIT$X_ITEM = 7))
******
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU-ORIG;1
2470 IF (ACLEDIT$X_ACE_TYPE = ACE$C_KEYID)
2471 AND ((ACLEDIT$X_ITEM = 6) OR (ACLEDIT$X_ITEM = 7))
************
************
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU;3
2643 OR (INDEX ('(DEFAULT_PROTECTION', TEMP_LINE) <> 0)
2644 OR (INDEX ('(CREATOR', TEMP_LINE) <> 0)) AND
(ACLEDIT$X_PROMPT))
2645 OR (LENGTH (CURRENT_LINE) = 0)
******
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU-ORIG;1
2619 OR (INDEX ('(DEFAULT_PROTECTION', TEMP_LINE) <> 0)) AND
(ACLEDIT$X_PROMPT))
2620 OR (LENGTH (CURRENT_LINE) = 0)
************
************
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU;3
3435 IF ACLEDIT$X_ACE_TYPE = ACE$C_NEW_OWNER
3436 THEN
3437 ACLEDIT$X_ITEM := 3;
3438 ENDIF;
3439 ACLEDIT$X_BEGIN_ITEM := MARK (NONE);
******
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU-ORIG;1
3410 ACLEDIT$X_BEGIN_ITEM := MARK (NONE);
************
************
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU;3
3499 OR (INDEX ('(DEFAULT_PROTECTION', CURRENT_LINE) <> 0)
3500 OR (INDEX ('(CREATOR', CURRENT_LINE) <> 0)) AND
(ACLEDIT$X_PROMPT))
3501 THEN
******
File SYS$COMMON:[SYSLIB]ACLEDIT.TPU-ORIG;1
3470 OR (INDEX ('(DEFAULT_PROTECTION', CURRENT_LINE) <> 0))
AND (ACLEDIT$X_PROMPT))
3471 THEN
************
Number of difference sections found: 12
Number of difference records found: 36
DIFFERENCES /IGNORE=()/MERGED=1-
SYS$COMMON:[SYSLIB]ACLEDIT.TPU;3-
SYS$COMMON:[SYSLIB]ACLEDIT.TPU-ORIG;1