Ответ

Max 24.07.2002 14:08

Вот тут кое-что написал, только вот почему-то дальше 4-го уровня ничего не видит:

^use[/test.p]

$dir[^file:list[/]]
$sample:directories[^table::create{name	flag}]

^sample:scanDir[$sample:directories.name]

$end[1]

^while($end){

	^if($sample:directories.flag > 0){
		 ^sample:scanDir[$sample:directories.name]
	}
	
	^sample:directories.offset(1)
	
	^if(^sample:directories.line[] eq ^sample:directories.count[]){
		 $end[]
	}
}

test.p:

@CLASS
sample

@scanDir[dir]

$inner_dir_list[^file:list[$dir]]

^inner_dir_list.menu{

	$dirCandidate[${dir}/$inner_dir_list.name]

	^if(-d $dirCandidate && $dirCandidate ne "cgi-bin/parser3.exe"){
		
		 ^directories.append{$dirCandidate	0}
		
		 $preCandidates[^file:list[$dirCandidate]]
		
		 ^preCandidates.menu{
		
			  ^if(-d "${dirCandidate}/$preCandidates.name"){

				    ^directories.append{${dirCandidate}/$preCandidates.name	1}
				
			  }
		 }
	}
}

---