input:  1
       ;
output: 1
       ;
states:
       NEWBOOK
        ;
aliases:
       AST     = 42
               ;
       SPACE   = 32
               ;
       DAGESH  = 46
               ;
       LCONS   = (65-90|97-122) % latin consonants
               ;
       CONSONANT       = (`('|`)'|`+'|`#'|`&'|`$'| % $
               `B'|`G'|`D'|`H'|`W'|`Z'|`X'|`Y'|`K'|`L'|`M'|`N'|
               `S'|`P'|`C'|`Q'|`R'|`T')
               ;
       VOWEL           = ( `A'|`F'|`I'|`E'|`"'|`O'|`U'|`.'|`:'|`-'|
                       `.'|`''|`*'|`]')
               ;
       DIGIT           = (`0'-`9')
               ;
       PRINTABLE       = ({CONSONANT}|{VOWEL}|{DIGIT})
               ;
       BHS_ARG         = (`q'|`a'|`y'|`m') % letters following the right
               ;                           % square bracket
expressions:
%% The limited markup in the BHS file always begins with a tilde.
      `@'`c'`"'{LCONS}<1,>`"'`x'`"'`t'`"'=> "{\clearocplists\NewBook{"
                 <push: NEWBOOK>
                 ;
       <NEWBOOK>`@'`x' => "}}\NewChapter \NewVerse " <pop:>
                 ;
       `@' `x' => "\NewChapter \NewVerse "
                 ;
       `@' `y' => "\NewVerse "
                ;
%% We need to deal with ketiv (*) and qere (**) variants.
       {AST}{AST}      => "\qere*"
               ;
       {AST}           => "\ketiv "
               ;
%% BHS uses a lonely P and S to indicate a `new par' or large space in
%% the text.
       `P' 32 `@'       => "\NewParAfterVerse "
                        <= `@'
               ;
        `S' 32 `@'     => "\LargeHSpace "
                      <= `@'
                  ;
%% cantorial trope.
%% Special cases first...
%%
%% For some reason, the telisha gedola sometimes precedes the initial
%% consonant of its word.  Makor cannot handle this.
       {SPACE}`1'`4' {CONSONANT} {DAGESH}      =>
                       32
                       <= \4 `.' `1' `4'
               ;
       {SPACE}`1'`4' {CONSONANT}       =>
                       32
                       <= \4 `1' `4'
               ;
%% In BHS, the meteg follows a vowel.  In Makor, it precedes the vowel.
%% So we need to bring BHS in line with Makor.
       `F'`7'`5'       => `|'`+'
               ;
       `A'`7'`5'     => `|'`a'
               ;
       `I'`7'`5'     => `|'`i'
               ;
       `:'`7'`5'     => `|'`:'
               ;
       `E'`7'`5'     => `|'`e'
               ;
       34 `7'`5'     => `|'`"'
               ;
       `"'`7'`5'     => `|'`"'
               ;
%% In BHS, the holamdot is considered a vowel belonging to the
%% preceding letter.  Trope can therefore follow a holamdot.  This is
%% not the case in Makor, where the holamdot---admittedly occupying a
%% funny position in a no-man's-land between vowelness and
%% consonantness---comes after all vowels, etc of the letter.  The
%% following code helps bring BHS in line with Makor conventions.
       `O'`0'`1'       => `['`s'`e'`g'`o'`l'`]'
                       <= \1
               ;
       `O'`0'`2'       => `['`z'`a'`r'`q'`a'`]'
                       <= \1
               ;
       `O'`0'`3'       => `['`p'`a'`s'`h'`t'`a'`]'
                       <= \1
               ;
       `O'`0'`5'       => `|'`|'
                       <= \1
               ;
       `O'`1'`0'       => `['`y'`e'`t'`i'`v'`]'
                       <= \1
               ;
       `O'`1'`3'       => `['`t'`i'`p'`e'`h'`a'`]'
                       <= \1
               ;
       `O'`1'`4'       => `['`t'`e'`l'`i'`s'`h'`a'`g'`e'`d'`o'`l'`a'`]'
                       <= \1
               ;
       `O'`2'`4'       => `['`t'`e'`l'`i'`s'`h'`a'`q'`e'`t'`a'`n'`a'`]'
                       <= \1
               ;
       `O'`4'`4'       => `['`t'`e'`l'`i'`s'`h'`a'`g'`e'`d'`o'`l'`a'`]'
                       <= \1
               ;
       `O'`6'`0'       => `['`m'`a'`h'`a'`p'`a'`k'`h'`]'
                       <= \1
               ;
       `O'`6'`1'       => `['`g'`e'`r'`e'`s'`h'`]'
                       <= \1
               ;
       `O'`6'`2'       => `['`g'`e'`r'`s'`h'`a'`y'`i'`m'`]'
                       <= \1
               ;
       `O'`6'`3'       => `['`q'`a'`d'`m'`a'`]'
                       <= \1
               ;
       `O'`6'`4'       => `['`i'`l'`u'`y'`]'
                       <= \1
               ;
       `O'`6'`5'       => `['`s'`h'`a'`l'`s'`h'`e'`l'`e'`t'`]'
                       <= \1
               ;
       `O'`8'`0'       => `['`z'`a'`q'`e'`f'`q'`a'`t'`a'`n'`]'
                       <= \1
               ;
       `O'`8'`1'       => `['`r'`e'`v'`i'`a'`]'
                       <= \1
               ;
       `O'`8'`2'       => `['`z'`i'`n'`o'`r'`]'
                       <= \1
               ;
       `O'`8'`3'       => `['`p'`a'`z'`e'`r'`]'
                       <= \1
               ;
       `O'`8'`4'       => `['`q'`a'`r'`n'`e'`y'`p'`a'`r'`a'`]'
                       <= \1
               ;
       `O'`8'`5'       => `['`z'`a'`q'`e'`f'`g'`a'`d'`o'`l'`]'
                       <= \1
               ;
       `O'`7'`0'       => `['`m'`a'`h'`a'`p'`a'`k'`h'`]'
                       <= \1
               ;
       `O'`7'`1'       => `['`m'`e'`r'`k'`h'`a'`]'
                       <= \1
               ;
       `O'`7'`2'       => `['`m'`e'`r'`k'`h'`a'`k'`e'`f'`u'`l'`a'`]'
                       <= \1
               ;
       `O'`7'`3'       => `['`t'`i'`p'`e'`h'`a'`]'
                       <= \1
               ;
       `O'`7'`4'       => `['`m'`u'`n'`a'`h'`]'
                       <= \1
               ;
       `O'`7'`5'       => `|'
                       <= \1
               ;
       `O'`9'`1'       => `['`t'`e'`v'`i'`r'`]'
                       <= \1
               ;
       `O'`9'`2'       => `['`e'`t'`n'`a'`h'`t'`a'`]'
                       <= \1
               ;
       `O'`9'`3'       => `['`d'`e'`h'`i'`]'
                       <= \1
               ;
       `O'`9'`4'       => `['`d'`a'`r'`g'`a'`]'
                       <= \1
               ;
       `O'`9'`5'       => `|'
                       <= \1
               ;
%% Here are the straightforward trope conventions, now that the
%% special cases have been dealt with.
       `3'`3'  =>
               ;
       `0'`1'  => `['`s'`e'`g'`o'`l'`]'
               ;
       `0'`2'  => `['`z'`a'`r'`q'`a'`]'
               ;
       `0'`3'  => `['`p'`a'`s'`h'`t'`a'`]'
               ;
       `0'`4'  => `['`t'`e'`l'`i'`s'`h'`a'`q'`e'`t'`a'`n'`a'`]'
               ;
       `0'`5'  => 32 `|'`|'
               ;
       `1'`0'  => `['`y'`e'`t'`i'`v'`]'
               ;
       `1'`3'  => `['`t'`i'`p'`e'`h'`a'`]'
               ;
       `1'`1'  =>
               ;
       `1'`4'  => `['`t'`e'`l'`i'`s'`h'`a'`g'`e'`d'`o'`l'`a'`]'
               ;
       `2'`4'  => `['`t'`e'`l'`i'`s'`h'`a'`q'`e'`t'`a'`n'`a'`]'
               ;
       `4'`4'  => `['`t'`e'`l'`i'`s'`h'`a'`g'`e'`d'`o'`l'`a'`]'
               ;
       `6'`0'  => `['`m'`a'`h'`a'`p'`a'`k'`h'`]'
               ;
       `6'`1'  => `['`g'`e'`r'`e'`s'`h'`]'
               ;
       `6'`2'  => `['`g'`e'`r'`s'`h'`a'`y'`i'`m'`]'
               ;
       `6'`3'  => `['`q'`a'`d'`m'`a'`]'
               ;
       `6'`4'  => `['`i'`l'`u'`y'`]'
               ;
       `6'`5'  => `['`s'`h'`a'`l'`s'`h'`e'`l'`e'`t'`]'
               ;
       `8'`0'  => `['`z'`a'`q'`e'`f'`q'`a'`t'`a'`n'`]'
               ;
       `8'`1'  => `['`r'`e'`v'`i'`a'`]'
               ;
       `8'`2'  => `['`z'`i'`n'`o'`r'`]'
               ;
       `8'`3'  => `['`p'`a'`z'`e'`r'`]'
               ;
       `8'`4'  => `['`q'`a'`r'`n'`e'`y'`p'`a'`r'`a'`]'
               ;
       `8'`5'  => `['`z'`a'`q'`e'`f'`g'`a'`d'`o'`l'`]'
               ;
       `7'`0'  => `['`m'`a'`h'`a'`p'`a'`k'`h'`]'
               ;
       `7'`1'  => `['`m'`e'`r'`k'`h'`a'`]'
               ;
       `7'`2'  => `['`m'`e'`r'`k'`h'`a'`k'`e'`f'`u'`l'`a'`]'
               ;
       `7'`3'  => `['`t'`i'`p'`e'`h'`a'`]'
               ;
       `7'`4'  => `['`m'`u'`n'`a'`h'`]'
               ;
       `7'`5'  => `|'
               ;
       `9'`1'  => `['`t'`e'`v'`i'`r'`]'
               ;
       `9'`2'  => `['`e'`t'`n'`a'`h'`t'`a'`]'
               ;
       `9'`3'  => `['`d'`e'`h'`i'`]'
               ;
       `9'`4'  => `['`d'`a'`r'`g'`a'`]'
               ;
       `9'`5'  => `|'
               ;
