TEDITFILE: added TEDIT.GET.PASSWORD
Returns the password (= format version indicator) of a TEDIT formatted file, NIL if not a tedit file
This commit is contained in:
rmkaplan
parent
217938c104
commit
0ebec570e6
@ -1,10 +1,13 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "20-Feb-2022 12:43:03" {DSK}<home>larry>medley>library>TEDITFILE.;2 247023
|
||||
(FILECREATED "20-Jun-2022 12:06:04"
|
||||
{DSK}<Users>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}<home>larry>medley>library>TEDITFILE.;1)
|
||||
:PREVIOUS-DATE "20-Feb-2022 12:43:03"
|
||||
{DSK}<Users>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
|
||||
|
||||
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user