А как получить путь к базовому классу после подключения дочернего?

virusav 19.09 13:53

parent/parent.p:

@CLASS
Parent

@auto[sFilePath;sClassName]
	$self.sCURRENT_DIR[^file:dirname[$sFilePath]]
	$self.sCURRENT_DIR[^self.sCURRENT_DIR.mid(^request:document-root.length[])]

@create[]
	$self.sPATH[$self.sCURRENT_DIR]

child/child.p:

@CLASS
Child

@USE
../parent/parent.p

@OPTIONS
locals

@BASE
Parent

Подключаем дочерний класс и теряем путь к родительскому в sCURRENT_DIR:

@main[]
	^use[child/child.p]

	$oParent[^Parent::create[]]
	$oChild[^Child::create[]]

	$Child:sCURRENT_DIR - /child
	$Parent:sCURRENT_DIR - /child
	$oChild.sCURRENT_DIR - /child
	$oChild.sPATH - /child
	$oParent.sCURRENT_DIR - /child
	$oParent.sPATH - /child

Как путь к базовому классу после подключения дочернего?

---