github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-02-27 09:28:48 +00:00
Code Issues Projects Releases Wiki Activity

simplify DEFAULTFILETYPELIST initialization (#735)

Browse Source
This commit is contained in:
Larry Masinter
2022-03-08 09:41:50 -08:00
committed by GitHub
parent 5e6a035614
commit 6ec792510f
6 changed files with 142 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

83
sources/FILEIO
View File

@@ -1,15 +1,14 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "13-Jan-2022 19:45:36" {DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>FILEIO.;105 160514
(FILECREATED " 7-Mar-2022 21:22:44" {DSK}<home>larry>medley>sources>FILEIO.;2 160473
:CHANGES-TO (RECORDS FDEV)
:PREVIOUS-DATE "19-Dec-2021 09:31:06"
{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>FILEIO.;103)
:PREVIOUS-DATE "13-Jan-2022 19:45:36" {DSK}<home>larry>medley>sources>FILEIO.;1)
(* ; "
Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
Copyright (c) 1981-1993, 1999, 2020-2022 by Venue & Xerox Corporation.
")
(PRETTYCOMPRINT FILEIOCOMS)
@@ -921,7 +920,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
DIRECTORYNAMEP _ (FUNCTION NILL)
HOSTNAMEP _ (FUNCTION NILL)
READP _ (FUNCTION \GENERIC.READP)
SETFILEPTR _ (FUNCTION \IS.NO.RANDACCESSP)
SETFILEPTR _ (FUNCTION \IS.NOT.RANDACCESSP)
GETFILEPTR _ (FUNCTION \ILLEGAL.DEVICEOP)
GETEOFPTR _ (FUNCTION \IS.NOT.RANDACCESSP)
EOFP _ (FUNCTION \ILLEGAL.DEVICEOP)
@@ -3087,42 +3086,42 @@ update the map")
(ADDTOVAR LAMA \IS.NOT.RANDACCESSP \ILLEGAL.DEVICEOP STREAMPROP)
)
(PUTPROPS FILEIO COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989
1990 1991 1992 1993 1999 2020 2021))
1990 1991 1992 1993 1999 2020 2021 2022))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (26854 30332 (STREAMPROP 26864 . 27298) (GETSTREAMPROP 27300 . 27769) (PUTSTREAMPROP
27771 . 30180) (STREAMP 30182 . 30330)) (30375 32894 (\DEFPRINT.BY.NAME 30385 . 31537) (
\STREAM.DEFPRINT 31539 . 32587) (\FDEV.DEFPRINT 32589 . 32892)) (33152 38193 (\GETACCESS 33162 . 33616
) (\SETACCESS 33618 . 38191)) (58354 64323 (\DEFINEDEVICE 58364 . 60680) (\GETDEVICEFROMNAME 60682 .
61155) (\GETDEVICEFROMHOSTNAME 61157 . 62201) (\REMOVEDEVICE 62203 . 63326) (\REMOVEDEVICE.NAMES 63328
. 64321)) (64363 88640 (\CLOSEFILE 64373 . 65198) (\DELETEFILE 65200 . 65494) (\DEVICEEVENT 65496 .
67266) (\GENERATEFILES 67268 . 67746) (\GENERATENEXTFILE 67748 . 68399) (\GENERATEFILEINFO 68401 .
68862) (\GETFILENAME 68864 . 69253) (\GENERIC.OUTFILEP 69255 . 69725) (\OPENFILE 69727 . 72305) (
\DO.PARAMS.AT.OPEN 72307 . 74477) (\RENAMEFILE 74479 . 74903) (\REVALIDATEFILE 74905 . 77507) (
\PAGED.REVALIDATEFILELST 77509 . 79067) (\PAGED.REVALIDATEFILES 79069 . 80788) (\PAGED.REVALIDATEFILE
80790 . 83073) (\BUFFERED.REVALIDATEFILE 83075 . 85361) (\BUFFERED.REVALIDATEFILELST 85363 . 86547) (
\PRINT-REVALIDATION-RESULT 86549 . 86964) (\TRUNCATEFILE 86966 . 87357) (\FILE-CONFLICT 87359 . 88638)
) (88676 93339 (\GENERATENOFILES 88686 . 90782) (\NULLFILEGENERATOR 90784 . 91028) (\NOFILESNEXTFILEFN
91030 . 93021) (\NOFILESINFOFN 93023 . 93337)) (93458 95366 (\FILE.NOT.OPEN 93468 . 93981) (
\FILE.WONT.OPEN 93983 . 94311) (\ILLEGAL.DEVICEOP 94313 . 94595) (\IS.NOT.RANDACCESSP 94597 . 95043) (
\STREAM.NOT.OPEN 95045 . 95364)) (95501 97799 (\FDEVINSTANCE 95511 . 97797)) (99001 106375 (CNDIR
99011 . 100316) (DIRECTORYNAME 100318 . 104501) (DIRECTORYNAMEP 104503 . 105119) (HOSTNAMEP 105121 .
105928) (\ADD.CONNECTED.DIR 105930 . 106373)) (106420 134300 (\BACKFILEPTR 106430 . 106618) (
\BACKPEEKBIN 106620 . 106981) (\BACKBIN 106983 . 107334) (BIN 107336 . 107553) (\BIN 107555 . 107832)
(\BINS 107834 . 108120) (BOUT 108122 . 108484) (\BOUT 108486 . 108801) (\BOUTS 108803 . 109114) (
COPYBYTES 109116 . 112448) (COPYCHARS 112450 . 116116) (COPYFILE 116118 . 116915) (\COPYOPENFILE
116917 . 119990) (\INFER.FILE.TYPE 119992 . 120946) (EOFP 120948 . 121245) (FORCEOUTPUT 121247 .
121494) (\FLUSH.OPEN.STREAMS 121496 . 121852) (CHARSET 121854 . 123518) (ACCESS-CHARSET 123520 .
123737) (GETEOFPTR 123739 . 123989) (GETFILEINFO 123991 . 127184) (\TYPE.FROM.FILETYPE 127186 . 127656
) (\FILETYPE.FROM.TYPE 127658 . 127837) (GETFILEPTR 127839 . 128091) (SETFILEINFO 128093 . 132199) (
SETFILEPTR 132201 . 133920) (BOUT16 133922 . 134107) (BIN16 134109 . 134298)) (134403 139608 (
\GENERIC.BINS 134413 . 134693) (\GENERIC.BOUTS 134695 . 134960) (\GENERIC.RENAMEFILE 134962 . 136793)
(\GENERIC.OPENP 136795 . 138110) (\GENERIC.READP 138112 . 139153) (\GENERIC.CHARSET 139155 . 139606))
(139609 139948 (\MAP-OPEN-STREAMS 139619 . 139946)) (141732 143812 (\EOF.ACTION 141742 . 141993) (
\EOSERROR 141995 . 142188) (\GETEOFPTR 142190 . 142372) (\INCFILEPTR 142374 . 142724) (\PEEKBIN 142726
. 142917) (\SETCLOSEDFILELENGTH 142919 . 143253) (\SETEOFPTR 143255 . 143443) (\SETFILEPTR 143445 .
143810)) (143813 144355 (\FIXPOUT 143823 . 144123) (\FIXPIN 144125 . 144353)) (144356 144922 (\BOUTEOL
144366 . 144920)) (147818 157682 (\BUFFERED.BIN 147828 . 148680) (\BUFFERED.PEEKBIN 148682 . 149464)
(\BUFFERED.BOUT 149466 . 150326) (\BUFFERED.BINS 150328 . 154013) (\BUFFERED.BOUTS 154015 . 155816) (
\BUFFERED.COPYBYTES 155818 . 157680)) (157711 160063 (\NULLDEVICE 157721 . 159739) (\NULL.OPENFILE
159741 . 160061)))))
(FILEMAP (NIL (26807 30285 (STREAMPROP 26817 . 27251) (GETSTREAMPROP 27253 . 27722) (PUTSTREAMPROP
27724 . 30133) (STREAMP 30135 . 30283)) (30328 32847 (\DEFPRINT.BY.NAME 30338 . 31490) (
\STREAM.DEFPRINT 31492 . 32540) (\FDEV.DEFPRINT 32542 . 32845)) (33105 38146 (\GETACCESS 33115 . 33569
) (\SETACCESS 33571 . 38144)) (58308 64277 (\DEFINEDEVICE 58318 . 60634) (\GETDEVICEFROMNAME 60636 .
61109) (\GETDEVICEFROMHOSTNAME 61111 . 62155) (\REMOVEDEVICE 62157 . 63280) (\REMOVEDEVICE.NAMES 63282
. 64275)) (64317 88594 (\CLOSEFILE 64327 . 65152) (\DELETEFILE 65154 . 65448) (\DEVICEEVENT 65450 .
67220) (\GENERATEFILES 67222 . 67700) (\GENERATENEXTFILE 67702 . 68353) (\GENERATEFILEINFO 68355 .
68816) (\GETFILENAME 68818 . 69207) (\GENERIC.OUTFILEP 69209 . 69679) (\OPENFILE 69681 . 72259) (
\DO.PARAMS.AT.OPEN 72261 . 74431) (\RENAMEFILE 74433 . 74857) (\REVALIDATEFILE 74859 . 77461) (
\PAGED.REVALIDATEFILELST 77463 . 79021) (\PAGED.REVALIDATEFILES 79023 . 80742) (\PAGED.REVALIDATEFILE
80744 . 83027) (\BUFFERED.REVALIDATEFILE 83029 . 85315) (\BUFFERED.REVALIDATEFILELST 85317 . 86501) (
\PRINT-REVALIDATION-RESULT 86503 . 86918) (\TRUNCATEFILE 86920 . 87311) (\FILE-CONFLICT 87313 . 88592)
) (88630 93293 (\GENERATENOFILES 88640 . 90736) (\NULLFILEGENERATOR 90738 . 90982) (\NOFILESNEXTFILEFN
90984 . 92975) (\NOFILESINFOFN 92977 . 93291)) (93412 95320 (\FILE.NOT.OPEN 93422 . 93935) (
\FILE.WONT.OPEN 93937 . 94265) (\ILLEGAL.DEVICEOP 94267 . 94549) (\IS.NOT.RANDACCESSP 94551 . 94997) (
\STREAM.NOT.OPEN 94999 . 95318)) (95455 97753 (\FDEVINSTANCE 95465 . 97751)) (98955 106329 (CNDIR
98965 . 100270) (DIRECTORYNAME 100272 . 104455) (DIRECTORYNAMEP 104457 . 105073) (HOSTNAMEP 105075 .
105882) (\ADD.CONNECTED.DIR 105884 . 106327)) (106374 134254 (\BACKFILEPTR 106384 . 106572) (
\BACKPEEKBIN 106574 . 106935) (\BACKBIN 106937 . 107288) (BIN 107290 . 107507) (\BIN 107509 . 107786)
(\BINS 107788 . 108074) (BOUT 108076 . 108438) (\BOUT 108440 . 108755) (\BOUTS 108757 . 109068) (
COPYBYTES 109070 . 112402) (COPYCHARS 112404 . 116070) (COPYFILE 116072 . 116869) (\COPYOPENFILE
116871 . 119944) (\INFER.FILE.TYPE 119946 . 120900) (EOFP 120902 . 121199) (FORCEOUTPUT 121201 .
121448) (\FLUSH.OPEN.STREAMS 121450 . 121806) (CHARSET 121808 . 123472) (ACCESS-CHARSET 123474 .
123691) (GETEOFPTR 123693 . 123943) (GETFILEINFO 123945 . 127138) (\TYPE.FROM.FILETYPE 127140 . 127610
) (\FILETYPE.FROM.TYPE 127612 . 127791) (GETFILEPTR 127793 . 128045) (SETFILEINFO 128047 . 132153) (
SETFILEPTR 132155 . 133874) (BOUT16 133876 . 134061) (BIN16 134063 . 134252)) (134357 139562 (
\GENERIC.BINS 134367 . 134647) (\GENERIC.BOUTS 134649 . 134914) (\GENERIC.RENAMEFILE 134916 . 136747)
(\GENERIC.OPENP 136749 . 138064) (\GENERIC.READP 138066 . 139107) (\GENERIC.CHARSET 139109 . 139560))
(139563 139902 (\MAP-OPEN-STREAMS 139573 . 139900)) (141686 143766 (\EOF.ACTION 141696 . 141947) (
\EOSERROR 141949 . 142142) (\GETEOFPTR 142144 . 142326) (\INCFILEPTR 142328 . 142678) (\PEEKBIN 142680
. 142871) (\SETCLOSEDFILELENGTH 142873 . 143207) (\SETEOFPTR 143209 . 143397) (\SETFILEPTR 143399 .
143764)) (143767 144309 (\FIXPOUT 143777 . 144077) (\FIXPIN 144079 . 144307)) (144310 144876 (\BOUTEOL
144320 . 144874)) (147772 157636 (\BUFFERED.BIN 147782 . 148634) (\BUFFERED.PEEKBIN 148636 . 149418)
(\BUFFERED.BOUT 149420 . 150280) (\BUFFERED.BINS 150282 . 153967) (\BUFFERED.BOUTS 153969 . 155770) (
\BUFFERED.COPYBYTES 155772 . 157634)) (157665 160017 (\NULLDEVICE 157675 . 159693) (\NULL.OPENFILE
159695 . 160015)))))
STOP

