|
|
发表于 2006-9-15 15:37:40
|
显示全部楼层
来自： 中国江苏扬州
确定某独立名称空间当前是否加载
. z) k( N3 N J
8 S% {& e6 [0 M' v(vl-vlx-loaded-p appname)
1 z8 Y: o) @: I8 C参数
. L8 w7 p2 _+ W4 l8 L% z4 r) _% X, i: z
appname
4 J! \. z; {- F" v
7 M X% M# {3 u) l; k字符串，指定 VLX 应用程序。
- y( L2 _# \; B4 A2 q/ i) m3 H$ e- V% N `8 F4 O* j8 s
返回值
7 I9 u6 E1 o2 p) C4 u8 T; x
3 k% I& o/ E$ {4 j8 F/ s! v如果应用程序已经加载则返回 T，如果未加载则返回 nil。- k3 y$ m7 M I4 W- G
5 L# l( i6 p. h0 m8 T示例
+ X# Y# T/ g) O2 W( _: y* ?9 C; m+ Y- L. b) }; M: ^
检查 vlxns 应用程序是否已加载到自己的名称空间：5 l9 J3 o; u- K) F
: b5 g9 B2 I$ }! R命令： (vl-vlx-loaded-p "vlxns")
% U3 X, ^/ u7 d5 ?3 V' d4 l( D% s
* a9 M7 e. e% _, r' Y+ M/ r+ pnil
' x3 q3 `6 q4 y9 u- X! X; P0 z% U* W5 S9 @; [$ }* w, O7 G) }
应用程序未加载到自己的名称空间。
8 U+ }* W1 v$ R4 Z" w. A5 V, N$ V& E- N
现在加载 vlxns：
+ `- z+ j6 ?* r7 }' n. Z0 n4 i) r3 @# d& e+ L& k
命令： (load "vlxns.vlx") / Y% b9 M- F. ~ c7 z9 W! r
: r" E0 ?3 _3 Y* T6 S
nil# F& C7 b: a# G6 t' J% ]( s
0 l7 e9 `/ x! y$ r; Z1 k, X( u
检查 vlxns 应用程序是否成功加载：9 t. m* G% ~3 c0 u6 x
2 c B. E- I# f) r+ L) p; V命令： (vl-vlx-loaded-p "vlxns") , L W' ]+ p' d Z
?: w! s, F" M5 X; e
T
5 n& S) |! k5 V
" Y1 I5 Z/ B+ E3 Q; v9 l( f本样例中假定 vlxns 定义为运行在自己的名称空间中。如果没有这样定义，它将被加载到当前文档的名称空间，vl-vlx-loaded-p 将返回 nil。 |
|
