fix #1861 typo in Interpress \IPC macro for constants (#1865 )

fix typo in INTERPRESS \IPC macro
Update license to mention Interlisp.org but portions copyright Xerox & Venue & others (#1543 )
2026-03-29 11:25:47 +00:00 · 2024-10-27 17:51:01 -07:00 · 2024-10-22 11:22:53 -07:00 · 2024-10-22 11:15:18 -07:00 · 2024-10-21 18:40:41 -07:00 · 2024-10-07 10:22:48 -07:00
14 changed files with 120 additions and 78 deletions
--- a/2
+++ b/2
@@ -1,6 +1,6 @@
 MIT License

-Copyright Interlisp.org contributors
+Copyright © 2024 Interlisp.org. Portions originally copyrighted by Xerox, Venue, John Sybalsky, and other contributors.

 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal
--- a/scripts/loadup-apps-from-full.sh
+++ b/scripts/loadup-apps-from-full.sh
@@ -32,20 +32,25 @@ main() {
 	    exit 1
 	fi

+    git_commit_ID "${NOTECARDSDIR}"
+    NOTECARDS_COMMIT_ID="${COMMIT_ID}"
+    export NOTECARDS_COMMIT_ID
+
 	cat >"${cmfile}" <<-"EOF"
 	"

 	(PROGN
 	   (IL:MEDLEY-INIT-VARS 'IL:GREET)
-	   (IL:DRIBBLE (IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV(QUOTE LOADUP_WORKDIR))(IL:L-CASE (QUOTE /apps.dribble))))
+	   (IL:DRIBBLE (IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV (QUOTE LOADUP_WORKDIR))(IL:L-CASE (QUOTE /apps.dribble))))
 	   (IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE ROOMSDIR))(QUOTE /ROOMS)) 'IL:SYSLOAD)
 	   (IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE NOTECARDSDIR))(QUOTE |/system/NOTECARDS.LCOM|)) 'IL:SYSLOAD)
 	   (IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE CLOSDIR))(QUOTE /DEFSYS.DFASL)) 'IL:SYSLOAD)
 	   (IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE MEDLEYDIR))(QUOTE |lispusers/BUTTONS.LCOM|)) 'IL:SYSLOAD)
-	   (IL:LOAD
-	       (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV (QUOTE LOADUP_SOURCEDIR)) (QUOTE /LOADUP-APPS.LCOM))
-	       'IL:SYSLOAD
-	   )
+	   (IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV (QUOTE LOADUP_SOURCEDIR)) (QUOTE /LOADUP-APPS.LCOM)) 'IL:SYSLOAD)
+       (IL:PRINT (IL:UNIX-GETENV (QUOTE NOTECARDS_COMMIT_ID)))
+       (IL:PUTASSOC (QUOTE IL:MEDLEY) (LIST (IL:UNIX-GETENV (QUOTE LOADUP_COMMIT_ID))) IL:SYSOUTCOMMITS)
+       (IL:PUTASSOC (QUOTE IL:NOTECARDS) (LIST (IL:UNIX-GETENV (QUOTE NOTECARDS_COMMIT_ID))) IL:SYSOUTCOMMITS)
+       (IL:PRINT IL:SYSOUTCOMMITS)
 	   (IL:HARDRESET)
 	)
 	SHH
--- a/scripts/loadup-aux.sh
+++ b/scripts/loadup-aux.sh
@@ -17,10 +17,12 @@ main() {
          (DRIBBLE (QUOTE {DSK}<TMP>FOOBAR))
 	  (IL:MAKE-EXPORTS-ALL (IL:CONCAT WORKDIR (IL:L-CASE (QUOTE exports.all))))
 	  (DRIBBLE)
+	  (IL:PUTASSOC (QUOTE IL:MEDLEY) (LIST (IL:UNIX-GETENV (QUOTE LOADUP_COMMIT_ID))) IL:SYSOUTCOMMITS)
 	  (IL:MAKE-WHEREIS-HASH
 	    (IL:CONCAT WORKDIR (IL:L-CASE (QUOTE whereis.dribble)))
 	    (IL:CONCAT WORKDIR (IL:L-CASE (QUOTE whereis.hash-tmp)))
 	    (IL:CONCAT WORKDIR (IL:L-CASE (QUOTE whereis.hash)))
+        NIL NIL
 	  )
 	  (IL:LOGOUT T)
 	)
