Skip to content

Commit 51f0c19

Browse files
rmkaplanrmkaplan
committed
DMISC: Generalize argument to FLASHWINDOW
1 parent 1438ddb commit 51f0c19

File tree

2 files changed

+63
-54
lines changed

2 files changed

+63
-54
lines changed

‎sources/DMISC‎

Lines changed: 63 additions & 54 deletions
Original file line numberDiff line numberDiff line change
@@ -1,13 +1,15 @@
11
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
2-
(FILECREATED "16-May-90 15:53:57" {DSK}<usr>local>lde>lispcore>sources>DMISC.;3 45292
32

4-
changes to%: (VARS DMISCCOMS)
3+
(FILECREATED " 6-Jan-2022 19:08:15" {DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>DMISC.;3 45512
54

6-
previous date%: " 6-Apr-90 10:59:19" {DSK}<usr>local>lde>lispcore>sources>DMISC.;2)
5+
:CHANGES-TO (FNS FLASHWINDOW)
6+
7+
:PREVIOUS-DATE "16-May-90 15:53:57"
8+
{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>DMISC.;1)
79

810

911
(* ; "
10-
Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990 by Venue & Xerox Corporation. All rights reserved.
12+
Copyright (c) 1982-1990 by Venue & Xerox Corporation.
1113
The following program was created in 1982 but has not been published
1214
within the meaning of the copyright law, is furnished under license,
1315
and may not be used, copied and/or disclosed except in accordance
@@ -41,7 +43,7 @@ with the terms of said license.
4143
(DECLARE%: EVAL@COMPILE DONTCOPY (RESOURCES \PlayTimer))
4244
(INITRESOURCES \PlayTimer)
4345
(DECLARE%: DONTEVAL@LOAD DOCOPY (* ;
44-
 "Overrides definition in the shared MISC")
46+
 "Overrides definition in the shared MISC")
4547
(P (MOVD 'RINGBELLS 'PRINTBELLS]
4648
[COMS (* ; "Changing display")
4749
(FNS DISPLAYDOWN SETDISPLAYHEIGHT VIDEORATE)
@@ -68,7 +70,7 @@ with the terms of said license.
6870
\MISC1.UFN \MISC2.UFN \MISC3.UFN \MISC4.UFN \MISC5.UFN \MISC6.UFN \MISC7.UFN
6971
\MISC8.UFN \MISC10.UFN)
7072
(* ;
71-
 "sub-functions of floating-point ufns")
73+
 "sub-functions of floating-point ufns")
7274
(FNS \BLKFDIFF.UFN \BLKFPLUS.UFN \BLKFTIMES.UFN \BLKSEP.UFN \BLKPERM.UFN
7375
\BLKEXPONENT.UFN \BLKFLOATP2COMP.UFN \BLKSMALLP2FLOAT.UFN \BLKMAG.UFN
7476
\FLOATTOBYTE.UFN \BLKFMAX.UFN \BLKFMIN.UFN \BLKFABSMAX.UFN \BLKFABSMIN.UFN)
@@ -79,7 +81,7 @@ with the terms of said license.
7981
(LOCALVARS . T)
8082
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
8183
(NLAML)
82-
(LAMA \DIRTYBACKGROUND])
84+
(LAMA])
8385
(DEFINEQ
8486

8587
(BACKSPACEDEL
@@ -226,28 +228,35 @@ with the terms of said license.
226228
(FLASHWINDOW NIL N])
227229

228230
(FLASHWINDOW
229-
[LAMBDA (WIN? N FLASHINTERVAL SHADE) (* bvm%: "16-Jul-85 12:20")
230-
(* ; "This is an 'attention getting' action.")
231-
(* ;
232-
"rrb --- added shade argument so contrast of flash could be explored.")
231+
[LAMBDA (WIN? N FLASHINTERVAL SHADE) (* ; "Edited 6-Jan-2022 19:08 by rmk")
232+
(* bvm%: "16-Jul-85 12:20")
233+
(* ;
234+
 "This is an 'attention getting' action.")
235+
(* ;
236+
 "rrb --- added shade argument so contrast of flash could be explored.")
233237
(OR (FIXP N)
234238
(SETQ N 1))
235239
(OR (FIXP FLASHINTERVAL)
236240
(SETQ FLASHINTERVAL 200))
237241
[COND
238-
((WINDOWP WIN?)
239-
(SETQ WIN? (GETSTREAM WIN? 'OUTPUT]
242+
(WIN?
243+
(* ;;
244+
 "RMK: GETSTREAM even if not a window. Catches T, other streams. But NIL still means whole screen")
245+
246+
(SETQ WIN? (GETSTREAM WIN? 'OUTPUT]
240247
(for I to N bind (WHOLEP _ (NOT (DISPLAYSTREAMP WIN?)))
241248
COLORP first [COND
242249
(WHOLEP (SETQ COLORP (NULL (VIDEOCOLOR]
243250
do (UNINTERRUPTABLY
244-
(* ;
245-
"Open-coded 'during' loops so that no one else can sneak in and steal cycles")
251+
(* ;
252+
 "Open-coded 'during' loops so that no one else can sneak in and steal cycles")
246253
(COND
247-
[WHOLEP (* ; "Flash the whole screen")
254+
[WHOLEP (* ; "Flash the whole screen")
248255
(VIDEOCOLOR (PROG1 (VIDEOCOLOR COLORP)
249256
(DISMISS FLASHINTERVAL NIL T]
250-
(T (* ;; "Although VIDEOCOLOR is nearly instantaneous, INVERTW may require a time approaching the interval time and thus this path could be much longer")
257+
(T
258+
(* ;; "Although VIDEOCOLOR is nearly instantaneous, INVERTW may require a time approaching the interval time and thus this path could be much longer")
259+
251260
(INVERTW WIN? SHADE)
252261
(DISMISS FLASHINTERVAL NIL T)
253262
(INVERTW WIN? SHADE))))
@@ -907,26 +916,26 @@ with the terms of said license.
907916
)
908917

909918
(RPAQQ RINGBELLS.L1 ((1000 . 1000)
910-
(800 . 1000)
911-
(600 . 1000)
912-
(500 . 1000)
913-
(400 . 1000)
914-
(NIL . 500)
915-
(440 . 1000)
916-
(484 . 1000)
917-
(540 . 1000)
918-
(600 . 1000)))
919+
(800 . 1000)
920+
(600 . 1000)
921+
(500 . 1000)
922+
(400 . 1000)
923+
(NIL . 500)
924+
(440 . 1000)
925+
(484 . 1000)
926+
(540 . 1000)
927+
(600 . 1000)))
919928

920929
(RPAQQ RINGBELLS.L2 ((2000 . 1000)
921-
(1600 . 1000)
922-
(1200 . 1000)
923-
(1000 . 1000)
924-
(800 . 1000)
925-
(NIL . 500)
926-
(880 . 1000)
927-
(968 . 1000)
928-
(1080 . 1000)
929-
(1188 . 1000)))
930+
(1600 . 1000)
931+
(1200 . 1000)
932+
(1000 . 1000)
933+
(800 . 1000)
934+
(NIL . 500)
935+
(880 . 1000)
936+
(968 . 1000)
937+
(1080 . 1000)
938+
(1188 . 1000)))
930939
(DECLARE%: DOEVAL@COMPILE DONTCOPY
931940

932941
(LOCALVARS . T)
@@ -937,27 +946,27 @@ with the terms of said license.
937946

938947
(ADDTOVAR NLAML )
939948

940-
(ADDTOVAR LAMA \DIRTYBACKGROUND)
949+
(ADDTOVAR LAMA )
941950
)
942951
(PUTPROPS DMISC COPYRIGHT ("Venue & Xerox Corporation" T 1982 1983 1984 1985 1986 1987 1988 1989 1990)
943952
)
944953
(DECLARE%: DONTCOPY
945-
(FILEMAP (NIL (4791 5494 (BACKSPACEDEL 4801 . 5492)) (5589 6022 (PERIODICALLYRECLAIM 5599 . 6020)) (
946-
6252 7943 (\DIRTYBACKGROUND 6262 . 6684) (\SAVEVMBACKGROUND 6686 . 7470) (COPYVM 7472 . 7941)) (8364
947-
9563 (SETTIME 8374 . 9561)) (9564 13243 (RINGBELLS 9574 . 10067) (FLASHWINDOW 10069 . 11645) (PLAYTUNE
948-
11647 . 13241)) (13505 19037 (DISPLAYDOWN 13515 . 13903) (SETDISPLAYHEIGHT 13905 . 16705) (VIDEORATE
949-
16707 . 19035)) (19461 20182 (DOAROUNDEXITFORMS 19471 . 20180)) (20385 22100 (REALMEMORYSIZE 20395 .
950-
20553) (LISPVERSION 20555 . 20708) (MICROCODEVERSION 20710 . 20868) (BCPLVERSION 20870 . 21023) (
951-
REQUIREVERSION 21025 . 22098)) (22137 26715 (APROPOS 22147 . 26163) (APROPRINT 26165 . 26713)) (26741
952-
30649 (READPRINTERPORT 26751 . 26892) (WRITEPRINTERPORT 26894 . 27049) (\READPRINTERPORT.UFN 27051 .
953-
27240) (\WRITEPRINTERPORT.UFN 27242 . 27440) (\MISC1.UFN 27442 . 27595) (\MISC2.UFN 27597 . 27835) (
954-
\MISC3.UFN 27837 . 28570) (\MISC4.UFN 28572 . 29122) (\MISC5.UFN 29124 . 29277) (\MISC6.UFN 29279 .
955-
29529) (\MISC7.UFN 29531 . 30016) (\MISC8.UFN 30018 . 30319) (\MISC10.UFN 30321 . 30647)) (30703 38152
956-
(\BLKFDIFF.UFN 30713 . 31278) (\BLKFPLUS.UFN 31280 . 31852) (\BLKFTIMES.UFN 31854 . 32429) (
957-
\BLKSEP.UFN 32431 . 33562) (\BLKPERM.UFN 33564 . 34033) (\BLKEXPONENT.UFN 34035 . 34445) (
958-
\BLKFLOATP2COMP.UFN 34447 . 35031) (\BLKSMALLP2FLOAT.UFN 35033 . 35392) (\BLKMAG.UFN 35394 . 36045) (
959-
\FLOATTOBYTE.UFN 36047 . 36626) (\BLKFMAX.UFN 36628 . 37020) (\BLKFMIN.UFN 37022 . 37411) (
960-
\BLKFABSMAX.UFN 37413 . 37782) (\BLKFABSMIN.UFN 37784 . 38150)) (38192 40010 (\P-MISC2.UFN 38202 .
961-
38443) (\LINES-EQUAL-P 38445 . 38829) (\GET-NEXT-RUN 38831 . 40008)) (40011 44190 (IBLT1 40021 . 42023
962-
) (IBLT2 42025 . 44188)))))
954+
(FILEMAP (NIL (4747 5450 (BACKSPACEDEL 4757 . 5448)) (5545 5978 (PERIODICALLYRECLAIM 5555 . 5976)) (
955+
6208 7899 (\DIRTYBACKGROUND 6218 . 6640) (\SAVEVMBACKGROUND 6642 . 7426) (COPYVM 7428 . 7897)) (8320
956+
9519 (SETTIME 8330 . 9517)) (9520 13551 (RINGBELLS 9530 . 10023) (FLASHWINDOW 10025 . 11953) (PLAYTUNE
957+
11955 . 13549)) (13813 19345 (DISPLAYDOWN 13823 . 14211) (SETDISPLAYHEIGHT 14213 . 17013) (VIDEORATE
958+
17015 . 19343)) (19769 20490 (DOAROUNDEXITFORMS 19779 . 20488)) (20693 22408 (REALMEMORYSIZE 20703 .
959+
20861) (LISPVERSION 20863 . 21016) (MICROCODEVERSION 21018 . 21176) (BCPLVERSION 21178 . 21331) (
960+
REQUIREVERSION 21333 . 22406)) (22445 27023 (APROPOS 22455 . 26471) (APROPRINT 26473 . 27021)) (27049
961+
30957 (READPRINTERPORT 27059 . 27200) (WRITEPRINTERPORT 27202 . 27357) (\READPRINTERPORT.UFN 27359 .
962+
27548) (\WRITEPRINTERPORT.UFN 27550 . 27748) (\MISC1.UFN 27750 . 27903) (\MISC2.UFN 27905 . 28143) (
963+
\MISC3.UFN 28145 . 28878) (\MISC4.UFN 28880 . 29430) (\MISC5.UFN 29432 . 29585) (\MISC6.UFN 29587 .
964+
29837) (\MISC7.UFN 29839 . 30324) (\MISC8.UFN 30326 . 30627) (\MISC10.UFN 30629 . 30955)) (31011 38460
965+
(\BLKFDIFF.UFN 31021 . 31586) (\BLKFPLUS.UFN 31588 . 32160) (\BLKFTIMES.UFN 32162 . 32737) (
966+
\BLKSEP.UFN 32739 . 33870) (\BLKPERM.UFN 33872 . 34341) (\BLKEXPONENT.UFN 34343 . 34753) (
967+
\BLKFLOATP2COMP.UFN 34755 . 35339) (\BLKSMALLP2FLOAT.UFN 35341 . 35700) (\BLKMAG.UFN 35702 . 36353) (
968+
\FLOATTOBYTE.UFN 36355 . 36934) (\BLKFMAX.UFN 36936 . 37328) (\BLKFMIN.UFN 37330 . 37719) (
969+
\BLKFABSMAX.UFN 37721 . 38090) (\BLKFABSMIN.UFN 38092 . 38458)) (38500 40318 (\P-MISC2.UFN 38510 .
970+
38751) (\LINES-EQUAL-P 38753 . 39137) (\GET-NEXT-RUN 39139 . 40316)) (40319 44498 (IBLT1 40329 . 42331
971+
) (IBLT2 42333 . 44496)))))
963972
STOP

‎sources/DMISC.LCOM‎

63 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)