Compare commits
5 Commits
rmk189--In
...
rmk184--Fi
| Author | SHA1 | Date | |
|---|---|---|---|
|
1131ebe1cc | ||
|
|
9fa7738e58 | ||
|
|
b69a50a1e0 | ||
|
|
1c877f35d8 | ||
|
|
35d4ebba5a |
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED " 1-May-2026 08:15:56" {MEDLEY}<library>tedit>TEDIT-STREAM.;956 190971
|
||||
(FILECREATED "10-May-2026 13:26:30" {MEDLEY}<library>TEDIT>TEDIT-STREAM.;957 191002
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (RECORDS PIECE)
|
||||
:CHANGES-TO (FNS \TEDIT.OPENTEXTFILE)
|
||||
|
||||
:PREVIOUS-DATE "26-Apr-2026 23:46:38" {MEDLEY}<library>tedit>TEDIT-STREAM.;955)
|
||||
:PREVIOUS-DATE " 1-May-2026 08:15:56" {MEDLEY}<library>TEDIT>TEDIT-STREAM.;956)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT TEDIT-STREAMCOMS)
|
||||
@@ -1642,7 +1642,8 @@
|
||||
(SETTOBJ TEXTOBJ DEFAULTPARALOOKS PARALOOKS])
|
||||
|
||||
(\TEDIT.OPENTEXTFILE
|
||||
[LAMBDA (TEXT PROPS ERROR) (* ; "Edited 2-Dec-2025 17:49 by rmk")
|
||||
[LAMBDA (TEXT PROPS ERROR) (* ; "Edited 10-May-2026 12:57 by rmk")
|
||||
(* ; "Edited 2-Dec-2025 17:49 by rmk")
|
||||
(* ; "Edited 16-Sep-2025 00:28 by rmk")
|
||||
(* ; "Edited 8-Sep-2025 21:52 by rmk")
|
||||
(* ; "Edited 21-Nov-2024 11:38 by rmk")
|
||||
@@ -1658,16 +1659,15 @@
|
||||
(STRINGP TEXT)
|
||||
(CL:PATHNAMEP TEXT)
|
||||
(STREAMP TEXT))
|
||||
(CAR (NLSETQ (OPENSTREAM (if (STREAMP TEXT)
|
||||
elseif (CL:PATHNAMEP TEXT)
|
||||
then (FINDFILE TEXT T)
|
||||
elseif (FINDFILE-WITH-EXTENSIONS TEXT NIL
|
||||
*TEDIT-EXTENSIONS*)
|
||||
else TEXT)
|
||||
(CAR (NLSETQ (OPENSTREAM (OR (STREAMP TEXT)
|
||||
(AND (CL:PATHNAMEP TEXT)
|
||||
(FINDFILE TEXT T))
|
||||
(FINDFILE-WITH-EXTENSIONS TEXT NIL
|
||||
*TEDIT-EXTENSIONS*)
|
||||
TEXT)
|
||||
'INPUT
|
||||
'OLD
|
||||
`((TYPE TEXT)
|
||||
(FORMAT ,(LISTGET PROPS 'FORMAT]
|
||||
`((FORMAT ,(LISTGET PROPS 'FORMAT]
|
||||
elseif ERROR
|
||||
then (ERROR "File not found:" TEXT)))])
|
||||
|
||||
@@ -3084,33 +3084,33 @@
|
||||
(ADDTOVAR LAMA TEXTPROP)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (36156 66033 (\TEDIT.TEXTBIN 36166 . 46068) (\TEDIT.TEXTPEEKBIN 46070 . 51495) (
|
||||
\TEDIT.TEXTBACKFILEPTR 51497 . 57204) (\TEDIT.TEXTBOUT 57206 . 61823) (\TEDIT.INSTALL.FILEBUFFER 61825
|
||||
. 66031)) (66931 71222 (\TEDIT.TEXTOUTCHARFN 66941 . 68497) (\TEDIT.TEXTINCCODEFN 68499 . 69238) (
|
||||
\TEDIT.TEXTBACKCCODEFN 69240 . 69832) (\TEDIT.TEXTFORMATBYTESTREAM 69834 . 70671) (
|
||||
\TEDIT.TEXTFORMATBYTESTRING 70673 . 71220)) (71269 83344 (OPENTEXTSTREAM 71279 . 78255) (
|
||||
COPYTEXTSTREAM 78257 . 82567) (TEDIT.STREAMCHANGEDP 82569 . 82871) (TXTFILE 82873 . 83342)) (83345
|
||||
106550 (\TEDIT.REOPENTEXTSTREAM 83355 . 84707) (\TEDIT.OPENTEXTSTREAM.PIECES 84709 . 89637) (
|
||||
\TEDIT.OPENTEXTSTREAM.PROPS 89639 . 90741) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 90743 . 96193) (
|
||||
\TEDIT.OPENTEXTSTREAM.WINDOW 96195 . 98986) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 98988 . 100927) (
|
||||
\TEDIT.OPENTEXTFILE 100929 . 103061) (\TEDIT.CREATE.TEXTSTREAM 103063 . 104210) (\TEDIT.REOPEN.STREAM
|
||||
104212 . 106548)) (106551 114883 (\TEDIT.STREAMINIT 106561 . 114700) (TEDIT.IMAGESTREAM.OPEN 114702 .
|
||||
114881)) (115071 116259 (\TEDIT.TTYBOUT 115081 . 116257)) (116377 138060 (\TEDIT.TEXTCLOSEF 116387 .
|
||||
117711) (\TEDIT.TEXTDSPFONT 117713 . 118911) (\TEDIT.TEXTEOFP 118913 . 120668) (\TEDIT.TEXTGETEOFPTR
|
||||
120670 . 120993) (\TEDIT.TEXTSETEOFPTR 120995 . 122282) (\TEDIT.TEXTGETFILEPTR 122284 . 125119) (
|
||||
\TEDIT.TEXTSETFILEINFO 125121 . 125629) (\TEDIT.TEXTOPENF 125631 . 126562) (\TEDIT.TEXTSETEOF 126564
|
||||
. 127180) (\TEDIT.TEXTSETFILEPTR 127182 . 129292) (\TEDIT.TEXTDSPXPOSITION 129294 . 131997) (
|
||||
\TEDIT.TEXTDSPYPOSITION 131999 . 132740) (\TEDIT.TEXTLEFTMARGIN 132742 . 133333) (\TEDIT.TEXTCOLOR
|
||||
133335 . 133918) (\TEDIT.TEXTRIGHTMARGIN 133920 . 137209) (\TEDIT.TEXTDSPCHARWIDTH 137211 . 137515) (
|
||||
\TEDIT.TEXTDSPSTRINGWIDTH 137517 . 137823) (\TEDIT.TEXTDSPLINEFEED 137825 . 138058)) (138098 150332 (
|
||||
\TEDIT.NTHCHARCODE 138108 . 139634) (\TEDIT.PIECE.NTHCHARCODE 139636 . 143204) (\TEDIT.RPLCHARCODE
|
||||
143206 . 144764) (\TEDIT.PIECE.RPLCHARCODE 144766 . 149977) (\TEDIT.NTHCHARLOOKS 149979 . 150330)) (
|
||||
151379 172254 (\TEDIT.DELETE.SELPIECES 151389 . 155014) (\TEDIT.INSERTCH 155016 . 162821) (
|
||||
\TEDIT.INSERTCH.HISTORY 162823 . 166287) (\TEDIT.INSERTEOL 166289 . 168114) (\TEDIT.INSERTCH.INSERTION
|
||||
168116 . 170953) (\TEDIT.INSERTCH.EXTEND 170955 . 172252)) (172255 173862 (\TEDIT.NEXTCHANGEABLE.CHNO
|
||||
172265 . 172980) (\TEDIT.LASTCHANGEABLE.CHNO 172982 . 173860)) (173863 178652 (\TEDIT.INSTALL.PIECE
|
||||
173873 . 178650)) (178690 188156 (TEXTPROP 178700 . 179047) (GETTEXTPROP 179049 . 179293) (PUTTEXTPROP
|
||||
179295 . 179552) (GETTEXTPROPS 179554 . 179998) (PUTTEXTPROPS 180000 . 180904) (TEXTPROP.ADD 180906
|
||||
. 181169) (\TEDIT.TEXTPROP 181171 . 188154)) (188157 190534 (\TEDIT.TEXTOBJ.PROPNAMES 188167 . 189426
|
||||
) (\TEDIT.TEXTOBJ.PROPFETCHFN 189428 . 189944) (\TEDIT.TEXTOBJ.PROPSTOREFN 189946 . 190532)))))
|
||||
(FILEMAP (NIL (36166 66043 (\TEDIT.TEXTBIN 36176 . 46078) (\TEDIT.TEXTPEEKBIN 46080 . 51505) (
|
||||
\TEDIT.TEXTBACKFILEPTR 51507 . 57214) (\TEDIT.TEXTBOUT 57216 . 61833) (\TEDIT.INSTALL.FILEBUFFER 61835
|
||||
. 66041)) (66941 71232 (\TEDIT.TEXTOUTCHARFN 66951 . 68507) (\TEDIT.TEXTINCCODEFN 68509 . 69248) (
|
||||
\TEDIT.TEXTBACKCCODEFN 69250 . 69842) (\TEDIT.TEXTFORMATBYTESTREAM 69844 . 70681) (
|
||||
\TEDIT.TEXTFORMATBYTESTRING 70683 . 71230)) (71279 83354 (OPENTEXTSTREAM 71289 . 78265) (
|
||||
COPYTEXTSTREAM 78267 . 82577) (TEDIT.STREAMCHANGEDP 82579 . 82881) (TXTFILE 82883 . 83352)) (83355
|
||||
106581 (\TEDIT.REOPENTEXTSTREAM 83365 . 84717) (\TEDIT.OPENTEXTSTREAM.PIECES 84719 . 89647) (
|
||||
\TEDIT.OPENTEXTSTREAM.PROPS 89649 . 90751) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 90753 . 96203) (
|
||||
\TEDIT.OPENTEXTSTREAM.WINDOW 96205 . 98996) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 98998 . 100937) (
|
||||
\TEDIT.OPENTEXTFILE 100939 . 103092) (\TEDIT.CREATE.TEXTSTREAM 103094 . 104241) (\TEDIT.REOPEN.STREAM
|
||||
104243 . 106579)) (106582 114914 (\TEDIT.STREAMINIT 106592 . 114731) (TEDIT.IMAGESTREAM.OPEN 114733 .
|
||||
114912)) (115102 116290 (\TEDIT.TTYBOUT 115112 . 116288)) (116408 138091 (\TEDIT.TEXTCLOSEF 116418 .
|
||||
117742) (\TEDIT.TEXTDSPFONT 117744 . 118942) (\TEDIT.TEXTEOFP 118944 . 120699) (\TEDIT.TEXTGETEOFPTR
|
||||
120701 . 121024) (\TEDIT.TEXTSETEOFPTR 121026 . 122313) (\TEDIT.TEXTGETFILEPTR 122315 . 125150) (
|
||||
\TEDIT.TEXTSETFILEINFO 125152 . 125660) (\TEDIT.TEXTOPENF 125662 . 126593) (\TEDIT.TEXTSETEOF 126595
|
||||
. 127211) (\TEDIT.TEXTSETFILEPTR 127213 . 129323) (\TEDIT.TEXTDSPXPOSITION 129325 . 132028) (
|
||||
\TEDIT.TEXTDSPYPOSITION 132030 . 132771) (\TEDIT.TEXTLEFTMARGIN 132773 . 133364) (\TEDIT.TEXTCOLOR
|
||||
133366 . 133949) (\TEDIT.TEXTRIGHTMARGIN 133951 . 137240) (\TEDIT.TEXTDSPCHARWIDTH 137242 . 137546) (
|
||||
\TEDIT.TEXTDSPSTRINGWIDTH 137548 . 137854) (\TEDIT.TEXTDSPLINEFEED 137856 . 138089)) (138129 150363 (
|
||||
\TEDIT.NTHCHARCODE 138139 . 139665) (\TEDIT.PIECE.NTHCHARCODE 139667 . 143235) (\TEDIT.RPLCHARCODE
|
||||
143237 . 144795) (\TEDIT.PIECE.RPLCHARCODE 144797 . 150008) (\TEDIT.NTHCHARLOOKS 150010 . 150361)) (
|
||||
151410 172285 (\TEDIT.DELETE.SELPIECES 151420 . 155045) (\TEDIT.INSERTCH 155047 . 162852) (
|
||||
\TEDIT.INSERTCH.HISTORY 162854 . 166318) (\TEDIT.INSERTEOL 166320 . 168145) (\TEDIT.INSERTCH.INSERTION
|
||||
168147 . 170984) (\TEDIT.INSERTCH.EXTEND 170986 . 172283)) (172286 173893 (\TEDIT.NEXTCHANGEABLE.CHNO
|
||||
172296 . 173011) (\TEDIT.LASTCHANGEABLE.CHNO 173013 . 173891)) (173894 178683 (\TEDIT.INSTALL.PIECE
|
||||
173904 . 178681)) (178721 188187 (TEXTPROP 178731 . 179078) (GETTEXTPROP 179080 . 179324) (PUTTEXTPROP
|
||||
179326 . 179583) (GETTEXTPROPS 179585 . 180029) (PUTTEXTPROPS 180031 . 180935) (TEXTPROP.ADD 180937
|
||||
. 181200) (\TEDIT.TEXTPROP 181202 . 188185)) (188188 190565 (\TEDIT.TEXTOBJ.PROPNAMES 188198 . 189457
|
||||
) (\TEDIT.TEXTOBJ.PROPFETCHFN 189459 . 189975) (\TEDIT.TEXTOBJ.PROPSTOREFN 189977 . 190563)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "28-Apr-2026 23:41:24" {MEDLEY}<lispusers>COMPAREDIRECTORIES.;289 139726
|
||||
(FILECREATED "11-May-2026 23:08:09" {MEDLEY}<lispusers>COMPAREDIRECTORIES.;293 140080
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS CDFILES.PATS CDFILES.MATCH CDBROWSER-COPY)
|
||||
:CHANGES-TO (FNS CD.COMMANDSELECTEDFN CDFILES CD-MENUFN)
|
||||
|
||||
:PREVIOUS-DATE "28-Apr-2026 21:38:49" {MEDLEY}<lispusers>COMPAREDIRECTORIES.;288)
|
||||
:PREVIOUS-DATE "10-May-2026 13:03:16" {MEDLEY}<lispusers>COMPAREDIRECTORIES.;290)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT COMPAREDIRECTORIESCOMS)
|
||||
@@ -410,7 +410,8 @@
|
||||
(DEFINEQ
|
||||
|
||||
(CDFILES
|
||||
[LAMBDA (DIR INCLUDEDFILES EXCLUDEDFILES ALLVERSIONS DEPTH)(* ; "Edited 20-Oct-2025 23:25 by rmk")
|
||||
[LAMBDA (DIR INCLUDEDFILES EXCLUDEDFILES ALLVERSIONS DEPTH)(* ; "Edited 11-May-2026 13:06 by rmk")
|
||||
(* ; "Edited 20-Oct-2025 23:25 by rmk")
|
||||
(* ; "Edited 17-Jun-2023 23:04 by rmk")
|
||||
(* ; "Edited 3-Oct-2022 12:03 by rmk")
|
||||
(* ; "Edited 25-Apr-2022 08:42 by rmk")
|
||||
@@ -453,7 +454,8 @@
|
||||
(* ;; "ENUMPAT is the single pattern that we use for the directory enumeration (given the enumeration depth). We have to go to the most general specification, then filter the generated results.")
|
||||
|
||||
(FOR P (N _ (CAAR INCLUDES))
|
||||
(E _ (CADAR INCLUDES))
|
||||
(E _ (OR (CADAR INCLUDES)
|
||||
""))
|
||||
(SD _ (CADDAR INCLUDES)) IN (CDR INCLUDES)
|
||||
DO (CL:UNLESS (EQ '* N)
|
||||
(SETQ N (POP P)))
|
||||
@@ -1903,7 +1905,8 @@
|
||||
'DON'T])
|
||||
|
||||
(CD.COMMANDSELECTEDFN
|
||||
[LAMBDA (MENUITEM MENU KEY) (* ; "Edited 28-Oct-2025 14:34 by rmk")
|
||||
[LAMBDA (MENUITEM MENU KEY) (* ; "Edited 11-May-2026 23:07 by rmk")
|
||||
(* ; "Edited 28-Oct-2025 14:34 by rmk")
|
||||
(* ; "Edited 6-Mar-2022 19:52 by rmk")
|
||||
(* ; "Edited 24-Feb-2022 19:52 by rmk")
|
||||
(* ; "Edited 5-Feb-2022 17:23 by rmk")
|
||||
@@ -1922,7 +1925,7 @@
|
||||
(PWINDOW (GETPROMPTWINDOW WINDOW))
|
||||
(CDBROWSER (WINDOWPROP WINDOW 'TABLEBROWSER))
|
||||
(USERDATA (TB.USERDATA CDBROWSER))
|
||||
(CDVALUE (LISTGET USERDATA 'CDVALUE))
|
||||
(CDVALUE (CDR (ASSOC 'CDVALUE USERDATA)))
|
||||
(FN (CADR (LISTP MENUITEM)))
|
||||
(MIDDLE (EQ KEY 'MIDDLE]
|
||||
(DECLARE (SPECVARS WINDOW PWINDOW CDVALUE USERDATA))
|
||||
@@ -1949,7 +1952,7 @@
|
||||
(FETCH (CDENTRY INFO2) OF CDENTRY)))
|
||||
(TYPE (FETCH (CDINFO TYPE) OF (FETCH (CDENTRY INFO1)
|
||||
OF CDENTRY)))
|
||||
(LABELS (APPLY* (OR (LISTGET USERDATA 'LABELFN)
|
||||
(LABELS (APPLY* (OR (CDR (ASSOC 'LABELFN USERDATA))
|
||||
(FUNCTION NILL))
|
||||
FILE1 FILE2 USERDATA))
|
||||
(LABEL1 (OR (CAR LABELS)
|
||||
@@ -1991,6 +1994,10 @@
|
||||
(CD-MENUFN
|
||||
[LAMBDA (TBITEM MENUITEM CDBROWSER KEY)
|
||||
|
||||
(* ;; "Edited 11-May-2026 13:07 by rmk")
|
||||
|
||||
(* ;; "Edited 10-May-2026 13:02 by rmk")
|
||||
|
||||
(* ;; "Edited 10-Feb-2026 21:28 by rmk")
|
||||
|
||||
(* ;; "Edited 8-Nov-2025 13:06 by rmk")
|
||||
@@ -2021,15 +2028,15 @@
|
||||
CHILDREN)
|
||||
(SETQ CHILDREN
|
||||
(SELECTQ MENUITEM
|
||||
(Compare (IF (AND FILE1 FILE2)
|
||||
THEN (CD-COMPARE-FILES FILE1 FILE2 LABEL1 LABEL2 TYPE (WINDOWPROP
|
||||
(Compare (if (AND FILE1 FILE2)
|
||||
then (CD-COMPARE-FILES FILE1 FILE2 LABEL1 LABEL2 TYPE (WINDOWPROP
|
||||
WINDOW
|
||||
'REGION)
|
||||
CDBROWSER)
|
||||
ELSE (FLASHWINDOW T)
|
||||
else (FLASHWINDOW T)
|
||||
(PRIN3 "Only one file" T)))
|
||||
(See% left (IF FILE1
|
||||
THEN (if (PDFFILEP FILE1)
|
||||
(See% left (if FILE1
|
||||
then (if (PDFFILEP FILE1)
|
||||
then (SEE-PDF FILE1)
|
||||
else (TEDIT-SEE FILE1 (RELCREATEREGION
|
||||
(CL:IF (LISPSOURCEFILEP FILE1)
|
||||
@@ -2039,17 +2046,17 @@
|
||||
'RIGHT
|
||||
'TOP
|
||||
`(,WINDOW 0.5)
|
||||
(IPLUS (FETCH (REGION BOTTOM)
|
||||
OF (WINDOWPROP WINDOW
|
||||
(IPLUS (fetch (REGION BOTTOM)
|
||||
of (WINDOWPROP WINDOW
|
||||
'REGION))
|
||||
-1)
|
||||
T)
|
||||
NIL
|
||||
(CONCAT "SEE window for " LABEL1)))
|
||||
ELSE (FLASHWINDOW T)
|
||||
else (FLASHWINDOW T)
|
||||
(PRIN3 "No file to print" T)))
|
||||
(See% right (IF FILE2
|
||||
THEN (if (PDFFILEP FILE2)
|
||||
(See% right (if FILE2
|
||||
then (if (PDFFILEP FILE2)
|
||||
then (SEE-PDF FILE2)
|
||||
else (TEDIT-SEE FILE2 (RELCREATEREGION
|
||||
(CL:IF (LISPSOURCEFILEP FILE2)
|
||||
@@ -2059,17 +2066,17 @@
|
||||
'LEFT
|
||||
'TOP
|
||||
`(,WINDOW 0.5)
|
||||
(IPLUS (FETCH (REGION BOTTOM)
|
||||
OF (WINDOWPROP WINDOW
|
||||
(IPLUS (fetch (REGION BOTTOM)
|
||||
of (WINDOWPROP WINDOW
|
||||
'REGION))
|
||||
-1)
|
||||
NIL)
|
||||
NIL
|
||||
(CONCAT "SEE window for " LABEL2)))
|
||||
ELSE (FLASHWINDOW T)
|
||||
else (FLASHWINDOW T)
|
||||
(PRIN3 "No file to print" T)))
|
||||
((See See% both)
|
||||
(IF (AND FILE1 (PDFFILEP FILE1))
|
||||
(if (AND FILE1 (PDFFILEP FILE1))
|
||||
then (SEE-PDF FILE1)
|
||||
(CL:WHEN (AND FILE2 (PDFFILEP FILE2))
|
||||
(SEE-PDF FILE2))
|
||||
@@ -2083,7 +2090,7 @@
|
||||
'LEFT
|
||||
'TOP
|
||||
`(,WINDOW 0.5 -701)
|
||||
(IPLUS (FETCH (REGION BOTTOM) OF (WINDOWPROP WINDOW
|
||||
(IPLUS (fetch (REGION BOTTOM) of (WINDOWPROP WINDOW
|
||||
'REGION))
|
||||
-1)
|
||||
NIL))))
|
||||
@@ -2337,25 +2344,25 @@
|
||||
|
||||
(MOVD? 'NILL 'TEDIT.FILEDATE)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (2683 23662 (COMPAREDIRECTORIES 2693 . 8028) (COMPAREDIRECTORIES.INFOS 8030 . 11259) (
|
||||
COMPAREDIRECTORIES.CANDIDATES 11261 . 14646) (CDENTRIES.SELECT 14648 . 19550) (
|
||||
COMPAREDIRECTORIES.INFOS.TYPE 19552 . 20896) (MATCHNAME 20898 . 21578) (CD.INSURECDVALUE 21580 . 23194
|
||||
) (CD.UPDATEWIDTHS 23196 . 23660)) (23663 34971 (CDFILES 23673 . 29770) (CDFILES.MATCH 29772 . 31782)
|
||||
(CDFILES.PATS 31784 . 34969)) (34972 52990 (CDPRINT 34982 . 37499) (CDPRINT.HEADER 37501 . 38398) (
|
||||
CDPRINT.LINE 38400 . 41829) (CDPRINT.MAXWIDTHS 41831 . 45946) (CDPRINT.COLHEADERS 45948 . 47233) (
|
||||
CDPRINT.COLUMNS 47235 . 52355) (CDTEDIT 52357 . 52988)) (52991 62112 (CDMAP 53001 . 54433) (CDENTRY
|
||||
54435 . 54744) (CDSUBSET 54746 . 56185) (CDMERGE 56187 . 60171) (CDMERGE.COMMON 60173 . 61488) (
|
||||
CD.SORT 61490 . 62110)) (62113 69651 (BINCOMP 62123 . 66412) (EOLTYPE 66414 . 68976) (EOLTYPE.SHOW
|
||||
68978 . 69649)) (70179 82706 (FIND-UNCOMPILED-FILES 70189 . 73832) (FIND-UNSOURCED-FILES 73834 . 76218
|
||||
) (FIND-SOURCE-FILES 76220 . 77958) (FIND-COMPILED-FILES 77960 . 79837) (FIND-UNLOADED-FILES 79839 .
|
||||
80692) (FIND-LOADED-FILES 80694 . 81122) (FIND-MULTICOMPILED-FILES 81124 . 82704)) (82707 91138 (
|
||||
CREATED-AS 82717 . 87514) (SOURCE-FOR-COMPILED-P 87516 . 90443) (COMPILE-SOURCE-DATE-DIFF 90445 .
|
||||
91136)) (91139 101902 (FIX-DIRECTORY-DATES 91149 . 94599) (FIX-EQUIV-DATES 94601 . 96126) (
|
||||
COPY-COMPARED-FILES 96128 . 97949) (COPY-MISSING-FILES 97951 . 100108) (COMPILED-ON-SAME-SOURCE 100110
|
||||
. 101900)) (102096 109974 (CDBROWSER 102106 . 106073) (CDBROWSER.STRINGS 106075 . 109972)) (110136
|
||||
111872 (CD.TABLEITEM 110146 . 110366) (CD.TABLEITEM.PRINTFN 110368 . 110567) (CD.TABLEITEM.COPYFN
|
||||
110569 . 111627) (CDTABLEBROWSER.HEADING.REPAINTFN 111629 . 111870)) (111873 139210 (
|
||||
CDTABLEBROWSER.WHENSELECTEDFN 111883 . 112351) (CD.COMMANDSELECTEDFN 112353 . 118526) (CD-MENUFN
|
||||
118528 . 125005) (CD-COMPARE-FILES 125007 . 128534) (CDBROWSER-COPY 128536 . 134084) (
|
||||
CDBROWSER-DELETE-FILE 134086 . 138689) (CD-SWAPDIRS 138691 . 139208)))))
|
||||
(FILEMAP (NIL (2680 23659 (COMPAREDIRECTORIES 2690 . 8025) (COMPAREDIRECTORIES.INFOS 8027 . 11256) (
|
||||
COMPAREDIRECTORIES.CANDIDATES 11258 . 14643) (CDENTRIES.SELECT 14645 . 19547) (
|
||||
COMPAREDIRECTORIES.INFOS.TYPE 19549 . 20893) (MATCHNAME 20895 . 21575) (CD.INSURECDVALUE 21577 . 23191
|
||||
) (CD.UPDATEWIDTHS 23193 . 23657)) (23660 35108 (CDFILES 23670 . 29907) (CDFILES.MATCH 29909 . 31919)
|
||||
(CDFILES.PATS 31921 . 35106)) (35109 53127 (CDPRINT 35119 . 37636) (CDPRINT.HEADER 37638 . 38535) (
|
||||
CDPRINT.LINE 38537 . 41966) (CDPRINT.MAXWIDTHS 41968 . 46083) (CDPRINT.COLHEADERS 46085 . 47370) (
|
||||
CDPRINT.COLUMNS 47372 . 52492) (CDTEDIT 52494 . 53125)) (53128 62249 (CDMAP 53138 . 54570) (CDENTRY
|
||||
54572 . 54881) (CDSUBSET 54883 . 56322) (CDMERGE 56324 . 60308) (CDMERGE.COMMON 60310 . 61625) (
|
||||
CD.SORT 61627 . 62247)) (62250 69788 (BINCOMP 62260 . 66549) (EOLTYPE 66551 . 69113) (EOLTYPE.SHOW
|
||||
69115 . 69786)) (70316 82843 (FIND-UNCOMPILED-FILES 70326 . 73969) (FIND-UNSOURCED-FILES 73971 . 76355
|
||||
) (FIND-SOURCE-FILES 76357 . 78095) (FIND-COMPILED-FILES 78097 . 79974) (FIND-UNLOADED-FILES 79976 .
|
||||
80829) (FIND-LOADED-FILES 80831 . 81259) (FIND-MULTICOMPILED-FILES 81261 . 82841)) (82844 91275 (
|
||||
CREATED-AS 82854 . 87651) (SOURCE-FOR-COMPILED-P 87653 . 90580) (COMPILE-SOURCE-DATE-DIFF 90582 .
|
||||
91273)) (91276 102039 (FIX-DIRECTORY-DATES 91286 . 94736) (FIX-EQUIV-DATES 94738 . 96263) (
|
||||
COPY-COMPARED-FILES 96265 . 98086) (COPY-MISSING-FILES 98088 . 100245) (COMPILED-ON-SAME-SOURCE 100247
|
||||
. 102037)) (102233 110111 (CDBROWSER 102243 . 106210) (CDBROWSER.STRINGS 106212 . 110109)) (110273
|
||||
112009 (CD.TABLEITEM 110283 . 110503) (CD.TABLEITEM.PRINTFN 110505 . 110704) (CD.TABLEITEM.COPYFN
|
||||
110706 . 111764) (CDTABLEBROWSER.HEADING.REPAINTFN 111766 . 112007)) (112010 139564 (
|
||||
CDTABLEBROWSER.WHENSELECTEDFN 112020 . 112488) (CD.COMMANDSELECTEDFN 112490 . 118780) (CD-MENUFN
|
||||
118782 . 125359) (CD-COMPARE-FILES 125361 . 128888) (CDBROWSER-COPY 128890 . 134438) (
|
||||
CDBROWSER-DELETE-FILE 134440 . 139043) (CD-SWAPDIRS 139045 . 139562)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED "13-Jun-2024 11:46:26" {WMEDLEY}<lispusers>COMPARESOURCES.;138 40991
|
||||
(FILECREATED "11-May-2026 23:18:13" {MEDLEY}<lispusers>COMPARESOURCES.;141 41025
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS \CS.COMPARE.MASTERS)
|
||||
:CHANGES-TO (FNS CSBROWSER)
|
||||
|
||||
:PREVIOUS-DATE " 7-Feb-2024 16:08:54" {WMEDLEY}<lispusers>COMPARESOURCES.;137)
|
||||
:PREVIOUS-DATE "13-Jun-2024 11:46:26" {MEDLEY}<lispusers>COMPARESOURCES.;138)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT COMPARESOURCESCOMS)
|
||||
@@ -644,6 +644,8 @@
|
||||
(CSBROWSER
|
||||
[LAMBDA (FILE1 FILE2 DW? LABEL1 LABEL2 REGION IGNOREFORMS TITLE)
|
||||
|
||||
(* ;; "Edited 11-May-2026 23:16 by rmk")
|
||||
|
||||
(* ;; "Edited 7-Feb-2024 15:52 by rmk")
|
||||
|
||||
(* ;; "Edited 17-Jun-2023 15:21 by rmk")
|
||||
@@ -678,7 +680,7 @@
|
||||
(CL:UNLESS (LISPSOURCEFILEP FILE2)
|
||||
(ERROR FILE1 " is not a Medley source file"))
|
||||
(CL:UNLESS TITLE
|
||||
(SETQ TITLE (CONCAT "COMPARESOURCES of " LABEL1 " and " LABEL2)))
|
||||
(SETQ TITLE (CONCAT "Compare " LABEL1 " and " LABEL2)))
|
||||
(LET [(WINDOW (OBJ.CREATEW 'VERTICAL REGION TITLE NIL T (FONTPROP DEFAULTFONT 'HEIGHT]
|
||||
(WINDOWPROP WINDOW 'UNDERSCONTRUCTION T)
|
||||
(GETPROMPTWINDOW WINDOW T)
|
||||
@@ -703,17 +705,17 @@
|
||||
)
|
||||
)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1683 26182 (COMPARESOURCES 1693 . 8341) (\CS.COMPARE.MASTERS 8343 . 15981) (
|
||||
\CS.COMPARE.TYPES 15983 . 19249) (\CS.EXAMINE 19251 . 22429) (\CS.FIXFNS 22431 . 23933) (
|
||||
\CS.SORT.DECLARES 23935 . 24278) (\CS.SORT.DECLARE1 24280 . 25700) (\CS.FILTER.GARBAGE 25702 . 26180))
|
||||
(26183 31526 (\CS.ISFNFORM 26193 . 26461) (\CS.COMPARE.FNS 26463 . 26705) (\CS.FNSID 26707 . 26851) (
|
||||
\CS.ISVARFORM 26853 . 26958) (\CS.COMPARE.VARS 26960 . 27622) (\CS.ISMACROFORM 27624 . 27762) (
|
||||
\CS.ISRECFORM 27764 . 28092) (\CS.REC.NAME 28094 . 28413) (\CS.ISCOURIERFORM 28415 . 28515) (
|
||||
\CS.ISTEMPLATEFORM 28517 . 28615) (\CS.COMPARE.TEMPLATES 28617 . 28982) (\CS.ISPROPFORM 28984 . 29139)
|
||||
(\CS.PROP.NAME 29141 . 29286) (\CS.COMPARE.PROPS 29288 . 29445) (\CS.ISADDVARFORM 29447 . 29540) (
|
||||
\CS.COMPARE.ADDVARS 29542 . 29707) (\CS.ISFPKGCOMFORM 29709 . 29916) (\CS.COMPARE.FPKGCOMS 29918 .
|
||||
30125) (\CS.COMPARE.DEFINE-FILE-INFO 30127 . 30717) (\CS.IGNOREFORMS 30719 . 31524)) (31527 37591 (
|
||||
CSOBJ.CREATE 31537 . 31950) (CSOBJ.DISPLAYFN 31952 . 32705) (CSOBJ.IMAGEBOXFN 32707 . 34868) (
|
||||
CSOBJ.BUTTONEVENTINFN 34870 . 37341) (CSOBJ.COPYBUTTONEVENTINFN 37343 . 37589)) (38472 40657 (
|
||||
CSBROWSER 38482 . 40655)))))
|
||||
(FILEMAP (NIL (1671 26170 (COMPARESOURCES 1681 . 8329) (\CS.COMPARE.MASTERS 8331 . 15969) (
|
||||
\CS.COMPARE.TYPES 15971 . 19237) (\CS.EXAMINE 19239 . 22417) (\CS.FIXFNS 22419 . 23921) (
|
||||
\CS.SORT.DECLARES 23923 . 24266) (\CS.SORT.DECLARE1 24268 . 25688) (\CS.FILTER.GARBAGE 25690 . 26168))
|
||||
(26171 31514 (\CS.ISFNFORM 26181 . 26449) (\CS.COMPARE.FNS 26451 . 26693) (\CS.FNSID 26695 . 26839) (
|
||||
\CS.ISVARFORM 26841 . 26946) (\CS.COMPARE.VARS 26948 . 27610) (\CS.ISMACROFORM 27612 . 27750) (
|
||||
\CS.ISRECFORM 27752 . 28080) (\CS.REC.NAME 28082 . 28401) (\CS.ISCOURIERFORM 28403 . 28503) (
|
||||
\CS.ISTEMPLATEFORM 28505 . 28603) (\CS.COMPARE.TEMPLATES 28605 . 28970) (\CS.ISPROPFORM 28972 . 29127)
|
||||
(\CS.PROP.NAME 29129 . 29274) (\CS.COMPARE.PROPS 29276 . 29433) (\CS.ISADDVARFORM 29435 . 29528) (
|
||||
\CS.COMPARE.ADDVARS 29530 . 29695) (\CS.ISFPKGCOMFORM 29697 . 29904) (\CS.COMPARE.FPKGCOMS 29906 .
|
||||
30113) (\CS.COMPARE.DEFINE-FILE-INFO 30115 . 30705) (\CS.IGNOREFORMS 30707 . 31512)) (31515 37579 (
|
||||
CSOBJ.CREATE 31525 . 31938) (CSOBJ.DISPLAYFN 31940 . 32693) (CSOBJ.IMAGEBOXFN 32695 . 34856) (
|
||||
CSOBJ.BUTTONEVENTINFN 34858 . 37329) (CSOBJ.COPYBUTTONEVENTINFN 37331 . 37577)) (38460 40691 (
|
||||
CSBROWSER 38470 . 40689)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
@@ -1,14 +1,12 @@
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
|
||||
|
||||
(FILECREATED "29-Apr-2026 12:51:53" {MEDLEY}<lispusers>GITFNS.;592 137200
|
||||
(FILECREATED "11-May-2026 23:07:30" {MEDLEY}<lispusers>GITFNS.;593 137624
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:CHANGES-TO (FNS GIT-GWC-COMMAND)
|
||||
(COMMANDS gwc)
|
||||
(VARS GITFNSCOMS)
|
||||
:CHANGES-TO (FNS GIT-CD-LABELFN)
|
||||
|
||||
:PREVIOUS-DATE "29-Apr-2026 09:00:33" {MEDLEY}<lispusers>GITFNS.;588)
|
||||
:PREVIOUS-DATE "29-Apr-2026 12:51:53" {MEDLEY}<lispusers>GITFNS.;592)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT GITFNSCOMS)
|
||||
@@ -2215,21 +2213,29 @@
|
||||
NIL)))])
|
||||
|
||||
(GIT-CD-LABELFN
|
||||
[LAMBDA (FILE1 FILE2 USERDATA) (* ; "Edited 5-Jan-2022 15:10 by rmk")
|
||||
[LAMBDA (FILE1 FILE2 USERDATA) (* ; "Edited 11-May-2026 23:02 by rmk")
|
||||
(* ; "Edited 5-Jan-2022 15:10 by rmk")
|
||||
(* ; "Edited 16-Dec-2021 12:25 by rmk")
|
||||
(* ; "Edited 13-Dec-2021 22:13 by rmk")
|
||||
(DECLARE (USEDFREE CDVALUE))
|
||||
(LET (NC B LABEL1 LABEL2)
|
||||
(LET ((CDVALUE (CDR (ASSOC 'CDVALUE USERDATA)))
|
||||
NC B LABEL1 LABEL2 POS)
|
||||
(CL:WHEN (SETQ NC (FETCH NCDIR OF (FETCH CDMAXNC1 OF CDVALUE)))
|
||||
(SETQ LABEL1 (SLASHIT (SUBSTRING FILE1 (ADD1 NC))
|
||||
T))
|
||||
(CL:WHEN (SETQ B (LISTGET USERDATA 'BRANCH1))
|
||||
(SETQ LABEL1 (CONCAT B "/" LABEL1))))
|
||||
T T))
|
||||
(CL:WHEN (SETQ B (CDR (ASSOC 'BRANCH1 USERDATA)))
|
||||
(SETQ LABEL1 (CONCAT (SUBSTRING B 1 (SUB1 (OR (STRPOS "--" B NIL T)
|
||||
0)))
|
||||
"/" LABEL1))))
|
||||
(CL:WHEN (SETQ NC (FETCH NCDIR OF (FETCH CDMAXNC2 OF CDVALUE)))
|
||||
(SETQ LABEL2 (SLASHIT (SUBSTRING FILE2 (ADD1 NC))
|
||||
T))
|
||||
(CL:WHEN (SETQ B (LISTGET USERDATA 'BRANCH2))
|
||||
(SETQ LABEL2 (CONCAT B "/" LABEL2))))
|
||||
T T))
|
||||
(CL:WHEN (SETQ B (CDR (ASSOC 'BRANCH2 USERDATA)))
|
||||
|
||||
(* ;; "rmk184--xxx -> rmk184")
|
||||
|
||||
(SETQ LABEL2 (CONCAT (SUBSTRING B 1 (SUB1 (OR (STRPOS "--" B NIL T)
|
||||
0)))
|
||||
"/" LABEL2))))
|
||||
(LIST (OR LABEL1 FILE1)
|
||||
(OR LABEL2 FILE2])
|
||||
|
||||
@@ -2470,33 +2476,33 @@
|
||||
|
||||
(PUTPROPS GITFNS FILETYPE :TCOMPL)
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (4257 21537 (GIT-CLONEP 4267 . 5698) (GIT-INIT 5700 . 6330) (GIT-MAKE-PROJECT 6332 .
|
||||
14591) (GIT-GET-PROJECT 14593 . 16518) (GIT-PUT-PROJECT-FIELD 16520 . 18161) (GIT-PROJECT-PATH 18163
|
||||
. 19207) (FIND-ANCESTOR-DIRECTORY 19209 . 19560) (GIT-FIND-CLONE 19562 . 20645) (GIT-MAINBRANCH 20647
|
||||
. 21042) (GIT-MAINBRANCH? 21044 . 21535)) (26309 33483 (PRC-COMMAND 26319 . 31601) (GIT-GWC-COMMAND
|
||||
31603 . 33481)) (33539 36327 (ALLSUBDIRS 33549 . 34835) (MEDLEYSUBDIRS 34837 . 35530) (GITSUBDIRS
|
||||
35532 . 36325)) (36328 38733 (TOGIT 36338 . 37746) (FROMGIT 37748 . 38731)) (38734 41743 (
|
||||
WORKINGSUBDIR 38744 . 39199) (GITSUBDIR 39201 . 39644) (STRIPDIR 39646 . 40024) (STRIPHOST 40026 .
|
||||
40266) (STRIPNAME 40268 . 41021) (STRIPWHERE 41023 . 41741)) (41744 43979 (GFILE4MFILE 41754 . 42450)
|
||||
(MFILE4GFILE 42452 . 43021) (GIT-REPO-FILENAME 43023 . 43977)) (44028 54285 (GIT-COMMIT 44038 . 44864)
|
||||
(GIT-PUSH 44866 . 45626) (GIT-PULL 45628 . 46380) (GIT-APPROVAL 46382 . 46731) (GIT-GET-FILE 46733 .
|
||||
48648) (GIT-FILE-EXISTS? 48650 . 48924) (GIT-REMOTE-UPDATE 48926 . 49761) (GIT-REMOTE-ADD 49763 .
|
||||
50070) (GIT-FILE-DATE 50072 . 51119) (GIT-FILE-HISTORY 51121 . 53055) (GIT-PRINT-FILE-HISTORY 53057 .
|
||||
54109) (GIT-FETCH 54111 . 54283)) (54315 66267 (GIT-BRANCH-DIFF 54325 . 61214) (GIT-COMMIT-DIFFS 61216
|
||||
. 62107) (GIT-BRANCH-RELATIONS 62109 . 65793) (GIT-MODIFIED 65795 . 66265)) (66312 85259 (
|
||||
GIT-BRANCH-NUM 66322 . 66895) (GIT-CHECKOUT 66897 . 68183) (GIT-WHICH-BRANCH 68185 . 68592) (
|
||||
GIT-MAKE-BRANCH 68594 . 71173) (GIT-BRANCHES 71175 . 73772) (GIT-BRANCH-EXISTS? 73774 . 74645) (
|
||||
GIT-PICK-BRANCH 74647 . 75137) (GIT-BRANCH-MENU 75139 . 76040) (GIT-BRANCH-WHENSELECTEDFN 76042 .
|
||||
77749) (GIT-PULL-REQUESTS 77751 . 81636) (GIT-SHORT-BRANCH-NAME 81638 . 81929) (GIT-LONG-NAME 81931 .
|
||||
82248) (GIT-PRC-BRANCHES 82250 . 85257)) (85289 90043 (GIT-MY-CURRENT-BRANCH 85299 . 85669) (
|
||||
GIT-MY-BRANCHP 85671 . 86289) (GIT-MY-NEXT-BRANCH 86291 . 88091) (GIT-MY-BRANCHES 88093 . 90041)) (
|
||||
90089 94173 (GIT-ADD-WORKTREE 90099 . 91706) (GIT-REMOVE-WORKTREE 91708 . 92640) (GIT-LIST-WORKTREES
|
||||
92642 . 93453) (WORKTREEDIR 93455 . 94171)) (94221 128732 (GIT-GET-DIFFERENT-FILES 94231 . 101139) (
|
||||
GIT-BRANCHES-COMPARE-DIRECTORIES 101141 . 108780) (GIT-WORKING-COMPARE-DIRECTORIES 108782 . 114597) (
|
||||
GIT-COMPARE-WORKTREE 114599 . 118577) (GITCDOBJBUTTONFN 118579 . 123077) (GIT-CD-LABELFN 123079 .
|
||||
124165) (GIT-CD-MENUFN 124167 . 126713) (GIT-WORKING-COMPARE-FILES 126715 . 127335) (
|
||||
GIT-BRANCHES-COMPARE-FILES 127337 . 128501) (GIT-PR-COMPARE 128503 . 128730)) (128802 137133 (CDGITDIR
|
||||
128812 . 129499) (GIT-COMMAND 129501 . 131059) (GITORIGIN 131061 . 131758) (GIT-INITIALS 131760 .
|
||||
132064) (GIT-COMMAND-TO-FILE 132066 . 135551) (GIT-RESULT-TO-LINES 135553 . 136466) (STRIPLOCAL 136468
|
||||
. 137131)))))
|
||||
(FILEMAP (NIL (4187 21467 (GIT-CLONEP 4197 . 5628) (GIT-INIT 5630 . 6260) (GIT-MAKE-PROJECT 6262 .
|
||||
14521) (GIT-GET-PROJECT 14523 . 16448) (GIT-PUT-PROJECT-FIELD 16450 . 18091) (GIT-PROJECT-PATH 18093
|
||||
. 19137) (FIND-ANCESTOR-DIRECTORY 19139 . 19490) (GIT-FIND-CLONE 19492 . 20575) (GIT-MAINBRANCH 20577
|
||||
. 20972) (GIT-MAINBRANCH? 20974 . 21465)) (26239 33413 (PRC-COMMAND 26249 . 31531) (GIT-GWC-COMMAND
|
||||
31533 . 33411)) (33469 36257 (ALLSUBDIRS 33479 . 34765) (MEDLEYSUBDIRS 34767 . 35460) (GITSUBDIRS
|
||||
35462 . 36255)) (36258 38663 (TOGIT 36268 . 37676) (FROMGIT 37678 . 38661)) (38664 41673 (
|
||||
WORKINGSUBDIR 38674 . 39129) (GITSUBDIR 39131 . 39574) (STRIPDIR 39576 . 39954) (STRIPHOST 39956 .
|
||||
40196) (STRIPNAME 40198 . 40951) (STRIPWHERE 40953 . 41671)) (41674 43909 (GFILE4MFILE 41684 . 42380)
|
||||
(MFILE4GFILE 42382 . 42951) (GIT-REPO-FILENAME 42953 . 43907)) (43958 54215 (GIT-COMMIT 43968 . 44794)
|
||||
(GIT-PUSH 44796 . 45556) (GIT-PULL 45558 . 46310) (GIT-APPROVAL 46312 . 46661) (GIT-GET-FILE 46663 .
|
||||
48578) (GIT-FILE-EXISTS? 48580 . 48854) (GIT-REMOTE-UPDATE 48856 . 49691) (GIT-REMOTE-ADD 49693 .
|
||||
50000) (GIT-FILE-DATE 50002 . 51049) (GIT-FILE-HISTORY 51051 . 52985) (GIT-PRINT-FILE-HISTORY 52987 .
|
||||
54039) (GIT-FETCH 54041 . 54213)) (54245 66197 (GIT-BRANCH-DIFF 54255 . 61144) (GIT-COMMIT-DIFFS 61146
|
||||
. 62037) (GIT-BRANCH-RELATIONS 62039 . 65723) (GIT-MODIFIED 65725 . 66195)) (66242 85189 (
|
||||
GIT-BRANCH-NUM 66252 . 66825) (GIT-CHECKOUT 66827 . 68113) (GIT-WHICH-BRANCH 68115 . 68522) (
|
||||
GIT-MAKE-BRANCH 68524 . 71103) (GIT-BRANCHES 71105 . 73702) (GIT-BRANCH-EXISTS? 73704 . 74575) (
|
||||
GIT-PICK-BRANCH 74577 . 75067) (GIT-BRANCH-MENU 75069 . 75970) (GIT-BRANCH-WHENSELECTEDFN 75972 .
|
||||
77679) (GIT-PULL-REQUESTS 77681 . 81566) (GIT-SHORT-BRANCH-NAME 81568 . 81859) (GIT-LONG-NAME 81861 .
|
||||
82178) (GIT-PRC-BRANCHES 82180 . 85187)) (85219 89973 (GIT-MY-CURRENT-BRANCH 85229 . 85599) (
|
||||
GIT-MY-BRANCHP 85601 . 86219) (GIT-MY-NEXT-BRANCH 86221 . 88021) (GIT-MY-BRANCHES 88023 . 89971)) (
|
||||
90019 94103 (GIT-ADD-WORKTREE 90029 . 91636) (GIT-REMOVE-WORKTREE 91638 . 92570) (GIT-LIST-WORKTREES
|
||||
92572 . 93383) (WORKTREEDIR 93385 . 94101)) (94151 129156 (GIT-GET-DIFFERENT-FILES 94161 . 101069) (
|
||||
GIT-BRANCHES-COMPARE-DIRECTORIES 101071 . 108710) (GIT-WORKING-COMPARE-DIRECTORIES 108712 . 114527) (
|
||||
GIT-COMPARE-WORKTREE 114529 . 118507) (GITCDOBJBUTTONFN 118509 . 123007) (GIT-CD-LABELFN 123009 .
|
||||
124589) (GIT-CD-MENUFN 124591 . 127137) (GIT-WORKING-COMPARE-FILES 127139 . 127759) (
|
||||
GIT-BRANCHES-COMPARE-FILES 127761 . 128925) (GIT-PR-COMPARE 128927 . 129154)) (129226 137557 (CDGITDIR
|
||||
129236 . 129923) (GIT-COMMAND 129925 . 131483) (GITORIGIN 131485 . 132182) (GIT-INITIALS 132184 .
|
||||
132488) (GIT-COMMAND-TO-FILE 132490 . 135975) (GIT-RESULT-TO-LINES 135977 . 136890) (STRIPLOCAL 136892
|
||||
. 137555)))))
|
||||
STOP
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user