--- a/scripts/loadup-db-from-full.sh
+++ b/scripts/loadup-db-from-full.sh
@@ -18,6 +18,7 @@ main() {

 	(PROG
 	  ((WORKDIR (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV (QUOTE LOADUP_WORKDIR)) (QUOTE /))))
+	  (SETQ IL:SYSOUTCOMMITS (LIST (LIST (QUOTE IL:MEDLEY) (IL:UNIX-GETENV (QUOTE LOADUP_COMMIT_ID)))))
 	  (IL:MEDLEY-INIT-VARS)
 	  (IL:FILESLOAD MEDLEY-UTILS)
 	  (SETQ IL:DIRECTORIES (CONS (IL:UNIX-GETENV (QUOTE LOADUP_SOURCEDIR)) IL:DIRECTORIES))
--- a/scripts/loadup-full-from-lisp.sh
+++ b/scripts/loadup-full-from-lisp.sh
@@ -12,6 +12,7 @@ main() {
 	(PROGN
 	  (IL:LOAD (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV (QUOTE LOADUP_SOURCEDIR))(QUOTE /LOADUP-FULL.LCOM)))
 	  (IL:LOADUP-FULL (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE LOADUP_WORKDIR))(IL:L-CASE (QUOTE /full.dribble))))
+	  (IL:PUTASSOC (QUOTE IL:MEDLEY) (LIST (IL:UNIX-GETENV (QUOTE LOADUP_COMMIT_ID))) IL:SYSOUTCOMMITS)
 	  (IL:HARDRESET)
 	)
 	SHH
--- a/scripts/loadup-init.sh
+++ b/scripts/loadup-init.sh
@@ -12,6 +12,7 @@ main() {
 	(SETQ MEDLEYDIR NIL)
 	(LOAD (CONCAT (UNIX-GETENV "MEDLEYDIR") "/sources/MEDLEYDIR.LCOM"))
 	(MEDLEY-INIT-VARS)
+	(PUTASSOC (QUOTE MEDLEY) (LIST (UNIX-GETENV (QUOTE LOADUP_COMMIT_ID))) SYSOUTCOMMITS)
 	(CNDIR (UNIX-GETENV "LOADUP_WORKDIR"))
 	(DRIBBLE "init.dribble")

@@ -28,15 +29,18 @@ main() {
 	   (LOADUP-SOURCE-DIR (CONCAT "{DSK}" (UNIX-GETENV "LOADUP_SOURCEDIR") "/"))
 	  )
 	  (SETQ DIRECTORIES (CONS LOADUP-SOURCE-DIR DIRECTORIES))
+      (PRINT (DATE))
+	  (PRINT (SETQ SYSOUTCOMMITS (LIST (LIST (QUOTE MEDLEY) (UNIX-GETENV (QUOTE LOADUP_COMMIT_ID))))))
 	  (RESETLST (RESETSAVE OK.TO.MODIFY.FNS T)
 	    (MAKEINITGREET (CONCAT WORKDIR "init.sysout") (CONCAT WORKDIR "init.dlinit"))
 	  )
 	)
+
 	(DRIBBLE)
 	(LOGOUT T)
 	STOP
 	EOF
-
+    
 	run_medley "${LOADUP_SOURCEDIR}/starter.sysout"

 	loadup_finish "init.dlinit" "init.*" "RDSYS*" "I-NEW*"
