Ignore:
Timestamp:
Oct 7, 2008 1:09:04 PM (14 years ago)
Author:
ajj
Message:

Moving data folders into root:Packages:NIST

This could be hairy.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Common/PlotUtilsMacro_v40.ipf

    r409 r418  
    768768                 
    769769End 
     770 
     771//AJJ Oct 2008 
     772//Moved from GaussUtils - makes more sense to have it here 
     773 
     774// utility used in the "PlotSmeared...() macros to get a list of data folders 
     775// 
     776//1:    Waves. 
     777//2:    Numeric variables. 
     778//3:    String variables. 
     779//4:    Data folders. 
     780Function/S GetAList(type) 
     781        Variable type 
     782         
     783        SetDataFolder root: 
     784         
     785        String objName,str="" 
     786        Variable index = 0 
     787        do 
     788                objName = GetIndexedObjName(":", type, index) 
     789                if (strlen(objName) == 0) 
     790                        break 
     791                endif 
     792                //Print objName 
     793                str += objName + ";" 
     794                index += 1 
     795        while(1) 
     796         
     797        // remove myGlobals, Packages from the folder list 
     798        if(type==4) 
     799                str = RemoveFromList("myGlobals", str , ";" ) 
     800                str = RemoveFromList("Packages", str, ";") 
     801                str = RemoveFromList("AutoFit", str, ";") 
     802        endif 
     803         
     804        return(str) 
     805End 
Note: See TracChangeset for help on using the changeset viewer.