cal-4.0/ 0042755 0000764 0000764 00000000000 07416652456 012273 5 ustar cbagwell cbagwell cal-4.0/cal.html 0100644 0000764 0000764 00000032543 07416503266 013714 0 ustar cbagwell cbagwell
CAL
CAL - display a calendar
(substitute unix "cal" command)
by Alex Matulich,
Unicorn Research Corporation
Version 4.0
Contents:
- cal - displays a calendar
SYNOPSIS
-
- cal [options] [[num_month] year]
-
- cal [options] [word_month] [year]
By default, cal will display a calendar for the current month
with the current day marked. By specifing certain arguments, cal
will display a calendar for a whole year or a specified month and
year.
The transition from the Julian to Gregorian calendar is assumed
to have occured in 1752 on the 3rd of September. Ten days following
that date were eliminated by the reformation, so the calendar for
that month is a bit unusual.
If displaying a calendar in the single-month format, cal will
look for a date file. If found, cal will read the file, looking for
special date descriptions for that month which will be displayed to
the right of the calendar. By default, up to 24 appointments may be
displayed per month. If the current date happens to fall on one of
these special dates, it will be flagged by an asterisk. If there
is room, appointments for the next month may also be displayed with
some limitations (currently, special dates such as the 3rd Thursday
of will not be calculated for next month).
cal can also optionally use colors when displaying the calendar.
It will not display colors any time the calendar is not directly
displaying on the console. This is generally the desired behavior
when your redirecting cal's output to another program or a file.
A verbally-specified month may be entered without specifying a year
in the argument list; however, a single numerical argument will be
interpreted as a year. Only the first 3 characters of the month name are
significant for a verbally-specified month. NOTE: The command
"cal 10" refers to 10 AD, not October, and
not 1910.
The available options are:
- --3[months]
- Display previous/current/next month together. This
option will be ignored when displaying a full year.
- --a[ppts]
- Maximum number of appointments to display. Minimum
is 8, maximum is 50, default is 24.
- --col[or-file]=filename
- Read color definitions from `filename' (default
color filename depends on operating system).
- --con[tinue]=n
- Display the next n successive months starting with
the month specified.
- --d[ata-file]=filename
- Read appointments from `filename' (default appointment data
filename depends on operating system). You may use -d up to 8 times
in a commandline to specify multiple data file names.
- --e[urope]
- Use European format (first weekday is Monday).
- --f[uture]
- If current month is displayed, then show only future
appointments from the date file, not appointments that are past.
This allows room for other descriptions with future dates to be
displayed. As time progresses through the month, old descriptions
are discarded and newer ones are used. The --future switch affects
only the display for the current month, and not other months.
- --j[ulian]
- Display Julian dates (days one-based, numbered from January 1.
- --m[onday]
- Display Monday as the first day of the week (same as --europe)
- --noc[olor]
- Inhibit the use of colors.
- --nod[ata]
- Do not try to read any appointment data file.
- --p[ause]
- Pause before exiting and prompt for a keystroke.
- --th[ismonth]
- Disable display of next month appointments; show only current month's.
- --to[day]
- Show only today's appointments.
- --u[se-color]
- Allow the use of colors.
- --y[ear]
- Display a calendar for the current year.
There is an optional environment variable that can be used by cal
if found. If CALOPT is set then cal will read it and use any valid
command line options found. This allows any commonly used switches
to be set in your environment and always used (e.g. --europe). Cal
will produce its usage screen when run if any invalid options are
set in this variable.
- cal -f -d=my_dates
- display the current month and future appointments defined in file
'my_dates'
- cal 1996
- display the entire year of 1996
- cal 9 1752
- display the month of September 1752
- cal sep 1752
- same as above
- cal January
- display January of the current year
- cal help
- help message displayed for unrecognized arguments
cal will search for a date file called cal.dat in the directory
it was executed from. If not found it will search in the users
$HOME directory for a file called .cal.dat. If still not found, it
will look for a global cal.dat in a system wide directory. To find
out where this location is you can run cal --help which will display
the location.
The special date descriptions specified in the date file are
single lines, formatted as follows:
YYYY MM DD NW xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
where
- YYYY is the year,
- MM is the month (01 - 12),
- DD is the day (00 if the NW field is used),
- NW is the weekday-of-month code (00 if the DD field is used)
- xxxx is the description; it will be truncated as necessary to fit
The data MUST occupy the character fields as shown. If YYYY is
specified as -999, the month and day are assumed to be annual events
such as holidays, and the description will be displayed for any
year. If MM is specified as -9, the day is assumed to be a monthly
event for the specified year. In the weekday-of-month code NW, N
signifies on which weekday W the special date occurs. For example,
31 indicates the third sunday. Values of W range from 1 to 7, for
Sunday to Saturday, respectively. A value of 9 for N indicates
"last" as in 95 for "last thursday."
If ALL of the fields contain a positive number and the year is
at least 1970, then the description is assumed to be periodic,
starting at the given date, with the period in days specified in NW
(e.g. 1995 01 06 14 will display the description every 2nd Friday
using 6 January 1995 as the base date). The base date does not get
displayed.
You can display birthdays and anniversaries by putting the year
of birth (or other special event) inside brackets or braces, in
the description. This number is converted to the number of years
since the year you indicate and the brackets or braces are removed
from the output. If braces {} are used the number will have an
ordinal suffix, as in 21st, 32nd, 43rd, 54th, etc. If the number
in brackets or braces is greater than the current year, the number
will be displayed unchanged. Example: "Alex's {1961} birthday" will
display as "Alex's 34th birthday" (if the current year is 1995). If
you need to include brackets or braces in your output then you can
escape them by prefixing it with a '\'. Example: "Alex's \{1961\}
birthday" will be displayed as "Alex's {1961} birthday".
NOTE: If cal is invoked with the --europe or --monday switch,
then the W values 1-7 denote Monday(1) to Sunday(7) rather than
Sunday(1) to Saturday(7).
A line in cal.dat must start with -999 or a 4-digit number to be
considered as data. The data lines may be in any order. All these
appointments will be displayed in chronological order, regardless of
the ordering in the appointment data file.
If cal was compiled with the reminder support then call will also
search for the files dates and .dates in the same places as for
the caldat equivalents. The dates file is used by the reminder(1)
program and is an alternate, less-powerful format for specifying
descriptions. A file in this format cannot be specified with the
--data-file= option.
The reminder format consists of text lines of length < screen
width in the following format:
DDDDDDDD:N:xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx:yyyyyy:S
where
- DDDDDDDD
- is the date in one of the following formats:
- M/D/Y
- an event occurring on a specific day (year can be two or four
digits, but must be two for backward compatibility with reminder)
- M/D
- an event occurring every year
- D
- an event occurring every month
- DDD
- an event occurring every week (day of the week is 'Sun', 'Mon', etc.)
- N
- is the number of days notice of the event to give
the user (ignored by cal)
- xxxxx
- the event description
- yyyyy
- an optional receptor of the event (e.g. Mr. Jones)
- S
- status flag, either N for normal event or D for a deleted (not
displayed) event
Blank lines are ignored. A line otherwise not in the above
format is assume to specify a file name from which to read more
events. The file is searched for in the usual places.
cal will search for a color definition file called cal.col in
the directory it was executed from. If not found it will search in
the users $HOME directory for a file called .cal.col. If still not
found, it will look for a global cal.col in a system wide directory.
To find out where this location is you can run cal --help which will
display the location.
Users may override the default colors used when displaying
calendars. This may be done by creating a color definition
file.
Example of a color definition file:
-
- 15 02 video colors for month name
- 01 03 video colors for weekday header
- 07 01 video colors for normal calendar days
- 13 01 video colors for sundays
- 14 02 video colors for current day
- 07 06 bkgd for yearly calendar (space between months)
- 11 00 video colors for special day descriptions
- 12 08 video colors for * indicating descr.=today
Color definitions must appear as above, as a two-character field for
the foreground color, followed by a space, folowed by a two-character
field for the background color. The color definitions must start on the
first line, and must not contain blank lines. Comments may appear after
the second field, provided that the total line length does not exceed 80
characters.
- Possible colors:
- 0 black
- 1 blue
- 2 green
- 3 cyan
- 4 red
- 5 violet
- 6 orange
- 7 light gray
-
- 8 dark gray
- 9 bright blue
- 10 bright green
- 11 bright cyan
- 12 bright red
- 13 bright violet
- 14 yellow
- 15 white
Specifying a background color from 8 to 15 will result in a
background color of 0 to 7, with flashing text.
- cal.dat
- Date file. Can be located in the current
directory or the directory in which cal is run from.
- cal.col
- Color definition file. Can be located in the current
directory or the directory in which cal is run from.
- $HOME/.cal.dat
- unix local date file.
- $HOME/.cal.col
- unix local color file.
- $HOME/.dates
- Date file used with unix reminder program and can be used
with cal.
BUGS
All known bugs fixed in version 4.0.
The latest version of cal is available from
http://unicorn.us.com/pub/cal40.zip
AUTHOR
Alex Matulich -
alex@unicorn.us.com
...with enhancements and modifications by other contributors.
© 1993-2002 by
Unicorn Research Corporation
Inspired by an Amiga program by Gary L. Brant.
SEE ALSO
date(1), reminder(1), rs(1)
cal-4.0/cal.exe 0100644 0000764 0000764 00000433032 07416472341 013526 0 ustar cbagwell cbagwell MZ ' ` T
stub.h generated from stub.asm by djasm, on Thu Dec 9 10:59:31 1999
The STUB.EXE stub loader is Copyright (C) 1993-1995 DJ Delorie.
Permission granted to use for any purpose provided this copyright
remains present and unmodified.
This only applies to the stub, and not necessarily the whole program.
$Id: stub.asm built 12/09/99 10:59:31 by djasm $
@(#) stub.asm built 12/09/99 10:59:31 by djasm
go32stub, v 2.02T @ CWSDPMI.EXE $ `0!<smi up9sÉ ǹJ!sω &, 10&=PAu&=THu
&==uG>Ou߯> !> !W1tn~^ uAr/ ut> 6_>* 6b>, t# , GtCf.EXE b =d!ù ?!11ɡ=Lt=MZ tډ B ! ?!= u>Lafffffff+ff f KfOff f9sff 1f t
H! & ( أ" 1 1r11f 1 6 > 1 ɃQɛ1 I1 1 Yɓ1 I1 1s= s 1j f6f>fI f6 f>#f'7 f>KfOf1fgf> ! 1 fd.ff% f)f)f&f>"6>f6B :F B N> G?( u &; v B f1ɋFf>"f"f)&f1 gf f&u<:t;AdtD*t\F r4 D CFuW *__d K!_r M!- (>ir X!gX!hX !X !Ü>irPSX h0!X g0![XLoad error: $: can't open$: not EXE$: not COFF (Check for viruses)$no DPMI - Get csdpmi*b.zip$no DOS memory$need DOS 3$can't switch mode$no DPMI selectors$no DPMI memory$L ~4
X L .text X 4 .data @ .bss 4 4 L Q_ u% = |fd5 1۹ v 1ff
1sL!fDc f fɃfɓ1P_ t+ff 1ff 1ff 1Ct%P_ Q_ t{ ^f 1sL!fNf^fVp f¹l 1f 4 1% 4 % 4
4
1f 1ft f 4 1@Q = 19tff 14Q f
6Q d $4 ˉf - PN d 8Q d PX 1VSF ۍ+fPF f+ f9t;f9/f)Gf"Vh S{L uPUM f
D@P1 Pd^ P6M D@P1 Pl^ PM D@P1 P@Y PL )@P1 P\^ PL \^ f= j1 Pd^ PL j1 Pl^ PrL j1 P@Y PTL f5! ft P1 P ! )ÍKftRҍA@Y PK f= 97f
! ft P1 P5 ! )ЍPftvB@Y PK hL] hL] jD h] 0 0u DY Kj K R^ fHl ffXf@ f
h^ Cf `^ fHY h "I }Y }t }N f=! uWf! f
! f PPCf ~ ff! f
! f}^ f=! t f h^ P D@Pj S!J h^ PP
TR ډff)R
h $ S|i h G t& h^ PP8 fCf ~ u V* DAuBDA :- f=! t f U BPSA V
D@Pj S
I VV TR ډff)R h $ Slh h F & VP/ fCf ~y v M AP@ u ÃVЉуtzt8(t1@8(t,@8(t'@ut t t u߃@@)ЃvC Gf /ǃ ! PVh jVU BPi ủfu' Dž }u>M Q* DAuu F@DAty:-utR? ff! f
! f|^PPCf ~ ff! f
! f} & Dž T& Dž f=! t;h, h f h - Ah h - j P(E ! P_k [^_]UUf=! t! 8^ f! ]Ív Uf! ]UfEf=! tfEMfEf9ME AE9~ЋufEfE ff= uEPEPs fEf}}fE 1f;u f
fL" ftFfEf9 f HfEF! duH9uONj [f9}Rh6 ff ! Pf fR9O P0O S6M [^_]\ /ect/cal/ U WVSE PEPO ǃ[ LY =LY z ؉ڃtzt80t1@80t,@80t'@ut t t u߃@@)= ( S VH M؉ڃtzt8"t/B8"t*B8"t%Butt t
uBB)ڃtzt8(t1@8(t,@8(t'@ut t t u߃@@+ET w{؉ڃtzt80t1@80t,@80t'@ut t t u߃@@x/thD VmM EPV]M E PVM ǃ D MD BfBfڋutt t
uBB)ڃtzt8(t1@8(t,@8(t'@ut t t u߃@@+E w EPSL E PSL Ǎ[^_]Ð
cal 4.0 - Display a monthly or yearly calendar, with optional appointments.
Usages: cal [options] [[1|2|3|...|12] year]
cal [options] [jan|feb|mar|...|dec] [year]
Options:
--3[months] Display prev/current/next month
--a[ppts]=n Display maximum of n (8-50) appointments (24)
--con[tinue]=n Display successive months n times after the first
--d[ata-file]=file Load appointments from `file'
(default: /etc/cal/ cal.dat)
--e[urope] European format (first day is Monday)
--f[uture] Show only future appointments on current month
--j[uian] Display Julian dates (days numbered from 1 January
--m[onday] Display Monday as first day of week (same as --europe)
--nod[ata] Ignore appointment descriptions file
--p[ause] Pause for keystroke before exiting
--th[ismonth] Show only current month appointments
--to[day] Show only today's appointments on current month
--y[ear] Display a calendar for the current year
--u[se-color] Allow use of colors
--noc[olor] Inhibit the use of colors
--col[or-file]=file Load color definitions from `file'
(default: cal.col)
(c) 1992-2002 A. Matulich, Unicorn Research Corporation
http://www.unicorn.us.com
Uh, hF ? h, hH ? h, hH ? h, hH ? h, h0K ? h, hH ? h, hK o? h, hK ]? ]É' UWVS1}1GÃ} & 1ҊGЃ Ä|E [^_]Ív UWVS11}1ҊGЃ ƃ| w@t ƋE 0[^_]ÐUWVSE ptVUZM N ES"> UEE E EE B t(Ã; t<}uWVEPP; uEPEPURUBPEPURUB EEeȉB[^_]U WVS (4
& [t ; u SE;r;Cs
1< s19s+[ t& >P9Us P 9Ur y9r1e[^_] eh U WVSE] Q P)ЉE EUֹ 1t EQ t)}ֹ 1t tEx zt1 3}tzt8"t/B8"t*B8"t%Butt t
uBBUB uuFC C CPR C PRE1 CB8zuEPRUЍe[^_]Ív U 1WVS]uUC@ t?F! } ?E, tU ?ED\ / $S uV PT TT `T pT T T uV uV T U U U SU qU pV pV pV pV pV pV pV pV pV pV pV pV pV pV pV pV pV pV pV pV pV pV pV pV pV pV pV pV pV pV U V 0V 1C 1f EPScÃEPSTMN UËE MD\E EPS"ËEU D\ EPSÃEPSMËE D\E\ & EPSÃEPSËEU fBXEB" EPSËEM fAX EPSrËEU B jtV9 u U Bp M ϋApƃ Pk; u M E \ 0UBE vgEPSËEU B K EPSÃEPSMN UËE MD\E ى +> e؉[^_]Ív UEU B(4 B B B B(4 ]Ív US]j 8 PS]]Ív UEU BB (4 B B B(4 ]Ív US]j7 PS]]Ív U(4 SE=(4 t*9CuC; t C P9 S{ u= ]]ÐUEPP9 ]ÐU WVSEPlt ]SlRhu1 x1x EfEҋEll|B)r9hs"j MQShPh9rE쉽h8zu'tPR`thhll pBp9hs5;Ew0pWMQShPDh9s U9pv} E H[^_]Ív U WVSE1@E%?)ĉe;}spv Ӎ UGE&U JE U@ E tE @I)ȅ|UE };}r11;]sEtCG;}rUe؉Z[^_] U c P,4 Ѓt
h! F c PRJ ]387 No 80387 detected.
Warning: Coprocessor not present and DPMI setup failed!
If application attempts floating operations system may hang!
EMU387 emu387.dxe U VSuh(Z Ãt/1" I fe<u~ ~ v ~ ~ ]US]S K ~ ( V f. b c F*F~nF ^NV ZF XfF(F$f fF,ff.fn0fV2 c F $Shp> EVP t C$) C$\F e[^]Uhp4 Ej Pp4 ]UWVSME | Ë$s 9~)v }} +E9} Ћ5 s 9~+E)MUE U9E 5 s 9~( E)MUE U9 Q1u+Uʋ} )}E< 9u'Uʋ} )}E<9u E s 9 )A뇍v Qv I1u+Uʋ} )}E< 9u'Uʋ} )}E<9u s E 88xe[^_]Ív UWVUS}E HuExXEUE U9r6u,E } u{ EU 9C~E sv MyUE.E]E. [؉])؉EU )+EU)yMÀQ x v ÀEQ ųىډ )ЉEGE+EU)ىډ )ЉEG+EىE)} tAM$Iˉʉ )ЉEE+E)OyOEPh 1u/ Q։ u)UE 9u+ Q։ u)UE9u UG O؉W Ӊr 9r !v G+ ]U]BEW9\~UG E eBG(W [^_]SunMonTueWedThuFriSatJanFebMarAprMayJunJulAugSepOctNovDec%.3s %.3s%3d %02d:%02d:%02d %d
v UUBl PPBPBPB PB@ل PB@Ą Ph h4 =K 츠4 ]UEPhP]ÉUWVSM] u;9|1}-;ω;y#H߉EU)3މ) e[^_]ÐUSM UAZ)Éu@AZ)Éu2A Z )Éu$AZ)ÉuAZ)Éu)Ћ]]ÐUWVSu>=vj } u4 N v E92P um19]~fڋE92P tO2L U+0L MUQMQEM PэEPMQDuE9Eu EE C9^NGM9s#MMMQMQEM PыM Ee[^_]Ív UWVUSz ~B EMPU QRMQu Uz p> } u4 KuM9 v }UB 9 P 19u }MA 9 P tpU L L )Uz EJ PUM RQURV} uJM L L )NjU)z J F9srSEU9U8e[^_]ÐU,WVS}ԋu j h MQÃ M A9~MAj h QZMQ) Qu. )MQj h Q'ËM )qt ))Ãu}u v MQ#eȉ[^_]Ív U@ WVS] C1 $C C @ CC = / t'C`u uCP9 tK K@
uE1C!u / S% t%
~HCC
v SReE ~HCC1v S% P6E ǃtM1AM> t%S uǀKC C [^_]Ð USU Mˈt
BAu؋]]Ð E v UWVS]uH5~ ~ h F =~ t
v 5~ K CKul{teC)Eƅ~W{1uC C t / tEPVWCP҃uVWCPB E Ey)DžCt CcC1e[^_]Ív UWVS}wE E$E - tZ0}u9rNÉ@9r3) BJA;t BD
- - U1t@u (J (J t)EEEv 9Ew 9E$ K[u }@} (J (J v u93 C}9; - tBExuƋ1tBu}Wuv (J
- A(J }) BJA;t BD
- K[VB ,}}WC Ãu1b9 $- uuރ5$- %C4} u߃=$- uEDD L Ce[^_]ÉUWVSUP B$ZBdCCu~)ljHމ9
- u - yu@tBuS{ (J (J tv 9u@ P@uAˉDTust9
- u - yutBuQy (J (J tv 9u@ P@uCD{u1t v BuS{(J C e[^_]ÐUWVSuE uP62~9w$P ÃtWVS VL؍e[^_] UVW}u M}A _^EÉ USUM Ӏ; t v B: uABu؋]]ÐUWVS} 1ۃ} OA ƅ ]G<+t
t
+uE uu! 1xu/ %ytu
' v zt" * ]Call frame traceback EIPs:
0x
0x
UWVSj$0 t% f-~ e1҈¿
BAwz =0Q
8Y c MXj hѕ j j c @ P`1v 9]v;3t5[jh j\ jS4O~ c 9X w~ sjh j* e[^_]Alignment Check Coprocessor Error Page fault General Protection Fault Stack Fault Segment Not Present Invalid TSS Coprocessor overrun Double Fault Coprocessor not available Invalid Opcode Bounds Check Overflow Breakpoint NMI Debug Division by Zero : sel= invalid base= limit= USE] jPj8 jhȗ j
jS taEPSf tj hϗ j
=jhٗ j
jEPsS= jh j}
$jSRjh ja
]]Floating Point exception Control-Break Pressed INTR key Pressed QUIT key Pressed Raised Exception at eip= , error= , x87 status=
eax= ebx= ecx= edx= esi= edi=
ebp= esp= program= cs ds es fs gs ss App stack: [ .. ] Exceptn stack: [ ]
v UWVS c ]p8=~
t#I f-~ e8@- t `@- aw H- 1Ƀuu $u yuŘ
zu֘ u*t
jh fj
h j jVTʉȃtzt80t1@80t,@80t'@ut t t u߃@@)PQjP jh j? t0 c ff9B(u!B9B w=~ r98Y v
j@
v j c @ Pyujh j
j( v w1- t( c 1fX4tjh j
jSV=! u j
h j
j: PWjh jf
j c P7jh jI
j c @Pjh& j(
j c @Pjh, j
(j c @ Pjh2 j j c @Pjh8 j (j c @Pjh> j j c @PzjhE j (j c @ PYj hK jk L_ uU 1: t @< uPRj04 jh j2 c f@(% Phc c f@*% Phf c f@,% Phi c f@.% Phl c f@0% Pho c f@2% Phr j hu j j0Q ,Q PUjh jg (j,Q P7jh jI T_ j@ Pjh j) (jhT_ jh j jh j c ff9B(uj USUB=? w( u~ J E ؋]]ABRTFPE ILL SEGVTERMALRMHUP INT KILLPIPEQUITUSR1USR2NOFPTRAP Exiting due to signal SIG 0x v UVSujh j" w$jh j jZ Pj jh j jVjh j e[^]Bad longjmp to __djgpp_exception_state--aborting
U EwO= c uFT c P6 t j2h0 jG j v M c [H8MQ c tT9% Pj Bad signal handler, v US]~@ ~ KJ t;* uu-t = v=~ vjh j SS1]]Cannot continue from exception, v US c @8PfSV c z8v PR j h j Sj ]]ÉUS1ۍv EPS5 u Q_ tݰO PS5 M ݰO M ݴO Cv]Sju5 hHP ju5 M
HP M
LP Sj }5 h@P j 5 M
@P M
DP =- t'hXP D- P5 h\P 5 - ?hXP D- P5 h\P h`P h@d 5 h\P D- PX5 - fb ft[b tQf9TP u$9PP u hPP j4 hb j4 &hPP j4
b
PP
b
TP ]]ÐUVSEu =' ub b =* t 1b b 1ff2ff uf t!؍e[^]UEPh' ]Ív UEPh* o]Ív U=~
th. h+ h+ h
1J @=? ~ b b f~ fb d
4Q -b b EMEP4 ME` 1O M MLE@vUfBHP Fc fLP fDP =~
t @P `c &@P c D- End Rj#3 EEld Pj$2 hb j 2 hPP j2 I f-~ e
@- ]ÉU1fb 4U|t %b
b ]ÐU=<_ t3 @P 9b ufDP f9b u&EPm |$D$G fg.fo0_OW ofG2w G<&G*&FG&FG&F G &FG(&FG$&FG fG,fW2 c _^ύv USVW]f1s
f~ 1_^[]Ð VPfZZ>> u6>%? ?u(ٛ>t>f&. 1^^Ív U tmV. f=~ ~ fe <:u fe% 0 % 9P u >\u ~\u1:EP1 E@9P t1ۅt. 9. u =. uF. . h ót$ % " v U< WVSh / j Ps) Ã Dž jj Sb# P j j S8# QWS* S* |
u9 9
D }ƅ [? t&Ph + t KC; u܍? t)" 9.t1DAC9 u]C > t<
t<
uF> u?
tG <
u9 At#t[uCʃ9v< t< uJ9w B PV* 1ɈM ?$)ĉ=t
tCF<=t<
u<
?+uG W蟰 <% {%u Dž CPh !) C- $Ĵ µ µ µ µ µ µ µ µ µ µ | µ µ µ µ µ µ µ µ µ µ µ µ µ µ µ µ µ µ µ µ µ µ µ µ µ µ µ µ µ µ Dž :Dž .Dž "Dž Dž
Dž C{{ t9%t A9 u鋍 C P 8 tAÉPh w' t t
1؊0 t
1؊" t\u/ t/u\ F? u t t
t;F tCv CF; S Q W$[^_]Ív No memory to gather arguments
UEPuj h0 jj0]UU fmetBЉ)]US1]; t QЃ ~QɃCЀ; u]]ÐUSjujj S詴؋]]UVSut P4Ft,1ۃ8 tv PCF< uFPFt PM Ve[^]Ív UVS]jƉ SFSj Pe[^]ÐUVSu19 ~FP@C9 FPwVqe[^]'" [?* ... UWVS1]1 9] t9u01} uFC <'t<"u;C} u~w;\u/CPhи x$ tE H9s} uFC?v t8PhӸ F$ ujh Sb$ u} t U CF>1E* ,E+u0e[^_]UWVSMuME } 9st9sF1E* u9t[ËMCPEPMQWVEK EEM@PEPVRE uF9rMQ1ҋ]9U~F B[ 9Ue[^_]ÐUWVSMMM MMME EÃtzt8#t/C8#t*C8#t%Cutt t
uCCM+]MsMNjM9G O EMVSMQP M9MdMQ1ҋ}9U~v C t<:t<\tG(у PHPjQRGH F95D_ Dž@ P_ u Wi< t WWN@D_ PH_ @ tDWH_ @Pd [^_]Ð UVS" 9. t(. - 19}Ƌ C9|e[^]Ð UVS . . tv CЉ؋P
u - 19}Ɛ C9|. tС. tjj EP*UWVSuE * F% DCu-u E +uF} t}u 0u xtXuNE } uE
0uE } t 11uljU]fM* fEtv UtLt9M~8} | 9wu9M} EE ]F 뗍v } } } t ~
} tۃ} t} tNE 0EU e[^_] US]S{~Sԥ]]ÐUh ]Ív U4EfEfE DEPj!R E% f= t1 ]Ív UME UPR1f~ Pf% QP*]É USWfDc ffЋ] } P =P u f~ fG f~ fG.f~ fG0fG fG. fG0 f 1s
f~ 1
P _[] UME UPf% RPQ1f~ Pj]É D$
. H
. $ff. ff. ff. ff. USVWE E 8phXPH@ .5. .5. .5. .5. PU E@@ 8pXPH[fX X @ _^[]Ív US]= / t3$ `u)u $ Pt
$
$ @
uZ1$ !u / $ % t4
$ ~H $ $ $ v h $ R $ ~ H $ $ $ 1h $ 1Pi ]]ÉUWVS}u . tEPMQVW҃tEhv MQVW Oj)PW ڃ / t,19}v <3tC9|~RV xЍe[^_]Ð UWVSuFt FF @ ǁ~~ u6u8 ~ SFuF $FN ^ F Ft}~ - u,$ t
h $ , t
h, F 9F ~F F = u~ ~ V u t . tVSFPFP҃ucSFPFP 1F!u / V% t.~*QjFP t+^j+PFPQ
F 9F ~F FFFtF }/uF @Ft
$FN v F % Fe[^_]ÐU4WVS" 9/ t/ / / / } |~ / C9Era wY/ h Ǿ / = / / )Pj / Puf/ fEEgEPj!l / E Me[^_]Ív UEP ]U8WVSEj UERPj _ tE PEP ƃu~ % PjEP` t E:v EAtEEqfE E衠~ fEfE EPj!Eu1.1fEP É% PjEP ~ e[^_]É UxWVSu} uu]E,Sj!1EEU+EUF1ҊU1EUE*1ҊUEUSj!1E1ҊUE E E E EJEU1fEEUP6t1V赱Q(ڸU]U )ЉI O|[^_1]Ív UWVSE % E= 1ɈMt%MQ0 t~
4 M Mu
0/ MuE E }pƉU t~ t1 U } t1E PWMQ Ã jE PMQ# Ãu[~ \SMQi tt'E @PMQ E
tWMQ ÃE
t } uMQQS7 E4 PSMQS E
t
jj S ؍e[^_]Ív U1ҋEM 8 t 8u@8 uu] U1V1S" ] M9 u17v AC11ҊT8Tt1" 1ɊL1D% )ȍe[^]Ív U EEA EEEU PEPRm E ]Ív UDWVS1M EMċ}PA E / tEPWMQEP҃uK' / UtWMQR } MQEPjMу E 1fEP ~ Ɖ~ ) v f-~ ~ 9s=
~ Mv 9s-MĊ
uH9t Ee
CEeCF~ 9rϋEfE @fEf]䡠~ f
~ fEfMEPj!qE<1fE9J19Xe[^_]UWVSu Ft $FFu
) ~uSuO ~ SMǃ~u
F $F+N ^ ~ $ u$ PUtNFt8FMF^)}
t9^ ~ v ۋE t M }M]Nj^~F )@F t / tEPSWFP҃uSWFPfE E~)DžFu
FMFEe[^_]ÐUWVSM] Uu Bv 1ҊS1T> ))" v 1p1DC8>uˊAtJu1e[^_]Ð UWVS}5. t%19^~Dx tP׃C9^6u܍e[^_]É >v ~ I t u$ UWVS. . t2v 1ҋC9}v Dx tcB9|{uuՅu jXÃt< C j 迹{ Tօt
j j VEPj!Eu1v ~ ]ÐUEU 8 t 8t @8 ut1] UVSu] Mu!1Ҋ1C)C8uFtIu1e[^]UUM u1BA8t1 )Љ] ~v UEj P" ]/dev/ null nul tty con env v UWVSM 5~ ]
~ +u Muu~ 赵f-~ M9 t y:u˃jh S B S й uE п uE v S<v<w1C t-M tv B: uBKt Au e[^]ÐU4WVSE̋ufE DfE fu܋} Pj!EuA1f] t $߄}S fEDfEfu܍EPj!Et1fEP0~ 8u4PX / ڃ PVQ ؍e[^_]ÉUVS1MU v <
tFACJue[^]Ív UEUt M 8t@Ju1]ÉUj6
t1 EB1 1 ]Ív UWVS} u 1 t$VWURCЃ t
v u1e[^_]É U4E j tE fECqE
v U CfUEP} uEfE䡠~ fEfE EPj!Eu 1fEv 1fEPx~ ]É USE ~ j PK ~ t 1]]Ív U8VSEj } u~ v UERPjƃ tE EPEfE $fu
fE܅tfElq8f=~ u Sf=~ v fE lv E[f]f]f]ЋE fE䡠~ fEEPj!Euj1fEP1fEv 1fEP ~ e[^]Ð U8VSEj } u~ v UERPjuà tE EPtfElqfE fE f]E09u uF1N,KِE$8-u 1 8uK;0u9uE$ Kv e[^_]U\ WVSuEM F}-+F gfffʋ )Љ+~9 0 0K + ~9 0 ʀ0K9s0CF9r$0F~9 0 ʀ0F[^_]NaN Inf US]U1 } |rE tiEt-Ch1 S ؉ڃtzt8"t/B8"t*B8"t%Butt t
uBBE)% P1fB% = t1:Bu: t O B t1 S ]]Ð v UUBw ]ÐUVSu P t VCP ujRÃttzt80t1@80t,@80t'@ut t t u߃@@)@PCt!VP芌P P Q 1v S e[^]*.* . .. v U< WVS} Mt9Q % P% PM QMQx uZY v M Y9
Q u.AM A Q Pt Q Pt
M Y4 M jS Q P v 8 : j } t^PQ
PQu7À t, &D PD C| uՋQM Q豊E Ãtzt8#t/C8#t*C8#t%Cutt t
uCC Q C Q M9 t0Q % P% PSQ u1~ Q uC Q PG Q C Q % P% Pj SMQyt
Q Q
<1[^_]... Ud WV S] u(Q % P% PjM CKjh S uDC<\t ~ P3M AAAPE Pb~ M f fAj*Sv u*j?SgÃuEfEqfEWj!)f]EM fAAA 1v~ ]fuEfESj!ENf}ࡠ~ MfMfESj!¶EuM Qj,~ P611fEP$~ [^_]ÉUUBw
10 Љ]ÉUDWVS]fE q=~ j 譟 Wډtzt80t1@80t,@80t'@ut t t u߃@@)@PS趵fEqfE fEfEfEfE EPj!趵E f} q ]u S j
P} tڊ< tCF)Ѓ!; uU v ; uC)Ѓ; u; t#.U v < tCF)Ѓ
; u -v ދ] v 1PFCt
+E ~ e[^E _]Ð Ut VSuu~ t v j ! fEOqfFfEfu~ & = v ~ ]fE fE fESj!]Eu\Ph> ~ PʹFFFPF P{FF 1 1fEP|~ & fF fEqSj!dzEub,~ ]fE EfESj!藳~ Ph" VVEOSj!z EuVj,~ P1v 1fEP~ [^]É UE8 t\t
/t@8 u1]UWVSM ]M;!1ɈMtC1C] 1E0 @Eu1 ;-uOKMtE]t@8U|
M8M| } t 1MЊ98Tw1E8Tr %v 8Ut} tM 98Du C]r19ut؍e[^_]*?[\ UWVS}Mu M G]?t9t#*tOY [ \
A > % Fp \t/uEt[ G *tu$} tV`% 9 E0 \t/uIEtCV2ƃI MQVW! \t/u
E F u F \t/u
E EPPWǃ Eu6 t0GPhu t Gu]OF8M\t/u<\tt'5M M ffffvv M fv 5$Q tY v SWQCx SM QW5x SQM Q!x ] )u[^_] U,EWVS}UEEUU EU} uF9v!} u 1NjEUEUU} ]M1[ E9Ev]Ɖ]u U Uu?@abcdefghijklmnopqrstuvwxyz[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ wp``pP`@p0`p `
` p ٢
gpfeyHiGY*I)9 ) ")` `
p` p ` p ` v !`"U#j$5%J&'*s'p)
U)ޥp*7+p,T`-ip.6`/~Kp0`1gg2r`3GI4R`5'+62`7
889:;۞p?b@opA`BOpCda`D/vpEDC`FXpG$%`GtI`IVJ`K8LMNOwPQapRlS@pTLU pV,oW pX`XpYn`Zp[P`\]2`^_``ica~0bIEc^d)'e=fDpg g&phipjݚkplƷ`mpn`oqpp{`qZrf]`s:tF?`uv/[vpx=xRy z4{|Qp}~3pcpw`BpW`"p7` `j`˹L`h}Jk_,T|p`4^p?@p)
`"p`p` ȳ`𝨕`|w`\q ( 7 ) / 3 & 4 5 M a ^ f P y / %&"
$ ! ##%%%%%%%
% !
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~ . (null) Unnormal @ @ @ @ @ 4@ p+ŝi@ զI x@ GA ~QC ǑF uuvHM ]=];Z R`%u ?
ףp=
ף? ,eX? aw̫? [Mľ? 9E ϔ? 9'*? d|FU> :zc%C1< #2IZ9 Wڥ2 -64OSk% ޟݦ
@@ ? . 3 !3 3 3 3 3 3 3 3 3 PT & 2 : F N V ^ i .file % gcrt0.s sel_buf 4 # 5 p F p U t zero v d z r `3 ` $4 a \ exit # @ 4 d o R | Y L F h .text T .data .bss 4 .eh_fram`3 .file 1 gcal.c p p _opt ! _q.93 L" .text p 7 .data .bss (4 .file z gframe.c L L
@ _add _lea _divide .eos f5
I 0 @ S i .eos f@ w
] _NO_REGS _AREG _DREG _CREG _BREG _AD_REGS _Q_REGS _SIREG _DIREG
.eos fI
d _words _nregs _regno .eos f]
] _.0fake
l _quot _rem .eos ff _div_t
f _.1fake
t _quot _rem .eos fn _ldiv_t
n _size_t
_wchar_t
_.2fake
~ _quot _rem .eos fx _lldiv_t
x _dev_t
_ino_t
_mode_t
_nlink_t
_gid_t
_off_t
_pid_t
_ssize_t
_uid_t
_fd_set
_fd_bits < .eos f _fd_set
_time_t
( ; O h
& = U e x . ? ! U " g # $ % & ' ( ) * + , ' - ; . N / j 0 1 2 3 4 5 @ A A * A .eos f A
M [ k {
2 @ N \ j } .eos f
6
! 5 F T c s
(
=
K
! ^
" q
%
'
*
,
.
/
1
2 3 4 2 5 D 6 ^ 7 k 8 9 : ; < = > ? @ A ! B 8 C J D ` E p F G H I J K L M
6
R
k
% ! 5 ! E ! U ! g ! y ! .eos f
/ = K V b n z ! " # " $ - % 8 & D ' O ( Z ) d * n + x , - . / 0 1 2 3 4 5 6 7 8 9 : ' ; 4 < A = N > [ ? h @ u A B C D E F G H I J K L M N + O 8 P D Q P R \ S h T t U V W X Y Z [ \ ] ^ _ ` a b % c 2 d ? e L f Y g f h s i j k l m n o p q r s t u v ) w 6 x C y P z ^ { l | z } ~ " 0 > L Z h v .eos f6
6 D S g x .eos f
.eos f
.eos f
: H Y .eos f k
.eos f
.eos f +
E S b .eos f p
.eos f
.eos f
) = J ] r .eos f
% 2 .eos f F
? ] @ q . A R
i
- . / .eos f% ,
N C P [ j
.eos f?
W 0 B Y n .eos fN
p f _cfa _eh_ptr 5 H _cfa_regX
Z
_saved \ 2 .eos p fX p
X p _object
s _pc_end X _count _next h .eos fh
_sword
_uword
_uaddr
_saddr
_ubyte
_length _CIE_id _version 2 .eos fy
_length * 5 .eos f _fde
?
_eh_ptr I U a .eos f k
t _s X p p t .eos t f t L a E 4 .bf L e _buf _r _buf _r .ef 5M e 8M a G 4 .bf 8M e _buf _r _buf _r .ef M e _p _b2
_b4 _b8 .eos f
_array X _count .eos f
_linear _erratic .eos f
M ! m 4 .bf M e _v1 _v2 .ef M e M h 4 .bf M e _accu _count .ef O e O / - 4 .bf O e .ef O e O ! c 4 .bf O e _accu _beg_ptr Q _end_ptr Q _accu .ef GP e HP ! $4 .bf HP e _ob h .ef hQ e hQ h *4 .bf hQ e
_pc .ef Q e % Q a 1 04 .bf Q e _f _c _f _c .ef %S e 7 (S a Y 64 & .bf (S e ( _p _state t _info _pc Q _p _info _pc Q .ef V e t I V ! 9 B4 2 .bf V e s 4 _begin _ob h _begin _ob h .ef V e ` V ! % H4 : .bf V e s < _begin _begin .ef V e r V ! 5 N4 F .bf V e s H _begin _ob h _begin _ob h .ef W e W ! % T4 N .bf W e s P _begin _begin .ef EW e HW a O Z4 V .bf HW e s X _begin _begin .ef W e W ! `4 ^ .bf W e s ` _begin _begin .ef W e W h X a f4 g .bf W e s k X p .ef Y e _objects(4 h Y ! l4 s .bf Y e s _linear _erratic .ef Y e P" .text L G .data P" .bss (4 .file gnpxsetup.c Y Y _nofpsigY ,4 .text Y x .data `" .bss ,4 .file gident.c p\ p\ .text p\ .data `" t .bss 04 .file gcrt1.c p\ p\ ! p\ 6 \ E $] \ ] o P_ | 04 _ .text p\ X F .data " .bss 04 .file gfake a forced b 5a limitFix b c @b stack_oka ds_limitb Sc d .text ` ) .data " .bss 44 .file ginfostrc.c d d .text d .data " .bss 44 .file gct_lower.c d d .text d .data " .bss 44 .file gatoi.c d d .text d .data $ .bss 44 .file ggetenv.c d d .text d h .data $ .bss 44 .file gstrtok.c @e @e _last.2 44 .text @e .data $ .bss 44 .file gstdout.c e e .text e .data $ .bss 84 .file gfileno.c e e .text e .data $ .bss 84 .file gisatty.stub .text f .data $ .bss 84 .file gint86.c f f .text f < c .data $ .bss 84 .file gstrncpy.c Pj Pj .text Pj @ .data $ .bss 84 .file gcalloc.c j j .text j 0 .data $ .bss 84 .file * gputs.c j j .text j , .data $ .bss 84 .file 4 gfgets.c j j .text j .data $ .bss 84 .file > gfclose.c k k .text k .data $ .bss 84 .file F gmemset.s .text l @ .data $ .bss 84 .file P gtime.c l l .text l 4 .data $ .bss 84 .file gctime.c m m ) _GMT m m ! _tm.41 p4 ! p ! Ą ! ل ! 4 ! _tmcomp ! H _time2 H _time1 .text m $ y .data $ .bss 84 .file gfputs.c @ @ .text @ D .data * .bss (J .file gct_flags.c .text .data * .bss (J .file gstrcpy.c .text ( .data , .bss (J .file gfake .text .data , .bss (J .file gstderr.c Ѝ Ѝ .text Ѝ .data , .bss (J .file gstdin.c .text .data - .bss (J .file gfflush.c .text .data - .bss (J .file gmalloc.c _slop - " $- " (J .text .data - .bss (J x .file gmemcpy.s .text .data 0- .bss J .file gstrcat.c .text 0 .data 0- .bss J .file gfopen.c P P .text P H .data 0- .bss J .file gabort.c _msg 0- .text $ .data 0- .bss J .file gdpmiexcp.c Д Д " @- ," D- _buf.48 J _itox Д 7" F" W" H- h" - s" " " J " Z " " - " O _npx_oriHP _kbd_ori@P " XP " \P " `P # PP # .text Д .data @- d .bss J .file " gfake .text t .data - .bss P .file * gd0e01.S .text p ( .data - .bss P .file 2 gfake .text P .data - .bss P .file < g_write.c .text
.data - .bss P .file F gdxeload.c .text
.data - .bss P .file N gcntrl87.S .text ( .data - .bss P .file V gd0000.S .text $ .data - .bss P .file ^ gd0008.S .text , .data - .bss P .file f gd0400.S .text P 8 .data - .bss P .file n gd0006.S .text , .data - .bss P .file v gmd.S .text , .data - .bss P .file ggetdos_v.c # - )# h. .text .data - .bss P .file gosminor.c .text .data p. .bss P .file gosmajor.c .text .data p. .bss P .file gputenv.c 8# p. _ecount t. _emax x. F# |. .text P 8 .data p. .bss P .file gfrlist.c X# P .text P .data . .bss P X .file g_use_lfn.c P P l# . # . __lfnenv. # . # P .text P X , .data . .bss P .file gc1loadef.c .text t E .data . .bss P .file gc1args.c 0 0 # P # | _atohex _new_argз # # # \ # ܸ # ع $ $ !$ ,$ C$ ؽ .text 0 t N .data . .bss P .file g_main.c U$ . .text D .data . .bss P .file gerrno.c .text .data . .bss P .file gexit.c .text
.data . .bss P .file gstrtol.c .text h .data . .bss P .file gstdiohk.c m$ .text 8 .data . .bss P .file gisatty.c 0 0 .text 0 < .data . .bss P .file ( gdmp.c p p .text p , .data . .bss P .file 1 gd0300_z.S $ P .text .data . .bss P .file ; gdmg.c 0 0 .text 0 , .data . .bss P .file I gfake s_es . s_ds . s_fs . s_gs . $ $ .text ` .data . .bss P .file S gputchar.c .text .data . .bss P .file ] gread.c .text .data . .bss P .file g gfilbuf.c .text .data / .bss P .file t gdosio.c $ / $ / _count / .text .data / .bss P .file ~ gclose.c P P .text P .data / .bss P .file gremove.c ` ` .text `
.data / .bss P .file ggettimeo.c ` ` .text ` .data / .bss P .file gopen.c p p .text p .data / .bss P .file gstrrchr.c .text ( .data / .bss P .file gstricmp.c 0 0 .text 0 d .data / .bss P .file gsprintf.c .text < .data / .bss P .file gwrite.c .text .data / .bss P .file gflsbuf.c ` ` .text ` ` .data 0/ .bss P .file gstrnicmp.c .text d .data 0/ .bss P .file gfwalk.c 0 0 .text 0 D .data 0/ .bss P .file gsbrk.stub .text .data 0/ .bss P .file gdjmd.s $ $ $ big_move .text ( .data 0/ .bss P .file gallocfil.c .text .data 0/ .bss P .file
gfmode.c p p .text p .data 0/ .bss P .file glseek.c p p .text p .data @/ .bss P .file gdpmi_lsl.S .file gdpmi_lsl.s .text .data @/ .bss P .file & gstat87.S .text 0 .data @/ .bss P .file . gfake .text @ X .data @/ .bss P .file 6 gd0202.S .text , .data @/ .bss P .file > gd0203.S .text , .data @/ .bss P .file F gd0204.S .text , .data @/ .bss P .file N gd0205.S .text 0 , .data @/ .bss P .file V gd0201.S .text ` 0 .data @/ .bss P .file ^ gd0304.S .text ( .data @/ .bss P .file f gd0200.S .text 0 .data @/ .bss P .file n gd0303.S .text D .data @/ .bss P .file v gd0600.S .text @ 8 .data @/ .bss P .file ~ gclear87.S .text .data @/ .bss P .file gfsext.c $ @/ _init _num_fdsP $ P % l % D/ )% .text ' .data @/ .bss P .file gdoserr2e.c 0 0 _map P/ .text 0 , .data P/ .bss P .file g_open.c ` ` .text ` .data P0 .bss P .file g_read.c P P .text P .data P0 .bss P .file g_close.c @ @ .text @ .data P0 .bss P .file gosflavor.c .text .data P0 .bss P .file gstrchr.c .text $ .data P0 .bss P .file gstrncmp.c .text @ .data P0 .bss P .file gstrcmp.c 0 0 .text 0 0 .data P0 .bss P .file gstdprn.c ` ` .text ` .data P0 .bss P .file gstdaux.c p p .text p .data p0 .bss P .file gputpath.c 5% .text X .data 0 .bss P .file gd_getdrv.c .text ( .data 0 .bss P .file gct_upper.c .text .data 0 .bss P .file gc1pglob.c .text ( .data 1 .bss P .file ' gstrncat.c @ @ .text @ @ .data 1 .bss P .file 1 gsetmode.c .text .data 1 .bss P .file ; gcrlf2nl.c P P .text P 4 .data 1 .bss P .file E gmemchr.c .text .data 1 .bss P .file P gfse_open.c @% 1 .text | .data 1 .bss P .file Z g_chmod.c 0 0 .text 0 .data 1 .bss P .file d gfexistp.c .text 4 .data 1 .bss P .file n g_creat_n.c .text .data 1 .bss P .file x g_creat.c 0 0 .text 0 .data 1 .bss P .file gdoprnt.c _decimal1 _nan_p 1 K% 1 U% 1 _cvtl _pten 1 _ptennegd2 _INVPREC 3 _PREC 3 c% X _roundl o% 8 .text , .data 1 h .bss P .file gclose.stub .text @ .data 3 .bss P .file gdoserrno.c P P .text P .data 3 .bss P .file gglob.c P P z% P _add h % P % Q % @ % Q _glob2 _pathbuf Q _slash Q % Q _flags Q _use_lfnQ %
_errfuncQ .text P p .data 3 .bss P $ .file glconv.c
_ESTR 3 _DSTR !3 % $3 .text
.data 3 4
.bss Q .file gputc.c
.text
.data `3 .bss Q .file gfake .text
, .data `3 .bss Q .file gfindfirs.c .text .data `3 .bss Q .file glfnshort.c % .text .data `3 .bss Q .file gfindnext.c .text .data `3 .bss Q .file gfnmatch.c p p % p
& .text p .data `3 .bss Q .file gfncase.c p p .text p D .data `3 .bss Q .file gqsort.c _Cmpr Q & $Q _MyBase (Q !& ,& _Swap ( ;& t .text 8 .data `3 .bss Q .file glibgcc2.c
] _div_t
f _ldiv_t
x _size_t
_wchar_t
_lldiv_t
x _dev_t
_ino_t
_mode_t
_nlink_t
_gid_t
_off_t
_pid_t
_ssize_t
_uid_t
_fd_set
_time_t
G&
] U& _PQImode _QImode _PHImode _HImode _PSImode _SImode _PDImode _DImode _TImode _OImode
_QFmode _HFmode _TQFmode
_SFmode _DFmode _XFmode _TFmode _QCmode _HCmode _SCmode _DCmode _XCmode _TCmode _CQImode _CHImode _CSImode _CDImode _CTImode _COImode _BLKmode _CCmode _& k& ! .eos f7 }&
i & & & & _MODE_CC & & & .eos f]
_UQItype
_SItype
_USItype
_DItype
_UDItype
_SFtype
_DFtype
_XFtype
&
&
y _low _high .eos fs _.3fake _s s _ll .eos fy _DIunion
y ' / v r4 .bf e _u _v .ef v e ' < .text x .data `3 .bss ,Q .file glibgcc2.c
] _div_t
f _ldiv_t
x _size_t
_wchar_t
_lldiv_t
x _dev_t
_ino_t
_mode_t
_nlink_t
_gid_t
_off_t
_pid_t
_ssize_t
_uid_t
_fd_set
_time_t
_UQItype
_SItype
_USItype
_DItype
_UDItype
_SFtype
_DFtype
_XFtype
&
_DIunion
y ' / x4 .bf e _n _d _n .ef ~ e ' < .text .data `3 .bss ,Q *' _europe ! ___exit _year ! _putchar 6' @ _sprintf Q' ` __exit x' , ' b _free 8 _strcat _strcmp 0 ' @Y _video DY ' " ' c ' nd ' ( ( _thisdayHY 1( ~ C( b _homedirLY _longjmp V( / k( 4 __flsbuf` x( __write _putc
( ,Q ( _etext ( ( _LineWid ( ( h1 ( / ) 5 ) ~ !) p .) ! __read P 8) ~ M) - _puts j Y) 0 d) ! n) Tb _reg L] _buf ! _line p] _int86 f ) ~ ) _strncat@ __open ` ) ) ) b ) " edata d3 __filbuf ) b * `c %* `" ___lseekp :* p0 G* _mktime P Y* ~ d* 0 _fputs @ n* b _environ@_ * * b * 8^ * 8_ _days * ~ _isatty f * b * 4 * * | __doprnt8 _sbrk + X^ + \^ + g! _raise _strncpyPj %+ ` 5+ D_ B+ Z M+ ! Y+ `^ _atoi d __stklen0Q d+ ` __chmod 0 _getarg X _columns t+ _memcpy + ___sbrk _tzname ) _continu! _memset l + d + 0 + & _fileno e ___tzsetx} + $ + + d , 0 end ~ _remove ` , ! -, ___modfl
9, _fflush etext G, . Z, 0 ___main , , 4Q , _strtol , P , , b ___glob - - ~ ,- 7- d^ A- L- _months ! X- b- o- ~! y- . __creat 0 _gmtime T _julian ! _fopen P - _calloc j _time l __fmode 0/ - - d - ld - H_ - _dayline! _ctime l - b . 0 . ! #. $ _realloc _memchr 0. ;. T. . j. `3 _fixtab 1 ~. " . . 3 . @d _getenv d . . . 0 . % / x / 0/ 40 _strchr line[0] -> [......LineWid (default 80).......] lln[0]
line[1] -> [.................................] lln[1]
line[2] -> [.................................] lln[2]
... [.................................] ...
line[maxappts-1] -> [.................................] lln[maxappts-1]
line_attr[0] -> [........LineWid (80).............]
line_attr[1] -> [.................................] allocated
line_attr[2] -> [.................................] only if
... [.................................] colors
line_attr[maxappts-1] -> [.................................] are used
mon_attr -> [......YEARWID (72)...........]
wk_attr -> [......YEARWID (72)...........]
day_attr -> [......YEARWID (72)...........]
spclday_attr -> [....DAY_DESC (56).....]
*/
/* --- User Configuration ---------------------------------------------------*/
/* When compiling under DOS, define MSDOS. When compiling under OS/2
* define OS2. This allows certain DOS/OS/2'isms to be accessable.
*/
/* #define MSDOS */
/* #define OS2 */
/* To display the calendar in color, define USE_COLOR. Under MSDOS or
* OS2, this will cause cal to access the video memory directly to
* manipulate colors. Under unix, it will cause cal to use inline ANSI
* escape codes for colors. */
#define USE_COLOR
/* Most platforms have support for terminal drivers that understand
* ANSI escape sequences to display colors. This includes most unix
* terminals and DOS or OS/2 with the ANSI.SYS driver loaded.
* Define USE_ANSI when ANSI color support is wanted under those platforms.
* If left undefined here, it will be defined under unix if USE_COLOR
* is defined above, and it will be undefined under OS2 and MSDOS.
* By default OS2 and MSDOS will use video memory (USE_VIDEORAM) if
* USE_COLOR is defined, unless USE_ANSI is defined here.
*/
/* #define USE_ANSI */
/* Some platforms do not have strncasecmp. For those, you can define
* NEEDS_STRNCASECMP and use an internal version.
*/
/* #define NEEDS_STRNCASECMP */
/* --- End User Configuration -----------------------------------------------*/
/* Simply auto detect if we are in a unix style compile enviornment */
#if (defined(__unix__) || defined(UNIX)) && !defined(__DJGPP__)
#undef MSDOS
#undef OS2
#ifndef UNIX
#define UNIX
#endif
#endif /* __unix__ */
#ifdef OS2
#undef MSDOS
#undef UNIX
#endif /* OS2 */
#ifdef MSDOS
#undef OS/2
#undef UNIX
#endif /* MSDOS */
#ifdef __DJGPP__
#ifndef MSDOS
#define MSDOS
#endif
#undef UNIX
#undef OS2
#define far
#endif /* __DJGPP__ */
/* now that we know the operating system, set the color definitions */
#ifdef USE_COLOR
#ifdef UNIX
#undef USE_VIDEORAM
#define USE_ANSI
#endif
#if defined(MSDOS) || defined(OS2)
#ifdef USE_ANSI
#undef USE_VIDEORAM
#else
#undef USE_ANSI
#define USE_VIDEORAM
#endif
#endif
#else
#undef USE_ANSI
#undef USE_VIDEORAM
#endif /* USE_COLOR */
#define MAXFILES 8 /* maximum number of data file paths */
#define MAXAPPTS 50 /* maximum number of appointment description lines */
#define CAL_MAXPATH 1024 /* maximum size of path and filename strings */
#define MAXLINE 256 /* maximum length of lines in config files. */
/* Include files for accessing video memory */
#ifdef USE_VIDEORAM
#ifdef OS2
#define INCL_SUB
#include
#else
#include /* for int86() */
#endif /* OS2 */
#endif /* USE_VIDEORAM */
#include
#include
#include
#include
#include
#include
#ifndef UNIX
#include /* for isatty() */
#endif
#if defined(UNIX) || defined(DJGPP)
#include
#endif
#ifdef HAVE_LOCALE_H
#include
#ifdef HAVE_LANGINFO_H
#include
#else
#include /* libc4 only */
#endif
#endif /* HAVE_LOCALE_H */
#ifndef max
#define max(a,b) (((a)>(b))?(a):(b))
#endif /* max */
#ifdef USE_VIDEORAM
#ifdef MSDOS
#ifdef __DJGPP__
#include /* for _farpokeb() */
#include /* for _dos_ds */
#define MK_FP(seg,off) ((unsigned long)(seg)*16L+(off))
unsigned long video, tmpvideo;
#else
#ifndef MK_FP
#define MK_FP(seg,off) (void far *)(((unsigned long)(seg)<<16)|(unsigned)(off))
#endif /* !MK_FP */
char far *video, far *tmpvideo;
#endif /* __DJGPP__ */
union REGS reg;
#endif /* MSDOS */
#endif /* USE_VIDEORAM */
#define THURSDAY 4 /* Used during reformation calculations */
#define SATURDAY 6 /* 1 Jan 1 was a Saturday */
#define FIRST_MISSING_DAY 639799 /* 3 Sep 1752 */
#define NUMBER_MISSING_DAYS 11 /* 11 day correction during reformation */
#define MONTHWID 24
#define J_MONTHWID 31
short LineWid = 80; /* Support for variable length widths */
short MonthWid = MONTHWID; /* Julian calendars are 31 characters */
short columns = 1; /* 2 or 3 columns in year view */
#define YEARWID (3*MonthWid-2) /* width of yearly calendar */
#define DAY_DESC (LineWid-MonthWid) /* width of special day descriptions */
#ifdef USE_COLOR /* define display attribute */
#define FG_BLACK 0x00 /* possibilities. */
#define FG_BLUE 0x01
#define FG_GREEN 0x02
#define FG_CYAN 0x03
#define FG_RED 0x04
#define FG_VIOLET 0x05
#define FG_ORANGE 0x06
#define FG_LTGRAY 0x07
#define FG_DKGRAY 0x08
#define FG_BRTBLUE 0x09
#define FG_BRTGREEN 0x0a
#define FG_BRTCYAN 0x0b
#define FG_BRTRED 0x0c
#define FG_BRTVIOLET 0x0d
#define FG_YELLOW 0x0e
#define FG_WHITE 0x0f
#define FG_FLASH 0x80
#define BG_BLACK 0x00
#define BG_BLUE 0x10
#define BG_GREEN 0x20
#define BG_CYAN 0x30
#define BG_RED 0x40
#define BG_VIOLET 0x50
#define BG_ORANGE 0x60
#define BG_WHITE 0x70
unsigned
char dfmon_attr = FG_BLACK|BG_GREEN, /* video attribute for month name */
dfwk_attr = FG_BLUE|BG_CYAN, /* attribute for weekday header */
dfdy_attr = FG_BLACK|BG_WHITE, /* attribute for days */
dfsun_attr = FG_VIOLET|BG_WHITE, /* attribute for sundays */
dftoday_attr = FG_WHITE|BG_BLUE, /* attribute for current day */
dfbk_attr = FG_LTGRAY|BG_BLACK, /* year calendar background */
dfspday_attr = FG_BRTCYAN|BG_BLACK, /* special day description attr. */
dfspdfl_attr = FG_BRTRED|FG_FLASH; /* special day flasher */
#ifdef USE_ANSI
char ansiterm_attr = FG_LTGRAY|FG_BLACK; /* ansiputs() terminator color */
#endif
char *mon_attr, *wk_attr, *day_attr, *spclday_attr, *line_attr[MAXAPPTS];
/* By default we want colors under DOS and OS/2 but not UNIX */
#ifndef UNIX
int crt = 1;
#else
int crt = 0;
#endif
char *color_file = "cal.col";
#endif /* USE_COLOR */
char *data_file = "cal.dat";
#define REMINDER_FILE "dates"
short days[] =
{ 0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 },
thisday, thismonth, thisyear, discard_old = 0, prog_pause = 0,
thismonth_only = 0, europe = 0, numfiles = 0, julian = 0,
month3 = 0, year = 0, maxappts = 24, continu = 0;
char *months[] = {
"",
"January ", "February", "March", "April", "May", "June", "July",
"August " , "September", "October", "November", "December" },
USdays[] = " Su Mo Tu We Th Fr Sa ",
Europedays[] = " Mo Tu We Th Fr Sa Su ",
j_USdays[] = " Sun Mon Tue Wen Thu Fri Sat ",
j_Europedays[] = " Mon Tue Wen Thu Fri Sat Sun ",
*dayline = USdays,
*filename[MAXFILES],
homedir[CAL_MAXPATH], /* home directory from argv[0] or enviornment */
*line[MAXAPPTS], /* line buffer for body of calendar */
*buf = NULL;
void addfilename(char *);
void clearfilenames(void);
void printmonth (short, short);
short stryearlen(short);
char *stryearcpy(char *, short);
void fixtab(register short);
short day_in_year(short, short, short);
short day_in_week(short, short, short);
void putattr(char *, register short);
void setcolor(char);
void ansiputs(char *, char *);
short specialdays(short, short);
short reminderdays(short, short);
FILE *efopen(const char *, const char *);
void usage(void);
/* commandline argument list */
static struct arglist {
char *opt; /* full argument string */
short needsvalue; /* 1=argument needs a value, 0=stand-alone */
} opt[] = {
{ "3months", 0 },
{ "appts", 1 },
{ "data-file", 1 },
{ "europe", 0 },
{ "future", 0 },
{ "julian", 0 },
{ "monday", 0 },
{ "nodata", 0 },
{ "pause", 0 },
{ "thismonth", 0 },
{ "today", 0 },
{ "year", 0 },
{ "continue", 0 },
#ifdef USE_COLOR
{ "use-color", 0 },
{ "nocolor", 0 },
{ "color-file", 1 },
#endif
{ NULL, 0 }
};
/*===========================================================================
* GETARG
* Return the index of the argument in the option array. val is set if the
* argument needs a value. The passed arg to test does not have to be
* exactly like one of the arguments in o; it just has to match one of them
* enough to be uniquely identified. Any arg that is passed here should
* begin with a '-' (or also a '/' if compiling for MSDOS or OS/2).
*=========================================================================*/
int getarg(struct arglist *o, char *arg, char **val)
{
int len = -1, i = -1, found = -1;
*val = NULL;
while (*arg == '-'
#if (defined(MSDOS) || defined(OS2))
|| *arg == '/'
#endif
) ++arg;
while (arg[++len]) {
arg[len] = tolower(arg[len]);
if (arg[len] == '=') {
arg[len] = '\0';
*val = &arg[len+1];
break;
}
}
while (o[++i].opt) {
if (!memcmp(o[i].opt, arg, len)) {
if (found >= 0) return -1;
found = i;
}
}
if (found < 0) return -1;
if (o[found].needsvalue && !(*val)) return -1;
return found;
}
/*===========================================================================
* setopt
* This function will set a global option based on the value passed in.
* The value passed in must be a valid index into the options array.
*=========================================================================*/
void setopt(int c, char *optarg)
{
switch (c) {
case 0:
month3 = 1; julian = 0; MonthWid = MONTHWID; break;
case 1:
maxappts = atoi(optarg); break;
case 2:
addfilename(optarg);
break;
case 3:
europe = 1; break;
case 4:
discard_old = 1; break; /* show future dates only */
case 5:
MonthWid = J_MONTHWID; julian = 1; month3 = 0; break;
case 6:
europe = 1; break;
case 7:
data_file = NULL; break;
case 8:
prog_pause = 1; break;
case 9:
thismonth_only = 1; break; /* show this month dates only */
case 10:
discard_old = 2; break; /* show today's dates only */
case 11:
year = 1; break; /* show this year calendar */
case 12:
continu = atoi(optarg); /* display successive months */
if (continu > 0) maxappts = 8;
break;
#ifdef USE_COLOR
case 13:
crt = 1; break;
case 14:
crt = 0; break;
case 15:
color_file = optarg; break;
#endif /* USE_COLOR */
}
}
#ifdef NEEDS_STRNCASECMP
int strncasecmp(const char *s1, const char *s2, size_t n)
{
char ss1, ss2;
for (; 0 < n; ++s1, ++s2, --n) {
ss1 = tolower(*s1);
ss2 = tolower(*s2);
if (ss1 != ss2)
return (((unsigned char)ss1 < (unsigned char)ss2) ? -1 : +1);
else if (ss1 == '\0')
return 0;
}
return (0);
}
#endif
void text_init(void)
{
#ifdef HAVE_LOCALE_H
int i, day;
strcpy(dayline," ");
for (i = 0; i < 7; i++) {
if (europe)
day = (i + 1) % 7;
else
day = i;
#ifdef HAVE_LANGINFO_H
strncat(dayline,nl_langinfo(ABDAY_1+day),julian ? 3 : 2);
#else
strncat(dayline,_time_info->abbrev_wkday[day],julian ? 3 : 2);
#endif
strcat(dayline, " ");
}
for (i = 1; i <= 12; i++) {
#ifdef HAVE_LANGINFO_H
months[i] = nl_langinfo(MON_1+i-1);
#else
months[i] = _time_info->full_month[i-1];
#endif
}
#else
if (europe)
dayline = julian ? j_Europedays : Europedays;
else
dayline = julian ? j_USdays : USdays;
#endif
}
/* When printing only one month, we sometimes need to really display
* 3 months at a time if the user requested this.
*/
void processmonth(short m, short y)
{
if (month3) {
short prev_month, prev_year, next_month, next_year;
if (m == 1) {
prev_month = 12;
prev_year = y - 1;
}
else {
prev_month = m - 1;
prev_year = y;
}
if (m == 12) {
next_month = 1;
next_year = y + 1;
}
else {
next_month = m + 1;
next_year = y;
}
columns = 3;
fixtab (prev_year);
printmonth (prev_month, prev_year);
fixtab (y);
printmonth (m, y);
fixtab (next_year);
printmonth (next_month, next_year);
}
else {
fixtab (y);
printmonth (m, y);
}
}
/*===========================================================================
* MAIN
* Process command line, allocate and initialize, etc.
*=========================================================================*/
int main(int argc, char *argv[])
{
short bufsiz, i, m, y;
time_t t;
struct tm *lt;
int c;
char *optarg;
char *calopt, *s;
int status=0;
char str[MAXLINE];
#ifdef USE_COLOR
FILE *colorfile;
short fg[8], bg[8];
#endif /* USE_COLOR */
#ifdef HAVE_LOCALE_H
setlocale(LC_ALL, "");
#endif
clearfilenames();
/* First, set any options from the Env. Variable CALOPT */
calopt = getenv("CALOPT");
s = (calopt != NULL) ? s = strtok(calopt," ") : NULL;
while (s != NULL) {
if (*s != '-'
#if (defined(MSDOS) || defined(OS2))
&& *s != '/'
#endif
) break;
if ((c = getarg(opt, s, &optarg)) < 0) {
usage();
status=1; /* Let user known program didn't run */
goto freestuff;
}
setopt(c, optarg);
s = strtok(NULL," ");
}
/* Next, loop through command line options and set parameters */
for (i = 1; i < argc; ++i) {
if (*argv[i] != '-'
#if (defined(MSDOS) || defined(OS2))
&& *argv[i] != '/'
#endif
) break;
if ((c = getarg(opt, argv[i], &optarg)) < 0) {
usage();
status=1; /* Let user know program didn't run */
goto freestuff;
}
setopt(c, optarg);
}
#ifdef USE_COLOR
/* If color is enabled, then double check to see if we are actually
* displaying on a terminal.
*/
if (crt)
crt = isatty(fileno(stdout));
#endif /* USE_COLOR */
if (maxappts < 8 || maxappts > MAXAPPTS) {
usage();
status=2; /* Let user know failed because to many datafiles */
goto freestuff;
}
if (!numfiles && data_file) /* add default data file if none specified */
addfilename(data_file);
/* make the argument list compatible with unix cal */
argc = argc - i + 1;
for (m = 1; m < argc; ++m) argv[m] = argv[i++];
/* Find out the line width of terminal and store this value. */
#ifdef MSDOS
reg.h.ah = 0x0f; /* function 0x0F of INT 0x10 - get display mode */
int86(0x10, ®, ®);
LineWid = max(80, reg.h.ah); /* number of columns returned in AH */
/* The above should work for all displays.
* The following can be used instead, but will work in EGA and VGA only:*/
/* Linewid = *((unsigned far *)0x004004a); */
#endif /* MSDOS */
/* find originating directory */
#ifndef UNIX
strncpy(homedir,argv[0],CAL_MAXPATH-1);
homedir[CAL_MAXPATH-1] = 0; /* Just to be safe */
i = strlen(homedir);
while (i >= 0 && homedir[i] != '/' && homedir[i] != '\\' &&
homedir[i] != ':')
homedir[i--] = '\0';
#else
s = getenv("HOME");
strncpy(homedir,s,CAL_MAXPATH-1);
homedir[CAL_MAXPATH-1] = 0; /* Just to be safe */
#endif /* UNIX */
/* allocate workspace buffer */
bufsiz = (maxappts)*LineWid + 2*DAY_DESC;
#ifdef USE_COLOR
/* adjust workspace for color enhancements */
bufsiz += (maxappts+2)*LineWid + YEARWID + (DAY_DESC+1);
#endif /* USE_COLOR */
if ((buf = (char *)calloc(bufsiz,1)) == NULL) {
puts("Memory overflow");
goto freestuff;
}
/* assign pointers into buf */
line[0] = buf;
for (i = 1; i < maxappts; i++)
line[i] = line[i-1] + LineWid; /* calendar body */
#ifdef USE_COLOR /* color attributes */
line_attr[0] = line[i-1] + LineWid;
for (i = 1; i < maxappts; i++)
line_attr[i] = line_attr[i-1] + LineWid;
mon_attr = line_attr[i-1] + LineWid;
wk_attr = mon_attr + YEARWID;
day_attr = wk_attr + YEARWID;
spclday_attr = day_attr + YEARWID;
/* attempt to read in file of colors */
if (crt && (colorfile = efopen(color_file, "r")) != NULL) {
for (i = 0; i < 8; i++) {
if (fgets(str, sizeof(str), colorfile) == NULL) break;
if ((fg[i] = atoi(str)) == (bg[i] = atoi(&str[3]))) break;
if (fg[i] > 15 || bg[i] > 15) break;
}
fclose(colorfile);
if (i >= 8) {
dfmon_attr = fg[0] | (bg[0] << 4);
dfwk_attr = fg[1] | (bg[1] << 4);
dfdy_attr = fg[2] | (bg[2] << 4);
dfsun_attr = fg[3] | (bg[3] << 4);
dftoday_attr = fg[4] | (bg[4] << 4);
dfbk_attr = fg[5] | (bg[5] << 4);
dfspday_attr = fg[6] | (bg[6] << 4);
dfspdfl_attr = fg[7] | (bg[7] << 4);
}
}
/* initialize color attribute strings */
memset (mon_attr, dfmon_attr, YEARWID);
memset (wk_attr, dfwk_attr, YEARWID);
memset (day_attr, dfdy_attr, YEARWID);
memset (spclday_attr, dfspday_attr, DAY_DESC+1);
spclday_attr[0] = dfspdfl_attr;
for (i = MonthWid-2; i <= MonthWid+MonthWid; i += MonthWid) {
memset (&mon_attr[i], dfbk_attr, 2);
memset (&wk_attr[i], dfbk_attr, 2);
memset (&day_attr[i], dfbk_attr, 2);
memset (&day_attr[i - MonthWid + 3 + (6 * (julian ? 4 : 3) * europe)],
dfsun_attr, julian ? 3 : 2);
}
memset (&day_attr[i - MonthWid + 3 + (6 * (julian ? 4 : 3) *europe)],
dfsun_attr, julian ? 3 : 2);
#ifdef USE_ANSI
ansiterm_attr = dfbk_attr;
#endif
#ifdef MSDOS
#ifndef USE_ANSI
/* Find the start of video memory under DOS. This is hardcoded
* based on video mode.
*/
int86(0x11, ®, ®); /* read the equipment list into reg. */
video = MK_FP(((reg.x.ax & 48) == 48) ? 0xb000 : 0xb800, 0);
#endif
#endif /* MSDOS */
#endif /* USE_COLOR */
text_init();
/* now that all the setup is done, we can begin with the program proper */
t = time(NULL);
lt = localtime(&t);
thisyear = y = lt->tm_year + 1900;
thismonth = m = lt->tm_mon + 1;
thisday = lt->tm_mday;
puts(""); /* first display a blank line */
switch (argc) {
case 1: /* display current month if no arguments */
if (!year)
while (continu-- >= 0) {
processmonth(m, y);
if (++m > 12) { m = 1; ++y; }
}
else {
/* "columns" tells the printmonth function that we are multiplexing
* 2 or more months together before printing. It implies that
* appointments will not be displayed.
*/
columns = julian ? 2 : 3;
fixtab (thisyear);
memset(str, ' ', YEARWID);
stryearcpy(str+(YEARWID/2)-(stryearlen(thisyear)/2), thisyear);
fputs(str, stdout);
puts("\n");
for (m = 1; m < 13; m++) printmonth (m, thisyear);
}
break;
case 2:
if (isdigit(argv[1][0]) || (isdigit(argv[1][1]) &&
argv[1][0] == '-')) {
/* "columns" tells the printmonth function that we are
* multiplexing 2 or more months together before printing.
* It implies that appointments will not be displayed.
*/
columns = julian ? 2 : 3;
fixtab (y = atoi(argv[1]));
memset(str, ' ', YEARWID);
stryearcpy(str+(YEARWID/2)-(stryearlen(y)/2), y);
fputs(str, stdout);
puts("\n");
for (m = 1; m < 13; m++) printmonth (m, y);
break;
}
/* drop through to next case */
case 3:
m = atoi(argv[1]);
if (strlen(argv[1]) >= 3) {
for (i = 1; i <= 12; i++) {
strcpy(str, months[i]);
if (!strncasecmp(argv[1], str, 3)) {
m = i;
break;
}
}
}
if (!m) {
usage();
status=3; /* Let user know failed because invalid month */
break;
}
if (argc == 3) {
if (isdigit(argv[2][0]) || (isdigit(argv[1][1]) &&
argv[2][0] == '-'))
y = atoi(argv[2]);
else {
usage();
status=4; /* failed because invalid number parameters */
break;
}
}
while (continu-- >= 0) {
processmonth(m, y);
if (++m > 12) { m = 1; ++y; }
}
break;
default:
usage();
status=4; /* failed because invalid number parameters */
}
if (prog_pause) {
fputs("\nPress the RETURN key to continue.", stderr);
fflush(stdin);
fgets(str, 3, stdin);
}
freestuff:
free(buf);
return (status);
}
/*===========================================================================
* addfilename()
* append a file name into the list of files to read
* name must be a static string
*=========================================================================*/
void addfilename(char *name)
{
if (numfiles < MAXFILES && name) filename[numfiles++] = name;
}
/*===========================================================================
* clearfilenames()
* empty the list of file names
* NOTE: does not free() any entries
*=========================================================================*/
void clearfilenames(void)
{
numfiles = 0;
}
/*===========================================================================
* printmonth()
* either prints an entire month at a time or multiplexes
* a month into a buffer, dumping the buffer after the third call.
*=========================================================================*/
void printmonth(short m, short y)
{
register short first, last;
register short index, p = 0;
register char *ll;
static short q = 0;
short l, hilite = ((m == thismonth) && (y == thisyear)), num_appts = 0;
if (columns > 1) {
if (++q > columns) q = 1;
p = MonthWid * (q - 1); /* character position of line in buffer */
if (q == 1) {
memset(line[0], ' ', maxappts*LineWid);
#ifdef USE_COLOR
memcpy(line_attr[0], mon_attr, YEARWID);
memcpy(line_attr[1], wk_attr, YEARWID);
for (l = 2; l < 8; l++) memcpy(line_attr[l], day_attr, YEARWID);
#endif /* USE_COLOR */
}
memset(line[0]+p, ' ', MonthWid);
memcpy(line[0]+p+((MonthWid-2)/2)-(strlen(months[m])/2),
months[m], strlen(months[m]));
memcpy(line[1]+p, dayline, MonthWid-2);
}
else { /* Not printing multiple columns */
/* initialize attribute buffers for month display */
#ifdef USE_COLOR
for (l = 0; l < maxappts; l++) {
if (l<1)
memcpy(line_attr[l], mon_attr, MonthWid-1);
else if (l<2)
memcpy(line_attr[l], wk_attr, MonthWid-1);
else if (l<8)
memcpy(line_attr[l], day_attr, MonthWid-1);
else
memset(line_attr[l], 0, MonthWid-1);
memcpy(&line_attr[l][MonthWid-1], spclday_attr, DAY_DESC+1);
}
memset(line[0], ' ', (maxappts)*LineWid);
memcpy(line[0]+((MonthWid-2)/2)-((strlen(months[m])+1+stryearlen(y))/2),
months[m], strlen(months[m]));
stryearcpy(line[0]+((MonthWid-2)/2)-((strlen(months[m])+1
+stryearlen(y))/2)+strlen(months[m])+1, y);
line[0][strlen(line[0])] = ' '; /* Remote NULL terminator */
memcpy(line[1]+p, dayline, MonthWid-2);
#endif /* USE_COLOR */
}
if (y == 1752 && m == 9) { /* special case Sep. 1752 */
line[2][p + 8 - 3*europe] = '1';
line[2][p + 11 - 3*europe] = '2';
first = 14;
last = 16 + europe;
index = 12 - 3 * europe;
if (julian) index += 4; /* account for extra space for julian dates */
}
else {
/* day of week for first day of month */
short dow = day_in_week(1, m, y);
first = 1;
last = 7 - dow;
index = 3 * dow;
if (julian) index += dow; /* Add extra space for julian dates */
}
for (l = 2; l < 8; ++l) { /* loop thru month one week per line */
ll = line[l] + p + 1;
while (first <= last) { /* for each day in week encode day of month */
if (julian) {
short diy = day_in_year(first, m, y);
ll[index+2] = '0' + diy % 10;
diy /= 10;
if (diy) ll[index+1] = '0' + diy % 10;
diy /= 10;
if (diy) ll[index] = '0' + diy % 10;
}
else {
if (first >= 10) ll[index] = '0' + first / 10;
ll[index+1] = '0' + first % 10;
}
if (columns == 1 && hilite && first == thisday) {
/* hilight today */
#ifdef USE_COLOR
line_attr[l][index] = line_attr[l][index+1] =
line_attr[l][index+2] = line_attr[l][index+3] = dftoday_attr;
if (julian) line_attr[l][index+4] = dftoday_attr;
#endif /* USE_COLOR */
#ifndef UNIX
ll[index-1] = /* (crt) ? '\xde' : */ '<';
ll[index+(julian ? 3 : 2)] = /* (crt) ? '\xdd' : */ '>';
#else
ll[index-1] = '<';
ll[index+(julian ? 3 : 2)] = '>';
#endif /* ! UNIX */
}
index += 3;
if (julian) index++;
++first;
}
last = (last + 7) > days[m] ? days[m] : last + 7;
index = 0;
}
if (columns == 1) {
num_appts = specialdays(m, y);
#ifdef USE_REMINDER
if (num_appts < 1)
num_appts = reminderdays(m, y);
#endif
} /* end of not multi-column */
/* Force num_appts to be eight at minimum so that the day lines will
* always be printed out (extra important for multi-column mode).
*/
num_appts = max(8, num_appts);
for (l = 0; l < num_appts; l++) {
if (columns == 1 || q == columns) {
index = LineWid-1;
ll = line[l];
while (index >= 1 && ll[index] == ' ') --index;
if (q == columns)
index = MonthWid*columns-3;
/* leave one space after last day in week */
else if (index < MonthWid-1)
index = MonthWid-1;
ll[index+1] = '\0';
#ifdef USE_ANSI
ansiputs(line[l],line_attr[l]);
#else
puts(ll);
#ifdef USE_VIDEORAM
putattr(line_attr[l], (columns > 1) ? MonthWid*columns-3 : LineWid-1);
#endif /* USE_VIDEORAM */
#endif /* !USE_ANSI */
}
}
#ifdef USE_ANSI
setcolor(0);
#endif
}
short stryearlen(short year)
{
short yl = 0;
short neg = (year < 0);
if (neg) year = -year;
do {
yl++;
year = year / 10;
} while (year);
if (neg)
yl++;
return yl;
}
char *stryearcpy(char *dest, short year)
{
char str[11], *p;
short neg = (year < 0);
p = str+10;
*p = '\0';
if (neg) year = -year;
do {
--p;
*p = '0' + year % 10;
year = year / 10;
} while (year);
if (neg)
*(--p) = '-';
strcpy(dest, p);
return dest;
}
/* Before 1753, a leap year was simply every 4 years. After 1752, its
* every 4 years unless it falls on a century. On century bounderies
* its only counted every 4 centuries.
*/
#define is_leap_year(y) \
((y) <= 1752 ? !((y) % 4) : \
(!((y) % 4) && ((y) % 100)) || !((y) % 400))
#define centuries_since_1700(y) \
((y) > 1700 ? (y) / 100 - 17 : 0)
#define quad_centuries_since_1700(y) \
((y) > 1600 ? ((y) - 1600) / 400 : 0)
#define leap_years_since_year_1(y) \
((y) / 4 - centuries_since_1700(y) + quad_centuries_since_1700(y))
/*===========================================================================
* fixtab() - correct for leapyears.
*=========================================================================*/
void fixtab(short y)
{
if (is_leap_year(y)) {
days[2] = 29;
}
}
/*===========================================================================
* day_in_year
* return the 1 based day number within the specified year
*============================================================================
*/
short day_in_year(short d, short m, short y)
{
int i;
for (i = 1; i < m; i++) {
if (i == 2)
d += (is_leap_year(y)) ? 29 : 28;
else
d += days[i];
}
return d;
}
/*===========================================================================
* day_in_week
* return the 0 based day number for any date from 1 Jan. 1 and
* beyond. Assumes the Greogorian reformation eliminates 3 Sep. 1752
* through 13 Sep. 1752. Returns Thursday for all missing days.
*=========================================================================*/
short day_in_week(short d, short m, short y)
{
long total_days;
/* Calculate total number of days since year 1 for past years
* ignoring leap years. Then add in leapyears. Then add in
* total number of days that have pasted this year.
*/
total_days = (long)(y - 1) * 365 + leap_years_since_year_1(y - 1)
+ day_in_year(d, m, y);
/* If day falls before 3 Sep. 1752, day of week we mod by 7 to see
* how many weeks have passed. 1 Jan. 1 started on a saturday so
* take acount of that by adding that number of days to count.
*/
if (total_days < FIRST_MISSING_DAY)
return ((total_days - 1 + SATURDAY - europe) % 7);
if (total_days >= (FIRST_MISSING_DAY + NUMBER_MISSING_DAYS))
return (((total_days - 1 + SATURDAY - europe)
- NUMBER_MISSING_DAYS) % 7);
return (THURSDAY - europe);
}
#ifdef USE_VIDEORAM
/*===========================================================================
* putattr() - MSDOS or OS/2 only
* modify the video memory text attribute areas with the attributes passed
* in attr of lengh len, starting at the current cursor location.
*=========================================================================*/
void putattr(char *attr, register short len) /* write video attr. string */
{
#ifdef OS2
USHORT row, col;
int i;
#endif /* OS2 */
if (!crt) return;
#ifdef OS2
VioGetCurPos(&row, &col,0);
--row;
while (len) { /* minimize the number of Vio calls */
for (i = 1; i < len; i++)
if (attr[i] != *attr) break;
VioWrtNAttr((PBYTE) attr, i, row, col, 0);
attr += i; col += i; len -= i;
}
#else /* if !OS2 */
reg.h.ah = 3;
reg.h.bh = 0;
int86(0x10, ®, ®);
tmpvideo = video + ((LineWid << 1) * (reg.h.dh - 1) + reg.h.dl + 1);
while (len--) {
#ifdef __DJGPP__
_farpokeb(_dos_ds, tmpvideo, *(attr++));
#else
*tmpvideo = *(attr++);
#endif
tmpvideo += 2;
}
#endif /* !OS2 */
}
#endif /* USE_VIDEORAM */
#ifdef USE_ANSI
/*===========================================================================
* ansiputs()
* Puts a string to stdio in color as defined by line_attr.
*=========================================================================*/
void ansiputs(char *l, char *a)
{
char prev_color;
setcolor(*a);
while (*l) {
fputc(*l++,stdout);
prev_color = *a++;
if (prev_color != *a) setcolor(*a);
}
setcolor(ansiterm_attr);
fputc('\n',stdout);
}
/*===========================================================================
* setcolor()
* Set the color attributes to those passed in.
*=========================================================================*/
void setcolor(char attr)
{
char command[256];
char dos2ansi[] = { 0, 4, 2, 6, 1, 5, 3, 7, 0, 4, 2, 6, 1, 5, 3, 7};
if (!crt) return;
/* ANSI codes
0 = normal attributes (white one black)
1 = high intensity 5 = blinking
2 = Normal intensity 7 = reverse
4 = underlined 8 = invisible
*/
if (attr == 0)
fputs("\033[0m",stdout);
else {
strcpy(command,"\033[0;");
if (attr&0x80) strcat(command,"5;");
if (attr&0x08) strcat(command,"1;");
sprintf(command,"%s3%d;4%dm",command,dos2ansi[attr&0x0F],
dos2ansi[(attr&0x70)>>4]);
fputs(command,stdout);
}
}
#endif /* USE_ANSI */
/*============================================================================
* add_days()
* function to return year, month, day of dates + n days
* used in find periodic dates.
* e.g. 1996 02 06 14 -- Payday! --
*==========================================================================*/
void add_days(short *y, short *m, short *d, short n)
{
short tmpfeb = days[2];
days[2] = is_leap_year(*y) ? 29 : 28;
*d += n;
while (*d > days[*m]) {
*d -= days[*m];
if (++(*m) > 12) {
++(*y);
days[2] = is_leap_year(*y) ? 29 : 28;
*m = 1;
}
}
days[2] = tmpfeb; /* restore original value */
}
/* Returns the day for the given year and month that the nth day-of-week
* occurs on.
*/
int nth_weekday(int y, int m, int n, int dow)
{
int first_dow;
int day;
int weeks_counted = 0;
int days_in_month;
if (m == 2)
days_in_month = is_leap_year(y) ? 29 : 28;
else
days_in_month = days[m];
first_dow = day_in_week(1, m, y);
/* If looking for something that occurs during first week,
* calulate date now and return it.
*/
if (n == 1 && dow >= first_dow) {
day = first_dow - dow + 1;
return day;
}
/* For other cases, record the number of days left week */
day = 7 - first_dow;
/* Record if we've detected a week that has dow in it */
if (dow >= first_dow) weeks_counted++;
while (weeks_counted < n) {
/* Check to see if next week will contain the dow we are looking
* for. If not then get out of loop.
*/
if (day + dow + 1 > days_in_month) break;
weeks_counted++;
if (weeks_counted < n) day += 7;
}
/* Unless user asked to return the last occurance of that dow (9)
* then check for error case and return that fact.
*/
if (n != 9 && weeks_counted != n) return -1;
day += dow + 1;
return day;
}
/* make space for a new item in the right spot & return pointer to it */
char *insertitem(char **lln, int maxentry, int dy)
{
short j,k,day;
for (j = 0; j < maxentry; j++) /* insert in sorted order */
if (dy < (day = atoi(&lln[j][1]))) {
k = maxentry;
if (k == maxappts) --k;
for (; k > j; k--) /* move everything up */
strcpy(lln[k], lln[k-1]);
break;
}
else if (day == 100) dy = dy-100; /* reached new month */
if (j == maxappts) return NULL;
return lln[j];
}
/*===========================================================================
* specialdays()
* find the file CAL.DAT and attempt to read in special date descriptions.
* e.g. -999 12 25 00 Christmas Day
* Yes, this is a spaghetti-code patch on top of a rather elegant calander
* display program. Good luck understanding it; it's a mess, but it works.
*=========================================================================*/
short specialdays(short m, short y)
{
FILE *fp;
short mo, dy, yr, w, n, filenum, wn, weeklyflag, periodflag = 0, k, j,
hiappt = 1, hilight = (m == thismonth && y == thisyear);
char **lln = NULL, *ll;
char str[MAXLINE];
if ((lln = (char **)calloc(maxappts+1, sizeof(char *)))==NULL)
goto spcldone;
if (m != thismonth) discard_old = 0;
/* Special day descriptions are copied directly into line
* buffer, at an offset of MonthWid.
*/
for (j = 0; j < maxappts; j++) lln[j] = &line[j][MonthWid-1];
strcpy(lln[0], " 100"); /* last (hiappt) entry */
for (filenum = 0; filenum < numfiles; filenum++) {
if ((fp = efopen(filename[filenum], "r")) == NULL) continue;
while (fgets(str, sizeof(str), fp) != NULL) { /* go until EOF is hit */
if (!isdigit(*str) && *str != '-') continue; /* a data line? */
if ((yr = atoi(str)) == 0) continue; /* get year */
if ((mo = atoi(&str[5])) == 0) continue; /* get month */
dy = atoi(&str[8]); /* get day */
wn = atoi(&str[11]); /*nth wkdy or period*/
/* Must have either day or weekday set */
if (!dy && !wn)
continue;
/* Currently, don't support periodically-recurring dates
* that occur in next month/year. The following stops
* that processing from happening.
*/
if (yr == y && mo > m && dy > 0 && wn > 0)
continue;
/* If currenty entry is a periodically-recurring date then
* continue processing.
* If current entry is for every year or current year, and
* the month is for this month, continue processing.
* If this month is december and the year is for every
* year or next year, then continue processing if entry
* is for january of next year.
*/
if (!( (yr >= 1970 && mo > 0 && dy > 0 && wn > 0) ||
((yr == -999 || yr == y) &&
(mo == m || mo == m+1)) || /* got it all? */
((yr == -999 || yr == y+1) &&
(mo == 1 && m == 12)) || mo == -9))
continue;
/* Check for daily reminders and force entry to look like
* it happens today as long as we are displaying a calendar
* for the real this month and this year.
*/
if (dy == -9) {
if (m == thismonth && y == thisyear)
dy = thisday; /* set daily reminder */
else
continue;
}
/* Skip entries that are not for month to be displayed if user
* request that.
*/
if (discard_old == 2 &&
mo != thismonth && dy != thisday && yr != thisyear)
continue;
periodduplicate:
if (yr >= 1970 && mo > 0 && dy > 0 && wn > 0 /* proper format? */
&& !(yr == thisyear && mo == thismonth &&
dy == thisday && !periodflag) /* not today? */
&& yr <= y && !(yr == y && mo > m)) { /* <= displayed month
& year? */
while (yr < y || mo <= m) { /* find periodic dates */
add_days(&yr, &mo, &dy, wn);
if (yr == y && mo == m) break;
}
if (mo > m) continue;
/* periodic dates left in month */
periodflag = (days[m] - dy)/wn;
if (periodflag && ((discard_old && dy 0 && mo > 0 && dy > 0) &&
((wn >= 11 && wn <= 57) || w == 9) && (mo == m || mo == -9)) {
/* find nth weekday */
n = wn%10 - 1; /* day of week (0=sun, 1=mon, etc.) */
if (n < 0 || n > 6) continue;
if ((dy = nth_weekday(y,m,w,n)) < 0) {
if (--weeklyflag > 0) goto weeklyduplicate;
else continue; /* nth weekday didn't exist */
}
}
if (!dy || (mo > 0 && dy > days[mo]))
continue; /* next loop if wn>57 or wn<11 or dy=0 */
if ((mo == m+1 && (yr == y || yr == -999))
|| (mo == 1 && m == 12 && (yr == y+1 || yr == -999)))
dy += 100; /* make sure 'next month' days are last */
if ((discard_old && dy= 100) continue;
if ((ll = insertitem(lln,hiappt,dy)) == NULL) continue;
ll[0] = (hilight && dy == thisday && (mo == m || mo == -9))
? '*' : ' '; /* 'today' flag */
ll[1] = (dy%100 < 10) ? ' ' : '0' + (dy%100)/10;
ll[2] = '0' + dy%10;
ll[3] = ':';
j = strlen(str) - 1; /* get rid of trailing white space */
while (j >= 13 && isspace(str[j])) str[j--] = '\0';
/*===========================================================================
* Check for special case of Anniversary/Birthdays
* Change added by R. Scott, and generalized a bit by Alex Matulich
* A field indicated by [] will be displayed with [], but a field using {}
* will be displayed without the braces.
*===========================================================================
* These changes replace the next two lines:
* str[j = 14+DAY_DESC-6] = '\0';
* strcpy(&ll[4], &str[13]);
*===========================================*/
j=13; k=4; /* init pointers into strings */
while (k < DAY_DESC - 1 && str[j]) {
ll[k++] = str[j];
if (str[j] == '\\') { /* Don't treat next char as special */
ll[k-1] = str[++j]; /* Write next char over '\' */
j++; /* & then advance to next char */
}
/* start of [field] */
else if (str[j] == '[' || str[j] == '{') {
short suffix = -1; /* <0 indicates no ordinal suffix */
long ipower = 1,
by = atoi(&str[++j]); /* year of aniversary */
if (by <= y) { /* will year be modified? */
by = y - by + (dy>100 && mo==1); /* years since anniversary */
if (str[j-1] == '{')
suffix = by; /* ordinal suffix will be attached */
}
if (str[j-1] == '{' || str[j-1] == '[')
--k; /* don't display brace */
while (by / ipower) ipower *= 10L;
ipower /= 10L; /* ipower is now the magnitude of by */
if (!by) ll[k++] = '0';
else while (ipower && k < DAY_DESC - 1) {
ll[k++] = by / ipower + '0';
by -= (by / ipower) * ipower;/* remove largest digit */
ipower /= 10L;
}
/* optionally add the ordinal suffixes st, nd, rd and th
* to the end of value for better readability (for example,
* 31 will be 31st, 23 will be 23rd, etc.) */
if (suffix >= 0 && k < DAY_DESC - 3) {
suffix %= 100; /* only use last two digits */
if (suffix >= 11 && suffix <= 13) suffix = 4;
else suffix %= 10; /* last digit */
switch (suffix) {
case 1: ll[k++]='s'; ll[k++]='t'; break;
case 2: ll[k++]='n'; ll[k++]='d'; break;
case 3: ll[k++]='r'; ll[k++]='d'; break;
default: ll[k++]='t'; ll[k++]='h';
}
}
while (isdigit(str[j])) ++j; /* advance to end of field */
if (str[j] == '}' || str[j] == ']') ++j; /* skip brace*/
}
else
++j; /* advance to next char */
}
ll[k] = '\0'; /* ensure string is terminated */
/*===========================================================================
* End of anniversary changes
*=========================================================================*/
if (++hiappt > maxappts) hiappt = maxappts;
if (--weeklyflag > 0) goto weeklyduplicate; /* dup. wkly reminders */
if (periodflag > 0) goto periodduplicate; /* dup. periodic reminders */
}
fclose(fp);
}
for (j = 0; j < hiappt; j++)
if (atoi(&lln[j][1]) == 100) break; /* find last item */
if (j == hiappt-1)
lln[--hiappt][0] = '\0';
else if (j < hiappt)
strcat(strcat(strcpy(lln[j], " "), months[(m%12)+1]), "--");
spcldone:
free(lln);
return hiappt;
}
#ifdef USE_REMINDER
/* dayofweek()
* convert Sun, Mon, Tues, etc. to number (honours europe flag)
* returns 0 in case of error
*/
int dayofweek(const char *day)
{
switch (toupper(day[0])) {
case 'S':
if (tolower(day[1]) == 'u')
return europe ? 7 : 1;
else
return 7 - europe;
case 'M':
return 2 - europe;
case 'T':
if (tolower(day[1]) == 'u')
return 3 - europe;
else
return 5 - europe;
case 'W':
return 4 - europe;
case 'F':
return 6 - europe;
default:
return 0;
}
}
/*===========================================================================
* reminderdays()
* find the file DATES and attempt to read in reminder-style date descriptions.
* e.g. 12/25:7:Christmas Day::N
*=========================================================================*/
short reminderdays(short m, short y)
{
FILE *fp;
short mo, dy, yr, n, wn, weeklyflag, filenum, j, hiappt = 1,
hilight = (m == thismonth && y == thisyear);
char **lln = NULL, *ll;
char *descrip;
static char tempstr[MAXLINE]; /* big enough for a long reminder line */
if (!data_file) return 0; /* don't read any data files */
if ((lln = (char **)calloc(maxappts+1, sizeof(char *)))==NULL) return 1;
/* Special day descriptions are copied directly into line
* buffer, at an offset of MonthWid.
*/
for (j = 0; j < maxappts; j++) lln[j] = &line[j][MonthWid-1];
strcpy(lln[0], " 100"); /* last entry */
if (m != thismonth) discard_old = 0;
clearfilenames(); /* ignore all the cal native format data files */
addfilename(REMINDER_FILE);
for (filenum = 0; filenum < numfiles; filenum++) {
if ((fp = efopen(filename[filenum], "r")) == NULL) continue;
/* go until EOF is hit */
while (fgets(tempstr, sizeof(tempstr), fp) != NULL) {
if (isspace(tempstr[0]))
continue; /* ignore blanks and empty lines */
else if (strchr(tempstr, ':') &&
(isdigit(tempstr[0]) || (tempstr[1] != ':'))) {
/* assume normal date entry & not include file (which may be
of form C:\NAME) */
char *field = strtok(tempstr, ":"); /* get date */
if (isdigit(field[0])) {
mo = yr = wn = 0;
/* day of month only? */
dy = atoi(tempstr);
if ((field = strchr(field,'/')) != NULL) {
/* mm/dd or mm/dd/yy format */
mo = dy;
if (mo != m) /* not this month */
continue;
dy = atoi(field+1);
yr = 0;
if ((field = strchr(field+1,'/')) != NULL) {
/* mm/dd/yy format */
yr = atoi(field+1);
if (yr < 1000) yr = yr + 1900;
}
}
if ((dy > 31)) /* bad day */
continue;
if (yr && (yr != y)) /* not this year */
continue;
} else {
/* day of week */
dy = mo = yr = 0;
wn = dayofweek(field);
}
strtok(NULL, ":"); /* skip days of notice */
descrip = strtok(NULL, ":"); /* get description */
/* get person & status fields */
if ((field = strtok(NULL, "\n")) == NULL)
continue; /* skip if sanity check fails */
if (field[0] != ':') { /* person is specified */
char *newdescrip = malloc(LineWid);
field = strtok(field, ":"); /* get person */
strcat(strcat(strcpy(newdescrip, field), "'s "), descrip);
/* BUG: could overwrite end by 1 char */
strcpy(descrip, newdescrip);
field = strtok(NULL, ":"); /* get status */
free(newdescrip);
} else ++field;
if (!field || field[0] == 'D') /* do not report this event */
continue;
} else {
/* must be an include file--add to the list to check */
/* NOTE: this malloced storage is never freed */
addfilename(strtok(strcpy(malloc(strlen(tempstr)+1),tempstr),"\n"));
continue;
}
weeklyflag = 5*(wn>0); /* flag to dup. weekly dates */
do {
if (!(yr > 0 && mo > 0 && dy > 0) &&
(wn >= 1) && (mo == m || mo <= 0)) {
n = wn - 1; /* day of week (0=sun, 1=mon, etc.) */
if ((dy = nth_weekday(y,m,weeklyflag,n)) < 0) {
if (--weeklyflag > 0) continue;
else continue; /* nth weekday didn't exist */
}
}
if (!dy) continue; /* ignore if dy=0 */
if (discard_old < 2 && ((mo == m+1 && (yr == y || yr <= 0))
|| (mo == 1 && m == 12 && (yr == y+1 || yr <= 0))))
dy += 100; /* make sure 'next month' days are last */
if ((discard_old && dy 0 && isspace(descrip[j])) descrip[j--] = '\0';
descrip[DAY_DESC-5] = '\0'; /* truncate description */
strcpy(&ll[4], descrip);
if (++hiappt > maxappts) hiappt = maxappts;
} while (--weeklyflag > 0); /* dup. weekly reminders */
}
fclose(fp);
}
for (j = 0; j < hiappt; j++)
if (atoi(&lln[j][1]) == 100) break; /* find last item */
if (j == hiappt-1)
lln[--hiappt][0] = '\0';
else if (j < hiappt)
strcat(strcat(strcpy(lln[j], " "), months[m%12]), "--");
free(lln);
return hiappt;
}
#endif /* USE_REMINDER */
/*===========================================================================
* efopen() - fopen() replacement that does path searches
*=========================================================================*/
FILE *efopen(const char *file, const char *mode)
{
FILE *fp;
char str[CAL_MAXPATH];
#ifdef OS2
char path[CAL_MAXPATH];
#endif /* OS2 */
/* Attempt to open file using exact name passed in */
if ((fp = fopen(file, mode)) == NULL) {
/* If not found and we know the users home directory then
* look there. Need to sanitize the filename though.
*/
if (*homedir && strlen(homedir) < CAL_MAXPATH) {
strcpy(str, homedir);
if ((strlen(homedir) + strlen(file) + 1) < CAL_MAXPATH) {
#ifdef UNIX
if (homedir[strlen(homedir)-1] != '/') strcat(str,"/");
if (file[0] != '.') strcat(str, ".");
#else
if (homedir[strlen(homedir)-1] != '/') strcat(str,"\\");
#endif
strcat(str, file);
fp = fopen(str, mode);
}
}
#ifdef OS2
if (fp == NULL) {
_searchenv(file, "PATH", path);
if (*path == '\0')
_searchenv(file, "DPATH", path);
if (*path)
fp = fopen(path, mode);
}
#endif /* OS2 */
/* If still not found then look in a hardcoded path */
if (fp == NULL) {
#ifdef PREFIX
strcpy(str, PREFIX);
#else
/* Note the unix style path; Under DOS/OS/2 you better
* define PREFIX to prevent this from being used!
*/
strcpy(str, "/ect/cal/");
#endif
if (strlen(str) + strlen(file) <= CAL_MAXPATH) {
strcat(str,file);
fp = fopen(str, mode);
}
}
}
return fp;
}
/*===========================================================================
* usage() - called from main() - display commandline usage
*=========================================================================*/
void usage()
{
fputs("\n\
cal 4.0 - Display a monthly or yearly calendar, with optional appointments.\n\n\
Usages: cal [options] [[1|2|3|...|12] year]\n\
cal [options] [jan|feb|mar|...|dec] [year]\n\n\
Options:\n\
--3[months] Display prev/current/next month\n\
--a[ppts]=n Display maximum of n (8-50) appointments (24)\n\
--con[tinue]=n Display successive months n times after the first\n\
--d[ata-file]=file Load appointments from `file'\n\
(default: ",stderr);
#ifdef PREFIX
fputs(PREFIX, stderr);
#else
fputs("/etc/cal/", stderr);
#endif
#ifndef UNIX
fputs("cal.dat)\n", stderr);
#else
fputs("cal.dat, $HOME/.cal.dat)\n", stderr);
#endif
fputs("\
--e[urope] European format (first day is Monday)\n\
--f[uture] Show only future appointments on current month\n\
--j[uian] Display Julian dates (days numbered from 1 January\n\
--m[onday] Display Monday as first day of week (same as --europe)\n\
--nod[ata] Ignore appointment descriptions file\n\
--p[ause] Pause for keystroke before exiting\n\
--th[ismonth] Show only current month appointments\n\
--to[day] Show only today's appointments on current month\n\
--y[ear] Display a calendar for the current year\n", stderr);
#ifdef USE_COLOR
fputs("\
--u[se-color] Allow use of colors\n\
--noc[olor] Inhibit the use of colors\n\
--col[or-file]=file Load color definitions from `file'\n\
(default: ",stderr);
#ifdef PREFIX
fputs(PREFIX, stderr);
#else
fputs("/etc/cal/", stderr);
#endif
#ifndef UNIX
fputs("cal.col)\n", stderr);
#else
fputs("cal.col, $HOME/.cal.col)\n", stderr);
#endif
#endif /* USE_COLOR */
fputs("\n(c) 1992-2002 A. Matulich, Unicorn Research Corporation\n\
http://unicorn.us.com\n", stderr);
}
cal-4.0/src/makefile.unx 0100644 0000764 0000764 00000001307 06750722022 015352 0 ustar cbagwell cbagwell # From: cbagwell@sprynet.com (Chris Bagwell)
# Makefile for "cal"
#
# only tested with GNU gcc
# To use, enter "make -f makefile.unx"
# normal default
DEFAULT_DATA_DIR="\"/files/home/ftp/pub/unicorn/pub/cal35/\""
#DEFAULT_DATA_DIR="\"/usr/lib/\""
RM=rm -f
CC=gcc
# Using -Wall will create some warnings on SunOS that can be ignored.
# CFLAGS=-O2 -Wall -DUNIX -DUSE_REMINDER -DPREFIX=$(DEFAULT_DATA_DIR)
CFLAGS=-O2 -Wall -DUNIX -DUSE_REMINDER
BINDIR=/usr/bin
MANDIR=/usr/man
default: cal
cal : cal.c
$(CC) $(CFLAGS) -o cal cal.c
cal.man : cal.1
nroff -man cal.1 | col > cal.man
install: cal
install -c -m 755 cal $(BINDIR)/cal
install -c -m 644 cal.1 $(MANDIR)/man1/cal.1
clean:
$(RM) cal
cal-4.0/src/notes.os2 0100600 0000764 0000764 00000000447 05672766524 014633 0 ustar cbagwell cbagwell The new (2.9) code to handle display widths wider than 80 columns
has not been implemented in the OS/2 or bound executables. The Vio
calls do not return the proper information in my tests on a paradise
card in 132-column mode (see the VioSetMode docs in the on-line
reference "prcp.inf").
cal-4.0/src/readme.os2 0100600 0000764 0000764 00000001756 06071271500 014717 0 ustar cbagwell cbagwell This archive contains a port to OS/2 1.x--2.x of Matulich's cal 2.9a,
which is an enhanced version of the UNIX cal (see cal.doc).
Notes on files:
./
cal.exe Original DOS executable
cal-os2.exe OS/2 1.x--2.x executable
readme.os2 this file
source/
cal.c unmodified source (Use "patch < patches.os2" for OS/2)
cal.def linker definition file
cal-32.def linker definition file for EMX version
makefile.os2 makefile for EMX/gcc and MSC
notes.os2 notes on this port
Notes:
1. From readme.cal:
This archived collection of files is placed into the Public Domain.
Feel free to redistribute the this archive, but PLEASE make sure the
archive contains all the original files [...]
2. The enclosed executable can be bound to produce a file which will
run under both OS/2 and DOS (see makefile.os2).
3. The original DOS-only version can detect the display width.
--Darrel Hankerson hankedr@mail.auburn.edu
25 July 1993