Path: utzoo!utgpu!watserv1!watmath!att!tut.cis.ohio-state.edu!cs.utexas.edu!sun-barr!newstop!exodus!hillside.co.uk
From: pc@hillside.co.uk (Peter Collinson)
Newsgroups: comp.sources.x
Subject: v10i099: xcal, Part01/03
Message-ID: <csx-10i099:xcal@uunet.UU.NET>
Date: 29 Dec 90 22:54:22 GMT
Sender: news@exodus.Eng.Sun.COM
Lines: 2103
Approved: argv@sun.com

Submitted-by: Peter Collinson <pc@hillside.co.uk>
Posting-number: Volume 10, Issue 99
Archive-name: xcal/part01

This unpacks into the current directory.
For details see the README and CHANGES files - just discernable below..

#! /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 (not csh) to create the files:
#	README
#	CHANGES
#	Imakefile
#	Makefile
#	XCal.ad
#	mouse.bm
#	mouseaway.bm
#	patchlevel.h
#	pscal
#	version.c
#	xcal.h
#	scott_brim
# This archive created: Tue Dec 18 21:16:13 1990
export PATH; PATH=/bin:$PATH
echo shar: extracting "'README'" '(1983 characters)'
if test -f 'README'
then
	echo shar: will not over-write existing file "'README'"
