summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/calendar/hlist.sty
blob: 33082c66c182bb44bdb94294f4072505ed82b575 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
%%
%% This is file `hlist.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% htmlstuf.dtx  (with options: `htmlevent')
%% This file is part of the Calendar package,
%% Copyright (C) 1996, 1997 Frank Bennett, Jr.
%% All rights reserved.
%% ------------------------------------------
%% 
%% IMPORTANT NOTICE:
%% 
%% You are not allowed to change this file.  You may however copy
%% this file to a file with a different name and then change the
%% copy if (a) you do not charge for the modified code, (b) you
%% acknowledge the author of this file in the new file, if it
%% is distributed to others, and (c) you attach these same
%% conditions to the new file.
%% 
%% You are not allowed to distribute this file alone.  You are not
%% allowed to take money for the distribution or use of this file
%% (or a changed version) except for a nominal charge for copying
%% etc.
%% 
%% You are allowed to distribute this file under the condition that
%% it is distributed with all of its contents, intact.
%% 
%% For error reports, or offers to help make this a more powerful,
%% friendlier, and altogether more thrilling package, please contact me on
%% fb@soas.ac.uk.  Better yet, make a contribution to
%% my pension.  Account details available on request.
%% ------------------------------------------
%% 
\NeedsTeXFormat{LaTeX2e}[1995/06/01]
\ProvidesPackage{hlist}
          [1997/11/07 10:44:05 2.2 HTML Event List (Frank Bennett)]
\input calopts.cfg
\InputIfFileExists{dates.cfg}{}{}
\ProcessOptions
\ProcessOptions
\RequirePackage{calendar}
\define@key{opt}{textnum}{%
  \dates@textnum=#1\relax}
\define@key{opt}{outputfile}{%
  \@ifundefined{html@outputfile}
    {\newwrite\html@output%
     \gdef\html@outputfile{#1}%
     \immediate\openout\html@output=\html@outputfile}
    {\gdef\el@temp{#1}%
     \ifx\html@outputfile\el@temp%
       \relax%
     \else%
       \immediate\closeout\html@output%
       \gdef\html@outputfile{#1}%
       \immediate\openout\html@output=\html@outputfile\relax%
    \fi}}
\def\el@item{<LI><A NAME="\the\dates@date">\theday\space\themonth\space\theyear</A>}
\newcalendar%
{htmllist}
{\el@output}
{8}
{1}
{1}
{}
{I}
{<UL>}
{</UL>}
{}
{}
{\dates@requiremonthtrue\dates@requiredaytrue}
{\global\dates@date\cal@range@start%
 \caldate%
  \message{^^JStart: \theshortweekday\space%
    \theday\space\theshortmonth\space\theyear}%
  \global\dates@date\cal@range@end%
  \caldate%
  \message{^^JEnd: \theshortweekday\space%
    \theday\space\theshortmonth\space\theyear}%
  \global\dates@date\cal@range@start%
  \caldate%
  \def\el@output##1{\ifcat$##1$\else\immediate\write\html@output{##1}\fi}}%
{}%
{\cal@get@appointments\cal@get@events}%
{\relax%
   \ifnum\dates@time@start>0\relax%
    \ifnum\dates@time@start=\dates@time@end%
      \protected@edef\cal@entry@text{%
        ^^J\space\space\space\space<LI>\thetimestart\space%
        \thelongtext}%
    \else%
      \protected@edef\cal@entry@text{%
        ^^J\space\space\space\space<LI>\thetimestart--\thetimeend\space%
        \thelongtext}%
    \fi%
  \else%
      \protected@edef\cal@entry@text{%
      ^^J<BR>\thelongtext}%
  \fi}%
{\ifcat$\theevents\theappointments$\else%
\el@item%
\fi%
\ifcat$\theevents$\else%
  \theevents%
\fi%
\ifcat$\theappointments$\else%
 ^^J\space\space\space\space<UL>%
 \theappointments%
 ^^J\space\space\space\space</UL>%
\fi}
\endinput
%%
%% End of file `hlist.sty'.