--- a/scripts/loadup-lisp-from-mid.sh
+++ b/scripts/loadup-lisp-from-mid.sh
@@ -5,7 +5,7 @@ main() {
 	. "${LOADUP_SCRIPTDIR}/loadup-setup.sh"

 	loadup_start
-
+    
 	cat >"${cmfile}" <<-"EOF"
 	"

@@ -14,6 +14,7 @@ main() {
 	  (MEDLEY-INIT-VARS)
 	  (LOAD (CONCAT (QUOTE {DSK}) (UNIX-GETENV (QUOTE LOADUP_SOURCEDIR)) (QUOTE /LOADUP-LISP.LCOM)))
 	  (LOADUP-LISP (CONCAT (QUOTE {DSK}) (UNIX-GETENV (QUOTE LOADUP_WORKDIR)) (QUOTE /lisp.dribble)))
+	  (PUTASSOC (QUOTE MEDLEY) (LIST (UNIX-GETENV (QUOTE LOADUP_COMMIT_ID))) SYSOUTCOMMITS)
 	  (HARDRESET)
 	)
 	SHH
--- a/scripts/loadup-setup.sh
+++ b/scripts/loadup-setup.sh
@@ -50,8 +50,20 @@ then
  fi
 fi

+HAS_GIT= [ -f $(which git) ] && [ -x $(which git) ]
+export HAS_GIT

+git_commit_ID () {
+  if ${HAS_GIT};
+  then
+    # This does NOT indicate if there are any modified files!
+    COMMIT_ID=$(git -C "$1" rev-parse --short HEAD)
+  fi
+}

+git_commit_ID "${LOADUP_SOURCEDIR}"
+LOADUP_COMMIT_ID="${COMMIT_ID}"
+export LOADUP_COMMIT_ID

 scr="-sc 1024x768 -g 1042x790"
 geometry=1024x768
--- a/scripts/medley/medley.command
+++ b/scripts/medley/medley.command
@@ -1489,10 +1489,10 @@ then
  #
  # Make sure prequisites for vnc support are in place
  #
-  if [ -z "$(which Xvnc)" ] || [ "$(Xvnc -version 2>&1 | grep -iq tigervnc; echo $?)" -eq 1 ]
+  if [ -z "$(which Xtigervnc)" ]
  then
    echo "Error: The -v or --vnc flag was set."
-    echo "But it appears that that TigerVNC server \(Xvnc\) has not been installed."
+    echo "But it appears that the TigerVNC server (Xtigervnc) has not been installed."
    echo "Please install the TigerVNC server and try again.  On Debian and Ubuntu, use:"
    echo "\"sudo apt install tigervnc-standalone-server\". On most other Linux distros, use the"
    echo "distro's package manager to install the \"tigervnc-server\" package."
@@ -1501,10 +1501,10 @@ then
  fi
  if [ "${linux}" = "true" ]
  then
-    if [ -z "$(which vncviewer)" ] || [ "$(vncviewer -v 2>&1 | head -2 | grep -iq tigervnc; echo $?)" -eq 1 ]
+    if [ -z "$(which xtigervncviewer)" ]
    then
      echo "Error: The -v or --vnc flag was set."
-      echo "But it appears that that the TigerVNC viewer \(vncviewer\) is not installed on your system."
+      echo "But it appears that that the TigerVNC viewer (xtigervncviewer) is not installed on your system."
      echo "Please install the TigerVNC viewer and try again.  On Debian and Ubuntu, use:"
      echo "\"sudo apt install tigervnc-viewer\".  On most other Linux distros, use the"
      echo "the distro's package manager to install the \"tigervnc-viewer\" (or sometimes just \"tigervnc\")"
@@ -1512,7 +1512,7 @@ then
      echo "Exiting."
      exit 5
    else
-       vncviewer="$(which vncviewer)"
+       vncviewer="$(which xtigervncviewer)"
    fi
  elif [ "${wsl}" = "true" ]
  then
@@ -1537,7 +1537,7 @@ then
          if [ -z "${resp}" ]; then resp=n; fi
          case "${resp}" in
            n* | N* )
-              echo "Ok.  You can download the Tiger VNC viewer \(v1.12.0\) .exe yourself and "
+              echo "Ok.  You can download the Tiger VNC viewer (v1.12.0) .exe yourself and "
              echo "place it in ${vnc_dir}/${vnc_exe}.  Then retry."
              echo "Exiting."
              exit 5
--- a/scripts/medley/medley_vnc.sh
+++ b/scripts/medley/medley_vnc.sh
@@ -67,10 +67,10 @@
  #
  # Make sure prequisites for vnc support are in place
  #
-  if [ -z "$(which Xvnc)" ] || [ "$(Xvnc -version 2>&1 | grep -iq tigervnc; echo $?)" -eq 1 ]
+  if [ -z "$(which Xtigervnc)" ]
  then
    echo "Error: The -v or --vnc flag was set."
-    echo "But it appears that that TigerVNC server \(Xvnc\) has not been installed."
+    echo "But it appears that the TigerVNC server (Xtigervnc) has not been installed."
    echo "Please install the TigerVNC server and try again.  On Debian and Ubuntu, use:"
    echo "\"sudo apt install tigervnc-standalone-server\". On most other Linux distros, use the"
    echo "distro's package manager to install the \"tigervnc-server\" package."
@@ -79,10 +79,10 @@
  fi
  if [ "${linux}" = "true" ]
  then
-    if [ -z "$(which vncviewer)" ] || [ "$(vncviewer -v 2>&1 | head -2 | grep -iq tigervnc; echo $?)" -eq 1 ]
+    if [ -z "$(which xtigervncviewer)" ]
    then
      echo "Error: The -v or --vnc flag was set."
-      echo "But it appears that that the TigerVNC viewer \(vncviewer\) is not installed on your system."
+      echo "But it appears that that the TigerVNC viewer (xtigervncviewer) is not installed on your system."
      echo "Please install the TigerVNC viewer and try again.  On Debian and Ubuntu, use:"
      echo "\"sudo apt install tigervnc-viewer\".  On most other Linux distros, use the"
      echo "the distro's package manager to install the \"tigervnc-viewer\" (or sometimes just \"tigervnc\")"