else
sed 's/^	X//' << \SHAR_EOF > 'README'
	XXcal is a calendar program. It generally sits on your screen
	Xdisplaying todays date - the format of this can be tailored to your
	Xtaste.
	X
	XHitting the left button in the date window gives you a `strip' showing
	Xthe current month with one line per day. Daily details can be stored
	Xin files (like xcalendar - from where I stole the code). The daily
	Xdetails will be displayed in the strip - so you can see what you have
	Xto do. The X11R4 multi-line widget makes this rather nice.
	X
	XDaily details can be edited by poking at the appropriate day and
	Xgetting an edit window. Daily details can contain times and can
	Xbe used to trigger screen alarms.
	X
	XEach strip has `next' and `previous' button, so you can do the common
	Xactions quickly - alternatively you can hit the middle button in the
	Xdate window to get a dialogue box which you can use to enter the date
	Xof the month which you want to display.
	X
	XA top level button on the date strip gives you access to a memo pad
	Xwhere you can store things that you should be doing. This panel also
	Xshows todays information so a single button click can be used to see
	Xtodays appointments.
	X
	XI have also stolen pscal from the net and modified it to work with the
	Xprogram. So you can generate pretty printed calendars whenever you
	Xlike - assuming that you have a PostScript printer.
	X
	XThis is release 3.2.
	XThe history is:
	X	Release 1.1  posted to comp.sources.x
	X		+ two patches
	X	Release 2.1  circulated privately
	X	Release 3.1  circulated privately
	X
	XCaveats
	X
	XYes this IS another - `I need something real to find out about X exercise'.
	XSo, it demonstrates all those faults.
	X
	XPeter Collinson
	XHillside Systems
	X61 Hillside Avenue
	XCanterbury
	XKent, CT2 8HA
	X
	XPhone: +44 227 761824
	XFax: +44 227 762554
	XEmail: pc@hillside.co.uk
	X
	X18/December/1990
	X
	XFixes/enhancements welcomed....
	X
	XThis is free... however, if you are going to make some profit from
	Xthis, then perhaps you should consider passing something back to me
	Xsince I am freelance and mostly don't get paid everyday.
SHAR_EOF
if test 1983 -ne "`wc -c < 'README'`"
then
	echo shar: error transmitting "'README'" '(should have been 1983 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'CHANGES'" '(1800 characters)'
if test -f 'CHANGES'
then
	echo shar: will not over-write existing file "'CHANGES'"
else
sed 's/^	X//' << \SHAR_EOF > 'CHANGES'
	XChanges:	CHANGES	2.2	12/5/90
	X
	XXcal - Version 3.1 Issued to comp.sources.x
	X
	X	Adds the memo functionality and the Stick/Unpin feature
	X	for alarms.
	X
	X---------------------------- 2.1
	X
	XXcal - Version 2.1 Issued privately
	X
	X	Two main differences between version 1.1 and version 2.1
	X	a)	Version 2.1 has alarms so that xcal can poll you
	X		during the day - idea contributed by Mark Majhor, Sequent
	X		and then unashame-edly hacked by me.
	X	b)	Version 2.1 has a support program supplied by Ed Gould
	X		from Mt Xinu allowing you to set up a file suitable for
	X		driving UNIX's calendar program.
	X
	X---------------------------- 1.6
	X
	Xpscal/pscal.sh	Fix to make sed work better to truncate the calendar file
	X		when printing.
	X		From Gregory Bond, Burdett Buckeridge & Young Ltd, Melbourne, Australia
	X		Internet: gnb@melba.bby.oz.au    non-MX: gnb%melba.bby.oz@uunet.uu.net
	X
	X---------------------------- 1.5
	X
	Xxcal.h		Add initialCalendar/initialEdit switches
	X		Support for better start-up options... from
	X		From: Rod Whitby <rwhitby@adl.austek.oz.au>
	X
	Xxcal.c		Add hooks and code to perform startuo
	X
	XImakefile	Corrected
	X
	Xxcal.man	Add new lines supporting initialCalendar/initialEdit
	X
	X---------------------------- 1.4
	Xxcal_edit.c	Fix bug where colour mapping on days failed to change when
	X		data is deleted or added.
	X
	Xxcal.h/xcal.c/xcal_strip.c
	X		Add a new resource minStripWidth intended to allow
	X		users to widen the strip to some value which seems
	X		sensible. If zero the resource is unused.
	X
	XXCal.ad		Add colour map from wade@cs.utk.edu
	X
	Xxcal_edit.c	Changes to XBell calls due to typo
	X		Steve Alexander, Software Technologies Group
	X		INTERACTIVE Systems Corporation, Naperville, IL
	X		 ...!{sun,ico}!laidbak!stevea
	X		stevea@i88.isc.com
	X
	X
	X	
	XXcal - Version 1.1 Issued to the net comp.sources.x. 
	X		xcal: Volume 7, Issue 1-2
	X
SHAR_EOF
if test 1800 -ne "`wc -c < 'CHANGES'`"
then
	echo shar: error transmitting "'CHANGES'" '(should have been 1800 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'Imakefile'" '(784 characters)'
if test -f 'Imakefile'
then
	echo shar: will not over-write existing file "'Imakefile'"
else
sed 's/^	X//' << \SHAR_EOF > 'Imakefile'
	XLOCAL_LIBRARIES = XawClientLibs
	X           INCS = xcal.h
	X           SRCS = xcal.c xcal_alarm.c xcal_edit.c xcal_help.c xcal_popup.c xcal_strip.c xcal_memo.c version.c
	X           OBJS = xcal.o xcal_alarm.o xcal_edit.o xcal_help.o xcal_popup.o xcal_strip.o xcal_memo.o version.o
	X OSMAJORVERSION = OSMajorVersion
	X OSMINORVERSION = OSMinorVersion
	X      DEFINES = -DOSMAJORVERSION=$(OSMAJORVERSION) -DOSMINORVERSION=$(OSMINORVERSION) -DVER_VEC
	X
	X
	XAllTarget(xcal)
	XNormalProgramTarget(xcal,$(OBJS),$(DEPLIBS),$(LOCAL_LIBRARIES), /**/)
	X
	XAllTarget(xcal_cal)
	XNormalProgramTarget(xcal_cal, xcal_cal.o,/**/,/**/,/**/);
	X
	XInstallProgram(xcal, $(BINDIR))
	XInstallManPage(xcal, $(MANDIR))
	XInstallProgram(xcal_cal, $(BINDIR))
	XInstallManPage(xcal_cal, $(MANDIR))
	XInstallAppDefaults(XCal)
	X
	XDependTarget()
SHAR_EOF
if test 784 -ne "`wc -c < 'Imakefile'`"
then
	echo shar: error transmitting "'Imakefile'" '(should have been 784 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'Makefile'" '(9218 characters)'
if test -f 'Makefile'
then
	echo shar: will not over-write existing file "'Makefile'"
else
sed 's/^	X//' << \SHAR_EOF > 'Makefile'
	X# Makefile generated by imake - do not edit!
	X# $XConsortium: imake.c,v 1.51 89/12/12 12:37:30 jim Exp $
	X#
	X# The cpp used on this machine replaces all newlines and multiple tabs and
	X# spaces in a macro expansion with a single space.  Imake tries to compensate
	X# for this, but is not always successful.
	X#
	X
	X###########################################################################
	X# Makefile generated from "Imake.tmpl" and <Imakefile>
	X# $XConsortium: Imake.tmpl,v 1.77 89/12/18 17:01:37 jim Exp $
	X#
	X# Platform-specific parameters may be set in the appropriate .cf
	X# configuration files.  Site-wide parameters may be set in the file
	X# site.def.  Full rebuilds are recommended if any parameters are changed.
	X#
	X# If your C preprocessor doesn't define any unique symbols, you'll need
	X# to set BOOTSTRAPCFLAGS when rebuilding imake (usually when doing
	X# "make Makefile", "make Makefiles", or "make World").
	X#
	X# If you absolutely can't get imake to work, you'll need to set the
	X# variables at the top of each Makefile as well as the dependencies at the
	X# bottom (makedepend will do this automatically).
	X#
	X
	X###########################################################################
	X# platform-specific configuration parameters - edit sun.cf to change
	X
	X# platform:  $XConsortium: sun.cf,v 1.38 89/12/23 16:10:10 jim Exp $
	X# operating system:  SunOS 4.1
	X
	X###########################################################################
	X# site-specific configuration parameters - edit site.def to change
	X
	X# site:  $XConsortium: site.def,v 1.21 89/12/06 11:46:50 jim Exp $
	X
	X            SHELL = /bin/sh
	X
	X              TOP = /s/X11/mit
	X      CURRENT_DIR = .
	X
	X               AR = ar cq
	X  BOOTSTRAPCFLAGS =
	X               CC = gcc
	X
	X         COMPRESS = compress
	X              CPP = /lib/cpp $(STD_CPP_DEFINES)
	X    PREPROCESSCMD = gcc -E $(STD_CPP_DEFINES)
	X          INSTALL = install
	X               LD = ld
	X             LINT = lint
	X      LINTLIBFLAG = -C
	X         LINTOPTS = -axz
	X               LN = ln -s
	X             MAKE = make
	X               MV = mv
	X               CP = cp
	X           RANLIB = ranlib
	X  RANLIBINSTFLAGS =
	X               RM = rm -f
	X     STD_INCLUDES =
	X  STD_CPP_DEFINES =
	X      STD_DEFINES =
	X EXTRA_LOAD_FLAGS =
	X  EXTRA_LIBRARIES =
	X             TAGS = ctags
	X
	X    SHAREDCODEDEF = -DSHAREDCODE
	X         SHLIBDEF = -DSUNSHLIB
	X
	X    PROTO_DEFINES =
	X
	X     INSTPGMFLAGS =
	X
	X     INSTBINFLAGS = -m 0755
	X     INSTUIDFLAGS = -m 4755
	X     INSTLIBFLAGS = -m 0664
	X     INSTINCFLAGS = -m 0444
	X     INSTMANFLAGS = -m 0444
	X     INSTDATFLAGS = -m 0444
	X    INSTKMEMFLAGS = -m 4755
	X
	X          DESTDIR =
	X
	X     TOP_INCLUDES = -I$(INCROOT)
	X
	X      CDEBUGFLAGS = -O
	X        CCOPTIONS =
	X      COMPATFLAGS = -DXAW_BC
	X
	X      ALLINCLUDES = $(STD_INCLUDES) $(TOP_INCLUDES) $(INCLUDES) $(EXTRA_INCLUDES)
	X       ALLDEFINES = $(ALLINCLUDES) $(STD_DEFINES) $(PROTO_DEFINES) $(DEFINES) $(COMPATFLAGS)
	X           CFLAGS = $(CDEBUGFLAGS) $(CCOPTIONS) $(ALLDEFINES)
	X        LINTFLAGS = $(LINTOPTS) -DLINT $(ALLDEFINES)
	X           LDLIBS = $(SYS_LIBRARIES) $(EXTRA_LIBRARIES)
	X        LDOPTIONS = $(CDEBUGFLAGS) $(CCOPTIONS)
	X   LDCOMBINEFLAGS = -X -r
	X
	X        MACROFILE = sun.cf
	X           RM_CMD = $(RM) *.CKP *.ln *.BAK *.bak *.o core errs ,* *~ *.a .emacs_* tags TAGS make.log MakeOut
	X
	X    IMAKE_DEFINES =
	X
	X         IRULESRC = $(CONFIGDIR)
	X        IMAKE_CMD = $(IMAKE) -DUseInstalled -I$(IRULESRC) $(IMAKE_DEFINES)
	X
	X     ICONFIGFILES = $(IRULESRC)/Imake.tmpl $(IRULESRC)/Imake.rules \
	X			$(IRULESRC)/Project.tmpl $(IRULESRC)/site.def \
	X			$(IRULESRC)/$(MACROFILE) $(EXTRA_ICONFIGFILES)
	X
	X###########################################################################
	X# X Window System Build Parameters
	X# $XConsortium: Project.tmpl,v 1.63 89/12/18 16:46:44 jim Exp $
	X
	X###########################################################################
	X# X Window System make variables; this need to be coordinated with rules
	X# $XConsortium: Project.tmpl,v 1.63 89/12/18 16:46:44 jim Exp $
	X
	X          PATHSEP = /
	X        USRLIBDIR = $(DESTDIR)/usr/local/lib
	X           BINDIR = $(DESTDIR)/usr/local/wbin/X11
	X          INCROOT = $(DESTDIR)/usr/local/include
	X     BUILDINCROOT = $(TOP)
	X      BUILDINCDIR = $(BUILDINCROOT)/X11
	X      BUILDINCTOP = ..
	X           INCDIR = $(INCROOT)/X11
	X           ADMDIR = $(DESTDIR)/usr/adm
	X           LIBDIR = $(USRLIBDIR)/X11
	X        CONFIGDIR = $(LIBDIR)/config
	X       LINTLIBDIR = $(USRLIBDIR)/lint
	X
	X          FONTDIR = $(LIBDIR)/fonts
	X         XINITDIR = $(LIBDIR)/xinit
	X           XDMDIR = $(LIBDIR)/xdm
	X           AWMDIR = $(LIBDIR)/awm
	X           TWMDIR = $(LIBDIR)/twm
	X           GWMDIR = $(LIBDIR)/gwm
	X          MANPATH = $(DESTDIR)/usr/man
	X    MANSOURCEPATH = $(MANPATH)/man
	X           MANDIR = $(MANSOURCEPATH)n
	X        LIBMANDIR = $(MANSOURCEPATH)3
	X      XAPPLOADDIR = $(LIBDIR)/app-defaults
	X
	X        SOXLIBREV = 4.2
	X          SOXTREV = 4.0
	X         SOXAWREV = 4.0
	X        SOOLDXREV = 4.0
	X         SOXMUREV = 4.0
	X        SOXEXTREV = 4.0
	X
	X       FONTCFLAGS = -t
	X
	X     INSTAPPFLAGS = $(INSTDATFLAGS)
	X
	X            IMAKE = imake
	X           DEPEND = makedepend
	X              RGB = rgb
	X            FONTC = bdftosnf
	X        MKFONTDIR = mkfontdir
	X        MKDIRHIER = /bin/sh $(BINDIR)/mkdirhier.sh
	X
	X        CONFIGSRC = $(TOP)/config
	X        CLIENTSRC = $(TOP)/clients
	X          DEMOSRC = $(TOP)/demos
	X           LIBSRC = $(TOP)/lib
	X          FONTSRC = $(TOP)/fonts
	X       INCLUDESRC = $(TOP)/X11
	X        SERVERSRC = $(TOP)/server
	X          UTILSRC = $(TOP)/util
	X        SCRIPTSRC = $(UTILSRC)/scripts
	X       EXAMPLESRC = $(TOP)/examples
	X       CONTRIBSRC = $(TOP)/../contrib
	X           DOCSRC = $(TOP)/doc
	X           RGBSRC = $(TOP)/rgb
	X        DEPENDSRC = $(UTILSRC)/makedepend
	X         IMAKESRC = $(CONFIGSRC)
	X         XAUTHSRC = $(LIBSRC)/Xau
	X          XLIBSRC = $(LIBSRC)/X
	X           XMUSRC = $(LIBSRC)/Xmu
	X       TOOLKITSRC = $(LIBSRC)/Xt
	X       AWIDGETSRC = $(LIBSRC)/Xaw
	X       OLDXLIBSRC = $(LIBSRC)/oldX
	X      XDMCPLIBSRC = $(LIBSRC)/Xdmcp
	X      BDFTOSNFSRC = $(FONTSRC)/bdftosnf
	X     MKFONTDIRSRC = $(FONTSRC)/mkfontdir
	X     EXTENSIONSRC = $(TOP)/extensions
	X
	X  DEPEXTENSIONLIB = $(USRLIBDIR)/libXext.a
	X     EXTENSIONLIB =  -lXext
	X
	X          DEPXLIB = $(DEPEXTENSIONLIB)
	X             XLIB = $(EXTENSIONLIB) -lX11
	X
	X      DEPXAUTHLIB = $(USRLIBDIR)/libXau.a
	X         XAUTHLIB =  -lXau
	X
	X        DEPXMULIB =
	X           XMULIB = -lXmu
	X
	X       DEPOLDXLIB =
	X          OLDXLIB = -loldX
	X
	X      DEPXTOOLLIB =
	X         XTOOLLIB = -lXt
	X
	X        DEPXAWLIB =
	X           XAWLIB = -lXaw
	X
	X LINTEXTENSIONLIB = $(USRLIBDIR)/llib-lXext.ln
	X         LINTXLIB = $(USRLIBDIR)/llib-lX11.ln
	X          LINTXMU = $(USRLIBDIR)/llib-lXmu.ln
	X        LINTXTOOL = $(USRLIBDIR)/llib-lXt.ln
	X          LINTXAW = $(USRLIBDIR)/llib-lXaw.ln
	X
	X          DEPLIBS = $(DEPXAWLIB) $(DEPXMULIB) $(DEPXTOOLLIB) $(DEPXLIB)
	X
	X         DEPLIBS1 = $(DEPLIBS)
	X         DEPLIBS2 = $(DEPLIBS)
	X         DEPLIBS3 = $(DEPLIBS)
	X
	X###########################################################################
	X# Imake rules for building libraries, programs, scripts, and data files
	X# rules:  $XConsortium: Imake.rules,v 1.67 89/12/18 17:14:15 jim Exp $
	X
	X###########################################################################
	X# start of Imakefile
	X
	XLOCAL_LIBRARIES = $(XAWLIB) $(XMULIB) $(XTOOLLIB) $(XLIB)
	X           INCS = xcal.h
	X           SRCS = xcal.c xcal_alarm.c xcal_edit.c xcal_help.c xcal_popup.c xcal_strip.c xcal_memo.c version.c
	X           OBJS = xcal.o xcal_alarm.o xcal_edit.o xcal_help.o xcal_popup.o xcal_strip.o xcal_memo.o version.o
	X OSMAJORVERSION = 4
	X OSMINORVERSION = 1
	X      DEFINES = -DOSMAJORVERSION=$(OSMAJORVERSION) -DOSMINORVERSION=$(OSMINORVERSION) -DVER_VEC
	X
	Xall:: xcal
	X
	Xxcal: $(OBJS) $(DEPLIBS)
	X	$(RM) $@
	X	$(CC) -o $@ $(OBJS) $(LDOPTIONS) $(LOCAL_LIBRARIES) $(LDLIBS)   $(EXTRA_LOAD_FLAGS)
	X
	Xclean::
	X	$(RM) xcal
	X
	Xall:: xcal_cal
	X
	Xxcal_cal:  xcal_cal.o
	X	$(RM) $@
	X	$(CC) -o $@  xcal_cal.o $(LDOPTIONS)  $(LDLIBS)  $(EXTRA_LOAD_FLAGS)
	X
	Xclean::
	X	$(RM) xcal_cal;
	X
	Xinstall:: xcal
	X	$(INSTALL) -c $(INSTPGMFLAGS)   xcal  $(BINDIR)
	X
	Xinstall.man:: xcal.man
	X	$(INSTALL) -c $(INSTMANFLAGS) xcal.man  $(MANDIR)/xcal.n
	X
	Xinstall:: xcal_cal
	X	$(INSTALL) -c $(INSTPGMFLAGS)   xcal_cal  $(BINDIR)
	X
	Xinstall.man:: xcal_cal.man
	X	$(INSTALL) -c $(INSTMANFLAGS) xcal_cal.man  $(MANDIR)/xcal_cal.n
	X
	Xinstall:: XCal.ad
	X	$(INSTALL) -c $(INSTAPPFLAGS) XCal.ad $(XAPPLOADDIR)/XCal
	X
	Xdepend::
	X	$(DEPEND) -s "# DO NOT DELETE" -- $(ALLDEFINES) -- $(SRCS)
	X
	X###########################################################################
	X# common rules for all Makefiles - do not edit
	X
	Xemptyrule::
	X
	Xclean::
	X	$(RM_CMD) \#*
	X
	XMakefile::
	X	-@if [ -f Makefile ]; then \
	X	echo "	$(RM) Makefile.bak; $(MV) Makefile Makefile.bak"; \
	X	$(RM) Makefile.bak; $(MV) Makefile Makefile.bak; \
	X	else exit 0; fi
	X	$(IMAKE_CMD) -DTOPDIR=$(TOP) -DCURDIR=$(CURRENT_DIR)
	X
	Xtags::
	X	$(TAGS) -w *.[ch]
	X	$(TAGS) -xw *.[ch] > TAGS
	X
	X###########################################################################
	X# empty rules for directories that do not have SUBDIRS - do not edit
	X
	Xinstall::
	X	@echo "install in $(CURRENT_DIR) done"
	X
	Xinstall.man::
	X	@echo "install.man in $(CURRENT_DIR) done"
	X
	XMakefiles::
	X
	Xincludes::
	X
	X###########################################################################
	X# dependencies generated by makedepend
	X
SHAR_EOF
if test 9218 -ne "`wc -c < 'Makefile'`"
then
	echo shar: error transmitting "'Makefile'" '(should have been 9218 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'XCal.ad'" '(1927 characters)'
if test -f 'XCal.ad'
then
	echo shar: will not over-write existing file "'XCal.ad'"
else
sed 's/^	X//' << \SHAR_EOF > 'XCal.ad'
	XXCal.MarkForeground: Black
	XXCal.MarkBackground: White
	XXCal.edit.geometry: 300x150
	XXCal.memo.geometry: 300x300
	XXCal.alarm.geometry: 300x100+0+150
	XXCal*help.geometry: 600x300
	XXCal.fontToday: lucidasanstypewriter-12
	XXCal*Font: lucidasanstypewriter-12
	XXCal*info.Font: lucidasans-10
	XXCal*alarmText*Font: 12x24
	XXCal*alarmText*scrollVertical: WhenNeeded
	XXCal*alarmText*wrap: word
	XXCal*display.scrollVertical: WhenNeeded
	XXCal*display.scrollHorizontal: WhenNeeded
	XXCal*display.cursor: dot
	XXCal*text.scrollVertical: WhenNeeded
	XXCal*text.scrollHorizontal: WhenNeeded
	XXCal*text.autoFill: True
	XXCal*helpText.scrollVertical: Always
	XXCal*helpText.scrollHorizontal: WhenNeeded
	XXCal*helpText.autoFill: True
	XXCal*back.Label: <
	XXCal*quit.Label: Quit
	XXCal*next.Label: >
	XXCal*help.Label: Help
	XXCal*newdate.Label: Enter mmm yyyy?
	XXCal*newdate.ok.Label: ok
	XXCal*newdate.cancel.Label: cancel
	XXCal*exit.Label: Really exit?
	XXCal*exit.yes.Label: yes
	XXCal*exit.no.Label: no
	XXCal*noedit.ok.Label: ok
	XXCal*edit.quit.Label: Quit
	XXCal*edit.save.Label: Save
	XXCal*edit.help.Label: Help
	XXCal*check.Label: Save file?
	XXCal*check.yes.Label: yes
	XXCal*check.no.Label: no
	XXCal*help*helpQuit.Label: quit
	XXCal*alarmQuit.Label: Unpin
	XXCal*alarmHold.Label: Stick
	XXCal*memoTitle.Label: Edit the memo file
	X!
	X! Colours from reed wade@cs.utk.edu
	X!
	X!XCal*background:        LightSteelBlue
	X!XCal*foreground:        SaddleBrown
	X!XCal.MarkForeground: Black
	X!XCal.MarkBackground: CornflowerBlue
	X!XCal.edit.background: CornflowerBlue
	X!XCal.edit.foreground: OliveGreen
	X!XCal*exit.background: MediumTurquoise
	X!XCal*exit.foreground: SlateGrey
	X!XCal*check.background:  lavender
	X!XCal*help*background: wheat
	X!XCal*help*foreground: blue
	X!XCal*newdate*background: plum
	X!XCal*newdate*foreground: red
	X!XCal*quit.background:   SteelBlue
	X!XCal*quit.background:   green
	X!XCal*back.background: yellow
	X!XCal*next.background: yellow
	X!XCal*no.background: DarkKhaki
	X!XCal*yes.background: PapayaWhip
SHAR_EOF
if test 1927 -ne "`wc -c < 'XCal.ad'`"
then
	echo shar: error transmitting "'XCal.ad'" '(should have been 1927 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'mouse.bm'" '(242 characters)'
if test -f 'mouse.bm'
then
	echo shar: will not over-write existing file "'mouse.bm'"
else
sed 's/^	X//' << \SHAR_EOF > 'mouse.bm'
	X#define mouse_width 16
	X#define mouse_height 13
	Xstatic char mouse_bits[] = {
	X   0xfe, 0x7f, 0xff, 0xff, 0x21, 0x84, 0xa1, 0xb5, 0xa1, 0xb5, 0xa1, 0xb5,
	X   0xa1, 0xb5, 0xa1, 0xb5, 0xa1, 0xb5, 0x21, 0x84, 0xff, 0xff, 0xff, 0xff,
	X   0xff, 0xff};
SHAR_EOF
if test 242 -ne "`wc -c < 'mouse.bm'`"
then
	echo shar: error transmitting "'mouse.bm'" '(should have been 242 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'mouseaway.bm'" '(254 characters)'
if test -f 'mouseaway.bm'
then
	echo shar: will not over-write existing file "'mouseaway.bm'"
else
sed 's/^	X//' << \SHAR_EOF > 'mouseaway.bm'
	X#define mouseaway_width 16
	X#define mouseaway_height 13
	Xstatic char mouseaway_bits[] = {
	X   0xfe, 0x7f, 0xff, 0xff, 0x21, 0x84, 0xad, 0xb5, 0xad, 0xb5, 0xad, 0xb5,
	X   0xad, 0xb5, 0xad, 0xb5, 0xad, 0xb5, 0x21, 0x84, 0xff, 0xff, 0xff, 0xff,
	X   0xff, 0xff};
SHAR_EOF
if test 254 -ne "`wc -c < 'mouseaway.bm'`"
then
	echo shar: error transmitting "'mouseaway.bm'" '(should have been 254 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'patchlevel.h'" '(21 characters)'
if test -f 'patchlevel.h'
then
	echo shar: will not over-write existing file "'patchlevel.h'"
else
sed 's/^	X//' << \SHAR_EOF > 'patchlevel.h'
	X#define PATCHLEVEL 0
SHAR_EOF
if test 21 -ne "`wc -c < 'patchlevel.h'`"
then
	echo shar: error transmitting "'patchlevel.h'" '(should have been 21 characters)'
fi
fi # end of overwriting check
if test ! -d 'pscal'
then
	echo shar: creating directory "'pscal'"
	mkdir 'pscal'
fi
echo shar: entering directory "'pscal'"
cd 'pscal'
echo shar: extracting "'Makefile'" '(190 characters)'
if test -f 'Makefile'
then
	echo shar: will not over-write existing file "'Makefile'"
else
sed 's/^	X//' << \SHAR_EOF > 'Makefile'
	Xall:	pscal.sh pscal.1
	X	
	X
	Xpscal.sh:
	X	get pscal.sh
	X
	Xpscal.1:
	X	get pscal.1
	X
	Xinstall: pscal.sh pscal.1
	X	install -c -m 755 pscal.sh /usr/local/bin/pscal
	X	install -c pscal.1 /usr/man/manl/pscal.l
SHAR_EOF
if test 190 -ne "`wc -c < 'Makefile'`"
then
	echo shar: error transmitting "'Makefile'" '(should have been 190 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'pscal.1'" '(3399 characters)'
if test -f 'pscal.1'
then
	echo shar: will not over-write existing file "'pscal.1'"
else
sed 's/^	X//' << \SHAR_EOF > 'pscal.1'
	X.TH PSCAL 1 "8/January/1990"
	X.SH NAME
	Xpscal
	X.SH SYNOPSIS:
	X.B pscal
	X[
	X.B \-Pprinter
	X] [
	X.B \-R
	X] [
	X.B \-r
	X] [
	X.B \-t
	X] [
	X.B other printer flags
	X] [ month [ year ] ]
	X.SH DESCRIPTION:
	X.I Pscal
	Xgenerates the Postscript showing a calendar for the specified month and year. 
	XThe year, if omitted, defaults
	Xto the current year. 
	XIf both month and year are omitted, the current month is printed.
	X.I Year
	Xcan be between 1753
	Xand 9999.
	XThe
	X.I month
	Xis a number between 1 and 12.
	XI can also be a three letter month abbreviation.
	X.LP
	XThe calendar can be loaded with information from the user.
	XThe information either comes in an `Event' file or can be
	Xderived from files under the user's Calendar directory should this exist.
	XThe search for this data is as follows, if any of these succeeds the data
	Xfor the calendar is taken from that source.
	X.IP 1)
	XThe shell variable EFILE may be set to the name of an Event file.
	X.IP 2)
	XAn event file called `Event' may exist in the current directory.
	X.IP 3)
	XThe file $HOME/.holiday may exist and contain a list of events.
	X.IP 4)
	XThe directory $HOME/Calendar
	Xmay exist containing XCal files.
	X.LP
	XAn event file should consist of lines of the form
	X.IP
	Xmonth:day:message string
	X.LP
	XMessages should be 20 characters or less, with no more than 6
	Xmessages per day.
	XNo spaces should appear from the beginning
	Xof a line until after the second colon.
	XMonth and day should be numbers in the obvious ranges.
	X.SH OPTIONS
	X.IP "\-P\fIprinter\fR" 1i
	XThe printer may be specified with the usual \-P\fIprinter\fR syntax.
	X.IP "\-r" 1i
	XThe calendar page is printed in ``landscape'' orientation (the default).
	X.IP "\-R" 1i
	XThe calendar page is printed in ``portrait'' orientation; this
	Xyields a slightly smaller image and may be more suitable for
	Xembedding into other documents.
	X.IP "\-t" 1i
	XCauses the PostScript to be sent to the standard output, rather
	Xthan to the printer.  This is useful if you wish to save the
	Xoutput in a file, or if you want to use options with the
	X.IR lpr (1)
	Xcommand.
	X.IP "\-F\fIfont\fR" 1i
	XSets the font family for the title text (the month and year).
	X.IP "\-f\fIfont\fR" 1i
	XSets the font family for the day-of-month numbers.
	X.PP
	XOther arguments starting with `\-' are passed through to
	X.IR lpr (1).
	X.PP
	XAny argument whose first character is '-' is passed on to lpr.
	XThe shell variables BANNER, LFOOT, CFOOT, and RFOOT become a
	Xtop centered banner, and left, centered, or right justified
	Xfooters respectively.  As in:
	X.IP
	XBANNER="Schedule 1" CFOOT=Preliminary pscal 4 90
	X.SH AUTHOR
	XPatrick Wood
	X.br
	XCopyright (C) 1987 by Pipeline Associates, Inc.
	X.br
	XPermission is granted to modify and distribute this free of charge.
	X.SH HISTORY
	XOriginal From: patwood@unirot.UUCP (Patrick Wood)
	X.br
	XShell stuff added 3/9/87 by King Ables
	X.br
	XMade pretty by tjt 1988
	X.br
	XHoliday and printer flag passing hacks added Dec 1988 
	Xby smann@june.cs.washington.edu 
	X.br
	XUsed the better looking version with 5 rows of days rather than 6
	Xhacked together with holiday and banner/footnotes added
	Xby Joe (No Relation) Wood, 12/89, jlw@lzga.ATT.COM
	X.SH BUGS
	X`Pscal' doesn't work for months before 1753 (weird stuff happened
	Xin September, 1752).
	X.PP
	XA better format for the dates of holidays would be nice.
	XAn escape to allow holiday messages to be raw PostScript would
	Xalso be nice.
	X.PP
	XThe holiday messages should be handled more intelligently (ie,
	Xthe messages should be clipped to the day).
	X
SHAR_EOF
if test 3399 -ne "`wc -c < 'pscal.1'`"
then
	echo shar: error transmitting "'pscal.1'" '(should have been 3399 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'pscal.sh'" '(13136 characters)'
if test -f 'pscal.sh'
then
	echo shar: will not over-write existing file "'pscal.sh'"
else
sed 's/^	X//' << \SHAR_EOF > 'pscal.sh'
	X#!/bin/sh
	X#+
	X#
	X# NAME:
	X#	pscal
	X#
	X# SYNOPSIS:
	X#	pscal [-Pprinter] [other printer flags] month year
	X#
	X# DESCRIPTION:
	X#	`Pscal' is a PostScript program to print calendars.
	X#
	X#	The file $HOME/.holiday is read and used to print short messages
	X#	on specified days.  The .holiday file should consist of lines of
	X#	the form 
	X#		month:day:message string
	X#	Messages should be 20 characters or less, with no more than 6
	X#	messages per day.  No spaces should appear from the beginning
	X#	of a line until after the second colon.
	X#	Month and day should be numbers in the obvious ranges.
	X#	12/89 - The holiday checking has been loosened up in that the
	X#	following takes place:
	X#		1. The Shell Variable EFILE is used preferentially
	X#		2. Then the file Events in the current directory is used
	X#		3. Finally the $HOME/.holiday file is used.
	X#	The whole process can be turned off by setting EFILE=/dev/null.
	X#
	X# OPTIONS:
	X#	Any argument whose first character is '-' is passed on to lpr.
	X#	The shell variables BANNER, LFOOT, CFOOT, and RFOOT become a
	X#	top centered banner, and left, centered, or right justified
	X#	footers respectively.  As in:
	X#
	X#		BANNER="Schedule 1" CFOOT=Preliminary pscal 4 90
	X#
	X# AUTHOR:
	X#	Patrick Wood
	X#	Copyright (C) 1987 by Pipeline Associates, Inc.
	X#	Permission is granted to modify and distribute this free of charge.
	X# 
	X# HISTORY:
	X#	@Original From: patwood@unirot.UUCP (Patrick Wood)
	X#	@Shell stuff added 3/9/87 by King Ables
	X#	@Made pretty by tjt 1988
	X#	@Holiday and printer flag passing hacks added Dec 1988 
	X#	@ by smann@june.cs.washington.edu 
	X#	@Used the better looking version with 5 rows of days rather than 6
	X#	@ hacked together with holiday and banner/footnotes added
	X#	@ by Joe (No Relation) Wood, 12/89, jlw@lzga.ATT.COM
	X#	@Fixed "-R" (didn't work at all; now it at least works on 8.5x11)
	X#	@Also fixed handling of unrecognized arguments
	X#	@ by Jeff Mogul, 1/90, mogul@decwrl.dec.com
	X#
	X# BUGS:
	X#	`Pscal' doesn't work for months before 1753 (weird stuff happened
	X#	in September, 1752).
	X#
	X#	A better format for the dates of holidays would be nice.
	X#	An escape to allow holiday messages to be raw PostScript would
	X#	also be nice.
	X#	The holiday messages should be handled more intelligently (ie,
	X#	the messages should be clipped to the day).
	X#
	X
	X# 
	X# PostScript program to print calendars.
	X# Doesn't deal well with September 1752 or before.
	X# 
	X
	XUSAGE="Usage: pscal [ -Rrt ] [ -F hfont ] [ -f font ] [ month [ year ] ]"
	X
	XTFONT=Times-Bold
	XDFONT=Helvetica-Bold
	XEFONT=Times-Roman
	X
	XCalendar=$HOME/Calendar
	X
	XROTATE=90
	XSCALE="1.0 1.0"
	X#	Was 50 -120 - changed to 71 -120 for A4 Use
	XTRANSLATE="71 -120"
	X
	XLPR="lpr"
	X
	Xwhile test $# != 0
	Xdo
	X    case $1 in
	X	-P) test $# -lt 2 && { echo "$USAGE" 1>&2; exit 1; }
	X	    eval ENVAR="$1$2"; shift 2;;
	X	-P*) eval ENVAR=$1; shift 1;;
	X	-F) test $# -lt 2 && { echo "$USAGE" 1>&2; exit 1; }
	X	    TFONT="$2"; shift 2;;
	X	-F*) TFONT=`echo $1 | sed -n 1s/-.//p`; shift 1;;
	X	-f) test $# -lt 2 && { echo "$USAGE" 1>&2; exit 1; }
	X	    DFONT="$2"; shift 2;;
	X	-f*) DFONT=`echo $1 | sed -n 1s/-.//p`; shift 1;;
	X	-t) LPR=cat; shift 1;;
	X	-r) ROTATE=90; shift 1;;
	X	-R) ROTATE=0; SCALE="0.75 0.75"; TRANSLATE="50 900"; shift 1;;
	X	--|-) break;;
	X	-*) eval ENVAR=\"$ENVAR $1\"; shift 1;;
	X	*) break
	X    esac
	Xdone
	X
	Xtest $# -gt 2 && { echo "$USAGE" 1>&2; exit 1; }
	X
	Xcase $# in
	X    0)	set `date`; YEAR=$6; MONTH=$2;;
	X    1)	MONTH=$1; set `date`; YEAR=$6;;
	X    2)	MONTH=$1 YEAR=$2;;
	Xesac
	X
	XMONTH=`case $MONTH in Jan|jan) echo 1;;Feb|feb) echo 2;;Mar|mar) echo 3;;Apr|apr) echo 4;;
	X	May|may) echo 5;;Jun|jun) echo 6;;Jul|jul) echo 7;;Aug|aug) echo 8;;
	X	Sep|sep) echo 9;;Oct|oct) echo 10;;Nov|nov) echo 11;;Dec|dec) echo 12;;
	X	1|2|3|4|5|6|7|8|9|10|11|12) echo $MONTH;;esac`
	X
	Xtest $YEAR -lt 100 && YEAR=`expr $YEAR + 1900`
	X
	Xif [ -n "$EFILE" -a -r "$EFILE" ]
	Xthen
	X	Files=$EFILE
	X	monthday=yes
	Xelif [ -r Events ]
	Xthen
	X	Files=Events
	X	monthday=yes
	Xelif [ -r $HOME/.holiday ]
	Xthen
	X	Files=$HOME/.holiday
	X	monthday=yes
	Xelif [ -d $Calendar ]
	Xthen
	X	cd $Calendar
	X	if [ -d xy$YEAR ]
	X	then
	X		cd xy$YEAR
	X	fi
	X	set 'dummy' 'Jan' 'Feb' 'Mar' 'Apr' 'May' 'Jun' 'Jul' 'Aug' 'Sep' 'Oct' 'Nov' 'Dec'
	X	shift $MONTH
	X	list=`echo xc*$1$YEAR`
	X	case "$list" in
	X	xc\*$1$YEAR)
	X			;;
	X	*)
	X		for file in $list
	X		do
	X			day=`expr $file : 'xc\([0-9]*\)'`
	X			(cat $file;echo) | sed '/^$/d
	X					s/^/./' | fmt -25 |
	X					 sed -n "7q
	X					s/^\.//
	X					s/^/$day ( /
	X					s/\$/ )/
	X					p"
	X		done > /tmp/pscal$$
	X		holidays=`cat /tmp/pscal$$`
	X		rm -f /tmp/pscal$$	
	X	esac
	Xfi
	X
	Xcase "$monthday" in
	Xyes)
	X	holidays=`cat $Files | grep \^$MONTH: | awk -F: '{printf("%s ( %s",$2,$3);\
	X		for(i = 4; i <= NF; i++) printf(":%s", $i);printf(")\n"); }'`
	Xesac
	X
	X
	X$LPR $ENVAR <<END-OF-CALENDAR
	X%!
	X% PostScript program to draw calendar
	X% Copyright (C) 1987 by Pipeline Associates, Inc.
	X% Permission is granted to modify and distribute this free of charge.
	X
	X% The number after /month should be set to a number from 1 to 12.
	X% The number after /year should be set to the year you want.
	X% You can change the title and date fonts, if you want.
	X% We figure out the rest.
	X% This program won't produce valid calendars before 1800 due to the switch
	X% from Julian to Gregorian calendars in September of 1752 wherever English
	X% was spoken.
	X
	X/month $MONTH def
	X/year $YEAR def
	X/titlefont /$TFONT def
	X/dayfont /$DFONT def
	X/eventfont /$EFONT def
	X/holidays [ $holidays ] def
	X/Bannerstring ($BANNER) def
	X/Lfootstring ($LFOOT) def
	X/Rfootstring ($RFOOT) def
	X/Cfootstring ($CFOOT) def
	X
	X% calendar names - change these if you don't speak english
	X% "August", "April" and "February" could stand to be kerned even if you do
	X
	X/month_names
	X[ (January) (February) (March) (April) (May) (June) (July)
	X(August) (September) (October) (November) (December) ]
	Xdef
	X
	X/day_names
	X[ (Sunday) (Monday) (Tuesday) (Wednesday) (Thursday) (Friday) (Saturday) ]
	Xdef
	X
	X% layout parameters - you can change these, but things may not look nice
	X
	X/daywidth 100 def
	X/dayheight 95 def
	X
	X/titlefontsize 48 def
	X/weekdayfontsize 10 def
	X/datefontsize 30 def
	X/footfontsize 20 def
	X
	X/topgridmarg 35 def
	X/leftmarg 35 def
	X/daytopmarg 10 def
	X/dayleftmarg 5 def
	X
	X% layout constants - don't change these, things probably won't work
	X
	X/rows 5 def
	X/subrows 6 def
	X
	X% calendar constants - change these if you want a French revolutionary calendar
	X
	X/days_week 7 def
	X
	X/days_month [ 31 28 31 30 31 30 31 31 30 31 30 31 ] def
	X
	X/isleap {				% is this a leap year?
	X	year 4 mod 0 eq			% multiple of 4
	X	year 100 mod 0 ne 		% not century
	X	year 1000 mod 0 eq or and	% unless it's a millenia
	X} def
	X
	X/ndays {				% number of days in this month
	X	days_month month 1 sub get
	X	month 2 eq			% February
	X	isleap and
	X	{
	X		1 add
	X	} if
	X} def
	X
	X/weekday {				% weekday (range 0-6) for integer date
	X	days_week mod
	X} def
	X
	X/startday {				% starting day-of-week for this month
	X	/off year 2000 sub def		% offset from start of "epoch"
	X	off
	X	off 4 idiv add			% number of leap years
	X	off 100 idiv sub		% number of centuries
	X	off 1000 idiv add		% number of millenia
	X	6 add weekday days_week add 	% offset from Jan 1 2000
	X	/off exch def
	X	1 1 month 1 sub {
	X		/idx exch def
	X		days_month idx 1 sub get
	X		idx 2 eq
	X		isleap and
	X		{
	X			1 add
	X		} if
	X		/off exch off add def
	X	} for
	X	off weekday			% 0--Sunday, 1--monday, etc.
	X} def
	X
	X/prtevent {		% event-string day prtevent
	X			%  print out an event
	X	/start startday def
	X	/day 2 1 roll def
	X	day start add 1 sub 7 mod daywidth mul
	X	day start add 1 sub 7 div truncate dayheight neg mul 
	X	-5 
	X	numevents day start add get -10 mul add
	X	numevents
	X	day start add 
	X	numevents day start add get 1 add
	X	put
	X	add moveto
	X	show
	X} def
	X
	X/drawevents {		% read in a file full of events; print
	X			%  the events for this month
	X	/numevents
	X	[0 0 0 0 0 0 0
	X	 0 0 0 0 0 0 0
	X	 0 0 0 0 0 0 0
	X	 0 0 0 0 0 0 0
	X	 0 0 0 0 0 0 0
	X	 0 0 0 0 0 0 0] def 
	X	 eventfont findfont 9 scalefont setfont
	X	 0 2 holidays length 2 sub {
	X		dup
	X		1 add holidays 2 1 roll get
	X		2 1 roll holidays 2 1 roll get
	X		prtevent
	X	} for
	X		
	X} def
	X
	X% ------------------------------------------------------------------------
	X
	X/prtnum { 3 string cvs show } def
	X
	X/center {				% center string in given width
	X	/width exch def
	X	/str exch def width str 
	X	stringwidth pop sub 2 div 0 rmoveto str show
	X} def
	X
	X/centernum { exch 3 string cvs exch center } def
	X
	X/drawgrid {				% draw calendar boxes
	X	titlefont findfont weekdayfontsize scalefont setfont
	X	currentpoint /y0 exch def /x0 exch def
	X	0 1 days_week 1 sub {
	X		submonth 0 eq
	X		{
	X			x0 y0 moveto
	X			dup dup daywidth mul 40 rmoveto
	X			day_names exch get
	X			daywidth center
	X		} if
	X		x0 y0 moveto
	X		daywidth mul topgridmarg rmoveto
	X		1.0 setlinewidth
	X		submonth 0 eq
	X		{
	X			/rowsused rows 1 sub def
	X		}
	X		{
	X			/rowsused rows def
	X		}
	X		ifelse
	X		0 1 rowsused {
	X			gsave
	X			daywidth 0 rlineto 
	X			0 dayheight neg rlineto
	X			daywidth neg 0 rlineto
	X			closepath stroke
	X			grestore
	X			0 dayheight neg rmoveto
	X		} for
	X	} for
	X} def
	X
	X/drawnums {				% place day numbers on calendar
	X	dayfont findfont datefontsize
	X	submonth 0 ne
	X	{
	X		2.5 mul
	X	} if scalefont setfont
	X	/start startday def
	X	/days ndays def
	X	start daywidth mul dayleftmarg add daytopmarg rmoveto
	X	submonth 0 ne
	X	{
	X		dayleftmarg neg dayheight -2 div rmoveto
	X	} if
	X	1 1 days {
	X		/day exch def
	X		gsave
	X		day start add weekday 0 eq
	X		{
	X			submonth 0 eq
	X			{
	X				.7 setgray
	X			} if
	X		} if
	X		day start add weekday 1 eq
	X		{
	X			submonth 0 eq
	X			{
	X				.7 setgray
	X			} if
	X		} if
	X		submonth 0 eq
	X		{
	X			isdouble
	X			{
	X				day prtdouble
	X			}
	X			{
	X				day prtnum
	X			} ifelse
	X		}
	X		{
	X			day daywidth centernum
	X		} ifelse
	X		grestore
	X		day start add weekday 0 eq
	X		{
	X			currentpoint exch pop dayheight sub 0 exch moveto
	X			submonth 0 eq
	X			{
	X				dayleftmarg 0 rmoveto
	X			} if
	X		}
	X		{
	X			daywidth 0 rmoveto
	X		} ifelse
	X	} for
	X} def
	X/isdouble {				% overlay today with next/last week?
	X	days start add rows days_week mul gt
	X	{
	X		day start add rows days_week mul gt
	X		{
	X			true true
	X		}
	X		{
	X			day start add rows 1 sub days_week mul gt
	X			day days_week add days le and
	X			{
	X				false true
	X			}
	X			{
	X				false
	X			} ifelse
	X		} ifelse
	X	}
	X	{
	X		false
	X	} ifelse
	X} def
	X
	X/prtdouble {
	X	gsave
	X	  dayfont findfont datefontsize 2 mul 3 div scalefont setfont
	X	  exch
	X	  {
	X		(23/) stringwidth pop dayheight rmoveto
	X		prtnum
	X	  }
	X	  {
	X		0 datefontsize 5 div rmoveto
	X		prtnum
	X		0 datefontsize -5 div rmoveto
	X		gsave
	X		  dayfont findfont datefontsize scalefont setfont
	X		  (/) show
	X		grestore
	X	  } ifelse
	X	grestore
	X} def
	X
	X/drawfill {				% place fill squares on calendar
	X	/start startday def
	X	/days ndays def
	X	currentpoint /y0 exch def /x0 exch def
	X	submonth 0 eq
	X	{
	X		usefirst
	X		{
	X			/fillstart 2 def
	X		}
	X		{
	X			/fillstart 0 def
	X		}
	X		ifelse
	X	}
	X	{
	X		/fillstart 0 def
	X	}
	X	ifelse
	X	fillstart daywidth mul topgridmarg rmoveto
	X	1.0 setlinewidth
	X	fillstart 1 start 1 sub {
	X		gsave
	X		.9 setgray
	X		daywidth 0 rlineto 
	X		0 dayheight neg rlineto
	X		daywidth neg 0 rlineto
	X		closepath fill
	X		grestore
	X		daywidth 0 rmoveto
	X	} for
	X	x0 y0 moveto
	X	submonth 0 ne
	X	{
	X		/lastday rows 1 add days_week mul def
	X		days_week 1 sub daywidth mul -440 rmoveto
	X	}
	X	{
	X		/lastday rows days_week mul 2 sub fillstart add def
	X		days_week 3 sub fillstart add daywidth mul
	X		-440 dayheight add rmoveto
	X	} ifelse
	X	lastday -1 ndays start 1 add add
	X	{
	X		/day exch def
	X		gsave
	X		.9 setgray
	X		daywidth 0 rlineto 
	X		0 dayheight neg rlineto
	X		daywidth neg 0 rlineto
	X		closepath fill
	X		grestore
	X		day weekday 1 eq
	X		{
	X			x0 y0 moveto
	X			days_week 1 sub daywidth mul -440 dayheight add rmoveto
	X		}
	X		{
	X			daywidth neg 0 rmoveto
	X		} ifelse
	X	} for
	X} def
	X
	X/usefirst {				% are last two boxes used by days?
	X	start ndays add rows days_week mul 3 sub gt
	X	start 2 ge and
	X	
	X} def
	X
	X/calendar
	X{
	X	titlefont findfont titlefontsize scalefont setfont
	X	0 60 moveto
	X	/month_name month_names month 1 sub get def
	X	month_name show
	X	/yearstring year 10 string cvs def
	X	daywidth days_week mul yearstring stringwidth pop sub 60 moveto
	X	yearstring show
	X
	X	eventflag {
	X		% Show a centered Banner if any at the Top
	X		daywidth days_week mul 2 div
	X		Bannerstring stringwidth pop 2 div sub
	X		60 moveto
	X		Bannerstring show
	X		% Show footnotes left-center-right
	X		eventfont findfont footfontsize scalefont setfont
	X		/bottomrow { dayheight rows mul 5 sub neg } def
	X		0 bottomrow moveto
	X		Lfootstring show
	X		daywidth days_week mul Rfootstring stringwidth pop sub
	X		bottomrow moveto
	X		Rfootstring show
	X		daywidth days_week mul Cfootstring stringwidth pop sub 2 div
	X		bottomrow moveto
	X		Cfootstring show
	X		
	X	} if
	X
	X	0 -5 moveto
	X	drawnums
	X
	X	0 -5 moveto
	X	drawfill
	X
	X	eventflag {
	X		0 0 moveto
	X		drawevents
	X	} if
	X
	X	0 -5 moveto
	X	drawgrid
	X} def
	X
	X/eventflag true def
	X
	X$SCALE scale
	X$ROTATE rotate
	X$TRANSLATE translate
	X/submonth 0 def
	Xcalendar
	X/eventflag false def
	Xmonth 1 sub 0 eq
	X{
	X	/lmonth 12 def
	X	/lyear year 1 sub def
	X}
	X{
	X	/lmonth month 1 sub def
	X	/lyear year def
	X} ifelse
	Xmonth 1 add 13 eq
	X{
	X	/nmonth 1 def
	X	/nyear year 1 add def
	X} 
	X{
	X	/nmonth month 1 add def
	X	/nyear year def
	X} ifelse
	Xusefirst
	X{
	X	0 30 translate
	X}
	X{
	X	days_week 2 sub daywidth mul -350 translate
	X}
	Xifelse
	X/submonth 1 def
	X/year lyear def
	X/month lmonth def
	Xgsave
	X.138 .138 scale
	X12 -120 translate
	Xcalendar
	Xgrestore
	X/submonth 1 def
	X/year nyear def
	X/month nmonth def
	Xdaywidth 0 translate
	Xgsave
	X.138 .138 scale
	X12 -120 translate
	Xcalendar
	Xgrestore
	X
	Xshowpage
	X
	XEND-OF-CALENDAR
	X
