|
|
发表于 2006-9-15 15:37:40
|
显示全部楼层
来自： 中国江苏扬州
确定某独立名称空间当前是否加载
; z2 o* e9 @* Q
6 I. e# ?8 a1 S% ](vl-vlx-loaded-p appname) $ m% w9 [7 Z" [6 J1 A6 @' x
参数7 ?4 D# ] P2 G E6 o& r
B$ r5 U x5 f5 r
appname# Q4 P9 f9 d, B, a% P
f7 G3 @) t2 m3 o4 q: `) o" w9 d! s3 D4 v字符串，指定 VLX 应用程序。7 c& H# e" q& `# b, y& T/ c
, d& a, G* O" C! R$ C返回值
: k9 K5 {1 H* i+ z% K( S! q- }; n; z6 ]6 A5 o G
如果应用程序已经加载则返回 T，如果未加载则返回 nil。
8 |: K, b" u' n4 I8 `9 j, U4 |' { {- a6 J6 ?
示例: G1 d$ `: i+ Y* f5 k) r( s- J0 g
8 d& ]& Z' A9 h5 n检查 vlxns 应用程序是否已加载到自己的名称空间： F* |. F' T- Y4 o- _# P
5 C9 B9 z# y" y3 V7 H1 j
命令： (vl-vlx-loaded-p "vlxns") 3 O: G! T, m" y- E/ q
1 _1 F7 p7 v& N: u6 _' p8 H
nil$ I: }. ?/ y3 C$ z# p
7 w; _5 h, q+ r. e3 s应用程序未加载到自己的名称空间。
- s4 z# @! [6 {. L; i
9 l0 k+ c. p+ n0 S2 A现在加载 vlxns：
6 n& c* C& \1 ~" G2 m- T8 x( o' g( B+ l- j' f/ n
命令： (load "vlxns.vlx") . r+ s* Y; {2 F; M; f
3 B/ k2 \3 H. Q2 M7 x+ x
nil
+ m% h7 a2 _$ k; K- I3 ^+ ?. r& u* K4 T# y+ @0 s/ q. q9 H5 M
检查 vlxns 应用程序是否成功加载：
: F9 y. b$ J Q& H, j+ a# W
7 ]6 @% w+ L& W% Z- W命令： (vl-vlx-loaded-p "vlxns") , h9 q0 W- k0 y3 o( Q! `
! K% n' k! B# k! }9 b+ wT
0 o$ L6 B* y, W- r- O9 ?, B+ w0 _' D' N; `# R/ C/ p# V
本样例中假定 vlxns 定义为运行在自己的名称空间中。如果没有这样定义，它将被加载到当前文档的名称空间，vl-vlx-loaded-p 将返回 nil。 |
|
