parser

Написать ответ на текущее сообщение

 

 
   команды управления поиском

Получилось

virusav 31.10 17:59

Сделал отдельный метод для переподключения одного файла или со всеми auto.p от корня, но он работает только с абсолютным путем:
########################################
@getAutoList[sFilePath][locals]
	$tResult[^table::create{path}]
	$sFileDir[^file:dirname[/^sFilePath.trim[/]]]
	$tSplit[^sFileDir.split[/]]
	$sPath[]
	^tSplit.menu{
		^if(def $tSplit.piece){
			$sPath[$sPath/$tSplit.piece]
		}
		$sAutoPath[$sPath/auto.p]
		^if(-f "$sAutoPath"){
			^tResult.append{$sAutoPath}
		}
	}
	$result[$tResult]



########################################
#	sFilePath - абсолютный путь к файлу
#	bIncludeAuto - подключать ли все auto.p по цепочке
@forceUse[sFilePath;bIncludeAuto][locals]
	$sFilePath[^sFilePath.match[/+][g]{/}]
	^if($bIncludeAuto){
		$tFiles[^getAutoList[$sFilePath]]
	}{
		$tFiles[^table::create{path}]
	}
	^tFiles.append{$sFilePath}
	^tFiles.menu{
		$fFile[^file::load[text;$tFiles.path]]
		^process[$MAIN:CLASS]{^taint[as-is][$fFile.text]}[
			$.file[$tFiles.path]
		]
	}
	$result[]
С помощью forceUse[filename;1] решил проблему.

Осталось только получить полный путь к подключаемому файлу.)