SHAR_EOF
if test 13136 -ne "`wc -c < 'pscal.sh'`"
then
	echo shar: error transmitting "'pscal.sh'" '(should have been 13136 characters)'
fi
fi # end of overwriting check
echo shar: done with directory "'pscal'"
cd ..
echo shar: extracting "'version.c'" '(848 characters)'
if test -f 'version.c'
then
	echo shar: will not over-write existing file "'version.c'"
else
sed 's/^	X//' << \SHAR_EOF > 'version.c'
	X#ifndef lint
	Xstatic char *sccsid = "@(#)version.c	3.2 (Hillside Systems) 12/18/90";
	X#endif  /* lint */
	X/*
	X *	Version control file
	X *	version.c	3.2	12/18/90
	X *	Automatically created on Tue Dec 18 21:15:55 GMT 1990
	X *	
	X *	Hand edit none of this if you want freeze to continue to work
	X */
	X#ifdef	VER_PROG
	X#define	PROGNAME	XCal
	X#endif
	X#ifdef	VER_VEC
	Xchar	version[] = "XCal Version 3.2, released Tue Dec 18 21:15:55 GMT 1990";
	X#endif
	X#ifdef	VER_DEF
	X#define	VERSION	"XCal Version 3.2, released Tue Dec 18 21:15:55 GMT 1990"
	X#endif
	X
	X/*	SCCS files
	X *
	X+1.7	Imakefile
	X+3.5	xcal_help.c
	X+1.4	xcal_cal.c
	X+1.12	xcal.man
	X+1.5	xcal_memo.c
	X+1.10	XCal.ad
	X+1.10	xcal_alarm.c
	X+3.9	xcal_edit.c
	X+1.4	README
	X+2.1	patchlevel.h
	X+3.6	xcal_strip.c
	X+1.2	xcal_cal.man
	X+1.8	Makefile
	X+3.4	xcal_popup.c
	X+3.13	xcal.c
	X+3.8	xcal.h
	X+2.2	CHANGES
	X+1.1	mouse.bm
	X+1.1	mouseaway.bm
	X *
	X */
