对全局变量的处理是IDL语言的特色之一!在IDL语言中没有全局变量的概念,所有的变量都是局部变量,只在当前的程序中有效。但是在实际的编程中,大部分情况下全局的变量又是必须的,那如何处理IDl中的所需的全局变量呢?本文探讨IDL使用中常用处理方法。
1 common—-定义公共区
在程序中用common命令定义一个公共区,在公共区中保存程序中所需的公共变量。具体形式如下:
COMMON Block_Name, Variable1, Variable2, …, Variablen
其原理是,在内存中定义一个公共区来存储变量,需要这些变量的程序,只要引用这个公共区的名称(Block_Name)就可,公共区中可以存放多个变量,支持IDl中所以的变量类型。
例子:
PRO vartest
common vart , a,b,c ;定义所需的公共区
a=2&b=3&c=4
print,(a*b*c)
vartest2
End
Pro vartest2
common vart ;引用公共区
print,(a+b)
End
注意:
common的方式来定义全局变量,是早期IDl程序使用方法,用这种方法来处理全局变量,变量管理很混乱而且程序维护性差。现在程序已经不使用这种方法,不推荐使用。
————————————————————————————————————–
2 DEFSYSV —定义系统变量
在程序中用defsysv来定义用户自己的系统变量。具体形式如下:
DEFSYSV, Name, Value
IDL的的系统都以!开头,IDl有很多已定义好现成的系统变量(详细细节请看帮助System Variables ),如:!DPI
,!MAP,!PI ,!CPU 。。。
它们都可以直接使用,如!DPI表示双精度圆周率的值。
用户自定义系统变量后,就可以直接使用,支持所有的变量类型
例子 :
Pro vartest2
c=!sysvar_a+!sysvar_b
print,c
End
PRO vartest
a=2
b=3
defsysv,’!sysvar_a’,a
defsysv,’!sysvar_b’,b
c =!sysvar_a * !sysvar_b
print,c
vartest2
End
注意:
1)DEFSYSV 程序一次只能定义一个系统变量;
2)所有的系统变量名称只能以!开头;
3)用DEFSYSV 的系统变量 的存在周期和编译器一样,除非关闭编译器或reset才能使系统变量无效;
4)一般在系统变量中保存一些使用频率很高的差数,如:程序系统路径,draw大小。
5)不存储数据量很大的数组,无法销毁,生命太长;
6)一般只在程序开始时定义,随意使用会使程序很混乱,很难维护;
———————————————————————————————————————–
3 用uvalue 来储存变量
uvalue是个好东西,里面可以存放各种数据类型,在IDL中有两个地方有uvalue,一个是所有界面组件中,有uvalue关键字可以存放变量,二是在所有图型类(IDlgr开头的类)中
有uvalue属性,可以存储变量,具体形式如下:
组件:
定义:
可以在初始化中定义 wtlb=widget_base(uvalue = var)
用widget_control对已有的组件进行设置 widget_control,wtlb,set_uvalue=var
引用:
widget_control,wtlb,get_uvalue=var
类:
定义:
初始化中定义 model = obj_new(’IDLgrmodel’,uvalue=var)
已有类进行定义 omodel->setproperty,uvalue=var
引用:
omodel -> getproperty,uvalue=var
一
般类中只存储与它功能相关的数据或差数。程序中所需的全局变量一般存储在tlb(顶级base)的uvalue中。因为tlb的值就是事件结构体中的
event.top,可以直接获得。根据tlb的值,用widget_control,wtlb,get_uvalue=var,就可以直接获得存储的全
局变量var
例子:
pro testbar_cleanup,base
;清空内存
widget_control,base,get_uvalue=pstate ; 获取全局变量
for i=0,n_tags(*pstate)-1 do begin
case size((*pstate).(i), /tname) of
‘POINTER’:$
ptr_free, (*pstate).(i)
‘OBJREF’:$
obj_destroy, (*pstate).(i)
else:
endcase
end
ptr_free,pstate
end
pro testbar_event, event
print,event
help,event
widget_control, event.top, get_uvalue=pstate ; 获取全局变量
uname =widget_info(event.id,/uname)
case uname of
‘quit’:begin
widget_control, event.top,/destroy
end
‘open’:begin
print, ‘widget user uname = ‘ + uname
print, ‘open’
file = dialog_pickfile(/read, filter = ‘*.jpg’,title=’读取数据’)
if file eq ” then return
print, file
read_jpeg, file, image, /true
image = congrid(image,3,600,450)
(*pstate).oimage = obj_new(’idlgrimage’,image)
(*pstate).omodel->add, (*pstate).oimage
(*pstate).owin->draw, (*pstate).oview
end
else:
endcase
end
;———————————————————————–
pro testbar
;组件系统
base = widget_base(title = ‘qqz_练习’,$
mbar=bar_base,$
xsize=600,$
ysize=450,$
/kill_notify)
file_menu = widget_button(bar_base, value=’file’, /menu)
file_bttn1 = widget_button(file_menu, value=’open’,
uname=’open’)
file_bttn2 = widget_button(file_menu, value=’file item 2′,
uname=’file 2′)
file_bttn3 = widget_button(file_menu, value=’file item 3′,
uname=’file 3′)
file_bttn4 = widget_button(file_menu, value=’quit’,
uname=’quit’)
opt_menu = widget_button(bar_base, value=’options’, /menu)
opt_bttn1 = widget_button(opt_menu,value=’options item 1′,
uname=’file1′)
opt_bttn2 = widget_button(opt_menu,value=’options item 2′,
uname=’file2′)
opt_bttn3 = widget_button(opt_menu,value=’options item 3′,
uname=’file3′)
opt_pr = widget_button(opt_menu,value=’options pull-right’,
/menu)
pr_bttn1 = widget_button(opt_pr, value=’options pull item1′,
uname=’pr 1′)
pr_bttn2 = widget_button(opt_pr, value=’options pull item2′,
uname=’pr 2′)
opt_bttn5 = widget_button(opt_menu,value=’options item 5′,
uname=’file5′)
help_menu = widget_button(bar_base,value=’help’, /menu)
help_buttn1 = widget_button(help_menu,value=’help item 1′, uname=
‘help 1′)
help_buttn2 = widget_button(help_menu,value=’help item 2′, uname=
‘help 2′)
wdraw = widget_draw(base,graphics_level=2,$
retain=2,$
xsize=600,$
ysize=450)
widget_control, base, /realize
;
widget_control, wdraw, get_value=owin
;对象系统
oview = obj_new(’IDlgrview’,
viewplane_rect=[0,0,600,450],dimension=[600,450])
omodel = obj_new(’IDlgrmodel’, name=’topmodel’)
oview->add, omodel
;全局变量
state = {owin:owin ,$
oview:oview ,$
omodel:omodel ,$
oimage:obj_new() ,$
wdraw:wdraw $
}
;把全局变量结构体的指针付给顶base
widget_control, base,set_uvalue=ptr_new(state, /no_copy)
xmanager, ‘testbar’, base,cleanup=’testbar_cleanup’,
/no_block
end
注意:
1)用tlb的uvalue来存储全局变量,是IDL全局变量处理最主要的手段。
2)uvalue中也只能存放一个变量,存放多个全局变量,一般采用在uvalue中存放一个结构体的指针。
例如:
state ={a:a,b:b,c:c,d:d }
widget_control,wtlb,set_uvalue=ptr_new(state,/no_copy)
3)面向对象的程序设计,大部分的变量都可以存在各功能类或子base的uvalue里,真正需要存在tlb的全局变量不多。
————————————————————————————————————————
4 用sav来存储系统参数
一个完善的软件,涉及到的系统各种差数很多,参数模块也很多,留给用户交换配置的参数也很多,就像IDL编译器分file-prefercences。
原理是:对于与主模块非常独立的模块之间参数传递,定义一个结构体,存储需要传递的参数。然后在把结构体以sav文件的形式存在指定的路径下。需要这些参数是把这个sav文件,restore了就可以了。著名的IDL开源软件dave就采用的这种手段
例子:
Pro vartest2
;从指定目录还原sav文件
restore,!sysfile
(*sys).a=3
(*sys).b=3
(*sys).c=obj_new(’IDlgrmodel’)
;改变后数据在存储
save,filename=!sysfile,sys
print,’*sys’
help,*sys,/str
obj_destroy,(*sys).c
ptr_free,sys
End
PRO vartest
;定义系统结构体
sys_define={ $
a:1 ,$
b:2 ,$
c:obj_new() $
}
;
print,’sys_define’
help,sys_define,/str
;
defaults_file = ‘C:\.defs.sav’
;自定义系统参数,保存路径名
defsysv, ‘!sysfile’, defaults_file
sys=ptr_new(sys_define)
;把参数保存在自定目录下
save,filename=!sysfile,sys
ptr_free,sys
vartest2
End
注意:适用多模块,大型系统,一般程序不推荐使用。
————————————————————————————————————————
5 完全面向文件变量存储
这
种方法比较落后,不推荐使用,仅让大家有所了解。一些古老或对IDL不太了解的研究者,会用到这种方法这种方法没有所谓的全局变量,所有生成的变量或数
据,都把它们写成txt文件文件或dat的数据。别的程序需要调用的时候,在读这些txt或dat。这种程序bug率非常高。程序很难控制。
后记:
一般程序设计会使用一种或几种相结合。常用的方法用defsysv和uvalue。
大型软件会用到sav。
全局变量中是在内存中常驻的,所以尽量减少变量冗余,和大型数组。
另内存变量的释放函数:.reset_session 或者.full_reset_session或DELVAR