Changeset 74 for trunk/SRC/ToBeReviewed/STRUCTURE/mixstru.pro

Timestamp:

05/23/06 15:45:47 (18 years ago)

Author:

smasson

Message:

debug xxx and cie + clean data file + rm perldoc_idl

File:

• trunk/SRC/ToBeReviewed/STRUCTURE/mixstru.pro (modified) (2 diffs)

trunk/SRC/ToBeReviewed/STRUCTURE/mixstru.pro

@@ -60 +60 @@
 ;------------------------------------------------------------
 FUNCTION mixstru, stru1, stru2
+@cm_general
+
    IF size(stru1, /type) EQ 0 AND size(stru2, /type) EQ 8 THEN return, stru2
    IF size(stru2, /type) EQ 0 AND size(stru1, /type) EQ 8 THEN return, stru1
@@ -65 +67 @@
    if size(stru2, /type) NE 8 then return,  -1
    tname = tag_names(stru2)
-   res = ''
-   rien = execute('res = get_extra('+tname[0]+'=stru2.(0), _extra = stru1)')
-   if rien EQ 0 then stop
-   if n_tags(stru2) GT 1 then begin
-      FOR i = 1, n_tags(stru2)-1 DO BEGIN 
-         rien = execute('res = get_extra('+tname[i]+'=stru2.(i), _extra = res)')
-         if rien EQ 0 then stop
-      endfor
-   endif
+   
+   str = ''
+   FOR i = 0, n_tags(stru2)-1 DO str = str + tname[i]+' = stru2.(' + strtrim(i, 2)+ '), '
+
+   res = createfunc('get_extra('+str+'_extra = stru1)' $
+              , kwdlist = 'stru1 = stru1, stru2 = stru2' $
+              , stru1 = stru1, stru2 = stru2 $
+              , filename = myuniquetmpdir +'for_createfunc.pro')
+
    return, res
+
 end