SHAR_EOF
if test 848 -ne "`wc -c < 'version.c'`"
then
	echo shar: error transmitting "'version.c'" '(should have been 848 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'xcal.h'" '(5058 characters)'
if test -f 'xcal.h'
then
	echo shar: will not over-write existing file "'xcal.h'"
else
sed 's/^	X//' << \SHAR_EOF > 'xcal.h'
	X/*
	X *	xcal.h	3.8	12/12/90
	X *
	X *	Header file for the xcal program
	X */
	X
	X/*
	X *	On 32 bit machines we can pack the date into one word
	X *	if not we have to use two callbacks
	X *	so undef if not true
	X *	and fiddle with the definitions below
	X */
	X#define	LONG_IS_32_BITS
	X
	X/* pack year and month into Cardinals */
	X#ifdef LONG_IS_32_BITS
	X#define	DatePack(d, m, y)	((((d)&0x1f)<<16) | (((m)&0xf)<<12) | ((y)&0xfff))
	X#define YrUnpack(v)	((v)&0xfff)
	X#define MoUnpack(v)	(((v)>>12)&0xf)
	X#define DyUnpack(v)	(((v)>>16)&0x1f)
	X#else  LONG_IS_32_BITS
	X#define	DatePack(m, y)	((((m)&0xf)<<12) | ((y)&0xfff))
	X#define YrUnpack(v)	((v)&0xfff)
	X#define MoUnpack(v)	(((v)>>12)&0xf)
	X#endif  LONG_IS_32_BITS
	X
	X/*
	X *	Foreground/Background colours
	X */
	Xtypedef struct
	X{	Pixel	bg;
	X	Pixel	fg;
	X} Colour;
	X
	X/*
	X *	resources used by xcal.c
	X */
	Xstruct resources
	X{	Boolean	debug;		/* Debug switch - currently used to fast fwd */
	X				/* the date */
	X	Boolean	alarmScan;	/* Debug switch for alarm system */
	X	Boolean	reverseVideo;	/* Display in Reverse video */
	X	Boolean	useWmTitle;	/* When displaying strips do not include a */
	X				/* month - year value */
	X	Boolean	markToday;	/* Mark today with today's colours */
	X	Boolean	calCompat;	/* True if handle files like xcalendar */
	X	Boolean giveHelp;	/* True if help is needed (default) */
	X	Boolean initialCalendar;/* Pop up Calendar on startup if True */
	X	Boolean initialEdit;	/* Pop up today's Edit on startup if True */
	X	String	mon[12];	/* Long month names */
	X	String	smon[12];	/* Short month names */
	X	String	day[7];		/* day names */
	X	String	opfmt;		/* format for main box */
	X	String	order;		/* Orders are dmy/ymd/mdy/ydm */
	X	int	val_order;	/* The selected order */
	X	Colour	marked;		/* Marked entry colour */
	X	Colour	today;		/* What to mark today with */
	X	XFontStruct *fontToday; /* We can also do Today in a different font */
	X	String	directory;	/* Directory under home where Calendar files */
	X				/* can be found */
	X	int	textbufsz;	/* Text buffer size for editing */
	X	Dimension minstripwidth; /* Minimum strip width */
	X	Boolean	alarms;		/* false - no alarms, true - alarms */
	X	XtIntervalId interval_id;/* store XtAddTimeOut value */
	X	int	update;		/* interval between peeks (60 secs) */
	X	int	volume;		/* how loud to beep the alarm 0-100 */
	X	int	nbeeps;		/* how many beeps for an alarm ? */
	X	long	last_size;	/* save the last time size */
	X	long	last_time;	/* save the last time file accessed */
	X	int	autoquit;	/* Automatically delete message boxes */
	X	String	countdown;	/* Comma separated countdown string for alarms */
	X	String	cmd;		/* command to execute for every alarm */
	X	String	alarmleft;	/* string containing a message - %d mins left */
	X	String	alarmnow;	/* string containing a message - Now! */
	X	Boolean	useMemo;	/* true use top-level memo button, false - don't */
	X	Boolean memoLeft;	/* True if on left of date, false otherwise */
	X	String	memoFile;	/* name of the file where the memo data is stored */
	X	int	maxDisplayLines;/* maximum number of lines that we want to */
	X				/* allow the top half of a memo window to */
	X				/* stretch to */
	X};
	X
	Xextern	struct resources	appResources;
	X
	X/*
	X *	Order coding inserted into val_order
	X */
	X#define	O_DMY	0		/* default */
	X#define O_YMD	1		/* Year/Month/Day */
	X#define O_MDY	2		/* Month/Day/Year */
	X#define O_YDM	3		/* Year/Day/Month */
	X
	X/*
	X *	Date structure
	X */
	Xtypedef struct
	X{	Cardinal	day;
	X	Cardinal	month;
	X	Cardinal	year;
	X} Date;
	X
	X/*
	X *	A month entry
	X */
	Xtypedef struct me
	X{
	X	Cardinal	me_year;	/* map year */
	X	Cardinal	me_month;	/* which month */
	X	String		me_have[32];	/* if a file present for the day */
	X					/* then will have a non-zero entry */
	X} MonthEntry;
	X
	X/*
	X *	An instance of the strip
	X */
	Xtypedef	struct	instance
	X{	struct	instance *i_next;	/* next object */
	X	Widget	i_w;			/* the widget top level */
	X	Widget	i_day_label[32];	/* the handle to the label on each day */
	X					/* so we can change dates at night */
	X	Widget	i_day_info[32];		/* The info field for this date - so */
	X					/* we can sensitise/desensitise on editing */
	X	Colour	i_col;			/* what the fg/bg colours used to be */
	X	XFontStruct	*i_font;	/* what the font was */
	X} Instance;
	X
	XInstance *RegisterMonth();
	XInstance *FindInstanceList();
	X
	X/*
	X *	Alarm structure
	X *	one of these exists for each event in the timeout queue
	X *	the list is sorted in event order
	X */
	Xtypedef struct _alarm
	X{	struct _alarm *next;	/* pointer to next alarm */
	X	String	alarm;		/* alarm string */
	X	String	what;		/* what is message */
	X	int	alarm_mm;	/* hour*60 + min */
	X	int	alarm_state;	/* what time left to `real' timeout */
	X	Boolean isAction;	/* more than alarm */
	X} Alarm;
	X
	X/*
	X *	We occasionally need these
	X */
	Xextern	Widget	toplevel;
	Xextern	Date	today;
	X
	X/*
	X *	Global routines
	X */
	Xvoid	Leave();
	Xvoid	SetDate();
	Xvoid	AskLeave();
	Xvoid	DialogPopup();
	Xvoid	SetDate();
	Xvoid	TextCal();
	Xvoid	DoCalendar();
	Xvoid	DoMemo();
	Xvoid	MemoPoll();
	Xvoid	NewMonthStrip();
	Xvoid	InitMonthEntries();
	Xvoid	ChangeHighlight();
	Xvoid	NoEditIsPossible();
	Xvoid	StartEditing();
	XMonthEntry *GetMonthEntry();
	Xvoid	AlarmFilePoll();
	XString	ReadCalendarFile();
	Xvoid	UpdateMemo();
	Xvoid	PlaceStr();