BIN
sources/FILEIO.LCOM
View File

Binary file not shown.

25
sources/LOADUP-FULL
View File

@@ -1,10 +1,10 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 4-Mar-2022 19:17:17" {DSK}<home>larry>medley>sources>LOADUP-FULL.;2 4746
(FILECREATED " 7-Mar-2022 21:08:31" {DSK}<home>larry>medley>sources>LOADUP-FULL.;2 4390
:CHANGES-TO (FNS LOADUP-FULL)
:PREVIOUS-DATE " 2-Mar-2022 13:58:38" {DSK}<home>larry>medley>sources>LOADUP-FULL.;1)
:PREVIOUS-DATE " 4-Mar-2022 19:17:17" {DSK}<home>larry>medley>sources>LOADUP-FULL.;1)
(PRETTYCOMPRINT LOADUP-FULLCOMS)
@@ -45,7 +45,8 @@
(PRINTOUT T "FULL fonts loaded" T])
(LOADUP-FULL
[LAMBDA NIL (* ; "Edited 2-Mar-2022 13:58 by larry")
[LAMBDA NIL (* ; "Edited 7-Mar-2022 21:06 by larry")
(* ; "Edited 2-Mar-2022 13:58 by larry")
(* ; "Edited 15-Jan-2022 15:48 ")
(* ; "Edited 29-Apr-2021 22:27 by rmk:")
(* ;
@@ -67,26 +68,14 @@
" while connected to "
(DIRECTORYNAME T)
T T)
(SETQ DEFAULTFILETYPE 'BINARY) (* ;
 "These prevent bits from being lost due to lack of knowledge")
(DREMOVE (ASSOC NIL DEFAULTFILETYPELIST)
DEFAULTFILETYPELIST)
(push DEFAULTFILETYPELIST '(DRIBBLE . TEXT)
'(SH . TEXT)
'(TTY . TEXT)
'(TXT . TEXT)
'(TEXT . TEXT)
'(TEX . TEXT)
'(HTML . TEXT)
'(HTM . TEXT))
(LOADUP '(POSTSCRIPTSTREAM)) (* ; " to get PSCFONT.READFONT")
(LOADFULLFONTS)
(LISTPUT IDLE.PROFILE 'TIMEOUT 0)
(SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)
(LOADUP '(CHAT PRESS INTERPRESS TEDIT HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES
GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT UNICODE
ISO8859IO HELPSYS DINFO CLIPBOARD MODERNIZE PRETTYFILEINDEX WHO-LINE UNIXCOMM
UNIXCHAT))
ISO8859IO HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE
UNIXCOMM UNIXCHAT))
(COND
((WINDOWP *WHO-LINE*)
(CLOSEW *WHO-LINE*)))
@@ -102,5 +91,5 @@
(FIXMETA)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (639 4708 (LOADFULLFONTS 649 . 2090) (LOADUP-FULL 2092 . 4458) (FIXMETA 4460 . 4706)))))
(FILEMAP (NIL (639 4352 (LOADFULLFONTS 649 . 2090) (LOADUP-FULL 2092 . 4102) (FIXMETA 4104 . 4350)))))
STOP

