From 0ebec570e66909e78a22ea46525b1c453bda7e1c Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Wed, 22 Jun 2022 16:30:35 -0700 Subject: [PATCH] TEDITFILE: added TEDIT.GET.PASSWORD Returns the password (= format version indicator) of a TEDIT formatted file, NIL if not a tedit file --- library/TEDITFILE | 71 ++++++++++++++++++++++++++--------------- library/TEDITFILE.LCOM | Bin 60574 -> 61417 bytes 2 files changed, 46 insertions(+), 25 deletions(-) diff --git a/library/TEDITFILE b/library/TEDITFILE index 8a81864b..b164400d 100644 --- a/library/TEDITFILE +++ b/library/TEDITFILE @@ -1,10 +1,13 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "20-Feb-2022 12:43:03" {DSK}larry>medley>library>TEDITFILE.;2 247023 +(FILECREATED "20-Jun-2022 12:06:04"  +{DSK}kaplan>Local>medley3.5>working-medley>library>TEDITFILE.;3 248098 - :CHANGES-TO (FNS \TEDIT.GET.SINGLE.CHARLOOKS) + :CHANGES-TO (VARS TEDITFILECOMS) + (FNS TEDIT.GET.PASSWORD) - :PREVIOUS-DATE "30-Apr-2021 14:46:41" {DSK}larry>medley>library>TEDITFILE.;1) + :PREVIOUS-DATE "20-Feb-2022 12:43:03" +{DSK}kaplan>Local>medley3.5>working-medley>library>TEDITFILE.;2) (* ; " @@ -23,7 +26,7 @@ Copyright (c) 1983-1994, 1999-2001, 2021-2022 by Venue & Xerox Corporation. (FNS TEDIT.BUILD.PCTB \TEDIT.CONVERT.FOREIGN.FORMAT TEDIT.FORMATTEDFILEP TEDIT.GET TEDIT.PARSE.PAGEFRAMES1 \ARBIN \ATMIN \DWIN \STRINGIN \TEDIT.FORMATTEDP1 - \TEDIT.SET.WINDOW)) + \TEDIT.SET.WINDOW TEDIT.GET.PASSWORD)) (COMS (* ;; "INCLUDEing a file") @@ -877,6 +880,24 @@ Copyright (c) 1983-1994, 1999-2001, 2021-2022 by Venue & Xerox Corporation. (PROG1 (CONS (CAR TOWIND) (fetch (TEXTOBJ \WINDOW) of (CAR TOWIND))) (replace (TEXTOBJ \WINDOW) of (CAR TOWIND) with (CDR TOWIND)))]) + +(TEDIT.GET.PASSWORD + [LAMBDA (FILE LEN) (* ; "Edited 20-Jun-2022 12:04 by rmk") + + (* ;; "Returns the TEDIT password of FILE, if it is a TEDIT formatted file") + + (LET (DESCPTR NPIECES PASSWORD) + (CL:WITH-OPEN-FILE (STREAM FILE :DIRECTION :INPUT) + (CL:UNLESS LEN + (SETQ LEN (GETEOFPTR STREAM))) + (CL:WHEN (IGREATERP LEN 8) + (SETFILEPTR STREAM (IDIFFERENCE LEN 8)) (* ; + "Move to start of FILEPTR to descriptions") + (SETQ DESCPTR (\DWIN STREAM)) (* ; + "Read the file pos of the descriptions") + (SETQ NPIECES (\SMALLPIN STREAM)) + [CAR (MEMB (\SMALLPIN STREAM) + '(31415 31416 31417 31418 31419])]) ) @@ -3657,25 +3678,25 @@ Copyright (c) 1983-1994, 1999-2001, 2021-2022 by Venue & Xerox Corporation. (PUTPROPS TEDITFILE COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1999 2000 2001 2021 2022)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3026 57932 (TEDIT.BUILD.PCTB 3036 . 37489) (\TEDIT.CONVERT.FOREIGN.FORMAT 37491 . 38932 -) (TEDIT.FORMATTEDFILEP 38934 . 42798) (TEDIT.GET 42800 . 51616) (TEDIT.PARSE.PAGEFRAMES1 51618 . -53324) (\ARBIN 53326 . 53947) (\ATMIN 53949 . 54278) (\DWIN 54280 . 54558) (\STRINGIN 54560 . 55157) ( -\TEDIT.FORMATTEDP1 55159 . 57423) (\TEDIT.SET.WINDOW 57425 . 57930)) (57968 78496 (TEDIT.INCLUDE 57978 - . 69365) (TEDIT.RAW.INCLUDE 69367 . 78494)) (78530 122770 (TEDIT.PUT 78540 . 88913) (TEDIT.PUT.PCTB -88915 . 116506) (\TEDIT.PUTRESET 116508 . 116754) (TEDIT.PUT.PIECE.DESCRIPTOR 116756 . 119219) ( -\ARBOUT 119221 . 120421) (\ATMOUT 120423 . 120938) (\DWOUT 120940 . 121223) (\STRINGOUT 121225 . -121677) (\TEDIT-OPEN-FONT-FILE 121679 . 122768)) (122771 134037 (\TEDIT.GET.CHARLOOKS.LIST 122781 . -123186) (\TEDIT.GET.SINGLE.CHARLOOKS 123188 . 126987) (\TEDIT.PUT.CHARLOOKS.LIST 126989 . 128784) ( -\TEDIT.PUT.SINGLE.CHARLOOKS 128786 . 134035)) (134038 148317 (\TEDIT.GET.PARALOOKS.LIST 134048 . -134461) (\TEDIT.GET.SINGLE.PARALOOKS 134463 . 140857) (\TEDIT.PUT.PARALOOKS.LIST 140859 . 141853) ( -\TEDIT.PUT.SINGLE.PARALOOKS 141855 . 148315)) (148625 209886 (TEDIT.BUILD.PCTB2 148635 . 161991) ( -\TEDIT.GET.CHARLOOKS.LIST2 161993 . 162400) (\TEDIT.GET.SINGLE.CHARLOOKS2 162402 . 165314) ( -\TEDIT.PUT.SINGLE.PARALOOKS2 165316 . 170030) (\TEDIT.PUT.SINGLE.CHARLOOKS2 170032 . 174528) ( -\TEDIT.GET.PARALOOKS.LIST2 174530 . 174937) (\TEDIT.GET.SINGLE.PARALOOKS2 174939 . 179527) ( -TEDIT.PUT.PCTB2 179529 . 207190) (\TEDIT.PUT.CHARLOOKS.LIST2 207192 . 208989) ( -\TEDIT.PUT.PARALOOKS.LIST2 208991 . 209884)) (209963 231087 (TEDIT.BUILD.PCTB1 209973 . 220163) ( -TEDIT.GET.PAGEFRAMES1 220165 . 220420) (\TEDIT.GET.CHARLOOKS1 220422 . 223972) (\TEDIT.GET.PARALOOKS1 -223974 . 228555) (TEDIT.GET.OBJECT1 228557 . 231085)) (231147 246853 (TEDIT.BUILD.PCTB0 231157 . -236864) (TEDIT.GET.CHARLOOKS0 236866 . 240885) (TEDIT.GET.OBJECT0 240887 . 243415) ( -TEDIT.GET.PARALOOKS0 243417 . 246851))))) + (FILEMAP (NIL (3129 59007 (TEDIT.BUILD.PCTB 3139 . 37592) (\TEDIT.CONVERT.FOREIGN.FORMAT 37594 . 39035 +) (TEDIT.FORMATTEDFILEP 39037 . 42901) (TEDIT.GET 42903 . 51719) (TEDIT.PARSE.PAGEFRAMES1 51721 . +53427) (\ARBIN 53429 . 54050) (\ATMIN 54052 . 54381) (\DWIN 54383 . 54661) (\STRINGIN 54663 . 55260) ( +\TEDIT.FORMATTEDP1 55262 . 57526) (\TEDIT.SET.WINDOW 57528 . 58033) (TEDIT.GET.PASSWORD 58035 . 59005) +) (59043 79571 (TEDIT.INCLUDE 59053 . 70440) (TEDIT.RAW.INCLUDE 70442 . 79569)) (79605 123845 ( +TEDIT.PUT 79615 . 89988) (TEDIT.PUT.PCTB 89990 . 117581) (\TEDIT.PUTRESET 117583 . 117829) ( +TEDIT.PUT.PIECE.DESCRIPTOR 117831 . 120294) (\ARBOUT 120296 . 121496) (\ATMOUT 121498 . 122013) ( +\DWOUT 122015 . 122298) (\STRINGOUT 122300 . 122752) (\TEDIT-OPEN-FONT-FILE 122754 . 123843)) (123846 +135112 (\TEDIT.GET.CHARLOOKS.LIST 123856 . 124261) (\TEDIT.GET.SINGLE.CHARLOOKS 124263 . 128062) ( +\TEDIT.PUT.CHARLOOKS.LIST 128064 . 129859) (\TEDIT.PUT.SINGLE.CHARLOOKS 129861 . 135110)) (135113 +149392 (\TEDIT.GET.PARALOOKS.LIST 135123 . 135536) (\TEDIT.GET.SINGLE.PARALOOKS 135538 . 141932) ( +\TEDIT.PUT.PARALOOKS.LIST 141934 . 142928) (\TEDIT.PUT.SINGLE.PARALOOKS 142930 . 149390)) (149700 +210961 (TEDIT.BUILD.PCTB2 149710 . 163066) (\TEDIT.GET.CHARLOOKS.LIST2 163068 . 163475) ( +\TEDIT.GET.SINGLE.CHARLOOKS2 163477 . 166389) (\TEDIT.PUT.SINGLE.PARALOOKS2 166391 . 171105) ( +\TEDIT.PUT.SINGLE.CHARLOOKS2 171107 . 175603) (\TEDIT.GET.PARALOOKS.LIST2 175605 . 176012) ( +\TEDIT.GET.SINGLE.PARALOOKS2 176014 . 180602) (TEDIT.PUT.PCTB2 180604 . 208265) ( +\TEDIT.PUT.CHARLOOKS.LIST2 208267 . 210064) (\TEDIT.PUT.PARALOOKS.LIST2 210066 . 210959)) (211038 +232162 (TEDIT.BUILD.PCTB1 211048 . 221238) (TEDIT.GET.PAGEFRAMES1 221240 . 221495) ( +\TEDIT.GET.CHARLOOKS1 221497 . 225047) (\TEDIT.GET.PARALOOKS1 225049 . 229630) (TEDIT.GET.OBJECT1 +229632 . 232160)) (232222 247928 (TEDIT.BUILD.PCTB0 232232 . 237939) (TEDIT.GET.CHARLOOKS0 237941 . +241960) (TEDIT.GET.OBJECT0 241962 . 244490) (TEDIT.GET.PARALOOKS0 244492 . 247926))))) STOP diff --git a/library/TEDITFILE.LCOM b/library/TEDITFILE.LCOM index 3f0181064450f7ddc3711f9d064912aac6570452..562bba777395c3767aa6818126f1c71c905b8a1e 100644 GIT binary patch delta 1224 zcmb7@&rcIk5XZL#1Xf}o0gVuov1;s+wC=CMcG1StzQWpVcj+#W7&L*lK|*Os(Wo(| ziT{8UI5`lV&V~JAEcnd!9C2*n|*KQJD;8Rw%+vPThoi% z)~yHSkSxkFNU|;t=%N~cU?5*vSez>r3s5OT0Qe_KC;jyL_)@XD6q}!3EKQeVW+gve ziY*iirQ%~H9Em-wROjc)vmt8vdTWXR0Z9urQp>U~X}XH3`I&05k-Ye5vAT3c2bUxb zH#|bzupM`tNh_CxIjox+H%&O2CL9h2pfG(ObsdvFA_W9Km@-U~PUJ`&lR`ii4@DgI z_y7HXtZHIZ13fVs&yEl$n{Q>!+7x8ZA{T-)1yUEbTP z&)4&9e+6q^wBj9OXMHT?y?pcP+E*KSIDl=gkjtiO!8Il%+V0uFIK zpq@kxur*?(&=>fuVe&y3j6zV6R4D?U9bk5lS&iAKAn>(+M=CCgq6&Ia!x;e)jsRj{ z5WpGE&vEvwr+VzPXHlsnLBiA%rsWVEt_bMyVJqjNEA0RHKc|*uw~=bsK5QFd9~7cD zWUZ#PaGbwO^xtGfm|=zHy8O*-#W*pOW^0puKA@&X8(KgaY!F0p$9F5?|e)*Tu|MAi>Ck32&Z}cJ94?{!1Q*oo0 zrZ-YPp1#~TPv383(A&M!)9P)+%R$$+d+6fx7J6;-0`1)H#djNhv(inUZC=EkEART~ o+T9-7`K5){H~TU2VW*p}@0_LKt*f|N-x+9SrGQ_4wbjx58@wJ#!2kdN delta 501 zcmaEPpLyO*<_S?IZmCJSMg~Sk3Wi2jCdO6<7D@^lO3C@T1(`XiDGK>{3Q7vqF2UZl zHW~T3sdhPuMMaf%lWmz~>J_+@j0|+)+6^qNObxA!jg=IVic;bFlQR67trYU| zOENO^(iJj+Cc1_C_$VN2*3;8dQb9FH6**C zP6yhJ&8gCo3PvX821dpTR?Z%de(tWpx*`4w8eDFE!IKY8l(EuOunGur4fFI54c2u5 zny#Q^Y@q8{Py`AVLj^+j*W{@$-6r38DG6kKed#-SQlcmaNFCVzhkT-wSHI$&d~%}5WWglS z$pvp&nH0DtZ+vAlx$2eBq}Ne>lhLYQfeSJ px#G1tkQSf3{WZThSB!s