Ignore:
Timestamp:
Jan 30, 2010 12:09:44 AM (13 years ago)
Author:
ajj
Message:

Modifications to NSORT to use data folder methods for dataset handling

  • XML input supported
  • No XML output yet, but preparation work done.
File:
1 edited

Legend:

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

    r622 r625  
    6464// the data folder is given the "base name" of the data file as it's loaded 
    6565// 
     66 
    6667Proc A_LoadOneDDataWithName(fileStr,doPlot) 
    6768        String fileStr 
    6869        Variable doPlot 
     70         
     71        A_LoadOneDDataToName(fileStr,"",doPlot,0) 
     72 
     73End 
     74 
     75 
     76///Function that takes output name as well as input 
     77Proc A_LoadOneDDataToName(fileStr,outStr,doPlot,forceOverwrite) 
     78        String fileStr, outstr 
     79        Variable doPlot,forceOverwrite 
    6980         
    7081        Variable rr,gg,bb,refnum,dQv 
     
    95106 
    96107        if (isXML(fileStr) == 1) 
    97                 LoadNISTXMLData(fileStr,doPlot) 
     108                LoadNISTXMLData(fileStr,outstr,doPlot,forceOverwrite) 
    98109        else             
    99110                //Load the waves, using default waveX names 
     
    102113                String fileNamePath = S_Path+S_fileName 
    103114//              String basestr = ParseFilePath(3,ParseFilePath(5,fileNamePath,":",0,0),":",0,0) 
    104                 String baseStr = CleanupName(S_fileName,0) 
     115 
     116                String basestr 
     117                if (!cmpstr(outstr, "")) 
     118                        //Outstr = "", cmpstr returns 0 
     119                        baseStr = CleanupName(S_fileName,0) 
     120                else 
     121                        baseStr = outstr 
     122                endif 
     123         
    105124//              print "basestr :"+basestr 
    106125                String fileName =  ParseFilePath(0,ParseFilePath(5,filestr,":",0,0),":",1,0) 
     
    131150                        //String baseStr=w1[0,strlen(w1)-3] 
    132151                        if(DataFolderExists("root:"+baseStr)) 
     152                                if (!forceOverwrite) 
    133153                                        DoAlert 1,"The file "+S_filename+" has already been loaded. Do you want to load the new data file, overwriting the data in memory?" 
    134154                                        if(V_flag==2)   //user selected No, don't load the data 
     
    140160                                                return  //quits the macro 
    141161                                        endif 
    142                                         SetDataFolder $("root:"+baseStr) 
     162                                endif 
     163                                SetDataFolder $("root:"+baseStr) 
    143164                        else 
    144165                                NewDataFolder/S $("root:"+baseStr) 
     
    178199                        //String baseStr=w1[0,strlen(w1)-3] 
    179200                        if(DataFolderExists("root:"+baseStr)) 
     201                                if(!forceOverwrite) 
    180202                                        DoAlert 1,"The file "+S_filename+" has already been loaded. Do you want to load the new data file, overwriting the data in memory?" 
    181203                                        if(V_flag==2)   //user selected No, don't load the data 
     
    187209                                                return          //quits the macro 
    188210                                        endif 
    189                                         SetDataFolder $("root:"+baseStr) 
     211                                endif 
     212                                SetDataFolder $("root:"+baseStr) 
    190213                        else 
    191214                                NewDataFolder/S $("root:"+baseStr) 
     
    252275                        //String baseStr=w1[0,strlen(w1)-3] 
    253276                        if(DataFolderExists("root:"+baseStr)) 
     277                                if(!forceOverwrite) 
    254278                                        DoAlert 1,"The file "+S_filename+" has already been loaded. Do you want to load the new data file, overwriting the data in memory?" 
    255279                                        if(V_flag==2)   //user selected No, don't load the data 
     
    261285                                                return          //quits the macro 
    262286                                        endif 
    263                                         SetDataFolder $("root:"+baseStr) 
     287                                endif 
     288                                SetDataFolder $("root:"+baseStr) 
    264289                        else 
    265290                                NewDataFolder/S $("root:"+baseStr) 
     
    327352                        //String baseStr=w1[0,strlen(w1)-3] 
    328353                        if(DataFolderExists("root:"+baseStr)) 
     354                                if(!forceOverwrite) 
    329355                                        DoAlert 1,"The file "+S_filename+" has already been loaded. Do you want to load the new data file, overwriting the data in memory?" 
    330356                                        if(V_flag==2)   //user selected No, don't load the data 
     
    335361                                                return          //quits the macro 
    336362                                        endif 
    337                                         SetDataFolder $("root:"+baseStr) 
     363                                endif 
     364                                SetDataFolder $("root:"+baseStr) 
    338365                        else 
    339366                                NewDataFolder/S $("root:"+baseStr) 
Note: See TracChangeset for help on using the changeset viewer.