SHAR_EOF
if test 5058 -ne "`wc -c < 'xcal.h'`"
then
	echo shar: error transmitting "'xcal.h'" '(should have been 5058 characters)'
fi
fi # end of overwriting check
if test ! -d 'scott_brim'
then
	echo shar: creating directory "'scott_brim'"
	mkdir 'scott_brim'
fi
echo shar: entering directory "'scott_brim'"
cd 'scott_brim'
echo shar: extracting "'README'" '(64 characters)'
if test -f 'README'
then
	echo shar: will not over-write existing file "'README'"
else
sed 's/^	X//' << \SHAR_EOF > 'README'
	XThis code sent in by Scott Brim
	X	<swb@chumley.tn.cornell.edu>
	X
	X
SHAR_EOF
if test 64 -ne "`wc -c < 'README'`"
then
	echo shar: error transmitting "'README'" '(should have been 64 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'xcshow.c'" '(7326 characters)'
if test -f 'xcshow.c'
then
	echo shar: will not over-write existing file "'xcshow.c'"
else
sed 's/^	X//' << \SHAR_EOF > 'xcshow.c'
	X/*
	X * Announce xcal appointment entries.  Typical use is to announce a few 
	X * days' worth.  Also possible to dump every entry in "calendar" format.
	X *
	X *	Options: <date> - date to start at - mm/dd[/yy[yy]]
	X *		 -d <RootDirectory> - of diary (default ~/Calendar)
	X *		 -n <n> - where <n> is number of days to display
	X *		 -c	- dump everything in "calendar" format;
	X *				 ignores <date> and -n.
	X */
	X
	X
	X#include <stdio.h>
	X#include <time.h>
	X#include <utmp.h>
	X#include <pwd.h>
	X#include <dirent.h>
	X#include <errno.h>
	X#include <sys/types.h>
	X#include <sys/stat.h>
	X
	X#define FALSE 0
	X#define TRUE  1
	X
	Xvoid usage();
	X
	Xstruct tm *tm;			/* hold times	*/
	Xchar rootdir[256];		/* build directory name here	*/
	XFILE *fd;			/* read file descriptor	*/
	Xchar filename[256];		/* to build filename in	*/
	Xchar *months[] = {
	X    "Jan", "Feb", "Mar", "Apr",
	X    "May", "Jun", "Jul", "Aug",
	X    "Sep", "Oct", "Nov", "Dec"
	X    };
	Xint days_in_months[] = { 
	X    31, 28, 31, 30,
	X    31, 30, 31, 31,
	X    30, 31, 30, 31,
	X};
	X
	X
	Xmain(argc, argv)
	Xunsigned int argc;
	Xchar **argv;
	X{
	X    int ndays;			/* number of days to announce	*/
	X    char c, *s;			/* reading and writing	*/
	X    char *dirname;		/* root directory name	*/
	X    struct passwd *pwd;
	X    long ti;
	X    int cdump = 0;		/* dump into calendar?	*/
	X    int i;
	X
	X
	X    /* defaults	*/
	X    ti = time(0);		/* default to today	*/
	X    tm = localtime(&ti);
	X    tm->tm_year += 1900;
	X
	X    ndays = 1;			/* and to printing just one day	*/
	X
	X    if ((pwd = getpwuid(getuid())) == NULL) {
	X	fprintf(stderr, "Who are you?\n");
	X	exit(42);
	X    };					     
	X    strcpy(rootdir, pwd->pw_dir);	/* default to home directory	*/
	X    endpwent();
	X    strcat(rootdir, "/Calendar");
	X    dirname = rootdir;
	X
	X
	X    /* check options	*/
	X    argc--, argv++;
	X    while (argc > 0) {
	X
	X	if (isdigit(argv[0][0])) {
	X	    if ((sscanf(argv[0], "%d/%d/%d", &tm->tm_mon,
	X			&tm->tm_mday, &tm->tm_year)) < 2) { 
	X		usage();
	X		exit(1);
	X	    }
	X	    else {
	X		tm->tm_mon--;	/* internal month # is 0-11	*/
	X		if (valid_date() != 0) {	 /* user-supplied date	*/
	X						 /* must make sense	*/
	X		    usage();
	X		    exit(2);
	X		}
	X	    }
	X
	X	}			/* end if first character is digit	*/
	X	else if (argv[0][0] == '-') {
	X	    switch(argv[0][1]) {
	X	    case 'd':		/* dirname	*/
	X		if (--argc <=0) {
	X		    usage();	/* nothing there	*/
	X		    exit(3);
	X		}
	X		dirname = (++argv)[0];
	X		break;
	X	    case 'n':		/* number of days	*/
	X		if (--argc <= 0) {
	X		    usage();	/* nothing there	*/
	X		    exit(4);
	X		}
	X		if ((sscanf((++argv)[0], "%d", &ndays)) != 1) {
	X		    usage();	/* nothing there	*/
	X		    exit(5);
	X		}
	X		break;
	X	    case 'c':
	X		cdump = 1;
	X		break;
	X	    default:
	X		usage();
	X		exit(6);
	X	    }
	X	}
	X	argc--, argv++;
	X    }
	X
	X    if (cdump) {		/* a dump?	*/
	X	return(dumpit(dirname));	/* go do so	*/
	X    }
	X
	X    while (ndays--) {	/* otherwise loop, for each day requested	*/
	X
	X	valid_date();	/* Make current m, d, y make sense	*/
	X
	X	/* build filename -- e.g. "/mu/swb/Calendar/xy1990/xc1Oct1990"	*/
	X	sprintf(filename, "%s/xy%04d/xc%d%s%d",
	X		dirname, tm->tm_year, tm->tm_mday,
	X		months[tm->tm_mon], tm->tm_year); 
	X
	X	/* Read from file, if it exists, and print.	*/
	X	if (fd = fopen(filename, "r")) {
	X	    fprintf(stdout, "%02d %s %d:\n------------\n",
	X		    tm->tm_mday, months[tm->tm_mon], tm->tm_year);
	X	    while ((c = getc(fd)) != EOF) putc(c, stdout);
	X	    fclose(fd);
	X	    fprintf(stdout, "\n");
	X	}
	X
	X	tm->tm_mday++;		/* do the next day	*/
	X    }
	X    exit(0);
	X}
	X
	X/*
	X * valid_date takes the (external) date and makes it reasonable.  First
	X * it increments the month until the day given is within a month (as
	X * opposed to, say, 3/47/91).  Then it increments the year until the
	X * month is valid.  Right now it doesn't know anything about leap
	X * years. 
	X */
	X
	Xvalid_date()
	X{
	X    int rc;
	X
	X    rc = 0;
	X    days_in_months[1] = 28;	/* default */
	X    if (leap_year(tm->tm_year)) days_in_months[1] = 29;
	X
	X    while (tm->tm_mday > days_in_months[tm->tm_mon]) {
	X	tm->tm_mday -= days_in_months[tm->tm_mon];
	X	tm->tm_mon++;
	X	rc++;
	X    }
	X
	X    while (tm->tm_mon >= 12) {	/* month should be 0-11	*/
	X	tm->tm_mon -= 12;
	X	tm->tm_year++;
	X	rc++;
	X    }
	X
	X    return(rc);
	X}
	X
	X/*
	X * leap year?
	X */
	Xint leap_year(year)
	Xint year;
	X{
	X
	X    if (year%4000 == 0) return FALSE;
	X    else if (year%400 == 0) return TRUE;
	X    else if (year%100 == 0) return FALSE;
	X    else if (year%4 == 0) return TRUE;
	X    else return FALSE;
	X
	X}
	X
	X
	X
	X/*
	X * explain usage
	X */
	Xvoid
	Xusage()
	X{
	X    fprintf(stderr, "Usage: [date] [-d directory] [-n ndays] [-c]\n");
	X    fprintf(stderr, "         -c dumps all entries in calendar(1) format.\n");
	X}
	X
	X/*
	X * dumpit dumps every single xcal entry pre-ambled with monthname,
	X * day, and year.
	X */
	Xdumpit(dirname)
	X    char *dirname;
	X{
	X    DIR	*Cdirp, *ydirp;
	X    struct dirent	*Centp, *yentp;
	X    struct stat	statbuf;
	X    char	*Cpathend, *ypathend;	/* loc for fname in filepath	*/
	X    char	*year;		/* ascii year			*/
	X    char	prebuf[14];	/* "calendar" preamble space	*/
	X    char	inbuf[1024];
	X    int i;
	X
	X    if ((Cdirp = opendir(dirname)) == NULL) {	/* top xcal dir	*/	
	X	perror(dirname);
	X	return(errno);
	X    }
	X
	X    strcpy(filename, dirname);	/* initialize file path	*/
	X    strcat(filename, "/");
	X    Cpathend = filename + strlen(filename);	/* put year dir here	*/
	X    
	X
	X    /* for each year directory	*/
	X    while ((Centp = readdir(Cdirp)) != NULL) {	/* foreach year dir	*/
	X	
	X	if (Centp->d_name[0] == '.') continue;	/* no ., ..	*/	
	X
	X	/* check each year directory	*/
	X	strcpy(Cpathend, Centp->d_name);	/* build filename	*/
	X	if ((i = stat(filename, &statbuf)) != 0) {
	X	    perror(filename);
	X	    return(errno);
	X	}
	X	if (!S_ISDIR(statbuf.st_mode)) {
	X/*	    fprintf(stderr, "%s not a directory, ignoring ... \n",	*/
	X/*		    filename);						*/
	X	    continue;
	X	}
	X
	X	if ((ydirp = opendir(filename)) == NULL) {
	X	    perror(filename);
	X	    return(errno);
	X	}
	X	strcat(filename, "/");	/* path to open data files		*/
	X	year = Centp->d_name + 2;	/* use year in preamble		*/
	X	ypathend = filename + strlen(filename);	/* where to put fnames	*/
	X
	X
	X	/* for each day file in year dir	*/
	X	while ((yentp = readdir(ydirp)) != NULL) {
	X	
	X	    if (yentp->d_name[0] == '.') continue;
	X	    strcpy(ypathend, yentp->d_name);
	X	    if ((i = stat(filename, &statbuf)) != 0) {
	X		perror(filename);
	X		return(errno);
	X	    }
	X	    if (!S_ISREG(statbuf.st_mode)) {
	X/*		fprintf(stderr,						*/
	X/*			"%s not a regular file, ignoring ... \n",	*/
	X/*		       filename);					*/
	X		continue;
	X	    }
	X
	X	    /* build what to dump in front of info	*/
	X	    sscanf( &(yentp->d_name[2]), "%d%3c", &i, prebuf);
	X	    *(prebuf+3) = '.'; sprintf(prebuf+4, " %02d ", i);
	X	    strncpy(prebuf+8, year, 4);
	X	    *(prebuf+12) = '\0';
	X
	X	    /* open file and put each line in stdout, prepended	*/
	X	    /* with the contents of prebuf and a tab.		*/
	X	    
	X	    if (!(fd = fopen(filename, "r"))) {
	X		fprintf(stderr,
	X			"Error %d opening %s, ignoring ... \n", errno,
	X		       filename);
	X		continue;	/* the foreach file loop	*/
	X	    }
	X	    
	X	    while (fgets(inbuf, sizeof(inbuf), fd)) {
	X		printf("%s\t%s", prebuf, inbuf);
	X		if (*(inbuf + strlen(inbuf) - 1) != '\n')
	X		    printf("\n");
	X	    }
	X	    fclose(fd);
	X
	X	}			/* end for each day file	*/
	X	
	X	if ((closedir(ydirp)) != 0) {
	X	    *(ypathend-1) = '\0';	/* reinit to just dirname	*/
	X	    perror(filename);
	X	}
	X    }				/* end for each year	*/
	X
	X    if ((closedir(Cdirp)) != 0) {
	X	perror(dirname);
	X	return(errno);
	X    }
	X
	X    return(0);
	X}