BIN
sources/LOADUP-FULL.LCOM
View File

Binary file not shown.

131
sources/UFS
View File

@@ -1,15 +1,15 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "22-Jan-2022 09:06:35" {DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>UFS.;4 79559
(FILECREATED " 7-Mar-2022 21:08:31" {DSK}<home>larry>medley>sources>UFS.;2 81830
:CHANGES-TO (FNS \UFSGenerateFiles \UFS.NEXTFILEFN)
:CHANGES-TO (VARS UFSCOMS)
(FNS \UFSSetFileType \UFStoOtherCopyMess \UFStoOtherRenameMess)
:PREVIOUS-DATE "22-Jan-2022 08:36:27"
{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>UFS.;3)
:PREVIOUS-DATE "22-Jan-2022 09:06:35" {DSK}<home>larry>medley>sources>UFS.;1)
(* ; "
Copyright (c) 1988-1995, 2000, 2021 by Venue & Xerox Corporation.
Copyright (c) 1988-1995, 2000, 2021-2022 by Venue & Xerox Corporation.
")
(PRETTYCOMPRINT UFSCOMS)
@@ -85,6 +85,15 @@ Copyright (c) 1988-1995, 2000, 2021 by Venue & Xerox Corporation.
(OUT . BINARY)
(LCOM . BINARY)
(DFASL . BINARY)
(DRIBBLE . TEXT)
(TTY . TEXT)
(TXT . TEXT)
(Z . BINARY)
(HTML . TEXT)
(HTM . TEXT)
(TEX . TEXT)
(PS . TEXT)
(PDF . TEXT)
(DCOM . BINARY)
(SKETCH . BINARY)
(TEDIT . BINARY)
@@ -739,8 +748,13 @@ update the map") (SETQ PAGES (RESTOREMAP STREAM))) (DELETED (* ; "the file disap
)
(\UFSSetFileType
(LAMBDA (FILENAME TYPE) (* ; "Edited 6-Jun-88 13:48 by HH") (LET ((EXTENSION (MKATOM (U-CASE (LISTGET (\UFSParseNameString FILENAME) (QUOTE EXTENSION)))))) (SETQ TYPE (MKATOM (U-CASE TYPE))) (for PAIR in DEFAULTFILETYPELIST bind PAIR finally (RETURN (EQ TYPE (MKATOM (U-CASE DEFAULTFILETYPE)))) do (if (EQUAL EXTENSION (MKATOM (U-CASE (CAR PAIR)))) then (RETURN (EQ TYPE (MKATOM (U-CASE (CDR PAIR)))))))))
)
[LAMBDA (FILENAME TYPE) (* ; "Edited 7-Mar-2022 20:33 by larry")
(* ; "Edited 6-Jun-88 13:48 by HH")
(LET [(EXTENSION (MKATOM (U-CASE (LISTGET (\UFSParseNameString FILENAME)
'EXTENSION]
(SETQ TYPE (MKATOM (U-CASE TYPE)))
(for PAIR in DEFAULTFILETYPELIST WHEN (EQ EXTENSION (CAR PAIR))
DO (RETURN (EQ TYPE (CDR PAIR))) finally (RETURN (EQ TYPE DEFAULTFILETYPE])
(\UFSeol
[LAMBDA (FILENAME TYPE RECOG) (* ; "Edited 21-Apr-2021 11:36 by rmk:")
@@ -778,6 +792,15 @@ update the map") (SETQ PAGES (RESTOREMAP STREAM))) (DELETED (* ; "the file disap
(OUT . BINARY)
(LCOM . BINARY)
(DFASL . BINARY)
(DRIBBLE . TEXT)
(TTY . TEXT)
(TXT . TEXT)
(Z . BINARY)
(HTML . TEXT)
(HTM . TEXT)
(TEX . TEXT)
(PS . TEXT)
(PDF . TEXT)
(DCOM . BINARY)
(SKETCH . BINARY)
(TEDIT . BINARY)
@@ -1078,18 +1101,52 @@ update the map") (SETQ PAGES (RESTOREMAP STREAM))) (DELETED (* ; "the file disap
(DEFINEQ
(\UFStoOtherCopyMess
(LAMBDA (INSTREAM OUTSTREAM) (* ; "Edited 9-Jan-89 12:19 by hayata.abc") (* ;; "") (* ; "Edited 10-Jan-89 01:01 by H.Komatsubara") (DECLARE (GLOBALVARS DEFAULTFILETYPELIST DEFAULTFILETYPE)) (AND (OR (EQ (fetch (FDEV DEVICENAME) of (fetch DEVICE of INSTREAM)) (QUOTE DSK)) (EQ (fetch (FDEV DEVICENAME) of (fetch DEVICE of INSTREAM)) (QUOTE UNIX))) (AND (NEQ (fetch (FDEV DEVICENAME) of (fetch DEVICE of OUTSTREAM)) (QUOTE DSK)) (NEQ (fetch (FDEV DEVICENAME) of (fetch DEVICE of OUTSTREAM)) (QUOTE UNIX))) (NULL (LET ((EXTENSION (U-CASE (FILENAMEFIELD (fetch FULLFILENAME of INSTREAM) (QUOTE EXTENSION))))) (for PAIR in DEFAULTFILETYPELIST finally NIL do (if (EQUAL (U-CASE (CAR PAIR)) EXTENSION) then (RETURN (CDR PAIR)))))) (PROMPTPRINT "Extension of " (fetch FULLFILENAME of INSTREAM) " isn't in DEFAULTFILETYPELIST.%
" (fetch FULLFILENAME of OUTSTREAM) " was copied as " DEFAULTFILETYPE ".%
" "This message can be stopped by set FileTypeConfirmFlg to NIL.%
")))
)
[LAMBDA (INSTREAM OUTSTREAM) (* ; "Edited 7-Mar-2022 20:48 by larry")
(* ; "Edited 9-Jan-89 12:19 by hayata.abc")
(* ;; "")
(* ;
 "Edited 10-Jan-89 01:01 by H.Komatsubara")
(DECLARE (GLOBALVARS DEFAULTFILETYPELIST DEFAULTFILETYPE))
(AND (OR (EQ (fetch (FDEV DEVICENAME) of (fetch DEVICE of INSTREAM))
'DSK)
(EQ (fetch (FDEV DEVICENAME) of (fetch DEVICE of INSTREAM))
'UNIX))
(AND (NEQ (fetch (FDEV DEVICENAME) of (fetch DEVICE of OUTSTREAM))
'DSK)
(NEQ (fetch (FDEV DEVICENAME) of (fetch DEVICE of OUTSTREAM))
'UNIX))
[NULL (LET [(EXTENSION (U-CASE (FILENAMEFIELD (fetch FULLFILENAME of INSTREAM)
'EXTENSION]
(for PAIR in DEFAULTFILETYPELIST
do (if (EQUAL (U-CASE (CAR PAIR))
EXTENSION)
then (RETURN (CDR PAIR]
(PROMPTPRINT "Extension of " (fetch FULLFILENAME of INSTREAM)
" isn't in DEFAULTFILETYPELIST."
(fetch FULLFILENAME of OUTSTREAM)
" was copied as " DEFAULTFILETYPE "."
"This message can be stopped by set FileTypeConfirmFlg to NIL."])
(\UFStoOtherRenameMess
(LAMBDA (OLD-DEVICE OLD-NAME NEW-DEVICE NEW-NAME) (* ; "Edited 9-Jan-89 12:19 by hayata.abc") (* ; "Edited 9-Jan-89 11:33 by hayata.abc") (DECLARE (GLOBALVARS DEFAULTFILETYPELIST DEFAULTFILETYPE)) (AND (AND (NEQ (fetch (FDEV DEVICENAME) of NEW-DEVICE) (QUOTE DSK)) (NEQ (fetch (FDEV DEVICENAME) of NEW-DEVICE) (QUOTE UNIX))) (NULL (LET ((EXTENSION (U-CASE (FILENAMEFIELD OLD-NAME (QUOTE EXTENSION))))) (for PAIR in DEFAULTFILETYPELIST finally NIL do (if (EQUAL (U-CASE (CAR PAIR)) EXTENSION) then (RETURN (CDR PAIR)))))) (PROMPTPRINT "Extension of " OLD-NAME " isn't in DEFAULTFILETYPELIST.%
" NEW-NAME " was renamed as " DEFAULTFILETYPE ".%
" "This message can be stopped by set FileTypeConfirmFlg to NIL.%
")))
)
[LAMBDA (OLD-DEVICE OLD-NAME NEW-DEVICE NEW-NAME) (* ; "Edited 7-Mar-2022 20:51 by larry")
(* ; "Edited 9-Jan-89 12:19 by hayata.abc")
(* ; "Edited 9-Jan-89 11:33 by hayata.abc")
(DECLARE (GLOBALVARS DEFAULTFILETYPELIST DEFAULTFILETYPE))
(AND (AND (NEQ (fetch (FDEV DEVICENAME) of NEW-DEVICE)
'DSK)
(NEQ (fetch (FDEV DEVICENAME) of NEW-DEVICE)
'UNIX))
[NULL (LET [(EXTENSION (U-CASE (FILENAMEFIELD OLD-NAME 'EXTENSION]
(for PAIR in DEFAULTFILETYPELIST
do (if (EQUAL (U-CASE (CAR PAIR))
EXTENSION)
then (RETURN (CDR PAIR]
(PROMPTPRINT "Extension of " OLD-NAME " isn't in DEFAULTFILETYPELIST.%
" NEW-NAME
" was renamed as " DEFAULTFILETYPE "."
"This message can be stopped by set FileTypeConfirmFlg to NIL.%
"])
)
@@ -1111,25 +1168,25 @@ update the map") (SETQ PAGES (RESTOREMAP STREAM))) (DELETED (* ; "the file disap
(ADDTOVAR LAMA )
)
(PUTPROPS UFS COPYRIGHT ("Venue & Xerox Corporation" 1988 1989 1990 1991 1992 1993 1994 1995 2000 2021
))
2022))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (8206 9759 (\UFSCreateDevice 8216 . 8581) (\UFS.CREATE.DEVICE 8583 . 9439) (
\UFSOpenDevice 9441 . 9618) (\UFSCloseDevice 9620 . 9757)) (14300 52622 (\UFSOpenFile 14310 . 17604) (
\UFS.OPENP 17606 . 18103) (\UFS.RECOGNIZE.FILE 18105 . 18858) (\UFS.DIRECTORY.NAME 18860 . 19603) (
\UFSCloseFile 19605 . 20581) (\UFSGetFileName 20583 . 20782) (\UFSDeleteFile 20784 . 21324) (
\UFSRenameFile 21326 . 22491) (\UFSReadPages 22493 . 23628) (\UFSWritePages 23630 . 24850) (
\UFSTruncateFile 24852 . 26349) (\UFSDirectoryNameP 26351 . 27405) (\UFSEventFn 27407 . 28069) (
\UFSGetFileInfo 28071 . 30353) (\UFS.CREATE.PROPS 30355 . 30708) (\UFSSetFileInfo 30710 . 31939) (
\UFSGenerateFiles 31941 . 38373) (\UFS.NEXTFILEFN 38375 . 49210) (\UFS.FILEINFOFN 49212 . 50661) (
\UFS.VALID.PROPP 50663 . 50955) (\UFS.REGISTER.GFS 50957 . 51212) (\UFS.UNREGISTER.GFS 51214 . 51797)
(\UFS.ABORT.DIRECTORY 51799 . 52147) (\UFS.ABORT.CL-DIRECTORY 52149 . 52436) (\UFS.CLEANUP.GFS.TABLE
52438 . 52620)) (52657 59341 (\UFSMakeUnixFormatName 52667 . 53688) (\UFSParseNameString 53690 . 54064
) (\UFSParse-Directory 54066 . 54607) (\UFS.PARSE.BODY 54609 . 55154) (\UFS.ADJUST.HOST 55156 . 55315)
(\UFS.FULLNAME 55317 . 56525) (\UFS.ADD.HOST.FIELD 56527 . 56887) (\UFS.REMOVE.HOST.FIELD 56889 .
58559) (\UFS.HANDLE.RELATIVEDIRECTORY 58561 . 59339)) (60157 60770 (CHDIR 60167 . 60768)) (60842 61828
(\DEVICEFILE.EOSERROR 60852 . 61826)) (61901 63138 (\UNVISIBLE.PAGED.REVALIDATEFILELST 61911 . 62756)
(\UNVISIBLE.FLUSH.OPEN.STREAMS 62758 . 63136)) (63171 64797 (\UFSError 63181 . 64795)) (64841 67088 (
\UFSGetFileType 64851 . 65452) (\UFSSetFileType 65454 . 65883) (\UFSeol 65885 . 67086)) (76238 77362 (
\UFSGetPrintFileType 76248 . 76660) (\UFSGetFileTypeConfirm 76662 . 77110) (\UFSPrintTypeMenu 77112 .
77360)) (77392 79140 (\UFStoOtherCopyMess 77402 . 78393) (\UFStoOtherRenameMess 78395 . 79138)))))
(FILEMAP (NIL (9021 10574 (\UFSCreateDevice 9031 . 9396) (\UFS.CREATE.DEVICE 9398 . 10254) (
\UFSOpenDevice 10256 . 10433) (\UFSCloseDevice 10435 . 10572)) (15115 53437 (\UFSOpenFile 15125 .
18419) (\UFS.OPENP 18421 . 18918) (\UFS.RECOGNIZE.FILE 18920 . 19673) (\UFS.DIRECTORY.NAME 19675 .
20418) (\UFSCloseFile 20420 . 21396) (\UFSGetFileName 21398 . 21597) (\UFSDeleteFile 21599 . 22139) (
\UFSRenameFile 22141 . 23306) (\UFSReadPages 23308 . 24443) (\UFSWritePages 24445 . 25665) (
\UFSTruncateFile 25667 . 27164) (\UFSDirectoryNameP 27166 . 28220) (\UFSEventFn 28222 . 28884) (
\UFSGetFileInfo 28886 . 31168) (\UFS.CREATE.PROPS 31170 . 31523) (\UFSSetFileInfo 31525 . 32754) (
\UFSGenerateFiles 32756 . 39188) (\UFS.NEXTFILEFN 39190 . 50025) (\UFS.FILEINFOFN 50027 . 51476) (
\UFS.VALID.PROPP 51478 . 51770) (\UFS.REGISTER.GFS 51772 . 52027) (\UFS.UNREGISTER.GFS 52029 . 52612)
(\UFS.ABORT.DIRECTORY 52614 . 52962) (\UFS.ABORT.CL-DIRECTORY 52964 . 53251) (\UFS.CLEANUP.GFS.TABLE
53253 . 53435)) (53472 60156 (\UFSMakeUnixFormatName 53482 . 54503) (\UFSParseNameString 54505 . 54879
) (\UFSParse-Directory 54881 . 55422) (\UFS.PARSE.BODY 55424 . 55969) (\UFS.ADJUST.HOST 55971 . 56130)
(\UFS.FULLNAME 56132 . 57340) (\UFS.ADD.HOST.FIELD 57342 . 57702) (\UFS.REMOVE.HOST.FIELD 57704 .
59374) (\UFS.HANDLE.RELATIVEDIRECTORY 59376 . 60154)) (60972 61585 (CHDIR 60982 . 61583)) (61657 62643
(\DEVICEFILE.EOSERROR 61667 . 62641)) (62716 63953 (\UNVISIBLE.PAGED.REVALIDATEFILELST 62726 . 63571)
(\UNVISIBLE.FLUSH.OPEN.STREAMS 63573 . 63951)) (63986 65612 (\UFSError 63996 . 65610)) (65656 68071 (
\UFSGetFileType 65666 . 66267) (\UFSSetFileType 66269 . 66866) (\UFSeol 66868 . 68069)) (77414 78538 (
\UFSGetPrintFileType 77424 . 77836) (\UFSGetFileTypeConfirm 77838 . 78286) (\UFSPrintTypeMenu 78288 .
78536)) (78568 81406 (\UFStoOtherCopyMess 78578 . 80256) (\UFStoOtherRenameMess 80258 . 81404)))))
STOP

BIN
sources/UFS.LCOM
View File

Binary file not shown.