Compare commits
9 Commits
medley-250
...
medley-250
| Author | SHA1 | Date | |
|---|---|---|---|
|
db98ea346b | ||
|
d9090011d4 | ||
|
|
40d2ac394c | ||
|
|
4873590e22 | ||
|
|
188895c7e9 | ||
|
|
292a7cd787 | ||
|
|
a1a67959d1 | ||
|
015868e9a6 | ||
|
|
9f980276bf |
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "10-Dec-2024 14:36:59" {WMEDLEY}<library>PDFSTREAM.;59 14133
|
||||
(FILECREATED "25-Dec-2024 14:26:23" {WMEDLEY}<library>PDFSTREAM.;60 14292
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (VARS PDFSTREAMCOMS)
|
||||
:CHANGES-TO (FNS SEE-PDF)
|
||||
|
||||
:PREVIOUS-DATE "11-Nov-2023 11:24:42" {WMEDLEY}<library>PDFSTREAM.;56)
|
||||
:PREVIOUS-DATE "10-Dec-2024 14:36:59" {WMEDLEY}<library>PDFSTREAM.;59)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT PDFSTREAMCOMS)
|
||||
@@ -265,12 +265,14 @@
|
||||
(DEFINEQ
|
||||
|
||||
(SEE-PDF
|
||||
[LAMBDA (PDFFILE) (* ; "Edited 1-Oct-2023 20:47 by rmk")
|
||||
[LAMBDA (PDFFILE) (* ; "Edited 25-Dec-2024 14:25 by rmk")
|
||||
(* ; "Edited 1-Oct-2023 20:47 by rmk")
|
||||
(* ; "Edited 26-Sep-2023 16:52 by rmk")
|
||||
|
||||
(* ;; "Use the ShellOpener for this machine to open the PDF file outside of Medley")
|
||||
|
||||
(ShellOpen (PACKFILENAME 'BODY PDFFILE 'EXTENSION 'PDF])
|
||||
(ShellOpen (OR (FINDFILE-WITH-EXTENSIONS PDFFILE NIL '(PDF))
|
||||
(ERROR "FILE NOT FOUND" PDFFILE])
|
||||
)
|
||||
|
||||
(ADDTOVAR FB.SEE.METHODS (PDFFILEP SEE-PDF))
|
||||
@@ -283,8 +285,8 @@
|
||||
thereis (ShellWhich (CAR TEMPLATE])
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (3262 5876 (PDFFILEP 3272 . 4186) (PDF.HARDCOPYW 4188 . 4786) (PDF.TEXT 4788 . 5505) (
|
||||
PDF.TEDIT 5507 . 5874)) (6316 13376 (OPEN-PDF-STREAM 6326 . 8462) (CLOSE-PDF-STREAM 8464 . 9751) (
|
||||
PS-TO-PDF 9753 . 13374)) (13377 13775 (SEE-PDF 13387 . 13773)) (13826 14110 (PDFCONVERTER 13836 .
|
||||
14108)))))
|
||||
(FILEMAP (NIL (3255 5869 (PDFFILEP 3265 . 4179) (PDF.HARDCOPYW 4181 . 4779) (PDF.TEXT 4781 . 5498) (
|
||||
PDF.TEDIT 5500 . 5867)) (6309 13369 (OPEN-PDF-STREAM 6319 . 8455) (CLOSE-PDF-STREAM 8457 . 9744) (
|
||||
PS-TO-PDF 9746 . 13367)) (13370 13934 (SEE-PDF 13380 . 13932)) (13985 14269 (PDFCONVERTER 13995 .
|
||||
14267)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "18-Jan-2025 23:38:11" {WMEDLEY}<library>tedit>TEDIT-FNKEYS.;108 39841
|
||||
(FILECREATED "24-Jan-2025 15:31:33" {WMEDLEY}<library>TEDIT>TEDIT-FNKEYS.;109 40128
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.CALL.ED \TEDIT.MANPAGE)
|
||||
:CHANGES-TO (FNS \TEDIT.ONECHAR.BACKWARD \TEDIT.ONECHAR.FORWARD)
|
||||
|
||||
:PREVIOUS-DATE "29-Dec-2024 08:47:57" {WMEDLEY}<library>TEDIT>TEDIT-FNKEYS.;102)
|
||||
:PREVIOUS-DATE "18-Jan-2025 23:38:11" {WMEDLEY}<library>TEDIT>TEDIT-FNKEYS.;108)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-FNKEYSCOMS)
|
||||
@@ -474,7 +474,8 @@
|
||||
T T])
|
||||
|
||||
(\TEDIT.ONECHAR.BACKWARD
|
||||
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 21-Nov-2024 20:31 by rmk")
|
||||
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 24-Jan-2025 15:25 by rmk")
|
||||
(* ; "Edited 21-Nov-2024 20:31 by rmk")
|
||||
(* ; "Edited 1-Sep-2024 10:39 by rmk")
|
||||
(TEXTOBJ! TEXTOBJ)
|
||||
(SELECTION! SEL)
|
||||
@@ -482,12 +483,14 @@
|
||||
(CL:UNLESS (ILEQ PT 1)
|
||||
(\TEDIT.SHOWSEL SEL NIL TEXTOBJ)
|
||||
(\TEDIT.UPDATE.SEL SEL (SUB1 PT)
|
||||
0)
|
||||
0
|
||||
'LEFT)
|
||||
(\TEDIT.FIXSEL SEL TEXTOBJ)
|
||||
(\TEDIT.SHOWSEL SEL T TEXTOBJ))])
|
||||
|
||||
(\TEDIT.ONECHAR.FORWARD
|
||||
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 21-Nov-2024 20:31 by rmk")
|
||||
[LAMBDA (TSTREAM TEXTOBJ SEL) (* ; "Edited 24-Jan-2025 15:27 by rmk")
|
||||
(* ; "Edited 21-Nov-2024 20:31 by rmk")
|
||||
(* ; "Edited 1-Sep-2024 10:39 by rmk")
|
||||
|
||||
(* ;; "Moves caret to a point one character forward.")
|
||||
@@ -497,7 +500,8 @@
|
||||
(CL:UNLESS (IGEQ PT (TEXTLEN TEXTOBJ))
|
||||
(\TEDIT.SHOWSEL SEL NIL TEXTOBJ)
|
||||
(\TEDIT.UPDATE.SEL SEL (ADD1 PT)
|
||||
0)
|
||||
0
|
||||
'LEFT)
|
||||
(\TEDIT.FIXSEL SEL TEXTOBJ)
|
||||
(\TEDIT.SHOWSEL SEL T TEXTOBJ))])
|
||||
)
|
||||
@@ -726,23 +730,23 @@
|
||||
(TEDIT.SETSYNTAX (CAR ENTRY)
|
||||
(CADR ENTRY]
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (6234 29697 (\TEDIT.BOLD.SEL.OFF 6244 . 6582) (\TEDIT.BOLD.SEL.ON 6584 . 6912) (
|
||||
\TEDIT.CENTER.SEL 6914 . 8430) (\TEDIT.CENTER.SEL.REV 8432 . 8728) (\TEDIT.DEFAULTS.CARET 8730 . 9223)
|
||||
(\TEDIT.DEFAULTSSEL 9225 . 9672) (\TEDIT.SETDEFAULT.FROM.SEL 9674 . 10351) (\TEDIT.KEY.FIND 10353 .
|
||||
15420) (\TEDIT.KEY.FIND.SEARCHSTRING 15422 . 16562) (\TEDIT.GET.TARGET.STRING 16564 . 18278) (
|
||||
\TEDIT.KEY.FIND.BACKWARD 18280 . 18585) (\TEDIT.FINDAGAIN.BACKWARD 18587 . 18998) (\TEDIT.FINDAGAIN
|
||||
19000 . 19291) (\TEDIT.ITALIC.SEL.OFF 19293 . 19545) (\TEDIT.ITALIC.SEL.ON 19547 . 19740) (
|
||||
\TEDIT.LARGERSEL 19742 . 20030) (\TEDIT.LCASE.SEL 20032 . 21427) (\TEDIT.SHOWCARETLOOKS 21429 . 23029)
|
||||
(\TEDIT.SMALLERSEL 23031 . 23322) (\TEDIT.SUBSCRIPTSEL 23324 . 23527) (\TEDIT.SUPERSCRIPTSEL 23529 .
|
||||
23733) (\TEDIT.UCASE.SEL 23735 . 25074) (\TEDIT.UNDERLINE.SEL.OFF 25076 . 25274) (
|
||||
\TEDIT.UNDERLINE.SEL.ON 25276 . 25472) (\TEDIT.STRIKEOUT.SEL.ON 25474 . 25670) (
|
||||
\TEDIT.STRIKEOUT.SEL.OFF 25672 . 25870) (\TEDIT.SELECT.ALL 25872 . 26188) (\TEDIT.KEY.SUBSTITUTE 26190
|
||||
. 26411) (\TEDIT.MANPAGE 26413 . 27660) (\TEDIT.CALL.ED 27662 . 28492) (\TEDIT.ONECHAR.BACKWARD 28494
|
||||
. 29064) (\TEDIT.ONECHAR.FORWARD 29066 . 29695)) (29769 36280 (\TEDIT.BOLD.CARET.OFF 29779 . 30314) (
|
||||
\TEDIT.BOLD.CARET.ON 30316 . 30848) (\TEDIT.ITALIC.CARET.OFF 30850 . 31387) (\TEDIT.ITALIC.CARET.ON
|
||||
31389 . 31932) (\TEDIT.LARGER.CARET 31934 . 32469) (\TEDIT.SMALLER.CARET 32471 . 33008) (
|
||||
\TEDIT.SUBSCRIPT.CARET 33010 . 33551) (\TEDIT.SUPERSCRIPT.CARET 33553 . 34095) (
|
||||
\TEDIT.UNDERLINE.CARET.OFF 34097 . 34637) (\TEDIT.UNDERLINE.CARET.ON 34639 . 35177) (
|
||||
\TEDIT.STRIKEOUT.CARET.OFF 35179 . 35719) (\TEDIT.STRIKEOUT.CARET.ON 35721 . 36278)) (36349 37051 (
|
||||
\TK.DESCRIBEFONT 36359 . 37049)))))
|
||||
(FILEMAP (NIL (6251 29984 (\TEDIT.BOLD.SEL.OFF 6261 . 6599) (\TEDIT.BOLD.SEL.ON 6601 . 6929) (
|
||||
\TEDIT.CENTER.SEL 6931 . 8447) (\TEDIT.CENTER.SEL.REV 8449 . 8745) (\TEDIT.DEFAULTS.CARET 8747 . 9240)
|
||||
(\TEDIT.DEFAULTSSEL 9242 . 9689) (\TEDIT.SETDEFAULT.FROM.SEL 9691 . 10368) (\TEDIT.KEY.FIND 10370 .
|
||||
15437) (\TEDIT.KEY.FIND.SEARCHSTRING 15439 . 16579) (\TEDIT.GET.TARGET.STRING 16581 . 18295) (
|
||||
\TEDIT.KEY.FIND.BACKWARD 18297 . 18602) (\TEDIT.FINDAGAIN.BACKWARD 18604 . 19015) (\TEDIT.FINDAGAIN
|
||||
19017 . 19308) (\TEDIT.ITALIC.SEL.OFF 19310 . 19562) (\TEDIT.ITALIC.SEL.ON 19564 . 19757) (
|
||||
\TEDIT.LARGERSEL 19759 . 20047) (\TEDIT.LCASE.SEL 20049 . 21444) (\TEDIT.SHOWCARETLOOKS 21446 . 23046)
|
||||
(\TEDIT.SMALLERSEL 23048 . 23339) (\TEDIT.SUBSCRIPTSEL 23341 . 23544) (\TEDIT.SUPERSCRIPTSEL 23546 .
|
||||
23750) (\TEDIT.UCASE.SEL 23752 . 25091) (\TEDIT.UNDERLINE.SEL.OFF 25093 . 25291) (
|
||||
\TEDIT.UNDERLINE.SEL.ON 25293 . 25489) (\TEDIT.STRIKEOUT.SEL.ON 25491 . 25687) (
|
||||
\TEDIT.STRIKEOUT.SEL.OFF 25689 . 25887) (\TEDIT.SELECT.ALL 25889 . 26205) (\TEDIT.KEY.SUBSTITUTE 26207
|
||||
. 26428) (\TEDIT.MANPAGE 26430 . 27677) (\TEDIT.CALL.ED 27679 . 28509) (\TEDIT.ONECHAR.BACKWARD 28511
|
||||
. 29216) (\TEDIT.ONECHAR.FORWARD 29218 . 29982)) (30056 36567 (\TEDIT.BOLD.CARET.OFF 30066 . 30601) (
|
||||
\TEDIT.BOLD.CARET.ON 30603 . 31135) (\TEDIT.ITALIC.CARET.OFF 31137 . 31674) (\TEDIT.ITALIC.CARET.ON
|
||||
31676 . 32219) (\TEDIT.LARGER.CARET 32221 . 32756) (\TEDIT.SMALLER.CARET 32758 . 33295) (
|
||||
\TEDIT.SUBSCRIPT.CARET 33297 . 33838) (\TEDIT.SUPERSCRIPT.CARET 33840 . 34382) (
|
||||
\TEDIT.UNDERLINE.CARET.OFF 34384 . 34924) (\TEDIT.UNDERLINE.CARET.ON 34926 . 35464) (
|
||||
\TEDIT.STRIKEOUT.CARET.OFF 35466 . 36006) (\TEDIT.STRIKEOUT.CARET.ON 36008 . 36565)) (36636 37338 (
|
||||
\TK.DESCRIBEFONT 36646 . 37336)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,13 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED " 6-Jan-2025 23:41:58" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;847 185662
|
||||
(FILECREATED "21-Jan-2025 16:05:23" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;849 186170
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \TEDIT.UPDATE.LINES \TEDIT.VALID.LINES)
|
||||
:CHANGES-TO (FNS \TEDIT.UPDATE.LINES \TEDIT.MEASURED.LINES \TEDIT.LINES.BELOW
|
||||
\TEDIT.VALID.LINES \TEDIT.NEXTVALIDLINE)
|
||||
|
||||
:PREVIOUS-DATE "24-Dec-2024 22:16:22" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;845)
|
||||
:PREVIOUS-DATE " 7-Jan-2025 11:56:35" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;848)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-SCREENCOMS)
|
||||
@@ -2322,7 +2323,8 @@
|
||||
1)])
|
||||
|
||||
(\TEDIT.UPDATE.LINES
|
||||
[LAMBDA (TEXTOBJ REASON FIRSTCHANGEDCHNO NCHARSCHANGED) (* ; "Edited 6-Jan-2025 23:37 by rmk")
|
||||
[LAMBDA (TEXTOBJ REASON FIRSTCHANGEDCHNO NCHARSCHANGED) (* ; "Edited 21-Jan-2025 13:25 by rmk")
|
||||
(* ; "Edited 7-Jan-2025 11:55 by rmk")
|
||||
(* ; "Edited 7-Dec-2024 21:52 by rmk")
|
||||
(* ; "Edited 29-Nov-2024 22:56 by rmk")
|
||||
(* ; "Edited 26-Nov-2024 03:35 by rmk")
|
||||
@@ -2364,10 +2366,10 @@
|
||||
|
||||
(SETQ LASTVALID (CAR VALIDS))
|
||||
(SETQ NEXTVALID (CDR VALIDS)) (* ; "MEASURED.LINES creates, measures, and links the lines from LASTVALID to the last pre-NEXTVALID character, without displaying. They may be in the bitmap.")
|
||||
(SETQ LASTGAPLINE (\TEDIT.MEASURED.LINES LASTVALID (CL:IF NEXTVALID
|
||||
(SUB1 (FGETLD NEXTVALID LCHAR1))
|
||||
(TEXTLEN TEXTOBJ))
|
||||
PANE TEXTOBJ))
|
||||
[SETQ LASTGAPLINE (\TEDIT.MEASURED.LINES LASTVALID PANE TEXTOBJ
|
||||
(CL:IF NEXTVALID
|
||||
(SUB1 (FGETLD NEXTVALID LCHAR1))
|
||||
(TEXTLEN TEXTOBJ))]
|
||||
|
||||
(* ;;
|
||||
"The chain that ended at LASTVALID now continues thru LASTGAPLINE to NEXVALID and below.")
|
||||
@@ -2375,7 +2377,14 @@
|
||||
(LINKLD LASTGAPLINE NEXTVALID)
|
||||
(if NEXTVALID
|
||||
then (SETQ BITMAPLINES (\TEDIT.BITMAPLINES PANE NEXTVALID))
|
||||
else (\TEDIT.SUFFIXLINE.CREATE PANE TEXTOBJ LASTGAPLINE))
|
||||
else (\TEDIT.SUFFIXLINE.CREATE PANE TEXTOBJ LASTGAPLINE))
|
||||
|
||||
(* ;; "If LASTVALID is not visible (above the pane), make sure that its NEXT is linked to the PANE's prefix")
|
||||
|
||||
(CL:WHEN (IGEQ (FGETLD LASTVALID YBOT)
|
||||
(PANETOP PANE))
|
||||
(LINKLD (PANEPREFIX PANE)
|
||||
(FGETLD LASTVALID NEXTLINE)))
|
||||
(\TEDIT.SHIFTLINES LASTVALID (FGETLD LASTVALID NEXTLINE)
|
||||
PANE TEXTOBJ BITMAPLINES UPPERBITMAPLINES)))])
|
||||
|
||||
@@ -2453,7 +2462,8 @@
|
||||
SUFFIX])
|
||||
|
||||
(\TEDIT.LINES.BELOW
|
||||
[LAMBDA (PREVLINE PANE TEXTOBJ) (* ; "Edited 24-Nov-2024 14:57 by rmk")
|
||||
[LAMBDA (PREVLINE PANE TEXTOBJ) (* ; "Edited 21-Jan-2025 13:31 by rmk")
|
||||
(* ; "Edited 24-Nov-2024 14:57 by rmk")
|
||||
(* ; "Edited 22-Nov-2024 00:53 by rmk")
|
||||
(* ; "Edited 20-Nov-2024 12:37 by rmk")
|
||||
(* ; "Edited 18-Nov-2024 21:12 by rmk")
|
||||
@@ -2473,26 +2483,27 @@
|
||||
(* ; "Edited 15-Mar-2024 19:22 by rmk")
|
||||
(* ; "Edited 23-Dec-2023 23:38 by rmk")
|
||||
(* ; "Edited 14-Dec-2023 12:46 by rmk")
|
||||
(CL:UNLESS PREVLINE
|
||||
(SETQ PREVLINE (PANEPREFIX PANE)))
|
||||
|
||||
(* ;; "Formats and displays lines after PREVLINE down to the one is at least partially visible at the bottom of PANE. Each line is positioned with respect to its predecessor and linked to it. The last visible line is set as the BOTTOMLINE of PANE, PANE's suffix is adjusted to cover the bitmap and all the unseen later characters. Returns the last displayed line.")
|
||||
|
||||
(for L NEXT YBOT (BOTTOM _ (\TEDIT.ONSCREEN? PANE 'BOTTOM)) inlines (OR PREVLINE (PANEPREFIX
|
||||
PANE))
|
||||
(for L NEXT YBOT (BOTTOM _ (\TEDIT.ONSCREEN? PANE 'BOTTOM)) inlines PREVLINE
|
||||
eachtime (SETQ NEXT (\TEDIT.FORMATLINE TEXTOBJ (FGETLD L LCHARLIM)))
|
||||
until (FGETLD NEXT LDUMMY) do (SETQ YBOT (\TEDIT.LINE.BOTTOM L NEXT))
|
||||
(SETYBOT NEXT YBOT)
|
||||
(CL:WHEN (ILESSP YBOT BOTTOM)
|
||||
(* ; "Ran off the bottom")
|
||||
(RETURN (if (\TEDIT.SHOW.AT.BOTTOMP NEXT PANE)
|
||||
then (LINKLD L NEXT)
|
||||
(* ; "Keep it with partial display")
|
||||
(\TEDIT.DISPLAYLINE TEXTOBJ NEXT PANE)
|
||||
then (\TEDIT.DISPLAYLINE TEXTOBJ NEXT PANE)
|
||||
(LINKLD L NEXT)
|
||||
(* ; "Keep NEXT with partial display")
|
||||
NEXT
|
||||
else (* ; "Overshot")
|
||||
else (* ; "Overshot, throw NEXT away")
|
||||
L)))
|
||||
(LINKLD L NEXT)
|
||||
(CL:WHEN (FGETLD NEXT LDUMMY)
|
||||
(* ; "Suffix line")
|
||||
(* ; "Suffix line: end of pane")
|
||||
(RETURN L))
|
||||
(\TEDIT.DISPLAYLINE TEXTOBJ NEXT PANE)
|
||||
(* ;
|
||||
@@ -2504,7 +2515,8 @@
|
||||
(RETURN L])
|
||||
|
||||
(\TEDIT.MEASURED.LINES
|
||||
[LAMBDA (PREVLINE LASTCHAR PANE TEXTOBJ DONTDISPLAY) (* ; "Edited 7-Dec-2024 16:55 by rmk")
|
||||
[LAMBDA (PREVLINE PANE TEXTOBJ LASTCHAR) (* ; "Edited 21-Jan-2025 13:30 by rmk")
|
||||
(* ; "Edited 7-Dec-2024 16:55 by rmk")
|
||||
(* ; "Edited 1-Dec-2024 11:26 by rmk")
|
||||
(* ; "Edited 20-Nov-2024 12:37 by rmk")
|
||||
(* ; "Edited 18-Nov-2024 20:01 by rmk")
|
||||
@@ -2519,9 +2531,9 @@
|
||||
(SETYBOT NEXT YBOT)
|
||||
(CL:WHEN (ILESSP YBOT PBOTTOM) (* ; "NEXT runs off the bottom")
|
||||
(RETURN (if (\TEDIT.SHOW.AT.BOTTOMP NEXT PANE)
|
||||
then (LINKLD L NEXT) (* ; "Keep it with partial display")
|
||||
then (LINKLD L NEXT) (* ; "Keep NEXT with partial display")
|
||||
NEXT
|
||||
else (* ; "Overshot")
|
||||
else (* ; "Overshot, throw NEXT away")
|
||||
L)))
|
||||
(LINKLD L NEXT) (* ; "Keeps the iteration going")
|
||||
finally
|
||||
@@ -2532,18 +2544,14 @@
|
||||
|
||||
(\TEDIT.VALID.LINES
|
||||
[LAMBDA (PANE FIRSTCHANGEDCHNO NCHARSCHANGED REASON TSTREAM)
|
||||
(* ; "Edited 21-Jan-2025 15:22 by rmk")
|
||||
(* ; "Edited 6-Jan-2025 15:19 by rmk")
|
||||
(* ; "Edited 22-Nov-2024 16:54 by rmk")
|
||||
(* ; "Edited 20-Nov-2024 12:37 by rmk")
|
||||
(* ; "Edited 21-Oct-2024 00:33 by rmk")
|
||||
(* ; "Edited 5-Jul-2024 22:58 by rmk")
|
||||
(* ; "Edited 4-Jul-2024 10:48 by rmk")
|
||||
(* ; "Edited 28-Jun-2024 15:27 by rmk")
|
||||
(* ; "Edited 15-Jun-2024 17:32 by rmk")
|
||||
(* ; "Edited 12-Jun-2024 23:59 by rmk")
|
||||
(* ; "Edited 23-May-2024 12:48 by rmk")
|
||||
(* ; "Edited 20-Apr-2024 22:11 by rmk")
|
||||
(* ; "Edited 20-Mar-2024 06:46 by rmk")
|
||||
(* ; "Edited 22-Feb-2024 01:05 by rmk")
|
||||
(* ; "Edited 3-Nov-2023 12:07 by rmk")
|
||||
(* ; "Edited 14-Jun-2023 15:55 by rmk")
|
||||
@@ -2552,18 +2560,18 @@
|
||||
|
||||
(* ;; "Called when changes have been made to the document that affect the lines displayed in PANE. Return NIL if the change is not visible in PANE. Otherwise, this divides the lines in PANE into 3 segments:")
|
||||
|
||||
(* ;; " 1. a prefix of lines from the top visible line (next of PREFIXLINE) to the LASTVALID line, the line just before the first changed line.")
|
||||
(* ;; " 1. a prefix of lines from the top visible line (next of PANEPREFIX) to the LASTVALID line, the line just before the first changed line.")
|
||||
|
||||
(* ;; " 2. an intermediate sequence of lines that are (or may be) no longer valid because of the change.")
|
||||
|
||||
(* ;;
|
||||
" 3. a suffix of post-chamge lines, starting with NEXTVALID, that are known still to be valid.")
|
||||
" 3. a suffix of post-change lines, starting with NEXTVALID, that are known still to be valid.")
|
||||
|
||||
(* ;; "A line is %"valid%" if its line breaking is unaffected by the change and the bits in the screen bitmap that represented it before the change are still correct.")
|
||||
|
||||
(* ;; "")
|
||||
|
||||
(* ;; "The segmentation information is returned to the caller as a pair of lines (LASTVALID . NEXTVALID). Segment 1 is then the sequence of lines chained from PREFIXLINE to LASTVALID, segment 3 is the sequence beginning at NEXTVALID. The segment 2 lines originally between LASTVALID and NEXTVALID are useless, so here we just nuke them out (by smashing the NEXTLINE of LASTVALID).")
|
||||
(* ;; "The segmentation information is returned to the caller as a pair of lines (LASTVALID . NEXTVALID). Segment 1 is then the sequence of lines chained from the prefix line to LASTVALID, segment 3 is the sequence beginning at NEXTVALID. The segment 2 lines originally between LASTVALID and NEXTVALID are useless, so here we just nuke them out (by smashing the NEXTLINE of LASTVALID and PREVLINE of NEXTVALID).")
|
||||
|
||||
(* ;; "")
|
||||
|
||||
@@ -2615,7 +2623,7 @@
|
||||
SUFFIXLINE))
|
||||
(SETQ FIRSTVISIBLECHNO (FGETLD PREFIXLINE LCHARLIM))
|
||||
(SETQ FIRSTCHANGEDLINE (find L inlines (FGETLD PREFIXLINE NEXTLINE)
|
||||
suchthat (FWITHINLINEP FIRSTVISIBLECHNO L)))
|
||||
suchthat (FWITHINLINEP FIRSTCHANGEDCHNO L)))
|
||||
(CL:UNLESS FIRSTCHANGEDLINE (* ; "Changes are not visible")
|
||||
(RETURN NIL))
|
||||
|
||||
@@ -2633,19 +2641,21 @@
|
||||
"Last changed line is visible, its changes may cause character to shift to or from lower lines.")
|
||||
|
||||
(SETQ NEXTVALIDLINE (\TEDIT.NEXTVALIDLINE LASTCHANGEDLINE TSTREAM)))
|
||||
(CL:WHEN (AND NEXTVALIDLINE DELTA)
|
||||
(CL:WHEN NEXTVALIDLINE
|
||||
(FSETLD NEXTVALIDLINE PREVLINE NIL)
|
||||
(CL:WHEN DELTA
|
||||
|
||||
(* ;; "If the modification added or substracted to the number of characters, translate the character positions of the still-valid lines that are visible later than the change. ")
|
||||
(* ;; "If the modification added or substracted to the number of characters, translate the character positions of the still-valid lines that are visible later than the change. ")
|
||||
|
||||
(for L inlines NEXTVALIDLINE do (add (FGETLD L LCHAR1)
|
||||
DELTA)
|
||||
(add (FGETLD L LCHARLAST)
|
||||
DELTA)))
|
||||
(for L inlines NEXTVALIDLINE do (add (FGETLD L LCHAR1)
|
||||
DELTA)
|
||||
(add (FGETLD L LCHARLAST)
|
||||
DELTA))))
|
||||
|
||||
(* ;; "")
|
||||
|
||||
(CL:WHEN LASTVALIDLINE
|
||||
(FSETLD LASTVALIDLINE NEXTLINE NIL) (* ; "Chop off the now useless lines")
|
||||
(FSETLD LASTVALIDLINE NEXTLINE NIL) (* ; "Chop out the now useless lines")
|
||||
(RETURN (CONS LASTVALIDLINE NEXTVALIDLINE)))])
|
||||
|
||||
(\TEDIT.LASTVALIDLINE
|
||||
@@ -2705,18 +2715,19 @@
|
||||
PTOP])
|
||||
|
||||
(\TEDIT.NEXTVALIDLINE
|
||||
[LAMBDA (LASTCHANGEDLINE TSTREAM) (* ; "Edited 29-Nov-2024 23:31 by rmk")
|
||||
[LAMBDA (LASTCHANGEDLINE TSTREAM) (* ; "Edited 21-Jan-2025 15:27 by rmk")
|
||||
(* ; "Edited 29-Nov-2024 23:31 by rmk")
|
||||
(* ; "Edited 16-Nov-2024 11:00 by rmk")
|
||||
|
||||
(* ;; "We know we can stop when we see a forced end-- characters won't move around after that. In the usual case, the forced-end is a also the last line of a paragraph, but we can't just take the first line of the next paragraph because we can't deal here with whatever paragraph leading it might have (and the venue sysout also screwed up in that case).")
|
||||
|
||||
(* ;; "So we got for the second line of the next paragraph, if there is one")
|
||||
(* ;; "So we go for the second line of the next paragraph, if there is one")
|
||||
|
||||
(* ;; "The line after a forced end is valid. But maybe we can figure out how to stop sooner?")
|
||||
|
||||
(for L inlines LASTCHANGEDLINE when (FGETLD L FORCED-END)
|
||||
do
|
||||
(* ;; "If we reach the end of a paragraph, the next line may be the start of the next paragraph. We skip that one, because we don't know how to deal here with its paragraph leading. If forced but not last, presumably it was a meta-EOL linebreak, no special leading.")
|
||||
(* ;; "A forced end is usually the last line of a paragraph, and its next line is probably valid. But we skip that one, because we don't know how to deal here with its paragraph leading. If forced but not last, presumably it was a meta-EOL linebreak, no special leading to worry about.")
|
||||
|
||||
(CL:WHEN (FGETLD L LSTLN)
|
||||
(SETQ L (FGETLD L NEXTLINE)))
|
||||
@@ -2849,21 +2860,21 @@
|
||||
(\TEDIT.LINE.TALLP LINE PHEIGHT))))])
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (28000 30216 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 28010 . 30214)) (37621 118381 (
|
||||
\TEDIT.FORMATLINE 37631 . 72371) (\TEDIT.FORMATLINE.SETUP.PARA 72373 . 77196) (
|
||||
\TEDIT.FORMATLINE.HORIZONTAL 77198 . 81594) (\TEDIT.FORMATLINE.VERTICAL 81596 . 83813) (
|
||||
\TEDIT.FORMATLINE.JUSTIFY 83815 . 89836) (\TEDIT.FORMATLINE.TABS 89838 . 97638) (\TEDIT.SCALE.TABS
|
||||
97640 . 98431) (\TEDIT.FORMATLINE.PURGE.SPACES 98433 . 99860) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN
|
||||
99862 . 100763) (\TEDIT.FORMATLINE.EMPTY 100765 . 105451) (\TEDIT.FORMATLINE.UPDATELOOKS 105453 .
|
||||
111575) (\TEDIT.FORMATLINE.LASTLEGAL 111577 . 115117) (\TEDIT.LINES.ABOVE 115119 . 118379)) (118498
|
||||
120413 (\TLVALIDATE 118508 . 120411)) (120607 141771 (\TEDIT.DISPLAYLINE 120617 . 134064) (
|
||||
\TEDIT.DISPLAYLINE.TABS 134066 . 136689) (\TEDIT.LINECACHE 136691 . 137419) (\TEDIT.CREATE.LINECACHE
|
||||
137421 . 138257) (\TEDIT.BLTCHAR 138259 . 140886) (\TEDIT.DIACRITIC.SHIFT 140888 . 141769)) (142386
|
||||
185639 (\TEDIT.BACKFORMAT 142396 . 144950) (\TEDIT.PREVIOUS.LINEBREAK 144952 . 147675) (
|
||||
\TEDIT.UPDATE.LINES 147677 . 152103) (\TEDIT.PANE.CREATELINES 152105 . 155097) (
|
||||
\TEDIT.SUFFIXLINE.CREATE 155099 . 156474) (\TEDIT.LINES.BELOW 156476 . 160838) (\TEDIT.MEASURED.LINES
|
||||
160840 . 162612) (\TEDIT.VALID.LINES 162614 . 171192) (\TEDIT.LASTVALIDLINE 171194 . 176016) (
|
||||
\TEDIT.NEXTVALIDLINE 176018 . 177320) (\TEDIT.CLEARPANE.BELOW.LINE 177322 . 179428) (\TEDIT.INSERTLINE
|
||||
179430 . 180816) (\TEDIT.LINE.BOTTOM 180818 . 183814) (\TEDIT.SHOW.AT.BOTTOMP 183816 . 184926) (
|
||||
\TEDIT.SHOW.AT.TOPP 184928 . 185637)))))
|
||||
(FILEMAP (NIL (28086 30302 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 28096 . 30300)) (37707 118467 (
|
||||
\TEDIT.FORMATLINE 37717 . 72457) (\TEDIT.FORMATLINE.SETUP.PARA 72459 . 77282) (
|
||||
\TEDIT.FORMATLINE.HORIZONTAL 77284 . 81680) (\TEDIT.FORMATLINE.VERTICAL 81682 . 83899) (
|
||||
\TEDIT.FORMATLINE.JUSTIFY 83901 . 89922) (\TEDIT.FORMATLINE.TABS 89924 . 97724) (\TEDIT.SCALE.TABS
|
||||
97726 . 98517) (\TEDIT.FORMATLINE.PURGE.SPACES 98519 . 99946) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN
|
||||
99948 . 100849) (\TEDIT.FORMATLINE.EMPTY 100851 . 105537) (\TEDIT.FORMATLINE.UPDATELOOKS 105539 .
|
||||
111661) (\TEDIT.FORMATLINE.LASTLEGAL 111663 . 115203) (\TEDIT.LINES.ABOVE 115205 . 118465)) (118584
|
||||
120499 (\TLVALIDATE 118594 . 120497)) (120693 141857 (\TEDIT.DISPLAYLINE 120703 . 134150) (
|
||||
\TEDIT.DISPLAYLINE.TABS 134152 . 136775) (\TEDIT.LINECACHE 136777 . 137505) (\TEDIT.CREATE.LINECACHE
|
||||
137507 . 138343) (\TEDIT.BLTCHAR 138345 . 140972) (\TEDIT.DIACRITIC.SHIFT 140974 . 141855)) (142472
|
||||
186147 (\TEDIT.BACKFORMAT 142482 . 145036) (\TEDIT.PREVIOUS.LINEBREAK 145038 . 147761) (
|
||||
\TEDIT.UPDATE.LINES 147763 . 152573) (\TEDIT.PANE.CREATELINES 152575 . 155567) (
|
||||
\TEDIT.SUFFIXLINE.CREATE 155569 . 156944) (\TEDIT.LINES.BELOW 156946 . 161407) (\TEDIT.MEASURED.LINES
|
||||
161409 . 163309) (\TEDIT.VALID.LINES 163311 . 171572) (\TEDIT.LASTVALIDLINE 171574 . 176396) (
|
||||
\TEDIT.NEXTVALIDLINE 176398 . 177828) (\TEDIT.CLEARPANE.BELOW.LINE 177830 . 179936) (\TEDIT.INSERTLINE
|
||||
179938 . 181324) (\TEDIT.LINE.BOTTOM 181326 . 184322) (\TEDIT.SHOW.AT.BOTTOMP 184324 . 185434) (
|
||||
\TEDIT.SHOW.AT.TOPP 185436 . 186145)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,18 +1,20 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "12-Dec-2024 15:09:08" {WMEDLEY}<lispusers>EXAMINEDEFS.;53 16442
|
||||
(FILECREATED "20-Jan-2025 22:00:44" {WMEDLEY}<lispusers>EXAMINEDEFS.;54 16352
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS EXVV)
|
||||
:CHANGES-TO (FNS EXVV EXV)
|
||||
(COMMANDS exv)
|
||||
(VARS EXAMINEDEFSCOMS)
|
||||
|
||||
:PREVIOUS-DATE " 6-Dec-2024 21:30:42" {WMEDLEY}<lispusers>EXAMINEDEFS.;51)
|
||||
:PREVIOUS-DATE "12-Dec-2024 15:09:08" {WMEDLEY}<lispusers>EXAMINEDEFS.;53)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT EXAMINEDEFSCOMS)
|
||||
|
||||
(RPAQQ EXAMINEDEFSCOMS ((FNS EXAMINEDEFS EXAMINEFILES TEDITDEF EXV EXVV)
|
||||
(RPAQQ EXAMINEDEFSCOMS ((FNS EXAMINEDEFS EXAMINEFILES TEDITDEF EXVV)
|
||||
(COMMANDS exv)
|
||||
(INITVARS (EXAMINEDEFS-PROCESS-LIST)
|
||||
(EXAMINEWITH 'COMPARETEXT))
|
||||
(FILES (SYSLOAD)
|
||||
@@ -234,55 +236,41 @@
|
||||
ELSE (PRINTDEF DEF 3 NIL NIL NIL TSTREAM)))
|
||||
TSTREAM])
|
||||
|
||||
(EXV
|
||||
[LAMBDA (NAME TYPE FILE VERSION) (* ; "Edited 6-Dec-2024 21:24 by rmk")
|
||||
|
||||
(* ;; "Compares the current incore version with the definition on version VERSION of FILE. TYPE defaults to functions, FILE defaults to (CAR (WHEREIS)), VERSION defaults to newest.")
|
||||
|
||||
(CL:WHEN (VERSIONP TYPE)
|
||||
(SETQ VERSION TYPE)
|
||||
(SETQ TYPE NIL))
|
||||
|
||||
(* ;; "NAME (VARS) (SOURCE1) (V1) (SOURCE2) (V2) ")
|
||||
|
||||
(CL:UNLESS FILE
|
||||
(CL:WHEN (AND (VERSIONP FILE)
|
||||
(NOT (VERSIONP VERSION)))
|
||||
(SETQ VERSION FILE))
|
||||
(SETQ FILE (OR (CAR (WHEREIS NAME TYPE T))
|
||||
(ERROR "Can't find " FILE " definition of " NAME))))
|
||||
(CL:UNLESS VERSION
|
||||
(SETQ VERSION 'NEWEST))
|
||||
(SETQ FILE (FINDFILEVERSION FILE VERSION))
|
||||
(EXAMINEDEFS NAME TYPE NIL FILE])
|
||||
|
||||
(EXVV
|
||||
[LAMBDA (NAME TYPE FILE VERSION1 VERSION2) (* ; "Edited 12-Dec-2024 15:09 by rmk")
|
||||
[LAMBDA (NAME TYPE FILE VERSION1 VERSION2) (* ; "Edited 20-Jan-2025 21:56 by rmk")
|
||||
(* ; "Edited 12-Dec-2024 15:09 by rmk")
|
||||
|
||||
(* ;; "Compares the definitions of NAME as TYPE on 2 different versions of FILE. TYPE and FILE can be elided, defaulting to NIL and WHEREIS respectively. Versions default to newest.")
|
||||
|
||||
(* ;; "(EXVV 'FOO -1 -2) will compare the newest and second-newest function definitions of FOO")
|
||||
(* ;; "If only one version specification, compares with the current (like the EXV command)")
|
||||
|
||||
(if (AND (VERSIONP VERSION1)
|
||||
(VERSIONP VERSION2))
|
||||
elseif (VERSIONP TYPE)
|
||||
then (SETQ VERSION1 TYPE)
|
||||
(SETQ TYPE NIL)
|
||||
(CL:WHEN (VERSIONP FILE)
|
||||
(SETQ VERSION2 FILE)
|
||||
(SETQ FILE NIL))
|
||||
elseif (VERSIONP FILE)
|
||||
then (CL:WHEN (VERSIONP VERSION1)
|
||||
(SETQ VERSION2 VERSION1))
|
||||
(SETQ VERSION1 FILE)
|
||||
(SETQ FILE NIL))
|
||||
(* ;; "(EXVV 'FOO -1 -2) will compare the newest and second-newest function definitions of FOO.")
|
||||
|
||||
(CL:UNLESS (AND (VERSIONP VERSION1)
|
||||
(VERSIONP VERSION2)) (* ; "Both versions, arguments are good")
|
||||
(if (VERSIONP TYPE)
|
||||
then (SETQ VERSION1 TYPE) (* ; "TYPE and FILE are NIL")
|
||||
(SETQ TYPE NIL)
|
||||
(CL:WHEN (VERSIONP FILE)
|
||||
(SETQ VERSION2 FILE)
|
||||
(SETQ FILE NIL))
|
||||
elseif (VERSIONP FILE)
|
||||
then (CL:WHEN (VERSIONP VERSION1) (* ; "Type is good, FILE is NIL")
|
||||
(SETQ VERSION2 VERSION1))
|
||||
(SETQ VERSION1 FILE)
|
||||
(SETQ FILE NIL)))
|
||||
(CL:UNLESS FILE
|
||||
(SETQ FILE (OR (CAR (WHEREIS NAME TYPE T))
|
||||
(SETQ FILE (OR (CAR (WHEREIS NAME (OR TYPE '(FNS FUNCTIONS))
|
||||
T))
|
||||
(ERROR "Can't find " FILE " definition of " NAME))))
|
||||
(EXAMINEDEFS NAME TYPE (FINDFILEVERSION FILE (OR VERSION1 -1))
|
||||
(FINDFILEVERSION FILE (OR VERSION2 -1])
|
||||
(if (AND VERSION1 VERSION2)
|
||||
then (EXAMINEDEFS NAME TYPE (FINDFILEVERSION FILE VERSION1)
|
||||
(FINDFILEVERSION FILE VERSION2))
|
||||
else (EXAMINEDEFS NAME TYPE NIL (FINDFILEVERSION FILE (OR VERSION1 VERSION2 -1])
|
||||
)
|
||||
|
||||
(DEFCOMMAND exv (NAME TYPE FILE VERSION) (EXVV NAME TYPE FILE VERSION))
|
||||
|
||||
(RPAQ? EXAMINEDEFS-PROCESS-LIST )
|
||||
|
||||
(RPAQ? EXAMINEWITH 'COMPARETEXT)
|
||||
@@ -290,6 +278,6 @@
|
||||
(FILESLOAD (SYSLOAD)
|
||||
COMPARETEXT VERSIONDEFS)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (664 16288 (EXAMINEDEFS 674 . 10603) (EXAMINEFILES 10605 . 12087) (TEDITDEF 12089 .
|
||||
14255) (EXV 14257 . 15125) (EXVV 15127 . 16286)))))
|
||||
(FILEMAP (NIL (736 16121 (EXAMINEDEFS 746 . 10675) (EXAMINEFILES 10677 . 12159) (TEDITDEF 12161 .
|
||||
14327) (EXVV 14329 . 16119)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "12-Dec-2024 15:07:45" {WMEDLEY}<lispusers>VERSIONDEFS.;11 6270
|
||||
(FILECREATED "27-Jan-2025 08:49:34" {WMEDLEY}<lispusers>VERSIONDEFS.;12 5880
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (VARS VERSIONDEFSCOMS)
|
||||
:CHANGES-TO (FNS GETVINFO)
|
||||
|
||||
:PREVIOUS-DATE " 6-Dec-2024 22:12:48" {WMEDLEY}<lispusers>VERSIONDEFS.;10)
|
||||
:PREVIOUS-DATE "12-Dec-2024 15:07:45" {WMEDLEY}<lispusers>VERSIONDEFS.;11)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT VERSIONDEFSCOMS)
|
||||
@@ -14,7 +14,7 @@
|
||||
(RPAQQ VERSIONDEFSCOMS [(FNS FINDFILEVERSION GETVINFO VERSIONP)
|
||||
(FNS EDV DFV)
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
||||
(ADDVARS (NLAMA DVV DFV EDV)
|
||||
(ADDVARS (NLAMA DFV EDV)
|
||||
(NLAML)
|
||||
(LAMA])
|
||||
(DEFINEQ
|
||||
@@ -45,17 +45,18 @@
|
||||
then (ERROR (CONCAT "Version " VERSION " of " FILE " not found"])
|
||||
|
||||
(GETVINFO
|
||||
[LAMBDA (NAME TYPE FILE VERSION DIRLIST) (* ; "Edited 6-Dec-2024 21:37 by rmk")
|
||||
[LAMBDA (NAME TYPE FILE VERSION DIRLIST) (* ; "Edited 27-Jan-2025 08:49 by rmk")
|
||||
(* ; "Edited 6-Dec-2024 21:37 by rmk")
|
||||
(* ; "Edited 1-Dec-2024 23:50 by rmk")
|
||||
|
||||
(* ;; "Gets the TYPE definition of NAME from version VERSION of FILE, returns the definition after storing it under an annotated name that the filepkg doesn't see. ")
|
||||
|
||||
(CL:WHEN (VERSIONP TYPE)
|
||||
(SETQ VERSION TYPE)
|
||||
(SETQ TYPE NIL))
|
||||
(CL:WHEN (VERSIONP FILE)
|
||||
(SETQ VERSION FILE)
|
||||
(SETQ FILE NIL))
|
||||
(if (VERSIONP TYPE)
|
||||
then (SETQ VERSION TYPE)
|
||||
(SETQ TYPE NIL)
|
||||
elseif (VERSIONP FILE)
|
||||
then (SETQ VERSION FILE)
|
||||
(SETQ FILE NIL))
|
||||
(CL:UNLESS [OR FILE (SETQ FILE (CAR (WHEREIS NAME TYPE T]
|
||||
(ERROR (CONCAT "File for " NAME " not found")))
|
||||
(CL:UNLESS VERSION
|
||||
@@ -63,7 +64,7 @@
|
||||
(LET ((VFILE (FINDFILEVERSION FILE VERSION DIRLIST))
|
||||
(CONNECTED (DIRECTORYNAME T T))
|
||||
DEF VNAME HOST DIR) (* ; "Don't include the whole path if it's the connected one. Perhaps we should create/return both a short name and a long name")
|
||||
(SETQ DEF (GETDEF NAME TYPE FILE))
|
||||
(SETQ DEF (GETDEF NAME TYPE VFILE))
|
||||
(SETQ HOST (FILENAMEFIELD VFILE 'HOST))
|
||||
(SETQ DIR (FILENAMEFIELD VFILE 'DIRECTORY))
|
||||
(CL:WHEN (STRING.EQUAL HOST (FILENAMEFIELD CONNECTED 'HOST))
|
||||
@@ -130,22 +131,6 @@
|
||||
)
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
||||
|
||||
(ADDTOVAR NLAMA DVV DFV EDV)
|
||||
|
||||
(ADDTOVAR NLAML )
|
||||
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(PRETTYCOMPRINT VERSIONDEFSCOMS)
|
||||
|
||||
(RPAQQ VERSIONDEFSCOMS [(FNS FINDFILEVERSION GETVINFO VERSIONP)
|
||||
(FNS EDV DFV)
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
||||
(ADDVARS (NLAMA DFV EDV)
|
||||
(NLAML)
|
||||
(LAMA])
|
||||
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
|
||||
|
||||
(ADDTOVAR NLAMA DFV EDV)
|
||||
|
||||
(ADDTOVAR NLAML )
|
||||
@@ -153,6 +138,6 @@
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (683 4442 (FINDFILEVERSION 693 . 2140) (GETVINFO 2142 . 4125) (VERSIONP 4127 . 4440)) (
|
||||
4443 5589 (EDV 4453 . 5153) (DFV 5155 . 5587)))))
|
||||
(FILEMAP (NIL (671 4570 (FINDFILEVERSION 681 . 2128) (GETVINFO 2130 . 4253) (VERSIONP 4255 . 4568)) (
|
||||
4571 5717 (EDV 4581 . 5281) (DFV 5283 . 5715)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
28
lispusers/WHICHKEY
Normal file
28
lispusers/WHICHKEY
Normal file
@@ -0,0 +1,28 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "23-Jan-2025 15:47:23" {WMEDLEY}<lispusers>WHICHKEY.;3 1037
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS WHICHKEY)
|
||||
|
||||
:PREVIOUS-DATE "23-Jan-2025 15:46:57" {WMEDLEY}<lispusers>WHICHKEY.;2)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT WHICHKEYCOMS)
|
||||
|
||||
(RPAQQ WHICHKEYCOMS ((FNS DOWNP WHICHKEY)))
|
||||
(DEFINEQ
|
||||
|
||||
(DOWNP
|
||||
[LAMBDA (KEYNAME) (* ; "Edited 19-May-2018 20:03 by rmk:")
|
||||
(PROGN (DISMISS 2000)
|
||||
(KEYDOWNP KEYNAME])
|
||||
|
||||
(WHICHKEY
|
||||
[LAMBDA (DELAY) (* ; "Edited 23-Jan-2025 15:44 by rmk")
|
||||
(* ; "Edited 4-Dec-2023 16:04 by rmk")
|
||||
(* ; "Edited 18-May-2018 13:09 by rmk:")
|
||||
(PROGN (DISMISS (OR DELAY 3000))
|
||||
(for X IN \KEYNAMES when (KEYDOWNP (CAR X)) collect X])
|
||||
)
|
||||
9
scripts/find-orphaned-versions.sh
Executable file
9
scripts/find-orphaned-versions.sh
Executable file
@@ -0,0 +1,9 @@
|
||||
#/bin/sh
|
||||
# $1 is a versioned file name
|
||||
|
||||
ver="$1"
|
||||
base="${ver%%.~[1-9]*~}"
|
||||
if [ ! -f "$base" ]; then
|
||||
echo "Orphaned version: $ver but no $base"
|
||||
fi
|
||||
|
||||
15
scripts/install-repo-checks.sh
Executable file
15
scripts/install-repo-checks.sh
Executable file
@@ -0,0 +1,15 @@
|
||||
#!/bin/sh
|
||||
|
||||
# install checks for repository, meant to run post-checkout
|
||||
|
||||
# For now, this just checks for orphaned versions.
|
||||
|
||||
|
||||
rm -f .git/hooks/post-checkout
|
||||
cp scripts/post-checkout .git/hooks/post-checkout &&
|
||||
chmod -x .git/hooks/post-checkout &&
|
||||
echo copy made: &&
|
||||
ls -l .git/hooks/post-checkout &&
|
||||
exit 0
|
||||
|
||||
exit 1
|
||||
16
scripts/post-checkout
Executable file
16
scripts/post-checkout
Executable file
@@ -0,0 +1,16 @@
|
||||
#!/bin/bash
|
||||
|
||||
# Get the parameters
|
||||
previous_head=$1
|
||||
new_head=$2
|
||||
is_branch_checkout=$3
|
||||
|
||||
# Print some info
|
||||
echo "Checkout complete!"
|
||||
# echo "Previous HEAD: $previous_head"
|
||||
# echo "New HEAD: $new_head"
|
||||
# echo "Branch checkout: $is_branch_checkout"
|
||||
|
||||
if [[ "$is_branch_checkout" == "1" ]]; then
|
||||
find . -name "*.~[1-9]*~" -exec ./scripts/find-orphaned-versions.sh {} \;
|
||||
fi
|
||||
3
scripts/post-checkout.sh
Executable file
3
scripts/post-checkout.sh
Executable file
@@ -0,0 +1,3 @@
|
||||
#/bin/sh
|
||||
|
||||
find . -name "*.~[1-9]*~" -exec if \[ ! -f {}:h \]\; then echo "{}" " with no versionless" \;
|
||||
44
sources/ADIR
44
sources/ADIR
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "31-Dec-2024 11:45:01" {WMEDLEY}<sources>ADIR.;59 69831
|
||||
(FILECREATED "20-Jan-2025 13:37:28" {DSK}<Users>briggs>Projects>medley>sources>ADIR.;48 70144
|
||||
|
||||
:EDIT-BY rmk
|
||||
:EDIT-BY "briggs"
|
||||
|
||||
:CHANGES-TO (VARS ADIRCOMS)
|
||||
:CHANGES-TO (FNS \LOGOUT0 LOGOUT)
|
||||
|
||||
:PREVIOUS-DATE "25-Dec-2024 11:31:30" {WMEDLEY}<sources>ADIR.;58)
|
||||
:PREVIOUS-DATE "31-Dec-2024 11:45:01" {DSK}<Users>briggs>Projects>medley>sources>ADIR.;47)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT ADIRCOMS)
|
||||
@@ -287,10 +287,11 @@
|
||||
(RETURN T)))])
|
||||
|
||||
(\LOGOUT0
|
||||
[LAMBDA (FAST) (* ; "Edited 21-Mar-2021 21:13 by larry")
|
||||
[LAMBDA (FAST STATUS) (* ; "Edited 20-Jan-2025 13:34 by briggs")
|
||||
(* ; "Edited 21-Mar-2021 21:13 by larry")
|
||||
(OR (AND (NOT FAST)
|
||||
(\FLUSHVM))
|
||||
(SUBRCALL LISPFINISH FAST])
|
||||
(\FLUSHVM))
|
||||
(SUBRCALL LISPFINISH FAST STATUS])
|
||||
)
|
||||
(DECLARE%: EVAL@COMPILE
|
||||
|
||||
@@ -1067,16 +1068,17 @@
|
||||
(DEFINEQ
|
||||
|
||||
(LOGOUT
|
||||
[LAMBDA (FAST) (* ; "Edited 15-Mar-2021 11:53 by larry")
|
||||
[LAMBDA (FAST STATUS) (* ; "Edited 20-Jan-2025 13:36 by briggs")
|
||||
(* ; "Edited 15-Mar-2021 11:53 by larry")
|
||||
(\USEREVENT 'BEFORELOGOUT)
|
||||
(OR (EQ FAST T)
|
||||
(\FLUSHVMOK? 'LOGOUT)) (* ;
|
||||
"Check that we have a vmem file before allowing LOGOUT")
|
||||
"Check that we have a vmem file before allowing LOGOUT")
|
||||
(\PROCESS.BEFORE.LOGOUT)
|
||||
(\DEVICEEVENT 'BEFORELOGOUT)
|
||||
(\SETTOTALTIME) (* ;
|
||||
"update the total time that this sysout has been running.")
|
||||
(\LOGOUT0 FAST)
|
||||
"update the total time that this sysout has been running.")
|
||||
(\LOGOUT0 FAST STATUS)
|
||||
|
||||
(* ;; "Must re-establish the state of devices and of previously open files that might have been modified at the EXEC.")
|
||||
|
||||
@@ -1280,14 +1282,14 @@
|
||||
(ADDTOVAR LAMA PACKFILENAME.STRING PACKFILENAME)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (3164 15867 (DELFILE 3174 . 3335) (FULLNAME 3337 . 3704) (INFILE 3706 . 3965) (INFILEP
|
||||
3967 . 4102) (IOFILE 4104 . 4355) (OPENFILE 4357 . 4660) (OPENSTREAM 4662 . 9002) (OUTFILE 9004 . 9266
|
||||
) (OUTFILEP 9268 . 9404) (RENAMEFILE 9406 . 9712) (SIMPLE.FINDFILE 9714 . 10124) (VMEMSIZE 10126 .
|
||||
10293) (\COPYSYS 10295 . 14586) (\FLUSHVM 14588 . 15660) (\LOGOUT0 15662 . 15865)) (16366 41026 (
|
||||
UNPACKFILENAME.STRING 16376 . 38212) (\UPF.DIRECTORY 38214 . 41024)) (42554 44860 (UNPACKFILENAME
|
||||
42564 . 42750) (LASTCHPOS 42752 . 43446) (FILENAMEFIELD 43448 . 43742) (FILENAMEFIELD.STRING 43744 .
|
||||
44148) (PACKFILENAME 44150 . 44493) (PACKFILENAME.STRING 44495 . 44858)) (59330 60243 (
|
||||
FILEDIRCASEARRAY 59340 . 60241)) (60410 67590 (LOGOUT 60420 . 61337) (MAKESYS 61339 . 62968) (SYSOUT
|
||||
62970 . 64522) (SAVEVM 64524 . 65324) (HERALD 65326 . 65486) (INTERPRET.REM.CM 65488 . 67213) (
|
||||
\USEREVENT 67215 . 67588)) (67772 69499 (USERNAME 67782 . 68738) (SETUSERNAME 68740 . 69497)))))
|
||||
(FILEMAP (NIL (3225 16052 (DELFILE 3235 . 3396) (FULLNAME 3398 . 3765) (INFILE 3767 . 4026) (INFILEP
|
||||
4028 . 4163) (IOFILE 4165 . 4416) (OPENFILE 4418 . 4721) (OPENSTREAM 4723 . 9063) (OUTFILE 9065 . 9327
|
||||
) (OUTFILEP 9329 . 9465) (RENAMEFILE 9467 . 9773) (SIMPLE.FINDFILE 9775 . 10185) (VMEMSIZE 10187 .
|
||||
10354) (\COPYSYS 10356 . 14647) (\FLUSHVM 14649 . 15721) (\LOGOUT0 15723 . 16050)) (16551 41211 (
|
||||
UNPACKFILENAME.STRING 16561 . 38397) (\UPF.DIRECTORY 38399 . 41209)) (42739 45045 (UNPACKFILENAME
|
||||
42749 . 42935) (LASTCHPOS 42937 . 43631) (FILENAMEFIELD 43633 . 43927) (FILENAMEFIELD.STRING 43929 .
|
||||
44333) (PACKFILENAME 44335 . 44678) (PACKFILENAME.STRING 44680 . 45043)) (59515 60428 (
|
||||
FILEDIRCASEARRAY 59525 . 60426)) (60595 67903 (LOGOUT 60605 . 61650) (MAKESYS 61652 . 63281) (SYSOUT
|
||||
63283 . 64835) (SAVEVM 64837 . 65637) (HERALD 65639 . 65799) (INTERPRET.REM.CM 65801 . 67526) (
|
||||
\USEREVENT 67528 . 67901)) (68085 69812 (USERNAME 68095 . 69051) (SETUSERNAME 69053 . 69810)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user