SHAR_EOF
if test 7326 -ne "`wc -c < 'xcshow.c'`"
then
	echo shar: error transmitting "'xcshow.c'" '(should have been 7326 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'vixc.csh'" '(687 characters)'
if test -f 'vixc.csh'
then
	echo shar: will not over-write existing file "'vixc.csh'"
else
sed 's/^	X//' << \SHAR_EOF > 'vixc.csh'
	X#!/bin/csh
	X#
	X# edit with vi an xcal daily diary file, with date defaulting to today.
	X# From: Scott Brim <swb@chumley.tn.cornell.edu>
	X
	X# constants
	Xset months = \
	X{"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"}
	X
	X# default to today
	Xset thedate = `date +%m/%d/%y`
	Xif ($1 != "") set thedate = $1
	X
	Xset month =	`echo $thedate | cut -d/ -f1`
	Xset monthname = $months[$month]
	Xset day =	`echo $thedate | cut -d/ -f2`
	Xset year =	`echo $thedate | cut -d/ -f3`
	Xif ( $year < 100 ) @ year = $year + 1900
	X
	X# build filename
	Xset filename = "~/Calendar/xy"${year}"/xc"${day}${monthname}${year}
	X
	Xif ($?VISUAL) then
	X	$VISUAL $filename
	Xelse
	X	/usr/ucb/vi $filename
	Xendif
	X
	Xexit $status
