Можно динамически

AleXp 20.10.2005 11:36

Только вот будет-ли "кис-кис" отзываться на постоянно меняющиеся имена :)

Hint! Динамическое подключение файлов с классами из подкаталогов:

@classesInclude[][_tp1;_tp2]
###################################################################################################
# Метод производит поиск в каталогах $PARCMS_DIRECTORY/modules/<имена классов>/classes/
# и подключает все что найдёт вида <*.p> как классы.
#
# Заполняем таблицу именами каталогов, которые не могут включать в себя символ '.' (0x2e).
$_tp1[^file:list[$PARCMS_DIRECTORY/modules;^^[^^.]+^$]]

^_tp1.menu{
	$_tp2[^file:list[$PARCMS_DIRECTORY/modules/$_tp1.name/classes;\.p^$]]

	^try{
		^_tp2.menu{
			^use[$PARCMS_DIRECTORY/modules/$_tp1.name/classes/$_tp2.name]
		}
	}{
		^if($exception.type eq parser.runtime){
			$exception.handled(1)
		}
	}
}
#end @classesInclude[]

---