Added FINDFILE in IMAGESOURCETYPE

sources/IMAGEIO

@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "28-Dec-2025 17:57:56" {WMEDLEY}<sources>IMAGEIO.;36
 97264  
+
(FILECREATED "29-Dec-2025 10:41:40" {WMEDLEY}<sources>IMAGEIO.;37
 97380  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS IMAGEIOCOMS)
-                  (FNS HTMLFILEP)
+      :CHANGES-TO (FNS IMAGESOURCETYPE)
 
-      :PREVIOUS-DATE "25-Dec-2025 09:09:03" {WMEDLEY}<sources>IMAGEIO.;34)
+      :PREVIOUS-DATE "28-Dec-2025 17:57:56" {WMEDLEY}<sources>IMAGEIO.;36)
 
 
 (PRETTYCOMPRINT IMAGEIOCOMS)
@@ -158,14 +157,16 @@
                          (CL:PATHNAMEP IMAGESOURCE])
 
 (IMAGESOURCETYPE

-  [LAMBDA (X)
                                                (* ; "Edited 24-Dec-2025 14:38 by rmk")


+  [LAMBDA (X)
                                                (* ; "Edited 29-Dec-2025 10:40 by rmk")


+                                                             (* ; "Edited 24-Dec-2025 14:38 by rmk")


                                                              (* ; "Edited 20-Dec-2025 14:07 by rmk")


                                                              (* ; "Edited 28-Sep-2025 11:35 by rmk")


                                                              (* ; "Edited 18-Sep-2025 11:13 by rmk")


                                                              (* ; "Edited 13-Sep-2025 23:36 by rmk")


                                                              (* ; "Edited  3-Mar-93 14:34 by rmk:")


-                                                             (* ; "Edited 22-Aug-92 14:27 by jds")


-                                                             (* ; "Edited 26-Aug-87 14:22 by Snow")

+                                                             (* ; "Edited 22-Aug-92 14:27 by jds")

+    (CL:WHEN (IMAGESOURCEFILEP
 X)
+        (SETQ X (FINDFILE X T)))
                             (* ; "Edited 26-Aug-87 14:22 by Snow")

     (if
 (WINDOWP X)
         then
 (OR (WINDOWPROP X 'IMAGETYPE)
                  'WINDOW)
@@ -1841,31 +1842,32 @@
 (ADDTOVAR LAMA
 IMAGESTREAMP)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4358 5999 (OPENIMAGESTREAM 4368 . 5997)) (6000 9946 (IMAGESTREAMP 6010 . 6842) (
-IMAGESTREAMTYPE 6844 . 7057) (IMAGESTREAMTYPEP 7059 . 7694) (IMAGEFILEPROP 7696 . 8234) (
-IMAGESOURCEFILEP 8236 . 8513) (IMAGESOURCETYPE 8515 . 9944)) (9947 10952 (EXTENSIONS.FOR.IMAGEFILETYPE
- 9957 . 10313) (IMAGEFILETYPE.FROM.EXTENSION 10315 . 10950)) (10953 15448 (CONVERT.TO.IMAGEFILE 10963
- . 15446)) (15449 19540 (BITMAPFILEP 15459 . 16960) (BITMAP.TO.BITMAPFILE 16962 . 18639) (
-BITMAPFILE.TO.BITMAP 18641 . 19295) (BITMAPFILE.TO.IMAGEFILE 19297 . 19538)) (19541 25866 (
-BITMAP.TO.IMAGEFILE 19551 . 21108) (WINDOW.TO.IMAGEFILE 21110 . 23939) (SCREENREGION.TO.IMAGEFILE 
-23941 . 24845) (COPY.WINDOW.TO.BITMAP 24847 . 25864)) (25965 26602 (DEFAULT.IMAGETYPE.CONVERSIONS 
-25975 . 26600)) (27225 27451 (HTMLFILEP 27235 . 27449)) (27486 29601 (\GOOD.DASHLST 27496 . 29599)) (
-29602 31899 (DRAWDASHEDLINE 29612 . 31897)) (31900 39240 (DSPBACKCOLOR 31910 . 32282) (DSPBOTTOMMARGIN
- 32284 . 32669) (DSPCOLOR 32671 . 33035) (DSPCLIPPINGREGION 33037 . 33742) (DSPRESET 33744 . 34024) (
-DSPFONT 34026 . 34390) (DSPLEFTMARGIN 34392 . 34773) (DSPLINEFEED 34775 . 35075) (DSPOPERATION 35077
- . 35454) (DSPRIGHTMARGIN 35456 . 35839) (DSPTOPMARGIN 35841 . 36220) (DSPSCALE 36222 . 36589) (
-DSPSPACEFACTOR 36591 . 36984) (DSPXPOSITION 36986 . 37291) (DSPYPOSITION 37293 . 37598) (DSPROTATE 
-37600 . 37895) (DSPPUSHSTATE 37897 . 38143) (DSPPOPSTATE 38145 . 38388) (DSPDEFAULTSTATE 38390 . 38642
-) (DSPSCALE2 38644 . 38935) (DSPTRANSLATE 38937 . 39238)) (39241 48042 (DSPNEWPAGE 39251 . 39943) (
-DRAWBETWEEN 39945 . 40647) (DRAWCIRCLE 40649 . 41145) (DRAWARC 41147 . 41664) (DRAWCURVE 41666 . 42343
-) (DRAWELLIPSE 42345 . 43131) (DRAWLINE 43133 . 43523) (DRAWPOLYGON 43525 . 43980) (DRAWPOINT 43982 . 
-44401) (FILLPOLYGON 44403 . 44969) (DRAWTO 44971 . 45389) (FILLCIRCLE 45391 . 45614) (MOVETO 45616 . 
-45980) (RELDRAWTO 45982 . 46899) (BITMAPIMAGESIZE 46901 . 47072) (SCALEDBITBLT 47074 . 48040)) (48043 
-55082 (\DRAWPOINT.GENERIC 48053 . 48400) (\DRAWPOLYGON.GENERIC 48402 . 50710) (\DRAWCIRCLE.GENERIC 
-50712 . 52370) (\DRAWELLIPSE.GENERIC 52372 . 55080)) (55083 60027 (\IMAGEIOINIT 55093 . 58373) (
-\NOIMAGE.DSPFONT 58375 . 59861) (\UNIMPIMAGEOP 59863 . 60025)) (60150 63274 (INSURE.BRUSH 60160 . 
-61534) (BRUSHP 61536 . 62326) (\POSSIBLECOLOR 62328 . 62879) (NEGSHADE 62881 . 63272)) (63830 64514 (
-DASHINGP 63840 . 64170) (INSURE.DASHING 64172 . 64512)) (75252 95798 (\DisplayEventFn 75262 . 75772) (
-\DISPLAYINIT 75774 . 81357) (\4DISPLAYINIT 81359 . 86060) (\8DISPLAYINIT 86062 . 90765) (
-\24DISPLAYINIT 90767 . 95539) (\DISPLAYSTREAMTYPEBPP 95541 . 95796)))))
+  (FILEMAP (NIL (4327 5968 (OPENIMAGESTREAM 4337 . 5966)) (5969 10062 (IMAGESTREAMP 5979 . 6811) (
+IMAGESTREAMTYPE 6813 . 7026) (IMAGESTREAMTYPEP 7028 . 7663) (IMAGEFILEPROP 7665 . 8203) (
+IMAGESOURCEFILEP 8205 . 8482) (IMAGESOURCETYPE 8484 . 10060)) (10063 11068 (
+EXTENSIONS.FOR.IMAGEFILETYPE 10073 . 10429) (IMAGEFILETYPE.FROM.EXTENSION 10431 . 11066)) (11069 15564
+ (CONVERT.TO.IMAGEFILE 11079 . 15562)) (15565 19656 (BITMAPFILEP 15575 . 17076) (BITMAP.TO.BITMAPFILE 
+17078 . 18755) (BITMAPFILE.TO.BITMAP 18757 . 19411) (BITMAPFILE.TO.IMAGEFILE 19413 . 19654)) (19657 
+25982 (BITMAP.TO.IMAGEFILE 19667 . 21224) (WINDOW.TO.IMAGEFILE 21226 . 24055) (
+SCREENREGION.TO.IMAGEFILE 24057 . 24961) (COPY.WINDOW.TO.BITMAP 24963 . 25980)) (26081 26718 (
+DEFAULT.IMAGETYPE.CONVERSIONS 26091 . 26716)) (27341 27567 (HTMLFILEP 27351 . 27565)) (27602 29717 (
+\GOOD.DASHLST 27612 . 29715)) (29718 32015 (DRAWDASHEDLINE 29728 . 32013)) (32016 39356 (DSPBACKCOLOR 
+32026 . 32398) (DSPBOTTOMMARGIN 32400 . 32785) (DSPCOLOR 32787 . 33151) (DSPCLIPPINGREGION 33153 . 
+33858) (DSPRESET 33860 . 34140) (DSPFONT 34142 . 34506) (DSPLEFTMARGIN 34508 . 34889) (DSPLINEFEED 
+34891 . 35191) (DSPOPERATION 35193 . 35570) (DSPRIGHTMARGIN 35572 . 35955) (DSPTOPMARGIN 35957 . 36336
+) (DSPSCALE 36338 . 36705) (DSPSPACEFACTOR 36707 . 37100) (DSPXPOSITION 37102 . 37407) (DSPYPOSITION 
+37409 . 37714) (DSPROTATE 37716 . 38011) (DSPPUSHSTATE 38013 . 38259) (DSPPOPSTATE 38261 . 38504) (
+DSPDEFAULTSTATE 38506 . 38758) (DSPSCALE2 38760 . 39051) (DSPTRANSLATE 39053 . 39354)) (39357 48158 (
+DSPNEWPAGE 39367 . 40059) (DRAWBETWEEN 40061 . 40763) (DRAWCIRCLE 40765 . 41261) (DRAWARC 41263 . 
+41780) (DRAWCURVE 41782 . 42459) (DRAWELLIPSE 42461 . 43247) (DRAWLINE 43249 . 43639) (DRAWPOLYGON 
+43641 . 44096) (DRAWPOINT 44098 . 44517) (FILLPOLYGON 44519 . 45085) (DRAWTO 45087 . 45505) (
+FILLCIRCLE 45507 . 45730) (MOVETO 45732 . 46096) (RELDRAWTO 46098 . 47015) (BITMAPIMAGESIZE 47017 . 
+47188) (SCALEDBITBLT 47190 . 48156)) (48159 55198 (\DRAWPOINT.GENERIC 48169 . 48516) (
+\DRAWPOLYGON.GENERIC 48518 . 50826) (\DRAWCIRCLE.GENERIC 50828 . 52486) (\DRAWELLIPSE.GENERIC 52488 . 
+55196)) (55199 60143 (\IMAGEIOINIT 55209 . 58489) (\NOIMAGE.DSPFONT 58491 . 59977) (\UNIMPIMAGEOP 
+59979 . 60141)) (60266 63390 (INSURE.BRUSH 60276 . 61650) (BRUSHP 61652 . 62442) (\POSSIBLECOLOR 62444
+ . 62995) (NEGSHADE 62997 . 63388)) (63946 64630 (DASHINGP 63956 . 64286) (INSURE.DASHING 64288 . 
+64628)) (75368 95914 (\DisplayEventFn 75378 . 75888) (\DISPLAYINIT 75890 . 81473) (\4DISPLAYINIT 81475
+ . 86176) (\8DISPLAYINIT 86178 . 90881) (\24DISPLAYINIT 90883 . 95655) (\DISPLAYSTREAMTYPEBPP 95657 . 
+95912)))))
 STOP