github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-02-14 20:16:13 +00:00
Code Issues Projects Releases Wiki Activity

EDITINTERFACE: Case-independent match of leading initials on a change-comment

Browse Source 
Also, matching initials are recognized with or without a colon
This commit is contained in:
rmkaplan
2022-06-22 16:25:50 -07:00
parent b320333ac1
commit 5e629cebc9
2 changed files with 21 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
sources/EDITINTERFACE
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "13-May-2022 08:16:23" 
{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>EDITINTERFACE.;44 47034
(FILECREATED "22-Jun-2022 13:32:08" 
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>EDITINTERFACE.;45 47672
:CHANGES-TO (FNS FIXEDITDATE EDITDATE?)
:CHANGES-TO (FNS FIXEDITDATE)
:PREVIOUS-DATE "12-May-2022 23:21:03"
{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>EDITINTERFACE.;43)
:PREVIOUS-DATE "13-May-2022 08:16:23"
{DSK}<users>kaplan>local>medley3.5>working-medley>sources>EDITINTERFACE.;44)
(* ; "
@@ -629,6 +629,8 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
(FIXEDITDATE
[LAMBDA (EXPR)
(* ;; "Edited 22-Jun-2022 13:31 by rmk")
(* ;; "Edited 13-May-2022 08:11 by rmk")
(* ;; "Edited 8-May-2022 22:49 by rmk")
@@ -702,10 +704,10 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
(* ;; "E is now the cell that the date will attach to or whose CAR will be updated.")
[LET (PARSE COMMENTLEVEL (INITLS (CL:IF (EQ (CHARCODE %:)
(NTHCHARCODE INITIALS -1))
(SUBSTRING INITIALS 1 -2)
INITIALS)))
[LET (PARSE COMMENTLEVEL ENDINITIALS (INITLS (CL:IF (EQ (CHARCODE %:)
(NTHCHARCODE INITIALS -1))
(SUBSTRING INITIALS 1 -2)
INITIALS)))
(IF *REPLACE-OLD-EDIT-DATES*
THEN
(* ;; "Strip out all previous modern-format edit dates. Since EDITDATE? only recognizes that format, hand editing is needed if prehistoric dates are really not desired. We don't strip out anything with a further comment.")
@@ -753,12 +755,18 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
(MEMB [CAR (LISTP (SETQ PARSE (CDAR E]
'(; ;; ;;;))
[STRINGP (SETQ PARSE (CAR (LISTP (CDR PARSE]
(STRPOS (CONCAT INITLS ": ")
PARSE 1 NIL NIL T))
(SETQ ENDINITIALS (STRPOS INITLS PARSE 1 NIL NIL T
UPPERCASEARRAY)))
THEN
(* ;;
 "Just an ordinary comment in first position, with initials: in front. Upgrade it to an edit date.")
(SETQ PARSE (CONCAT INITLS (CL:IF (EQ (CHARCODE %:)
(NTHCHARCODE PARSE
ENDINITIALS))
""
": ")
(SUBSTRING PARSE ENDINITIALS)))
(/RPLACA E (EDITDATE (CAR E)
NIL PARSE))
ELSE
@@ -941,6 +949,6 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
18767) (EDITLOADFNS? 18769 . 22569) (EDITMODE 22571 . 24581) (EDITP 24583 . 25094) (EDITV 25096 .
25735) (DC 25737 . 26418) (DF 26420 . 27462) (DP 27464 . 28548) (DV 28550 . 29122) (EDITPROP 29124 .
29343) (EF 29345 . 29674) (EP 29676 . 29859) (EV 29861 . 30040) (EDITE 30042 . 30920) (EDITL 30922 .
31148)) (31500 46179 (NEW/EDITDATE 31510 . 31732) (FIXEDITDATE 31734 . 39703) (EDITDATE? 39705 . 42733
) (EDITDATE 42735 . 44182) (SETINITIALS 44184 . 46177)))))
31148)) (31500 46817 (NEW/EDITDATE 31510 . 31732) (FIXEDITDATE 31734 . 40341) (EDITDATE? 40343 . 43371
) (EDITDATE 43373 . 44820) (SETINITIALS 44822 . 46815)))))
STOP

BIN
sources/EDITINTERFACE.LCOM
View File

Binary file not shown.