@@ -90,7 +90,7 @@
      echo "Exiting."
      exit 5
    else
-       vncviewer="$(which vncviewer)"
+       vncviewer="$(which xtigervncviewer)"
    fi
  elif [ "${wsl}" = "true" ]
  then
@@ -115,7 +115,7 @@
          if [ -z "${resp}" ]; then resp=n; fi
          case "${resp}" in
            n* | N* )
-              echo "Ok.  You can download the Tiger VNC viewer \(v1.12.0\) .exe yourself and "
+              echo "Ok.  You can download the Tiger VNC viewer (v1.12.0) .exe yourself and "
              echo "place it in ${vnc_dir}/${vnc_exe}.  Then retry."
              echo "Exiting."
              exit 5
--- a/sources/INTERPRESS
+++ b/sources/INTERPRESS
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

-(FILECREATED "13-Nov-2023 11:15:45" {WMEDLEY}<sources>INTERPRESS.;18 220543 
+(FILECREATED "27-Oct-2024 12:09:17" {DSK}<home>larry>il>medley>sources>INTERPRESS.;3 220681 

-      :EDIT-BY rmk
+      :EDIT-BY "lmm"

-      :CHANGES-TO (VARS INTERPRESSCOMS)
+      :CHANGES-TO (FUNCTIONS \IPC)

-      :PREVIOUS-DATE "11-Nov-2023 10:38:10" {WMEDLEY}<sources>INTERPRESS.;17)
+      :PREVIOUS-DATE "13-Nov-2023 11:15:45" {DSK}<home>larry>il>medley>sources>INTERPRESS.;1)


 (PRETTYCOMPRINT INTERPRESSCOMS)
