|
|
发表于 2006-9-15 15:37:40
|
显示全部楼层
来自： 中国江苏扬州
确定某独立名称空间当前是否加载
, D$ h2 |6 l: A$ m1 l& r1 R. m# N( O/ v0 K, p7 V6 V% z
(vl-vlx-loaded-p appname) * t8 o& N5 }7 ?6 {
参数
9 k( i, @2 U0 E+ D% \- g
+ G2 S2 q3 N6 ^appname
2 g- l) B9 ?4 `; X' B
; c# K/ I& U m: Q$ ^/ T, s字符串，指定 VLX 应用程序。6 I* |3 f |! |% }" ~
0 J3 j# V1 j/ Q' h9 q9 G返回值
0 x$ N4 e# V+ L( n/ g- Z X% ~1 F$ b& S' [% m9 P# G3 m5 Q8 E# g
如果应用程序已经加载则返回 T，如果未加载则返回 nil。4 z& k* W X+ z6 l! a
, T& i! `7 K/ o+ f示例" ?5 h* B" d+ E7 l. u: e$ a3 f9 A
7 ~& i8 R, t' g4 L0 x+ y( s% K3 f检查 vlxns 应用程序是否已加载到自己的名称空间：; t4 d/ p) r. o7 o" k. I+ n
1 W# r$ N0 p/ H8 R9 T3 n
命令： (vl-vlx-loaded-p "vlxns") % v, Q2 j3 O3 w
# g7 s/ g3 t3 c- s3 q8 j
nil0 Q6 e0 D2 m* W0 m1 Q; V, C, y1 w/ F
* E& Z" ?) D3 @# p4 S; L应用程序未加载到自己的名称空间。" p) [1 G/ P+ L/ W) u
$ k# {4 e( O J" X7 F# h" H
现在加载 vlxns：& O% l7 l3 I% P* M( z
/ b) P% F2 O/ B4 K命令： (load "vlxns.vlx")
6 x: F$ j! E& _' }$ ~3 P* `. s! f' |/ G9 |7 Q$ ~
nil
6 `& X- \8 h' j$ S0 _
9 X% P$ F( D" k i3 R检查 vlxns 应用程序是否成功加载：0 f) U) V3 G5 H% t& [; G z
, ^6 c. [$ Z3 E( B7 m8 s$ F
命令： (vl-vlx-loaded-p "vlxns") - \" f; a g0 O# B) F/ p
# v) w$ X$ m" f5 G; H JT$ G4 d* ~& q+ i/ }6 f
. y: @6 `2 l0 a" G! _+ A( T7 ?& q
本样例中假定 vlxns 定义为运行在自己的名称空间中。如果没有这样定义，它将被加载到当前文档的名称空间，vl-vlx-loaded-p 将返回 nil。 |
|
