| [613] | 1 | XPDB1 ;SFISC/RSD - Build utilities ;05/28/99 10:15
|
|---|
| 2 | ;;8.0;KERNEL;**108**;Jul 10, 1995
|
|---|
| 3 | Q
|
|---|
| 4 | LOOK() ;Lookup BUILD, build XPDT from build file
|
|---|
| 5 | ;XPDT(seq #)=ien^name
|
|---|
| 6 | ;XPDT("DA",ien)=seq #
|
|---|
| 7 | N XPD,XPDA,XPDI,XPDNM,X,Y,Z K XPDT
|
|---|
| 8 | S XPDT=0
|
|---|
| 9 | S XPDA=$$DIC^XPDE("AEMQZ",,1) Q:'XPDA -1
|
|---|
| 10 | S XPDI=$P(Y(0),U)
|
|---|
| 11 | ;if type is Global Package, set DIRUT if there is other packages
|
|---|
| 12 | I $P(Y(0),U,3)=2 W " GLOBAL PACKAGE"
|
|---|
| 13 | D PCK(XPDA,XPDI)
|
|---|
| 14 | G:$P(Y(0),U,3)'=1 LKX
|
|---|
| 15 | ;multi-package
|
|---|
| 16 | W " (Multi-Package)" S X=0
|
|---|
| 17 | F S X=$O(^XPD(9.6,XPDA,10,X)) Q:'X S Z=$P($G(^(X,0)),U) D:Z]""
|
|---|
| 18 | .N XPDA,X
|
|---|
| 19 | .W !?3,Z S XPDA=$O(^XPD(9.6,"B",Z,0))
|
|---|
| 20 | .I 'XPDA W " **Can't find definition in Build file**" Q
|
|---|
| 21 | .I $D(XPDT("DA",XPDA)) W " already listed" Q
|
|---|
| 22 | .D PCK(XPDA,Z)
|
|---|
| 23 | LKX Q XPDA
|
|---|
| 24 | ;
|
|---|
| 25 | PCK(XPDA,XPDNM) ;XPDA=Build ien, XPDNM=Build name
|
|---|
| 26 | N Y
|
|---|
| 27 | S XPDT=XPDT+1,XPDT(XPDT)=XPDA_U_XPDNM,XPDT("DA",XPDA)=XPDT
|
|---|
| 28 | Q
|
|---|
| 29 | ;
|
|---|
