github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-08 16:57:41 +00:00
Code Issues Projects Releases Wiki Activity

Recognition of missing file

Browse Source
This commit is contained in:
rmkaplan
2026-05-05 11:19:42 -07:00
parent 7a6abb7816
commit 4ef73aeb80
4 changed files with 91 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

101
sources/FONT
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
(FILECREATED " 4-May-2026 12:39:02" {MEDLEY}<sources>FONT.;796 260358
(FILECREATED " 5-May-2026 09:56:41" {MEDLEY}<sources>FONT.;797 260815
:EDIT-BY rmk
:CHANGES-TO (FNS MAKEFONTSPEC)
:CHANGES-TO (FNS \CREATEDISPLAYFONT FONTSPEC.TO.FONTDESCRIPTOR)
:PREVIOUS-DATE "26-Apr-2026 10:58:52" {MEDLEY}<sources>FONT.;795)
:PREVIOUS-DATE " 4-May-2026 12:39:02" {MEDLEY}<sources>FONT.;796)
(PRETTYCOMPRINT FONTCOMS)
@@ -964,7 +964,8 @@
FSDEVICE ← (OR DEVICE (fetch (FONTSPEC FSDEVICE) of BASE])
(FONTSPEC.TO.FONTDESCRIPTOR
[LAMBDA (FONTSPEC MAXCHARSET) (* ; "Edited 29-Mar-2026 10:29 by rmk")
[LAMBDA (FONTSPEC MAXCHARSET) (* ; "Edited 5-May-2026 09:55 by rmk")
(* ; "Edited 29-Mar-2026 10:29 by rmk")
(* ; "Edited 28-Mar-2026 09:29 by rmk")
(* ; "Edited 20-Mar-2026 23:57 by rmk")
(* ; "Edited 19-Mar-2026 10:24 by rmk")
@@ -976,13 +977,13 @@
(LET ((FONT (create FONTDESCRIPTOR
FONTFAMILY ← (fetch (FONTSPEC FSFAMILY) of FONTSPEC)
FONTSIZE ← (fetch (FONTSPEC FSSIZE) of FONTSPEC)
FONTFACE ← (fetch (FONTSPEC FSFACE) of FONTSPEC)
FONTFACE ← (COPY (fetch (FONTSPEC FSFACE) of FONTSPEC))
ROTATION ← (fetch (FONTSPEC FSROTATION) of FONTSPEC)
FONTDEVICE ← (fetch (FONTSPEC FSDEVICE) of FONTSPEC)
\SFAscent ← 0
\SFDescent ← 0
\SFHeight ← 0
FONTDEVICESPEC ← (create FONTSPEC using FONTSPEC)
FONTDEVICESPEC ← (COPY (create FONTSPEC using FONTSPEC))
MAXCHARSET ← MAXCHARSET
FONTCHARSETVECTOR ← NIL)))
(replace (FONTDESCRIPTOR FONTCHARSETVECTOR) of FONT with (\CREATEFONTCHARSETVECTOR FONT))
@@ -3771,7 +3772,8 @@
(DEFINEQ
(\CREATEDISPLAYFONT
[LAMBDA (FONTSPEC) (* ; "Edited 15-Apr-2026 00:20 by rmk")
[LAMBDA (FONTSPEC) (* ; "Edited 5-May-2026 09:54 by rmk")
(* ; "Edited 15-Apr-2026 00:20 by rmk")
(* ; "Edited 11-Apr-2026 10:10 by rmk")
(* ; "Edited 29-Mar-2026 10:23 by rmk")
(* ; "Edited 16-Mar-2026 12:39 by rmk")
@@ -3788,10 +3790,15 @@
(* ;; "Eventually, this should be removed from IMAGESTREAMTYPES, since it is the default. Left here in case something else turns up.")
(* ;; "FONTEXISTS? has determined that there is at least one source file for this font, so the font exists in at least some character sets.")
(* ;; "FONTEXISTS? has determined that there is at least one source file for this font, so the font exists or can be faked in at least some character sets.")
(MEDLEYFONT.READ.FONT (CAR (FONTFILES FONTSPEC))
NIL T])
(LET [(FILE (CAR (FONTFILES FONTSPEC]
(if FILE
then (MEDLEYFONT.READ.FONT FILE NIL T)
else
(* ;; "Set up for faking")
(FONTSPEC.TO.FONTDESCRIPTOR FONTSPEC])
(\CREATECHARSET.DISPLAY
[LAMBDA (FONTSPEC FONT CHARSET) (* ; "Edited 12-Apr-2026 18:52 by rmk")
@@ -4118,41 +4125,41 @@
(ADDTOVAR LAMA FONTCOPY FONTDEVICEPROP)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (6605 16272 (CHARWIDTH 6615 . 7404) (CHARWIDTHY 7406 . 8923) (STRINGWIDTH 8925 . 9962) (
\CHARWIDTH.DISPLAY 9964 . 10379) (\STRINGWIDTH.DISPLAY 10381 . 10809) (\STRINGWIDTH.GENERIC 10811 .
16270)) (16273 22905 (DEFAULTFONT 16283 . 17568) (FONTCLASS 17570 . 19842) (FONTCLASSUNPARSE 19844 .
20745) (FONTCLASSCOMPONENT 20747 . 21335) (SETFONTCLASSCOMPONENT 21337 . 21779) (GETFONTCLASSCOMPONENT
21781 . 22903)) (24353 44255 (FONTCREATE 24363 . 27608) (FONTCREATE1 27610 . 30269) (
FONTCREATE.SLUGFD 30271 . 32835) (\FONT.CHECKARGS1 32837 . 37542) (\FONTCREATE1.NOFN 37544 . 37758) (
FONTFILEP 37760 . 38648) (\READCHARSET 38650 . 43835) (FONTCHARSETS 43837 . 44253)) (44256 51332 (
\FONT.CHECKARGS 44266 . 51015) (\CHARSET.CHECK 51017 . 51330)) (51333 57693 (COERCEFONTSPEC 51343 .
57004) (COERCEFONTSPEC.TARGETFACE 57006 . 57691)) (59888 63183 (MAKEFONTSPEC 59898 . 61551) (
FONTSPEC.TO.FONTDESCRIPTOR 61553 . 63181)) (63184 72846 (COMPLETE.FONT 63194 . 65219) (COMPLETEFONTP
65221 . 65959) (COMPLETE.CHARSET 65961 . 70027) (PRUNESLUGCSINFOS 70029 . 71340) (MONOSPACEFONTP 71342
. 72844)) (72885 82699 (FONTASCENT 72895 . 73279) (FONTDESCENT 73281 . 73766) (FONTHEIGHT 73768 .
74170) (FONTPROP 74172 . 81976) (\AVGCHARWIDTH 81978 . 82697)) (83447 85317 (FONTDEVICEPROP 83457 .
85315)) (85434 86288 (EDITCHAR 85444 . 86286)) (86334 98524 (GETCHARBITMAP 86344 . 87468) (
PUTCHARBITMAP 87470 . 89628) (\GETCHARBITMAP.CSINFO 89630 . 91646) (\PUTCHARBITMAP.CSINFO 91648 .
98522)) (98525 120866 (MOVECHARBITMAP 98535 . 100429) (MOVEFONTCHARS 100431 . 105581) (\MOVEFONTCHAR
105583 . 110455) (\MOVEFONTCHARS.SOURCEDATA 110457 . 117212) (\MAKESLUGCHAR 117214 . 119749) (
SLUGCHARP 119751 . 120864)) (121781 135035 (FONTFILES 121791 . 124830) (\FINDFONTFILE 124832 . 126809)
(\FONTFILENAMES 126811 . 127371) (\FONTFILENAME 127373 . 130483) (FONTSPECFROMFILENAME 130485 .
135033)) (135036 171369 (FONTCOPY 135046 . 140129) (FONTP 140131 . 140430) (FONTUNPARSE 140432 .
142155) (SETFONTDESCRIPTOR 142157 . 143621) (\STREAMCHARWIDTH 143623 . 147634) (\COERCECHARSET 147636
. 151025) (\BUILDSLUGCSINFO 151027 . 154720) (\FONTSYMBOL 154722 . 155376) (\DEVICESYMBOL 155378 .
156162) (\FONTFACE 156164 . 163368) (\FONTFACE.COLOR 163370 . 170152) (SETFONTCHARENCODING 170154 .
171367)) (171370 192228 (FONTSAVAILABLE 171380 . 176744) (FONTEXISTS? 176746 . 180554) (
\SEARCHFONTFILES 180556 . 183770) (FLUSHFONTCACHE 183772 . 186303) (FINDFONTFILES 186305 . 189521) (
SORTFONTSPECS 189523 . 192226)) (192229 197767 (MATCHFONTFACE 192239 . 193314) (MAKEFONTFACE 193316 .
194350) (FONTFACETOATOM 194352 . 196602) (FONTFACE.STARS 196604 . 197765)) (198398 198890 (
\UNITWIDTHSVECTOR 198408 . 198888)) (215811 217878 (FONTDESCRIPTOR.DEFPRINT 215821 . 217400) (
FONTCLASS.DEFPRINT 217402 . 217876)) (221800 224590 (\CREATEKERNELEMENT 221810 . 222168) (
\FSETLEFTKERN 222170 . 222661) (\FGETLEFTKERN 222663 . 224588)) (224591 235745 (\CREATEFONT 224601 .
228209) (\CREATECHARSET 228211 . 231496) (\INSTALLCHARSETINFO 231498 . 234832) (
\INSTALLCHARSETINFO.CHARENCODING 234834 . 235743)) (236067 237435 (\FONTRESETCHARWIDTHS 236077 .
237433)) (237958 245816 (\CREATEDISPLAYFONT 237968 . 239875) (\CREATECHARSET.DISPLAY 239877 . 243401)
(\FONTEXISTS?.DISPLAY 243403 . 245814)) (245817 254195 (FAKEFACE.CHARSET 245827 . 249889) (
MAKEBOLD.CHAR 249891 . 251744) (MAKEITALIC.CHAR 251746 . 254193)) (254226 258481 (\SFROTATECSINFO
254236 . 256378) (\SFROTATEFONTCHARACTERS 256380 . 256764) (\SFROTATECSINFOOFFSETS 256766 . 258479)) (
258482 259656 (\SFMAKECOLOR 258492 . 259654)))))
(FILEMAP (NIL (6638 16305 (CHARWIDTH 6648 . 7437) (CHARWIDTHY 7439 . 8956) (STRINGWIDTH 8958 . 9995) (
\CHARWIDTH.DISPLAY 9997 . 10412) (\STRINGWIDTH.DISPLAY 10414 . 10842) (\STRINGWIDTH.GENERIC 10844 .
16303)) (16306 22938 (DEFAULTFONT 16316 . 17601) (FONTCLASS 17603 . 19875) (FONTCLASSUNPARSE 19877 .
20778) (FONTCLASSCOMPONENT 20780 . 21368) (SETFONTCLASSCOMPONENT 21370 . 21812) (GETFONTCLASSCOMPONENT
21814 . 22936)) (24386 44288 (FONTCREATE 24396 . 27641) (FONTCREATE1 27643 . 30302) (
FONTCREATE.SLUGFD 30304 . 32868) (\FONT.CHECKARGS1 32870 . 37575) (\FONTCREATE1.NOFN 37577 . 37791) (
FONTFILEP 37793 . 38681) (\READCHARSET 38683 . 43868) (FONTCHARSETS 43870 . 44286)) (44289 51365 (
\FONT.CHECKARGS 44299 . 51048) (\CHARSET.CHECK 51050 . 51363)) (51366 57726 (COERCEFONTSPEC 51376 .
57037) (COERCEFONTSPEC.TARGETFACE 57039 . 57724)) (59921 63339 (MAKEFONTSPEC 59931 . 61584) (
FONTSPEC.TO.FONTDESCRIPTOR 61586 . 63337)) (63340 73002 (COMPLETE.FONT 63350 . 65375) (COMPLETEFONTP
65377 . 66115) (COMPLETE.CHARSET 66117 . 70183) (PRUNESLUGCSINFOS 70185 . 71496) (MONOSPACEFONTP 71498
. 73000)) (73041 82855 (FONTASCENT 73051 . 73435) (FONTDESCENT 73437 . 73922) (FONTHEIGHT 73924 .
74326) (FONTPROP 74328 . 82132) (\AVGCHARWIDTH 82134 . 82853)) (83603 85473 (FONTDEVICEPROP 83613 .
85471)) (85590 86444 (EDITCHAR 85600 . 86442)) (86490 98680 (GETCHARBITMAP 86500 . 87624) (
PUTCHARBITMAP 87626 . 89784) (\GETCHARBITMAP.CSINFO 89786 . 91802) (\PUTCHARBITMAP.CSINFO 91804 .
98678)) (98681 121022 (MOVECHARBITMAP 98691 . 100585) (MOVEFONTCHARS 100587 . 105737) (\MOVEFONTCHAR
105739 . 110611) (\MOVEFONTCHARS.SOURCEDATA 110613 . 117368) (\MAKESLUGCHAR 117370 . 119905) (
SLUGCHARP 119907 . 121020)) (121937 135191 (FONTFILES 121947 . 124986) (\FINDFONTFILE 124988 . 126965)
(\FONTFILENAMES 126967 . 127527) (\FONTFILENAME 127529 . 130639) (FONTSPECFROMFILENAME 130641 .
135189)) (135192 171525 (FONTCOPY 135202 . 140285) (FONTP 140287 . 140586) (FONTUNPARSE 140588 .
142311) (SETFONTDESCRIPTOR 142313 . 143777) (\STREAMCHARWIDTH 143779 . 147790) (\COERCECHARSET 147792
. 151181) (\BUILDSLUGCSINFO 151183 . 154876) (\FONTSYMBOL 154878 . 155532) (\DEVICESYMBOL 155534 .
156318) (\FONTFACE 156320 . 163524) (\FONTFACE.COLOR 163526 . 170308) (SETFONTCHARENCODING 170310 .
171523)) (171526 192384 (FONTSAVAILABLE 171536 . 176900) (FONTEXISTS? 176902 . 180710) (
\SEARCHFONTFILES 180712 . 183926) (FLUSHFONTCACHE 183928 . 186459) (FINDFONTFILES 186461 . 189677) (
SORTFONTSPECS 189679 . 192382)) (192385 197923 (MATCHFONTFACE 192395 . 193470) (MAKEFONTFACE 193472 .
194506) (FONTFACETOATOM 194508 . 196758) (FONTFACE.STARS 196760 . 197921)) (198554 199046 (
\UNITWIDTHSVECTOR 198564 . 199044)) (215967 218034 (FONTDESCRIPTOR.DEFPRINT 215977 . 217556) (
FONTCLASS.DEFPRINT 217558 . 218032)) (221956 224746 (\CREATEKERNELEMENT 221966 . 222324) (
\FSETLEFTKERN 222326 . 222817) (\FGETLEFTKERN 222819 . 224744)) (224747 235901 (\CREATEFONT 224757 .
228365) (\CREATECHARSET 228367 . 231652) (\INSTALLCHARSETINFO 231654 . 234988) (
\INSTALLCHARSETINFO.CHARENCODING 234990 . 235899)) (236223 237591 (\FONTRESETCHARWIDTHS 236233 .
237589)) (238114 246273 (\CREATEDISPLAYFONT 238124 . 240332) (\CREATECHARSET.DISPLAY 240334 . 243858)
(\FONTEXISTS?.DISPLAY 243860 . 246271)) (246274 254652 (FAKEFACE.CHARSET 246284 . 250346) (
MAKEBOLD.CHAR 250348 . 252201) (MAKEITALIC.CHAR 252203 . 254650)) (254683 258938 (\SFROTATECSINFO
254693 . 256835) (\SFROTATEFONTCHARACTERS 256837 . 257221) (\SFROTATECSINFOOFFSETS 257223 . 258936)) (
258939 260113 (\SFMAKECOLOR 258949 . 260111)))))
STOP

BIN
sources/FONT.LCOM
View File

Binary file not shown.

67
sources/MEDLEYFONTFORMAT
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED " 4-May-2026 14:58:55" {MEDLEY}<sources>MEDLEYFONTFORMAT.;316 66701
(FILECREATED " 5-May-2026 11:06:05" {MEDLEY}<sources>MEDLEYFONTFORMAT.;317 67145
:EDIT-BY rmk
:CHANGES-TO (FNS MEDLEYFONT.WRITE.CHARSET MEDLEYFONT.READ.CHARSET)
:CHANGES-TO (FNS MEDLEYFONT.READ.FONT MEDLEYFONT.FILENAME)
:PREVIOUS-DATE " 4-May-2026 10:28:29" {MEDLEY}<sources>MEDLEYFONTFORMAT.;315)
:PREVIOUS-DATE " 4-May-2026 14:58:55" {MEDLEY}<sources>MEDLEYFONTFORMAT.;316)
(PRETTYCOMPRINT MEDLEYFONTFORMATCOMS)
@@ -326,7 +326,8 @@
(DEFINEQ
(MEDLEYFONT.READ.FONT
[LAMBDA (FILE CHARSETS NOERROR DIRECTORY) (* ; "Edited 15-Apr-2026 00:50 by rmk")
[LAMBDA (FILE CHARSETS NOERROR DIRECTORY) (* ; "Edited 5-May-2026 11:05 by rmk")
(* ; "Edited 15-Apr-2026 00:50 by rmk")
(* ; "Edited 12-Apr-2026 00:30 by rmk")
(* ; "Edited 6-Apr-2026 09:07 by rmk")
(* ; "Edited 4-Apr-2026 15:29 by rmk")
@@ -350,23 +351,27 @@
(SETQ CHARSETS (SORT (CHARSET.DECODE (MKLIST CHARSETS)
NOERROR]
(RESETLST
(PROG ((FILENAME (MEDLEYFONT.FILENAME FILE DIRECTORY))
STREAM FONT CSLOC MAXCHARSET) (* ;
(LET ((FILENAME (MEDLEYFONT.FILENAME FILE DIRECTORY))
STREAM FONT CSLOC MAXCHARSET) (* ;
 "CL:OPEN-FILE doesn't exist in the init")
[RESETSAVE (SETQ STREAM (OPENSTREAM FILENAME 'INPUT))
'(PROGN (CLOSEF? OLDVALUE]
(MEDLEYFONT.FILEVERSION STREAM 1)
(SETQ MAXCHARSET (MEDLEYFONT.READ.ITEM STREAM 'MAXCHARSET))
(SETQ CSLOC (\FIXPIN STREAM)) (* ;
(if FILENAME
then [RESETSAVE (SETQ STREAM (OPENSTREAM FILENAME 'INPUT))
'(PROGN (CLOSEF? OLDVALUE]
(MEDLEYFONT.FILEVERSION STREAM 1)
(SETQ MAXCHARSET (MEDLEYFONT.READ.ITEM STREAM 'MAXCHARSET))
(SETQ CSLOC (\FIXPIN STREAM)) (* ;
 "CSLOC here so MEDLEYFONT.GETCHARSET can skip over the font stuff.")
(SETQ FONT (MEDLEYFONT.READ.VERIFIEDFONT STREAM))
(for CSNO from 0 to MAXCHARSET while CHARSETS
when (if (EQ CHARSETS 'ALL)
elseif (EQ CSNO (CAR CHARSETS))
then (pop CHARSETS)) do (\SETCHARSETINFO FONT CSNO
(MEDLEYFONT.GETCHARSET.INTERNAL STREAM
CSNO FONT CSLOC)))
(RETURN FONT))))])
(SETQ FONT (MEDLEYFONT.READ.VERIFIEDFONT STREAM))
(for CSNO from 0 to MAXCHARSET while CHARSETS
when (if (EQ CHARSETS 'ALL)
elseif (EQ CSNO (CAR CHARSETS))
then (pop CHARSETS))
do (\SETCHARSETINFO FONT CSNO (MEDLEYFONT.GETCHARSET.INTERNAL STREAM
CSNO FONT CSLOC)))
FONT
elseif NOERROR
then NIL
else (ERROR "FONT FILE NOT FOUND" FILE)))))])
(MEDLEYFONT.READ.CHARSET
[LAMBDA (STREAM CHARSET FONT) (* ; "Edited 4-May-2026 12:38 by rmk")
@@ -914,7 +919,8 @@
(DEFINEQ
(MEDLEYFONT.FILENAME
[LAMBDA (FILE DIRECTORY) (* ; "Edited 4-May-2026 09:01 by rmk")
[LAMBDA (FILE DIRECTORY) (* ; "Edited 5-May-2026 11:02 by rmk")
(* ; "Edited 4-May-2026 09:01 by rmk")
(* ; "Edited 30-Apr-2026 08:54 by rmk")
(* ; "Edited 15-Apr-2026 00:41 by rmk")
(* ; "Edited 23-Jan-2026 15:10 by rmk")
@@ -930,8 +936,9 @@
(CL:UNLESS DIRECTORY
[SETQ DIRECTORY (CAR (MKLIST (FONTDEVICEPROP FILE 'FONTDIRECTORIES])
(PACKFILENAME 'DIRECTORY DIRECTORY 'BODY (\FONTFILENAME FILE))
else (* ; "File name")
(PACKFILENAME 'BODY FILE 'DIRECTORY DIRECTORY])
elseif FILE
then (* ; "File name")
(PACKFILENAME 'BODY FILE 'DIRECTORY DIRECTORY])
)
(ADDTOVAR DISPLAYFONTEXTENSIONS MEDLEYDISPLAYFONT)
@@ -982,12 +989,12 @@
)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (2207 20671 (MEDLEYFONT.WRITE.FONT 2217 . 8620) (MEDLEYFONT.GETCHARSET 8622 . 10703) (
MEDLEYFONT.GETCHARSET.INTERNAL 10705 . 12958) (MEDLEYFONT.CHARSET? 12960 . 13838) (
MEDLEYFONT.GETFILEPROP 13840 . 17404) (MEDLEYFONT.FILEP 17406 . 19834) (MEDLEYFONT.FILEVERSION 19836
. 20669)) (20697 43799 (MEDLEYFONT.READ.FONT 20707 . 24223) (MEDLEYFONT.READ.CHARSET 24225 . 29986) (
MEDLEYFONT.READ.ITEM 29988 . 36137) (MEDLEYFONT.PEEK.ITEM 36139 . 37001) (MEDLEYFONT.READ.FONTPROPS
37003 . 37468) (MEDLEYFONT.READ.VERIFIEDFONT 37470 . 43797)) (43825 64296 (MEDLEYFONT.WRITE.CHARSET
43835 . 49480) (MEDLEYFONT.WRITE.ITEM 49482 . 58535) (MEDLEYFONT.WRITE.FONTPROPS 58537 . 63421) (
MEDLEYFONT.WRITE.HEADER 63423 . 64294)) (64297 65816 (MEDLEYFONT.FILENAME 64307 . 65814)))))
(FILEMAP (NIL (2199 20663 (MEDLEYFONT.WRITE.FONT 2209 . 8612) (MEDLEYFONT.GETCHARSET 8614 . 10695) (
MEDLEYFONT.GETCHARSET.INTERNAL 10697 . 12950) (MEDLEYFONT.CHARSET? 12952 . 13830) (
MEDLEYFONT.GETFILEPROP 13832 . 17396) (MEDLEYFONT.FILEP 17398 . 19826) (MEDLEYFONT.FILEVERSION 19828
. 20661)) (20689 44110 (MEDLEYFONT.READ.FONT 20699 . 24534) (MEDLEYFONT.READ.CHARSET 24536 . 30297) (
MEDLEYFONT.READ.ITEM 30299 . 36448) (MEDLEYFONT.PEEK.ITEM 36450 . 37312) (MEDLEYFONT.READ.FONTPROPS
37314 . 37779) (MEDLEYFONT.READ.VERIFIEDFONT 37781 . 44108)) (44136 64607 (MEDLEYFONT.WRITE.CHARSET
44146 . 49791) (MEDLEYFONT.WRITE.ITEM 49793 . 58846) (MEDLEYFONT.WRITE.FONTPROPS 58848 . 63732) (
MEDLEYFONT.WRITE.HEADER 63734 . 64605)) (64608 66260 (MEDLEYFONT.FILENAME 64618 . 66258)))))
STOP

BIN
sources/MEDLEYFONTFORMAT.LCOM
View File

Binary file not shown.