%% BHS also uses an unattached right square bracket as an indicator
%% for miscellaneous items.  Most of them get zero-ed out.
       `]' `8' => 136 % reflected nun
               ;
       `]' {DIGIT}     =>
               ;
        `]' {BHS_ARG}   =>
                 ;
       `A'`9'`5'       => `|'`"'
               ;
       `E'`9'`5'       => `|'`e'
               ;
       `F'`9'`5'       => `|'`+'
               ;
       `I'`9'`5'       => `|'`i'
               ;
       `9'`5'  => `|'
               ;
       `0'`0' end:             => `:' 32 32 %<push: ENDVERSE>
               ;
       `0'`0'{SPACE}<0,9>              => `:' 32 32 %<push: ENDVERSE>
               ;
       `W'`.'  => `o'`o'
               ;
       `O'`W'  => `O'
               ;
       `:'`A'  => `:'`a'
               ;
       `:'`F'  => `:'`+'
               ;
       `:'`E'  => `:'`e'
               ;
%% Dagesh forms...
       `)'`.'  => `^' 39 `^' 39 % alef;
               ;
       `B'`.'  => `b'
               ;
       `G'`.'  => `g'`g'
               ;
       `D'`.'  => `d'`d'
               ;
       `H'`.'  => `h'`h'
               ;
       `W'`.'  => `o'`o'
               ;
       `Z'`.'  => `z'`z'
               ;
       `X'`.'  => `c'`h'`*'
               ;
       `+'`.'  => `.' `t' `.' `t'
               ;
       `Y'`.'  => `y'`y'
               ;
       `K'`.'  => `k'
               ;
       `L'`.'  => `l'`l'
               ;
       `M'`.'  => `m'`m'
               ;
       `N'`.'  => `n'`n'
               ;
       `S'`.'  => `.'`s'`.'`s'
               ;
       `('`.'  => 96 96
               ;
       `P'`.'  => `p'
               ;
       `C'`.'  => `t'`s'`t'`s'
               ;
       `Q'`.'  => `q'`q'
               ;
       `R'`.'  => `r'`r'
               ;
       `#'`.'  => `s'`h'`s'`h'
               ;
       `&'`.'  => `^'`s'`h'`s'`h'
               ;
       36 `.'  => `s'`h'`s'`h'`^'
               ;
       `T'`.'  => `t'
               ;
%% Single char input for consonants.
       `O' `)' => `o' `^' 39
               ;
       `)'     => `^' 39 % alef;
               ;
       `B'     => `v'
               ;
       `G'     => `g'
               ;
       `D'     => `d'
               ;
       `H'     => `h'
               ;
       `W'     => `w'
               ;
       `Z'     => `z'
               ;
       `X'     => `c'`h'
               ;
       `+'     => `.' `t'
               ;
       `Y'     => `y'
               ;
       `K'     => `k'`h'
               ;
       `L'     => `l'
               ;
       `M'     => `m'
               ;
       `N'     => `n'
               ;
       `S'     => `.'`s'
               ;
       `('     => 96
               ;
       `P'     => `f'
               ;
       `C'     => `t'`s'
               ;
       `Q'     => `q'
               ;
       `R'     => `r'
               ;
       `#'     => `s'`h'
               ;
       `&'     => `^'`s'`h'
               ;
       36      => `s'`h'`^'
               ;
       `T'     => `t'`h'
               ;
%% Vowels
       `A'     => `a'
               ;
       `F'     => `a'`u'
               ;
       `I'     => `i'
               ;
       `E'     => `e'
               ;
       `"'     => `e' `i'
               ;
       `O'     => `o'
               ;
       `U'     => `u'
               ;
       `:'     => `_' 39
               ;
       `-'     => `-'
               ;

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.