Gecko [ 122.154.134.11 ]

Name	Size	Permission
Uxnsh.fd	2 KB	-rw-r--r--
abidir.sty	9.27 KB	-rw-r--r--
abjad.sty	2.18 KB	-rw-r--r--
aboxes.sty	16 KB	-rw-r--r--
acjk.sty	895 B	-rw-r--r--
acmd.sty	11.21 KB	-rw-r--r--
aconfig.sty	3.32 KB	-rw-r--r--
aedpatch.sty	6.75 KB	-rw-r--r--
afonts.sty	1.63 KB	-rw-r--r--
afonts0.sty	2.23 KB	-rw-r--r--
afonts1.sty	1.75 KB	-rw-r--r--
afonts2.sty	1.87 KB	-rw-r--r--
afoot.sty	3.31 KB	-rw-r--r--
alatex.sty	5.54 KB	-rw-r--r--
aligs.sty	20.09 KB	-rw-r--r--
alists.sty	6.48 KB	-rw-r--r--
alocal.sty	623 B	-rw-r--r--
altxext.sty	3.41 KB	-rw-r--r--
amac.sty	6.92 KB	-rw-r--r--
aoutput.sty	5.76 KB	-rw-r--r--
aparse.sty	34.32 KB	-rw-r--r--
apatch.sty	83.18 KB	-rw-r--r--
arababel.sty	1.1 KB	-rw-r--r--
arabart.cls	778 B	-rw-r--r--
arabaux.sty	3.85 KB	-rw-r--r--
arabbook.cls	771 B	-rw-r--r--
arabchrs.sty	2.89 KB	-rw-r--r--
arabext.sty	3.37 KB	-rw-r--r--
arabrep.cls	31.25 KB	-rw-r--r--
arabrep1.cls	26.42 KB	-rw-r--r--
arabskel.sty	8.74 KB	-rw-r--r--
arabsymb.sty	8.52 KB	-rw-r--r--
arabtex.sty	23.53 KB	-rw-r--r--
arabtex.tex	4.43 KB	-rw-r--r--
arabtoks.sty	6.47 KB	-rw-r--r--
arwindoc.tex	4.3 KB	-rw-r--r--
ascan.sty	14.94 KB	-rw-r--r--
asect.sty	12.82 KB	-rw-r--r--
asize10.clo	1.15 KB	-rw-r--r--
asize11.clo	1.15 KB	-rw-r--r--
asize12.clo	1.15 KB	-rw-r--r--
asmo449.sty	4.24 KB	-rw-r--r--
asmo449a.sty	4.83 KB	-rw-r--r--
atabg.sty	4.44 KB	-rw-r--r--
atrans.sty	18.47 KB	-rw-r--r--
awrite.sty	11.97 KB	-rw-r--r--
bhs.sty	7.06 KB	-rw-r--r--
bhslabel.sty	4.38 KB	-rw-r--r--
buck.sty	8.1 KB	-rw-r--r--
captions.def	1.86 KB	-rw-r--r--
cp1256.sty	6.81 KB	-rw-r--r--
etrans.sty	163 B	-rw-r--r--
gedalin.sty	4.27 KB	-rw-r--r--
guha.tex	1.06 KB	-rw-r--r--
hebchrs.sty	5.09 KB	-rw-r--r--
hebsymb.sty	1.62 KB	-rw-r--r--
hebtex.sty	2.6 KB	-rw-r--r--
hebtex.tex	4.03 KB	-rw-r--r--
hecmd.sty	7.39 KB	-rw-r--r--
hefonts.sty	1.63 KB	-rw-r--r--
hefonts0.sty	1.42 KB	-rw-r--r--
hefonts1.sty	1.18 KB	-rw-r--r--
hefonts2.sty	1.79 KB	-rw-r--r--
heparse.sty	8.32 KB	-rw-r--r--
hepatch.sty	1.22 KB	-rw-r--r--
hescan.sty	8.41 KB	-rw-r--r--
hetrans.sty	3.33 KB	-rw-r--r--
hewrite.sty	21.65 KB	-rw-r--r--
hmac.sty	6.3 KB	-rw-r--r--
isiri.sty	7.96 KB	-rw-r--r--
iso88596.sty	896 B	-rw-r--r--
kashmiri.tex	3.47 KB	-rw-r--r--
ligtable.tex	3.59 KB	-rw-r--r--
malay.tex	1.18 KB	-rw-r--r--
nashbf.sty	156 B	-rw-r--r--
omar.tex	1022 B	-rw-r--r--
raw.sty	1.45 KB	-rw-r--r--
saw.sty	1.3 KB	-rw-r--r--
sindhi.tex	4.25 KB	-rw-r--r--
sotoku.sty	1.55 KB	-rw-r--r--
twoblks.sty	4 KB	-rw-r--r--
uheb.fd	3.47 KB	-rw-r--r--
uighur.tex	3.26 KB	-rw-r--r--
unash.fd	1.42 KB	-rw-r--r--
utf8.sty	1.28 KB	-rw-r--r--
utfcode.sty	10.68 KB	-rw-r--r--
verses.sty	3.55 KB	-rw-r--r--
witbhs.sty	7.1 KB	-rw-r--r--
xarbskel.sty	7.18 KB	-rw-r--r--
xarbsymb.sty	9.22 KB	-rw-r--r--
yiddish.sty	6.1 KB	-rw-r--r--

Code Editor : bhslabel.sty

%%%%%%%%%%%%%%%%%%%%%%%%%%% bhslabel.sty %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% bhslabel.sty
% called by bhs.sty
% generate markup from BHS label notation
% 01.12.1998
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% (c) Klaus Lagally
%     Institut fuer Informatik
%     Universitaet Stuttgart
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\a@ident {bhslabel.sty} {3.00 BHS label markup} {01.12.1998}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\xpa \gdef \csname a@c@\string ~\endcsname #1 {% get BHS label
%\tracingmacros 1
\def \bhs@@label {#1}\bhs@label #1\@ 
\tracingmacros 0
\bhs@out \test@token }

\errorcontextlines 10

\def \is@digit #1{\is@in@list #10123456789>}

\def \is@label #1{\is@in@list #1abcvwxyz>}

\def \bhs@err {% illegal BHS label
\errmessage {illegal BHS label `\bhs@@label'}}

\def \bhs@label #1{% start processing BHS label
\if\is@label #1\bhs@init {#1}\let \next \bhs@A 
\else \let \next \bhs@err 
\fi \next }

{\catcode `\" 12
\gdef \bhs@A #1{% get label value
\ifx #1\@ \bhs@store \let \next \relax \else
\ifx #1"\let \next \bhs@B \else 
\if\is@label #1\bhs@store % null value
	\bhs@init {#1}\let \next \bhs@A \else
\if\is@digit #1\def \bhs@value {#1}\let \next \bhs@D \else
	\let \next \bhs@err 
\fi\fi\fi\fi \next }

\gdef \bhs@B #1"{% get label string value
\def \bhs@kind {S}\def \bhs@value {#1}\bhs@C }

\gdef \bhs@C #1{% get next label after string
\ifx #1\@ \bhs@store \let \next \relax \else
\if\is@label #1\bhs@store 
	\bhs@init {#1}\let \next \bhs@A \else
	\let \next \bhs@err 
\fi\fi \next }

\gdef \bhs@D #1{% get next digit
\def \bhs@kind {I}%
\ifx #1\@ \bhs@store \let \next \relax \else
\if\is@label #1\bhs@store
	\bhs@init {#1}\let \next \bhs@A \else
\if\is@digit #1\edef \bhs@value {\bhs@value #1}%
	\let \next \bhs@D \else
	\let \next \bhs@err 
\fi\fi\fi \next }
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcount \bhs@cnt
\newif \ifbhs@outa	\newif \ifbhs@outx
\newif \ifbhs@outy	\newif \ifbhs@outz

\def \bhs@init #1{% init label
\def \bhs@name {#1}\def \bhs@value {}\def \bhs@kind {N}}

\def \bhs@store {% store label value and execute
\begingroup \edef \x {\endgroup \if N\bhs@kind \nxp \bhs@inc {\bhs@name }%
\else \nxp \bhs@set {\bhs@name }{\bhs@value }{\bhs@kind }\fi }\x }

\def \bhs@set #1#2#3{% set label value
\csname bhs@#1set\endcsname {#2}{#3}}

\def \bhs@inc #1{% increase label value
\if I\csname bhs@#1kind\endcsname \bhs@cnt \csname bhs@#1value\endcsname 
	\advance \bhs@cnt 1 \begingroup 
	\edef \x {\endgroup \nxp \bhs@set {#1}{\the\bhs@cnt }{I}}\x 
\else \errmessage {BHS level `#1' has no numeric value}%
	\bhs@set {#1}{1}{I}%
\fi }

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def \bhs@aset #1#2{% set level a
\def \bhs@avalue {#1}\def \bhs@akind {#2}\bhs@outatrue 
\bhs@xset {0}{I}\bhs@yset {0}{I}\bhs@zset {0}{I}}

\def \bhs@bset #1#2{% set level b
\def \bhs@bvalue {#1}\def \bhs@bkind {#2}}

\def \bhs@cset #1#2{% set level c
\def \bhs@cvalue {#1}\def \bhs@ckind {#2}}

\def \bhs@zset #1#2{% set level z
\def \bhs@zvalue {#1}\bhs@outztrue \def \bhs@zkind {#2}}

\def \bhs@yset #1#2{% set level y
\def \bhs@ykind {#2}\def \bhs@value {#1}%
\ifx \bhs@yvalue \bhs@value \else 
	\def \bhs@yvalue {#1}\bhs@outytrue \bhs@zreset 
	\if #2I\ifnum #1 = 0 
		\bhs@outyfalse \bhs@outzfalse
	\fi\fi
\fi }

\def \bhs@xset #1#2{% set level x
\def \bhs@xkind {#2}\def \bhs@value {#1}%
\ifx \bhs@xvalue \bhs@value \else 
	\def \bhs@xvalue {#1}\bhs@outxtrue \bhs@yreset 
	\if #2I\ifnum #1 = 0 
		\bhs@outxfalse \bhs@outyfalse \bhs@outzfalse
	\fi\fi
\fi }

\def \bhs@yreset {% reset level y
\def \bhs@yvalue {1}\def \bhs@ykind {I}\bhs@outytrue \bhs@zreset }

\def \bhs@zreset {% reset level z
\def \bhs@zvalue {1}\def \bhs@zkind {I}\bhs@outztrue }

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def \bhs@yout {% verse
\putwordb@x {\tracingmacros 0 \rm $^{\bhs@yvalue }$\space }\a@spacetrue }

\def \bhs@xout {% chapter
\putwordb@x {\tracingmacros 0 \bf \bhs@xvalue \space }}

\def \bhs@aout {% heading
{\tracingmacros 0 \rm \hfill \bhs@@label }\bigskip }

\def \bhs@out {% print new label
\ifbhs@outa \bhs@outafalse \bhs@aout \fi
\ifbhs@outx \bhs@outxfalse \bhs@xout \fi
\ifbhs@outy \bhs@outyfalse \bhs@yout \fi }

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\endinput
%%%%%%%%%%%%%%%%%%%%%%%% EOF %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

${this.title}

Code Editor : bhslabel.sty