对全局变量的处理是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对全局变量的处理是IDL语言的特色之一！在IDL语言中没有全局变量的概念，所有的变量都是局部变量，只在当前的程序中有效。但是在实际的编程中，大部分情况下全局的变量又是必须的，那如何处理IDl中的所需的全局变量呢？本文探讨IDL使用中常用处理方法。

转载本文请联系原作者获取授权，同时请注明本文来自张书会科学网博客。
链接地址：https://blog.sciencenet.cn/blog-587102-1167962.html

上一篇：[转载]IDL 产生随机数
下一篇：[转载]IDL 数组相关函数