Визуализация string, int/double, bool и hash

AleXp 02.10.2005 21:46

Мож надо кому?

@debugShowString[text]
###################################################################################################
# Визуализация объекта класса string
#
#    string
#    debugShowString[
#        string text
#    ]
#
$result[<strong>$text</strong> (string)<br>]
#end @debugShowString[]




@debugShowDouble[d]
###################################################################################################
# Визуализация объекта класса int или double
#
#    string
#    debugShowDouble[
#        int/double d
#    ]
#
$result[<strong>$d</strong> (int/double)<br>]
#end @debugShowDouble[]




@debugShowBool[b]
###################################################################################################
# Визуализация объекта класса bool
#
#    string
#    debugShowBool[
#        bool b
#    ]
#
$result[<strong>^if($b){true}{false}</strong> (bool)<br>]
#end @debugShowBool[]




@debugShowVoid[v]
###################################################################################################
# Визуализация пустых объектов
#
#    string
#    debugShowVoid[
#        void v
#    ]
#
$result[<strong>Значение не присвоено (void)</strong><br>]
#end @debugShowVoid[]




@debugShowHash[h][k;v;_s]
###################################################################################################
# Визуализация объекта класса hash
#
#    string
#    debugShowHash[
#        hash h
#    ]
#
<br>
$self._s[$self._s&nbsp^;&nbsp^;&nbsp^;&nbsp^;&nbsp^;&nbsp^;&nbsp^;&nbsp^;&nbsp^;&nbsp^;&nbsp^;&nbsp^; ]
^h.foreach[k;v]{
        ^if(!def $v){$self._s^$.$k = ^debugShowVoid[$v]}
        ^if($v is bool){$self._s^$.$k = ^debugShowBool[$v]}
        ^if($v is string){$self._s^$.$k = ^debugShowString[$v]}
        ^if($v is int || $v is double){$self._s^^#24.$k = ^debugShowDouble($v)}
        ^if($v is hash){
                $self._s^$.$k (hash) = ^debugShowHash[$v]
                $self._s[^self._s.mid(^eval(^self._s.pos[ ]+1))]
        }
}
#end @debugShowHash[]

$TRUE и $FALSE - это такое переменные, которые я использую^

$TRUE(def 1)
$FALSE(!$TRUE)

И проверочный hash:

$aMenuLinks[
        $.0[
                $.0[Новости]
                $.1[news]
                $.2[]
                $.3[
                        $.ALT[Новости магазина]
                        $.TITLE[Новости магазина ОТКРЫТОЕ МОРЕ"]
                ]
                $.4[$TRUE]
        ]
        $.1[
                $.0[Цены и скидки]
                $.1[cost]
                $.2[]
                $.3[
                        $.ALT[Принципы формирования цен]
                        $.TITLE[Цены и скидки магазина ОТКРЫТОЕ МОРЕ"]
                ]
                $.4[$TRUE]
        ]
        $.2[
                $.0[Способы покупки]
                $.1[howbuy]
                $.2[]
                $.3[
                        $.ALT[Как купить?]
                        $.TITLE[Как можно совершать покупки в магазине ОТКРЫТОЕ МОРЕ"]
                ]
                $.4[$TRUE]
        ]
        $.3[
                $.0[О компании]
                $.1[about]
                $.2[]
                $.3[
                        $.ALT[О нас]
                        $.TITLE[Рассказ о компании ОТКРЫТОЕ МОРЕ"]
                ]
                $.4[$TRUE]
        ]
        $.4[
                $.0[Команда]
                $.1[team]
                $.2[]
                $.3[
                        $.ALT[Мы]
                        $.TITLE[Команда ОТКРЫТОЕ МОРЕ"]
                ]
                $.4[$TRUE]
        ]
        $.5[
                $.0[Вакансии]
                $.1[team]
                $.2[]
                $.3[
                        $.ALT[Карьера с нами]
                        $.TITLE[Вакансии компании ОТКРЫТОЕ МОРЕ"]
                ]
                $.4[$TRUE]
        ]
]

Красиво выглядит!

---