Changeset 226 for trunk/SRC/ToBeReviewed/STRUCTURE
- Timestamp:
- 03/16/07 10:22:26 (17 years ago)
- Location:
- trunk/SRC/ToBeReviewed/STRUCTURE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/STRUCTURE/extractstru.pro
r163 r226 13 13 ; 14 14 ; @param LISTE {in}{required}{type=vector} 15 ; A vector of string including names of STRU to be deleted 15 ; A vector of string including names of STRU to be deleted 16 16 ; (by default) or to be kept (if KEEP is activated). 17 17 ; … … 48 48 ; @version 49 49 ; $Id$ 50 ; 50 ; 51 51 ;- 52 52 ;------------------------------------------------------------ … … 59 59 if size(stru, /type) NE 8 then return, -1 60 60 if size(liste, /type) NE 7 then return, -1 61 ; che king for keep and vire keywords61 ; checking for keep and vire keywords 62 62 keep = keyword_set(keep)*(1-keyword_set(delete)) 63 63 delete = keyword_set(delete)*(1-keyword_set(keep)) +(keyword_set(delete) EQ keep) … … 80 80 if n_elements(index) GT 1 then for i = 1, n_elements(index)-1 do $ 81 81 res = create_struct(res, tname[index[i]], stru.(index[i])) 82 ENDELSE 82 ENDELSE 83 83 84 84 return, res -
trunk/SRC/ToBeReviewed/STRUCTURE/struct2string.pro
r163 r226 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; 5 ; 6 6 ; @file_comments 7 7 ; Convert a structure to an "executable string" … … 9 9 ; @categories 10 10 ; Utilities 11 ; 11 ; 12 12 ; @param STRUCT {in}{required} 13 13 ; A structure … … 15 15 ; @keyword MAX_STRUCT_LENGTH {default=10000l} 16 16 ; The maximum length of the structure 17 ; perm etted to convert the structure to string.17 ; permitted to convert the structure to string. 18 18 ; 19 19 ; @keyword DIRECT2STRING … … 31 31 ; create_struct('NAME','X','X_SIZE',891,'Y_SIZE',630,'X_VSIZE' 32 32 ; ,891,'Y_VSIZE',630,'X_CH_SIZE',6,'Y_CH_SIZE',10,'X_PX_CM' 33 ; ,40.0000,'Y_PX_CM',40.0000,'N_COLORS',16777216,'TABLE_SIZE' 33 ; ,40.0000,'Y_PX_CM',40.0000,'N_COLORS',16777216,'TABLE_SIZE' 34 34 ; ,256,'FILL_DIST',1,'WINDOW',32,'UNIT',0,'FLAGS',328124,'ORIGIN' 35 35 ; ,[0,0],'ZOOM',[1,1]) … … 46 46 ;------------------------------------------------------------ 47 47 ;------------------------------------------------------------ 48 FUNCTION struct2string, struct, CUT_IN_STRING = cut_in_string, MAX_STRUCT_LENGTH = max_struct_length, DIRECT2STRING = direct2string 48 FUNCTION struct2string, struct, CUT_IN_STRING = cut_in_string, MAX_STRUCT_LENGTH = max_struct_length, DIRECT2STRING = direct2string 49 49 ; 50 50 compile_opt idl2, strictarrsubs … … 65 65 endfor 66 66 endif 67 67 68 68 END 69 69 keyword_set(CUT_IN_STRING):BEGIN
Note: See TracChangeset
for help on using the changeset viewer.