99 бутылок пива… (продолжение)

Эпопея о бутылках с пивом продолжается. Сегодня вашему вниманию предлагается тексты программы, выводящие песню о бутылках на языках Small HTTP Server SSI и Price Convertor Short Talk 2.00rc2.

7.SHS SSI -> Small HTTP Server
Вариант реализации SSI для SHS, написанного Максом Фиоктистовым.
Файл должен называться index.shtm.

<!--#if expr="$b=No" -->
<BODY BGCOLOR=BLACK TEXT=WHITE>
No more bottles of beer...<BR>
Go to the store and buy some more...<BR>
99 bottles of beer.</BODY>
<!--#break -->
<!--#endif -->
<!--#set var="" value="" -->
<!--#set var="N" value="No" -->
<!--#set var="9" value="8" -->
<!--#set var="8" value="7" -->
<!--#set var="7" value="6" -->
<!--#set var="6" value="5" -->
<!--#set var="5" value="4" -->
<!--#set var="4" value="3" -->
<!--#set var="3" value="2" -->
<!--#set var="2" value="1" -->
<!--#set var="1" value="0" -->
<!--#set var="0" value="9" -->

<!--#if expr="!$a" -->
<!--#set var="a" value="9" -->
<!--#set var="b" value="9" -->
<!--#set var="s" value="bottles" -->
<!--#set var="m" value="$s" -->
<!--#endif -->
<!--#set var="t" value="$a" -->

<!--#if expr="$b=0" -->
<!--#set var="c" value="$a" -->
<!--#elif expr="$a>0" -->
<!--#set var="c" value="t" -->
<!--#endif -->
<!--#set var="d" value="$b" -->

<!--#if expr="$a=||$a=0||$c=1" -->
<!--#set var="c" value="" -->
<!--#endif -->

<!--#if expr="$d=1&&$c=" -->
<!--#set var="d" value="N" -->
<!--#elif expr="$d=2&&$c=" -->
<!--#set var="m" value="bottle" -->
<!--#endif -->

<HEAD>
<META HTTP-EQUIV="Refresh" Content="1;URL=index.shtm?a=<!--#echo var="$c" -->
&b=<!--#echo var="$d" -->&m=<!--#echo var="m" -->
&s=<!--#echo var="m" -->">
</HEAD>
<BODY BGCOLOR=BLACK TEXT=WHITE>
<!--#echo var="a" --><!--#echo var="b" -->
<!--#echo var="s" --> of beer on the wall,<BR>
Take one and pass it around,<BR>
<!--#echo var="$c" --><!--#echo var="$d" -->
<!--#echo var="m" --> of beer on the wall.
</BODY>

8. Price Contertor Small Talk 2.00rc2.
Этот язык я придумал сам, реализован он мною же года 2 назад, как внутреннее средство управления программой обработки прайсов, представленных виде файлов Excel. Проект закрытого типа, так что ссылки в Интернете на него нет.

BEGIN
        "99"
        mov a "bottle(s) of beer on the wall."
END
WORK    "*"
        eq "No"
        if
                echo "No more bottles of beer..."
                echo "Go to the store and buy some more..."
                echo "99 bottles of beer."
                break ""
        endif

        else
                delete
                mov Y a
                .
                echo
                echo "Take one and pass it around,"
                mov Y "1"
                -
                eq "0"
                if
                        mov Y "No"
                endif

                delete
                mov Y a
                .
                echo
        endelse
        prev
END

16 декабря 2000 14:39

Ваше имя или адрес блога (можно OpenID):

Текст вашего комментария, не HTML: