source:
trunk/SRC/Utilities/testvar.pro
@
274
Last change on this file since 274 was 262, checked in by pinsard, 17 years ago | |
---|---|
|
|
File size: 554 bytes |
Rev | Line | |
---|---|---|
[2] | 1 | ;+ |
2 | ; | |
[224] | 3 | ; @file_comments |
[260] | 4 | ; A kind of <proidl>KEYWORD_SET</proidl> but when the value exist, it |
[242] | 5 | ; send it back. |
[2] | 6 | ; |
[224] | 7 | ; @categories |
[157] | 8 | ; Utilities |
[2] | 9 | ; |
[224] | 10 | ; @keyword VAR |
[136] | 11 | ; any kind of |
[2] | 12 | ; |
[224] | 13 | ; @returns |
14 | ; 0 if the variable does not exist | |
[2] | 15 | ; |
[224] | 16 | ; @examples |
[136] | 17 | ; IDL> print, testvar(var=toto) |
18 | ; 0 | |
19 | ; IDL> print, testvar(var='toto') | |
20 | ; toto | |
[2] | 21 | ; |
[224] | 22 | ; @history |
23 | ; Sebastien Masson (smasson\@lodyc.jussieu.fr) | |
[2] | 24 | ; 14/12/1999 |
[133] | 25 | ; |
[224] | 26 | ; @version |
27 | ; $Id$ | |
[133] | 28 | ; |
[2] | 29 | ;- |
[231] | 30 | ; |
[262] | 31 | FUNCTION testvar, VAR = var |
[114] | 32 | ; |
33 | compile_opt idl2, strictarrsubs | |
34 | ; | |
[2] | 35 | if keyword_set(var) then return, var ELSE return, 0 |
36 | end |
Note: See TracBrowser
for help on using the repository browser.