(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "12-Nov-2023 20:24:00" ("compiled on " {DSK}larry>il>medley>lispusers>GITFNS.;1) "11-Nov-2023 07:37:04" bcompl'd in "FULL 11-Nov-2023 ..." dated "11-Nov-2023 07:37:06") (FILECREATED " 1-Oct-2023 19:33:26" {WMEDLEY}GITFNS.;489 124166 :EDIT-BY rmk :CHANGES-TO ( FNS GIT-MAKE-PROJECT) :PREVIOUS-DATE " 1-Oct-2023 19:27:42" {WMEDLEY}GITFNS.;488) GIT-CLONEPA0001 :D8 (I 0 A) @o (15 DIRECTORYNAMEP 10 CONCAT) NIL ( 5 ".git/") GIT-CLONEP :D8 (P 0 D I 2 CHECKANCESTORS I 1 NOERROR I 0 HOST/DIR) Z@²Hg@gg Ho ‘HB´ Hg µA‘ho@ (87 ERROR 69 FIND-ANCESTOR-DIRECTORY 52 DIRECTORYNAMEP 47 CONCAT 33 SLASHIT 28 TRUEFILENAME 23 PACKFILENAME.STRING) (64 GIT-CLONEPA0001 18 DSK 13 HOST 7 BODY) ( 81 "NOT A GIT CLONE" 42 "/.git/") GIT-INIT :D8 (P 0 X I 0 EVENT F 1 GIT-PROJECTS F 2 GIT-DEFAULT-PROJECTS) 9@d²gð¨@gð´%hcR°dgHd£d‘h µæh(48 APPLY) (35 GIT-MAKE-PROJECT 16 AFTERSYSOUT 8 AFTERMAKESYS) () GIT-MAKE-PROJECTA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 3 L I 0 SI::*CLEANUP-FORMS* F 4 STREAM F 5 A0026) X@T ³Tghgh [µH hc ¿$ jð³ÌoK ³¿KºIµ JhY¸°³J&¹°®(67 STRPOS 52 NCHARS 39 \MVLIST 29 CL:READ-LINE 8 EOFP) (22 :EOF-VALUE 16 :EOF-ERROR-P) ( 61 "#") GIT-MAKE-PROJECTA0002 :D8 (F 0 STREAM F 1 A0026) PgQ(11 CL:CLOSE) (5 :ABORT) () GIT-MAKE-PROJECT :D8 (P 9 A0026 P 8 STREAM P 7 E P 2 WP P 1 PROJECT P 0 GITIGNORE I 4 DEFAULTSUBDIRS I 3 EXCLUSIONS I 2 WORKINGPATH I 1 CLONEPATH I 0 PROJECTNAME F 10 GIT-PROJECTS F 11 FILEDIRCASEARRAY) Þ Ao ¢±Á@ i µ‚±ü@o i µ‚±à@ hdii µ‚±Æo@ hdii µ‚±¢`o@ o i µzAœo@ °foi ¿@i ¿i °OgggA gg idµoAo@ bd´‚±¼0gogA Xµ‚±œCAKµ‚±ÀLHo ggbBið¦Bµ‚±»gggAkoAmþhddWi oAddkhdiW µmþ µ@ o°_ i g OgO¿$¸±ÿ;¥K_¿h†K_¿K»O ¾Mµ Nh]¼±ÿN&½±ÿ i Zd—d °$B´!oBið´oo@ bg@o@A oB´"oo@ B oCDd£d‘hAhdY@Wµ@hWcI @(730 /RPLACD 688 PACK* 678 PSEUDOHOST 672 CONCAT 653 PACK* 643 PSEUDOHOST 623 ERROR 618 CONCAT 587 UNSLASHIT 578 DIRECTORYNAME 572 TRUEFILENAME 549 MKSTRING 517 CL:CLOSE 503 \MVLIST 498 GIT-MAKE-PROJECTA0001 484 OPEN 477 PACKFILENAME.STRING 472 CONCAT 462 L-CASE 454 SUBSTRING 445 STRPOS 425 SUBSTRING 420 STRPOS 370 CL:REMOVE-DUPLICATES 355 \APPEND2 350 \APPEND2 319 INFILEP 314 PACKFILENAME.STRING 281 ERROR 276 CONCAT 257 GIT-CLONEP 250 SLASHIT 245 PACKFILENAME 240 UNPACKFILENAME.STRING 225 TRUEFILENAME 202 TERPRI 195 PRIN1 187 PRIN1 174 CONCAT 159 GIT-CLONEP 153 DIRECTORYNAME 148 CONCAT 138 L-CASE 116 GIT-CLONEP 110 MEDLEYDIR 102 CONCAT 97 L-CASE 80 GIT-CLONEP 74 MEDLEYDIR 66 L-CASE 54 GIT-CLONEP 48 UNIX-GETENV 43 PACK* 26 GIT-CLONEP 20 UNIX-GETENV 10 MEMB) (630 GIT-PROJECT 510 :ABORT 493 GIT-MAKE-PROJECTA0002 398 BODY 393 DSK 388 HOST 365 STRING.EQUAL 360 :TEST 308 BODY 298 NAME 235 RETURN 230 DIRECTORY 219 DIRECTORY 214 DSK 209 HOST 127 MEDLEYDIR) ( 683 "}" 666 "W" 661 "{" 648 "}" 636 "{" 612 " for " 607 "" 597 "Can't find the working directory " 467 ">" 430 "working-" 405 "/" 345 ("deleted/" "*.sysout") 303 ".gitignore" 270 " for " 264 "Can't find the clone directory " 181 "Note: Can't find a clone directory for " 168 "Can't find a clone directory for " 143 "/" 132 "../git-" 91 "../" 38 "DIR" 5 (NIL T)) GIT-GET-PROJECT :D8 (I 2 NOERROR I 1 FIELD I 0 PROJECT F 0 GIT-DEFAULT-PROJECT F 1 GIT-PROJECTS) Æ@dgð³ µPQµB‘hŠo@ b´‚±•Adgð”¿@gð•@Adgð•¿@gð–@Adgð˜¿@gð˜@Agð²2@µ&@gi@µgh@@(191 GIT-BRANCH-EXISTS? 177 GIT-BRANCH-EXISTS? 39 ERROR 16 U-CASE) (184 origin/master 170 origin/main 143 MAINBRANCH 126 CLONEPATH 110 DEFAULTSUBDIRS 94 EXCLUSIONS 81 GITHOST 66 WHOST 54 PROJECTNAME 8 GIT-PROJECT) ( 33 "NOT A GIT-PROJECT") GIT-PUT-PROJECT-FIELD :D8 (I 2 NEWVALUE I 1 FIELD I 0 PROJECT) †@ bAdgð–¿dBdgð˜¿@Bgð–@BAdgð™¿@Bgð™@BAdgð›¿@Bgð›@B@(5 GIT-GET-PROJECT) (116 MAINBRANCH 97 CLONEPATH 78 DEFAULTSUBDIRS 61 EXCLUSIONS 45 GITHOST 29 WHOST 14 PROJECTNAME) () GIT-PROJECT-PATH :D8 (P 1 MY-POS P 0 MYSUBDIR I 1 PROJECTPATH I 0 PROJECTNAME F 2 FILEDIRCASEARRAY) xA bdmÿ o Ao b¿o@oHAkhddR Y´,AkIo@AmÿIØH Ø i (117 SLASHIT 111 CONCAT 106 SUBSTRING 100 NCHARS 83 SUBSTRING 72 STRPOS 56 CONCAT 37 CONCAT 25 MEMB 15 NTHCHARCODE 5 TRUEFILENAME) NIL ( 88 "git-" 51 "/" 45 "/my-" 32 "/" 20 (62 47)) FIND-ANCESTOR-DIRECTORY :D8 (P 1 POS P 0 A I 1 PREDFN I 0 STARTDIR F 2 FILEDIRCASEARRAY) -@oHmþhddRi Y¡hHkIXkA²ÜH(34 SUBSTRING 22 STRPOS) NIL ( 8 "/") GIT-FIND-CLONEA0001 :D8 (P 1 D P 0 GEN I 0 A) -@hdkH Yd i ²ðgI ¿°â(40 RETFROM 27 GIT-CLONEP 17 \GENERATENEXTFILE 8 \GENERATEFILES) (34 FIND-ANCESTOR-DIRECTORY) () GIT-FIND-CLONE :D8 (I 1 PROJECTPATH I 0 PROJECTNAME) 4Aidµ*@A idµAg µ oA (49 ERROR 36 FIND-ANCESTOR-DIRECTORY 23 GIT-CLONEP 16 GIT-PROJECT-PATH 7 GIT-CLONEP) (31 GIT-FIND-CLONEA0001) ( 43 "NOT A GIT CLONE") GIT-MAINBRANCH :D8 (P 0 MB I 2 NOERROR I 1 LOCAL I 0 PROJECT) &@gBA²oH H(33 CONCAT 28 STRIPWHERE 11 GIT-GET-PROJECT) (5 MAINBRANCH) ( 22 "local/") GIT-MAINBRANCH? :D8 (I 2 NOERROR I 1 PROJECT I 0 BRANCH) ,Ahii @ µB‘ho@ (41 ERROR 24 STRING.EQUAL 19 STRIPWHERE 13 STRIPWHERE 7 GIT-MAINBRANCH) NIL ( 35 "Can't modify main branch") PRC-COMMAND :D8 (P 6 PR P 1 PRMENU P 0 PRS I 2 PROJECT I 1 DRAFTS I 0 REMOTEBRANCH F 7 FILEDIRCASEARRAY) Bµ@hi²@b¿hb° b¿°Ahi—Ab¿hb¿@ o —hb¿ib¿B iABX@µUH¢±¯@µ)ABHXd o hY bgð²rHd o gð³§HAJµKd‘¸hb°•¾@NhdddW ³@NhdddW ™N½LµMh\»JZ°ÀM&¼°ø@d•B o(270 GIT-PR-COMPARE 240 STRPOS 221 STRPOS 176 ADDMENU 171 GIT-BRANCH-MENU 166 CONCAT 156 LENGTH 139 MENU 133 GIT-BRANCH-MENU 127 CONCAT 117 LENGTH 110 GIT-PRC-BRANCHES 90 GIT-PULL-REQUESTS 82 GIT-FETCH 67 MEMB 57 U-CASE 42 GIT-GET-PROJECT 29 GIT-GET-PROJECT 13 GIT-GET-PROJECT) (182 PinMenu 146 PinMenu) ( 276 "No open pull requests" 161 " pull requests" 122 " pull requests" 62 (DRAFT DRAFTS)) ALLSUBDIRS :D8 (P 10 SKIP P 8 D P 7 F P 5 VAL P 4 H P 1 VAL P 0 HOSTS I 0 PROJECT F 11 FILEDIRCASEARRAY) î@d£d‘h@œ@dH¢HX¿H1Jµ M ¼KgLggk !Nµh »JZ°Å_ ²]Og _ l.ð³E@ Oo _¿Oµ-h³$Okmþ _M ¤OM½N^°ˆ_OkhihW –OµÂi°¿O_°´(221 STRPOS 193 MEMBER 185 UNSLASHIT 180 L-CASE 175 SUBSTRING 153 CONCAT 127 CHCON1 120 FILENAMEFIELD 106 DIRECTORYNAMEP 92 \NCONC2 78 FILDIR 72 PACKFILENAME 47 SORT) (115 DIRECTORY 67 * 62 BODY 56 HOST) ( 148 "/") MEDLEYSUBDIRS :D8 (P 3 D I 1 ALLSUBDIRS I 0 PROJECT) B0Aµ8@ °0dg@gKi ¸IµHhZH&¹µÑJ(45 UNSLASHIT 39 PACKFILENAME 11 ALLSUBDIRS) (33 DIRECTORY 23 HOST) () GITSUBDIRS :D8 (P 3 D I 1 ALLSUBDIRS I 0 PROJECT) A0Aµ7@ °/dg@gKi ¸IµHhZH&¹µÒJ(44 SLASHIT 38 PACKFILENAME 11 ALLSUBDIRS) (32 DIRECTORY 23 HOST) () TOGIT :D8 (P 7 DEST P 6 GF P 5 MF P 0 MEDLEYSUBDIRS I 1 PROJECT I 0 MFILES F 8 FILEDIRCASEARRAY) ÉA bd A A @bIµJd¢½hƒ½I¹MhHµ oM ]ghgM W³!i ¿Mo i ¿¿MA ¾MN _–oNŒi ¿Mo i ¿O¼Kµ Lh[º±ÿ_L&»±ÿY(178 PRIN3 172 CONCAT 160 FLASHWINDOW 144 COPYFILE 136 GFILE4MFILE 128 ERROR! 122 PRIN3 116 CONCAT 104 FLASHWINDOW 96 STRING.EQUAL 89 INFILEP 84 PACKFILENAME 66 ERROR 53 FINDFILE 25 MEDLEYSUBDIRS 19 GIT-MAINBRANCH? 13 GIT-WHICH-BRANCH 5 GIT-GET-PROJECT) (78 BODY 72 VERSION) ( 167 " cannot be copied" 152 "Copied to " 111 " is not the latest version!" 60 "FILE NOT FOUND") FROMGIT :D8 (P 7 DEST P 6 MF P 5 GF P 0 GITSUBDIRS I 1 PROJECT I 0 GFILES) †A bd @bIµJd¢½hƒ½I¹MhHµ oM ] ¾MN _²oO ¿O°i ¿Mo i ¿O¼Kµ Lh[º°”L&»°(113 PRIN3 107 CONCAT 95 FLASHWINDOW 84 CONCAT 68 COPYFILE 60 MFILE4GFILE 54 ERROR 41 FINDFILE 13 GITSUBDIRS 5 GIT-GET-PROJECT) NIL ( 102 " cannot be copied" 77 "Copied to " 48 "FILE NOT FOUND") GIT-DELETE-FILE :D8 (I 1 PROJECT I 0 FILE) @hi@ (13 DELFILE 7 GIT-CLONEP) NIL () MYMEDLEY-DELETE-FILES :D8 (P 3 F I 1 PROJECT I 0 FILE) @A bAg @g ð´v0ggg@ °NdKgoKg gK «oK ¿K¸IµHhZH&¹µ³J(137 ERROR 125 RENAMEFILE 120 PACKFILENAME 109 CONCAT 104 FILENAMEFIELD 75 DREVERSE 70 FILDIR 65 PACKFILENAME 38 FILENAMEFIELD 27 FILENAMEFIELD 10 CONTRACT.PH) (114 BODY 99 DIRECTORY 88 DIRECTORY 59 BODY 54 * 49 VERSION 33 HOST 22 HOST) ( 131 "Could not delete " 93 "deleted>") MYMEDLEYSUBDIR :D8 (I 2 PROJECT I 1 STAR I 0 SUBDIR) .gBg@A•o„o (43 UNSLASHIT 38 PACK* 20 PACKFILENAME) (14 DIRECTORY 4 HOST) ( 33 "" 27 "*") GITSUBDIR :D8 (I 2 PROJECT I 1 STAR I 0 SUBDIR) -gBg@A•o„o (42 SLASHIT 37 PACK* 19 PACKFILENAME) (13 DIRECTORY 4 HOST) ( 32 "" 26 "*") STRIPDIR :D8 (I 1 DIRECTORY I 0 FILE F 0 FILEDIRCASEARRAY) A@khihP ž@A kØ @(27 SUBSTRING 20 NCHARS 12 STRPOS) NIL () STRIPHOST :D8 (P 0 POS I 0 NAME) o@ H™@HkØ @(24 SUBSTRING 10 STRPOS) NIL ( 4 "}") STRIPNAME :D8 (P 1 LASTDIRPOS P 0 I I 0 FILE) 3k@H dl>ð©dl<ð¤dl/ð“¿HYŽ¬I˜@kI@HkÔ¸°Ô(40 SUBSTRING 10 NTHCHARCODE) NIL () STRIPWHERE :D8 (P 0 POS I 1 ORIGINTOO I 0 BRANCH) Eo@ H²3@kHkÙ A•o„o ™@HkØ @(64 SUBSTRING 54 MEMB 36 L-CASE 31 MKATOM 26 SUBSTRING 10 STRPOS) NIL ( 49 (local) 43 (local origin) 4 "/") GFILE4MFILE :D8 (I 1 PROJECT I 0 MFILE) #gAghg@ i (32 SLASHIT 26 PACKFILENAME) (19 BODY 13 VERSION 4 HOST) () MFILE4GFILE :D8 (I 1 PROJECT I 0 GFILE) #gAghg@ (32 UNSLASHIT 27 PACKFILENAME) (20 BODY 14 VERSION 4 HOST) () GIT-REPO-FILENAME :D8 (I 1 PROJECT I 0 GFILE) gAg @g ð–@ Ž@A i bd l/ðš@l b€@mÿ l.ð™@kmþ@(98 SUBSTRING 85 NTHCHARCODE 74 SUBSTRING 62 CHCON1 54 SLASHIT 48 STRIPDIR 43 TRUEFILENAME 32 STRIPHOST 24 FILENAMEFIELD 13 FILENAMEFIELD) (19 HOST 8 HOST) () GIT-COMMIT :D8 (P 6 GF P 5 F P 0 GFILES I 3 PROJECT I 2 MESSAGE I 1 TITLE I 0 FILES) iC C šo ¿o C C @QIµJ£I½h„I½I¹MC ^¼Kµ Lh[º°ÙL&»°Ô(86 INFILEP 81 GFILE4MFILE 50 GIT-MAINBRANCH? 44 GIT-WHICH-BRANCH 38 HELP 27 ERROR 16 STRING.EQUAL 11 GIT-WHICH-BRANCH 5 GIT-MAINBRANCH) NIL ( 33 "UNIMPLEMENTED" 22 "Cannot commit to the main branch") GIT-PUSH :D8 (I 1 PROJECT I 0 BRANCH) &@µ A bA o@ hdA(35 GIT-COMMAND 27 CONCAT 16 GIT-MAINBRANCH? 8 GIT-WHICH-BRANCH) NIL ( 21 "git push ") GIT-PULL :D8 (I 1 PROJECT I 0 BRANCH) %A bo@µA hdA(34 GIT-COMMAND 26 CONCAT 21 GIT-WHICH-BRANCH 5 GIT-GET-PROJECT) NIL ( 12 "git pull ") GIT-APPROVAL :D8 (I 1 PROJECT I 0 BRANCH) @iAA i (19 GIT-ADD-WORKTREE 13 GIT-MAINBRANCH 7 GIT-ADD-WORKTREE) NIL () GIT-GET-FILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 ESTREAM F 1 A0028) Pi hc¿$(11 \MVLIST 6 COPYCHARS) NIL () GIT-GET-FILEA0002 :D8 (F 0 ESTREAM F 1 A0028) PgQ(11 CL:CLOSE) (5 :ABORT) () GIT-GET-FILE :D8 (P 5 A0028 P 4 ESTREAM P 2 DATE P 1 TYPE P 0 RESULTFILE I 4 PROJECT I 3 NOERROR I 2 LOCALFILE I 1 GITFILE I 0 BRANCH) Ð@²o@khi š@l b¿o@oADi1Hd²Nggg ig LgM¿$H ¿HX²5H [¹KZªA@DCZœHgJ¿HB C‘hoA (205 ERROR 189 RENAMEFILE 181 SETFILEINFO 167 GIT-FILE-DATE 150 \MVLIST 145 LISPFILETYPE 133 DELFILE 120 CL:CLOSE 108 \MVLIST 103 GIT-GET-FILEA0001 89 OPEN 83 SYSTEM-EXTERNALFORMAT 53 GIT-COMMAND-TO-FILE 46 CONCAT 26 SUBSTRING 17 STRPOS) (175 CREATIONDATE 114 :ABORT 98 GIT-GET-FILEA0002 78 :EXTERNAL-FORMAT 73 :INPUT 68 :DIRECTION) ( 199 "GIT FILE NOT FOUND" 40 ":" 34 "git show " 7 "local/") GIT-FILE-EXISTS? :D8 (I 2 PROJECT I 1 BRANCH I 0 GFILE) @ABi´i(8 GIT-FILE-DATE) NIL () GIT-REMOTE-UPDATE :D8 (I 1 PROJECT I 0 DOIT F 0 LAST-REMOTE-UPDATE-IDATE) R@³g žPÙoñ´5oi ¿A i ¿i ohAc¿(76 IDATE 71 GIT-COMMAND 59 TERPRI 52 PRIN1 46 GIT-WHICH-BRANCH 39 PRIN1 18 IDATE 12 BOUNDP) (7 LAST-REMOTE-UPDATE-IDATE) ( 64 "git remote update origin" 33 "Updating from remote, local branch is " 25 86400000) GIT-REMOTE-ADD :D8 (I 1 URL I 0 NAME) o@oA (21 GIT-COMMAND 16 CONCAT) NIL ( 10 " " 4 "git remote add ") GIT-FILE-DATE :D8 (P 0 DATE I 3 NOERROR I 2 PROJECT I 1 BRANCH I 0 GFILE) DoAµ1o@B hiBHµCªo@ Ho °Ì(64 CONCAT 52 ERROR 32 GIT-COMMAND 24 CONCAT 19 GIT-REPO-FILENAME) NIL ( 59 " -- " 46 "GIT FILE NOT FOUND" 12 "" 4 "git log -1 --pretty=%"format:%%cD%" ") GIT-FILE-HISTORY :D8 (P 9 I P 8 I P 7 POS P 6 COMMENTS P 5 COMMIT P 4 L P 1 VAL P 0 LINES I 2 PRINT I 1 PROJECT I 0 FILE) ( o@A ihA !H AKµB–I ¿@A I\ Zjð’±ËJ™J ’±½oLkhk ²/N²MgNh ½h¾gLl hMI¹h°}L l ð²3LlLO l ð³OµimÿµiN¾°KOkÔ_¿°×LkoLkkÙ_LlOØ LO l ð³OµimÿhM½K[±ÿOkÔ_¿°Ó(273 SUBSTRING 255 NTHCHARCODE 238 SUBATOM 229 STRPOS 198 SUBSTRING 180 NTHCHARCODE 161 CHCON1 144 SUBSTRING 128 \NCONC2 108 STRPOS 89 \FZEROP 72 NCHARS 62 GIT-REPO-FILENAME 54 GIT-PRINT-FILE-HISTORY 38 REVERSE 29 GIT-COMMAND 24 GIT-GET-PROJECT 16 CONCAT 11 GIT-REPO-FILENAME) (136 commit 119 Comments) ( 222 ": " 98 "commit " 4 "git log --date=rfc -- ") GIT-PRINT-FILE-HISTORY :D8 (P 8 CC P 7 POS P 5 X P 4 A P 2 AU P 1 C I 1 AUTHORS I 0 COMMITS) @i ¿i @!Hµh¹gIºAœAKd³=¢±ßlhi¿Ii ¿oi ¿Ii ¿i ¿I±ž£K¼h„K¼K»LJkhdd` ²¤Lµ¥i°¢dl hi¿Mi ¿oi ¿Mdgð²9i Nµ°1_ið—i °Oji¿Oi ¿N^°Öi ¿i µˆi ¿HX±ÿ(271 TERPRI 260 TERPRI 253 PRIN1 239 PRIN1 230 TAB 219 TERPRI 197 POSITION 178 PRIN1 166 PRIN1 157 TAB 135 STRPOS 101 TERPRI 94 PRIN1 83 PRIN1 71 PRIN1 61 TAB 14 TERPRI 7 PRIN1) (187 Comments 129 UPPERCASEARRAY 32 Author) ( 172 ": " 77 ": ") GIT-FETCH :D8 (I 0 PROJECT) oih@(12 GIT-COMMAND) NIL ( 4 "git fetch") GIT-PR-BRANCHES :D8 (P 14 PRNAME P 13 LABEL P 12 REL P 11 PR P 7 EQUALS P 6 SUPERSETS P 4 RELATIONS P 3 PR I 2 PRS I 1 PROJECT I 0 DRAFT) B«i@Ab´J0B°dK ¸IµHhZH&¹µãJhiABLLsMµOi __¿oOoON _ŸOoO°!OO _žOoOO_¿OgðœOo OO oOoOh_¿OµOh__¿M]±ÿIO&_¿°ô(233 CONCAT 211 GITORIGIN 201 CONCAT 173 CONCAT 165 CONCAT 146 SASSOC 135 CONCAT 116 SASSOC 85 SORT 60 GIT-BRANCH-RELATIONS 33 GITORIGIN 9 GIT-PULL-REQUESTS) (187 DRAFT) ( 225 " #" 216 " " 196 " (draft)" 158 " = " 128 " > " 108 " " 100 "#") GIT-BRANCH-DIFF :D8 (P 11 L P 6 L P 5 RESULTFILE P 4 ELINES P 3 RLINES P 2 ERRORFILE P 1 LIMIT P 0 POS I 2 PROJECT I 1 BRANCH2 I 0 BRANCH1) >@¨B b¿A¨B b¿hB `o@oAoAo B ½h\»Md²Z ¼J ¿M] »M ¿L¢±ÑoLk¢±¥LoLkhdi oL kÙ3 Y²vlhi¿oi ¿oi ¿I´ hgoIkÔYogð²oI hdB¿±ÿo@Ah ¿°L°dNi ¿i µêKAOµOi _ dlAð²4¿Ol l ð²gOl h±oO ±ŽdlDð²4¿Ol l ð²gOl h±eoO ±VdlMð²6¿oO X²gOHkØ h±+oO ±dlCð²]¿Ol l ð²FoOlX²5gOlHkÙOll3 µoO h±Ão±´dlRð²f¿Ol l ð²PoOlX²?gOlHkÙOHkØ Oll3 µoO h°Wo°Ilwð²?oOk¬oO ¿hdOo gð¥h‹oO _¿OµOh__¿O_±þO&_¿°ò(796 HELP 781 ERROR! 769 ASKUSER 764 CONCAT 749 HELP 736 STRPOS 704 HELP 688 SUBATOM 677 SUBSTRING 667 SUBSTRING 647 STRPOS 628 NTHCHARCODE 597 HELP 581 SUBATOM 570 SUBSTRING 550 STRPOS 531 NTHCHARCODE 512 ERROR 494 SUBSTRING 476 STRPOS 454 ERROR 436 SUBSTRING 417 NTHCHARCODE 398 ERROR 380 SUBSTRING 361 NTHCHARCODE 345 CHCON1 336 SORT 313 TERPRI 306 PRIN1 288 ERROR 269 GIT-COMMAND 261 CONCAT 242 ASKUSER 237 CONCAT 208 PRIN1 196 PRIN1 184 TAB 170 SUBATOM 163 STRPOS 150 STRPOS 125 STRPOS 106 DELFILE 99 GIT-RESULT-TO-LINES 90 DELFILE 83 GIT-RESULT-TO-LINES 66 GIT-COMMAND-TO-FILE 60 CONCAT 28 GIT-REMOTE-UPDATE 18 GIT-MAINBRANCH 7 GIT-MAINBRANCH) (774 Y 655 RENAMED 558 COPIED 484 CHANGED 427 DELETED 371 ADDED 247 Y 218 N) ( 789 "Unrecognized git-diff code " 759 " Ignore remaining files? " 742 "UNRECOGNZED GIT LINE" 728 "warning: " 716 "RENAME NOT RECOGNIZED" 697 "R without a number" 638 " " 609 "COPY NOT RECOGNIZED" 590 "C without a number" 541 " " 505 "CHANGED NOT RECOGNIZED" 469 " " 447 "DELETED NOT RECOGNIZED" 391 "ADDED NOT RECOGNIZED" 278 "Incomplete branch differences" 255 "git config --global diff.renameLimit " 232 " and try again? " 223 " Should I increase the global limit to " 202 "diff.renameLimit must be increased" 190 "** For accurate branch differences, " 155 " and retry " 137 " at least " 117 "warning: inexact rename detection was skipped due to too many files." 54 " --name-status" 48 ") " 42 " " 36 "git diff -C --find-copies-harder $(git merge-base ") GIT-COMMIT-DIFFS :D8 (I 2 PROJECT I 1 BUTNOTBRANCH2 I 0 BRANCH1) o@oAhdB(24 GIT-COMMAND 16 CONCAT) NIL ( 10 " ^" 4 "git log --format=%"%%h%" ") GIT-BRANCH-RELATIONSA0001 :D8 (I 1 B2 I 0 B1 F 0 SUPERSETS) A@P µ@AP hð(21 MEMB 9 MEMB) NIL () GIT-BRANCH-RELATIONS :D8 (P 28 E P 27 S P 26 SS P 22 S P 21 SS P 17 S P 16 D2 P 14 EQUALS P 13 SUPERSETS P 12 MORE2 P 11 MORE1 P 10 D1 P 9 DTAIL P 7 B P 0 MAIN I 3 PROJECT I 2 STRIPWHERE I 1 BRANCH2 I 0 BRANCHES) ÿC bd 1B–H ¸@@°+d_¿B™O _OdHC¼MµLh^L&½µÖNaO_µB¢±J0O±é_¿OOµO°Û_ ¿OO ô²OOµ OhO_YO I°^OO _¿O O _¿O² O³ " 117 "git branch -r" 102 (NIL ALL REMOTE T) 56 " -> " 33 "git branch" 18 (NIL ALL LOCAL)) GIT-BRANCH-EXISTS? :D8 (I 3 EXCLUDEMERGED I 2 PROJECT I 1 NOERROR I 0 BRANCH) S@ o@khi –g°o@khi ´gBC µA«o@ h(78 ERROR 62 MEMB 57 GIT-BRANCHES 43 STRPOS 20 STRPOS 5 MKATOM) (50 LOCAL 26 REMOTE) ( 72 "Unknown branch" 33 "local/" 10 "origin/") GIT-PICK-BRANCH :D8 (I 1 TITLE I 0 BRANCHES) @Aµd o (29 MENU 24 GIT-BRANCH-MENU 19 CONCAT 9 LENGTH) NIL ( 14 " branches") GIT-BRANCH-MENU :D8 (I 2 PIN? I 1 TITLE I 0 BRANCHES F 2 DEFAULTFONT) q@d£d‘hb´eB@o b¿`Aµ@ o HdI¿d@¿dR¿dg ¿dg¿jdnÿdhHdI ¿(52 CONCAT 42 LENGTH 24 \APPEND2) (87 DEFAULTMENUHELDFN 78 CLRPROMPT 32 |MENUTYPE#|) ( 47 " branches" 19 ((" Pin menu" (QUOTE PinMenu)))) GIT-PULL-REQUESTS :D8 (P 9 VAL P 8 TAB3 P 7 TAB2 P 6 TAB1 P 5 PR P 4 LINE I 2 PROJECT I 1 INCLUDEDRAFTS I 0 ALLINFO) o jðªo ¿oihB‘ HµI¼oL ^¢±ÓoLNkØ_¢±¿oLOkØ_¢±ªA³LOkØ gð’±“@´4LkNkÙLNkØOkÙLOkØOkÙLOkØ h°dLOkØOkÙhd½oM ²,oi ¿Mi ¿oi ¿i ‰M»JµKhZY¿HX±ÿK&Z°ö(259 TERPRI 252 PRIN1 240 PRIN1 229 PRIN1 216 STRPOS 195 SUBSTRING 177 SUBATOM 167 SUBSTRING 153 SUBSTRING 140 SUBATOM 117 SUBATOM 98 STRPOS 77 STRPOS 58 STRPOS 36 GIT-COMMAND 22 ERROR 9 PROCESS-COMMAND) (122 DRAFT) ( 246 "%"" 223 "Ignoring PR for forked repo %%%"" 207 ":" 88 " " 68 " " 52 " " 28 "gh pr list" 17 "gh must be installed in order to enumerate pull requests:" 4 "command -v gh") GIT-SHORT-BRANCH-NAME :D8 (I 0 BRANCH) @ko@kµjkÙ(23 SUBSTRING 13 STRPOS) NIL ( 6 "--") GIT-LONG-NAME :D8 (P 1 B I 3 EXCLUDEMERGED I 2 PROJECT I 1 WHERE I 0 BRANCH) &ABCHµh¹@I ”IµiHX°é(25 STRPOS 7 GIT-BRANCHES) NIL () GIT-PRC-BRANCHES :D8 (P 14 PRNAME P 13 LABEL P 12 REL P 11 PR P 7 EQUALS P 6 SUPERSETS P 4 RELATIONS P 3 PR I 2 PRS I 1 PROJECT I 0 DRAFT) B«i@Ab´J0B°dK ¸IµHhZH&¹µãJhiABLLsMµOi __¿oOoON _ŸOoO°!OO _žOoOO_¿OgðœOo OO oOoOh_¿OµOh__¿M]±ÿIO&_¿°ô(233 CONCAT 211 GITORIGIN 201 CONCAT 173 CONCAT 165 CONCAT 146 SASSOC 135 CONCAT 116 SASSOC 85 SORT 60 GIT-BRANCH-RELATIONS 33 GITORIGIN 9 GIT-PULL-REQUESTS) (187 DRAFT) ( 225 " #" 216 " " 196 " (draft)" 158 " = " 128 " > " 108 " " 100 "#") GIT-MY-CURRENT-BRANCH :D8 (P 2 B I 1 INITS I 0 PROJECT) 7A§b¿@hAAHµIZA µj¼K“LKó“L»J¹HX°â(34 GIT-BRANCH-NUM 17 GIT-MY-BRANCHES 6 GIT-INITIALS) NIL () GIT-MY-BRANCHP :D8 (I 1 PROJECT I 0 BRANCH) @µA bµA (23 GIT-BRANCH-NUM 18 GIT-WHICH-BRANCH 8 GIT-WHICH-BRANCH) NIL () GIT-MY-NEXT-BRANCH :D8 (I 0 PROJECT) @ @ µjkØ (26 PACK* 16 GIT-MY-BRANCHP 10 GIT-MY-CURRENT-BRANCH 4 GIT-INITIALS) NIL () GIT-MY-BRANCHESA0001 :D8 (I 1 Y I 0 X) @›A–@AýñiA©@A h(26 ALPHORDER) NIL () GIT-MY-BRANCHES :D8 (P 5 IPOS P 4 B I 2 INITS I 1 EXCLUDEMERGED I 0 PROJECT) – B§b¿g@AQHµIg 1 NµIO¼BLkhdd` ]²&MkðLMkÙ l/ð²LdB »JµKhZ¹HX°«K&º°ø_¿OµOh__¿N^°¡O&_¿°õ(97 GIT-BRANCH-NUM 84 NTHCHARCODE 68 STRPOS 39 SORT 21 GIT-BRANCHES 6 GIT-INITIALS) (62 UPPERCASEARRAY 34 GIT-MY-BRANCHESA0001 14 LOCAL) () GIT-ADD-WORKTREE :D8 (P 1 LOCALBRANCH P 0 LINES I 2 PROJECT I 1 REMOTEONLY I 0 BRANCH) ®@Ahð bdiB³@iB«@o ¿@B ›@o ¿ o@ kð²@l ¹oIB oo@ o@hdBXoHkhi ªo@ @(170 ERROR 158 STRPOS 141 GIT-COMMAND 133 CONCAT 122 WORKTREEDIR 105 WORKTREEDIR 92 SUBSTRING 80 STRPOS 65 ERROR 53 CL::SIMPLE-STRING-EQUAL 48 GIT-WHICH-BRANCH 40 ERROR 28 GIT-BRANCH-EXISTS? 18 GIT-BRANCH-EXISTS? 8 GITORIGIN) NIL ( 164 "Could not create worktree for " 147 "Preparing worktree" 127 " " 116 "git worktree add " 110 " " 98 "git worktree add --guess-remote " 74 "origin/" 60 "is the current branch" 35 "is not a git branch") GIT-REMOVE-WORKTREE :D8 (P 1 LINES P 0 DIR I 1 PROJECT I 0 BRANCH) E@hA@A oH hdAYoIkhi šo@ @(65 ERROR 53 STRPOS 36 GIT-COMMAND 28 CONCAT 14 WORKTREEDIR 7 GIT-BRANCH-EXISTS?) NIL ( 59 "Could not remove worktree for " 42 "fatal: " 22 "git worktree remove ") GIT-LIST-WORKTREES :D8 (P 5 POS P 4 L) jo QHµ I ¼oLhddi ]²3oL ²&LM \koL kÙ»JµKhZ¹HX°¬K&º°ø(85 SUBATOM 78 STRPOS 65 SUBSTRING 56 STRPOS 42 STRPOS 23 SORT 9 GIT-COMMAND) NIL ( 72 " " 50 "(detached HEAD)" 31 "/worktrees/" 4 "git worktree list") WORKTREEDIR :D8 (I 1 PROJECT I 0 BRANCH) Ao@•o„o(26 CONCAT) NIL ( 21 "" 15 "/" 8 "../worktrees/") GIT-GET-DIFFERENT-FILES :D8 (P 6 F1 P 5 F1 P 4 GFILE P 3 D P 2 FROMGIT P 1 MAPPINGS P 0 DIFFS I 4 PROJECT I 3 DIR2 I 2 DIR1 I 1 BRANCH2 I 0 BRANCH1 F 7 FROMGITN F 8 F2) °D b@hDbAhDb@AD!H´‚±ƒgWkÔcgZdoDoo B³Jo@ ob¿C³JoA ob¿H±dKdgð²0¿K»@KBK iD ’±ÔAKCK iD ±¿dgð²0¿K»AKCK iD ’±@KBK iD ±ˆdgð²,¿K»@KBK iD ¿AKCK iD °Tdgð¨dgð²7¿K!@LBL iD ½ALCL iD cŒ¿oK ¿µ‚±þÿBCIh(412 HELP 396 GIT-GET-FILE 388 CONCAT 374 GIT-GET-FILE 366 CONCAT 328 GIT-GET-FILE 320 CONCAT 310 GIT-GET-FILE 302 CONCAT 276 GIT-GET-FILE 268 CONCAT 255 GIT-GET-FILE 247 CONCAT 221 GIT-GET-FILE 213 CONCAT 200 GIT-GET-FILE 192 CONCAT 155 CONCAT 145 UNSLASHIT 127 CONCAT 117 UNSLASHIT 102 PSEUDOHOST 97 CONCAT 86 DATE 66 PACK* 35 GIT-BRANCH-DIFF 25 GIT-BRANCH-EXISTS? 15 GIT-BRANCH-EXISTS? 5 GIT-GET-PROJECT) (344 COPIED 336 RENAMED 285 CHANGED 230 DELETED 175 ADDED 61 } 50 {FROMGIT) ( 406 "UNKNOWN GIT-DIFF TAG" 150 ">" 139 "<" 122 ">" 111 "<" 91 ">" 81 ">" 73 "{CORE}<") GIT-BRANCHES-COMPARE-DIRECTORIESA0001 :D8 (P 2 MAP P 1 M I 0 CDE F 3 INFO2 F 4 INFO1 F 5 MAPPINGS F 6 FILEDIRCASEARRAY) ÀS³%UHµh°YTV•Iµði°íHX°ähJµaTµBSµ#J´‚±‡@JJgð²Io°GghgSi ¿°ÅghgTi ¿°¦ ¿°›oooooh@J(144 HELP 135 SLASHIT 129 PACKFILENAME.STRING 107 SLASHIT 101 PACKFILENAME.STRING 25 STRING.EQUAL) (122 BODY 116 VERSION 94 BODY 88 VERSION 73 R) ( 172 "" 167 "" 162 "" 157 "" 152 " ==" 81 " <-") GIT-BRANCHES-COMPARE-DIRECTORIES :D8 (P 5 MAPPINGS P 4 NENTRIES P 3 DIRS P 2 CDVALUE P 1 SHORT2 P 0 SHORT1 I 3 PROJECT I 2 LOCAL I 1 BRANCH2 I 0 BRANCH1 F 6 LAST-BRANCH-CDVALUE F 7 GIT-CDBROWSER-SEPARATE-DIRECTIONS) nC b@µ‚±Cd bd A Boi ¿Ci i ¿oi ¿Hi ¿oi ¿Ii ¿i oi ¿i @AhdC [d]K¢±Òi KKogCg Zdg i J¢±ŽJcdCi oHoIoJ o HIhggg@gAgChWo J ddkðžgB ±þÀghoo(340 GITORIGIN 323 LENGTH 316 CDBROWSER 261 CONCAT 250 LENGTH 226 L-CASE 207 TERPRI 201 CDMAP 189 COMPAREDIRECTORIES 183 GIT-GET-PROJECT 157 TERPRI 140 GIT-GET-DIFFERENT-FILES 129 TERPRI 122 PRIN1 111 TERPRI 104 PRIN1 96 PRIN1 84 PRIN1 76 PRIN1 64 PRIN1 58 L-CASE 48 PRIN1 34 GIT-SHORT-BRANCH-NAME 28 GIT-SHORT-BRANCH-NAME 20 GIT-WHICH-BRANCH 5 GIT-GET-PROJECT) (348 differences 333 difference 293 PROJECT 287 BRANCH2 281 BRANCH1 276 GIT-CD-LABELFN 271 LABELFN 196 GIT-BRANCHES-COMPARE-DIRECTORIESA0001 178 EXCLUSIONS 172 *>*.*) ( 363 (0 differences) 357 (0 differences) 310 (Compare See) 255 " files" 243 " " 237 " vs " 231 " " 167 (> < ~= -* *-) 116 "Fetching differences" 90 " and " 70 " subdirectories of " 42 "Comparing all ") GIT-WORKING-COMPARE-DIRECTORIES :D8 (P 26 SUBDIR P 25 TITLE P 24 CDVAL P 21 SUBDIR P 20 CDE P 19 DPOS P 18 E P 10 CDVAL P 9 TITLE P 8 SUBDIR P 3 BRANCH2 P 2 NENTRIES P 1 WPROJ P 0 SUBDIRSTRING I 5 PROJECT I 4 UPDATE I 3 FIXDIRECTORYDATES I 2 EXCLUDEDFILES I 1 SELECT I 0 SUBDIRS F 30 GIT-MERGE-COMPARES F 31 FILEDIRCASEARRAY F 32 LAST-WMEDLEY-CDVALUES F 33 GIT-CDBROWSER-SEPARATE-DIRECTIONS) PE b D—hE ¿Ed•Eo ¿@d•d¢b³Eµgb€@ bddgðž¿E b¿ooEi jE @d oi ¿Hi ¿lhi¿oi ¿Ii ¿oi ¿Ki ¿i ¿o ¿LµMd¢±>¿W<¢±6M ½0 @±¥L_¿h†L_¿L¼i ¿OiEOiEAµohEg QOµOhddC _±€_$¿OO$g khidW> _&›O$O&kØ O$_"¿O µO"h_ _¿O_°§O"&_ ¿°ódO(ddi ¿O(ŸO(di ¿µÏO_¿NµOh^]±þúO&^±þódO*o _¿Oµ Oh_‚O&_¿µØO b¿M@2O,µ‡_0¿O.µMc@¿i ¿Jdkð¢±ýg±ú¦O._4¿hˆO._4¿O._.¿IoKoO4oO0 o _2¿O0O2IKhgIgKgO4gggEhWBggogoKEi¥o€h ¿O4o 0O0°d_6¿O8µ O6h_:‚O6&_8¿µçO:¿¿JO0 ÔºO,_,±þégh(827 LENGTH 779 CONCAT 766 CDBROWSER 747 GIT-MAINBRANCH? 654 CONCAT 643 LENGTH 578 TERPRI 545 CONCATLIST 512 CONCAT 464 SLASHIT 441 UNSLASHIT 386 SUBSTRING 372 STRPOS 360 FILENAMEFIELD 337 COMPAREDIRECTORIES 316 GIT-GET-PROJECT 296 GITSUBDIR 287 MYMEDLEYSUBDIR 277 TERPRI 247 CDMERGE 223 BKSYSBUF 212 TERPRI 205 PRIN1 197 PRIN1 185 PRIN1 177 PRIN1 165 TAB 155 PRIN1 147 PRIN1 132 GIT-WHICH-BRANCH 125 CONCAT 120 L-CASE 95 ALLSUBDIRS 77 L-CASE 41 ERROR 16 GIT-REMOTE-UPDATE 5 GIT-GET-PROJECT) (842 differences 734 Copy% <- 724 See 719 Compare 700 PROJECT 695 GIT-CD-LABELFN 690 LABELFN 683 SUBDIR 677 BRANCH2 671 BRANCH1 592 difference 355 DIRECTORY 311 EXCLUSIONS 86 all 68 ALL) ( 774 "/" 753 ("" Copy% -> (Delete% -> GIT-CD-MENUFN)) 739 (|Delete ALL <-| GIT-CD-MENUFN) 729 "" 648 " files" 635 " " 628 " " 622 " vs. " 507 " " 304 (> < ~= -* *-) 218 " " 191 " and Git " 171 " of " 141 "Comparing " 111 "Working " 103 "ALL subdirectories" 36 " does not have both git and working directories") GIT-COMPARE-WORKTREE :D8 (P 15 MFILE P 14 BFILE P 13 FILE P 12 FILETAIL P 10 F P 9 MFILE P 8 BFILE P 7 FILE P 5 OTHERFILES P 4 COMPILEDFILES P 3 SOURCEFILES P 2 DELETEDFILES P 1 ADDEDFILES P 0 MAINBRANCH I 2 PROJECT I 1 DONTUPDATE I 0 BRANCH F 16 *COMPILED-EXTENSIONS*) 3A³@iB¿B iB¿B QA³@iB¿HiB¿i ¿oi ¿Bg i ¿Bi ¿oi ¿@i ¿oi ¿Hi ¿i @HB1 Nµ+I¢±Êi ¿oi ¿i ¿I ±¤_¿@B O _¿HB O _¿O²DO²7O ¦OM½°6Og W –OL¼°OK»O•OI¹„OJºN^±ÿVd lhi¿Oi ¿i µßJ²Gi ¿oi ¿i ¿I °"d lhi¿Oi ¿i µßK²-i ¿oi ¿i ¿K AO_µL¢±²i ¿oi ¿L±˜_¿lhi¿Oi ¿i ¿O_¿@B O _¿HB O _¿OO ¿i ¿M¥Od˜¿¿O±ÿld lhi¿Oi ¿i µßM´%i ¿oi M AO_µh_¿lhi¿Oi ¿O_¿@B O _¿HB O _¿OOg¿i ¿Od˜¿¿O°‹(811 WAITFORINPUT 799 TTY.PROCESS 792 COMPARETEXT 775 INFILEP 770 CONCAT 763 WORKTREEDIR 753 INFILEP 748 CONCAT 741 WORKTREEDIR 727 PRIN1 718 TAB 693 SORT 687 PRIN1 675 TERPRI 661 TERPRI 654 PRIN1 645 TAB 624 WAITFORINPUT 610 TTY.PROCESS 603 COMPARESOURCES-TEDIT 591 INFILEP 586 CONCAT 579 WORKTREEDIR 569 INFILEP 564 CONCAT 557 WORKTREEDIR 543 TERPRI 536 PRIN1 527 TAB 509 PRIN1 497 TERPRI 475 SORT 468 TERPRI 461 PRIN1 449 TERPRI 435 TERPRI 428 PRIN1 419 TAB 403 SORT 396 TERPRI 389 PRIN1 377 TERPRI 363 TERPRI 356 PRIN1 347 TAB 299 MEMB 292 U-CASE 287 FILENAMEFIELD 267 LISPSOURCEFILEP 249 INFILEP 244 CONCAT 237 WORKTREEDIR 227 INFILEP 222 CONCAT 215 WORKTREEDIR 201 SORT 194 TERPRI 187 PRIN1 175 TERPRI 156 GIT-BRANCH-DIFF 148 TERPRI 141 PRIN1 133 PRIN1 121 PRIN1 113 PRIN1 101 PRIN1 91 PRIN1 85 GIT-GET-PROJECT 73 PRIN1 61 TERPRI 54 GIT-ADD-WORKTREE 45 GIT-ADD-WORKTREE 31 GIT-MAINBRANCH 24 GIT-ADD-WORKTREE 17 GIT-MAINBRANCH 10 GIT-ADD-WORKTREE) (787 LINE 282 EXTENSION 80 PROJECTNAME) ( 681 "Other changed files, using TEDIT-SEE" 503 "Medley compiled files, no comparisons:" 455 "Changed Medley source files:" 383 "Deleted files: " 181 "Added files: " 127 " and " 107 " origin/" 67 "Comparing ") GITCDOBJBUTTONFN :D8 (P 7 INFO2 P 6 INFO1 P 5 TYPE P 4 COMPAREITEMS P 3 COPYITEM P 2 FONT P 1 BRANCH1 P 0 CDENTRY I 1 WINDOW I 0 OBJ) @g Ag gl ƒ H´‚±Ç@g ´‚±´`jð´‚±§H^H_¿`lålð¢±”N¢±ÓO¢±ËN]Oð´‚±ËMdgð²"¿oohoohh± gð“h±–Mgð²o oh°xN o ²%oMd²dið¬3µgMhoh°:oMoMd´&dið³ 3µgMhN£O´oohh¼K¦L´‚±•`Ag oH_¿dO¿KL _¿dO¿dJ¿dJ$¿dg ¿dg¿jdnÿdh_¿dO ¿ dgð¢±¬¿NA ´‚±@giA @A ¿`låkð¢±ÿGAg ’±ÿ8@g dgð²¿ooo°#gð´ooohh[±þÜdgð²¿OA ´`@gihdgð²¿i NO dgð²¿i NOggð´Nµ Od• ¿°î(764 TEDIT-SEE 757 TEDIT-SEE 735 COMPARETEXT 720 TTY.PROCESS 703 CSBROWSER 693 TTY.PROCESS 675 IMAGEOBJPROP 661 FROMGIT 628 CONCAT 618 GIT-WHICH-BRANCH 593 CONCAT 583 GIT-WHICH-BRANCH 560 IMAGEOBJPROP 545 GETWINDOWUSERPROP 519 GETMOUSESTATE 513 CDOBJ.DISPLAYFN 506 REDISPLAYW 500 IMAGEOBJPROP 482 TOGIT 462 MENU 400 \APPEND2 384 CONCAT 372 GETWINDOWUSERPROP 301 CONCAT 248 MEMB 238 U-CASE 233 FILENAMEFIELD 217 CONCAT 97 GETMOUSESTATE 60 IMAGEOBJPROP 39 FONTCREATE 27 GETWINDOWUSERPROP 15 IMAGEOBJPROP 4 HELP) (741 TEDIT 730 PARA 710 COMPARETEXT 683 COMPARESOURCES 669 COPIED 648 FROMGIT 605 RIGHT 569 LEFT 555 OBJECTDATUM 540 READONLY 525 LASTMOUSEBUTTONS 494 COPIED 468 TOGIT 434 DEFAULTMENUHELDFN 425 CLRPROMPT 367 SUBDIR 360 |MENUTYPE#| 319 QUOTE 272 QUOTE 204 TEXT 192 COMPILED 152 SOURCE 103 LASTMOUSEBUTTONS 73 LASTKEYBOARD 55 OBJECTDATUM 32 TERMINAL 22 BRANCH1 10 OBJECTDATUM) ( 633 (QUOTE FROMGIT) 623 "?" 613 "Copy FROM git " 598 (QUOTE TOGIT) 588 "?" 578 "Copy TO git " 377 "/" 340 (QUOTE TEDIT) 335 "Show file?" 296 " files?" 290 "See " 281 (QUOTE COMPARETEXT) 255 "Compare text files?" 243 (TEXT TXT) 222 (QUOTE TEXT) 212 "Compare text files?" 179 (QUOTE EXAMINE) 174 "Examine sources?" 166 (QUOTE COMPARESOURCES) 161 "Compare sources?") GIT-CD-LABELFN :D8 (P 3 LABEL2 P 2 LABEL1 P 1 B P 0 NC I 2 USERDATA I 1 FILE2 I 0 FILE1 F 4 CDVALUE) }@TX²(@HkØ i ºBg'YœIoJºTX²AHkØ i »Bg'YµJµ@KµAhoK»°è(120 CONCAT 86 SLASHIT 80 SUBSTRING 54 CONCAT 32 SLASHIT 26 SUBSTRING) (93 BRANCH2 39 BRANCH1) ( 114 "/" 48 "/") GIT-CD-MENUFN :D8 (I 3 KEY I 2 CDBROWSER I 1 MENUITEM I 0 TBITEM F 0 PWINDOW F 1 USERDATA F 2 LABEL1 F 3 FILE2 F 4 FILE1 F 5 LABEL2) ?AµAdgð²T¿P P Cgð³)hgoUogð´‚±ìSQg' B@ dgð²o¿P P Ri ²MCgð³/hgoRi ogð´‚±‚TQg' B@ oi gð²YP P hgoRi ogð´#SQg' TQg' B@ (316 SHOULDNT 310 TB.DELETE.ITEM 303 MYMEDLEY-DELETE-FILES 290 GIT-DELETE-FILE 269 ASKUSER 264 CONCAT 254 NAMEFIELD 236 GIVE.TTY.PROCESS 230 FLASHWINDOW 215 PRIN1 203 TB.DELETE.ITEM 196 MYMEDLEY-DELETE-FILES 171 ASKUSER 166 CONCAT 156 NAMEFIELD 127 NAMEFIELD 120 GIVE.TTY.PROCESS 114 FLASHWINDOW 97 TB.DELETE.ITEM 90 GIT-DELETE-FILE 65 ASKUSER 60 CONCAT 29 GIVE.TTY.PROCESS 23 FLASHWINDOW) (297 PROJECT 284 PROJECT 274 Y 242 N 221 Delete% BOTH 190 PROJECT 176 Y 144 N 135 MIDDLE 104 |Delete ALL <-| 84 PROJECT 70 Y 44 N 35 MIDDLE 13 Delete% ->) ( 259 " ? " 247 "Delete all Medley and git versions of " 209 "Nothing to delete" 161 " ? " 149 "Delete ALL versions of " 55 " ? " 49 "Delete ") GIT-WORKING-COMPARE-FILES :D8 (P 1 FILE2 P 0 FILE1 I 1 PROJECT I 0 FILE) PgAg g@i gAg g@i HIHI(77 CD-COMPARE-FILES 65 SLASHIT 59 PACKFILENAME 48 GIT-GET-PROJECT 32 UNSLASHIT 26 PACKFILENAME 15 GIT-GET-PROJECT) (53 BODY 43 GITHOST 37 HOST 20 BODY 10 WHOST 4 HOST) () GIT-BRANCHES-COMPARE-FILES :D8 (P 1 FILE2 P 0 FILE1 I 4 LOCAL I 3 PROJECT I 2 BRANCH2 I 1 BRANCH1 I 0 FILE) ÍC bA d“dið˜¿C °+dgð¯dgð§dgðž¿ACi ¿AbB d“dið™¿CD °+dgð¯dgð§dgðž¿BCi ¿BbA@hdC B@hdC HIA o@B o@(202 CD-COMPARE-FILES 197 CONCAT 186 GIT-SHORT-BRANCH-NAME 180 CONCAT 169 GIT-SHORT-BRANCH-NAME 158 GIT-GET-FILE 147 GIT-GET-FILE 131 GIT-PICK-BRANCH 126 GIT-BRANCHES 91 GIT-MAINBRANCH 77 U-CASE 66 GIT-PICK-BRANCH 61 GIT-BRANCHES 26 GIT-MY-CURRENT-BRANCH 13 U-CASE 5 GIT-GET-PROJECT) (115 ORIGIN 107 REMOTE 99 LOCAL 50 ORIGIN 42 REMOTE 34 LOCAL) ( 191 " " 174 " ") GIT-PR-COMPARE :D8 (I 1 PROJECT I 0 RB) A @hA(13 GIT-BRANCHES-COMPARE-DIRECTORIES 5 GIT-MAINBRANCH) NIL () CDGITDIR :D8 (I 0 PROJECT) !o@ hio(30 CONCAT 20 SLASHIT 13 TRUEFILENAME) NIL ( 25 " && " 4 "cd ") GIT-COMMANDA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 ESTREAM F 1 A0030) Pi hc¿$(11 \MVLIST 6 COPYCHARS) NIL () GIT-COMMANDA0002 :D8 (F 0 ESTREAM F 1 A0030) PgQ(11 CL:CLOSE) (5 :ABORT) () GIT-COMMAND :D8 (P 4 A0030 P 3 ESTREAM P 2 LINES P 1 RESULTFILE P 0 LPOS I 3 PROJECT I 2 NOERROR I 1 ALL I 0 CMD) ÚC bo@ kð³o@ kðo@ b¿o@ X²(@kHkÙ@Ho Ø b¿°Î@CBId²Nggg ig KgL¿$I ¿IY´IA ZI J(214 DELFILE 207 GIT-RESULT-TO-LINES 194 DELFILE 181 CL:CLOSE 169 \MVLIST 164 GIT-COMMANDA0001 150 OPEN 144 SYSTEM-EXTERNALFORMAT 114 GIT-COMMAND-TO-FILE 100 CONCAT 95 SUBSTRING 89 NCHARS 77 SUBSTRING 64 STRPOS 47 CONCAT 33 STRPOS 18 STRPOS 5 GIT-GET-PROJECT) (175 :ABORT 159 GIT-COMMANDA0002 139 :EXTERNAL-FORMAT 134 :INPUT 129 :DIRECTION) ( 84 "local/" 58 "local/" 41 "git " 27 "gh" 12 "git") GITORIGIN :D8 (I 1 LOCAL I 0 BRANCH) <@ªo ¿o@ «o@ ‘@A•o„o@ (57 CONCAT 35 STRPOS 23 STRPOS 11 HELP) NIL ( 51 "origin/" 45 "local/" 29 "local/" 17 "origin/" 6 "BRANCH MUST BE SPECIFIED") GIT-INITIALS :D8 (F 0 INITIALS) %Pmÿ l:ð™Pkmþ€Pµo (34 ERROR 20 SUBSTRING 7 NTHCHARCODE) NIL ( 29 "INITIALS is not set") GIT-COMMAND-TO-FILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 ESTREAM F 1 CMD F 2 COMPLETIONCODE F 3 A0031) SoPjkµoPjkµoPjkjð³oPQ ´kc hc¿$(73 \MVLIST 63 FILEPOS 58 NCHARS 42 FILEPOS 27 FILEPOS 12 FILEPOS) NIL ( 51 "' is not a git command." 34 "unknown command %"" 19 "gh: Command not found" 4 "fatal: ") GIT-COMMAND-TO-FILEA0002 :D8 (F 0 ESTREAM F 1 A0031) PgQ(11 CL:CLOSE) (5 :ABORT) () GIT-COMMAND-TO-FILE :D8 (P 7 A0031 P 6 ESTREAM P 5 COMPLETIONCODE P 4 ERRORFILE P 3 RESULTFILE P 2 RAND P 1 DATE P 0 PROJECTNAME I 2 NOERROR I 1 PROJECT I 0 CMD) mA b@ bAg oHoIoJo oHoIoJo A @oK oL ]L K L ²jLg Ùjð˜L ¿h¼K ²jKg ÙjðšL˜K ¿h»Mdjð”¿LµMjð²TK²OL²IKLhggg ig NgO¿$°°Kµ#LK L B¯o@ h(361 ERROR 356 CONCAT 343 DELFILE 337 DELFILE 319 CL:CLOSE 306 \MVLIST 301 GIT-COMMAND-TO-FILEA0001 287 OPEN 281 SYSTEM-EXTERNALFORMAT 232 DELFILE 220 GETFILEINFO 206 INFILEP 197 DELFILE 187 GETFILEINFO 173 INFILEP 167 CLOSEF? 161 CLOSEF? 154 PROCESS-COMMAND 149 CONCAT 143 STRIPHOST 132 STRIPHOST 120 CDGITDIR 111 CONCAT 79 CONCAT 47 RAND 39 IDATE 31 L-CASE 26 GIT-GET-PROJECT 13 STRIPLOCAL 5 GIT-GET-PROJECT) (312 :ABORT 296 GIT-COMMAND-TO-FILEA0002 276 :EXTERNAL-FORMAT 271 :INPUT 266 :DIRECTION 215 LENGTH 182 LENGTH 21 PROJECTNAME) ( 350 "Command failed: " 137 " 2> " 126 " > " 105 "-error" 99 "-" 93 "-" 87 "{UNIX}/tmp/" 73 "-result" 67 "-" 61 "-" 55 "{UNIX}/tmp/") GIT-RESULT-TO-LINESA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 3 LINE I 0 SI::*CLEANUP-FORMS* F 4 STREAM F 5 A0032 F 6 ALL) O@T žH hc ¿$Tghgh »VoKk³ÈKºIµ JhY¸°¼J&¹°·(58 STRPOS 43 CL:READ-LINE 16 \MVLIST 8 EOFP) (36 :EOF-VALUE 30 :EOF-ERROR-P) ( 51 ".git") GIT-RESULT-TO-LINESA0002 :D8 (F 0 STREAM F 1 A0032) PgQ(11 CL:CLOSE) (5 :ABORT) () GIT-RESULT-TO-LINES :D8 (P 1 A0032 P 0 STREAM I 1 ALL I 0 FILE) @@ggg ig HgI¿$(57 CL:CLOSE 45 \MVLIST 40 GIT-RESULT-TO-LINESA0001 26 OPEN 20 SYSTEM-EXTERNALFORMAT) (51 :ABORT 35 GIT-RESULT-TO-LINESA0002 15 :EXTERNAL-FORMAT 10 :INPUT 5 :DIRECTION) () STRIPLOCAL :D8 (P 0 POS I 0 STRING) :o@ X¡@@kHkÙ@HlØmÿµo b¿°Ì(51 CONCAT 39 SUBSTRING 27 SUBSTRING 13 STRPOS) NIL ( 46 "" 7 "local/") (PRETTYCOMPRINT GITFNSCOMS) (RPAQQ GITFNSCOMS ((* ;; "Set up") (FILES (SYSLOAD FROM LISPUSERS) COMPAREDIRECTORIES COMPARESOURCES COMPARETEXT PSEUDOHOSTS UNIXUTILS) (* ;; "") (* ;; "GIT projects") (COMS (FNS GIT-CLONEP GIT-INIT GIT-MAKE-PROJECT GIT-GET-PROJECT GIT-PUT-PROJECT-FIELD GIT-PROJECT-PATH FIND-ANCESTOR-DIRECTORY GIT-FIND-CLONE GIT-MAINBRANCH GIT-MAINBRANCH?) (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS GIT-PROJECT PULLREQUEST)) (INITVARS (GIT-DEFAULT-PROJECT (QUOTE MEDLEY)) (GIT-DEFAULT-PROJECTS (QUOTE ((MEDLEY NIL NIL (EXPORTS.ALL RDSYS RDSYS.LCOM loadups/ patches/ tmp/ fontsold/ clos/ cltl2/) (greetfiles scripts sources library lispusers internal doctools rooms)) (NOTECARDS) (LOOPS) (TEST) (MAIKO)))) ( GIT-PROJECTS NIL))) (P (GIT-INIT)) (ADDVARS (AROUNDEXITFNS GIT-INIT)) (* ;; "") (* ;; "Lisp exec commands") (INITVARS (GIT-MERGE-COMPARES T) (GIT-CDBROWSER-SEPARATE-DIRECTIONS T)) ( COMMANDS gwc bbc prc cob b? cdg cdw) (FNS PRC-COMMAND) (* ;; "") (* ;; "File correspondents") (FNS ALLSUBDIRS MEDLEYSUBDIRS GITSUBDIRS) (FNS TOGIT FROMGIT GIT-DELETE-FILE MYMEDLEY-DELETE-FILES) (FNS MYMEDLEYSUBDIR GITSUBDIR STRIPDIR STRIPHOST STRIPNAME STRIPWHERE) (FNS GFILE4MFILE MFILE4GFILE GIT-REPO-FILENAME) (* ;; "") (* ;; "Git commands") (FNS GIT-COMMIT GIT-PUSH GIT-PULL GIT-APPROVAL GIT-GET-FILE GIT-FILE-EXISTS? GIT-REMOTE-UPDATE GIT-REMOTE-ADD GIT-FILE-DATE GIT-FILE-HISTORY GIT-PRINT-FILE-HISTORY GIT-FETCH GIT-PR-BRANCHES) (* ;; "Differences") (FNS GIT-BRANCH-DIFF GIT-COMMIT-DIFFS GIT-BRANCH-RELATIONS) (* ;; "") (* ;; "Branches") (FNS GIT-BRANCH-NUM GIT-CHECKOUT GIT-WHICH-BRANCH GIT-MAKE-BRANCH GIT-BRANCHES GIT-BRANCH-EXISTS? GIT-PICK-BRANCH GIT-BRANCH-MENU GIT-PULL-REQUESTS GIT-SHORT-BRANCH-NAME GIT-LONG-NAME GIT-PRC-BRANCHES) (* ;; "My branches") (FNS GIT-MY-CURRENT-BRANCH GIT-MY-BRANCHP GIT-MY-NEXT-BRANCH GIT-MY-BRANCHES) (* ;; "") (* ;; "Worktrees") (FNS GIT-ADD-WORKTREE GIT-REMOVE-WORKTREE GIT-LIST-WORKTREES WORKTREEDIR) (* ;; "") (* ;; "Comparisons") (FNS GIT-GET-DIFFERENT-FILES GIT-BRANCHES-COMPARE-DIRECTORIES GIT-WORKING-COMPARE-DIRECTORIES GIT-COMPARE-WORKTREE GITCDOBJBUTTONFN GIT-CD-LABELFN GIT-CD-MENUFN GIT-WORKING-COMPARE-FILES GIT-BRANCHES-COMPARE-FILES GIT-PR-COMPARE) (INITVARS (FROMGITN 0)) (* ;; "") (* ;; "Utilities") (FNS CDGITDIR GIT-COMMAND GITORIGIN GIT-INITIALS GIT-COMMAND-TO-FILE GIT-RESULT-TO-LINES STRIPLOCAL) (PROPS (GITFNS FILETYPE)))) (FILESLOAD (SYSLOAD FROM LISPUSERS) COMPAREDIRECTORIES COMPARESOURCES COMPARETEXT PSEUDOHOSTS UNIXUTILS) (RPAQ? GIT-DEFAULT-PROJECT (QUOTE MEDLEY)) (RPAQ? GIT-DEFAULT-PROJECTS (QUOTE ((MEDLEY NIL NIL (EXPORTS.ALL RDSYS RDSYS.LCOM loadups/ patches/ tmp/ fontsold/ clos/ cltl2/) (greetfiles scripts sources library lispusers internal doctools rooms)) ( NOTECARDS) (LOOPS) (TEST) (MAIKO)))) (RPAQ? GIT-PROJECTS NIL) (GIT-INIT) (ADDTOVAR AROUNDEXITFNS GIT-INIT) (RPAQ? GIT-MERGE-COMPARES T) (RPAQ? GIT-CDBROWSER-SEPARATE-DIRECTIONS T) (DEFCOMMAND gwc (SUBDIR . OTHERS) (* ;; "Compares the specified local git-medley subdirectories against my working Medley. The SUBDIRS are the arguments up to one that looks like a project" ) (LET ((SUBDIRS (AND SUBDIR (CONS SUBDIR OTHERS))) PROJECT) (SETQ SUBDIRS (FOR STAIL ON SUBDIRS COLLECT (IF (GIT-GET-PROJECT (CAR STAIL) NIL T) THEN (SETQ PROJECT (CAR STAIL)) (GO $$OUT)) (CAR STAIL ))) (GIT-WORKING-COMPARE-DIRECTORIES SUBDIRS NIL NIL NIL T PROJECT))) (DEFCOMMAND bbc (BRANCH1 BRANCH2 LOCAL PROJECT) (* ;; "Compares 2 git branches. Defaults to local/ if LOCAL, otherwise defaults to origin/. BRANCH2 defaults to the main branch (origin/ or local/ depending on LOCAL)" ) (SETQ PROJECT (GIT-GET-PROJECT PROJECT)) (GIT-FETCH PROJECT) (SETQ BRANCH1 (SELECTQ (U-CASE BRANCH1) ((NIL T) (GIT-MY-CURRENT-BRANCH PROJECT)) ((LOCAL REMOTE ORIGIN) (GIT-PICK-BRANCH (GIT-BRANCHES BRANCH1 PROJECT T))) (OR (GIT-LONG-NAME BRANCH1 NIL PROJECT) BRANCH1))) (SETQ BRANCH2 (SELECTQ (U-CASE BRANCH2) ((NIL T) (GIT-MAINBRANCH PROJECT LOCAL)) ((LOCAL REMOTE ORIGIN) (GIT-PICK-BRANCH ( GIT-BRANCHES BRANCH2 PROJECT T))) (OR (GIT-LONG-NAME BRANCH2 NIL PROJECT) BRANCH2))) ( GIT-BRANCHES-COMPARE-DIRECTORIES BRANCH1 (OR BRANCH2 (GIT-MAINBRANCH PROJECT LOCAL)) LOCAL PROJECT)) (DEFCOMMAND prc (REMOTEBRANCH DRAFTS PROJECT) (* ;; "Compares REMOTEBRANCH against the main orign branch, for pull-request assessment") (PRC-COMMAND REMOTEBRANCH DRAFTS PROJECT)) (DEFCOMMAND cob (BRANCH NEXTTITLESTRING PROJECT) (* ;; "Switches to BRANCH. T means my current branch, NEW/NEXT means my next branch (under wherever we are now), and NEXTTITLESTRING if given will be attached to the branch-name. Default is to bring up a menu of locally available branches." ) (CL:UNLESS (STRINGP NEXTTITLESTRING) (SETQ PROJECT NEXTTITLESTRING)) (CL:UNLESS PROJECT (CL:WHEN ( GIT-GET-PROJECT BRANCH NIL T) (SETQ PROJECT BRANCH) (SETQ BRANCH NIL))) (SETQ PROJECT (GIT-GET-PROJECT PROJECT)) (GIT-FETCH PROJECT) (SELECTQ (U-CASE BRANCH) (T (GIT-CHECKOUT (GIT-MY-CURRENT-BRANCH PROJECT) PROJECT)) ((NEW NEXT) (GIT-MAKE-BRANCH NIL NEXTTITLESTRING PROJECT)) (CL:WHEN (SETQ BRANCH ( IF BRANCH THEN (GIT-LONG-NAME BRANCH NIL PROJECT) ELSE (GIT-PICK-BRANCH (GIT-BRANCHES (QUOTE LOCAL) PROJECT T) (CONCAT (L-CASE (GIT-GET-PROJECT PROJECT (QUOTE PROJECTNAME)) T) " branches")))) ( GIT-CHECKOUT BRANCH PROJECT)))) (DEFCOMMAND b? (PROJECT) (SETQ PROJECT (GIT-GET-PROJECT PROJECT)) (GIT-FETCH PROJECT) (CONCAT (L-CASE (GIT-GET-PROJECT PROJECT (QUOTE PROJECTNAME)) T) " " (GIT-WHICH-BRANCH PROJECT))) (DEFCOMMAND cdg (PROJECT SUBDIR) (CL:UNLESS (GIT-GET-PROJECT PROJECT NIL T) (SETQ SUBDIR PROJECT) ( SETQ PROJECT GIT-DEFAULT-PROJECT)) (CL:WHEN (AND SUBDIR (NOT (MEMB (CHCON1 SUBDIR)) (CHARCODE (> /)))) (SETQ SUBDIR (CONCAT SUBDIR "/"))) (SLASHIT (/CNDIR (CONCAT (GIT-GET-PROJECT PROJECT (QUOTE GITHOST)) (OR SUBDIR ""))) T)) (DEFCOMMAND cdw (PROJECT SUBDIR) (CL:UNLESS (GIT-GET-PROJECT PROJECT NIL T) (SETQ SUBDIR PROJECT) ( SETQ PROJECT GIT-DEFAULT-PROJECT)) (CL:WHEN (AND SUBDIR (NOT (MEMB (CHCON1 SUBDIR)) (CHARCODE (> /)))) (SETQ SUBDIR (CONCAT SUBDIR "/"))) (SLASHIT (/CNDIR (CONCAT (GIT-GET-PROJECT PROJECT (QUOTE WHOST)) ( OR SUBDIR ""))) T)) (RPAQ? FROMGITN 0) (PUTPROPS GITFNS FILETYPE :TCOMPL) NIL