|
|
发表于 2006-9-15 15:37:40
|
显示全部楼层
来自： 中国江苏扬州
确定某独立名称空间当前是否加载
$ i, [0 D5 b' f' p" N* V
9 K0 f, r! c# I& u$ y1 V(vl-vlx-loaded-p appname) : y# g; @* g& x5 y0 h6 Q
参数9 x* s" S, f& z
, i4 w% e2 j* W5 r# a0 j- Z" o- uappname
3 z0 p$ e& x6 Q" n1 b6 U: O- `7 e! k7 O. s
字符串，指定 VLX 应用程序。/ k& ^" d7 K$ E& t+ g( e
5 Q- E |! l* A1 k" t9 j4 {* u返回值9 E, z% t1 D4 |2 i* l$ C) E
! {- m$ W+ t; e* d+ L+ s* ?- u) |
如果应用程序已经加载则返回 T，如果未加载则返回 nil。. r8 [% H+ s* i# f; V2 I
F7 X- j5 E2 i0 m9 v; C
示例3 k* b e1 W N V9 @+ i
- q) Q- @' Q) u; n# o. n4 ?检查 vlxns 应用程序是否已加载到自己的名称空间：
) K/ H" `" }' W- x9 D8 S# d* @( t/ {, V$ D8 U W/ f
命令： (vl-vlx-loaded-p "vlxns")
! y H* F* t* ~& s' h
2 E' y. {( Z4 f9 I0 qnil
0 [* K9 p$ R, x9 z4 ~, L# D4 K
. ?7 {7 F- |* O# `3 S1 }" t. w应用程序未加载到自己的名称空间。
( u8 K9 b F, ~5 q2 t: l7 P2 J5 ~% b3 u
现在加载 vlxns：9 Y3 }6 j3 M( o |# G. [9 s
5 U) |! f3 g" u9 | R" ?
命令： (load "vlxns.vlx")
" r' ^ g: w4 r( S k3 C% @" L" x4 N6 R9 v/ x/ u# F4 S) a
nil9 M- z/ S' h5 @& h/ w8 Z: A
& B2 z. T, a* {4 X& L
检查 vlxns 应用程序是否成功加载：
) I0 Z9 `" n9 j) Z* a" A( _1 s
6 j( n6 L9 }3 X) s" d9 ?命令： (vl-vlx-loaded-p "vlxns") * A' n9 d: i8 Q+ M7 ^0 q/ H
+ |" n4 ` X: O
T
! }$ X; x) g" X C( d
6 h0 b! X) v7 v8 N7 ]" n$ q本样例中假定 vlxns 定义为运行在自己的名称空间中。如果没有这样定义，它将被加载到当前文档的名称空间，vl-vlx-loaded-p 将返回 nil。 |
|
