From: Russ Cox rsc@research.att.com
Subject: screen blanker.
Date: Mon, 18 Nov 1996 23:38:52 -0500 [thread overview]
Message-ID: <19961119043852.5ygusSWu9zXndgxYFS9ArlHH7dyfjwQeZS_sMtkDvqk@z> (raw)
To make a screen blanker:
First, apply the attached boddle to 8½, adding in the
process the file /dev/active to the 8½ served files list.
/dev/active returns "y" if the keyboard or mouse has been
active since the last time it was read (note that the initial
open does not count as a read, so that it can be used in
rc scripts).
Then, you can just start this blanker script and fork to
the background when you log in:
--- /rc/bin/blanker
#!/bin/rc
fn black {
fb/getmap black
}
fn clear {
fb/getmap rgbv
}
t1 = 60 # 60 second intervals when waiting to black
t2 = 1 # wait one second when waiting to come back.
idlemax = 10 # 10 t1 intervals gets blacked
blank = 0
idle = 0
while() {
switch($blank) {
case 0
sleep $t1
switch(`{cat /dev/active}) {
case y
idle = 0
case n
idle = `{echo $idle + 1 | hoc}
}
if(test $idle -gt $idlemax) {
black
blank = 1
}
echo idle $idle
case 1
sleep $t2
switch(`{cat /dev/active}) {
case y
clear
idle = 0
blank = 0
}
}
}
--- blanker end.
--- 8½ boddle.
#!/bin/rc
#
# command: /bin/boddle /sys/clean-src/cmd/8½ /sys/src/cmd/8½
# srcdir: /sys/clean-src/cmd/8½
# version: 848378407
# date: Mon Nov 18 23:40:07 EST 1996
#
myname=$0
doextract=no
fn usage{
echo $myname: usage: $myname '[-X] [src-directory]' >[1=2]
exit usage
}
fn sigint{
rm -rf 848378407
exit interrupt
}
while(~ $1 -*){
switch($1){
case -X
doextract=yes
case -*
usage
}
shift
}
switch($#*){
case 0
srcdir=/sys/clean-src/cmd/8½
case 1
srcdir=$1
case *
usage
}
if(! ~ $doextract yes){
echo This shell file contains a bundle of diffs representing changes
echo to original source files in the Plan 9 distribution. It will run
echo against the files in
echo ' ' $srcdir
echo '(unless overridden by the optional source directory argument)'
echo and create a directory 848378407 containing the updated files.
echo It will NOT automatically update the original files.
echo
echo Invoke with argument -X to perform the actual extraction.
exit 0
}
rm -rf 848378407
mkdir 848378407
target=848378407/dat.h
echo -n '848378407/dat.h: '
if(! test -f $srcdir/dat.h || ! test -r $srcdir/dat.h){
echo $srcdir/dat.h unreadable
exit unreadable
}
sum=`{sum < $srcdir/dat.h}
if(! ~ 7bda55924355 $sum(1)^$sum(2)){
echo $srcdir/dat.h is not the original distribution file
exit original
}
cp $srcdir/dat.h 848378407/dat.h
ed 848378407/dat.h >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM dat.h'
177a
extern int active;
reply other threads:[~1996-11-19 4:38 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=19961119043852.5ygusSWu9zXndgxYFS9ArlHH7dyfjwQeZS_sMtkDvqk@z \
--to=9fans@9fans.net \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).