59 lines
1.5 KiB
OpenEdge ABL
59 lines
1.5 KiB
OpenEdge ABL
//
|
||
// $Id$
|
||
//
|
||
|
||
class PACKAGE OBJECT
|
||
|
||
attrib parentPkg
|
||
// A csomag sz<73>l“je. Ha nincs, akkor nil.
|
||
|
||
attrib name
|
||
// A csomag neve.
|
||
|
||
attrib nAttribs
|
||
// H ny attributum van.
|
||
|
||
attrib attribs
|
||
// Egy t”mb az attribŁtumok sorsz m val,nev‚vel,tˇpus val
|
||
|
||
attrib methods
|
||
// Egy t”mb a m–veletek sorsz m val, nev‚vel,
|
||
// param‚tereivel, implSpec-‚vel.
|
||
|
||
attrib pkgId
|
||
// A csomag azonosˇt˘ja, minden csomagnak van.
|
||
// Ha egy csomagnak van “se, akkor ez megegyezik az “s‚nek
|
||
// az id-j‚vel. Ha nincs “se, akkor pedig k<>l”nb”zik b rmelyik
|
||
// olyan csomag pkgId-j‚t“l, aminek szint‚n nincs “se.
|
||
|
||
attrib amBlock
|
||
// Egy blokk, aminek a v‚grehajt sa beˇrja
|
||
// egy t”mbbe a csomag ltal defini lt
|
||
// attribŁtumokat ‚s egy m sik t”mbbe pedig
|
||
// a csomag ltal defini lt m–veleteket.
|
||
|
||
attrib methodsBlock
|
||
// Egy blokk, aminek a v‚grehajt sa
|
||
// beˇrja egy t”mbbe a csomag ltal defini lt
|
||
// m–veletek blokkjait.
|
||
// (Ezt a t”mb”t adja a pkgMethodsImplement.)
|
||
|
||
attrib pkgMethodsImplement
|
||
// Egy blokkot tartalmaz, amit ki‚rt‚kelve
|
||
// megkapjuk azt a t”mb”t, aminek az els“
|
||
// eleme a csomag, a tov bbi elemei pedig
|
||
// a csomagban haszn lhat˘ m–veletek
|
||
// blokkjai, ‚s m s implement ci˘s elemek.
|
||
|
||
rmethod oinit(parent,name,nAttribs,nMethods,amBlock,methodsBlock,pkgId)
|
||
|
||
nmethod connectTo(obj)
|
||
|
||
metaclass
|
||
|
||
attrib numId
|
||
|
||
rmethod onew(parent,name,nAttribs,nMethods,amBlock,methodsBlock,pkgId)
|
||
|
||
nmethod nextId()
|