SHAR_EOF
if test 687 -ne "`wc -c < 'vixc.csh'`"
then
	echo shar: error transmitting "'vixc.csh'" '(should have been 687 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'makefile'" '(242 characters)'
if test -f 'makefile'
then
	echo shar: will not over-write existing file "'makefile'"
else
sed 's/^	X//' << \SHAR_EOF > 'makefile'
	X#
	X#	Rough makefile
	X#
	XCC = gcc
	XCFLAGS = -g -O
	X
	Xxcshow:	xcshow.c
	X	$(CC) $(CFLAGS) -o xcshow xcshow.c
	X
	Xinstall:	xcshow
	X	install -s -m 755 xcshow /usr/local/bin
	X	install -c -m 755 vixc.sh /usr/local/bin/vixc
	X
	Xclean:
	X	-rm -f *.o xcshow errs core
	X
SHAR_EOF
if test 242 -ne "`wc -c < 'makefile'`"
then
	echo shar: error transmitting "'makefile'" '(should have been 242 characters)'
fi
fi # end of overwriting check
echo shar: done with directory "'scott_brim'"
cd ..
#	End of shell archive
exit 0


--
dan
----------------------------------------------------
O'Reilly && Associates   argv@sun.com / argv@ora.com
Opinions expressed reflect those of the author only.