home *** CD-ROM | disk | FTP | other *** search
- Path: xanth!ames!mailrus!cornell!batcomputer!itsgw!steinmetz!uunet!munnari!basser!root
- From: richb@sunchat.oz.AU (Rich Burridge)
- Newsgroups: comp.sources.misc
- Subject: v05i092: faces v1.3 - visual mail/print monitor, Part 1/3
- Message-ID: <1702@basser.oz>
- Date: 24 Dec 88 02:12:48 GMT
- Sender: root@basser.oz
- Organization: Sun Microsystems, Sydney
- Lines: 1329
- Approved: john@cs.su.oz.AU
-
- Posting-number: Volume 5, Issue 92
- Submitted-By: Rich Burridge <richb@sunchat.oz.AU>
- Archive-name: faces-1.3/part01
-
- This is the second general release of a face server for monitoring mail
- and print jobs. It is based on the Bell Labs v8 vismon program, and this
- version is vismon compatible, but is not derived from AT&T sources.
-
- This version contains drivers for SunView and NeWS graphics systems.
-
- Permission is given to distribute these sources, as long as the
- copyright messages are not removed, and no monies are exchanged.
-
- See the README and manual page for more details.
-
- Save this, and subsequent messages in a new directory, strip off the
- beginning down to and including the CUT HERE line, unpack with sh,
- then type "make sunview" for the SunView version or "make news" for
- the NeWS version. Then install with "make install". Note that you might
- need super-user permission to do this successfully. Create your face
- directory, hostname sub-directories username ikons/icons, machine and
- people tables, and you're set.
-
- Note that if you are compiling faces under v3.x of the SunOS, then there
- is a line in the Makefile starting with OSTYPE, that needs to be uncommented.
-
- If anybody can work out what needs to be done to fix the problem of the
- window/icon always moving back to the initial position (see the BUGS section
- of the man page), then I'll be very pleased to hear from them.
-
- If you already have your face scanned in and iconised and would like to
- add it to the library I'm building up, please feel free to email it to me.
-
- Bugs, flames and suggestions to me please.
-
-
- Acknowledgements.
-
- Thanks go to Guy Harris for the basis of the latest manual page, Dave
- Lemke for many excellent suggestions including the animated postscript
- faces, to Andrew Nicholson for help with some of the trickier NeWS code,
- to Dan Heller for writing the 'watch' program which was consulted
- in the early days, to Rob Pike for sending me a copy of the
- Pike/Presotto paper "Face the Nation", which I used to get vismon
- compatibility, and to everybody else who suggested enhancements, and
- fixed bugs in the previous version.
-
- Rich Burridge - December 1988.
-
- ------CUT HERE------CUT HERE------
- #! /bin/sh
- # this is a shell archive, meaning:
- # 1. Remove everything above the #! /bin/sh line
- # 2. Save the resulting text in a file.
- # 3. Execute the file with /bin/sh to create the files:
- # README
- # faces.1
- # faces.ps
- # machine.tab
- # people.tab
- # Makefile
- # extern.h
- # faces.h
- # patchlevel.h
- # noface.icon
- # nomail.icon
- # noprint.icon
- # nopaper.icon
- # This archive created: Sun Dec 11 14:57:20 EST 1988
- #
- #
- export PATH; PATH=/bin:$PATH
- #
- if [ -f README ]
- then
- echo shar: will not over-write existing file README
- else
- echo shar: extracting 'README', 2703 characters
- cat > README <<'Funky_Stuff'
-
- README for faces, the visual mail and print monitor.
-
- Version 1.3 December 1988.
-
- Permission is given to distribute these sources, as long as the
- copyright messages are not removed, and no monies are exchanged.
-
- This is the second general release of a "faces" server for
- monitoring mail or print jobs.
-
- It contains graphical interfaces for SunView and NeWS. The X11 and
- blit versions are being worked on. Expect them in the near future.
-
- Faces has three different modes of operation:
-
- The default will monitor for new mail. Only the last ten messages are
- displayed. In its iconic form, it is also possible to display the timestamp
- of each message, and the open window format can give the username.
-
- The second choice is to monitor the whole of a mail file. The icon and open
- window display the appropriate faces, and dynamically change size as a new
- check is made and if the mail file has altered size. In the iconic form, a
- timestamp of the last message plus the number of mail messages from this
- person are optional display parameters.
-
- The final option allows this program to monitor a given print queue.
- This will generate a single face icon showing the job at the top of the print
- queue, and a text message will display the number of messages to be printed.
- Opening the window will show all the jobs in the queue with the owners' name
- and the size of the job in bytes.
-
- Faces is based on the AT&T v8 face server called vismon, but is not derived
- from vismon sources. With this version comes vismon compatibility. Note
- that this has resulted in a few changes from the way faces v1.1 worked.
- Please see the manual pages for details.
-
- There is a face directory, and under that are directories which are hostnames.
- Under that are username directories, and this is where the face images are
- placed. The face images are currently stored in one of three ways:
-
- 1. NeWS .ps format, called face.ps.
- 2. Sun icon format, called sun.icon.
- 3. Blit ikon format, called 48x48x1.
-
- The NeWS .ps allow for animation with the users' face. These files are
- drawn when the rest of the static faces have been displayed. They will be
- redrawn every time the mail or print queue is recheck or when the faces
- window or icon is damaged. See the manual page for details on the
- conditions imposed on these NeWS .ps files.
-
- By default, after every sixty seconds, faces will recheck the mail file or
- the print queue. If the mail spool file has changed size, it will produce a
- chain of records for which it has face icons.
-
- I welcome bug reports and suggestions for improvements.
-
- Rich.
-
- Rich Burridge, DOMAIN: richb@sunaus.oz.au
- PHONE: +61 2 413 2666 UUCP: {uunet,mcvax,ukc}!munnari!sunaus.oz!richb
- Funky_Stuff
- len=`wc -c < README`
- if [ $len != 2703 ] ; then
- echo error: README was $len bytes long, should have been 2703
- fi
- fi # end of overwriting check
- if [ -f faces.1 ]
- then
- echo shar: will not over-write existing file faces.1
- else
- echo shar: extracting 'faces.1', 6804 characters
- cat > faces.1 <<'Funky_Stuff'
- .\" @(#)faces.1 1.2 88/12/11
- .TH FACES 1L "2 December 1988"
- .SH NAME
- faces \- visual mail and print face server for the Sun workstation
- .SH SYNOPSIS
- .B "faces
- [
- .B \-P
- .I printer
- ]
- [
- .B \-a
- ]
- [
- .B \-b
- .I background
- ]
- [
- .B \-f
- .I facedir
- ]
- [
- .B \-i
- ]
- [
- .B \-n
- ]
- [
- .B \-p
- .I period
- ]
- [
- .B \-s
- .I spoolfile
- ]
- [
- .B \-t
- ]
- [
- .B \-u
- ]
- [
- .B \-v
- ]
- [
- .B \-Wi
- ]
- [
- .B \-Wp
- .I x y
- ]
- [
- .B \-WP
- .I x y
- ]
- .SH DESCRIPTION
- .B faces
- is a window based tool for monitoring mail or print queues. It contains
- graphical interfaces for SunView and NeWS. It has three different modes
- of operation:
- .LP
- The default will monitor for new mail. Only the last ten messages are
- displayed. In its iconic form, it is also possible to display the timestamp
- of each message, and the open window format can give the username.
- .LP
- The second choice is to monitor the whole of a mail file. The icon and open
- window display the appropriate faces, and dynamically change size as a new
- check is made and if the mail file has altered size. In the iconic form, a
- timestamp of the last message plus the number of mail messages from this
- person are optional display parameters.
- .LP
- The final option allows this program to monitor a given print queue.
- This will generate a single face icon showing the job at the top of the print
- queue, and a text message will display the number of messages to be printed.
- Opening the window will show all the jobs in the queue with the owners' name
- and the size of the job in bytes.
- .LP
- There are special displays for no mail, no faces found, no print jobs, and
- no paper in the printer.
- .LP
- .B faces
- is based on the AT&T v8 program
- .B vismon.
- This program is not derived from
- .B vismon
- source.
- .LP
- There is a special faces directory containing a fixed three-level hierarchy,
- which by default is
- .I /usr/local/faces.
- The first level is a machine name, the second level a user name, and the
- third level is the actual face image, which can be stored in three formats.
- If the file is named
- .I 48x48x1
- then it is a Blit ikon, and if it is called
- .I sun.icon
- then the image is stored in Sun icon format, and if the file is named
- .I face.ps
- then it contains executable NeWS code.
- .LP
- To access the face for a mail name
- .I machine!uid
- take the result of the first successful open from the following list of files:
- .LP
- /usr/local/faces/machine/uid/face.ps
- .br
- /usr/local/faces/machine/uid/sun.icon
- .br
- /usr/local/faces/machine/uid/48x48x1
- .br
- /usr/local/faces/misc./uid/face.ps
- .br
- /usr/local/faces/misc./uid/sun.icon
- .br
- /usr/local/faces/misc./uid/48x48x1
- .br
- /usr/local/faces/machine/unknown/face.ps
- .br
- /usr/local/faces/machine/unknown/sun.icon
- .br
- /usr/local/faces/machine/unknown/48x48x1
- .br
- /usr/local/faces/misc./unknown/face.ps
- .br
- /usr/local/faces/misc./unknown/sun.icon
- .br
- /usr/local/faces/misc./unknown/48x48x1
- .LP
- The directory
- .I misc.
- hold faces for generic users such as
- .I root
- and
- .I uucp.
- .LP
- Faces information is administered by a pair of ASCII files that associate
- related machines and faces. The machine table
- .I machine.tab
- attaches machines to communities; the line
- .LP
- stard=sunaus
- .LP
- puts the machine
- .I stard
- in community
- .I sunaus.
- The people table associates a community/alias pair, with a real username.
- .LP
- sunaus/rburridge=richb
- .LP
- causes the alias
- .I rburridge
- to be translated into the real username
- .I richb
- for the community
- .I sunaus
- .LP
- Domain name structure would be handled in the same way. For example:
- .LP
- sunaus.sun.oz=sunaus
- .LP
- would map the full domain name in the community
- .I sunaus.
- .LP
- If the faces directory hierarchy is not found, then a blank face image
- will be used.
- .LP
- Note that you still need to use
- .I mailtool
- or some other mail reading utility to actually read the mail that this program
- monitors;
- .I faces
- simply displays who the mail is from.
- .LP
- When new mail arrives,
- .B faces
- will beep and flash appropriately, depending upon the set parameters in
- the users
- .I .mailrc
- file.
- .LP
- If you are using the NeWS version and creating face images of the
- .I face.ps
- form, then the following points should be noted:
- .LP
- All graphics operations should be performed on the unit square.
- .br
- The final image will be translated to a 64 x 64 square image at
- .br
- the appropriate position in the faces display.
- .br
- .SH OPTIONS
- .TP
- .BI \-P " printer"
- Printer name to monitor. If this and a mail spool file are given with the -s
- option,
- .B faces
- will monitor the print queue.
- .TP
- .B \-a
- Monitor the whole of the specified mail file. The icon and open window display
- the appropriate faces, and dynamically change size as a new check is made and
- if the mail file has altered size.
- .TP
- .BI \-b " background"
- Sun icon file containing an alternate background pattern. The default is
- root grey.
- .TP
- .BI \-f " facedir"
- Use an alternate name for the faces directory. The default is
- .BR /usr/local/faces .
- .TP
- .B \-i
- Invert the faces images before displaying them. For use by people who
- started SunView with the
- .B \-i
- option.
- .TP
- .B \-n
- Do not display the number of messages from this person. The default is to
- display, and a count is shown at the bottom right corner of the face for
- this person.
- .TP
- .BI \-p " period"
- The period in seconds before the mail spool file or the print queue is
- scanned again for new mail. The default is 60 seconds.
- .TP
- .BI \-s " spoolfile"
- Use an alternate mail spool file to monitor. The default is
- .BI /var/spool/mail/ username
- where
- .I username
- is the name of the user currently logged in.
- .TP
- .B \-t
- Do not display a timestamp of the last message from this person. The
- default is to display, and a timestamp is shown at the bottom left
- corner of the face for this person.
- .TP
- .B \-u
- Do not display the username on the face icon. The default is to display,
- and the username will appear over the face icon, when the window is
- opened.
- .TP
- .B \-v
- Print the version number of this release of the
- .B faces
- program.
- .TP
- .B \-Wi
- Start the
- .B faces
- program up in iconic form. SunView automatically uses this flag, but the
- NeWS version will also.
- .TP
- .BI \-Wp " x y"
- Start the open window position at
- .I x y
- .TP
- .BI \-WP " x y"
- Start the icon position at
- .I x y
- .SH FILES
- .TP
- .B /var/spool/mail
- directory for system mailboxes
- .TP
- .B /.mailrc
- mail startup file
- .TP
- .B /usr/local/faces
- main directory containing the face icons.
- .TP
- .B /usr/local/faces/people.tab
- people/file equivalences
- .TP
- .B /usr/local/faces/machine.tab
- machine/community equivalences
- .SH BUGS
- The machine and people table lookup is hopelessly inefficient and
- will need to be improved as the faces database gets larger.
- .br
- If the window/icon for the NeWS version is moved, then the window or
- icon is redrawn at the original position.
- .SH AUTHOR
- Rich Burridge, DOMAIN: richb@sunaus.oz.au
- .nf
- PHONE: +61 2 413 2666 UUCP: {uunet,mcvax,ukc}!munnari!sunaus.oz!richb
- .fi
- Funky_Stuff
- len=`wc -c < faces.1`
- if [ $len != 6804 ] ; then
- echo error: faces.1 was $len bytes long, should have been 6804
- fi
- fi # end of overwriting check
- if [ -f faces.ps ]
- then
- echo shar: will not over-write existing file faces.ps
- else
- echo shar: extracting 'faces.ps', 3760 characters
- cat > faces.ps <<'Funky_Stuff'
-
- % These are NeWS dependent graphics routines used by faces.
- %
- % @(#)faces.ps 1.3 88/12/11
- %
- % Copyright (c) Rich Burridge - Sun Microsystems Australia.
- % All rights reserved.
- %
- % Permission is given to distribute these sources, as long as the
- % copyright messages are not removed, and no monies are exchanged.
- %
- % No responsibility is taken for any errors or inaccuracies inherent
- % either to the comments or the code of this program, but if reported
- % to me, then an attempt will be made to fix them.
-
-
- /ClearBox % x y width height canvas => -
- {
- setcanvas rectpath 0 setgray fill
- } def
-
-
- /DoPixrects % width height canvas => -
- {
- dup setcanvas 3 1 roll
- 0 0 4 -2 roll rectpath reshapecanvas
- } def
-
-
- /ExecFile % psfile width height x y => -
- {
- Frame /Iconic? get
- { Frame /IconCanvas get }
- { Frame /ClientCanvas get } ifelse
- setcanvas translate scale (r) file cvx exec
- } def
-
-
- /InitFont % - => -
- {
- /Font /Courier findfont 7 scalefont def
- } def
-
-
- /MakeFrame % wx wy width height ix iy iconic => -
- {
- [ /IsIcon /IconY /IconX /FrameHeight /FrameWidth /FrameY /FrameX ]
- { exch def } forall
-
- /DIED 100 def
- /PAINTED 101 def
- /ClientHeight FrameHeight 10 sub def
- /ClientWidth FrameWidth 10 sub def
- /IconHeight FrameHeight def
- /IconWidth FrameWidth def
-
- /PR framebuffer newcanvas def
- PR /Transparent false put
- PR /Mapped false put
- PR /Retained true put
-
- /MPR framebuffer newcanvas def
- MPR /Transparent false put
- MPR /Mapped false put
- MPR /Retained true put
-
- /Frame framebuffer /new DefaultWindow send def
- {
- /IconX IconX def
- /IconY IconY def
- /BorderTop 5 def
- /BorderLeft 5 def
- /BorderBottom 5 def
- /BorderRight 5 def
- /ControlSize 0 def
- /ForkPaintClient? false def
- /destroy
- {
- DIED typedprint
- DestroyFrame DestroyClient
- } def
- /flipiconic
- {
- PAINTED typedprint
- /unmap self send
- /Iconic? Iconic? not def
- IconX null eq {
- FrameX FrameY FrameHeight add IconHeight sub /move self send
- } if
- ZoomProc
- /map self send
- } def
- /PaintClient
- {
- gsave
- 1 fillcanvas
- ClientWidth ClientHeight scale
- 0 setgray
- Invert PR imagemaskcanvas
- grestore
- } def
- /PaintIcon
- {
- gsave
- 1 fillcanvas
- IconWidth IconHeight scale
- 0 setgray
- Invert MPR imagemaskcanvas
- grestore
- } def
- } Frame send
- IsIcon 1 eq { /flipiconic Frame send } if
- } def
-
-
- /MakeText % string x y canvas => -
- {
- setcanvas Font setfont 1 setgray moveto show
- } def
-
-
- /MoveImage % srccanvas width height x y destcanvas => -
- {
- setcanvas
- gsave
- translate scale imagecanvas
- grestore
- } def
-
-
- /SetBackground % - => -
- {
- PR setcanvas
- 0.88 fillcanvas
- 5 setrasteropcode clippath fill
- MPR setcanvas
- 0.88 fillcanvas
- 5 setrasteropcode clippath fill
- } def
-
-
- /ShiftImage % dx dy width height canvas => -
- {
- setcanvas 0 0 4 -2 roll rectpath copyarea
- } def
-
-
- /ShowDisplay % framewidth frameheight iconwidth iconheight => -
- {
- [ /IconHeight /IconWidth /ClientHeight /ClientWidth ] { exch def } forall
-
- /FrameHeight ClientHeight 10 add def
- /FrameWidth ClientWidth 10 add def
-
- FrameX FrameY
- FrameWidth FrameHeight /reshape Frame send
-
- Frame /IconWidth IconWidth put
- Frame /IconHeight IconHeight put
- /ShapeIconCanvas Frame send
- /painticon Frame send
-
- Frame /ClientHeight ClientHeight put
- Frame /ClientWidth ClientWidth put
- /ShapeClientCanvas Frame send
- /paintclient Frame send
- /map Frame send
- } def
- Funky_Stuff
- len=`wc -c < faces.ps`
- if [ $len != 3760 ] ; then
- echo error: faces.ps was $len bytes long, should have been 3760
- fi
- fi # end of overwriting check
- if [ -f machine.tab ]
- then
- echo shar: will not over-write existing file machine.tab
- else
- echo shar: extracting 'machine.tab', 383 characters
- cat > machine.tab <<'Funky_Stuff'
- stard=sunaus
- extra=sunaus
- sunchat=sunaus
- garfield=sunaus
- tom=sunaus
- felix=sunaus
- sunk=sunaus
- sunsa=sunaus
- misaus=sunaus
- maverick=sunaus
- misaus1=sunaus
- nimbin=sunaus
- redgum=sunaus
- palette=sunaus
- sunwa=sunaus
- sunact=sunaus
- basset=basser
- castor.cs.su.oz=basser
- cluster.cs.su.oz=basser
- orwell=basser
- sarad=basser
- sasha=basser
- sunrise=basser
- gris=softway
- softway.sw.oz=softway
- arakis=sun
- Funky_Stuff
- len=`wc -c < machine.tab`
- if [ $len != 383 ] ; then
- echo error: machine.tab was $len bytes long, should have been 383
- fi
- fi # end of overwriting check
- if [ -f people.tab ]
- then
- echo shar: will not over-write existing file people.tab
- else
- echo shar: extracting 'people.tab', 1663 characters
- cat > people.tab <<'Funky_Stuff'
- sunaus/rallen=bob
- sunaus/ballen=bob
- sunaus/bbaker=bruceb
- sunaus/mbosch=mike
- sunaus/eddy=eddie
- sunaus/eevans=eddie
- sunaus/ggrell=grell
- sunaus/gene=grell
- sunaus/jingall=johni
- sunaus/ijeffery=ian
- sunaus/glynne=gjl
- sunaus/tmcentee=tim
- sunaus/jnoonan=johnn
- sunaus/apappas=arie
- sunaus/jennie=jenny
- sunaus/jrendell=jenny
- sunaus/gsearle=gjs
- sunaus/gsitters=greg
- sunaus/bscott=brad
- sunaus/rstewart=ruth
- sunaus/jteasdale=jim
- sunaus/loraine=lori
- sunaus/lorraine=lori
- sunaus/lunicomb=lori
- sunaus/pvrbancich=paula
- sunaus/swoodhead=simon
- sunaus/jy=yo
- sunaus/jyoung=yo
- sunaus/rboden=richard
- sunaus/rbodin=richard
- sunaus/rburridge=richb
- sunaus/rich=richb
- sunaus/mcunningham=mary
- sunaus/sduchesne=sue
- sunaus/mfredericks=max
- sunaus/mfredricks=max
- sunaus/bgeneralis=bill
- sunaus/shulbert=susanh
- sunaus/susan=susanh
- sunaus/gmason=gregm
- sunaus/vmickan=val
- sunaus/trogge=tony
- sunaus/andy=aspiers
- sunaus/bwiggins=bruce
- sunaus/ryeap=ron
- sunaus/cbreen=colinb
- sunaus/rdesalis=roger
- sunaus/mfort=markf
- sunaus/mark=markg
- sunaus/mgurvis=markg
- sunaus/mnegri=manuel
- sunaus/npettitt=noel
- sunaus/jraine=john
- sunaus/paul=paulr
- sunaus/prosham=paulr
- sunaus/gsweigert=geo
- sunaus/rbowman=robb
- sunaus/bbowman=robb
- sunaus/krees=kim
- sunaus/mikes=mslee
- sunaus/gshepherd=george
- sunaus/aweller=andrew
- sunaus/kbeavan=kevin
- sunaus/rbradford=rhonda
- sunaus/ckeith=colin
- sunaus/mmccann=mmc
- sunaus/ksterry=kaylene
- sunaus/rwilliams=rex
- sunaus/gdonin=gary
- sunaus/dshea=dennis
- sunaus/doshea=dennis
- sunaus/hprotoolis=harry
- sunaus/rschrader=robert
- sunaus/bschrader=robert
- sunaus/bobs=robert
- sunaus/jvermeulen=jeff
- sunaus/MAILER-DAEMON=mailer-daemon
- sunaus/Mailer-Daemon=mailer-daemon
- sunaus/mailer-daemon=mailer-daemon
- Funky_Stuff
- len=`wc -c < people.tab`
- if [ $len != 1663 ] ; then
- echo error: people.tab was $len bytes long, should have been 1663
- fi
- fi # end of overwriting check
- if [ -f Makefile ]
- then
- echo shar: will not over-write existing file Makefile
- else
- echo shar: extracting 'Makefile', 4323 characters
- cat > Makefile <<'Funky_Stuff'
- #
- # Makefile for faces, an icon face server, plus associated software.
- #
- # @(#)Makefile 1.1 88/12/04
- #
- # Copyright (c) Rich Burridge.
- # Sun Microsystems, Australia - All rights reserved.
- #
- # Permission is given to distribute these sources, as long as the
- # copyright messages are not removed, and no monies are exchanged.
- #
- # Version 1.3 - December 1988.
- #
- # No responsibility is taken for any errors inherent either
- # to the comments or the code of this program, but if reported
- # to me then an attempt will be made to fix them.
- #
- #------------------------------------------------------------------
- # There are various command line options with the faces program.
- # They can also be defined at compile time. If they are not present
- # here, then sensible default values are used. The values given
- # below are the defaults, except for the spoolfile name where the
- # default is obtained from the users' passwd entry.
- #
- #
- # Monitor type (0 = monitor all, 1 = monitor new, 2 = monitor printer).
- #
- FMONTYPE = -DFMONTYPE=1
- #
- # Alternate background pattern instead of root gray.
- #
- BACKGROUND = -DBACKGROUND=\"\"
- #
- # Different directory for face icons,
- #
- FACEDIR = /usr/local/faces
- FACEPARAM = -DFACEDIR=\"$(FACEDIR)\"
- #
- # If nonzero, then display face images in reverse video.
- #
- INVERT = -DINVERT=0
- #
- # Period in seconds for checking for new mail or print jobs,
- #
- PERIOD = -DPERIOD=60
- #
- # If nonzero, do not show number of messages on the face icon,
- #
- DONTSHOWNO = -DDONTSHOWNO=0
- #
- # Alternative spoolfile to monitor,
- # eg: SPOOLFILE = -DSPOOLFILE=\"/usr/richb/Mail/pending\"
- #
- #SPOOLFILE =
- #
- # If nonzero, do not show timestamp on the face icon.
- #
- DONTSHOWTIME = -DDONTSHOWTIME=0
- #
- # If nonzero, do not show username on the face icon.
- #
- DONTSHOWUSER = -DDONTSHOWUSER=0
- #-------------------------------------------------------------------
-
- VARIABLES = $(FMONTYPE) $(BACKGROUND) $(FACEPARAM) \
- $(INVERT) $(PERIOD) $(DONTSHOWNO) $(SPOOLFILE) \
- $(DONTSHOWTIME) $(DONTSHOWUSER)
- BINARIES = ps_faces sv_faces
- BINDIR = /usr/local/bin
- FACES = facedir
- LIBDIR = /usr/local/lib
- NEWSFILE = -DNEWSGIVEN -DNEWSFILE=\"$(LIBDIR)/faces.ps\"
- MANDIR = /usr/man/man$(MANSECT)
- MANSECT = l
-
- #
- # If you are compiling faces under v3.x of SunOS, then uncomment this line.
- #OSTYPE = -DSUNOS3.x
-
- CFLAGS = -g $(NEWSFILE) $(OSTYPE) $(VARIABLES)
- HDRS = extern.h faces.h patchlevel.h
- IMAGES = noface.icon nomail.icon noprint.icon nopaper.icon
-
- PSLIBS = $$NEWSHOME/lib/libcps.a
- PSOBJS = get.o main.o mon.o news.o rec.o
- PSSRCS = get.c main.c mon.c news.c rec.c
-
- SVLIBS = -lsuntool -lsunwindow -lpixrect
- SVOBJS = get.o main.o mon.o rec.o sunview.o
- SVSRCS = get.c main.c mon.c rec.c sunview.c
-
- OTHERS = README faces.1 faces.ps machine.tab people.tab Makefile
- SRCS = get.c main.c mon.c news.c rec.c sunview.c
-
- all: sunview news
-
- news: ps_faces
- cp ps_faces faces
-
- sunview: sv_faces
- cp sv_faces faces
-
- ps_faces: $(PSOBJS)
- cc -o ps_faces $(CFLAGS) $(PSOBJS) $(PSLIBS)
-
- sv_faces: $(SVOBJS)
- cc -o sv_faces $(CFLAGS) $(SVOBJS) $(SVLIBS)
-
- install: $(BINARIES)
- install -s -m 751 faces $(BINDIR)
- install -c -m 644 faces.ps $(LIBDIR)
- install -c -m 644 machine.tab $(FACEDIR)
- install -c -m 644 people.tab $(FACEDIR)
- install -c -m 644 faces.1 $(MANDIR)/faces.$(MANSECT)
-
- backup:; cp -r $(SRCS) $(HDRS) $(IMAGES) $(OTHERS) $(FACES) backdir
-
- clean:; rm -f *.o $(BINARIES) faces core
-
- lint:; lint -DNEWSGIVEN -DNEWSFILE=\"$(LIBDIR)/faces.ps\" $(PSSRCS)
- lint $(SVSRCS) $(SVLIBS)
-
- shar:; shar.script $(OTHERS) $(HDRS) $(IMAGES) > archive.1
- shar.script $(SRCS) > archive.2
- shar.script $(FACES) > archive.3
-
- create: SCCS
- -sccs create $(SRCS) $(HDRS) $(IMAGES) $(OTHERS)
-
- SCCS:
- mkdir SCCS
- chmod 755 SCCS
-
- get.o: get.c faces.h extern.h patchlevel.h
- main.o: main.c faces.h Makefile
- mon.o: mon.c faces.h extern.h
- news.o: news.c faces.h extern.h
- rec.o: rec.c faces.h extern.h
- sunview.o: sunview.c extern.h $(IMAGES)
- Funky_Stuff
- len=`wc -c < Makefile`
- if [ $len != 4323 ] ; then
- echo error: Makefile was $len bytes long, should have been 4323
- fi
- fi # end of overwriting check
- if [ -f extern.h ]
- then
- echo shar: will not over-write existing file extern.h
- else
- echo shar: extracting 'extern.h', 3566 characters
- cat > extern.h <<'Funky_Stuff'
-
- /* @(#)extern.h 1.2 88/12/11
- *
- * Contains the external variable definitions used by faces.
- *
- * Copyright (c) Rich Burridge.
- * Sun Microsystems, Australia - All rights reserved.
- *
- * Permission is given to distribute these sources, as long as the
- * copyright messages are not removed, and no monies are exchanged.
- *
- * No responsibility is taken for any errors or inaccuracies inherent
- * either to the comments or the code of this program, but if
- * reported to me then an attempt will be made to fix them.
- */
-
- extern char *get_field(), *getname() ;
- extern int do_check() ;
- struct recinfo *rec_exists() ;
-
- extern struct comminfo *communities ; /* Community alias/username chain. */
- extern struct comminfo *clast ; /* End of chain of community records. */
- extern struct machinfo *machines ; /* Known machine/communities. */
- extern struct machinfo *mlast ; /* End of chain of machine records. */
- extern struct psinfo *psrecs ; /* List of news.ps animation files. */
- extern struct psinfo *plast ; /* End of chain of NeWS animation files. */
- extern struct recinfo *recs ; /* Mail messages being monitored. */
- extern struct recinfo *last ; /* End of the chain of mail records. */
- extern struct stat buf ; /* Buffer for stat call for file existence. */
- extern long lastsize ; /* Last known size of the mail folder. */
-
- extern enum gr_type gtype ; /* Indicates what graphics system is being used. */
- extern enum mon_type mtype ; /* What type of monitoring we should do. */
-
- extern char bgicon[] ; /* Alternate background pattern. */
- extern char community[] ; /* Community name ("real" host name). */
- extern char facedir[] ; /* Directory containing face images. */
- extern char iconname[] ; /* Name of the icon file for this person. */
- extern char machfile[] ; /* Name of the machine/community file. */
- extern char nextline[] ; /* Next line from users mail spool file. */
- extern char peopfile[] ; /* Name of the people/username file. */
- extern char printer[] ; /* Printer name to monitor. */
- extern char progname[] ; /* Name of this program. */
- extern char spoolfile[] ; /* Full pathname of users current mail. */
-
- extern int beeps ; /* Number of beeps for arrival of new mail. */
- extern int column ; /* Column number for next icon. */
- extern int dontshowno ; /* Set if no. of messages shouldn't be shown. */
- extern int dontshowtime ; /* Set if timestamp shouldn't be shown. */
- extern int dontshowuser ; /* Set if username shouldn't be shown. */
- extern int facetype ; /* Type of face file found. */
- extern int firsttime ; /* Zeroised after first mail/printer check. */
- extern int flashes ; /* Number of flashes for arrival of new mail. */
- extern int height ; /* Height in pixels of faces display. */
- extern int iconic ; /* Start as an icon if set. */
- extern int invert ; /* Set if to use reverse video. */
- extern int ix ; /* Initial X position of the icon. */
- extern int iy ; /* Initial Y position of the icon. */
- extern int newmail ; /* Set if there is new mail this time around. */
- extern int noicons ; /* Number of faces this time around. */
- extern int period ; /* Period in seconds for checking new mail. */
- extern int row ; /* Row number for next icon. */
- extern int width ; /* Width in pixels of faces display. */
- extern int wx ; /* Initial X position of the window. */
- extern int wy ; /* Initial Y position of the window. */
- Funky_Stuff
- len=`wc -c < extern.h`
- if [ $len != 3566 ] ; then
- echo error: extern.h was $len bytes long, should have been 3566
- fi
- fi # end of overwriting check
- if [ -f faces.h ]
- then
- echo shar: will not over-write existing file faces.h
- else
- echo shar: extracting 'faces.h', 4482 characters
- cat > faces.h <<'Funky_Stuff'
-
- /* @(#)faces.h 1.3 88/12/09
- *
- * Contains all the global definitions used by faces.
- *
- * Copyright (c) Rich Burridge - Sun Microsystems Australia.
- * All rights reserved.
- *
- * Permission is given to distribute these sources, as long as the
- * copyright messages are not removed, and no monies are exchanged.
- *
- * No responsibility is taken for any errors or inaccuracies inherent
- * either to the comments or the code of this program, but if
- * reported to me then an attempt will be made to fix them.
- */
-
- #include <stdio.h>
- #include <sys/fcntl.h>
- #include <sys/types.h>
- #include <sys/file.h>
- #include <sys/stat.h>
- #include <sys/time.h>
- #include <pwd.h>
- #include <strings.h>
-
- #define FCLOSE (void) fclose /* To make lint happy. */
- #define FFLUSH (void) fflush
- #define FGETS (void) fgets
- #define FPRINTF (void) fprintf
- #define FSEEK (void) fseek
- #define GETHOSTNAME (void) gethostname
- #define GET_SUN_ICON (void) get_sun_icon
- #define IOCTL (void) ioctl
- #define PUTC (void) putc
- #define SELECT (void) select
- #define SSCANF (void) sscanf
- #define SPRINTF (void) sprintf
- #define STRCAT (void) strcat
- #define STRCPY (void) strcpy
- #define STRNCAT (void) strncat
- #define STRNCPY (void) strncpy
- #define UNLINK (void) unlink
-
- /* The types of display. */
- enum disp_type { BOTH, ICON, WINDOW } ;
-
- /* Field extraction options. */
- enum field_type { HOSTNAME, TIMESTAMP, USERNAME } ;
-
- /* Different types of possible face images. */
- enum icon_type { NOMAIL, NOPAPER, NOPRINT, ORDINARY } ;
-
- /* Text justification within face display. */
- enum just_type { LEFT, RIGHT } ;
-
- /* Different types of file monitoring performed by this program. */
- enum mon_type { MONALL, MONNEW, MONPRINTER } ;
-
- /* Different graphics systems appropriate one set in gtype. */
- enum gr_type { SUNVIEW, NEWS } ;
-
- /* Determine order for face type lookup. */
- #define NEWSTYPE 0
- #define SUNTYPE 1
- #define BLITTYPE 2
-
- /* NeWS return event values. */
- #define DIED 100 /* Faces has been zapped. */
- #define PAINTED 101 /* Canvas/Icon needs repainting. */
-
- #define BLITHEIGHT 48 /* Maximum number of lines in a blit icon. */
- #define EQUAL(str,val) !strncmp(str,val,strlen(val))
- #define ICONHEIGHT 64 /* Height of individual face icons. */
- #define ICONWIDTH 64 /* Width of individual face icons. */
- #define INC argc-- ; argv++ ;
- #define MAXLINE 200 /* Maximum length for character strings. */
- #define MAXTYPES 3 /* Maximum number of different face types. */
- #define NO_PER_ROW 10 /* Number of faces per row. */
-
- char *getenv(), *malloc(), *sprintf() ;
-
- struct machinfo /* Machine/community record. */
- {
- char *machine ; /* Machine name. */
- char *community ; /* Community it belongs to. */
- struct machinfo *next ; /* Pointer to next record. */
- } ;
-
- struct comminfo /* Community alias/username records. */
- {
- char *community ; /* Community name. */
- struct peopinfo *people ; /* Chain of alias/usernames. */
- struct comminfo *next ; /* Pointer to next record. */
- } ;
-
- struct peopinfo /* Username/alias record. */
- {
- char *alias ; /* Alias for this user. */
- char *username ; /* Real username. */
- struct peopinfo *next ; /* Pointer to next record. */
- } ;
-
- struct psinfo /* News.ps animation records. */
- {
- char *name ; /* Full pathname of news.ps file. */
- int row ; /* Row number where animation will occur. */
- int column ; /* Column number where animation will occur. */
- struct psinfo *next ; /* Pointer to next record. */
- } ;
-
- struct recinfo /* Mail/print information record. */
- {
- char *community ; /* Community name for this person. */
- char *iconname ; /* Name of iconfile for this person. */
- char *username ; /* User name for this person. */
- int total ; /* Total number of messages/print jobs. */
- int size ; /* Total size in bytes of print job. */
- char ts[6] ; /* Latest timestamp for this user. */
- struct recinfo *next ; /* Pointer to next record. */
- } ;
- Funky_Stuff
- len=`wc -c < faces.h`
- if [ $len != 4482 ] ; then
- echo error: faces.h was $len bytes long, should have been 4482
- fi
- fi # end of overwriting check
- if [ -f patchlevel.h ]
- then
- echo shar: will not over-write existing file patchlevel.h
- else
- echo shar: extracting 'patchlevel.h', 560 characters
- cat > patchlevel.h <<'Funky_Stuff'
-
- /* @(#)patchlevel.h 1.1 88/12/04
- *
- * This is the current patch level for this version of faces.
- *
- * Copyright (c) Rich Burridge.
- * Sun Microsystems, Australia - All rights reserved.
- *
- * Permission is given to distribute these sources, as long as the
- * copyright messages are not removed, and no monies are exchanged.
- *
- * No responsibility is taken for any errors or inaccuracies inherent
- * either to the comments or the code of this program, but if
- * reported to me then an attempt will be made to fix them.
- */
-
- #define PATCHLEVEL 0
- Funky_Stuff
- len=`wc -c < patchlevel.h`
- if [ $len != 560 ] ; then
- echo error: patchlevel.h was $len bytes long, should have been 560
- fi
- fi # end of overwriting check
- if [ -f noface.icon ]
- then
- echo shar: will not over-write existing file noface.icon
- else
- echo shar: extracting 'noface.icon', 1933 characters
- cat > noface.icon <<'Funky_Stuff'
- /* Format_version=1, Width=64, Height=64, Depth=1, Valid_bits_per_item=16
- */
- 0x0000,0x1FA0,0x0000,0x0000,0x0000,0x7FFC,0x0000,0x0000,
- 0x0000,0xFEFF,0x0000,0x0000,0x0001,0xBFBF,0xC000,0x0000,
- 0x0001,0xEFFA,0xE000,0x0000,0x0002,0x00FF,0xF800,0x0000,
- 0x0002,0x007F,0xFF80,0x0000,0x0000,0x001F,0x7E00,0x0000,
- 0x000C,0x001F,0xFFC0,0x0000,0x0000,0x0015,0xFFC0,0x0000,
- 0x0030,0x001F,0xFFF0,0x0000,0x0070,0x000F,0xFEB0,0x0000,
- 0x00C0,0x0007,0xFFF8,0x0000,0x00E0,0x0007,0xFFE8,0x0000,
- 0x01E0,0x0003,0xFFF8,0x0000,0x03C0,0x0001,0xFFF8,0x0000,
- 0x03E0,0x0001,0xFFF8,0x0000,0x07C0,0x0000,0xFFF0,0x0000,
- 0x0FF8,0x0000,0xBFF8,0x0000,0x0FE0,0x0000,0xFFF8,0x0000,
- 0x1FF0,0x0000,0x7FF8,0x0000,0x1FF0,0x0000,0xFFF8,0x0000,
- 0x1FF0,0x0000,0xFFF8,0x0000,0x1FD0,0x0000,0xFFF0,0x0000,
- 0x0FE0,0x0001,0xFFF0,0x0000,0x1FA0,0x0000,0x3FF0,0x0000,
- 0x0320,0x0000,0x1FE0,0x0000,0x0B80,0x0000,0x1F80,0x0000,
- 0x0180,0x0000,0x1780,0x0000,0x0080,0x0000,0x1F00,0x0000,
- 0x0000,0x0000,0x1F00,0x0000,0x0180,0x0000,0x0E00,0x0000,
- 0x0380,0x0000,0x1E00,0x0000,0x0180,0x0000,0x0FC0,0x0000,
- 0x0080,0x0000,0x1F80,0x0000,0x01C0,0x0000,0x0F80,0x0000,
- 0x00C0,0x0000,0x7F80,0x0000,0x0040,0x0000,0x7F00,0x0000,
- 0x0060,0x0000,0xCE00,0x0000,0x0004,0x0001,0x6000,0x0000,
- 0x0000,0x0003,0xF800,0x0000,0x0002,0x0001,0xA000,0x0000,
- 0x0000,0x0007,0xC000,0x0000,0x0002,0x000F,0x4000,0x0000,
- 0x0000,0x804B,0xC000,0x0000,0x0002,0xBBFE,0x8000,0x0000,
- 0x0000,0x8FFB,0xC000,0x0000,0x0001,0x7ABF,0xC000,0x0000,
- 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
- 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
- 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
- 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
- 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
- 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
- 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
- 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
- Funky_Stuff
- len=`wc -c < noface.icon`
- if [ $len != 1933 ] ; then
- echo error: noface.icon was $len bytes long, should have been 1933
- fi
- fi # end of overwriting check
- if [ -f nomail.icon ]
- then
- echo shar: will not over-write existing file nomail.icon
- else
- echo shar: extracting 'nomail.icon', 1933 characters
- cat > nomail.icon <<'Funky_Stuff'
- /* Format_version=1, Width=64, Height=64, Depth=1, Valid_bits_per_item=16
- */
- 0x0001,0xFFFF,0xFFC0,0x0000,0x0002,0xB000,0x0030,0x0000,
- 0x0003,0x5800,0x0008,0x0000,0x0006,0xADFF,0xFFC8,0x0000,
- 0x0005,0x54FF,0xFFE4,0x0000,0x000A,0xAAFF,0xFFF2,0x0000,
- 0x000D,0x567F,0xFFF2,0x0000,0x000A,0xAA7F,0xFFFA,0x0000,
- 0x000D,0x557F,0xFFF9,0x0000,0x000A,0xAB7F,0xFFF9,0x0000,
- 0x000D,0x557F,0xFFF9,0x0000,0x000A,0xAB3F,0xFFF1,0x0000,
- 0x000D,0x5500,0x0001,0x0000,0x000A,0xAB00,0x0001,0x0000,
- 0x000D,0x5500,0xFE01,0x0000,0x000A,0xAB03,0xFF81,0x0000,
- 0x000D,0x5507,0xFFC1,0x0000,0x000A,0xAB0F,0xFFE1,0x0000,
- 0x000D,0x551F,0xFFF1,0x0000,0x000A,0xAB1F,0xFFF1,0x0000,
- 0x000D,0x553F,0xFFF9,0x0000,0x000A,0xAB3F,0xFFF9,0x0000,
- 0x000D,0x553F,0xFFF9,0x0000,0x000A,0xAB3F,0xFFF9,0x0000,
- 0x0FFD,0x553F,0xFFF9,0x0000,0x3FFA,0xAB3F,0xFFF9,0x0000,
- 0x7FFD,0x553F,0xFFF9,0x0000,0xFFFA,0xAB3F,0xFFF9,0x0000,
- 0xFFFD,0x551F,0xFFF1,0x0000,0xFFFA,0xAB1F,0xFFF1,0x0000,
- 0xFFFD,0x550F,0xFFE1,0x0000,0xFFFA,0xAB07,0xFFC1,0x0000,
- 0xFFFD,0xD503,0xFF81,0x0000,0xFFFB,0xEB00,0xFE01,0x0000,
- 0x3FFD,0xF500,0x0001,0x0000,0x3FFB,0xFB00,0x0001,0x0000,
- 0x0FFD,0xFD0F,0xFFE1,0x0000,0x0FFB,0xFB1F,0xFFD1,0x0000,
- 0x03FD,0xFD3F,0xF7C9,0x0000,0x00FF,0xFF7F,0xF8C5,0x0000,
- 0x003F,0xFD7F,0xFC45,0x0000,0x001F,0xFF7F,0xFE05,0x0000,
- 0x0007,0xF560,0x3F85,0x0000,0x0003,0xF760,0x0FE5,0x0000,
- 0x0000,0xFD40,0x01F5,0x0000,0x0000,0x3F40,0x00FD,0x0000,
- 0x0000,0x0760,0x003D,0x0000,0x0000,0x03E0,0x000F,0x0000,
- 0x0000,0x0000,0x0000,0x0000,0x00FF,0xFFFF,0xFFFF,0xFF80,
- 0x00FF,0xFFFF,0xFFFF,0xFF80,0x00BB,0xFFFF,0xFFFD,0xF180,
- 0x009B,0xFFFF,0xFFFF,0xFD80,0x009B,0x8FFC,0xBC71,0xFD80,
- 0x00AB,0x77FD,0x5BBD,0xFD80,0x00AB,0x77FD,0x5FBD,0xFD80,
- 0x00B3,0x77FD,0x5C3D,0xFD80,0x00B3,0x77FD,0x5BBD,0xFD80,
- 0x00BB,0x77FD,0x5BBD,0xFD80,0x00BB,0x8FFD,0x5C3D,0xFD80,
- 0x00FF,0xFFFF,0xFFFF,0xFF80,0x00FF,0xFFFF,0xFFFF,0xFF80,
- 0x00FF,0xFFFF,0xFFFF,0xFF80,0x0000,0x0000,0x0000,0x0000
- Funky_Stuff
- len=`wc -c < nomail.icon`
- if [ $len != 1933 ] ; then
- echo error: nomail.icon was $len bytes long, should have been 1933
- fi
- fi # end of overwriting check
- if [ -f noprint.icon ]
- then
- echo shar: will not over-write existing file noprint.icon
- else
- echo shar: extracting 'noprint.icon', 1933 characters
- cat > noprint.icon <<'Funky_Stuff'
- /* Format_version=1, Width=64, Height=64, Depth=1, Valid_bits_per_item=16
- */
- 0x0000,0x0000,0x0000,0x0000,0x00FF,0xFFFF,0xFFFF,0xFFE0,
- 0x0080,0x0000,0x0000,0x0010,0x0080,0x0000,0x0000,0x0010,
- 0x0080,0x0000,0x0000,0x0010,0x0080,0x0000,0x0000,0x0010,
- 0x0080,0x0000,0x0000,0x0010,0x0080,0x0000,0x0000,0x0010,
- 0x0080,0x0000,0x0000,0x0010,0x0080,0x0000,0x0000,0x0010,
- 0x00FF,0xFFFF,0xFFFF,0xFFF0,0x0090,0x0400,0x0000,0x8010,
- 0x0091,0xE400,0x0000,0x8010,0x0092,0x1400,0x1FF8,0x8010,
- 0x0092,0x1400,0x1008,0x8010,0x0092,0x1400,0x1008,0x8010,
- 0x0093,0xF400,0x1FF8,0x8010,0x0092,0xD400,0x1008,0x8010,
- 0x0092,0x1400,0x1FF8,0x8010,0x0091,0xE400,0x0000,0x8020,
- 0x0090,0x0400,0x0000,0x8040,0x00FF,0xFFFF,0xFFFF,0xC080,
- 0x3FFF,0xFFFF,0xFFFF,0xE100,0x3880,0x0000,0x0000,0x7E00,
- 0x3880,0x0000,0x0000,0x1FFC,0x3880,0x0000,0x0000,0x1FFC,
- 0x3F80,0x0FEF,0xEFCF,0xE100,0x0080,0x0000,0x0000,0x01FC,
- 0x0080,0x0FEF,0xEFCF,0xE100,0x0F80,0x0000,0x0000,0x0100,
- 0x0880,0x0FEF,0xEFCF,0xE100,0x0F80,0x0000,0x0000,0x0100,
- 0x0080,0x0000,0x0000,0x0100,0x00FF,0xFFFF,0xFFFF,0xFF00,
- 0x0040,0x0000,0x0000,0x0200,0x0040,0x0000,0x0000,0x0200,
- 0x003F,0xFFFF,0xFFFF,0xFC00,0x001C,0x0000,0x0001,0xC000,
- 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
- 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
- 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
- 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
- 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
- 0x0000,0x0000,0x0000,0x0000,0x00FF,0xFFFF,0xFFFF,0xFF80,
- 0x00FF,0xFFFF,0xFFFF,0xFF80,0x00FF,0xFFFF,0xBFF7,0xFF80,
- 0x00FF,0xFFFF,0xFFF7,0xFF80,0x00A7,0x8FFE,0x3C74,0xF180,
- 0x009B,0x77FF,0xBBB3,0x6E80,0x00BB,0x77FF,0xBBB7,0x6F80,
- 0x00BB,0x77FF,0xBBB7,0x7180,0x00BB,0x77FF,0xBBB7,0x7E80,
- 0x00BB,0x77FF,0xBBB3,0x6E80,0x00BB,0x8FFF,0xBC74,0xF180,
- 0x00FF,0xFFFF,0xBFFF,0xFF80,0x00FF,0xFFFD,0xBFFF,0xFF80,
- 0x00FF,0xFFFE,0x7FFF,0xFF80,0x00FF,0xFFFF,0xFFFF,0xFF80
- Funky_Stuff
- len=`wc -c < noprint.icon`
- if [ $len != 1933 ] ; then
- echo error: noprint.icon was $len bytes long, should have been 1933
- fi
- fi # end of overwriting check
- if [ -f nopaper.icon ]
- then
- echo shar: will not over-write existing file nopaper.icon
- else
- echo shar: extracting 'nopaper.icon', 1973 characters
- cat > nopaper.icon <<'Funky_Stuff'
- /* Format_version=1, Width=64, Height=64, Depth=1, Valid_bits_per_item=16
- */
- 0xC000,0x0000,0x0000,0x0003,0xE000,0x0000,0x0000,0x0007,
- 0x7000,0x0000,0x0000,0x000E,0x3800,0x0000,0x0000,0x001C,
- 0x1C00,0x0000,0x0000,0x0038,0x0E00,0x0000,0x0000,0x0070,
- 0x0700,0x0000,0x0000,0x00E0,0x0380,0x0000,0x0000,0x01C0,
- 0x01C0,0x0000,0x0000,0x0380,0x00E0,0x0000,0x0000,0x0700,
- 0x0070,0x0000,0x0000,0x0E00,0x0038,0x0000,0x0000,0x1C00,
- 0x001C,0x0000,0x0000,0x3800,0x000E,0x0000,0x0000,0x7000,
- 0x0007,0x0000,0x0000,0xE000,0x0003,0x8000,0x0001,0xC000,
- 0x0001,0xC000,0x0003,0x8000,0x0000,0xE000,0x0007,0x0000,
- 0x0000,0x7000,0x000E,0x0000,0x0000,0x7FFF,0xFFFF,0xC000,
- 0x0000,0xBC00,0x0038,0x2000,0x0001,0x1E00,0x0070,0x1000,
- 0x0002,0x0F00,0x00E0,0x0800,0x0004,0x0780,0x01C0,0x0400,
- 0x0004,0x05C0,0x0380,0x0400,0x0008,0x42E0,0x0700,0x0200,
- 0x0008,0xE270,0x0E00,0x0200,0x0009,0xF238,0x1C00,0x0200,
- 0x0009,0xF21C,0x3800,0x0200,0x0009,0xF20E,0x7000,0x0200,
- 0x0009,0xF207,0xE000,0x0200,0x0009,0xF203,0xC000,0x0200,
- 0x0008,0xE203,0xC000,0x0200,0x0008,0x4207,0xE000,0x0200,
- 0x0004,0x040E,0x7000,0x0400,0x0004,0x041C,0x3800,0x0400,
- 0x0006,0x0838,0x1C00,0x0800,0x0007,0x1070,0x0E00,0x1000,
- 0x0002,0xA0E0,0x0700,0x2000,0x0002,0x7FFF,0xFFFF,0xC000,
- 0x0002,0x0380,0x01C2,0x0000,0x0002,0x0700,0x00E1,0x0000,
- 0x0003,0x0E00,0x0071,0x0000,0x0001,0x1C00,0x0039,0x0000,
- 0x0001,0x3800,0x001C,0x8000,0x0000,0xF000,0x000E,0x8000,
- 0x0000,0xE000,0x0007,0x8000,0x0001,0xC000,0x0003,0x8000,
- 0x0003,0x8000,0x0001,0xC000,0x0007,0x8000,0x0000,0xE000,
- 0x000E,0x4030,0x0000,0x7000,0x001C,0x41FC,0x0000,0x7800,
- 0x0038,0x4F02,0x003C,0x5C00,0x0070,0x5401,0xC1C2,0x2E00,
- 0x00E0,0x6000,0x3F01,0xC700,0x01C0,0x0000,0x0000,0x0380,
- 0x0380,0x0000,0x0000,0x01C0,0x0700,0x0000,0x0000,0x00E0,
- 0x0E00,0x0000,0x0000,0x0070,0x1C00,0x0000,0x0000,0x0038,
- 0x3800,0x0000,0x0000,0x001C,0x7000,0x0000,0x0000,0x000E,
- 0xE000,0x0000,0x0000,0x0007,0xC000,0x0000,0x0000,0x0003
- Funky_Stuff
- len=`wc -c < nopaper.icon`
- if [ $len != 1973 ] ; then
- echo error: nopaper.icon was $len bytes long, should have been 1973
- fi
- fi # end of overwriting check
-