@@ -380,8 +380,9 @@


 (DEFMACRO \IPC (X)
-   (DECLARE (SPECIAL X))                                     (* ; "Edited  2-May-2023 08:33 by lmm")
-   [OR (AND (BOUNDP '\IPCONSTANDS)
+   (DECLARE (SPECIAL X))                                     (* ; "Edited 27-Oct-2024 11:57 by lmm")
+                                                             (* ; "Edited  2-May-2023 08:33 by lmm")
+   [OR (AND (BOUNDP '\IPCONSTANTS)
            (LISTP \IPCONSTANTS))
       (SETQ \IPCONSTANTS (FOR X IN IPCONSTANTS JOIN (FOR Y IN (EVAL X)
                                                        COLLECT (CONS (CAR Y)
@@ -3908,44 +3909,44 @@
 (LOADDEF 'BRUSH 'RECORDS 'IMAGEIO)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (15420 16164 (\IPC 15420 . 16164)) (16397 22049 (APPENDBYTE.IP 16407 . 16543) (
-APPENDIDENTIFIER.IP 16545 . 17067) (APPENDINT.IP 17069 . 17520) (APPENDINTEGER.IP 17522 . 18094) (
-APPENDLARGEVECTOR.IP 18096 . 19061) (APPENDNUMBER.IP 19063 . 19532) (APPENDOP.IP 19534 . 20180) (
-APPENDRATIONAL.IP 20182 . 20675) (APPENDSEQUENCEDESCRIPTOR.IP 20677 . 21872) (BYTESININT.IP 21874 . 
-22047)) (22085 61892 (ARCTO.IP 22095 . 23376) (BEGINMASTER.IP 23378 . 23651) (BEGINPAGE.IP 23653 . 
-24009) (BEGINPREAMBLE.IP 24011 . 24382) (CLIPRECTANGLE.IP 24384 . 24874) (CONCAT.IP 24876 . 25141) (
-CONCATT.IP 25143 . 25410) (ENDMASTER.IP 25412 . 25856) (ENDPAGE.IP 25858 . 26235) (ENDPREAMBLE.IP 
-26237 . 27036) (FGET.IP 27038 . 27341) (FILLRECTANGLE.IP 27343 . 29671) (FILLTRAJECTORY.IP 29673 . 
-30308) (FILLNGON.IP 30310 . 32587) (FSET.IP 32589 . 32892) (GETFRAMEVAR.IP 32894 . 33212) (
-INITIALIZEMASTER.IP 33214 . 33815) (INITIALIZECOLOR.IP 33817 . 35138) (ISET.IP 35140 . 35511) (
-GETCP.IP 35513 . 35822) (LINETO.IP 35824 . 36429) (MASKSTROKE.IP 36431 . 36704) (MOVETO.IP 36706 . 
-37043) (ROTATE.IP 37045 . 37347) (SCALE.IP 37349 . 37652) (SCALE2.IP 37654 . 37991) (SETCOLOR.IP 37993
- . 40222) (SETRGB.IP 40224 . 41280) (SETCOLORLV.IP 41282 . 45895) (SETCOLOR16.IP 45897 . 49003) (
-SETFONT.IP 49005 . 49826) (SETSPACE.IP 49828 . 50140) (SETXREL.IP 50142 . 51326) (SETX.IP 51328 . 
-52845) (SETXY.IP 52847 . 54019) (SETXYREL.IP 54021 . 55327) (SETY.IP 55329 . 56638) (SETYREL.IP 56640
- . 57540) (SHOW.IP 57542 . 60802) (TRAJECTORY.IP 60804 . 61202) (TRANS.IP 61204 . 61543) (TRANSLATE.IP
- 61545 . 61890)) (61923 68013 (\CHANGE-VISIBLE-REGION.IP 61933 . 65594) (\PAPERSIZE.IP 65596 . 66417) 
-(HEADINGOP.IP 66419 . 68011)) (68014 173024 (DEFINEFONT.IP 68024 . 68998) (FONTNAME.IP 69000 . 69930) 
-(INTERPRESS.BITMAPSCALE 69932 . 70741) (INTERPRESS.OUTCHARFN 70743 . 76915) (INTERPRESSFILEP 76917 . 
-78251) (MAKEINTERPRESS 78253 . 78437) (NEWLINE.IP 78439 . 79171) (NEWPAGE.IP 79173 . 84148) (
-NEWPAGE?.IP 84150 . 84629) (OPENIPSTREAM 84631 . 92982) (SETUPFONTS.IP 92984 . 93976) (SHOWBITMAP.IP 
-93978 . 98519) (\BITMAPSIZE.IP 98521 . 99298) (SHOWBITMAP1.IP 99300 . 103672) (SHOWSHADE.IP 103674 . 
-104627) (\BITBLT.IP 104629 . 108833) (\SCALEDBITBLT.IP 108835 . 112480) (\BLTSHADE.IP 112482 . 113940)
- (\CHARWIDTH.IP 113942 . 114392) (\CLOSEIPSTREAM 114394 . 114721) (\DRAWARC.IP 114723 . 115170) (
-\DRAWCURVE.IP 115172 . 117609) (\DRAWPOINT.IP 117611 . 118648) (\DSPCOLOR.IP 118650 . 119601) (
-ENSURE.RGB 119603 . 120267) (\IPCURVE2 120269 . 133523) (\CLIPCURVELINE.IP 133525 . 138223) (
-\DRAWLINE.IP 138225 . 141957) (\CLIPLINE 141959 . 146659) (\DSPBOTTOMMARGIN.IP 146661 . 147077) (
-\DSPFONT.IP 147079 . 151126) (\DSPLEFTMARGIN.IP 151128 . 151588) (\DSPLINEFEED.IP 151590 . 152257) (
-\DSPRIGHTMARGIN.IP 152259 . 153056) (\DSPSPACEFACTOR.IP 153058 . 154187) (\DSPTOPMARGIN.IP 154189 . 
-154625) (\DSPXPOSITION.IP 154627 . 155614) (\DSPROTATE.IP 155616 . 155794) (\PUSHSTATE.IP 155796 . 
-156688) (\POPSTATE.IP 156690 . 157325) (\DEFAULTSTATE.IP 157327 . 157679) (\DSPTRANSLATE.IP 157681 . 
-157862) (\DSPSCALE2.IP 157864 . 158039) (\DSPYPOSITION.IP 158041 . 158342) (FILLCIRCLE.IP 158344 . 
-159427) (\FILLPOLYGON.IP 159429 . 160760) (\DRAWPOLYGON.IP 160762 . 166892) (\FIXLINELENGTH.IP 166894
- . 168108) (\MOVETO.IP 168110 . 168474) (\SETBRUSH.IP 168476 . 170642) (\STRINGWIDTH.IP 170644 . 
-171047) (\DSPCLIPPINGREGION.IP 171049 . 172225) (\DSPOPERATION.IP 172227 . 173022)) (173215 173970 (
-IP-TOS 173225 . 173485) (POP-IP-STACK 173487 . 173782) (PUSH-IP-STACK 173784 . 173968)) (174031 186595
- (\CREATECHARSET.IP 174041 . 185832) (\CHANGECHARSET.IP 185834 . 186593)) (186596 191322 (
-\INTERPRESSINIT 186606 . 191320)) (191323 191881 (SCALEREGION 191333 . 191879)) (204809 207233 (
-INTERPRESSBITMAP 204819 . 207231)) (209441 216097 (NSMAP 209451 . 210033) (\COERCEASCIITONSFONT 210035
- . 213889) (\CREATEINTERPRESSFONT 213891 . 215756) (\SEARCHINTERPRESSFONTS 215758 . 216095)))))
+  (FILEMAP (NIL (15449 16302 (\IPC 15449 . 16302)) (16535 22187 (APPENDBYTE.IP 16545 . 16681) (
+APPENDIDENTIFIER.IP 16683 . 17205) (APPENDINT.IP 17207 . 17658) (APPENDINTEGER.IP 17660 . 18232) (
+APPENDLARGEVECTOR.IP 18234 . 19199) (APPENDNUMBER.IP 19201 . 19670) (APPENDOP.IP 19672 . 20318) (
+APPENDRATIONAL.IP 20320 . 20813) (APPENDSEQUENCEDESCRIPTOR.IP 20815 . 22010) (BYTESININT.IP 22012 . 
+22185)) (22223 62030 (ARCTO.IP 22233 . 23514) (BEGINMASTER.IP 23516 . 23789) (BEGINPAGE.IP 23791 . 
+24147) (BEGINPREAMBLE.IP 24149 . 24520) (CLIPRECTANGLE.IP 24522 . 25012) (CONCAT.IP 25014 . 25279) (
+CONCATT.IP 25281 . 25548) (ENDMASTER.IP 25550 . 25994) (ENDPAGE.IP 25996 . 26373) (ENDPREAMBLE.IP 
+26375 . 27174) (FGET.IP 27176 . 27479) (FILLRECTANGLE.IP 27481 . 29809) (FILLTRAJECTORY.IP 29811 . 
+30446) (FILLNGON.IP 30448 . 32725) (FSET.IP 32727 . 33030) (GETFRAMEVAR.IP 33032 . 33350) (
+INITIALIZEMASTER.IP 33352 . 33953) (INITIALIZECOLOR.IP 33955 . 35276) (ISET.IP 35278 . 35649) (
+GETCP.IP 35651 . 35960) (LINETO.IP 35962 . 36567) (MASKSTROKE.IP 36569 . 36842) (MOVETO.IP 36844 . 
+37181) (ROTATE.IP 37183 . 37485) (SCALE.IP 37487 . 37790) (SCALE2.IP 37792 . 38129) (SETCOLOR.IP 38131
+ . 40360) (SETRGB.IP 40362 . 41418) (SETCOLORLV.IP 41420 . 46033) (SETCOLOR16.IP 46035 . 49141) (
+SETFONT.IP 49143 . 49964) (SETSPACE.IP 49966 . 50278) (SETXREL.IP 50280 . 51464) (SETX.IP 51466 . 
+52983) (SETXY.IP 52985 . 54157) (SETXYREL.IP 54159 . 55465) (SETY.IP 55467 . 56776) (SETYREL.IP 56778
+ . 57678) (SHOW.IP 57680 . 60940) (TRAJECTORY.IP 60942 . 61340) (TRANS.IP 61342 . 61681) (TRANSLATE.IP
+ 61683 . 62028)) (62061 68151 (\CHANGE-VISIBLE-REGION.IP 62071 . 65732) (\PAPERSIZE.IP 65734 . 66555) 
+(HEADINGOP.IP 66557 . 68149)) (68152 173162 (DEFINEFONT.IP 68162 . 69136) (FONTNAME.IP 69138 . 70068) 
+(INTERPRESS.BITMAPSCALE 70070 . 70879) (INTERPRESS.OUTCHARFN 70881 . 77053) (INTERPRESSFILEP 77055 . 
+78389) (MAKEINTERPRESS 78391 . 78575) (NEWLINE.IP 78577 . 79309) (NEWPAGE.IP 79311 . 84286) (
+NEWPAGE?.IP 84288 . 84767) (OPENIPSTREAM 84769 . 93120) (SETUPFONTS.IP 93122 . 94114) (SHOWBITMAP.IP 
+94116 . 98657) (\BITMAPSIZE.IP 98659 . 99436) (SHOWBITMAP1.IP 99438 . 103810) (SHOWSHADE.IP 103812 . 
+104765) (\BITBLT.IP 104767 . 108971) (\SCALEDBITBLT.IP 108973 . 112618) (\BLTSHADE.IP 112620 . 114078)
+ (\CHARWIDTH.IP 114080 . 114530) (\CLOSEIPSTREAM 114532 . 114859) (\DRAWARC.IP 114861 . 115308) (
+\DRAWCURVE.IP 115310 . 117747) (\DRAWPOINT.IP 117749 . 118786) (\DSPCOLOR.IP 118788 . 119739) (
+ENSURE.RGB 119741 . 120405) (\IPCURVE2 120407 . 133661) (\CLIPCURVELINE.IP 133663 . 138361) (
+\DRAWLINE.IP 138363 . 142095) (\CLIPLINE 142097 . 146797) (\DSPBOTTOMMARGIN.IP 146799 . 147215) (
+\DSPFONT.IP 147217 . 151264) (\DSPLEFTMARGIN.IP 151266 . 151726) (\DSPLINEFEED.IP 151728 . 152395) (
+\DSPRIGHTMARGIN.IP 152397 . 153194) (\DSPSPACEFACTOR.IP 153196 . 154325) (\DSPTOPMARGIN.IP 154327 . 
+154763) (\DSPXPOSITION.IP 154765 . 155752) (\DSPROTATE.IP 155754 . 155932) (\PUSHSTATE.IP 155934 . 
+156826) (\POPSTATE.IP 156828 . 157463) (\DEFAULTSTATE.IP 157465 . 157817) (\DSPTRANSLATE.IP 157819 . 
+158000) (\DSPSCALE2.IP 158002 . 158177) (\DSPYPOSITION.IP 158179 . 158480) (FILLCIRCLE.IP 158482 . 
+159565) (\FILLPOLYGON.IP 159567 . 160898) (\DRAWPOLYGON.IP 160900 . 167030) (\FIXLINELENGTH.IP 167032
+ . 168246) (\MOVETO.IP 168248 . 168612) (\SETBRUSH.IP 168614 . 170780) (\STRINGWIDTH.IP 170782 . 
+171185) (\DSPCLIPPINGREGION.IP 171187 . 172363) (\DSPOPERATION.IP 172365 . 173160)) (173353 174108 (
+IP-TOS 173363 . 173623) (POP-IP-STACK 173625 . 173920) (PUSH-IP-STACK 173922 . 174106)) (174169 186733
+ (\CREATECHARSET.IP 174179 . 185970) (\CHANGECHARSET.IP 185972 . 186731)) (186734 191460 (
+\INTERPRESSINIT 186744 . 191458)) (191461 192019 (SCALEREGION 191471 . 192017)) (204947 207371 (
+INTERPRESSBITMAP 204957 . 207369)) (209579 216235 (NSMAP 209589 . 210171) (\COERCEASCIITONSFONT 210173
+ . 214027) (\CREATEINTERPRESSFONT 214029 . 215894) (\SEARCHINTERPRESSFONTS 215896 . 216233)))))
 STOP
--- a/sources/INTERPRESS.LCOM
+++ b/sources/INTERPRESS.LCOM
--- a/sources/MEDLEYDIR
+++ b/sources/MEDLEYDIR
@@ -1,12 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

-(FILECREATED "19-Jul-2023 08:57:43" {WMEDLEY}<sources>MEDLEYDIR.;22 10362  
+(FILECREATED "26-Aug-2024 22:11:48" {DSK}<home>matt>Interlisp>medley>sources>MEDLEYDIR.;4 11113  

-      :EDIT-BY rmk
+      :EDIT-BY "mth"

-      :CHANGES-TO (FNS MEDLEYDIR)
+      :CHANGES-TO (VARS MEDLEYDIRCOMS MEDLEY-INIT-VARS)
+                  (FNS SET-SYSOUT-COMMIT)

-      :PREVIOUS-DATE "17-Jul-2023 16:13:10" {WMEDLEY}<sources>MEDLEYDIR.;21)
+      :PREVIOUS-DATE " 8-Jul-2024 22:49:43" {DSK}<home>matt>Interlisp>medley>sources>MEDLEYDIR.;3)


 (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -15,16 +16,19 @@
       [
        (* ;; "set up initialization for file paths relative to where Medley is installed. This assumes that the environment variable MEDLEYDIR is set (usually by the ./run-medley script) to the (unix path) and all of the other directories variables are set relative to that (by MEDLEY-INIT-VARS)")

-        (FNS MEDLEY-INIT-VARS MEDLEYDIR MEDLEYSUBSTDIR)
-        (INITVARS (MEDLEYDIR)
-               (\SAVE.MEDLEYDIR))
+        (FNS MEDLEY-INIT-VARS MEDLEYDIR MEDLEYSUBSTDIR SET-SYSOUT-COMMIT)
+        [INITVARS (MEDLEYDIR)
+               (\SAVE.MEDLEYDIR)
+               (SYSOUTCOMMITS (OR (AND (BOUNDP 'SYSOUTCOMMITS)
+                                       SYSOUTCOMMITS)
+                                  (LIST (LIST 'MEDLEY NIL]
        (ADDVARS (AROUNDEXITFNS MEDLEY-INIT-VARS))
        
        (* ;; "**WARNING**  The EVALed expressions get run early in the lodup.")

        (VARS MEDLEY-INIT-VARS)
        (DECLARE%: EVAL@COMPILE DOCOPY (ADDVARS (GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS 
-                                                       \SAVE.MEDLEYDIR DIRECTORIES])
+                                                       \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS])



@@ -158,12 +162,21 @@
                  (EQ 1 (STRPOS OLD (U-CASE (MKSTRING BODY]
        THEN [PACK* NEW (SUBSTRING BODY (ADD1 (NCHARS OLD]
      ELSE BODY])
+
+(SET-SYSOUT-COMMIT
+  [LAMBDA (REPO COMMIT-ID-ENV-VAR)                           (* ; "Edited  8-Jul-2024 23:31 by mth")
+    (PUTASSOC REPO (LIST (UNIX-GETENV COMMIT-ID-ENV-VAR))
+           SYSOUTCOMMITS])
 )

 (RPAQ? MEDLEYDIR )

 (RPAQ? \SAVE.MEDLEYDIR )

+(RPAQ? SYSOUTCOMMITS (OR (AND (BOUNDP 'SYSOUTCOMMITS)
+                              SYSOUTCOMMITS)
+                         (LIST (LIST 'MEDLEY NIL))))
+
 (ADDTOVAR AROUNDEXITFNS MEDLEY-INIT-VARS)


@@ -172,7 +185,9 @@


 (RPAQQ MEDLEY-INIT-VARS
-       ([LISPUSERSDIRECTORIES (MEDLEYDIR '("library" "lispusers" "internal" "greetfiles" "doctools"]
+       ((ShellBrowser)
+        (ShellOpener)
+        [LISPUSERSDIRECTORIES (MEDLEYDIR '("library" "lispusers" "internal" "greetfiles" "doctools"]
        [LISPSOURCEDIRECTORIES (MEDLEYDIR '("sources"]
        (LISPSOURCEDIRECTORY (CAR LISPSOURCEDIRECTORIES))
        (IRM.HOST&DIR (MEDLEYDIR '"docs/dinfo"))
@@ -203,9 +218,9 @@
                                   NIL NIL T))))
 (DECLARE%: EVAL@COMPILE DOCOPY 

-(ADDTOVAR GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES)
+(ADDTOVAR GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1432 8288 (MEDLEY-INIT-VARS 1442 . 4920) (MEDLEYDIR 4922 . 7306) (MEDLEYSUBSTDIR 7308
- . 8286)))))
+  (FILEMAP (NIL (1749 8823 (MEDLEY-INIT-VARS 1759 . 5237) (MEDLEYDIR 5239 . 7623) (MEDLEYSUBSTDIR 7625
+ . 8603) (SET-SYSOUT-COMMIT 8605 . 8821)))))
 STOP
--- a/sources/MEDLEYDIR.LCOM
+++ b/sources/MEDLEYDIR.LCOM
Author	SHA1	Message	Date
Larry Masinter	024e83d17e	fix #1861 typo in Interpress \IPC macro for constants (#1865 ) fix typo in INTERPRESS \IPC macro	2024-10-27 17:51:01 -07:00
Herb Jellinek	5fef8528ab	Update license to mention Interlisp.org but portions copyright Xerox & Venue & others (#1543 )	2024-10-22 11:22:53 -07:00
Larry Masinter	0b3bc9ac48	fix misspelled contributers	2024-10-22 11:15:18 -07:00
Larry Masinter	93ee6a1fbf	Update license to mention Interlisp.org but portions copyright Xerox & Venue & others	2024-10-21 18:40:41 -07:00
Matt Heffron	fe04869cb3	Add git commit ID to beginning of loadups .dribble files. (#1778 ) * Add git commit ID to beginning of loadups .dribble files. The commit ID is put into the .dribble file in the .sh scripts. (using echo ... > name.dribble) The changes to MEDLEY-UTILS, LOADUP-FULL, and LOADUP-LISP are to enable the passing of APPENDFLG to (DRIBBLE ... APPENDFLG). * I hadn't saved file before previous commit. * Add to IL:SYSOUTCOMMITS instead of to the .dribble files. * Initialize SYSOUTCOMMITS so PUTASSOC has somewhere to put value(s)	2024-10-07 10:22:48 -07:00
Frank Halasz	178807afff	Fix Issue#1841: using medley --vnc option on RaspberryPi OS (#1842 ) In scripts/medley/medley_vnc.sh, update references to Xvnc and vncviewer to their tigervnc-specific versions Xtigervnc and xtigervncviewer. Fixes Issue#1841.	2024-10-07 10:19:09 -07:00