matthias muntwiler
70207096d5
Some checks failed
build and deploy documentation / build-and-deploy (push) Failing after 0s
2366 lines
283 KiB
HTML
2366 lines
283 KiB
HTML
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
|
|
<head>
|
|
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
|
|
<meta http-equiv="X-UA-Compatible" content="IE=11"/>
|
|
<meta name="generator" content="Doxygen 1.9.8"/>
|
|
<meta name="viewport" content="width=device-width, initial-scale=1"/>
|
|
<title>PEARL Procedures: pearl-data-explorer.ipf Source File</title>
|
|
<link href="tabs.css" rel="stylesheet" type="text/css"/>
|
|
<script type="text/javascript" src="jquery.js"></script>
|
|
<script type="text/javascript" src="dynsections.js"></script>
|
|
<link href="navtree.css" rel="stylesheet" type="text/css"/>
|
|
<script type="text/javascript" src="resize.js"></script>
|
|
<script type="text/javascript" src="navtreedata.js"></script>
|
|
<script type="text/javascript" src="navtree.js"></script>
|
|
<link href="search/search.css" rel="stylesheet" type="text/css"/>
|
|
<script type="text/javascript" src="search/searchdata.js"></script>
|
|
<script type="text/javascript" src="search/search.js"></script>
|
|
<link href="doxygen.css" rel="stylesheet" type="text/css" />
|
|
</head>
|
|
<body>
|
|
<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
|
|
<div id="titlearea">
|
|
<table cellspacing="0" cellpadding="0">
|
|
<tbody>
|
|
<tr id="projectrow">
|
|
<td id="projectalign">
|
|
<div id="projectname">PEARL Procedures<span id="projectnumber"> rev-distro-3.1.0-0-gea838b3-dirty</span>
|
|
</div>
|
|
<div id="projectbrief">Igor procedures for the analysis of PEARL data</div>
|
|
</td>
|
|
</tr>
|
|
</tbody>
|
|
</table>
|
|
</div>
|
|
<!-- end header part -->
|
|
<!-- Generated by Doxygen 1.9.8 -->
|
|
<script type="text/javascript">
|
|
/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&dn=expat.txt MIT */
|
|
var searchBox = new SearchBox("searchBox", "search/",'.html');
|
|
/* @license-end */
|
|
</script>
|
|
<script type="text/javascript" src="menudata.js"></script>
|
|
<script type="text/javascript" src="menu.js"></script>
|
|
<script type="text/javascript">
|
|
/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&dn=expat.txt MIT */
|
|
$(function() {
|
|
initMenu('',true,false,'search.php','Search');
|
|
$(document).ready(function() { init_search(); });
|
|
});
|
|
/* @license-end */
|
|
</script>
|
|
<div id="main-nav"></div>
|
|
<script type="text/javascript">
|
|
/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&dn=expat.txt MIT */
|
|
$(document).ready(function() { init_codefold(0); });
|
|
/* @license-end */
|
|
</script>
|
|
</div><!-- top -->
|
|
<div id="side-nav" class="ui-resizable side-nav-resizable">
|
|
<div id="nav-tree">
|
|
<div id="nav-tree-contents">
|
|
<div id="nav-sync" class="sync"></div>
|
|
</div>
|
|
</div>
|
|
<div id="splitbar" style="-moz-user-select:none;"
|
|
class="ui-resizable-handle">
|
|
</div>
|
|
</div>
|
|
<script type="text/javascript">
|
|
/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&dn=expat.txt MIT */
|
|
$(document).ready(function(){initNavTree('pearl-data-explorer_8ipf_source.html',''); initResizable(); });
|
|
/* @license-end */
|
|
</script>
|
|
<div id="doc-content">
|
|
<!-- window showing the filter options -->
|
|
<div id="MSearchSelectWindow"
|
|
onmouseover="return searchBox.OnSearchSelectShow()"
|
|
onmouseout="return searchBox.OnSearchSelectHide()"
|
|
onkeydown="return searchBox.OnSearchSelectKey(event)">
|
|
</div>
|
|
|
|
<!-- iframe showing the search results (closed by default) -->
|
|
<div id="MSearchResultsWindow">
|
|
<div id="MSearchResults">
|
|
<div class="SRPage">
|
|
<div id="SRIndex">
|
|
<div id="SRResults"></div>
|
|
<div class="SRStatus" id="Loading">Loading...</div>
|
|
<div class="SRStatus" id="Searching">Searching...</div>
|
|
<div class="SRStatus" id="NoMatches">No Matches</div>
|
|
</div>
|
|
</div>
|
|
</div>
|
|
</div>
|
|
|
|
<div class="header">
|
|
<div class="headertitle"><div class="title">pearl-data-explorer.ipf</div></div>
|
|
</div><!--header-->
|
|
<div class="contents">
|
|
<a href="pearl-data-explorer_8ipf.html">Go to the documentation of this file.</a><div class="fragment"><div class="line"><a id="l00001" name="l00001"></a><span class="lineno"> 1</span><span class="preprocessor">#pragma TextEncoding = "UTF-8"</span></div>
|
|
<div class="line"><a id="l00002" name="l00002"></a><span class="lineno"> 2</span><span class="preprocessor">#pragma rtGlobals=3 </span><span class="comment">// Use modern global access method and strict wave access.</span></div>
|
|
<div class="line"><a id="l00003" name="l00003"></a><span class="lineno"> 3</span><span class="preprocessor">#pragma IgorVersion = 6.36</span></div>
|
|
<div class="line"><a id="l00004" name="l00004"></a><span class="lineno"> 4</span><span class="preprocessor">#pragma ModuleName = PearlDataExplorer</span></div>
|
|
<div class="line"><a id="l00005" name="l00005"></a><span class="lineno"> 5</span><span class="preprocessor">#pragma version = 2.2</span></div>
|
|
<div class="line"><a id="l00006" name="l00006"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a4c7a521b8f1a0769c09bfa4a1fca7dab"> 6</a></span><span class="preprocessor">#include <HierarchicalListWidget></span>, <a class="code hl_variable" href="pearl-data-explorer_8ipf.html#a4c7a521b8f1a0769c09bfa4a1fca7dab">version</a> >= 1.14</div>
|
|
<div class="line"><a id="l00007" name="l00007"></a><span class="lineno"> 7</span><span class="preprocessor">#include "pearl-area-import"</span></div>
|
|
<div class="line"><a id="l00008" name="l00008"></a><span class="lineno"> 8</span><span class="preprocessor">#include "pearl-area-profiles"</span></div>
|
|
<div class="line"><a id="l00009" name="l00009"></a><span class="lineno"> 9</span><span class="preprocessor">#include "pearl-area-display"</span></div>
|
|
<div class="line"><a id="l00010" name="l00010"></a><span class="lineno"> 10</span><span class="preprocessor">#include "pearl-compat"</span></div>
|
|
<div class="line"><a id="l00011" name="l00011"></a><span class="lineno"> 11</span><span class="preprocessor">#include "pearl-pshell-import"</span></div>
|
|
<div class="line"><a id="l00012" name="l00012"></a><span class="lineno"> 12</span> </div>
|
|
<div class="line"><a id="l00013" name="l00013"></a><span class="lineno"> 13</span><span class="comment">// copyright (c) 2013-25 Paul Scherrer Institut</span></div>
|
|
<div class="line"><a id="l00014" name="l00014"></a><span class="lineno"> 14</span><span class="comment">//</span></div>
|
|
<div class="line"><a id="l00015" name="l00015"></a><span class="lineno"> 15</span><span class="comment">// Licensed under the Apache License, Version 2.0 (the "License");</span></div>
|
|
<div class="line"><a id="l00016" name="l00016"></a><span class="lineno"> 16</span><span class="comment">// you may not use this file except in compliance with the License.</span></div>
|
|
<div class="line"><a id="l00017" name="l00017"></a><span class="lineno"> 17</span><span class="comment">// You may obtain a copy of the License at</span></div>
|
|
<div class="line"><a id="l00018" name="l00018"></a><span class="lineno"> 18</span><span class="comment">// http:///www.apache.org/licenses/LICENSE-2.0</span></div>
|
|
<div class="line"><a id="l00019" name="l00019"></a><span class="lineno"> 19</span> </div>
|
|
<div class="line"><a id="l00029" name="l00029"></a><span class="lineno"> 29</span> </div>
|
|
<div class="line"><a id="l00034" name="l00034"></a><span class="lineno"> 34</span> </div>
|
|
<div class="line"><a id="l00035" name="l00035"></a><span class="lineno"> 35</span><span class="keyword">static</span> strconstant <a class="code hl_variable" href="pearl-anglescan-panel_8ipf.html#aca457d1f4414d20a911254b1de13ebbb">package_name</a> = <span class="stringliteral">"pearl_explorer"</span></div>
|
|
<div class="line"><a id="l00036" name="l00036"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a75bb92ef5f80843e66a7243bd958ef8b"> 36</a></span><span class="keyword">static</span> strconstant <a class="code hl_variable" href="pearl-data-explorer_8ipf.html#a75bb92ef5f80843e66a7243bd958ef8b">package_path</a> = <span class="stringliteral">"root:packages:pearl_explorer:"</span></div>
|
|
<div class="line"><a id="l00037" name="l00037"></a><span class="lineno"> 37</span> </div>
|
|
<div class="line"><a id="l00038" name="l00038"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a181ccce237172811baf3de5a7a06370d"> 38</a></span><span class="keyword">static</span> strconstant <a class="code hl_variable" href="pearl-data-explorer_8ipf.html#a181ccce237172811baf3de5a7a06370d">ks_filematch_adh5</a> = <span class="stringliteral">"*.h5"</span></div>
|
|
<div class="line"><a id="l00039" name="l00039"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a00bf5267a40b2b3d760c64d73e139878"> 39</a></span><span class="keyword">static</span> strconstant <a class="code hl_variable" href="pearl-data-explorer_8ipf.html#a00bf5267a40b2b3d760c64d73e139878">ks_filematch_pshell</a> = <span class="stringliteral">"psh*.h5"</span></div>
|
|
<div class="line"><a id="l00040" name="l00040"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a53af8689144e3aeb27ca177db5dd0c22"> 40</a></span><span class="keyword">static</span> strconstant <a class="code hl_variable" href="pearl-data-explorer_8ipf.html#a53af8689144e3aeb27ca177db5dd0c22">ks_filematch_itx</a> = <span class="stringliteral">"*.itx"</span></div>
|
|
<div class="line"><a id="l00041" name="l00041"></a><span class="lineno"> 41</span> </div>
|
|
<div class="foldopen" id="foldopen00047" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00047" name="l00047"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#ab7e3b3a0a901f7559ee9f5affb9a6fca"> 47</a></span>function <a class="code hl_function" href="pearl-data-explorer_8ipf.html#ab7e3b3a0a901f7559ee9f5affb9a6fca">pearl_data_explorer</a>()</div>
|
|
<div class="line"><a id="l00048" name="l00048"></a><span class="lineno"> 48</span> DoWindow /HIDE=0 /F <a class="code hl_function" href="pearl-data-explorer_8ipf.html#a5b824531904179a94e0eaa3ffa09172e">PearlDataExplorer</a></div>
|
|
<div class="line"><a id="l00049" name="l00049"></a><span class="lineno"> 49</span> if (v_flag == 0)</div>
|
|
<div class="line"><a id="l00050" name="l00050"></a><span class="lineno"> 50</span> <a class="code hl_function" href="pearl-data-explorer_8ipf.html#a45e930b8eadd7cf6a5f664befd87d725">init_package</a>()</div>
|
|
<div class="line"><a id="l00051" name="l00051"></a><span class="lineno"> 51</span> <a class="code hl_function" href="pearl-data-explorer_8ipf.html#a92c27964d49ab8bcd7afc858ebe214a3">load_prefs</a>()</div>
|
|
<div class="line"><a id="l00052" name="l00052"></a><span class="lineno"> 52</span> execute /q/z "<a class="code hl_function" href="pearl-data-explorer_8ipf.html#a5b824531904179a94e0eaa3ffa09172e">PearlDataExplorer</a>()"</div>
|
|
<div class="line"><a id="l00053" name="l00053"></a><span class="lineno"> 53</span> MakeListIntoHierarchicalList("<a class="code hl_function" href="pearl-data-explorer_8ipf.html#a5b824531904179a94e0eaa3ffa09172e">PearlDataExplorer</a>", "lb_contents", "<a class="code hl_function" href="pearl-data-explorer_8ipf.html#a5b824531904179a94e0eaa3ffa09172e">PearlDataExplorer</a><span class="preprocessor">#hlp_contents_open", selectionMode=WMHL_SelectionNonContinguous, pathSeparator="/")</span></div>
|
|
<div class="line"><a id="l00054" name="l00054"></a><span class="lineno"> 54</span><span class="preprocessor"> WMHL_AddColumns("PearlDataExplorer", "lb_contents", 1)</span></div>
|
|
<div class="line"><a id="l00055" name="l00055"></a><span class="lineno"> 55</span><span class="preprocessor"> WMHL_SetNotificationProc("PearlDataExplorer", "lb_contents", "PearlDataExplorer#hlp_contents_selection", WMHL_SetSelectNotificationProc)</span></div>
|
|
<div class="line"><a id="l00056" name="l00056"></a><span class="lineno"> 56</span><span class="preprocessor"> ListBox lb_contents win=PearlDataExplorer, widths={6,60,20}</span></div>
|
|
<div class="line"><a id="l00057" name="l00057"></a><span class="lineno"> 57</span><span class="preprocessor"> update_controls()</span></div>
|
|
<div class="line"><a id="l00058" name="l00058"></a><span class="lineno"> 58</span><span class="preprocessor"> endif</span></div>
|
|
<div class="line"><a id="l00059" name="l00059"></a><span class="lineno"> 59</span><span class="preprocessor">end</span></div>
|
|
</div>
|
|
<div class="line"><a id="l00060" name="l00060"></a><span class="lineno"> 60</span><span class="preprocessor"></span> </div>
|
|
<div class="foldopen" id="foldopen00061" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00061" name="l00061"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a45e930b8eadd7cf6a5f664befd87d725"> 61</a></span><span class="preprocessor">static function init_package()</span></div>
|
|
<div class="line"><a id="l00062" name="l00062"></a><span class="lineno"> 62</span><span class="preprocessor"> dfref save_df = GetDataFolderDFR()</span></div>
|
|
<div class="line"><a id="l00063" name="l00063"></a><span class="lineno"> 63</span><span class="preprocessor"> SetDataFolder root:</span></div>
|
|
<div class="line"><a id="l00064" name="l00064"></a><span class="lineno"> 64</span><span class="preprocessor"> newdatafolder /o/s packages</span></div>
|
|
<div class="line"><a id="l00065" name="l00065"></a><span class="lineno"> 65</span><span class="preprocessor"> newdatafolder /o/s $package_name</span></div>
|
|
<div class="line"><a id="l00066" name="l00066"></a><span class="lineno"> 66</span><span class="preprocessor"> if (exists("v_InitPanelDone") == 2)</span></div>
|
|
<div class="line"><a id="l00067" name="l00067"></a><span class="lineno"> 67</span><span class="preprocessor"> SetDataFolder save_df</span></div>
|
|
<div class="line"><a id="l00068" name="l00068"></a><span class="lineno"> 68</span><span class="preprocessor"> return 0</span></div>
|
|
<div class="line"><a id="l00069" name="l00069"></a><span class="lineno"> 69</span><span class="preprocessor"> endif</span></div>
|
|
<div class="line"><a id="l00070" name="l00070"></a><span class="lineno"> 70</span><span class="preprocessor"> </span></div>
|
|
<div class="line"><a id="l00071" name="l00071"></a><span class="lineno"> 71</span><span class="preprocessor"> make /o/n=0/t wtFiles</span></div>
|
|
<div class="line"><a id="l00072" name="l00072"></a><span class="lineno"> 72</span><span class="preprocessor"> make /o/n=0/i wSelectedFiles,wSelectedDatasets</span></div>
|
|
<div class="line"><a id="l00073" name="l00073"></a><span class="lineno"> 73</span><span class="preprocessor"> make /o/n=0/t wtDatasets</span></div>
|
|
<div class="line"><a id="l00074" name="l00074"></a><span class="lineno"> 74</span><span class="preprocessor"> make /o/n=0/t wtPositioners,wtDetectors</span></div>
|
|
<div class="line"><a id="l00075" name="l00075"></a><span class="lineno"> 75</span><span class="preprocessor"> make /o/n=0/i wSelectedPositioners,wSelectedDetectors</span></div>
|
|
<div class="line"><a id="l00076" name="l00076"></a><span class="lineno"> 76</span><span class="preprocessor"> </span></div>
|
|
<div class="line"><a id="l00077" name="l00077"></a><span class="lineno"> 77</span><span class="preprocessor"> make /o/n=(1,1) preview_image // preview 2D data</span></div>
|
|
<div class="line"><a id="l00078" name="l00078"></a><span class="lineno"> 78</span><span class="preprocessor"> make /o/n=0 preview_trace // preview 1D data</span></div>
|
|
<div class="line"><a id="l00079" name="l00079"></a><span class="lineno"> 79</span><span class="preprocessor"> make /o/n=0/t attr_names, attr_values, attr_filter, attr_filter_summary</span></div>
|
|
<div class="line"><a id="l00080" name="l00080"></a><span class="lineno"> 80</span><span class="preprocessor"></span> </div>
|
|
<div class="line"><a id="l00081" name="l00081"></a><span class="lineno"> 81</span><span class="preprocessor"> // persistent strings and variables. persistent = saved in preferences</span></div>
|
|
<div class="line"><a id="l00082" name="l00082"></a><span class="lineno"> 82</span><span class="preprocessor"> string /g s_filepath = "" // directory path to be listed</span></div>
|
|
<div class="line"><a id="l00083" name="l00083"></a><span class="lineno"> 83</span><span class="preprocessor"> string /g s_hdf_options = "" // recently used HDF5 load options</span></div>
|
|
<div class="line"><a id="l00084" name="l00084"></a><span class="lineno"> 84</span><span class="preprocessor"> string /g s_reduction_params = "" // recently used reduction parameters</span></div>
|
|
<div class="line"><a id="l00085" name="l00085"></a><span class="lineno"> 85</span><span class="preprocessor"> string /g s_preview_pvs = "" // semicolon-separated list of EPICS PVs to display in preview.</span></div>
|
|
<div class="line"><a id="l00086" name="l00086"></a><span class="lineno"> 86</span><span class="preprocessor"> // the list items can contain wildcards for StringMatch</span></div>
|
|
<div class="line"><a id="l00087" name="l00087"></a><span class="lineno"> 87</span><span class="preprocessor"> s_preview_pvs = "*OP:CURRENT*;*Stats*Total*;*KEITHLEY*READOUT;*CADC*"</span></div>
|
|
<div class="line"><a id="l00088" name="l00088"></a><span class="lineno"> 88</span><span class="preprocessor"></span> </div>
|
|
<div class="line"><a id="l00089" name="l00089"></a><span class="lineno"> 89</span><span class="preprocessor"> redimension /n=26 attr_filter_summary</span></div>
|
|
<div class="line"><a id="l00090" name="l00090"></a><span class="lineno"> 90</span><span class="preprocessor"> attr_filter_summary[0] = "MonoEnergy"</span></div>
|
|
<div class="line"><a id="l00091" name="l00091"></a><span class="lineno"> 91</span><span class="preprocessor"> attr_filter_summary[1] = "MonoGrating"</span></div>
|
|
<div class="line"><a id="l00092" name="l00092"></a><span class="lineno"> 92</span><span class="preprocessor"> attr_filter_summary[2] = "ExitSlit"</span></div>
|
|
<div class="line"><a id="l00093" name="l00093"></a><span class="lineno"> 93</span><span class="preprocessor"> attr_filter_summary[3] = "FrontendHSize"</span></div>
|
|
<div class="line"><a id="l00094" name="l00094"></a><span class="lineno"> 94</span><span class="preprocessor"> attr_filter_summary[4] = "FrontendVSize"</span></div>
|
|
<div class="line"><a id="l00095" name="l00095"></a><span class="lineno"> 95</span><span class="preprocessor"> attr_filter_summary[5] = "ManipulatorPhi"</span></div>
|
|
<div class="line"><a id="l00096" name="l00096"></a><span class="lineno"> 96</span><span class="preprocessor"> attr_filter_summary[6] = "ManipulatorTheta"</span></div>
|
|
<div class="line"><a id="l00097" name="l00097"></a><span class="lineno"> 97</span><span class="preprocessor"> attr_filter_summary[7] = "ManipulatorTilt"</span></div>
|
|
<div class="line"><a id="l00098" name="l00098"></a><span class="lineno"> 98</span><span class="preprocessor"> attr_filter_summary[8] = "ManipulatorX"</span></div>
|
|
<div class="line"><a id="l00099" name="l00099"></a><span class="lineno"> 99</span><span class="preprocessor"> attr_filter_summary[9] = "ManipulatorY"</span></div>
|
|
<div class="line"><a id="l00100" name="l00100"></a><span class="lineno"> 100</span><span class="preprocessor"> attr_filter_summary[10] = "ManipulatorZ"</span></div>
|
|
<div class="line"><a id="l00101" name="l00101"></a><span class="lineno"> 101</span><span class="preprocessor"> attr_filter_summary[11] = "PassEnergy"</span></div>
|
|
<div class="line"><a id="l00102" name="l00102"></a><span class="lineno"> 102</span><span class="preprocessor"> attr_filter_summary[12] = "LensMode"</span></div>
|
|
<div class="line"><a id="l00103" name="l00103"></a><span class="lineno"> 103</span><span class="preprocessor"> attr_filter_summary[13] = "ScientaDwellTime"</span></div>
|
|
<div class="line"><a id="l00104" name="l00104"></a><span class="lineno"> 104</span><span class="preprocessor"> attr_filter_summary[14] = "ScientaCenterEnergy"</span></div>
|
|
<div class="line"><a id="l00105" name="l00105"></a><span class="lineno"> 105</span><span class="preprocessor"> attr_filter_summary[15] = "ScientaChannelBegin"</span></div>
|
|
<div class="line"><a id="l00106" name="l00106"></a><span class="lineno"> 106</span><span class="preprocessor"> attr_filter_summary[16] = "ScientaChannelEnd"</span></div>
|
|
<div class="line"><a id="l00107" name="l00107"></a><span class="lineno"> 107</span><span class="preprocessor"> attr_filter_summary[17] = "ScientaSliceBegin"</span></div>
|
|
<div class="line"><a id="l00108" name="l00108"></a><span class="lineno"> 108</span><span class="preprocessor"> attr_filter_summary[18] = "ScientaSliceEnd"</span></div>
|
|
<div class="line"><a id="l00109" name="l00109"></a><span class="lineno"> 109</span><span class="preprocessor"> attr_filter_summary[19] = "ScientaNumChannels"</span></div>
|
|
<div class="line"><a id="l00110" name="l00110"></a><span class="lineno"> 110</span><span class="preprocessor"> attr_filter_summary[20] = "StepSize"</span></div>
|
|
<div class="line"><a id="l00111" name="l00111"></a><span class="lineno"> 111</span><span class="preprocessor"> attr_filter_summary[21] = "ScientaNumSlices"</span></div>
|
|
<div class="line"><a id="l00112" name="l00112"></a><span class="lineno"> 112</span><span class="preprocessor"> attr_filter_summary[22] = "ManipulatorTempA"</span></div>
|
|
<div class="line"><a id="l00113" name="l00113"></a><span class="lineno"> 113</span><span class="preprocessor"> attr_filter_summary[23] = "ManipulatorTempB"</span></div>
|
|
<div class="line"><a id="l00114" name="l00114"></a><span class="lineno"> 114</span><span class="preprocessor"> attr_filter_summary[24] = "RefCurrent"</span></div>
|
|
<div class="line"><a id="l00115" name="l00115"></a><span class="lineno"> 115</span><span class="preprocessor"> attr_filter_summary[25] = "SampleCurrent"</span></div>
|
|
<div class="line"><a id="l00116" name="l00116"></a><span class="lineno"> 116</span><span class="preprocessor"> </span></div>
|
|
<div class="line"><a id="l00117" name="l00117"></a><span class="lineno"> 117</span><span class="preprocessor"> // non-persistent strings and variables</span></div>
|
|
<div class="line"><a id="l00118" name="l00118"></a><span class="lineno"> 118</span><span class="preprocessor"> string /g s_short_filepath = "" // abbreviated directory path</span></div>
|
|
<div class="line"><a id="l00119" name="l00119"></a><span class="lineno"> 119</span><span class="preprocessor"> string /g s_selected_file = ""</span></div>
|
|
<div class="line"><a id="l00120" name="l00120"></a><span class="lineno"> 120</span><span class="preprocessor"> string /g s_selected_dataset = ""</span></div>
|
|
<div class="line"><a id="l00121" name="l00121"></a><span class="lineno"> 121</span><span class="preprocessor"> string /g s_preview_file = "" // file or folder name of the current preview</span></div>
|
|
<div class="line"><a id="l00122" name="l00122"></a><span class="lineno"> 122</span><span class="preprocessor"> string /g s_preview_source = "" // data source, e.g. EPICS channel name, of the current preview</span></div>
|
|
<div class="line"><a id="l00123" name="l00123"></a><span class="lineno"> 123</span><span class="preprocessor"> string /g s_profiles_graph = "" // window name of the current preview if the data is two-dimensional</span></div>
|
|
<div class="line"><a id="l00124" name="l00124"></a><span class="lineno"> 124</span><span class="preprocessor"> string /g s_preview_trace_graph = "" // window name of the current preview if the data is one-dimensional</span></div>
|
|
<div class="line"><a id="l00125" name="l00125"></a><span class="lineno"> 125</span><span class="preprocessor"> string /g s_preview_graph = "" // window name of the most recent preview graph</span></div>
|
|
<div class="line"><a id="l00126" name="l00126"></a><span class="lineno"> 126</span><span class="preprocessor"> string /g s_file_info = "" // description of selected file</span></div>
|
|
<div class="line"><a id="l00127" name="l00127"></a><span class="lineno"> 127</span><span class="preprocessor"> string /g s_result = "" // result of last operation</span></div>
|
|
<div class="line"><a id="l00128" name="l00128"></a><span class="lineno"> 128</span><span class="preprocessor"> </span></div>
|
|
<div class="line"><a id="l00129" name="l00129"></a><span class="lineno"> 129</span><span class="preprocessor"> variable/g v_InitPanelDone = 1</span></div>
|
|
<div class="line"><a id="l00130" name="l00130"></a><span class="lineno"> 130</span><span class="preprocessor"> </span></div>
|
|
<div class="line"><a id="l00131" name="l00131"></a><span class="lineno"> 131</span><span class="preprocessor"> SetDataFolder save_df</span></div>
|
|
<div class="line"><a id="l00132" name="l00132"></a><span class="lineno"> 132</span><span class="preprocessor">end</span></div>
|
|
</div>
|
|
<div class="line"><a id="l00133" name="l00133"></a><span class="lineno"> 133</span><span class="preprocessor"></span> </div>
|
|
<div class="foldopen" id="foldopen00139" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00139" name="l00139"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#ac729557a307bddd2f2ad298199976c01"> 139</a></span>static function save_prefs()</div>
|
|
<div class="line"><a id="l00140" name="l00140"></a><span class="lineno"> 140</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l00141" name="l00141"></a><span class="lineno"> 141</span> dfref df = $package_path</div>
|
|
<div class="line"><a id="l00142" name="l00142"></a><span class="lineno"> 142</span> if (DataFolderRefStatus(df) == 1)</div>
|
|
<div class="line"><a id="l00143" name="l00143"></a><span class="lineno"> 143</span> string fullPath = SpecialDirPath("Packages", 0, 0, 0)</div>
|
|
<div class="line"><a id="l00144" name="l00144"></a><span class="lineno"> 144</span> fullPath += package_name</div>
|
|
<div class="line"><a id="l00145" name="l00145"></a><span class="lineno"> 145</span> NewPath/O/C/Q tempPackagePrefsPath, fullPath</div>
|
|
<div class="line"><a id="l00146" name="l00146"></a><span class="lineno"> 146</span> fullPath += ":preferences.pxp"</div>
|
|
<div class="line"><a id="l00147" name="l00147"></a><span class="lineno"> 147</span> SetDataFolder df</div>
|
|
<div class="line"><a id="l00148" name="l00148"></a><span class="lineno"> 148</span> string objects = "attr_filter;attr_filter_summary;s_filepath;s_hdf_options;s_reduction_params;s_preview_pvs"</div>
|
|
<div class="line"><a id="l00149" name="l00149"></a><span class="lineno"> 149</span> SaveData /O /Q /J=objects fullPath</div>
|
|
<div class="line"><a id="l00150" name="l00150"></a><span class="lineno"> 150</span> KillPath/Z tempPackagePrefsPath</div>
|
|
<div class="line"><a id="l00151" name="l00151"></a><span class="lineno"> 151</span> endif</div>
|
|
<div class="line"><a id="l00152" name="l00152"></a><span class="lineno"> 152</span> SetDataFolder save_df</div>
|
|
<div class="line"><a id="l00153" name="l00153"></a><span class="lineno"> 153</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00154" name="l00154"></a><span class="lineno"> 154</span> </div>
|
|
<div class="foldopen" id="foldopen00155" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00155" name="l00155"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a92c27964d49ab8bcd7afc858ebe214a3"> 155</a></span>static function load_prefs()</div>
|
|
<div class="line"><a id="l00156" name="l00156"></a><span class="lineno"> 156</span> // loads persistent package data from the preferences file</div>
|
|
<div class="line"><a id="l00157" name="l00157"></a><span class="lineno"> 157</span> // the preferences file is an Igor packed experiment file in a special preferences folder</div>
|
|
<div class="line"><a id="l00158" name="l00158"></a><span class="lineno"> 158</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l00159" name="l00159"></a><span class="lineno"> 159</span> </div>
|
|
<div class="line"><a id="l00160" name="l00160"></a><span class="lineno"> 160</span> variable result = -1</div>
|
|
<div class="line"><a id="l00161" name="l00161"></a><span class="lineno"> 161</span> setdatafolder root:</div>
|
|
<div class="line"><a id="l00162" name="l00162"></a><span class="lineno"> 162</span> NewDataFolder /O/S packages</div>
|
|
<div class="line"><a id="l00163" name="l00163"></a><span class="lineno"> 163</span> NewDataFolder /O/S $package_name</div>
|
|
<div class="line"><a id="l00164" name="l00164"></a><span class="lineno"> 164</span> dfref package_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l00165" name="l00165"></a><span class="lineno"> 165</span> string fullPath = SpecialDirPath("Packages", 0, 0, 0)</div>
|
|
<div class="line"><a id="l00166" name="l00166"></a><span class="lineno"> 166</span> fullPath += package_name</div>
|
|
<div class="line"><a id="l00167" name="l00167"></a><span class="lineno"> 167</span> </div>
|
|
<div class="line"><a id="l00168" name="l00168"></a><span class="lineno"> 168</span> GetFileFolderInfo /Q /Z fullPath</div>
|
|
<div class="line"><a id="l00169" name="l00169"></a><span class="lineno"> 169</span> if (V_Flag == 0) // Disk directory exists?</div>
|
|
<div class="line"><a id="l00170" name="l00170"></a><span class="lineno"> 170</span> fullPath += ":preferences.pxp"</div>
|
|
<div class="line"><a id="l00171" name="l00171"></a><span class="lineno"> 171</span> GetFileFolderInfo /Q /Z fullPath</div>
|
|
<div class="line"><a id="l00172" name="l00172"></a><span class="lineno"> 172</span> if (V_Flag == 0) // Preference file exist?</div>
|
|
<div class="line"><a id="l00173" name="l00173"></a><span class="lineno"> 173</span> LoadData /O /R /Q fullPath</div>
|
|
<div class="line"><a id="l00174" name="l00174"></a><span class="lineno"> 174</span> result = 0</div>
|
|
<div class="line"><a id="l00175" name="l00175"></a><span class="lineno"> 175</span> endif</div>
|
|
<div class="line"><a id="l00176" name="l00176"></a><span class="lineno"> 176</span> endif</div>
|
|
<div class="line"><a id="l00177" name="l00177"></a><span class="lineno"> 177</span> </div>
|
|
<div class="line"><a id="l00178" name="l00178"></a><span class="lineno"> 178</span> if (result == 0)</div>
|
|
<div class="line"><a id="l00179" name="l00179"></a><span class="lineno"> 179</span> svar /sdfr=package_df filepath = s_filepath</div>
|
|
<div class="line"><a id="l00180" name="l00180"></a><span class="lineno"> 180</span> NewPath /O/Z pearl_explorer_filepath, filepath</div>
|
|
<div class="line"><a id="l00181" name="l00181"></a><span class="lineno"> 181</span> update_filepath()</div>
|
|
<div class="line"><a id="l00182" name="l00182"></a><span class="lineno"> 182</span> update_filelist()</div>
|
|
<div class="line"><a id="l00183" name="l00183"></a><span class="lineno"> 183</span> endif</div>
|
|
<div class="line"><a id="l00184" name="l00184"></a><span class="lineno"> 184</span> </div>
|
|
<div class="line"><a id="l00185" name="l00185"></a><span class="lineno"> 185</span> SetDataFolder save_df</div>
|
|
<div class="line"><a id="l00186" name="l00186"></a><span class="lineno"> 186</span> return result</div>
|
|
<div class="line"><a id="l00187" name="l00187"></a><span class="lineno"> 187</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00188" name="l00188"></a><span class="lineno"> 188</span> </div>
|
|
<div class="foldopen" id="foldopen00199" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00199" name="l00199"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a8a923d7095071e7e6f99018379807732"> 199</a></span>static function pearl_file_type(filename)</div>
|
|
<div class="line"><a id="l00200" name="l00200"></a><span class="lineno"> 200</span> string filename</div>
|
|
<div class="line"><a id="l00201" name="l00201"></a><span class="lineno"> 201</span> </div>
|
|
<div class="line"><a id="l00202" name="l00202"></a><span class="lineno"> 202</span> if (StringMatch(filename, ks_filematch_pshell))</div>
|
|
<div class="line"><a id="l00203" name="l00203"></a><span class="lineno"> 203</span> return 1</div>
|
|
<div class="line"><a id="l00204" name="l00204"></a><span class="lineno"> 204</span> elseif (StringMatch(filename, ks_filematch_adh5))</div>
|
|
<div class="line"><a id="l00205" name="l00205"></a><span class="lineno"> 205</span> return 2</div>
|
|
<div class="line"><a id="l00206" name="l00206"></a><span class="lineno"> 206</span> elseif (StringMatch(filename, ks_filematch_itx))</div>
|
|
<div class="line"><a id="l00207" name="l00207"></a><span class="lineno"> 207</span> return 3</div>
|
|
<div class="line"><a id="l00208" name="l00208"></a><span class="lineno"> 208</span> else</div>
|
|
<div class="line"><a id="l00209" name="l00209"></a><span class="lineno"> 209</span> return 0</div>
|
|
<div class="line"><a id="l00210" name="l00210"></a><span class="lineno"> 210</span> endif</div>
|
|
<div class="line"><a id="l00211" name="l00211"></a><span class="lineno"> 211</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00212" name="l00212"></a><span class="lineno"> 212</span> </div>
|
|
<div class="foldopen" id="foldopen00218" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00218" name="l00218"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#ae02b954d90dc8f43c007cc3fb1a1ee16"> 218</a></span>static function update_filepath()</div>
|
|
<div class="line"><a id="l00219" name="l00219"></a><span class="lineno"> 219</span> PathInfo /S pearl_explorer_filepath</div>
|
|
<div class="line"><a id="l00220" name="l00220"></a><span class="lineno"> 220</span> svar filepath = $(package_path + "s_filepath")</div>
|
|
<div class="line"><a id="l00221" name="l00221"></a><span class="lineno"> 221</span> svar shortpath = $(package_path + "s_short_filepath")</div>
|
|
<div class="line"><a id="l00222" name="l00222"></a><span class="lineno"> 222</span> filepath = s_path</div>
|
|
<div class="line"><a id="l00223" name="l00223"></a><span class="lineno"> 223</span> shortpath = shorten_filepath(filepath, 40)</div>
|
|
<div class="line"><a id="l00224" name="l00224"></a><span class="lineno"> 224</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00225" name="l00225"></a><span class="lineno"> 225</span> </div>
|
|
<div class="foldopen" id="foldopen00231" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00231" name="l00231"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a04cc0b9d5e3a649ba3514fcbf126eefe"> 231</a></span>static function update_filelist()</div>
|
|
<div class="line"><a id="l00232" name="l00232"></a><span class="lineno"> 232</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l00233" name="l00233"></a><span class="lineno"> 233</span> </div>
|
|
<div class="line"><a id="l00234" name="l00234"></a><span class="lineno"> 234</span> string all_files</div>
|
|
<div class="line"><a id="l00235" name="l00235"></a><span class="lineno"> 235</span> wave /t wtFiles = $(package_path + "wtFiles")</div>
|
|
<div class="line"><a id="l00236" name="l00236"></a><span class="lineno"> 236</span> wave wSelectedFiles = $(package_path + "wSelectedFiles")</div>
|
|
<div class="line"><a id="l00237" name="l00237"></a><span class="lineno"> 237</span> variable nn</div>
|
|
<div class="line"><a id="l00238" name="l00238"></a><span class="lineno"> 238</span> </div>
|
|
<div class="line"><a id="l00239" name="l00239"></a><span class="lineno"> 239</span> PathInfo pearl_explorer_filepath</div>
|
|
<div class="line"><a id="l00240" name="l00240"></a><span class="lineno"> 240</span> if (v_flag == 1)</div>
|
|
<div class="line"><a id="l00241" name="l00241"></a><span class="lineno"> 241</span> all_files = IndexedFile(pearl_explorer_filepath, -1, "????")</div>
|
|
<div class="line"><a id="l00242" name="l00242"></a><span class="lineno"> 242</span> nn = ItemsInList(all_files)</div>
|
|
<div class="line"><a id="l00243" name="l00243"></a><span class="lineno"> 243</span> else</div>
|
|
<div class="line"><a id="l00244" name="l00244"></a><span class="lineno"> 244</span> all_files = ""</div>
|
|
<div class="line"><a id="l00245" name="l00245"></a><span class="lineno"> 245</span> nn = 0</div>
|
|
<div class="line"><a id="l00246" name="l00246"></a><span class="lineno"> 246</span> endif</div>
|
|
<div class="line"><a id="l00247" name="l00247"></a><span class="lineno"> 247</span> </div>
|
|
<div class="line"><a id="l00248" name="l00248"></a><span class="lineno"> 248</span> make /n=(nn) /t /free wtAllFiles</div>
|
|
<div class="line"><a id="l00249" name="l00249"></a><span class="lineno"> 249</span> wtAllFiles = StringFromList(p, all_files)</div>
|
|
<div class="line"><a id="l00250" name="l00250"></a><span class="lineno"> 250</span> Extract /o /t wtAllFiles, wtFiles, pearl_file_type(wtAllFiles[p])</div>
|
|
<div class="line"><a id="l00251" name="l00251"></a><span class="lineno"> 251</span> Sort /A /R wtFiles, wtFiles</div>
|
|
<div class="line"><a id="l00252" name="l00252"></a><span class="lineno"> 252</span> </div>
|
|
<div class="line"><a id="l00253" name="l00253"></a><span class="lineno"> 253</span> redimension /n=(numpnts(wtFiles)) wSelectedFiles</div>
|
|
<div class="line"><a id="l00254" name="l00254"></a><span class="lineno"> 254</span> wSelectedFiles = 0</div>
|
|
<div class="line"><a id="l00255" name="l00255"></a><span class="lineno"> 255</span> </div>
|
|
<div class="line"><a id="l00256" name="l00256"></a><span class="lineno"> 256</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l00257" name="l00257"></a><span class="lineno"> 257</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00258" name="l00258"></a><span class="lineno"> 258</span> </div>
|
|
<div class="line"><a id="l00259" name="l00259"></a><span class="lineno"> 259</span>// ====== metadata ======</div>
|
|
<div class="line"><a id="l00260" name="l00260"></a><span class="lineno"> 260</span> </div>
|
|
<div class="foldopen" id="foldopen00273" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00273" name="l00273"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a66043ccbe2e8dda258e639cb7a231537"> 273</a></span>static function get_file_info(filename)</div>
|
|
<div class="line"><a id="l00274" name="l00274"></a><span class="lineno"> 274</span> string filename</div>
|
|
<div class="line"><a id="l00275" name="l00275"></a><span class="lineno"> 275</span> </div>
|
|
<div class="line"><a id="l00276" name="l00276"></a><span class="lineno"> 276</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l00277" name="l00277"></a><span class="lineno"> 277</span> dfref package_df = $package_path</div>
|
|
<div class="line"><a id="l00278" name="l00278"></a><span class="lineno"> 278</span> </div>
|
|
<div class="line"><a id="l00279" name="l00279"></a><span class="lineno"> 279</span> variable ft = pearl_file_type(filename)</div>
|
|
<div class="line"><a id="l00280" name="l00280"></a><span class="lineno"> 280</span> variable result = 0</div>
|
|
<div class="line"><a id="l00281" name="l00281"></a><span class="lineno"> 281</span> </div>
|
|
<div class="line"><a id="l00282" name="l00282"></a><span class="lineno"> 282</span> switch(ft)</div>
|
|
<div class="line"><a id="l00283" name="l00283"></a><span class="lineno"> 283</span> case 1:</div>
|
|
<div class="line"><a id="l00284" name="l00284"></a><span class="lineno"> 284</span> case 2:</div>
|
|
<div class="line"><a id="l00285" name="l00285"></a><span class="lineno"> 285</span> dfref file_df = get_pshell_info("pearl_explorer_filepath", filename)</div>
|
|
<div class="line"><a id="l00286" name="l00286"></a><span class="lineno"> 286</span> result = hl_contents_update(file_df)</div>
|
|
<div class="line"><a id="l00287" name="l00287"></a><span class="lineno"> 287</span> result = result >= 3 ? 0 : -2</div>
|
|
<div class="line"><a id="l00288" name="l00288"></a><span class="lineno"> 288</span> break</div>
|
|
<div class="line"><a id="l00289" name="l00289"></a><span class="lineno"> 289</span> default:</div>
|
|
<div class="line"><a id="l00290" name="l00290"></a><span class="lineno"> 290</span> hl_contents_clear()</div>
|
|
<div class="line"><a id="l00291" name="l00291"></a><span class="lineno"> 291</span> dfref file_df = package_df:file_info</div>
|
|
<div class="line"><a id="l00292" name="l00292"></a><span class="lineno"> 292</span> KillDataFolder /z file_df</div>
|
|
<div class="line"><a id="l00293" name="l00293"></a><span class="lineno"> 293</span> result = -1</div>
|
|
<div class="line"><a id="l00294" name="l00294"></a><span class="lineno"> 294</span> endswitch</div>
|
|
<div class="line"><a id="l00295" name="l00295"></a><span class="lineno"> 295</span> </div>
|
|
<div class="line"><a id="l00296" name="l00296"></a><span class="lineno"> 296</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l00297" name="l00297"></a><span class="lineno"> 297</span> return result</div>
|
|
<div class="line"><a id="l00298" name="l00298"></a><span class="lineno"> 298</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00299" name="l00299"></a><span class="lineno"> 299</span> </div>
|
|
<div class="foldopen" id="foldopen00301" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00301" name="l00301"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a844467a592e5b26b2324326f22b7da89"> 301</a></span>static function attributes_notebook(filename)</div>
|
|
<div class="line"><a id="l00302" name="l00302"></a><span class="lineno"> 302</span> string filename</div>
|
|
<div class="line"><a id="l00303" name="l00303"></a><span class="lineno"> 303</span> </div>
|
|
<div class="line"><a id="l00304" name="l00304"></a><span class="lineno"> 304</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l00305" name="l00305"></a><span class="lineno"> 305</span> dfref temp_df = NewFreeDataFolder()</div>
|
|
<div class="line"><a id="l00306" name="l00306"></a><span class="lineno"> 306</span> </div>
|
|
<div class="line"><a id="l00307" name="l00307"></a><span class="lineno"> 307</span> load_file(filename, options="mode:load_diags", dest_df=temp_df, quiet=1)</div>
|
|
<div class="line"><a id="l00308" name="l00308"></a><span class="lineno"> 308</span> svar /sdfr=temp_df /z s_loaded_datasets</div>
|
|
<div class="line"><a id="l00309" name="l00309"></a><span class="lineno"> 309</span> string scan</div>
|
|
<div class="line"><a id="l00310" name="l00310"></a><span class="lineno"> 310</span> dfref scan_df</div>
|
|
<div class="line"><a id="l00311" name="l00311"></a><span class="lineno"> 311</span> if (SVAR_Exists(s_loaded_datasets) && (strlen(s_loaded_datasets) >= 4))</div>
|
|
<div class="line"><a id="l00312" name="l00312"></a><span class="lineno"> 312</span> scan = StringFromList(0, psh5_extract_scan_paths(s_loaded_datasets), ";")</div>
|
|
<div class="line"><a id="l00313" name="l00313"></a><span class="lineno"> 313</span> scan_df = psh5_dataset_to_folder(temp_df, scan)</div>
|
|
<div class="line"><a id="l00314" name="l00314"></a><span class="lineno"> 314</span> else</div>
|
|
<div class="line"><a id="l00315" name="l00315"></a><span class="lineno"> 315</span> scan_df = temp_df</div>
|
|
<div class="line"><a id="l00316" name="l00316"></a><span class="lineno"> 316</span> endif</div>
|
|
<div class="line"><a id="l00317" name="l00317"></a><span class="lineno"> 317</span> </div>
|
|
<div class="line"><a id="l00318" name="l00318"></a><span class="lineno"> 318</span> dfref attr_df = ps_find_attr_folder(scan_df)</div>
|
|
<div class="line"><a id="l00319" name="l00319"></a><span class="lineno"> 319</span> if (DataFolderRefStatus(attr_df))</div>
|
|
<div class="line"><a id="l00320" name="l00320"></a><span class="lineno"> 320</span> extract_attributes(attr_df, dest_df=temp_df)</div>
|
|
<div class="line"><a id="l00321" name="l00321"></a><span class="lineno"> 321</span> wave /t /sdfr=temp_df /z attr_names</div>
|
|
<div class="line"><a id="l00322" name="l00322"></a><span class="lineno"> 322</span> wave /t /sdfr=temp_df /z attr_values</div>
|
|
<div class="line"><a id="l00323" name="l00323"></a><span class="lineno"> 323</span> if (WaveExists(attr_names) && WaveExists(attr_values))</div>
|
|
<div class="line"><a id="l00324" name="l00324"></a><span class="lineno"> 324</span> create_attributes_notebook(attr_names, attr_values, filename)</div>
|
|
<div class="line"><a id="l00325" name="l00325"></a><span class="lineno"> 325</span> endif</div>
|
|
<div class="line"><a id="l00326" name="l00326"></a><span class="lineno"> 326</span> endif</div>
|
|
<div class="line"><a id="l00327" name="l00327"></a><span class="lineno"> 327</span> </div>
|
|
<div class="line"><a id="l00328" name="l00328"></a><span class="lineno"> 328</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l00329" name="l00329"></a><span class="lineno"> 329</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00330" name="l00330"></a><span class="lineno"> 330</span> </div>
|
|
<div class="foldopen" id="foldopen00347" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00347" name="l00347"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#af4474f34647ec24f27f900226c6bb3bd"> 347</a></span>static function extract_attributes(attr_df, [dest_df, attr_filter, include_datawaves, include_infowaves])</div>
|
|
<div class="line"><a id="l00348" name="l00348"></a><span class="lineno"> 348</span> dfref attr_df</div>
|
|
<div class="line"><a id="l00349" name="l00349"></a><span class="lineno"> 349</span> dfref dest_df</div>
|
|
<div class="line"><a id="l00350" name="l00350"></a><span class="lineno"> 350</span> wave /t attr_filter</div>
|
|
<div class="line"><a id="l00351" name="l00351"></a><span class="lineno"> 351</span> variable include_datawaves</div>
|
|
<div class="line"><a id="l00352" name="l00352"></a><span class="lineno"> 352</span> variable include_infowaves</div>
|
|
<div class="line"><a id="l00353" name="l00353"></a><span class="lineno"> 353</span> </div>
|
|
<div class="line"><a id="l00354" name="l00354"></a><span class="lineno"> 354</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l00355" name="l00355"></a><span class="lineno"> 355</span> dfref package_df = $package_path</div>
|
|
<div class="line"><a id="l00356" name="l00356"></a><span class="lineno"> 356</span> </div>
|
|
<div class="line"><a id="l00357" name="l00357"></a><span class="lineno"> 357</span> if (ParamIsDefault(dest_df))</div>
|
|
<div class="line"><a id="l00358" name="l00358"></a><span class="lineno"> 358</span> dest_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l00359" name="l00359"></a><span class="lineno"> 359</span> endif</div>
|
|
<div class="line"><a id="l00360" name="l00360"></a><span class="lineno"> 360</span> if (ParamIsDefault(attr_filter) || !WaveExists(attr_filter))</div>
|
|
<div class="line"><a id="l00361" name="l00361"></a><span class="lineno"> 361</span> wave /t /sdfr=package_df /z attr_filter</div>
|
|
<div class="line"><a id="l00362" name="l00362"></a><span class="lineno"> 362</span> endif</div>
|
|
<div class="line"><a id="l00363" name="l00363"></a><span class="lineno"> 363</span> if (ParamIsDefault(include_datawaves))</div>
|
|
<div class="line"><a id="l00364" name="l00364"></a><span class="lineno"> 364</span> include_datawaves = 1</div>
|
|
<div class="line"><a id="l00365" name="l00365"></a><span class="lineno"> 365</span> endif</div>
|
|
<div class="line"><a id="l00366" name="l00366"></a><span class="lineno"> 366</span> if (ParamIsDefault(include_infowaves))</div>
|
|
<div class="line"><a id="l00367" name="l00367"></a><span class="lineno"> 367</span> include_infowaves = 1</div>
|
|
<div class="line"><a id="l00368" name="l00368"></a><span class="lineno"> 368</span> endif</div>
|
|
<div class="line"><a id="l00369" name="l00369"></a><span class="lineno"> 369</span> </div>
|
|
<div class="line"><a id="l00370" name="l00370"></a><span class="lineno"> 370</span> setdatafolder dest_df</div>
|
|
<div class="line"><a id="l00371" name="l00371"></a><span class="lineno"> 371</span> wave /t /z attr_names, attr_values</div>
|
|
<div class="line"><a id="l00372" name="l00372"></a><span class="lineno"> 372</span> if (!WaveExists(attr_names) || !WaveExists(attr_values))</div>
|
|
<div class="line"><a id="l00373" name="l00373"></a><span class="lineno"> 373</span> make /n=(1) /o /t attr_names, attr_values</div>
|
|
<div class="line"><a id="l00374" name="l00374"></a><span class="lineno"> 374</span> endif</div>
|
|
<div class="line"><a id="l00375" name="l00375"></a><span class="lineno"> 375</span> attr_names = ""</div>
|
|
<div class="line"><a id="l00376" name="l00376"></a><span class="lineno"> 376</span> attr_values = ""</div>
|
|
<div class="line"><a id="l00377" name="l00377"></a><span class="lineno"> 377</span> </div>
|
|
<div class="line"><a id="l00378" name="l00378"></a><span class="lineno"> 378</span> setdatafolder attr_df</div>
|
|
<div class="line"><a id="l00379" name="l00379"></a><span class="lineno"> 379</span> wave /t /z IN</div>
|
|
<div class="line"><a id="l00380" name="l00380"></a><span class="lineno"> 380</span> wave /t /z ID</div>
|
|
<div class="line"><a id="l00381" name="l00381"></a><span class="lineno"> 381</span> wave /t /z IV</div>
|
|
<div class="line"><a id="l00382" name="l00382"></a><span class="lineno"> 382</span> wave /t /z IU</div>
|
|
<div class="line"><a id="l00383" name="l00383"></a><span class="lineno"> 383</span> </div>
|
|
<div class="line"><a id="l00384" name="l00384"></a><span class="lineno"> 384</span> // compile list of attributes</div>
|
|
<div class="line"><a id="l00385" name="l00385"></a><span class="lineno"> 385</span> variable nattr // destination attributes</div>
|
|
<div class="line"><a id="l00386" name="l00386"></a><span class="lineno"> 386</span> variable iattr</div>
|
|
<div class="line"><a id="l00387" name="l00387"></a><span class="lineno"> 387</span> variable ninfo // info wave elements</div>
|
|
<div class="line"><a id="l00388" name="l00388"></a><span class="lineno"> 388</span> variable iinfo</div>
|
|
<div class="line"><a id="l00389" name="l00389"></a><span class="lineno"> 389</span> variable nw // attribute waves</div>
|
|
<div class="line"><a id="l00390" name="l00390"></a><span class="lineno"> 390</span> variable iw</div>
|
|
<div class="line"><a id="l00391" name="l00391"></a><span class="lineno"> 391</span> string sw</div>
|
|
<div class="line"><a id="l00392" name="l00392"></a><span class="lineno"> 392</span> string ss</div>
|
|
<div class="line"><a id="l00393" name="l00393"></a><span class="lineno"> 393</span> </div>
|
|
<div class="line"><a id="l00394" name="l00394"></a><span class="lineno"> 394</span> if (WaveExists(IN) && include_infowaves)</div>
|
|
<div class="line"><a id="l00395" name="l00395"></a><span class="lineno"> 395</span> ninfo = numpnts(IN)</div>
|
|
<div class="line"><a id="l00396" name="l00396"></a><span class="lineno"> 396</span> else</div>
|
|
<div class="line"><a id="l00397" name="l00397"></a><span class="lineno"> 397</span> ninfo = 0</div>
|
|
<div class="line"><a id="l00398" name="l00398"></a><span class="lineno"> 398</span> endif</div>
|
|
<div class="line"><a id="l00399" name="l00399"></a><span class="lineno"> 399</span> if (include_datawaves)</div>
|
|
<div class="line"><a id="l00400" name="l00400"></a><span class="lineno"> 400</span> string waves = WaveList("*", ";", "")</div>
|
|
<div class="line"><a id="l00401" name="l00401"></a><span class="lineno"> 401</span> string exceptions = "ID;IN;IU;IV"</div>
|
|
<div class="line"><a id="l00402" name="l00402"></a><span class="lineno"> 402</span> waves = RemoveFromList(exceptions, waves)</div>
|
|
<div class="line"><a id="l00403" name="l00403"></a><span class="lineno"> 403</span> nw = ItemsInList(waves, ";")</div>
|
|
<div class="line"><a id="l00404" name="l00404"></a><span class="lineno"> 404</span> else</div>
|
|
<div class="line"><a id="l00405" name="l00405"></a><span class="lineno"> 405</span> nw = 0</div>
|
|
<div class="line"><a id="l00406" name="l00406"></a><span class="lineno"> 406</span> endif</div>
|
|
<div class="line"><a id="l00407" name="l00407"></a><span class="lineno"> 407</span> </div>
|
|
<div class="line"><a id="l00408" name="l00408"></a><span class="lineno"> 408</span> if (WaveExists(attr_filter) && (numpnts(attr_filter) >= 1))</div>
|
|
<div class="line"><a id="l00409" name="l00409"></a><span class="lineno"> 409</span> nattr = numpnts(attr_filter)</div>
|
|
<div class="line"><a id="l00410" name="l00410"></a><span class="lineno"> 410</span> redimension /n=(nattr) attr_names</div>
|
|
<div class="line"><a id="l00411" name="l00411"></a><span class="lineno"> 411</span> attr_names = attr_filter</div>
|
|
<div class="line"><a id="l00412" name="l00412"></a><span class="lineno"> 412</span> else</div>
|
|
<div class="line"><a id="l00413" name="l00413"></a><span class="lineno"> 413</span> if(ninfo > 0)</div>
|
|
<div class="line"><a id="l00414" name="l00414"></a><span class="lineno"> 414</span> redimension /n=(ninfo) attr_names</div>
|
|
<div class="line"><a id="l00415" name="l00415"></a><span class="lineno"> 415</span> attr_names = SelectString(strlen(ID[p]) >= 0, IN[p], ID[p]) // use ID unless empty</div>
|
|
<div class="line"><a id="l00416" name="l00416"></a><span class="lineno"> 416</span> endif</div>
|
|
<div class="line"><a id="l00417" name="l00417"></a><span class="lineno"> 417</span> </div>
|
|
<div class="line"><a id="l00418" name="l00418"></a><span class="lineno"> 418</span> nattr = ninfo + nw</div>
|
|
<div class="line"><a id="l00419" name="l00419"></a><span class="lineno"> 419</span> iattr = ninfo</div>
|
|
<div class="line"><a id="l00420" name="l00420"></a><span class="lineno"> 420</span> redimension /n=(nattr) attr_names</div>
|
|
<div class="line"><a id="l00421" name="l00421"></a><span class="lineno"> 421</span> for (iw = 0; iw < nw; iw +=1 )</div>
|
|
<div class="line"><a id="l00422" name="l00422"></a><span class="lineno"> 422</span> sw = StringFromList(iw, waves, ";")</div>
|
|
<div class="line"><a id="l00423" name="l00423"></a><span class="lineno"> 423</span> ss = StringByKey("PV", note($sw), "=", "\r")</div>
|
|
<div class="line"><a id="l00424" name="l00424"></a><span class="lineno"> 424</span> FindValue /text=sw attr_names</div>
|
|
<div class="line"><a id="l00425" name="l00425"></a><span class="lineno"> 425</span> if ((v_value < 0) && (strlen(ss) >= 0))</div>
|
|
<div class="line"><a id="l00426" name="l00426"></a><span class="lineno"> 426</span> attr_names[iattr] = sw</div>
|
|
<div class="line"><a id="l00427" name="l00427"></a><span class="lineno"> 427</span> iattr += 1</div>
|
|
<div class="line"><a id="l00428" name="l00428"></a><span class="lineno"> 428</span> endif</div>
|
|
<div class="line"><a id="l00429" name="l00429"></a><span class="lineno"> 429</span> endfor</div>
|
|
<div class="line"><a id="l00430" name="l00430"></a><span class="lineno"> 430</span> nattr = iattr</div>
|
|
<div class="line"><a id="l00431" name="l00431"></a><span class="lineno"> 431</span> endif</div>
|
|
<div class="line"><a id="l00432" name="l00432"></a><span class="lineno"> 432</span> redimension /n=(nattr) attr_names, attr_values</div>
|
|
<div class="line"><a id="l00433" name="l00433"></a><span class="lineno"> 433</span> sort attr_names, attr_names</div>
|
|
<div class="line"><a id="l00434" name="l00434"></a><span class="lineno"> 434</span> </div>
|
|
<div class="line"><a id="l00435" name="l00435"></a><span class="lineno"> 435</span> // look up attribute values</div>
|
|
<div class="line"><a id="l00436" name="l00436"></a><span class="lineno"> 436</span> for (iattr = 0; iattr < nattr; iattr += 1)</div>
|
|
<div class="line"><a id="l00437" name="l00437"></a><span class="lineno"> 437</span> sw = attr_names[iattr]</div>
|
|
<div class="line"><a id="l00438" name="l00438"></a><span class="lineno"> 438</span> // try info waves</div>
|
|
<div class="line"><a id="l00439" name="l00439"></a><span class="lineno"> 439</span> if (ninfo > 0)</div>
|
|
<div class="line"><a id="l00440" name="l00440"></a><span class="lineno"> 440</span> FindValue /text=sw ID</div>
|
|
<div class="line"><a id="l00441" name="l00441"></a><span class="lineno"> 441</span> if (v_value >= 0)</div>
|
|
<div class="line"><a id="l00442" name="l00442"></a><span class="lineno"> 442</span> attr_values[iattr] = IV[v_value]</div>
|
|
<div class="line"><a id="l00443" name="l00443"></a><span class="lineno"> 443</span> endif</div>
|
|
<div class="line"><a id="l00444" name="l00444"></a><span class="lineno"> 444</span> FindValue /text=sw IN</div>
|
|
<div class="line"><a id="l00445" name="l00445"></a><span class="lineno"> 445</span> if (v_value >= 0)</div>
|
|
<div class="line"><a id="l00446" name="l00446"></a><span class="lineno"> 446</span> attr_values[iattr] = IV[v_value]</div>
|
|
<div class="line"><a id="l00447" name="l00447"></a><span class="lineno"> 447</span> endif</div>
|
|
<div class="line"><a id="l00448" name="l00448"></a><span class="lineno"> 448</span> endif</div>
|
|
<div class="line"><a id="l00449" name="l00449"></a><span class="lineno"> 449</span> </div>
|
|
<div class="line"><a id="l00450" name="l00450"></a><span class="lineno"> 450</span> // override from attribute wave if existent</div>
|
|
<div class="line"><a id="l00451" name="l00451"></a><span class="lineno"> 451</span> if (nw > 0)</div>
|
|
<div class="line"><a id="l00452" name="l00452"></a><span class="lineno"> 452</span> switch (WaveType($sw, 1))</div>
|
|
<div class="line"><a id="l00453" name="l00453"></a><span class="lineno"> 453</span> case 1: // numeric</div>
|
|
<div class="line"><a id="l00454" name="l00454"></a><span class="lineno"> 454</span> wave /z w = $sw</div>
|
|
<div class="line"><a id="l00455" name="l00455"></a><span class="lineno"> 455</span> if (WaveExists(w) && (numpnts(w) >= 1))</div>
|
|
<div class="line"><a id="l00456" name="l00456"></a><span class="lineno"> 456</span> sprintf ss, "%g", w[0]</div>
|
|
<div class="line"><a id="l00457" name="l00457"></a><span class="lineno"> 457</span> attr_values[iattr] = ss</div>
|
|
<div class="line"><a id="l00458" name="l00458"></a><span class="lineno"> 458</span> endif</div>
|
|
<div class="line"><a id="l00459" name="l00459"></a><span class="lineno"> 459</span> break</div>
|
|
<div class="line"><a id="l00460" name="l00460"></a><span class="lineno"> 460</span> case 2: // text</div>
|
|
<div class="line"><a id="l00461" name="l00461"></a><span class="lineno"> 461</span> wave /t/z wt = $sw</div>
|
|
<div class="line"><a id="l00462" name="l00462"></a><span class="lineno"> 462</span> if (WaveExists(wt) && (numpnts(wt) >= 1))</div>
|
|
<div class="line"><a id="l00463" name="l00463"></a><span class="lineno"> 463</span> attr_values[iattr] = wt[0]</div>
|
|
<div class="line"><a id="l00464" name="l00464"></a><span class="lineno"> 464</span> endif</div>
|
|
<div class="line"><a id="l00465" name="l00465"></a><span class="lineno"> 465</span> break</div>
|
|
<div class="line"><a id="l00466" name="l00466"></a><span class="lineno"> 466</span> endswitch</div>
|
|
<div class="line"><a id="l00467" name="l00467"></a><span class="lineno"> 467</span> endif</div>
|
|
<div class="line"><a id="l00468" name="l00468"></a><span class="lineno"> 468</span> endfor</div>
|
|
<div class="line"><a id="l00469" name="l00469"></a><span class="lineno"> 469</span> </div>
|
|
<div class="line"><a id="l00470" name="l00470"></a><span class="lineno"> 470</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l00471" name="l00471"></a><span class="lineno"> 471</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00472" name="l00472"></a><span class="lineno"> 472</span> </div>
|
|
<div class="foldopen" id="foldopen00473" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00473" name="l00473"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a71f9c277d310c3f4e7739be69dad0ab5"> 473</a></span>function test_attributes_notebook()</div>
|
|
<div class="line"><a id="l00474" name="l00474"></a><span class="lineno"> 474</span> dfref df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l00475" name="l00475"></a><span class="lineno"> 475</span> wave /t /sdfr=df attr_names</div>
|
|
<div class="line"><a id="l00476" name="l00476"></a><span class="lineno"> 476</span> wave /t /sdfr=df attr_values</div>
|
|
<div class="line"><a id="l00477" name="l00477"></a><span class="lineno"> 477</span> create_attributes_notebook(attr_names, attr_values, GetDataFolder(0))</div>
|
|
<div class="line"><a id="l00478" name="l00478"></a><span class="lineno"> 478</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00479" name="l00479"></a><span class="lineno"> 479</span> </div>
|
|
<div class="foldopen" id="foldopen00480" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00480" name="l00480"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a77047115739da6d28055f7fd44c9fd2c"> 480</a></span>static function create_attributes_notebook(attr_names, attr_values, title)</div>
|
|
<div class="line"><a id="l00481" name="l00481"></a><span class="lineno"> 481</span> wave /t attr_names</div>
|
|
<div class="line"><a id="l00482" name="l00482"></a><span class="lineno"> 482</span> wave /t attr_values</div>
|
|
<div class="line"><a id="l00483" name="l00483"></a><span class="lineno"> 483</span> string title</div>
|
|
<div class="line"><a id="l00484" name="l00484"></a><span class="lineno"> 484</span> </div>
|
|
<div class="line"><a id="l00485" name="l00485"></a><span class="lineno"> 485</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l00486" name="l00486"></a><span class="lineno"> 486</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l00487" name="l00487"></a><span class="lineno"> 487</span> wave /t/z attr_filter, attr_filter_summary</div>
|
|
<div class="line"><a id="l00488" name="l00488"></a><span class="lineno"> 488</span> </div>
|
|
<div class="line"><a id="l00489" name="l00489"></a><span class="lineno"> 489</span> string name = PearlCleanupName("nb_" + title[0,27])</div>
|
|
<div class="line"><a id="l00490" name="l00490"></a><span class="lineno"> 490</span> if (WinType(name) == 5)</div>
|
|
<div class="line"><a id="l00491" name="l00491"></a><span class="lineno"> 491</span> Notebook $name selection={startOfFile, endOfFile} </div>
|
|
<div class="line"><a id="l00492" name="l00492"></a><span class="lineno"> 492</span> Notebook $name text=""</div>
|
|
<div class="line"><a id="l00493" name="l00493"></a><span class="lineno"> 493</span> else</div>
|
|
<div class="line"><a id="l00494" name="l00494"></a><span class="lineno"> 494</span> NewNotebook /F=1 /K=1 /N=$name as title</div>
|
|
<div class="line"><a id="l00495" name="l00495"></a><span class="lineno"> 495</span> GetWindow $name wsize</div>
|
|
<div class="line"><a id="l00496" name="l00496"></a><span class="lineno"> 496</span> v_right = v_left + 260</div>
|
|
<div class="line"><a id="l00497" name="l00497"></a><span class="lineno"> 497</span> v_bottom = v_top + 360</div>
|
|
<div class="line"><a id="l00498" name="l00498"></a><span class="lineno"> 498</span> MoveWindow /W=$name v_left, v_top, v_right, v_bottom</div>
|
|
<div class="line"><a id="l00499" name="l00499"></a><span class="lineno"> 499</span> Notebook $name tabs={2*72}</div>
|
|
<div class="line"><a id="l00500" name="l00500"></a><span class="lineno"> 500</span> endif</div>
|
|
<div class="line"><a id="l00501" name="l00501"></a><span class="lineno"> 501</span> </div>
|
|
<div class="line"><a id="l00502" name="l00502"></a><span class="lineno"> 502</span> // summary</div>
|
|
<div class="line"><a id="l00503" name="l00503"></a><span class="lineno"> 503</span> if (WaveExists(attr_filter_summary) && (numpnts(attr_filter_summary) >= 1))</div>
|
|
<div class="line"><a id="l00504" name="l00504"></a><span class="lineno"> 504</span> notebook $name fStyle=1, text="Summary\r\r"</div>
|
|
<div class="line"><a id="l00505" name="l00505"></a><span class="lineno"> 505</span> notebook $name fStyle=0</div>
|
|
<div class="line"><a id="l00506" name="l00506"></a><span class="lineno"> 506</span> notebook_add_attributes(name, attr_filter_summary, attr_names, attr_values)</div>
|
|
<div class="line"><a id="l00507" name="l00507"></a><span class="lineno"> 507</span> notebook $name text="\r"</div>
|
|
<div class="line"><a id="l00508" name="l00508"></a><span class="lineno"> 508</span> endif</div>
|
|
<div class="line"><a id="l00509" name="l00509"></a><span class="lineno"> 509</span> </div>
|
|
<div class="line"><a id="l00510" name="l00510"></a><span class="lineno"> 510</span> // all attributes</div>
|
|
<div class="line"><a id="l00511" name="l00511"></a><span class="lineno"> 511</span> notebook $name fStyle=1, text="All Attributes\r\r"</div>
|
|
<div class="line"><a id="l00512" name="l00512"></a><span class="lineno"> 512</span> notebook $name fStyle=0</div>
|
|
<div class="line"><a id="l00513" name="l00513"></a><span class="lineno"> 513</span> notebook_add_attributes(name, $"", attr_names, attr_values)</div>
|
|
<div class="line"><a id="l00514" name="l00514"></a><span class="lineno"> 514</span> notebook $name selection={startOfFile,startOfFile}, findText={"",1}</div>
|
|
<div class="line"><a id="l00515" name="l00515"></a><span class="lineno"> 515</span> </div>
|
|
<div class="line"><a id="l00516" name="l00516"></a><span class="lineno"> 516</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l00517" name="l00517"></a><span class="lineno"> 517</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00518" name="l00518"></a><span class="lineno"> 518</span> </div>
|
|
<div class="foldopen" id="foldopen00519" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00519" name="l00519"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a0c162346b59b0f66d34ee26ce5fe1e52"> 519</a></span>static function notebook_add_attributes(notebook_name, attr_filter, attr_names, attr_values)</div>
|
|
<div class="line"><a id="l00520" name="l00520"></a><span class="lineno"> 520</span> string notebook_name</div>
|
|
<div class="line"><a id="l00521" name="l00521"></a><span class="lineno"> 521</span> wave /t /z attr_filter</div>
|
|
<div class="line"><a id="l00522" name="l00522"></a><span class="lineno"> 522</span> wave /t attr_names</div>
|
|
<div class="line"><a id="l00523" name="l00523"></a><span class="lineno"> 523</span> wave /t attr_values</div>
|
|
<div class="line"><a id="l00524" name="l00524"></a><span class="lineno"> 524</span> </div>
|
|
<div class="line"><a id="l00525" name="l00525"></a><span class="lineno"> 525</span> variable nw = numpnts(attr_names)</div>
|
|
<div class="line"><a id="l00526" name="l00526"></a><span class="lineno"> 526</span> variable iw</div>
|
|
<div class="line"><a id="l00527" name="l00527"></a><span class="lineno"> 527</span> string sw</div>
|
|
<div class="line"><a id="l00528" name="l00528"></a><span class="lineno"> 528</span> string ss</div>
|
|
<div class="line"><a id="l00529" name="l00529"></a><span class="lineno"> 529</span> </div>
|
|
<div class="line"><a id="l00530" name="l00530"></a><span class="lineno"> 530</span> variable do_filter = WaveExists(attr_filter)</div>
|
|
<div class="line"><a id="l00531" name="l00531"></a><span class="lineno"> 531</span> </div>
|
|
<div class="line"><a id="l00532" name="l00532"></a><span class="lineno"> 532</span> for (iw = 0; iw < nw; iw += 1)</div>
|
|
<div class="line"><a id="l00533" name="l00533"></a><span class="lineno"> 533</span> if (do_filter)</div>
|
|
<div class="line"><a id="l00534" name="l00534"></a><span class="lineno"> 534</span> sw = attr_names[iw]</div>
|
|
<div class="line"><a id="l00535" name="l00535"></a><span class="lineno"> 535</span> FindValue /text=sw attr_filter</div>
|
|
<div class="line"><a id="l00536" name="l00536"></a><span class="lineno"> 536</span> else</div>
|
|
<div class="line"><a id="l00537" name="l00537"></a><span class="lineno"> 537</span> v_value = 0</div>
|
|
<div class="line"><a id="l00538" name="l00538"></a><span class="lineno"> 538</span> endif</div>
|
|
<div class="line"><a id="l00539" name="l00539"></a><span class="lineno"> 539</span> if (v_value >= 0)</div>
|
|
<div class="line"><a id="l00540" name="l00540"></a><span class="lineno"> 540</span> sprintf ss, "%s\t%s\r", attr_names[iw], attr_values[iw]</div>
|
|
<div class="line"><a id="l00541" name="l00541"></a><span class="lineno"> 541</span> notebook $notebook_name text=ss</div>
|
|
<div class="line"><a id="l00542" name="l00542"></a><span class="lineno"> 542</span> endif</div>
|
|
<div class="line"><a id="l00543" name="l00543"></a><span class="lineno"> 543</span> endfor</div>
|
|
<div class="line"><a id="l00544" name="l00544"></a><span class="lineno"> 544</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00545" name="l00545"></a><span class="lineno"> 545</span> </div>
|
|
<div class="line"><a id="l00546" name="l00546"></a><span class="lineno"> 546</span>// ====== preview ======</div>
|
|
<div class="line"><a id="l00547" name="l00547"></a><span class="lineno"> 547</span> </div>
|
|
<div class="foldopen" id="foldopen00548" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00548" name="l00548"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a3232c51a8c19eaf86b9bc67352967a9f"> 548</a></span>static function preview_file(filename)</div>
|
|
<div class="line"><a id="l00549" name="l00549"></a><span class="lineno"> 549</span> string filename</div>
|
|
<div class="line"><a id="l00550" name="l00550"></a><span class="lineno"> 550</span> </div>
|
|
<div class="line"><a id="l00551" name="l00551"></a><span class="lineno"> 551</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l00552" name="l00552"></a><span class="lineno"> 552</span> dfref preview_df = $package_path</div>
|
|
<div class="line"><a id="l00553" name="l00553"></a><span class="lineno"> 553</span> </div>
|
|
<div class="line"><a id="l00554" name="l00554"></a><span class="lineno"> 554</span> killStrings /z authors, pgroup, proposal, proposer, sample</div>
|
|
<div class="line"><a id="l00555" name="l00555"></a><span class="lineno"> 555</span> </div>
|
|
<div class="line"><a id="l00556" name="l00556"></a><span class="lineno"> 556</span> variable ft = pearl_file_type(filename)</div>
|
|
<div class="line"><a id="l00557" name="l00557"></a><span class="lineno"> 557</span> switch(ft)</div>
|
|
<div class="line"><a id="l00558" name="l00558"></a><span class="lineno"> 558</span> case 1:</div>
|
|
<div class="line"><a id="l00559" name="l00559"></a><span class="lineno"> 559</span> wave /z image = preview_pshell_file(filename)</div>
|
|
<div class="line"><a id="l00560" name="l00560"></a><span class="lineno"> 560</span> break</div>
|
|
<div class="line"><a id="l00561" name="l00561"></a><span class="lineno"> 561</span> case 2:</div>
|
|
<div class="line"><a id="l00562" name="l00562"></a><span class="lineno"> 562</span> wave /z image = preview_hdf_file(filename)</div>
|
|
<div class="line"><a id="l00563" name="l00563"></a><span class="lineno"> 563</span> break</div>
|
|
<div class="line"><a id="l00564" name="l00564"></a><span class="lineno"> 564</span> case 3:</div>
|
|
<div class="line"><a id="l00565" name="l00565"></a><span class="lineno"> 565</span> wave /z image = preview_itx_file(filename)</div>
|
|
<div class="line"><a id="l00566" name="l00566"></a><span class="lineno"> 566</span> break</div>
|
|
<div class="line"><a id="l00567" name="l00567"></a><span class="lineno"> 567</span> default:</div>
|
|
<div class="line"><a id="l00568" name="l00568"></a><span class="lineno"> 568</span> wave /z image = $""</div>
|
|
<div class="line"><a id="l00569" name="l00569"></a><span class="lineno"> 569</span> endswitch</div>
|
|
<div class="line"><a id="l00570" name="l00570"></a><span class="lineno"> 570</span> </div>
|
|
<div class="line"><a id="l00571" name="l00571"></a><span class="lineno"> 571</span> if (WaveExists(image))</div>
|
|
<div class="line"><a id="l00572" name="l00572"></a><span class="lineno"> 572</span> show_preview_graph(image)</div>
|
|
<div class="line"><a id="l00573" name="l00573"></a><span class="lineno"> 573</span> endif</div>
|
|
<div class="line"><a id="l00574" name="l00574"></a><span class="lineno"> 574</span> </div>
|
|
<div class="line"><a id="l00575" name="l00575"></a><span class="lineno"> 575</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l00576" name="l00576"></a><span class="lineno"> 576</span> return 0</div>
|
|
<div class="line"><a id="l00577" name="l00577"></a><span class="lineno"> 577</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00578" name="l00578"></a><span class="lineno"> 578</span> </div>
|
|
<div class="foldopen" id="foldopen00590" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00590" name="l00590"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a457d2257ffd5880ab858fa583a5d1c99"> 590</a></span>static function /wave preview_pshell_file(filename)</div>
|
|
<div class="line"><a id="l00591" name="l00591"></a><span class="lineno"> 591</span> string filename</div>
|
|
<div class="line"><a id="l00592" name="l00592"></a><span class="lineno"> 592</span> </div>
|
|
<div class="line"><a id="l00593" name="l00593"></a><span class="lineno"> 593</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l00594" name="l00594"></a><span class="lineno"> 594</span> </div>
|
|
<div class="line"><a id="l00595" name="l00595"></a><span class="lineno"> 595</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l00596" name="l00596"></a><span class="lineno"> 596</span> dfref preview_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l00597" name="l00597"></a><span class="lineno"> 597</span> svar s_preview_file</div>
|
|
<div class="line"><a id="l00598" name="l00598"></a><span class="lineno"> 598</span> svar s_preview_source</div>
|
|
<div class="line"><a id="l00599" name="l00599"></a><span class="lineno"> 599</span> svar /z s_file_info</div>
|
|
<div class="line"><a id="l00600" name="l00600"></a><span class="lineno"> 600</span> if (! svar_exists(s_file_info))</div>
|
|
<div class="line"><a id="l00601" name="l00601"></a><span class="lineno"> 601</span> string /g s_file_info</div>
|
|
<div class="line"><a id="l00602" name="l00602"></a><span class="lineno"> 602</span> endif</div>
|
|
<div class="line"><a id="l00603" name="l00603"></a><span class="lineno"> 603</span> </div>
|
|
<div class="line"><a id="l00604" name="l00604"></a><span class="lineno"> 604</span> dfref temp_df = NewFreeDataFolder()</div>
|
|
<div class="line"><a id="l00605" name="l00605"></a><span class="lineno"> 605</span> dfref file_df = psh5_preview("pearl_explorer_filepath", filename, dest_df=temp_df)</div>
|
|
<div class="line"><a id="l00606" name="l00606"></a><span class="lineno"> 606</span> svar /z /sdfr=temp_df dataname=s_preview_wave </div>
|
|
<div class="line"><a id="l00607" name="l00607"></a><span class="lineno"> 607</span> </div>
|
|
<div class="line"><a id="l00608" name="l00608"></a><span class="lineno"> 608</span> s_preview_file = filename</div>
|
|
<div class="line"><a id="l00609" name="l00609"></a><span class="lineno"> 609</span> s_preview_source = ""</div>
|
|
<div class="line"><a id="l00610" name="l00610"></a><span class="lineno"> 610</span> </div>
|
|
<div class="line"><a id="l00611" name="l00611"></a><span class="lineno"> 611</span> wave /z /sdfr=temp_df data = $dataname</div>
|
|
<div class="line"><a id="l00612" name="l00612"></a><span class="lineno"> 612</span> if (waveexists(data))</div>
|
|
<div class="line"><a id="l00613" name="l00613"></a><span class="lineno"> 613</span> duplicate /o data, preview_df:preview_image</div>
|
|
<div class="line"><a id="l00614" name="l00614"></a><span class="lineno"> 614</span> else</div>
|
|
<div class="line"><a id="l00615" name="l00615"></a><span class="lineno"> 615</span> print "no data found in file " + filename</div>
|
|
<div class="line"><a id="l00616" name="l00616"></a><span class="lineno"> 616</span> endif</div>
|
|
<div class="line"><a id="l00617" name="l00617"></a><span class="lineno"> 617</span> </div>
|
|
<div class="line"><a id="l00618" name="l00618"></a><span class="lineno"> 618</span> s_file_info = ""</div>
|
|
<div class="line"><a id="l00619" name="l00619"></a><span class="lineno"> 619</span> </div>
|
|
<div class="line"><a id="l00620" name="l00620"></a><span class="lineno"> 620</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l00621" name="l00621"></a><span class="lineno"> 621</span> wave /z /sdfr=preview_df preview_image</div>
|
|
<div class="line"><a id="l00622" name="l00622"></a><span class="lineno"> 622</span> return preview_image</div>
|
|
<div class="line"><a id="l00623" name="l00623"></a><span class="lineno"> 623</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00624" name="l00624"></a><span class="lineno"> 624</span> </div>
|
|
<div class="foldopen" id="foldopen00636" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00636" name="l00636"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a1731f8e1507d90e285885723ae32ba13"> 636</a></span>static function /wave preview_hdf_file(filename)</div>
|
|
<div class="line"><a id="l00637" name="l00637"></a><span class="lineno"> 637</span> string filename</div>
|
|
<div class="line"><a id="l00638" name="l00638"></a><span class="lineno"> 638</span> </div>
|
|
<div class="line"><a id="l00639" name="l00639"></a><span class="lineno"> 639</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l00640" name="l00640"></a><span class="lineno"> 640</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l00641" name="l00641"></a><span class="lineno"> 641</span> svar s_preview_file</div>
|
|
<div class="line"><a id="l00642" name="l00642"></a><span class="lineno"> 642</span> svar s_preview_source</div>
|
|
<div class="line"><a id="l00643" name="l00643"></a><span class="lineno"> 643</span> adh5_load_preview("preview_image", "pearl_explorer_filepath", filename)</div>
|
|
<div class="line"><a id="l00644" name="l00644"></a><span class="lineno"> 644</span> s_preview_file = filename</div>
|
|
<div class="line"><a id="l00645" name="l00645"></a><span class="lineno"> 645</span> s_preview_source = ""</div>
|
|
<div class="line"><a id="l00646" name="l00646"></a><span class="lineno"> 646</span> wave /z preview_image</div>
|
|
<div class="line"><a id="l00647" name="l00647"></a><span class="lineno"> 647</span> </div>
|
|
<div class="line"><a id="l00648" name="l00648"></a><span class="lineno"> 648</span> svar /z s_file_info</div>
|
|
<div class="line"><a id="l00649" name="l00649"></a><span class="lineno"> 649</span> if (! svar_exists(s_file_info))</div>
|
|
<div class="line"><a id="l00650" name="l00650"></a><span class="lineno"> 650</span> string /g s_file_info</div>
|
|
<div class="line"><a id="l00651" name="l00651"></a><span class="lineno"> 651</span> endif</div>
|
|
<div class="line"><a id="l00652" name="l00652"></a><span class="lineno"> 652</span> if (strlen(s_preview_file) > 0)</div>
|
|
<div class="line"><a id="l00653" name="l00653"></a><span class="lineno"> 653</span> s_file_info = adh5_load_info("pearl_explorer_filepath", filename)</div>
|
|
<div class="line"><a id="l00654" name="l00654"></a><span class="lineno"> 654</span> else</div>
|
|
<div class="line"><a id="l00655" name="l00655"></a><span class="lineno"> 655</span> s_file_info = ""</div>
|
|
<div class="line"><a id="l00656" name="l00656"></a><span class="lineno"> 656</span> endif</div>
|
|
<div class="line"><a id="l00657" name="l00657"></a><span class="lineno"> 657</span> </div>
|
|
<div class="line"><a id="l00658" name="l00658"></a><span class="lineno"> 658</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l00659" name="l00659"></a><span class="lineno"> 659</span> return preview_image</div>
|
|
<div class="line"><a id="l00660" name="l00660"></a><span class="lineno"> 660</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00661" name="l00661"></a><span class="lineno"> 661</span> </div>
|
|
<div class="foldopen" id="foldopen00681" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00681" name="l00681"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a4633885afab755fbc5d262178b9ddcb8"> 681</a></span>static function /wave preview_itx_file(filename)</div>
|
|
<div class="line"><a id="l00682" name="l00682"></a><span class="lineno"> 682</span> string filename</div>
|
|
<div class="line"><a id="l00683" name="l00683"></a><span class="lineno"> 683</span> </div>
|
|
<div class="line"><a id="l00684" name="l00684"></a><span class="lineno"> 684</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l00685" name="l00685"></a><span class="lineno"> 685</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l00686" name="l00686"></a><span class="lineno"> 686</span> svar s_preview_file</div>
|
|
<div class="line"><a id="l00687" name="l00687"></a><span class="lineno"> 687</span> svar s_preview_source</div>
|
|
<div class="line"><a id="l00688" name="l00688"></a><span class="lineno"> 688</span> wave preview_image</div>
|
|
<div class="line"><a id="l00689" name="l00689"></a><span class="lineno"> 689</span> </div>
|
|
<div class="line"><a id="l00690" name="l00690"></a><span class="lineno"> 690</span> dfref data_df = newfreedatafolder()</div>
|
|
<div class="line"><a id="l00691" name="l00691"></a><span class="lineno"> 691</span> setdatafolder data_df</div>
|
|
<div class="line"><a id="l00692" name="l00692"></a><span class="lineno"> 692</span> LoadWave /t/p=pearl_explorer_filepath/q filename</div>
|
|
<div class="line"><a id="l00693" name="l00693"></a><span class="lineno"> 693</span> s_preview_file = s_filename</div>
|
|
<div class="line"><a id="l00694" name="l00694"></a><span class="lineno"> 694</span> s_preview_source = ""</div>
|
|
<div class="line"><a id="l00695" name="l00695"></a><span class="lineno"> 695</span> </div>
|
|
<div class="line"><a id="l00696" name="l00696"></a><span class="lineno"> 696</span> preview_datafolder()</div>
|
|
<div class="line"><a id="l00697" name="l00697"></a><span class="lineno"> 697</span> </div>
|
|
<div class="line"><a id="l00698" name="l00698"></a><span class="lineno"> 698</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l00699" name="l00699"></a><span class="lineno"> 699</span> return preview_image</div>
|
|
<div class="line"><a id="l00700" name="l00700"></a><span class="lineno"> 700</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00701" name="l00701"></a><span class="lineno"> 701</span> </div>
|
|
<div class="foldopen" id="foldopen00703" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00703" name="l00703"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a0adc1b370fd3bf230b61b094b3c0accb"> 703</a></span>static function extract_preview_image(data, preview)</div>
|
|
<div class="line"><a id="l00704" name="l00704"></a><span class="lineno"> 704</span> wave data</div>
|
|
<div class="line"><a id="l00705" name="l00705"></a><span class="lineno"> 705</span> wave preview</div>
|
|
<div class="line"><a id="l00706" name="l00706"></a><span class="lineno"> 706</span> </div>
|
|
<div class="line"><a id="l00707" name="l00707"></a><span class="lineno"> 707</span> variable z1, z2</div>
|
|
<div class="line"><a id="l00708" name="l00708"></a><span class="lineno"> 708</span> </div>
|
|
<div class="line"><a id="l00709" name="l00709"></a><span class="lineno"> 709</span> // extract image</div>
|
|
<div class="line"><a id="l00710" name="l00710"></a><span class="lineno"> 710</span> switch (WaveDims(data))</div>
|
|
<div class="line"><a id="l00711" name="l00711"></a><span class="lineno"> 711</span> case 1:</div>
|
|
<div class="line"><a id="l00712" name="l00712"></a><span class="lineno"> 712</span> redimension /n=(numpnts(data)) preview</div>
|
|
<div class="line"><a id="l00713" name="l00713"></a><span class="lineno"> 713</span> preview = data[p]</div>
|
|
<div class="line"><a id="l00714" name="l00714"></a><span class="lineno"> 714</span> break</div>
|
|
<div class="line"><a id="l00715" name="l00715"></a><span class="lineno"> 715</span> case 2:</div>
|
|
<div class="line"><a id="l00716" name="l00716"></a><span class="lineno"> 716</span> redimension /n=(dimsize(data, 0), dimsize(data, 1)) preview</div>
|
|
<div class="line"><a id="l00717" name="l00717"></a><span class="lineno"> 717</span> preview = data</div>
|
|
<div class="line"><a id="l00718" name="l00718"></a><span class="lineno"> 718</span> break</div>
|
|
<div class="line"><a id="l00719" name="l00719"></a><span class="lineno"> 719</span> case 3:</div>
|
|
<div class="line"><a id="l00720" name="l00720"></a><span class="lineno"> 720</span> redimension /n=(dimsize(data, 0), dimsize(data, 1)) preview</div>
|
|
<div class="line"><a id="l00721" name="l00721"></a><span class="lineno"> 721</span> z1 = floor(DimSize(data, 2) / 2)</div>
|
|
<div class="line"><a id="l00722" name="l00722"></a><span class="lineno"> 722</span> z2 = z1</div>
|
|
<div class="line"><a id="l00723" name="l00723"></a><span class="lineno"> 723</span> wave slab = ad_extract_slab(data, nan, nan, nan, nan, z1, z2, "", pscale=1)</div>
|
|
<div class="line"><a id="l00724" name="l00724"></a><span class="lineno"> 724</span> preview = slab</div>
|
|
<div class="line"><a id="l00725" name="l00725"></a><span class="lineno"> 725</span> break</div>
|
|
<div class="line"><a id="l00726" name="l00726"></a><span class="lineno"> 726</span> case 4:</div>
|
|
<div class="line"><a id="l00727" name="l00727"></a><span class="lineno"> 727</span> // not implemented</div>
|
|
<div class="line"><a id="l00728" name="l00728"></a><span class="lineno"> 728</span> endswitch</div>
|
|
<div class="line"><a id="l00729" name="l00729"></a><span class="lineno"> 729</span> </div>
|
|
<div class="line"><a id="l00730" name="l00730"></a><span class="lineno"> 730</span> switch (WaveDims(data))</div>
|
|
<div class="line"><a id="l00731" name="l00731"></a><span class="lineno"> 731</span> case 4:</div>
|
|
<div class="line"><a id="l00732" name="l00732"></a><span class="lineno"> 732</span> case 3:</div>
|
|
<div class="line"><a id="l00733" name="l00733"></a><span class="lineno"> 733</span> case 2:</div>
|
|
<div class="line"><a id="l00734" name="l00734"></a><span class="lineno"> 734</span> setscale /p y dimoffset(data, 1), dimdelta(data, 1), waveunits(data, 1), preview</div>
|
|
<div class="line"><a id="l00735" name="l00735"></a><span class="lineno"> 735</span> case 1:</div>
|
|
<div class="line"><a id="l00736" name="l00736"></a><span class="lineno"> 736</span> setscale /p x dimoffset(data, 0), dimdelta(data, 0), waveunits(data, 0), preview</div>
|
|
<div class="line"><a id="l00737" name="l00737"></a><span class="lineno"> 737</span> setscale d 0, 0, waveunits(data, -1), preview</div>
|
|
<div class="line"><a id="l00738" name="l00738"></a><span class="lineno"> 738</span> endswitch</div>
|
|
<div class="line"><a id="l00739" name="l00739"></a><span class="lineno"> 739</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00740" name="l00740"></a><span class="lineno"> 740</span> </div>
|
|
<div class="foldopen" id="foldopen00745" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00745" name="l00745"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a6e8eaf8c092f5da60bd425f9bd8bf178"> 745</a></span>static function preview_datafolder()</div>
|
|
<div class="line"><a id="l00746" name="l00746"></a><span class="lineno"> 746</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l00747" name="l00747"></a><span class="lineno"> 747</span> </div>
|
|
<div class="line"><a id="l00748" name="l00748"></a><span class="lineno"> 748</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l00749" name="l00749"></a><span class="lineno"> 749</span> svar s_preview_file</div>
|
|
<div class="line"><a id="l00750" name="l00750"></a><span class="lineno"> 750</span> svar s_preview_source</div>
|
|
<div class="line"><a id="l00751" name="l00751"></a><span class="lineno"> 751</span> svar s_preview_pvs</div>
|
|
<div class="line"><a id="l00752" name="l00752"></a><span class="lineno"> 752</span> wave preview_image</div>
|
|
<div class="line"><a id="l00753" name="l00753"></a><span class="lineno"> 753</span> </div>
|
|
<div class="line"><a id="l00754" name="l00754"></a><span class="lineno"> 754</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l00755" name="l00755"></a><span class="lineno"> 755</span> </div>
|
|
<div class="line"><a id="l00756" name="l00756"></a><span class="lineno"> 756</span> // select a wave to display</div>
|
|
<div class="line"><a id="l00757" name="l00757"></a><span class="lineno"> 757</span> // consider only double-precision waves, i.e. ignore text and other special waves</div>
|
|
<div class="line"><a id="l00758" name="l00758"></a><span class="lineno"> 758</span> // filter by matching PV name to s_preview_pvs</div>
|
|
<div class="line"><a id="l00759" name="l00759"></a><span class="lineno"> 759</span> string d_names = WaveList("*", ";", "DP:1")</div>
|
|
<div class="line"><a id="l00760" name="l00760"></a><span class="lineno"> 760</span> variable nw = ItemsInList(d_names, ";")</div>
|
|
<div class="line"><a id="l00761" name="l00761"></a><span class="lineno"> 761</span> variable npv = ItemsInList(s_preview_pvs, ";")</div>
|
|
<div class="line"><a id="l00762" name="l00762"></a><span class="lineno"> 762</span> variable iw, ipv</div>
|
|
<div class="line"><a id="l00763" name="l00763"></a><span class="lineno"> 763</span> string wname, wnote, pv_name, pv_match</div>
|
|
<div class="line"><a id="l00764" name="l00764"></a><span class="lineno"> 764</span> for (iw = 0; iw < nw; iw += 1)</div>
|
|
<div class="line"><a id="l00765" name="l00765"></a><span class="lineno"> 765</span> wname = StringFromList(iw, d_names, ";")</div>
|
|
<div class="line"><a id="l00766" name="l00766"></a><span class="lineno"> 766</span> wnote = note($wname)</div>
|
|
<div class="line"><a id="l00767" name="l00767"></a><span class="lineno"> 767</span> pv_name = StringByKey("PV", wnote, "=", "\r")</div>
|
|
<div class="line"><a id="l00768" name="l00768"></a><span class="lineno"> 768</span> // find matching data wave by PV name</div>
|
|
<div class="line"><a id="l00769" name="l00769"></a><span class="lineno"> 769</span> for (ipv = 0; ipv < npv; ipv += 1)</div>
|
|
<div class="line"><a id="l00770" name="l00770"></a><span class="lineno"> 770</span> pv_match = StringFromList(ipv, s_preview_pvs)</div>
|
|
<div class="line"><a id="l00771" name="l00771"></a><span class="lineno"> 771</span> if (StringMatch(pv_name, pv_match))</div>
|
|
<div class="line"><a id="l00772" name="l00772"></a><span class="lineno"> 772</span> wave data = $wname</div>
|
|
<div class="line"><a id="l00773" name="l00773"></a><span class="lineno"> 773</span> s_preview_source = pv_name</div>
|
|
<div class="line"><a id="l00774" name="l00774"></a><span class="lineno"> 774</span> extract_preview_image(data, preview_image)</div>
|
|
<div class="line"><a id="l00775" name="l00775"></a><span class="lineno"> 775</span> preview_setscale_x(data, preview_image)</div>
|
|
<div class="line"><a id="l00776" name="l00776"></a><span class="lineno"> 776</span> npv = 0</div>
|
|
<div class="line"><a id="l00777" name="l00777"></a><span class="lineno"> 777</span> nw = 0</div>
|
|
<div class="line"><a id="l00778" name="l00778"></a><span class="lineno"> 778</span> endif</div>
|
|
<div class="line"><a id="l00779" name="l00779"></a><span class="lineno"> 779</span> endfor</div>
|
|
<div class="line"><a id="l00780" name="l00780"></a><span class="lineno"> 780</span> endfor</div>
|
|
<div class="line"><a id="l00781" name="l00781"></a><span class="lineno"> 781</span> </div>
|
|
<div class="line"><a id="l00782" name="l00782"></a><span class="lineno"> 782</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l00783" name="l00783"></a><span class="lineno"> 783</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00784" name="l00784"></a><span class="lineno"> 784</span> </div>
|
|
<div class="foldopen" id="foldopen00785" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00785" name="l00785"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a5a7d3c00360944c00f236900b992694d"> 785</a></span>static function preview_setscale_x(data, preview)</div>
|
|
<div class="line"><a id="l00786" name="l00786"></a><span class="lineno"> 786</span> // sets the approximate x scale of OTF data.</div>
|
|
<div class="line"><a id="l00787" name="l00787"></a><span class="lineno"> 787</span> // requires an Axis1 tag with name of x wave in the wave note.</div>
|
|
<div class="line"><a id="l00788" name="l00788"></a><span class="lineno"> 788</span> // if any of these conditions is true, the function does not change the scaling:</div>
|
|
<div class="line"><a id="l00789" name="l00789"></a><span class="lineno"> 789</span> // 1) Axis1 tag or referenced wave is missing.</div>
|
|
<div class="line"><a id="l00790" name="l00790"></a><span class="lineno"> 790</span> // 2) preview wave is not set to point scaling.</div>
|
|
<div class="line"><a id="l00791" name="l00791"></a><span class="lineno"> 791</span> // 3) x wave is not monotonic (90% of the steps in the same direction).</div>
|
|
<div class="line"><a id="l00792" name="l00792"></a><span class="lineno"> 792</span> wave data</div>
|
|
<div class="line"><a id="l00793" name="l00793"></a><span class="lineno"> 793</span> wave preview</div>
|
|
<div class="line"><a id="l00794" name="l00794"></a><span class="lineno"> 794</span> </div>
|
|
<div class="line"><a id="l00795" name="l00795"></a><span class="lineno"> 795</span> if ((DimOffset(preview, 0) == 0) && (DimDelta(preview, 0) == 1))</div>
|
|
<div class="line"><a id="l00796" name="l00796"></a><span class="lineno"> 796</span> string xname = StringByKey("Axis1", note(data), "=", "\r")</div>
|
|
<div class="line"><a id="l00797" name="l00797"></a><span class="lineno"> 797</span> wave /z xwave = $xname</div>
|
|
<div class="line"><a id="l00798" name="l00798"></a><span class="lineno"> 798</span> if (WaveExists(xwave))</div>
|
|
<div class="line"><a id="l00799" name="l00799"></a><span class="lineno"> 799</span> // check for monotonicity</div>
|
|
<div class="line"><a id="l00800" name="l00800"></a><span class="lineno"> 800</span> variable monotonic = 0</div>
|
|
<div class="line"><a id="l00801" name="l00801"></a><span class="lineno"> 801</span> duplicate /free xwave, xdiff</div>
|
|
<div class="line"><a id="l00802" name="l00802"></a><span class="lineno"> 802</span> differentiate /p xwave /D=xdiff</div>
|
|
<div class="line"><a id="l00803" name="l00803"></a><span class="lineno"> 803</span> duplicate /free xdiff, xflag</div>
|
|
<div class="line"><a id="l00804" name="l00804"></a><span class="lineno"> 804</span> xflag = xdiff > 0</div>
|
|
<div class="line"><a id="l00805" name="l00805"></a><span class="lineno"> 805</span> monotonic = sum(xflag) > numpnts(xwave) * 0.9</div>
|
|
<div class="line"><a id="l00806" name="l00806"></a><span class="lineno"> 806</span> xflag = xdiff < 0</div>
|
|
<div class="line"><a id="l00807" name="l00807"></a><span class="lineno"> 807</span> monotonic = monotonic || (sum(xflag) > numpnts(xwave) * 0.9)</div>
|
|
<div class="line"><a id="l00808" name="l00808"></a><span class="lineno"> 808</span> if (monotonic)</div>
|
|
<div class="line"><a id="l00809" name="l00809"></a><span class="lineno"> 809</span> setscale /i x xwave[0], xwave[numpnts(xwave)-1], waveunits(xwave, -1), preview</div>
|
|
<div class="line"><a id="l00810" name="l00810"></a><span class="lineno"> 810</span> endif</div>
|
|
<div class="line"><a id="l00811" name="l00811"></a><span class="lineno"> 811</span> endif</div>
|
|
<div class="line"><a id="l00812" name="l00812"></a><span class="lineno"> 812</span> endif</div>
|
|
<div class="line"><a id="l00813" name="l00813"></a><span class="lineno"> 813</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00814" name="l00814"></a><span class="lineno"> 814</span> </div>
|
|
<div class="foldopen" id="foldopen00816" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00816" name="l00816"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a67cd1a025e5428d443027c1f57eaec09"> 816</a></span>static function display_dataset(file_df, dataset)</div>
|
|
<div class="line"><a id="l00817" name="l00817"></a><span class="lineno"> 817</span> dfref file_df // top data folder of file</div>
|
|
<div class="line"><a id="l00818" name="l00818"></a><span class="lineno"> 818</span> string dataset // dataset path inside data folder</div>
|
|
<div class="line"><a id="l00819" name="l00819"></a><span class="lineno"> 819</span> </div>
|
|
<div class="line"><a id="l00820" name="l00820"></a><span class="lineno"> 820</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l00821" name="l00821"></a><span class="lineno"> 821</span> </div>
|
|
<div class="line"><a id="l00822" name="l00822"></a><span class="lineno"> 822</span> dfref data_df = psh5_dataset_to_folder(file_df, dataset)</div>
|
|
<div class="line"><a id="l00823" name="l00823"></a><span class="lineno"> 823</span> SetDataFolder data_df</div>
|
|
<div class="line"><a id="l00824" name="l00824"></a><span class="lineno"> 824</span> string data_name = StringFromList(ItemsInList(dataset, "/") - 1, dataset, "/")</div>
|
|
<div class="line"><a id="l00825" name="l00825"></a><span class="lineno"> 825</span> wave /z data=$data_name</div>
|
|
<div class="line"><a id="l00826" name="l00826"></a><span class="lineno"> 826</span> </div>
|
|
<div class="line"><a id="l00827" name="l00827"></a><span class="lineno"> 827</span> if (WaveExists(data))</div>
|
|
<div class="line"><a id="l00828" name="l00828"></a><span class="lineno"> 828</span> switch(WaveDims(data))</div>
|
|
<div class="line"><a id="l00829" name="l00829"></a><span class="lineno"> 829</span> case 1:</div>
|
|
<div class="line"><a id="l00830" name="l00830"></a><span class="lineno"> 830</span> case 2:</div>
|
|
<div class="line"><a id="l00831" name="l00831"></a><span class="lineno"> 831</span> show_preview_graph(data)</div>
|
|
<div class="line"><a id="l00832" name="l00832"></a><span class="lineno"> 832</span> break</div>
|
|
<div class="line"><a id="l00833" name="l00833"></a><span class="lineno"> 833</span> case 3:</div>
|
|
<div class="line"><a id="l00834" name="l00834"></a><span class="lineno"> 834</span> ad_display_slice(data)</div>
|
|
<div class="line"><a id="l00835" name="l00835"></a><span class="lineno"> 835</span> ad_brick_slicer(data)</div>
|
|
<div class="line"><a id="l00836" name="l00836"></a><span class="lineno"> 836</span> break</div>
|
|
<div class="line"><a id="l00837" name="l00837"></a><span class="lineno"> 837</span> endswitch</div>
|
|
<div class="line"><a id="l00838" name="l00838"></a><span class="lineno"> 838</span> endif</div>
|
|
<div class="line"><a id="l00839" name="l00839"></a><span class="lineno"> 839</span> </div>
|
|
<div class="line"><a id="l00840" name="l00840"></a><span class="lineno"> 840</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l00841" name="l00841"></a><span class="lineno"> 841</span> return 0</div>
|
|
<div class="line"><a id="l00842" name="l00842"></a><span class="lineno"> 842</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00843" name="l00843"></a><span class="lineno"> 843</span> </div>
|
|
<div class="foldopen" id="foldopen00844" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00844" name="l00844"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a4db79d04c74beb1af71b72916f8f0362"> 844</a></span>static function /s show_preview_graph(data, [xdata])</div>
|
|
<div class="line"><a id="l00845" name="l00845"></a><span class="lineno"> 845</span> // displays a preview of one- or two-dimensional data</div>
|
|
<div class="line"><a id="l00846" name="l00846"></a><span class="lineno"> 846</span> wave data // data to be displayed. must either one-dimensional or two-dimensional</div>
|
|
<div class="line"><a id="l00847" name="l00847"></a><span class="lineno"> 847</span> wave xdata // positions on x axis</div>
|
|
<div class="line"><a id="l00848" name="l00848"></a><span class="lineno"> 848</span> </div>
|
|
<div class="line"><a id="l00849" name="l00849"></a><span class="lineno"> 849</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l00850" name="l00850"></a><span class="lineno"> 850</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l00851" name="l00851"></a><span class="lineno"> 851</span> </div>
|
|
<div class="line"><a id="l00852" name="l00852"></a><span class="lineno"> 852</span> svar s_profiles_graph</div>
|
|
<div class="line"><a id="l00853" name="l00853"></a><span class="lineno"> 853</span> svar s_preview_file</div>
|
|
<div class="line"><a id="l00854" name="l00854"></a><span class="lineno"> 854</span> svar s_preview_source</div>
|
|
<div class="line"><a id="l00855" name="l00855"></a><span class="lineno"> 855</span> svar s_preview_trace_graph</div>
|
|
<div class="line"><a id="l00856" name="l00856"></a><span class="lineno"> 856</span> svar s_preview_graph</div>
|
|
<div class="line"><a id="l00857" name="l00857"></a><span class="lineno"> 857</span> </div>
|
|
<div class="line"><a id="l00858" name="l00858"></a><span class="lineno"> 858</span> if ((strlen(s_profiles_graph) > 0) && (WinType(s_profiles_graph) == 1))</div>
|
|
<div class="line"><a id="l00859" name="l00859"></a><span class="lineno"> 859</span> KillWindow $s_profiles_graph</div>
|
|
<div class="line"><a id="l00860" name="l00860"></a><span class="lineno"> 860</span> endif</div>
|
|
<div class="line"><a id="l00861" name="l00861"></a><span class="lineno"> 861</span> if ((strlen(s_preview_trace_graph) > 0) && (WinType(s_preview_trace_graph) == 1))</div>
|
|
<div class="line"><a id="l00862" name="l00862"></a><span class="lineno"> 862</span> KillWindow $s_preview_trace_graph</div>
|
|
<div class="line"><a id="l00863" name="l00863"></a><span class="lineno"> 863</span> endif</div>
|
|
<div class="line"><a id="l00864" name="l00864"></a><span class="lineno"> 864</span> </div>
|
|
<div class="line"><a id="l00865" name="l00865"></a><span class="lineno"> 865</span> string graphname</div>
|
|
<div class="line"><a id="l00866" name="l00866"></a><span class="lineno"> 866</span> if (wavedims(data) == 2)</div>
|
|
<div class="line"><a id="l00867" name="l00867"></a><span class="lineno"> 867</span> s_profiles_graph = ad_display_profiles(data)</div>
|
|
<div class="line"><a id="l00868" name="l00868"></a><span class="lineno"> 868</span> ModifyGraph /w=$s_profiles_graph /z wbRGB=(48640,56832,60160)</div>
|
|
<div class="line"><a id="l00869" name="l00869"></a><span class="lineno"> 869</span> graphname = s_profiles_graph</div>
|
|
<div class="line"><a id="l00870" name="l00870"></a><span class="lineno"> 870</span> elseif (wavedims(data) == 1)</div>
|
|
<div class="line"><a id="l00871" name="l00871"></a><span class="lineno"> 871</span> duplicate /o data, preview_trace</div>
|
|
<div class="line"><a id="l00872" name="l00872"></a><span class="lineno"> 872</span> if (!ParamIsDefault(xdata))</div>
|
|
<div class="line"><a id="l00873" name="l00873"></a><span class="lineno"> 873</span> duplicate /o xdata, preview_trace_x</div>
|
|
<div class="line"><a id="l00874" name="l00874"></a><span class="lineno"> 874</span> else</div>
|
|
<div class="line"><a id="l00875" name="l00875"></a><span class="lineno"> 875</span> duplicate /o data, preview_trace_x</div>
|
|
<div class="line"><a id="l00876" name="l00876"></a><span class="lineno"> 876</span> preview_trace_x = x</div>
|
|
<div class="line"><a id="l00877" name="l00877"></a><span class="lineno"> 877</span> setscale d 0, 0, WaveUnits(data, 0), preview_trace_x</div>
|
|
<div class="line"><a id="l00878" name="l00878"></a><span class="lineno"> 878</span> endif</div>
|
|
<div class="line"><a id="l00879" name="l00879"></a><span class="lineno"> 879</span> s_preview_trace_graph = display_preview_trace(preview_trace_x, preview_trace)</div>
|
|
<div class="line"><a id="l00880" name="l00880"></a><span class="lineno"> 880</span> ModifyGraph /w=$s_preview_trace_graph wbRGB=(48640,56832,60160)</div>
|
|
<div class="line"><a id="l00881" name="l00881"></a><span class="lineno"> 881</span> graphname = s_preview_trace_graph</div>
|
|
<div class="line"><a id="l00882" name="l00882"></a><span class="lineno"> 882</span> else</div>
|
|
<div class="line"><a id="l00883" name="l00883"></a><span class="lineno"> 883</span> return ""</div>
|
|
<div class="line"><a id="l00884" name="l00884"></a><span class="lineno"> 884</span> endif</div>
|
|
<div class="line"><a id="l00885" name="l00885"></a><span class="lineno"> 885</span> </div>
|
|
<div class="line"><a id="l00886" name="l00886"></a><span class="lineno"> 886</span> string title = "Preview " + s_preview_file</div>
|
|
<div class="line"><a id="l00887" name="l00887"></a><span class="lineno"> 887</span> if (strlen(s_preview_source) > 0)</div>
|
|
<div class="line"><a id="l00888" name="l00888"></a><span class="lineno"> 888</span> title = title + " (" + s_preview_source[0,31] + ")"</div>
|
|
<div class="line"><a id="l00889" name="l00889"></a><span class="lineno"> 889</span> endif</div>
|
|
<div class="line"><a id="l00890" name="l00890"></a><span class="lineno"> 890</span> dowindow /f/t $graphname, title</div>
|
|
<div class="line"><a id="l00891" name="l00891"></a><span class="lineno"> 891</span> s_preview_graph = graphname</div>
|
|
<div class="line"><a id="l00892" name="l00892"></a><span class="lineno"> 892</span> </div>
|
|
<div class="line"><a id="l00893" name="l00893"></a><span class="lineno"> 893</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l00894" name="l00894"></a><span class="lineno"> 894</span> return graphname</div>
|
|
<div class="line"><a id="l00895" name="l00895"></a><span class="lineno"> 895</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00896" name="l00896"></a><span class="lineno"> 896</span> </div>
|
|
<div class="foldopen" id="foldopen00897" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00897" name="l00897"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a001074020ad32b290d390a450a389c69"> 897</a></span>static function /s display_preview_trace(xtrace, ytrace)</div>
|
|
<div class="line"><a id="l00898" name="l00898"></a><span class="lineno"> 898</span> wave /z xtrace</div>
|
|
<div class="line"><a id="l00899" name="l00899"></a><span class="lineno"> 899</span> wave ytrace</div>
|
|
<div class="line"><a id="l00900" name="l00900"></a><span class="lineno"> 900</span> </div>
|
|
<div class="line"><a id="l00901" name="l00901"></a><span class="lineno"> 901</span> if (WaveExists(xtrace)) </div>
|
|
<div class="line"><a id="l00902" name="l00902"></a><span class="lineno"> 902</span> display /n=pearl_explorer_1d /k=1 ytrace vs xtrace as "Preview"</div>
|
|
<div class="line"><a id="l00903" name="l00903"></a><span class="lineno"> 903</span> else</div>
|
|
<div class="line"><a id="l00904" name="l00904"></a><span class="lineno"> 904</span> display /n=pearl_explorer_1d /k=1 ytrace as "Preview"</div>
|
|
<div class="line"><a id="l00905" name="l00905"></a><span class="lineno"> 905</span> endif</div>
|
|
<div class="line"><a id="l00906" name="l00906"></a><span class="lineno"> 906</span> </div>
|
|
<div class="line"><a id="l00907" name="l00907"></a><span class="lineno"> 907</span> string graphname = s_name</div>
|
|
<div class="line"><a id="l00908" name="l00908"></a><span class="lineno"> 908</span> ModifyGraph /w=$graphname rgb[0]=(0,0,0)</div>
|
|
<div class="line"><a id="l00909" name="l00909"></a><span class="lineno"> 909</span> ModifyGraph /w=$graphname grid=2</div>
|
|
<div class="line"><a id="l00910" name="l00910"></a><span class="lineno"> 910</span> ModifyGraph /w=$graphname mirror=1</div>
|
|
<div class="line"><a id="l00911" name="l00911"></a><span class="lineno"> 911</span> ModifyGraph /w=$graphname minor=1</div>
|
|
<div class="line"><a id="l00912" name="l00912"></a><span class="lineno"> 912</span> ModifyGraph /w=$graphname axThick=0.5</div>
|
|
<div class="line"><a id="l00913" name="l00913"></a><span class="lineno"> 913</span> ModifyGraph /w=$graphname gridRGB=(52224,52224,52224)</div>
|
|
<div class="line"><a id="l00914" name="l00914"></a><span class="lineno"> 914</span> ModifyGraph /w=$graphname gridHair=0</div>
|
|
<div class="line"><a id="l00915" name="l00915"></a><span class="lineno"> 915</span> ModifyGraph /w=$graphname tick=0</div>
|
|
<div class="line"><a id="l00916" name="l00916"></a><span class="lineno"> 916</span> ModifyGraph /w=$graphname btLen=4</div>
|
|
<div class="line"><a id="l00917" name="l00917"></a><span class="lineno"> 917</span> </div>
|
|
<div class="line"><a id="l00918" name="l00918"></a><span class="lineno"> 918</span> // axis labels </div>
|
|
<div class="line"><a id="l00919" name="l00919"></a><span class="lineno"> 919</span> string labels = note(ytrace)</div>
|
|
<div class="line"><a id="l00920" name="l00920"></a><span class="lineno"> 920</span> string lab</div>
|
|
<div class="line"><a id="l00921" name="l00921"></a><span class="lineno"> 921</span> lab = StringByKey("AxisLabelX", labels, "=", "\r")</div>
|
|
<div class="line"><a id="l00922" name="l00922"></a><span class="lineno"> 922</span> if (!strlen(lab))</div>
|
|
<div class="line"><a id="l00923" name="l00923"></a><span class="lineno"> 923</span> lab = "X"</div>
|
|
<div class="line"><a id="l00924" name="l00924"></a><span class="lineno"> 924</span> endif</div>
|
|
<div class="line"><a id="l00925" name="l00925"></a><span class="lineno"> 925</span> Label /w=$graphname bottom lab + " (\\U)"</div>
|
|
<div class="line"><a id="l00926" name="l00926"></a><span class="lineno"> 926</span> lab = StringByKey("Dataset", labels, "=", "\r")</div>
|
|
<div class="line"><a id="l00927" name="l00927"></a><span class="lineno"> 927</span> if (!strlen(lab))</div>
|
|
<div class="line"><a id="l00928" name="l00928"></a><span class="lineno"> 928</span> lab = "value"</div>
|
|
<div class="line"><a id="l00929" name="l00929"></a><span class="lineno"> 929</span> endif</div>
|
|
<div class="line"><a id="l00930" name="l00930"></a><span class="lineno"> 930</span> Label /w=$graphname left lab + " (\\U)"</div>
|
|
<div class="line"><a id="l00931" name="l00931"></a><span class="lineno"> 931</span> </div>
|
|
<div class="line"><a id="l00932" name="l00932"></a><span class="lineno"> 932</span> return s_name</div>
|
|
<div class="line"><a id="l00933" name="l00933"></a><span class="lineno"> 933</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00934" name="l00934"></a><span class="lineno"> 934</span> </div>
|
|
<div class="line"><a id="l00935" name="l00935"></a><span class="lineno"> 935</span>// ====== file loading ======</div>
|
|
<div class="line"><a id="l00936" name="l00936"></a><span class="lineno"> 936</span> </div>
|
|
<div class="foldopen" id="foldopen00944" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00944" name="l00944"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a2178d5acf21fe4372ecc06224bec28ba"> 944</a></span>static function load_selected_files([options])</div>
|
|
<div class="line"><a id="l00945" name="l00945"></a><span class="lineno"> 945</span> string options</div>
|
|
<div class="line"><a id="l00946" name="l00946"></a><span class="lineno"> 946</span> </div>
|
|
<div class="line"><a id="l00947" name="l00947"></a><span class="lineno"> 947</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l00948" name="l00948"></a><span class="lineno"> 948</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l00949" name="l00949"></a><span class="lineno"> 949</span> </div>
|
|
<div class="line"><a id="l00950" name="l00950"></a><span class="lineno"> 950</span> wave wSelectedFiles</div>
|
|
<div class="line"><a id="l00951" name="l00951"></a><span class="lineno"> 951</span> wave/t wtFiles</div>
|
|
<div class="line"><a id="l00952" name="l00952"></a><span class="lineno"> 952</span> variable nn = numpnts(wSelectedFiles)</div>
|
|
<div class="line"><a id="l00953" name="l00953"></a><span class="lineno"> 953</span> variable ii</div>
|
|
<div class="line"><a id="l00954" name="l00954"></a><span class="lineno"> 954</span> for (ii = 0; ii < nn; ii += 1)</div>
|
|
<div class="line"><a id="l00955" name="l00955"></a><span class="lineno"> 955</span> if (wSelectedFiles[ii])</div>
|
|
<div class="line"><a id="l00956" name="l00956"></a><span class="lineno"> 956</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l00957" name="l00957"></a><span class="lineno"> 957</span> if (ParamIsDefault(options))</div>
|
|
<div class="line"><a id="l00958" name="l00958"></a><span class="lineno"> 958</span> load_file(wtFiles[ii])</div>
|
|
<div class="line"><a id="l00959" name="l00959"></a><span class="lineno"> 959</span> else</div>
|
|
<div class="line"><a id="l00960" name="l00960"></a><span class="lineno"> 960</span> load_file(wtFiles[ii], options=options)</div>
|
|
<div class="line"><a id="l00961" name="l00961"></a><span class="lineno"> 961</span> endif</div>
|
|
<div class="line"><a id="l00962" name="l00962"></a><span class="lineno"> 962</span> endif</div>
|
|
<div class="line"><a id="l00963" name="l00963"></a><span class="lineno"> 963</span> endfor</div>
|
|
<div class="line"><a id="l00964" name="l00964"></a><span class="lineno"> 964</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l00965" name="l00965"></a><span class="lineno"> 965</span> </div>
|
|
<div class="foldopen" id="foldopen00983" data-start="{" data-end="}">
|
|
<div class="line"><a id="l00983" name="l00983"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a435adef620193e09110ff69ca8d106de"> 983</a></span>static function load_file(filename, [options, dest_df, quiet])</div>
|
|
<div class="line"><a id="l00984" name="l00984"></a><span class="lineno"> 984</span> string filename</div>
|
|
<div class="line"><a id="l00985" name="l00985"></a><span class="lineno"> 985</span> string options</div>
|
|
<div class="line"><a id="l00986" name="l00986"></a><span class="lineno"> 986</span> dfref dest_df</div>
|
|
<div class="line"><a id="l00987" name="l00987"></a><span class="lineno"> 987</span> variable quiet</div>
|
|
<div class="line"><a id="l00988" name="l00988"></a><span class="lineno"> 988</span> </div>
|
|
<div class="line"><a id="l00989" name="l00989"></a><span class="lineno"> 989</span> if (ParamIsDefault(options))</div>
|
|
<div class="line"><a id="l00990" name="l00990"></a><span class="lineno"> 990</span> options = ""</div>
|
|
<div class="line"><a id="l00991" name="l00991"></a><span class="lineno"> 991</span> endif</div>
|
|
<div class="line"><a id="l00992" name="l00992"></a><span class="lineno"> 992</span> </div>
|
|
<div class="line"><a id="l00993" name="l00993"></a><span class="lineno"> 993</span> variable ft = pearl_file_type(filename)</div>
|
|
<div class="line"><a id="l00994" name="l00994"></a><span class="lineno"> 994</span> switch(ft)</div>
|
|
<div class="line"><a id="l00995" name="l00995"></a><span class="lineno"> 995</span> case 1:</div>
|
|
<div class="line"><a id="l00996" name="l00996"></a><span class="lineno"> 996</span> load_pshell_file(filename, options=options, dest_df=dest_df, quiet=quiet)</div>
|
|
<div class="line"><a id="l00997" name="l00997"></a><span class="lineno"> 997</span> break</div>
|
|
<div class="line"><a id="l00998" name="l00998"></a><span class="lineno"> 998</span> case 2:</div>
|
|
<div class="line"><a id="l00999" name="l00999"></a><span class="lineno"> 999</span> load_hdf_file(filename, options=options, dest_df=dest_df, quiet=quiet)</div>
|
|
<div class="line"><a id="l01000" name="l01000"></a><span class="lineno"> 1000</span> break</div>
|
|
<div class="line"><a id="l01001" name="l01001"></a><span class="lineno"> 1001</span> case 3:</div>
|
|
<div class="line"><a id="l01002" name="l01002"></a><span class="lineno"> 1002</span> load_itx_file(filename, dest_df=dest_df, quiet=quiet)</div>
|
|
<div class="line"><a id="l01003" name="l01003"></a><span class="lineno"> 1003</span> break</div>
|
|
<div class="line"><a id="l01004" name="l01004"></a><span class="lineno"> 1004</span> default:</div>
|
|
<div class="line"><a id="l01005" name="l01005"></a><span class="lineno"> 1005</span> break</div>
|
|
<div class="line"><a id="l01006" name="l01006"></a><span class="lineno"> 1006</span> endswitch</div>
|
|
<div class="line"><a id="l01007" name="l01007"></a><span class="lineno"> 1007</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l01008" name="l01008"></a><span class="lineno"> 1008</span> </div>
|
|
<div class="foldopen" id="foldopen01009" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01009" name="l01009"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a200e7ba052fbce4614fb4254701646ab"> 1009</a></span>static function prompt_hdf_options(options)</div>
|
|
<div class="line"><a id="l01010" name="l01010"></a><span class="lineno"> 1010</span> string &options</div>
|
|
<div class="line"><a id="l01011" name="l01011"></a><span class="lineno"> 1011</span> </div>
|
|
<div class="line"><a id="l01012" name="l01012"></a><span class="lineno"> 1012</span> string mode = StringByKey("mode", options, ":", ";")</div>
|
|
<div class="line"><a id="l01013" name="l01013"></a><span class="lineno"> 1013</span> string reduction_func = StringByKey("reduction_func", options, ":", ";")</div>
|
|
<div class="line"><a id="l01014" name="l01014"></a><span class="lineno"> 1014</span> </div>
|
|
<div class="line"><a id="l01015" name="l01015"></a><span class="lineno"> 1015</span> string modes = "load_scan;load_region;load_dataset;load_diags;load_complete;"</div>
|
|
<div class="line"><a id="l01016" name="l01016"></a><span class="lineno"> 1016</span> string reduction_funcs = adh5_list_reduction_funcs()</div>
|
|
<div class="line"><a id="l01017" name="l01017"></a><span class="lineno"> 1017</span> reduction_funcs = RemoveFromList("adh5_default_reduction", reduction_funcs, ";")</div>
|
|
<div class="line"><a id="l01018" name="l01018"></a><span class="lineno"> 1018</span> </div>
|
|
<div class="line"><a id="l01019" name="l01019"></a><span class="lineno"> 1019</span> if (strlen(mode) == 0)</div>
|
|
<div class="line"><a id="l01020" name="l01020"></a><span class="lineno"> 1020</span> mode = StringFromList(0, modes, ";")</div>
|
|
<div class="line"><a id="l01021" name="l01021"></a><span class="lineno"> 1021</span> endif</div>
|
|
<div class="line"><a id="l01022" name="l01022"></a><span class="lineno"> 1022</span> if (strlen(reduction_func) == 0)</div>
|
|
<div class="line"><a id="l01023" name="l01023"></a><span class="lineno"> 1023</span> reduction_func = StringFromList(0, reduction_funcs, ";")</div>
|
|
<div class="line"><a id="l01024" name="l01024"></a><span class="lineno"> 1024</span> endif</div>
|
|
<div class="line"><a id="l01025" name="l01025"></a><span class="lineno"> 1025</span> </div>
|
|
<div class="line"><a id="l01026" name="l01026"></a><span class="lineno"> 1026</span> prompt mode, "Mode", popup, modes</div>
|
|
<div class="line"><a id="l01027" name="l01027"></a><span class="lineno"> 1027</span> prompt reduction_func, "Reduction Function", popup, reduction_funcs</div>
|
|
<div class="line"><a id="l01028" name="l01028"></a><span class="lineno"> 1028</span> doprompt "HDF5 Loading Options", mode, reduction_func</div>
|
|
<div class="line"><a id="l01029" name="l01029"></a><span class="lineno"> 1029</span> </div>
|
|
<div class="line"><a id="l01030" name="l01030"></a><span class="lineno"> 1030</span> if (v_flag == 0)</div>
|
|
<div class="line"><a id="l01031" name="l01031"></a><span class="lineno"> 1031</span> options = ReplaceStringByKey("mode", options, mode, ":", ";")</div>
|
|
<div class="line"><a id="l01032" name="l01032"></a><span class="lineno"> 1032</span> options = ReplaceStringByKey("reduction_func", options, reduction_func, ":", ";")</div>
|
|
<div class="line"><a id="l01033" name="l01033"></a><span class="lineno"> 1033</span> endif</div>
|
|
<div class="line"><a id="l01034" name="l01034"></a><span class="lineno"> 1034</span> return v_flag // 0 = OK, 1 = cancel</div>
|
|
<div class="line"><a id="l01035" name="l01035"></a><span class="lineno"> 1035</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l01036" name="l01036"></a><span class="lineno"> 1036</span> </div>
|
|
<div class="foldopen" id="foldopen01049" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01049" name="l01049"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a505ebda6bdecc4120e01766d7aedaf5d"> 1049</a></span>function prompt_default_process(param)</div>
|
|
<div class="line"><a id="l01050" name="l01050"></a><span class="lineno"> 1050</span> string &param</div>
|
|
<div class="line"><a id="l01051" name="l01051"></a><span class="lineno"> 1051</span> </div>
|
|
<div class="line"><a id="l01052" name="l01052"></a><span class="lineno"> 1052</span> return 0</div>
|
|
<div class="line"><a id="l01053" name="l01053"></a><span class="lineno"> 1053</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l01054" name="l01054"></a><span class="lineno"> 1054</span> </div>
|
|
<div class="foldopen" id="foldopen01055" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01055" name="l01055"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a1d7f4ad59b81ecd84bb63cfabd9f24dc"> 1055</a></span>function prompt_func_params(func_name, func_param)</div>
|
|
<div class="line"><a id="l01056" name="l01056"></a><span class="lineno"> 1056</span> string func_name</div>
|
|
<div class="line"><a id="l01057" name="l01057"></a><span class="lineno"> 1057</span> string &func_param</div>
|
|
<div class="line"><a id="l01058" name="l01058"></a><span class="lineno"> 1058</span> </div>
|
|
<div class="line"><a id="l01059" name="l01059"></a><span class="lineno"> 1059</span> string prompt_name = "prompt_" + func_name</div>
|
|
<div class="line"><a id="l01060" name="l01060"></a><span class="lineno"> 1060</span> if (exists(prompt_name) == 6)</div>
|
|
<div class="line"><a id="l01061" name="l01061"></a><span class="lineno"> 1061</span> funcref prompt_default_process prompt_func = $prompt_name</div>
|
|
<div class="line"><a id="l01062" name="l01062"></a><span class="lineno"> 1062</span> return prompt_func(func_param)</div>
|
|
<div class="line"><a id="l01063" name="l01063"></a><span class="lineno"> 1063</span> else</div>
|
|
<div class="line"><a id="l01064" name="l01064"></a><span class="lineno"> 1064</span> // ignore missing prompt function</div>
|
|
<div class="line"><a id="l01065" name="l01065"></a><span class="lineno"> 1065</span> return 0</div>
|
|
<div class="line"><a id="l01066" name="l01066"></a><span class="lineno"> 1066</span> endif</div>
|
|
<div class="line"><a id="l01067" name="l01067"></a><span class="lineno"> 1067</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l01068" name="l01068"></a><span class="lineno"> 1068</span> </div>
|
|
<div class="foldopen" id="foldopen01107" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01107" name="l01107"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a0e1e23060294bd4b18980e59229c70ed"> 1107</a></span>static function /df load_pshell_file(filename, [options, dest_df, quiet])</div>
|
|
<div class="line"><a id="l01108" name="l01108"></a><span class="lineno"> 1108</span> string filename</div>
|
|
<div class="line"><a id="l01109" name="l01109"></a><span class="lineno"> 1109</span> string options</div>
|
|
<div class="line"><a id="l01110" name="l01110"></a><span class="lineno"> 1110</span> dfref dest_df</div>
|
|
<div class="line"><a id="l01111" name="l01111"></a><span class="lineno"> 1111</span> variable quiet</div>
|
|
<div class="line"><a id="l01112" name="l01112"></a><span class="lineno"> 1112</span> </div>
|
|
<div class="line"><a id="l01113" name="l01113"></a><span class="lineno"> 1113</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l01114" name="l01114"></a><span class="lineno"> 1114</span> </div>
|
|
<div class="line"><a id="l01115" name="l01115"></a><span class="lineno"> 1115</span> svar pref_options = $(package_path + "s_hdf_options")</div>
|
|
<div class="line"><a id="l01116" name="l01116"></a><span class="lineno"> 1116</span> svar pref_params = $(package_path + "s_reduction_params")</div>
|
|
<div class="line"><a id="l01117" name="l01117"></a><span class="lineno"> 1117</span> string path = "pearl_explorer_filepath"</div>
|
|
<div class="line"><a id="l01118" name="l01118"></a><span class="lineno"> 1118</span> </div>
|
|
<div class="line"><a id="l01119" name="l01119"></a><span class="lineno"> 1119</span> if (ParamIsDefault(options))</div>
|
|
<div class="line"><a id="l01120" name="l01120"></a><span class="lineno"> 1120</span> options = pref_options</div>
|
|
<div class="line"><a id="l01121" name="l01121"></a><span class="lineno"> 1121</span> endif</div>
|
|
<div class="line"><a id="l01122" name="l01122"></a><span class="lineno"> 1122</span> </div>
|
|
<div class="line"><a id="l01123" name="l01123"></a><span class="lineno"> 1123</span> if (strlen(options) == 0)</div>
|
|
<div class="line"><a id="l01124" name="l01124"></a><span class="lineno"> 1124</span> if (prompt_hdf_options(options) == 0)</div>
|
|
<div class="line"><a id="l01125" name="l01125"></a><span class="lineno"> 1125</span> pref_options = options</div>
|
|
<div class="line"><a id="l01126" name="l01126"></a><span class="lineno"> 1126</span> else</div>
|
|
<div class="line"><a id="l01127" name="l01127"></a><span class="lineno"> 1127</span> return $""</div>
|
|
<div class="line"><a id="l01128" name="l01128"></a><span class="lineno"> 1128</span> endif</div>
|
|
<div class="line"><a id="l01129" name="l01129"></a><span class="lineno"> 1129</span> endif</div>
|
|
<div class="line"><a id="l01130" name="l01130"></a><span class="lineno"> 1130</span> </div>
|
|
<div class="line"><a id="l01131" name="l01131"></a><span class="lineno"> 1131</span> string reduction_func = StringByKey("reduction_func", options, ":", ";")</div>
|
|
<div class="line"><a id="l01132" name="l01132"></a><span class="lineno"> 1132</span> string reduction_params = pref_params</div>
|
|
<div class="line"><a id="l01133" name="l01133"></a><span class="lineno"> 1133</span> variable max_rank = 2</div>
|
|
<div class="line"><a id="l01134" name="l01134"></a><span class="lineno"> 1134</span> </div>
|
|
<div class="line"><a id="l01135" name="l01135"></a><span class="lineno"> 1135</span> if (exists(reduction_func) == 6)</div>
|
|
<div class="line"><a id="l01136" name="l01136"></a><span class="lineno"> 1136</span> max_rank = 3</div>
|
|
<div class="line"><a id="l01137" name="l01137"></a><span class="lineno"> 1137</span> if (prompt_func_params(reduction_func, reduction_params) == 0)</div>
|
|
<div class="line"><a id="l01138" name="l01138"></a><span class="lineno"> 1138</span> pref_params = reduction_params</div>
|
|
<div class="line"><a id="l01139" name="l01139"></a><span class="lineno"> 1139</span> else</div>
|
|
<div class="line"><a id="l01140" name="l01140"></a><span class="lineno"> 1140</span> return $""</div>
|
|
<div class="line"><a id="l01141" name="l01141"></a><span class="lineno"> 1141</span> endif</div>
|
|
<div class="line"><a id="l01142" name="l01142"></a><span class="lineno"> 1142</span> endif</div>
|
|
<div class="line"><a id="l01143" name="l01143"></a><span class="lineno"> 1143</span> </div>
|
|
<div class="line"><a id="l01144" name="l01144"></a><span class="lineno"> 1144</span> string mode = StringByKey("mode", options, ":", ";")</div>
|
|
<div class="line"><a id="l01145" name="l01145"></a><span class="lineno"> 1145</span> string selected_datasets = WMHL_SelectedObjectsList("PearlDataExplorer", "lb_contents")</div>
|
|
<div class="line"><a id="l01146" name="l01146"></a><span class="lineno"> 1146</span> string selected_scans = psh5_extract_scan_paths(selected_datasets)</div>
|
|
<div class="line"><a id="l01147" name="l01147"></a><span class="lineno"> 1147</span> string selected_regions = psh5_extract_region_paths(selected_datasets)</div>
|
|
<div class="line"><a id="l01148" name="l01148"></a><span class="lineno"> 1148</span> variable dsc</div>
|
|
<div class="line"><a id="l01149" name="l01149"></a><span class="lineno"> 1149</span> </div>
|
|
<div class="line"><a id="l01150" name="l01150"></a><span class="lineno"> 1150</span> if (!quiet)</div>
|
|
<div class="line"><a id="l01151" name="l01151"></a><span class="lineno"> 1151</span> print mode, filename</div>
|
|
<div class="line"><a id="l01152" name="l01152"></a><span class="lineno"> 1152</span> if (strlen(reduction_func))</div>
|
|
<div class="line"><a id="l01153" name="l01153"></a><span class="lineno"> 1153</span> print reduction_func, reduction_params</div>
|
|
<div class="line"><a id="l01154" name="l01154"></a><span class="lineno"> 1154</span> endif</div>
|
|
<div class="line"><a id="l01155" name="l01155"></a><span class="lineno"> 1155</span> endif</div>
|
|
<div class="line"><a id="l01156" name="l01156"></a><span class="lineno"> 1156</span> </div>
|
|
<div class="line"><a id="l01157" name="l01157"></a><span class="lineno"> 1157</span> strswitch(mode)</div>
|
|
<div class="line"><a id="l01158" name="l01158"></a><span class="lineno"> 1158</span> case "load_complete":</div>
|
|
<div class="line"><a id="l01159" name="l01159"></a><span class="lineno"> 1159</span> dsc = kDSCAll</div>
|
|
<div class="line"><a id="l01160" name="l01160"></a><span class="lineno"> 1160</span> dfref file_df = psh5_load(path, filename, "", "", "*", classes=dsc, reduction_func=reduction_func, reduction_params=reduction_params, dest_df=dest_df)</div>
|
|
<div class="line"><a id="l01161" name="l01161"></a><span class="lineno"> 1161</span> break</div>
|
|
<div class="line"><a id="l01162" name="l01162"></a><span class="lineno"> 1162</span> case "load_diags":</div>
|
|
<div class="line"><a id="l01163" name="l01163"></a><span class="lineno"> 1163</span> if (ItemsInList(selected_scans, ";") == 0)</div>
|
|
<div class="line"><a id="l01164" name="l01164"></a><span class="lineno"> 1164</span> if (!quiet)</div>
|
|
<div class="line"><a id="l01165" name="l01165"></a><span class="lineno"> 1165</span> print "no scan selected - defaulting to scan 1."</div>
|
|
<div class="line"><a id="l01166" name="l01166"></a><span class="lineno"> 1166</span> endif</div>
|
|
<div class="line"><a id="l01167" name="l01167"></a><span class="lineno"> 1167</span> selected_scans = "/scan1;"</div>
|
|
<div class="line"><a id="l01168" name="l01168"></a><span class="lineno"> 1168</span> endif</div>
|
|
<div class="line"><a id="l01169" name="l01169"></a><span class="lineno"> 1169</span> dsc = kDSCAttrs | kDSCDiags | kDSCSnaps | kDSCMeta | kDSCMonitors</div>
|
|
<div class="line"><a id="l01170" name="l01170"></a><span class="lineno"> 1170</span> dfref file_df = psh5_load(path, filename, selected_scans, "", "", classes=dsc, dest_df=dest_df)</div>
|
|
<div class="line"><a id="l01171" name="l01171"></a><span class="lineno"> 1171</span> break</div>
|
|
<div class="line"><a id="l01172" name="l01172"></a><span class="lineno"> 1172</span> case "load_scan":</div>
|
|
<div class="line"><a id="l01173" name="l01173"></a><span class="lineno"> 1173</span> if (ItemsInList(selected_scans, ";") == 0)</div>
|
|
<div class="line"><a id="l01174" name="l01174"></a><span class="lineno"> 1174</span> if (!quiet)</div>
|
|
<div class="line"><a id="l01175" name="l01175"></a><span class="lineno"> 1175</span> print "no scan selected - defaulting to scan 1."</div>
|
|
<div class="line"><a id="l01176" name="l01176"></a><span class="lineno"> 1176</span> endif</div>
|
|
<div class="line"><a id="l01177" name="l01177"></a><span class="lineno"> 1177</span> selected_scans = "/scan1;"</div>
|
|
<div class="line"><a id="l01178" name="l01178"></a><span class="lineno"> 1178</span> endif</div>
|
|
<div class="line"><a id="l01179" name="l01179"></a><span class="lineno"> 1179</span> dsc = kDSCPositioners | kDSCDetectors | kDSCScientaScaling | kDSCEssentialDiags</div>
|
|
<div class="line"><a id="l01180" name="l01180"></a><span class="lineno"> 1180</span> dfref file_df = psh5_load(path, filename, selected_scans, "", "", classes=dsc, max_rank=max_rank, reduction_func=reduction_func, reduction_params=reduction_params, dest_df=dest_df)</div>
|
|
<div class="line"><a id="l01181" name="l01181"></a><span class="lineno"> 1181</span> break</div>
|
|
<div class="line"><a id="l01182" name="l01182"></a><span class="lineno"> 1182</span> case "load_region":</div>
|
|
<div class="line"><a id="l01183" name="l01183"></a><span class="lineno"> 1183</span> if (ItemsInList(selected_regions, ";") == 0)</div>
|
|
<div class="line"><a id="l01184" name="l01184"></a><span class="lineno"> 1184</span> if (!quiet)</div>
|
|
<div class="line"><a id="l01185" name="l01185"></a><span class="lineno"> 1185</span> print "no region selected - defaulting to scan 1/region 1."</div>
|
|
<div class="line"><a id="l01186" name="l01186"></a><span class="lineno"> 1186</span> endif</div>
|
|
<div class="line"><a id="l01187" name="l01187"></a><span class="lineno"> 1187</span> selected_regions = "/scan1/region1;"</div>
|
|
<div class="line"><a id="l01188" name="l01188"></a><span class="lineno"> 1188</span> endif</div>
|
|
<div class="line"><a id="l01189" name="l01189"></a><span class="lineno"> 1189</span> dsc = kDSCPositioners | kDSCDetectors | kDSCScientaScaling | kDSCEssentialDiags</div>
|
|
<div class="line"><a id="l01190" name="l01190"></a><span class="lineno"> 1190</span> dfref file_df = psh5_load(path, filename, "", selected_regions, "", classes=dsc, max_rank=max_rank, reduction_func=reduction_func, reduction_params=reduction_params, dest_df=dest_df)</div>
|
|
<div class="line"><a id="l01191" name="l01191"></a><span class="lineno"> 1191</span> break</div>
|
|
<div class="line"><a id="l01192" name="l01192"></a><span class="lineno"> 1192</span> case "load_dataset":</div>
|
|
<div class="line"><a id="l01193" name="l01193"></a><span class="lineno"> 1193</span> if (ItemsInList(selected_datasets, ";") > 0)</div>
|
|
<div class="line"><a id="l01194" name="l01194"></a><span class="lineno"> 1194</span> dsc = kDSCAll</div>
|
|
<div class="line"><a id="l01195" name="l01195"></a><span class="lineno"> 1195</span> dfref file_df = psh5_load(path, filename, "", "", selected_datasets, classes=dsc, reduction_func=reduction_func, reduction_params=reduction_params, dest_df=dest_df)</div>
|
|
<div class="line"><a id="l01196" name="l01196"></a><span class="lineno"> 1196</span> else</div>
|
|
<div class="line"><a id="l01197" name="l01197"></a><span class="lineno"> 1197</span> if (!quiet)</div>
|
|
<div class="line"><a id="l01198" name="l01198"></a><span class="lineno"> 1198</span> DoAlert /T="PShell Import" 0, "Please select the datasets to load."</div>
|
|
<div class="line"><a id="l01199" name="l01199"></a><span class="lineno"> 1199</span> endif</div>
|
|
<div class="line"><a id="l01200" name="l01200"></a><span class="lineno"> 1200</span> endif</div>
|
|
<div class="line"><a id="l01201" name="l01201"></a><span class="lineno"> 1201</span> break</div>
|
|
<div class="line"><a id="l01202" name="l01202"></a><span class="lineno"> 1202</span> endswitch</div>
|
|
<div class="line"><a id="l01203" name="l01203"></a><span class="lineno"> 1203</span> </div>
|
|
<div class="line"><a id="l01204" name="l01204"></a><span class="lineno"> 1204</span> if (DataFolderRefStatus(file_df))</div>
|
|
<div class="line"><a id="l01205" name="l01205"></a><span class="lineno"> 1205</span> setdatafolder file_df</div>
|
|
<div class="line"><a id="l01206" name="l01206"></a><span class="lineno"> 1206</span> string /g pearl_explorer_import = "load_pshell_file"</div>
|
|
<div class="line"><a id="l01207" name="l01207"></a><span class="lineno"> 1207</span> if (!quiet)</div>
|
|
<div class="line"><a id="l01208" name="l01208"></a><span class="lineno"> 1208</span> print "data loaded to", GetDataFolder(1)</div>
|
|
<div class="line"><a id="l01209" name="l01209"></a><span class="lineno"> 1209</span> endif</div>
|
|
<div class="line"><a id="l01210" name="l01210"></a><span class="lineno"> 1210</span> else</div>
|
|
<div class="line"><a id="l01211" name="l01211"></a><span class="lineno"> 1211</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l01212" name="l01212"></a><span class="lineno"> 1212</span> endif</div>
|
|
<div class="line"><a id="l01213" name="l01213"></a><span class="lineno"> 1213</span> </div>
|
|
<div class="line"><a id="l01214" name="l01214"></a><span class="lineno"> 1214</span> return file_df</div>
|
|
<div class="line"><a id="l01215" name="l01215"></a><span class="lineno"> 1215</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l01216" name="l01216"></a><span class="lineno"> 1216</span> </div>
|
|
<div class="foldopen" id="foldopen01217" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01217" name="l01217"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a96a3ef643cc29948ba57a3bfa1339c4d"> 1217</a></span>static function /df load_hdf_file(filename, [options, dest_df, quiet])</div>
|
|
<div class="line"><a id="l01218" name="l01218"></a><span class="lineno"> 1218</span> string filename</div>
|
|
<div class="line"><a id="l01219" name="l01219"></a><span class="lineno"> 1219</span> string options</div>
|
|
<div class="line"><a id="l01220" name="l01220"></a><span class="lineno"> 1220</span> dfref dest_df</div>
|
|
<div class="line"><a id="l01221" name="l01221"></a><span class="lineno"> 1221</span> variable quiet</div>
|
|
<div class="line"><a id="l01222" name="l01222"></a><span class="lineno"> 1222</span> </div>
|
|
<div class="line"><a id="l01223" name="l01223"></a><span class="lineno"> 1223</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l01224" name="l01224"></a><span class="lineno"> 1224</span> string nickname = ad_suggest_foldername(filename)</div>
|
|
<div class="line"><a id="l01225" name="l01225"></a><span class="lineno"> 1225</span> string loaded_filename = ""</div>
|
|
<div class="line"><a id="l01226" name="l01226"></a><span class="lineno"> 1226</span> </div>
|
|
<div class="line"><a id="l01227" name="l01227"></a><span class="lineno"> 1227</span> if (ParamIsDefault(dest_df) || !DataFolderRefStatus(dest_df))</div>
|
|
<div class="line"><a id="l01228" name="l01228"></a><span class="lineno"> 1228</span> //</div>
|
|
<div class="line"><a id="l01229" name="l01229"></a><span class="lineno"> 1229</span> else</div>
|
|
<div class="line"><a id="l01230" name="l01230"></a><span class="lineno"> 1230</span> DoAlert /T="load_hdf_file" 0, "optional argument dest_df not supported."</div>
|
|
<div class="line"><a id="l01231" name="l01231"></a><span class="lineno"> 1231</span> return $""</div>
|
|
<div class="line"><a id="l01232" name="l01232"></a><span class="lineno"> 1232</span> endif</div>
|
|
<div class="line"><a id="l01233" name="l01233"></a><span class="lineno"> 1233</span> </div>
|
|
<div class="line"><a id="l01234" name="l01234"></a><span class="lineno"> 1234</span> if (ParamIsDefault(options))</div>
|
|
<div class="line"><a id="l01235" name="l01235"></a><span class="lineno"> 1235</span> loaded_filename = adh5_load_complete(nickname, "pearl_explorer_filepath", filename)</div>
|
|
<div class="line"><a id="l01236" name="l01236"></a><span class="lineno"> 1236</span> else</div>
|
|
<div class="line"><a id="l01237" name="l01237"></a><span class="lineno"> 1237</span> if (strlen(options) == 0)</div>
|
|
<div class="line"><a id="l01238" name="l01238"></a><span class="lineno"> 1238</span> svar pref_options = $(package_path + "s_hdf_options")</div>
|
|
<div class="line"><a id="l01239" name="l01239"></a><span class="lineno"> 1239</span> options = pref_options</div>
|
|
<div class="line"><a id="l01240" name="l01240"></a><span class="lineno"> 1240</span> if (prompt_hdf_options(options) == 0)</div>
|
|
<div class="line"><a id="l01241" name="l01241"></a><span class="lineno"> 1241</span> // OK</div>
|
|
<div class="line"><a id="l01242" name="l01242"></a><span class="lineno"> 1242</span> pref_options = options</div>
|
|
<div class="line"><a id="l01243" name="l01243"></a><span class="lineno"> 1243</span> else</div>
|
|
<div class="line"><a id="l01244" name="l01244"></a><span class="lineno"> 1244</span> // cancel</div>
|
|
<div class="line"><a id="l01245" name="l01245"></a><span class="lineno"> 1245</span> options = ""</div>
|
|
<div class="line"><a id="l01246" name="l01246"></a><span class="lineno"> 1246</span> endif</div>
|
|
<div class="line"><a id="l01247" name="l01247"></a><span class="lineno"> 1247</span> endif</div>
|
|
<div class="line"><a id="l01248" name="l01248"></a><span class="lineno"> 1248</span> </div>
|
|
<div class="line"><a id="l01249" name="l01249"></a><span class="lineno"> 1249</span> string mode = StringByKey("mode", options, ":", ";")</div>
|
|
<div class="line"><a id="l01250" name="l01250"></a><span class="lineno"> 1250</span> </div>
|
|
<div class="line"><a id="l01251" name="l01251"></a><span class="lineno"> 1251</span> strswitch(mode)</div>
|
|
<div class="line"><a id="l01252" name="l01252"></a><span class="lineno"> 1252</span> case "load_reduced":</div>
|
|
<div class="line"><a id="l01253" name="l01253"></a><span class="lineno"> 1253</span> string reduction_func = StringByKey("reduction_func", options, ":", ";")</div>
|
|
<div class="line"><a id="l01254" name="l01254"></a><span class="lineno"> 1254</span> svar pref_params = $(package_path + "s_reduction_params")</div>
|
|
<div class="line"><a id="l01255" name="l01255"></a><span class="lineno"> 1255</span> string reduction_params = pref_params</div>
|
|
<div class="line"><a id="l01256" name="l01256"></a><span class="lineno"> 1256</span> if (prompt_func_params(reduction_func, reduction_params) == 0)</div>
|
|
<div class="line"><a id="l01257" name="l01257"></a><span class="lineno"> 1257</span> pref_params = reduction_params</div>
|
|
<div class="line"><a id="l01258" name="l01258"></a><span class="lineno"> 1258</span> print reduction_func, reduction_params</div>
|
|
<div class="line"><a id="l01259" name="l01259"></a><span class="lineno"> 1259</span> loaded_filename = adh5_load_reduced(nickname, "pearl_explorer_filepath", filename, $reduction_func, reduction_params)</div>
|
|
<div class="line"><a id="l01260" name="l01260"></a><span class="lineno"> 1260</span> endif</div>
|
|
<div class="line"><a id="l01261" name="l01261"></a><span class="lineno"> 1261</span> break</div>
|
|
<div class="line"><a id="l01262" name="l01262"></a><span class="lineno"> 1262</span> endswitch</div>
|
|
<div class="line"><a id="l01263" name="l01263"></a><span class="lineno"> 1263</span> endif</div>
|
|
<div class="line"><a id="l01264" name="l01264"></a><span class="lineno"> 1264</span> </div>
|
|
<div class="line"><a id="l01265" name="l01265"></a><span class="lineno"> 1265</span> dfref data_df </div>
|
|
<div class="line"><a id="l01266" name="l01266"></a><span class="lineno"> 1266</span> if (strlen(loaded_filename) > 0)</div>
|
|
<div class="line"><a id="l01267" name="l01267"></a><span class="lineno"> 1267</span> setdatafolder $("root:" + nickname)</div>
|
|
<div class="line"><a id="l01268" name="l01268"></a><span class="lineno"> 1268</span> data_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l01269" name="l01269"></a><span class="lineno"> 1269</span> string /g pearl_explorer_import = "load_hdf_file"</div>
|
|
<div class="line"><a id="l01270" name="l01270"></a><span class="lineno"> 1270</span> else</div>
|
|
<div class="line"><a id="l01271" name="l01271"></a><span class="lineno"> 1271</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l01272" name="l01272"></a><span class="lineno"> 1272</span> endif</div>
|
|
<div class="line"><a id="l01273" name="l01273"></a><span class="lineno"> 1273</span> </div>
|
|
<div class="line"><a id="l01274" name="l01274"></a><span class="lineno"> 1274</span> return data_df</div>
|
|
<div class="line"><a id="l01275" name="l01275"></a><span class="lineno"> 1275</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l01276" name="l01276"></a><span class="lineno"> 1276</span> </div>
|
|
<div class="foldopen" id="foldopen01277" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01277" name="l01277"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#ababd5be120b526ca410c53b4a2ba3f8d"> 1277</a></span>static function /df load_itx_file(filename, [options, dest_df, quiet])</div>
|
|
<div class="line"><a id="l01278" name="l01278"></a><span class="lineno"> 1278</span> string filename</div>
|
|
<div class="line"><a id="l01279" name="l01279"></a><span class="lineno"> 1279</span> string options</div>
|
|
<div class="line"><a id="l01280" name="l01280"></a><span class="lineno"> 1280</span> dfref dest_df</div>
|
|
<div class="line"><a id="l01281" name="l01281"></a><span class="lineno"> 1281</span> variable quiet</div>
|
|
<div class="line"><a id="l01282" name="l01282"></a><span class="lineno"> 1282</span> </div>
|
|
<div class="line"><a id="l01283" name="l01283"></a><span class="lineno"> 1283</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l01284" name="l01284"></a><span class="lineno"> 1284</span> string nickname = itx_suggest_foldername(filename)</div>
|
|
<div class="line"><a id="l01285" name="l01285"></a><span class="lineno"> 1285</span> </div>
|
|
<div class="line"><a id="l01286" name="l01286"></a><span class="lineno"> 1286</span> if (ParamIsDefault(options))</div>
|
|
<div class="line"><a id="l01287" name="l01287"></a><span class="lineno"> 1287</span> options = ""</div>
|
|
<div class="line"><a id="l01288" name="l01288"></a><span class="lineno"> 1288</span> endif</div>
|
|
<div class="line"><a id="l01289" name="l01289"></a><span class="lineno"> 1289</span> </div>
|
|
<div class="line"><a id="l01290" name="l01290"></a><span class="lineno"> 1290</span> variable own_data_df = 0</div>
|
|
<div class="line"><a id="l01291" name="l01291"></a><span class="lineno"> 1291</span> if (ParamIsDefault(dest_df) || !DataFolderRefStatus(dest_df))</div>
|
|
<div class="line"><a id="l01292" name="l01292"></a><span class="lineno"> 1292</span> setdatafolder root:</div>
|
|
<div class="line"><a id="l01293" name="l01293"></a><span class="lineno"> 1293</span> newdatafolder /s/o $("root:" + nickname)</div>
|
|
<div class="line"><a id="l01294" name="l01294"></a><span class="lineno"> 1294</span> own_data_df = 1</div>
|
|
<div class="line"><a id="l01295" name="l01295"></a><span class="lineno"> 1295</span> else</div>
|
|
<div class="line"><a id="l01296" name="l01296"></a><span class="lineno"> 1296</span> setdatafolder dest_df</div>
|
|
<div class="line"><a id="l01297" name="l01297"></a><span class="lineno"> 1297</span> endif</div>
|
|
<div class="line"><a id="l01298" name="l01298"></a><span class="lineno"> 1298</span> dfref data_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l01299" name="l01299"></a><span class="lineno"> 1299</span> </div>
|
|
<div class="line"><a id="l01300" name="l01300"></a><span class="lineno"> 1300</span> // note: some versions of PEARL data files save data to a new data folder,</div>
|
|
<div class="line"><a id="l01301" name="l01301"></a><span class="lineno"> 1301</span> // and leave the newly created folder as the current folder.</div>
|
|
<div class="line"><a id="l01302" name="l01302"></a><span class="lineno"> 1302</span> // the free data folder is used by those files which don't create their own data folder.</div>
|
|
<div class="line"><a id="l01303" name="l01303"></a><span class="lineno"> 1303</span> // this is the new recommended behaviour</div>
|
|
<div class="line"><a id="l01304" name="l01304"></a><span class="lineno"> 1304</span> </div>
|
|
<div class="line"><a id="l01305" name="l01305"></a><span class="lineno"> 1305</span> LoadWave /t/p=pearl_explorer_filepath/q filename</div>
|
|
<div class="line"><a id="l01306" name="l01306"></a><span class="lineno"> 1306</span> svar waves = s_wavenames</div>
|
|
<div class="line"><a id="l01307" name="l01307"></a><span class="lineno"> 1307</span> dfref act_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l01308" name="l01308"></a><span class="lineno"> 1308</span> if (v_flag > 0)</div>
|
|
<div class="line"><a id="l01309" name="l01309"></a><span class="lineno"> 1309</span> string /g pearl_explorer_import = "load_itx_file"</div>
|
|
<div class="line"><a id="l01310" name="l01310"></a><span class="lineno"> 1310</span> endif</div>
|
|
<div class="line"><a id="l01311" name="l01311"></a><span class="lineno"> 1311</span> </div>
|
|
<div class="line"><a id="l01312" name="l01312"></a><span class="lineno"> 1312</span> if (!DataFolderRefsEqual(act_df, data_df) && own_data_df)</div>
|
|
<div class="line"><a id="l01313" name="l01313"></a><span class="lineno"> 1313</span> // the file created its own data folder.</div>
|
|
<div class="line"><a id="l01314" name="l01314"></a><span class="lineno"> 1314</span> // let's kill the pre-allocated folder</div>
|
|
<div class="line"><a id="l01315" name="l01315"></a><span class="lineno"> 1315</span> setdatafolder data_df</div>
|
|
<div class="line"><a id="l01316" name="l01316"></a><span class="lineno"> 1316</span> if (ItemsInList(WaveList("*", ";", ""), ";") == 0)</div>
|
|
<div class="line"><a id="l01317" name="l01317"></a><span class="lineno"> 1317</span> killdatafolder /z data_df</div>
|
|
<div class="line"><a id="l01318" name="l01318"></a><span class="lineno"> 1318</span> endif</div>
|
|
<div class="line"><a id="l01319" name="l01319"></a><span class="lineno"> 1319</span> endif</div>
|
|
<div class="line"><a id="l01320" name="l01320"></a><span class="lineno"> 1320</span> </div>
|
|
<div class="line"><a id="l01321" name="l01321"></a><span class="lineno"> 1321</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l01322" name="l01322"></a><span class="lineno"> 1322</span> return act_df</div>
|
|
<div class="line"><a id="l01323" name="l01323"></a><span class="lineno"> 1323</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l01324" name="l01324"></a><span class="lineno"> 1324</span> </div>
|
|
<div class="foldopen" id="foldopen01346" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01346" name="l01346"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a6b5e9729ee6dedbb217c741639a168ed"> 1346</a></span>function /s itx_suggest_foldername(filename, [ignoredate,sourcename,unique])</div>
|
|
<div class="line"><a id="l01347" name="l01347"></a><span class="lineno"> 1347</span> string filename</div>
|
|
<div class="line"><a id="l01348" name="l01348"></a><span class="lineno"> 1348</span> variable ignoredate</div>
|
|
<div class="line"><a id="l01349" name="l01349"></a><span class="lineno"> 1349</span> string sourcename</div>
|
|
<div class="line"><a id="l01350" name="l01350"></a><span class="lineno"> 1350</span> variable unique</div>
|
|
<div class="line"><a id="l01351" name="l01351"></a><span class="lineno"> 1351</span> </div>
|
|
<div class="line"><a id="l01352" name="l01352"></a><span class="lineno"> 1352</span> if (ParamIsDefault(ignoredate))</div>
|
|
<div class="line"><a id="l01353" name="l01353"></a><span class="lineno"> 1353</span> ignoredate = 0</div>
|
|
<div class="line"><a id="l01354" name="l01354"></a><span class="lineno"> 1354</span> endif</div>
|
|
<div class="line"><a id="l01355" name="l01355"></a><span class="lineno"> 1355</span> if (ParamIsDefault(unique))</div>
|
|
<div class="line"><a id="l01356" name="l01356"></a><span class="lineno"> 1356</span> unique = 0</div>
|
|
<div class="line"><a id="l01357" name="l01357"></a><span class="lineno"> 1357</span> endif</div>
|
|
<div class="line"><a id="l01358" name="l01358"></a><span class="lineno"> 1358</span> </div>
|
|
<div class="line"><a id="l01359" name="l01359"></a><span class="lineno"> 1359</span> string basename = ParseFilePath(3, filename, ":", 0, 0)</div>
|
|
<div class="line"><a id="l01360" name="l01360"></a><span class="lineno"> 1360</span> string extension = ParseFilePath(4, filename, ":", 0, 0)</div>
|
|
<div class="line"><a id="l01361" name="l01361"></a><span class="lineno"> 1361</span> string nickname</div>
|
|
<div class="line"><a id="l01362" name="l01362"></a><span class="lineno"> 1362</span> </div>
|
|
<div class="line"><a id="l01363" name="l01363"></a><span class="lineno"> 1363</span> string autosource</div>
|
|
<div class="line"><a id="l01364" name="l01364"></a><span class="lineno"> 1364</span> if (strsearch(basename, "X03DA_PC", 0, 2) >= 0)</div>
|
|
<div class="line"><a id="l01365" name="l01365"></a><span class="lineno"> 1365</span> autosource = "sscan"</div>
|
|
<div class="line"><a id="l01366" name="l01366"></a><span class="lineno"> 1366</span> basename = ReplaceString("_", basename, "-")</div>
|
|
<div class="line"><a id="l01367" name="l01367"></a><span class="lineno"> 1367</span> ignoredate = 1</div>
|
|
<div class="line"><a id="l01368" name="l01368"></a><span class="lineno"> 1368</span> elseif (strsearch(basename, "otf", 0, 2) >= 0)</div>
|
|
<div class="line"><a id="l01369" name="l01369"></a><span class="lineno"> 1369</span> autosource = "otf"</div>
|
|
<div class="line"><a id="l01370" name="l01370"></a><span class="lineno"> 1370</span> endif</div>
|
|
<div class="line"><a id="l01371" name="l01371"></a><span class="lineno"> 1371</span> if (ParamIsDefault(sourcename))</div>
|
|
<div class="line"><a id="l01372" name="l01372"></a><span class="lineno"> 1372</span> sourcename = autosource</div>
|
|
<div class="line"><a id="l01373" name="l01373"></a><span class="lineno"> 1373</span> endif</div>
|
|
<div class="line"><a id="l01374" name="l01374"></a><span class="lineno"> 1374</span> </div>
|
|
<div class="line"><a id="l01375" name="l01375"></a><span class="lineno"> 1375</span> variable nparts = ItemsInList(basename, "-")</div>
|
|
<div class="line"><a id="l01376" name="l01376"></a><span class="lineno"> 1376</span> if (nparts >= 3)</div>
|
|
<div class="line"><a id="l01377" name="l01377"></a><span class="lineno"> 1377</span> string datepart = StringFromList(nparts - 2, basename, "-")</div>
|
|
<div class="line"><a id="l01378" name="l01378"></a><span class="lineno"> 1378</span> string indexpart = StringFromList(nparts - 1, basename, "-")</div>
|
|
<div class="line"><a id="l01379" name="l01379"></a><span class="lineno"> 1379</span> if (ignoredate)</div>
|
|
<div class="line"><a id="l01380" name="l01380"></a><span class="lineno"> 1380</span> sprintf nickname, "%s_%s", sourcename, indexpart</div>
|
|
<div class="line"><a id="l01381" name="l01381"></a><span class="lineno"> 1381</span> else</div>
|
|
<div class="line"><a id="l01382" name="l01382"></a><span class="lineno"> 1382</span> sprintf nickname, "%s_%s_%s", sourcename, datepart, indexpart</div>
|
|
<div class="line"><a id="l01383" name="l01383"></a><span class="lineno"> 1383</span> endif</div>
|
|
<div class="line"><a id="l01384" name="l01384"></a><span class="lineno"> 1384</span> else</div>
|
|
<div class="line"><a id="l01385" name="l01385"></a><span class="lineno"> 1385</span> nickname = PearlCleanupName(basename)</div>
|
|
<div class="line"><a id="l01386" name="l01386"></a><span class="lineno"> 1386</span> endif</div>
|
|
<div class="line"><a id="l01387" name="l01387"></a><span class="lineno"> 1387</span> </div>
|
|
<div class="line"><a id="l01388" name="l01388"></a><span class="lineno"> 1388</span> if (unique && CheckName(nickname, 11))</div>
|
|
<div class="line"><a id="l01389" name="l01389"></a><span class="lineno"> 1389</span> nickname = UniqueName(nickname + "_", 11, 0)</div>
|
|
<div class="line"><a id="l01390" name="l01390"></a><span class="lineno"> 1390</span> endif</div>
|
|
<div class="line"><a id="l01391" name="l01391"></a><span class="lineno"> 1391</span> </div>
|
|
<div class="line"><a id="l01392" name="l01392"></a><span class="lineno"> 1392</span> return nickname</div>
|
|
<div class="line"><a id="l01393" name="l01393"></a><span class="lineno"> 1393</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l01394" name="l01394"></a><span class="lineno"> 1394</span> </div>
|
|
<div class="line"><a id="l01395" name="l01395"></a><span class="lineno"> 1395</span>// ====== panel ======</div>
|
|
<div class="line"><a id="l01396" name="l01396"></a><span class="lineno"> 1396</span> </div>
|
|
<div class="foldopen" id="foldopen01403" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01403" name="l01403"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a5b824531904179a94e0eaa3ffa09172e"> 1403</a></span>Window PearlDataExplorer() : Panel</div>
|
|
<div class="line"><a id="l01404" name="l01404"></a><span class="lineno"> 1404</span> PauseUpdate; Silent 1 // building window...</div>
|
|
<div class="line"><a id="l01405" name="l01405"></a><span class="lineno"> 1405</span> NewPanel /K=1 /W=(510,45,1190,539) as "PEARL Data Explorer"</div>
|
|
<div class="line"><a id="l01406" name="l01406"></a><span class="lineno"> 1406</span> ModifyPanel cbRGB=(48640,56832,60160)</div>
|
|
<div class="line"><a id="l01407" name="l01407"></a><span class="lineno"> 1407</span> GroupBox g_data_reduction,pos={355.00,370.00},size={306.00,49.00},title="data reduction"</div>
|
|
<div class="line"><a id="l01408" name="l01408"></a><span class="lineno"> 1408</span> GroupBox g_data_reduction,help={"data reduction of 3D ScientaImage"}</div>
|
|
<div class="line"><a id="l01409" name="l01409"></a><span class="lineno"> 1409</span> GroupBox gb_filepath,pos={8.00,4.00},size={328.00,48.00},title="file system folder"</div>
|
|
<div class="line"><a id="l01410" name="l01410"></a><span class="lineno"> 1410</span> TitleBox tb_filepath,pos={20.00,28.00},size={279.00,21.00},frame=0</div>
|
|
<div class="line"><a id="l01411" name="l01411"></a><span class="lineno"> 1411</span> TitleBox tb_filepath,variable= root:packages:pearl_explorer:s_short_filepath,fixedSize=1</div>
|
|
<div class="line"><a id="l01412" name="l01412"></a><span class="lineno"> 1412</span> Button b_browse_filepath,pos={303.00,24.00},size={20.00,20.00},proc=PearlDataExplorer#bp_browse_filepath,title="..."</div>
|
|
<div class="line"><a id="l01413" name="l01413"></a><span class="lineno"> 1413</span> Button b_browse_filepath,fColor=(65280,48896,32768)</div>
|
|
<div class="line"><a id="l01414" name="l01414"></a><span class="lineno"> 1414</span> Button b_browse_filepath,help={"select the file system folder that contains the data files"}</div>
|
|
<div class="line"><a id="l01415" name="l01415"></a><span class="lineno"> 1415</span> GroupBox gb_prefs,pos={8.00,351.00},size={65.00,131.00},title="prefs"</div>
|
|
<div class="line"><a id="l01416" name="l01416"></a><span class="lineno"> 1416</span> GroupBox gb_prefs,help={"explorer package preferences"}</div>
|
|
<div class="line"><a id="l01417" name="l01417"></a><span class="lineno"> 1417</span> Button b_save_prefs,pos={21.00,394.00},size={38.00,17.00},proc=PearlDataExplorer#bp_save_prefs,title="save"</div>
|
|
<div class="line"><a id="l01418" name="l01418"></a><span class="lineno"> 1418</span> Button b_save_prefs,help={"save preferences of the data explorer package (data file path, attributes filter)"}</div>
|
|
<div class="line"><a id="l01419" name="l01419"></a><span class="lineno"> 1419</span> Button b_save_prefs,fColor=(65280,48896,32768)</div>
|
|
<div class="line"><a id="l01420" name="l01420"></a><span class="lineno"> 1420</span> Button b_load_prefs,pos={21.00,374.00},size={38.00,17.00},proc=PearlDataExplorer#bp_load_prefs,title="load"</div>
|
|
<div class="line"><a id="l01421" name="l01421"></a><span class="lineno"> 1421</span> Button b_load_prefs,help={"load preferences of the data explorer package"}</div>
|
|
<div class="line"><a id="l01422" name="l01422"></a><span class="lineno"> 1422</span> Button b_load_prefs,fColor=(65280,48896,32768)</div>
|
|
<div class="line"><a id="l01423" name="l01423"></a><span class="lineno"> 1423</span> GroupBox gb_filelist,pos={8.00,55.00},size={328.00,293.00},title="data files"</div>
|
|
<div class="line"><a id="l01424" name="l01424"></a><span class="lineno"> 1424</span> ListBox lb_files,pos={20.00,83.00},size={303.00,222.00},proc=PearlDataExplorer#lbp_filelist</div>
|
|
<div class="line"><a id="l01425" name="l01425"></a><span class="lineno"> 1425</span> ListBox lb_files,listWave=root:packages:pearl_explorer:wtFiles</div>
|
|
<div class="line"><a id="l01426" name="l01426"></a><span class="lineno"> 1426</span> ListBox lb_files,selWave=root:packages:pearl_explorer:wSelectedFiles,mode= 4</div>
|
|
<div class="line"><a id="l01427" name="l01427"></a><span class="lineno"> 1427</span> Button b_update_filelist,pos={246.00,315.00},size={76.00,22.00},proc=PearlDataExplorer#bp_update_filelist,title="update list"</div>
|
|
<div class="line"><a id="l01428" name="l01428"></a><span class="lineno"> 1428</span> Button b_update_filelist,fColor=(65280,48896,32768)</div>
|
|
<div class="line"><a id="l01429" name="l01429"></a><span class="lineno"> 1429</span> Button b_update_filelist,help={"reload the file list"}</div>
|
|
<div class="line"><a id="l01430" name="l01430"></a><span class="lineno"> 1430</span> CheckBox cb_file_preview,pos={94.00,375.00},size={59.00,14.00},title="preview"</div>
|
|
<div class="line"><a id="l01431" name="l01431"></a><span class="lineno"> 1431</span> CheckBox cb_file_preview,help={"enable/disable automatic preview window when selecting a data file"}</div>
|
|
<div class="line"><a id="l01432" name="l01432"></a><span class="lineno"> 1432</span> CheckBox cb_file_preview,value= 0</div>
|
|
<div class="line"><a id="l01433" name="l01433"></a><span class="lineno"> 1433</span> CheckBox cb_file_elog,pos={94.00,395.00},size={82.00,14.00},title="ELOG"</div>
|
|
<div class="line"><a id="l01434" name="l01434"></a><span class="lineno"> 1434</span> CheckBox cb_file_elog,help={"enable/disable sending metadata to ELOG panel when selecting a data file (does not submit to ELOG)"}</div>
|
|
<div class="line"><a id="l01435" name="l01435"></a><span class="lineno"> 1435</span> CheckBox cb_file_elog,value= 0</div>
|
|
<div class="line"><a id="l01436" name="l01436"></a><span class="lineno"> 1436</span> Button b_attr_notebook,pos={94.00,415.00},size={64.00,22.00},disable=2,proc=PearlDataExplorer#bp_attr_notebook,title="notebook"</div>
|
|
<div class="line"><a id="l01437" name="l01437"></a><span class="lineno"> 1437</span> Button b_attr_notebook,help={"show a summary of attributes in a notebook window"}</div>
|
|
<div class="line"><a id="l01438" name="l01438"></a><span class="lineno"> 1438</span> Button b_attr_notebook,fColor=(65280,48896,32768)</div>
|
|
<div class="line"><a id="l01439" name="l01439"></a><span class="lineno"> 1439</span> Button b_file_prev,pos={20.00,314.00},size={22.00,22.00},proc=PearlDataExplorer#bp_file_prev,title="\\W646"</div>
|
|
<div class="line"><a id="l01440" name="l01440"></a><span class="lineno"> 1440</span> Button b_file_prev,fColor=(65280,48896,32768)</div>
|
|
<div class="line"><a id="l01441" name="l01441"></a><span class="lineno"> 1441</span> Button b_file_prev,help={"select previous file from list"}</div>
|
|
<div class="line"><a id="l01442" name="l01442"></a><span class="lineno"> 1442</span> Button b_file_next,pos={44.00,314.00},size={22.00,22.00},proc=PearlDataExplorer#bp_file_next,title="\\W649"</div>
|
|
<div class="line"><a id="l01443" name="l01443"></a><span class="lineno"> 1443</span> Button b_file_next,fColor=(65280,48896,32768)</div>
|
|
<div class="line"><a id="l01444" name="l01444"></a><span class="lineno"> 1444</span> Button b_file_next,help={"select next file from list"}</div>
|
|
<div class="line"><a id="l01445" name="l01445"></a><span class="lineno"> 1445</span> Button b_goto_dataset,pos={355.00,315.00},size={64.00,22.00},disable=2,proc=PearlDataExplorer#bp_goto_dataset,title="goto DF"</div>
|
|
<div class="line"><a id="l01446" name="l01446"></a><span class="lineno"> 1446</span> Button b_goto_dataset,help={"change the current data folder to find the selected dataset (if loaded)"}</div>
|
|
<div class="line"><a id="l01447" name="l01447"></a><span class="lineno"> 1447</span> Button b_goto_dataset,fColor=(65280,48896,32768)</div>
|
|
<div class="line"><a id="l01448" name="l01448"></a><span class="lineno"> 1448</span> Button b_display_dataset,pos={423.00,315.00},size={64.00,22.00},disable=2,proc=PearlDataExplorer#bp_display_dataset,title="display"</div>
|
|
<div class="line"><a id="l01449" name="l01449"></a><span class="lineno"> 1449</span> Button b_display_dataset,help={"display the selected dataset"}</div>
|
|
<div class="line"><a id="l01450" name="l01450"></a><span class="lineno"> 1450</span> Button b_display_dataset,fColor=(65280,48896,32768)</div>
|
|
<div class="line"><a id="l01451" name="l01451"></a><span class="lineno"> 1451</span> Button b_load_complete,pos={355.00,451.00},size={92.00,22.00},disable=2,proc=PearlDataExplorer#bp_load_options,title="all data"</div>
|
|
<div class="line"><a id="l01452" name="l01452"></a><span class="lineno"> 1452</span> Button b_load_complete,help={"load all datasets of the selected file."}</div>
|
|
<div class="line"><a id="l01453" name="l01453"></a><span class="lineno"> 1453</span> Button b_load_complete,userdata= "mode:load_complete;"</div>
|
|
<div class="line"><a id="l01454" name="l01454"></a><span class="lineno"> 1454</span> Button b_load_complete,fColor=(65280,48896,32768)</div>
|
|
<div class="line"><a id="l01455" name="l01455"></a><span class="lineno"> 1455</span> TitleBox tb_selected_file,pos={360.00,28.00},size={309.00,22.00},frame=0</div>
|
|
<div class="line"><a id="l01456" name="l01456"></a><span class="lineno"> 1456</span> TitleBox tb_selected_file,variable= root:packages:pearl_explorer:s_selected_file,fixedSize=1</div>
|
|
<div class="line"><a id="l01457" name="l01457"></a><span class="lineno"> 1457</span> GroupBox gb_contents,pos={346.00,55.00},size={327.00,294.00},title="datasets"</div>
|
|
<div class="line"><a id="l01458" name="l01458"></a><span class="lineno"> 1458</span> ListBox lb_contents,pos={355.00,84.00},size={305.00,222.00}</div>
|
|
<div class="line"><a id="l01459" name="l01459"></a><span class="lineno"> 1459</span> ListBox lb_contents,keySelectCol= 1</div>
|
|
<div class="line"><a id="l01460" name="l01460"></a><span class="lineno"> 1460</span> GroupBox gb_selected_file,pos={346.00,4.00},size={328.00,48.00},title="selected file"</div>
|
|
<div class="line"><a id="l01461" name="l01461"></a><span class="lineno"> 1461</span> Button b_load_region,pos={355.00,426.00},size={92.00,22.00},disable=2,proc=PearlDataExplorer#bp_load_options,title="region"</div>
|
|
<div class="line"><a id="l01462" name="l01462"></a><span class="lineno"> 1462</span> Button b_load_region,help={"load significant datasets and metadata from the selected region"}</div>
|
|
<div class="line"><a id="l01463" name="l01463"></a><span class="lineno"> 1463</span> Button b_load_region,userdata= "mode:load_region;",fColor=(65280,48896,32768)</div>
|
|
<div class="line"><a id="l01464" name="l01464"></a><span class="lineno"> 1464</span> PopupMenu popup_reduction,pos={366.00,391.00},size={200.00,17.00},bodyWidth=200,proc=PearlDataExplorer#pmp_reduction_func</div>
|
|
<div class="line"><a id="l01465" name="l01465"></a><span class="lineno"> 1465</span> PopupMenu popup_reduction,help={"data reduction function for 3d ScientaImage. note: the list may contain unsuitable functions. check the code or documentation!"}</div>
|
|
<div class="line"><a id="l01466" name="l01466"></a><span class="lineno"> 1466</span> PopupMenu popup_reduction,mode=1,popvalue="None",value= #"PearlDataExplorer#pm_reduction_values()"</div>
|
|
<div class="line"><a id="l01467" name="l01467"></a><span class="lineno"> 1467</span> GroupBox group_import,pos={346.00,351.00},size={326.00,131.00},title="import"</div>
|
|
<div class="line"><a id="l01468" name="l01468"></a><span class="lineno"> 1468</span> Button b_load_scan,pos={450.00,426.00},size={94.00,22.00},disable=2,proc=PearlDataExplorer#bp_load_options,title="scan"</div>
|
|
<div class="line"><a id="l01469" name="l01469"></a><span class="lineno"> 1469</span> Button b_load_scan,help={"load significant datasets and metadata from the selected scan"},userdata= "mode:load_scan;"</div>
|
|
<div class="line"><a id="l01470" name="l01470"></a><span class="lineno"> 1470</span> Button b_load_scan,fColor=(65280,48896,32768)</div>
|
|
<div class="line"><a id="l01471" name="l01471"></a><span class="lineno"> 1471</span> Button b_load_diags,pos={450.00,451.00},size={94.00,22.00},disable=2,proc=PearlDataExplorer#bp_load_options,title="diagnostics"</div>
|
|
<div class="line"><a id="l01472" name="l01472"></a><span class="lineno"> 1472</span> Button b_load_diags,help={"load diagnostic datasets of the selected scans"}</div>
|
|
<div class="line"><a id="l01473" name="l01473"></a><span class="lineno"> 1473</span> Button b_load_diags,userdata= "mode:load_diags;",fColor=(65280,48896,32768)</div>
|
|
<div class="line"><a id="l01474" name="l01474"></a><span class="lineno"> 1474</span> Button b_load_dataset,pos={547.00,426.00},size={101.00,22.00},disable=2,proc=PearlDataExplorer#bp_load_options,title="dataset"</div>
|
|
<div class="line"><a id="l01475" name="l01475"></a><span class="lineno"> 1475</span> Button b_load_dataset,help={"load the selected dataset(s) and significant metadata"}</div>
|
|
<div class="line"><a id="l01476" name="l01476"></a><span class="lineno"> 1476</span> Button b_load_dataset,userdata= "mode:load_dataset;",fColor=(65280,48896,32768)</div>
|
|
<div class="line"><a id="l01477" name="l01477"></a><span class="lineno"> 1477</span> Button b_reduction_params,pos={571.00,390.00},size={71.00,19.00},disable=2,proc=PearlDataExplorer#bp_reduction_params,title="set params"</div>
|
|
<div class="line"><a id="l01478" name="l01478"></a><span class="lineno"> 1478</span> Button b_reduction_params,help={"set data reduction parameters"}</div>
|
|
<div class="line"><a id="l01479" name="l01479"></a><span class="lineno"> 1479</span> Button b_reduction_params,fColor=(65280,48896,32768)</div>
|
|
<div class="line"><a id="l01480" name="l01480"></a><span class="lineno"> 1480</span> GroupBox g_fileinfo,pos={85.00,351.00},size={251.00,131.00},title="file info"</div>
|
|
<div class="line"><a id="l01481" name="l01481"></a><span class="lineno"> 1481</span> ToolsGrid grid=(0,28.35,5)</div>
|
|
<div class="line"><a id="l01482" name="l01482"></a><span class="lineno"> 1482</span>EndMacro</div>
|
|
<div class="line"><a id="l01483" name="l01483"></a><span class="lineno"> 1483</span> </div>
|
|
<div class="line"><a id="l01486" name="l01486"></a><span class="lineno"> 1486</span>static function update_controls()</div>
|
|
<div class="line"><a id="l01487" name="l01487"></a><span class="lineno"> 1487</span> dfref package_df = $package_path</div>
|
|
<div class="line"><a id="l01488" name="l01488"></a><span class="lineno"> 1488</span> svar /z /sdfr=package_df hl_contents_datasets</div>
|
|
<div class="line"><a id="l01489" name="l01489"></a><span class="lineno"> 1489</span> wave /z /sdfr=package_df wSelectedFiles</div>
|
|
<div class="line"><a id="l01490" name="l01490"></a><span class="lineno"> 1490</span> </div>
|
|
<div class="line"><a id="l01491" name="l01491"></a><span class="lineno"> 1491</span> variable file_selected = 0</div>
|
|
<div class="line"><a id="l01492" name="l01492"></a><span class="lineno"> 1492</span> if (WaveExists(wSelectedFiles))</div>
|
|
<div class="line"><a id="l01493" name="l01493"></a><span class="lineno"> 1493</span> file_selected = sum(wSelectedFiles)</div>
|
|
<div class="line"><a id="l01494" name="l01494"></a><span class="lineno"> 1494</span> endif</div>
|
|
<div class="line"><a id="l01495" name="l01495"></a><span class="lineno"> 1495</span> </div>
|
|
<div class="line"><a id="l01496" name="l01496"></a><span class="lineno"> 1496</span> string selected_datasets = WMHL_SelectedObjectsList("PearlDataExplorer", "lb_contents")</div>
|
|
<div class="line"><a id="l01497" name="l01497"></a><span class="lineno"> 1497</span> variable scan_selected = strsearch(selected_datasets, "scan", 0, 2) == 0</div>
|
|
<div class="line"><a id="l01498" name="l01498"></a><span class="lineno"> 1498</span> variable region_selected = strsearch(selected_datasets, "region", 0, 2) >= 0</div>
|
|
<div class="line"><a id="l01499" name="l01499"></a><span class="lineno"> 1499</span> </div>
|
|
<div class="line"><a id="l01500" name="l01500"></a><span class="lineno"> 1500</span> variable dataset_selected = 0</div>
|
|
<div class="line"><a id="l01501" name="l01501"></a><span class="lineno"> 1501</span> variable nds = ItemsInList(selected_datasets, ";")</div>
|
|
<div class="line"><a id="l01502" name="l01502"></a><span class="lineno"> 1502</span> variable ids</div>
|
|
<div class="line"><a id="l01503" name="l01503"></a><span class="lineno"> 1503</span> string ds</div>
|
|
<div class="line"><a id="l01504" name="l01504"></a><span class="lineno"> 1504</span> if (svar_exists(hl_contents_datasets))</div>
|
|
<div class="line"><a id="l01505" name="l01505"></a><span class="lineno"> 1505</span> for (ids = 0; ids < nds; ids += 1)</div>
|
|
<div class="line"><a id="l01506" name="l01506"></a><span class="lineno"> 1506</span> ds = "/" + StringFromList(ids, selected_datasets, ";")</div>
|
|
<div class="line"><a id="l01507" name="l01507"></a><span class="lineno"> 1507</span> if (NumType(NumberByKey(ds, hl_contents_datasets, ":", ";")) == 0)</div>
|
|
<div class="line"><a id="l01508" name="l01508"></a><span class="lineno"> 1508</span> dataset_selected = 1</div>
|
|
<div class="line"><a id="l01509" name="l01509"></a><span class="lineno"> 1509</span> break</div>
|
|
<div class="line"><a id="l01510" name="l01510"></a><span class="lineno"> 1510</span> endif</div>
|
|
<div class="line"><a id="l01511" name="l01511"></a><span class="lineno"> 1511</span> endfor </div>
|
|
<div class="line"><a id="l01512" name="l01512"></a><span class="lineno"> 1512</span> else</div>
|
|
<div class="line"><a id="l01513" name="l01513"></a><span class="lineno"> 1513</span> nds = 0</div>
|
|
<div class="line"><a id="l01514" name="l01514"></a><span class="lineno"> 1514</span> endif</div>
|
|
<div class="line"><a id="l01515" name="l01515"></a><span class="lineno"> 1515</span> </div>
|
|
<div class="line"><a id="l01516" name="l01516"></a><span class="lineno"> 1516</span> variable dis</div>
|
|
<div class="line"><a id="l01517" name="l01517"></a><span class="lineno"> 1517</span> dis = file_selected ? 0 : 2</div>
|
|
<div class="line"><a id="l01518" name="l01518"></a><span class="lineno"> 1518</span> Button b_load_complete win=PearlDataExplorer,disable=dis</div>
|
|
<div class="line"><a id="l01519" name="l01519"></a><span class="lineno"> 1519</span> Button b_load_diags win=PearlDataExplorer,disable=dis</div>
|
|
<div class="line"><a id="l01520" name="l01520"></a><span class="lineno"> 1520</span> dis = file_selected && scan_selected ? 0 : 2</div>
|
|
<div class="line"><a id="l01521" name="l01521"></a><span class="lineno"> 1521</span> Button b_attr_notebook win=PearlDataExplorer,disable=dis</div>
|
|
<div class="line"><a id="l01522" name="l01522"></a><span class="lineno"> 1522</span> </div>
|
|
<div class="line"><a id="l01523" name="l01523"></a><span class="lineno"> 1523</span> dis = scan_selected ? 0 : 2</div>
|
|
<div class="line"><a id="l01524" name="l01524"></a><span class="lineno"> 1524</span> Button b_load_scan win=PearlDataExplorer,disable=dis</div>
|
|
<div class="line"><a id="l01525" name="l01525"></a><span class="lineno"> 1525</span> dis = region_selected ? 0 : 2</div>
|
|
<div class="line"><a id="l01526" name="l01526"></a><span class="lineno"> 1526</span> Button b_load_region win=PearlDataExplorer,disable=dis</div>
|
|
<div class="line"><a id="l01527" name="l01527"></a><span class="lineno"> 1527</span> dis = dataset_selected ? 0 : 2</div>
|
|
<div class="line"><a id="l01528" name="l01528"></a><span class="lineno"> 1528</span> Button b_load_dataset win=PearlDataExplorer,disable=dis</div>
|
|
<div class="line"><a id="l01529" name="l01529"></a><span class="lineno"> 1529</span> Button b_display_dataset win=PearlDataExplorer,disable=dis</div>
|
|
<div class="line"><a id="l01530" name="l01530"></a><span class="lineno"> 1530</span> dis = file_selected && (nds > 0) ? 0 : 2</div>
|
|
<div class="line"><a id="l01531" name="l01531"></a><span class="lineno"> 1531</span> Button b_goto_dataset win=PearlDataExplorer,disable=dis</div>
|
|
<div class="line"><a id="l01532" name="l01532"></a><span class="lineno"> 1532</span> </div>
|
|
<div class="line"><a id="l01533" name="l01533"></a><span class="lineno"> 1533</span> ControlInfo /W=PearlDataExplorer popup_reduction</div>
|
|
<div class="line"><a id="l01534" name="l01534"></a><span class="lineno"> 1534</span> if ((cmpstr(S_Value, "None") != 0) && (exists(S_Value) == 6))</div>
|
|
<div class="line"><a id="l01535" name="l01535"></a><span class="lineno"> 1535</span> GroupBox g_data_reduction win=PearlDataExplorer,labelBack=(65535,49151,49151)</div>
|
|
<div class="line"><a id="l01536" name="l01536"></a><span class="lineno"> 1536</span> Button b_reduction_params win=PearlDataExplorer,disable=0</div>
|
|
<div class="line"><a id="l01537" name="l01537"></a><span class="lineno"> 1537</span> else</div>
|
|
<div class="line"><a id="l01538" name="l01538"></a><span class="lineno"> 1538</span> GroupBox g_data_reduction win=PearlDataExplorer,labelBack=0</div>
|
|
<div class="line"><a id="l01539" name="l01539"></a><span class="lineno"> 1539</span> Button b_reduction_params win=PearlDataExplorer,disable=2</div>
|
|
<div class="line"><a id="l01540" name="l01540"></a><span class="lineno"> 1540</span> endif</div>
|
|
<div class="line"><a id="l01541" name="l01541"></a><span class="lineno"> 1541</span> </div>
|
|
<div class="line"><a id="l01542" name="l01542"></a><span class="lineno"> 1542</span> return 0</div>
|
|
<div class="line"><a id="l01543" name="l01543"></a><span class="lineno"> 1543</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l01544" name="l01544"></a><span class="lineno"> 1544</span> </div>
|
|
<div class="foldopen" id="foldopen01545" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01545" name="l01545"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a1868754e64cb1448e564c0936e78574d"> 1545</a></span>static function bp_load_prefs(ba) : ButtonControl</div>
|
|
<div class="line"><a id="l01546" name="l01546"></a><span class="lineno"> 1546</span> STRUCT WMButtonAction &ba</div>
|
|
<div class="line"><a id="l01547" name="l01547"></a><span class="lineno"> 1547</span> </div>
|
|
<div class="line"><a id="l01548" name="l01548"></a><span class="lineno"> 1548</span> switch( ba.eventCode )</div>
|
|
<div class="line"><a id="l01549" name="l01549"></a><span class="lineno"> 1549</span> case 2: // mouse up</div>
|
|
<div class="line"><a id="l01550" name="l01550"></a><span class="lineno"> 1550</span> load_prefs()</div>
|
|
<div class="line"><a id="l01551" name="l01551"></a><span class="lineno"> 1551</span> update_controls()</div>
|
|
<div class="line"><a id="l01552" name="l01552"></a><span class="lineno"> 1552</span> break</div>
|
|
<div class="line"><a id="l01553" name="l01553"></a><span class="lineno"> 1553</span> case -1: // control being killed</div>
|
|
<div class="line"><a id="l01554" name="l01554"></a><span class="lineno"> 1554</span> break</div>
|
|
<div class="line"><a id="l01555" name="l01555"></a><span class="lineno"> 1555</span> endswitch</div>
|
|
<div class="line"><a id="l01556" name="l01556"></a><span class="lineno"> 1556</span> </div>
|
|
<div class="line"><a id="l01557" name="l01557"></a><span class="lineno"> 1557</span> return 0</div>
|
|
<div class="line"><a id="l01558" name="l01558"></a><span class="lineno"> 1558</span>End</div>
|
|
</div>
|
|
<div class="line"><a id="l01559" name="l01559"></a><span class="lineno"> 1559</span> </div>
|
|
<div class="foldopen" id="foldopen01560" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01560" name="l01560"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#ad8a01428a137278a31d4f1f4f9c634c5"> 1560</a></span>static function bp_save_prefs(ba) : ButtonControl</div>
|
|
<div class="line"><a id="l01561" name="l01561"></a><span class="lineno"> 1561</span> STRUCT WMButtonAction &ba</div>
|
|
<div class="line"><a id="l01562" name="l01562"></a><span class="lineno"> 1562</span> </div>
|
|
<div class="line"><a id="l01563" name="l01563"></a><span class="lineno"> 1563</span> switch( ba.eventCode )</div>
|
|
<div class="line"><a id="l01564" name="l01564"></a><span class="lineno"> 1564</span> case 2: // mouse up</div>
|
|
<div class="line"><a id="l01565" name="l01565"></a><span class="lineno"> 1565</span> save_prefs()</div>
|
|
<div class="line"><a id="l01566" name="l01566"></a><span class="lineno"> 1566</span> break</div>
|
|
<div class="line"><a id="l01567" name="l01567"></a><span class="lineno"> 1567</span> case -1: // control being killed</div>
|
|
<div class="line"><a id="l01568" name="l01568"></a><span class="lineno"> 1568</span> break</div>
|
|
<div class="line"><a id="l01569" name="l01569"></a><span class="lineno"> 1569</span> endswitch</div>
|
|
<div class="line"><a id="l01570" name="l01570"></a><span class="lineno"> 1570</span> </div>
|
|
<div class="line"><a id="l01571" name="l01571"></a><span class="lineno"> 1571</span> return 0</div>
|
|
<div class="line"><a id="l01572" name="l01572"></a><span class="lineno"> 1572</span>End</div>
|
|
</div>
|
|
<div class="line"><a id="l01573" name="l01573"></a><span class="lineno"> 1573</span> </div>
|
|
<div class="foldopen" id="foldopen01578" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01578" name="l01578"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a00307dffd6f272f13acfe4dea99a81d4"> 1578</a></span>static function /s shorten_filepath(long_path, max_len)</div>
|
|
<div class="line"><a id="l01579" name="l01579"></a><span class="lineno"> 1579</span> string long_path</div>
|
|
<div class="line"><a id="l01580" name="l01580"></a><span class="lineno"> 1580</span> variable max_len</div>
|
|
<div class="line"><a id="l01581" name="l01581"></a><span class="lineno"> 1581</span> </div>
|
|
<div class="line"><a id="l01582" name="l01582"></a><span class="lineno"> 1582</span> string path = long_path</div>
|
|
<div class="line"><a id="l01583" name="l01583"></a><span class="lineno"> 1583</span> variable ellipsis = 0</div>
|
|
<div class="line"><a id="l01584" name="l01584"></a><span class="lineno"> 1584</span> do</div>
|
|
<div class="line"><a id="l01585" name="l01585"></a><span class="lineno"> 1585</span> if (strlen(path) > max_len)</div>
|
|
<div class="line"><a id="l01586" name="l01586"></a><span class="lineno"> 1586</span> path = RemoveListItem(1, path, ":")</div>
|
|
<div class="line"><a id="l01587" name="l01587"></a><span class="lineno"> 1587</span> ellipsis += 1</div>
|
|
<div class="line"><a id="l01588" name="l01588"></a><span class="lineno"> 1588</span> else</div>
|
|
<div class="line"><a id="l01589" name="l01589"></a><span class="lineno"> 1589</span> break</div>
|
|
<div class="line"><a id="l01590" name="l01590"></a><span class="lineno"> 1590</span> endif</div>
|
|
<div class="line"><a id="l01591" name="l01591"></a><span class="lineno"> 1591</span> while (1)</div>
|
|
<div class="line"><a id="l01592" name="l01592"></a><span class="lineno"> 1592</span> </div>
|
|
<div class="line"><a id="l01593" name="l01593"></a><span class="lineno"> 1593</span> if (ellipsis >= 1)</div>
|
|
<div class="line"><a id="l01594" name="l01594"></a><span class="lineno"> 1594</span> path = AddListItem("âŠ", path, ":", 1)</div>
|
|
<div class="line"><a id="l01595" name="l01595"></a><span class="lineno"> 1595</span> endif</div>
|
|
<div class="line"><a id="l01596" name="l01596"></a><span class="lineno"> 1596</span> </div>
|
|
<div class="line"><a id="l01597" name="l01597"></a><span class="lineno"> 1597</span> return path</div>
|
|
<div class="line"><a id="l01598" name="l01598"></a><span class="lineno"> 1598</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l01599" name="l01599"></a><span class="lineno"> 1599</span> </div>
|
|
<div class="foldopen" id="foldopen01600" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01600" name="l01600"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a02a64144b7ed2c1bc230e265c55e81a1"> 1600</a></span>static function bp_browse_filepath(ba) : ButtonControl</div>
|
|
<div class="line"><a id="l01601" name="l01601"></a><span class="lineno"> 1601</span> STRUCT WMButtonAction &ba</div>
|
|
<div class="line"><a id="l01602" name="l01602"></a><span class="lineno"> 1602</span> </div>
|
|
<div class="line"><a id="l01603" name="l01603"></a><span class="lineno"> 1603</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l01604" name="l01604"></a><span class="lineno"> 1604</span> </div>
|
|
<div class="line"><a id="l01605" name="l01605"></a><span class="lineno"> 1605</span> switch( ba.eventCode )</div>
|
|
<div class="line"><a id="l01606" name="l01606"></a><span class="lineno"> 1606</span> case 2: // mouse up</div>
|
|
<div class="line"><a id="l01607" name="l01607"></a><span class="lineno"> 1607</span> PathInfo /S pearl_explorer_filepath</div>
|
|
<div class="line"><a id="l01608" name="l01608"></a><span class="lineno"> 1608</span> NewPath /M="select data file folder" /O/Z pearl_explorer_filepath</div>
|
|
<div class="line"><a id="l01609" name="l01609"></a><span class="lineno"> 1609</span> if (v_flag == 0)</div>
|
|
<div class="line"><a id="l01610" name="l01610"></a><span class="lineno"> 1610</span> update_filepath()</div>
|
|
<div class="line"><a id="l01611" name="l01611"></a><span class="lineno"> 1611</span> update_filelist()</div>
|
|
<div class="line"><a id="l01612" name="l01612"></a><span class="lineno"> 1612</span> update_controls()</div>
|
|
<div class="line"><a id="l01613" name="l01613"></a><span class="lineno"> 1613</span> endif</div>
|
|
<div class="line"><a id="l01614" name="l01614"></a><span class="lineno"> 1614</span> break</div>
|
|
<div class="line"><a id="l01615" name="l01615"></a><span class="lineno"> 1615</span> case -1: // control being killed</div>
|
|
<div class="line"><a id="l01616" name="l01616"></a><span class="lineno"> 1616</span> break</div>
|
|
<div class="line"><a id="l01617" name="l01617"></a><span class="lineno"> 1617</span> endswitch</div>
|
|
<div class="line"><a id="l01618" name="l01618"></a><span class="lineno"> 1618</span> </div>
|
|
<div class="line"><a id="l01619" name="l01619"></a><span class="lineno"> 1619</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l01620" name="l01620"></a><span class="lineno"> 1620</span> return 0</div>
|
|
<div class="line"><a id="l01621" name="l01621"></a><span class="lineno"> 1621</span>End</div>
|
|
</div>
|
|
<div class="line"><a id="l01622" name="l01622"></a><span class="lineno"> 1622</span> </div>
|
|
<div class="foldopen" id="foldopen01623" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01623" name="l01623"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a45be265789a5260e3daa05eca0ec309e"> 1623</a></span>static function bp_update_filelist(ba) : ButtonControl</div>
|
|
<div class="line"><a id="l01624" name="l01624"></a><span class="lineno"> 1624</span> STRUCT WMButtonAction &ba</div>
|
|
<div class="line"><a id="l01625" name="l01625"></a><span class="lineno"> 1625</span> </div>
|
|
<div class="line"><a id="l01626" name="l01626"></a><span class="lineno"> 1626</span> switch( ba.eventCode )</div>
|
|
<div class="line"><a id="l01627" name="l01627"></a><span class="lineno"> 1627</span> case 2: // mouse up</div>
|
|
<div class="line"><a id="l01628" name="l01628"></a><span class="lineno"> 1628</span> update_filelist()</div>
|
|
<div class="line"><a id="l01629" name="l01629"></a><span class="lineno"> 1629</span> update_controls()</div>
|
|
<div class="line"><a id="l01630" name="l01630"></a><span class="lineno"> 1630</span> break</div>
|
|
<div class="line"><a id="l01631" name="l01631"></a><span class="lineno"> 1631</span> case -1: // control being killed</div>
|
|
<div class="line"><a id="l01632" name="l01632"></a><span class="lineno"> 1632</span> break</div>
|
|
<div class="line"><a id="l01633" name="l01633"></a><span class="lineno"> 1633</span> endswitch</div>
|
|
<div class="line"><a id="l01634" name="l01634"></a><span class="lineno"> 1634</span> </div>
|
|
<div class="line"><a id="l01635" name="l01635"></a><span class="lineno"> 1635</span> return 0</div>
|
|
<div class="line"><a id="l01636" name="l01636"></a><span class="lineno"> 1636</span>End</div>
|
|
</div>
|
|
<div class="line"><a id="l01637" name="l01637"></a><span class="lineno"> 1637</span> </div>
|
|
<div class="foldopen" id="foldopen01639" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01639" name="l01639"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a638a13044aede37cabe0c2c7a7c0cb06"> 1639</a></span>static function /s pm_reduction_values()</div>
|
|
<div class="line"><a id="l01640" name="l01640"></a><span class="lineno"> 1640</span> string reduction_funcs = adh5_list_reduction_funcs()</div>
|
|
<div class="line"><a id="l01641" name="l01641"></a><span class="lineno"> 1641</span> reduction_funcs = RemoveFromList("adh5_default_reduction", reduction_funcs, ";")</div>
|
|
<div class="line"><a id="l01642" name="l01642"></a><span class="lineno"> 1642</span> reduction_funcs = AddListItem("None", reduction_funcs, ";", 0)</div>
|
|
<div class="line"><a id="l01643" name="l01643"></a><span class="lineno"> 1643</span> return reduction_funcs</div>
|
|
<div class="line"><a id="l01644" name="l01644"></a><span class="lineno"> 1644</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l01645" name="l01645"></a><span class="lineno"> 1645</span> </div>
|
|
<div class="foldopen" id="foldopen01646" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01646" name="l01646"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a166273677188a66c25a84616c6f4baa9"> 1646</a></span>static function pmp_reduction_func(pa) : PopupMenuControl</div>
|
|
<div class="line"><a id="l01647" name="l01647"></a><span class="lineno"> 1647</span> STRUCT WMPopupAction &pa</div>
|
|
<div class="line"><a id="l01648" name="l01648"></a><span class="lineno"> 1648</span> </div>
|
|
<div class="line"><a id="l01649" name="l01649"></a><span class="lineno"> 1649</span> switch( pa.eventCode )</div>
|
|
<div class="line"><a id="l01650" name="l01650"></a><span class="lineno"> 1650</span> case 2: // mouse up</div>
|
|
<div class="line"><a id="l01651" name="l01651"></a><span class="lineno"> 1651</span> Variable popNum = pa.popNum</div>
|
|
<div class="line"><a id="l01652" name="l01652"></a><span class="lineno"> 1652</span> String popStr = pa.popStr</div>
|
|
<div class="line"><a id="l01653" name="l01653"></a><span class="lineno"> 1653</span> update_controls()</div>
|
|
<div class="line"><a id="l01654" name="l01654"></a><span class="lineno"> 1654</span> break</div>
|
|
<div class="line"><a id="l01655" name="l01655"></a><span class="lineno"> 1655</span> case -1: // control being killed</div>
|
|
<div class="line"><a id="l01656" name="l01656"></a><span class="lineno"> 1656</span> break</div>
|
|
<div class="line"><a id="l01657" name="l01657"></a><span class="lineno"> 1657</span> endswitch</div>
|
|
<div class="line"><a id="l01658" name="l01658"></a><span class="lineno"> 1658</span> </div>
|
|
<div class="line"><a id="l01659" name="l01659"></a><span class="lineno"> 1659</span> return 0</div>
|
|
<div class="line"><a id="l01660" name="l01660"></a><span class="lineno"> 1660</span>End</div>
|
|
</div>
|
|
<div class="line"><a id="l01661" name="l01661"></a><span class="lineno"> 1661</span> </div>
|
|
<div class="foldopen" id="foldopen01662" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01662" name="l01662"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a70150946799d759473b409b3371e3ae2"> 1662</a></span>static function bp_reduction_params(ba) : ButtonControl</div>
|
|
<div class="line"><a id="l01663" name="l01663"></a><span class="lineno"> 1663</span> STRUCT WMButtonAction &ba</div>
|
|
<div class="line"><a id="l01664" name="l01664"></a><span class="lineno"> 1664</span> </div>
|
|
<div class="line"><a id="l01665" name="l01665"></a><span class="lineno"> 1665</span> switch( ba.eventCode )</div>
|
|
<div class="line"><a id="l01666" name="l01666"></a><span class="lineno"> 1666</span> case 2: // mouse up</div>
|
|
<div class="line"><a id="l01667" name="l01667"></a><span class="lineno"> 1667</span> ControlInfo /W=PearlDataExplorer popup_reduction</div>
|
|
<div class="line"><a id="l01668" name="l01668"></a><span class="lineno"> 1668</span> if ((cmpstr(S_Value, "None") != 0) && (exists(S_Value) == 6))</div>
|
|
<div class="line"><a id="l01669" name="l01669"></a><span class="lineno"> 1669</span> svar pref_params = $(package_path + "s_reduction_params")</div>
|
|
<div class="line"><a id="l01670" name="l01670"></a><span class="lineno"> 1670</span> string reduction_func = S_Value</div>
|
|
<div class="line"><a id="l01671" name="l01671"></a><span class="lineno"> 1671</span> string reduction_params = pref_params</div>
|
|
<div class="line"><a id="l01672" name="l01672"></a><span class="lineno"> 1672</span> if (prompt_func_params(reduction_func, reduction_params) == 0)</div>
|
|
<div class="line"><a id="l01673" name="l01673"></a><span class="lineno"> 1673</span> pref_params = reduction_params</div>
|
|
<div class="line"><a id="l01674" name="l01674"></a><span class="lineno"> 1674</span> endif</div>
|
|
<div class="line"><a id="l01675" name="l01675"></a><span class="lineno"> 1675</span> endif</div>
|
|
<div class="line"><a id="l01676" name="l01676"></a><span class="lineno"> 1676</span> break</div>
|
|
<div class="line"><a id="l01677" name="l01677"></a><span class="lineno"> 1677</span> case -1: // control being killed</div>
|
|
<div class="line"><a id="l01678" name="l01678"></a><span class="lineno"> 1678</span> break</div>
|
|
<div class="line"><a id="l01679" name="l01679"></a><span class="lineno"> 1679</span> endswitch</div>
|
|
<div class="line"><a id="l01680" name="l01680"></a><span class="lineno"> 1680</span> </div>
|
|
<div class="line"><a id="l01681" name="l01681"></a><span class="lineno"> 1681</span> return 0</div>
|
|
<div class="line"><a id="l01682" name="l01682"></a><span class="lineno"> 1682</span>End</div>
|
|
</div>
|
|
<div class="line"><a id="l01683" name="l01683"></a><span class="lineno"> 1683</span> </div>
|
|
<div class="foldopen" id="foldopen01684" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01684" name="l01684"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a3fd06ac9aa62de7f00e10ce749ba12c9"> 1684</a></span>static function bp_load_options(ba) : ButtonControl</div>
|
|
<div class="line"><a id="l01685" name="l01685"></a><span class="lineno"> 1685</span> STRUCT WMButtonAction &ba</div>
|
|
<div class="line"><a id="l01686" name="l01686"></a><span class="lineno"> 1686</span> </div>
|
|
<div class="line"><a id="l01687" name="l01687"></a><span class="lineno"> 1687</span> switch( ba.eventCode )</div>
|
|
<div class="line"><a id="l01688" name="l01688"></a><span class="lineno"> 1688</span> case 2: // mouse up</div>
|
|
<div class="line"><a id="l01689" name="l01689"></a><span class="lineno"> 1689</span> // options must be in the button's unnamed user data in the form: "mode:load_complete".</div>
|
|
<div class="line"><a id="l01690" name="l01690"></a><span class="lineno"> 1690</span> // see load_pshell_file for recognized values.</div>
|
|
<div class="line"><a id="l01691" name="l01691"></a><span class="lineno"> 1691</span> string options=ba.userData</div>
|
|
<div class="line"><a id="l01692" name="l01692"></a><span class="lineno"> 1692</span> </div>
|
|
<div class="line"><a id="l01693" name="l01693"></a><span class="lineno"> 1693</span> // data reduction popup</div>
|
|
<div class="line"><a id="l01694" name="l01694"></a><span class="lineno"> 1694</span> ControlInfo /W=PearlDataExplorer popup_reduction</div>
|
|
<div class="line"><a id="l01695" name="l01695"></a><span class="lineno"> 1695</span> if ((cmpstr(S_Value, "None") != 0) && (exists(S_Value) == 6))</div>
|
|
<div class="line"><a id="l01696" name="l01696"></a><span class="lineno"> 1696</span> options = ReplaceStringByKey("reduction_func", options, S_Value, ":", ";")</div>
|
|
<div class="line"><a id="l01697" name="l01697"></a><span class="lineno"> 1697</span> endif</div>
|
|
<div class="line"><a id="l01698" name="l01698"></a><span class="lineno"> 1698</span> </div>
|
|
<div class="line"><a id="l01699" name="l01699"></a><span class="lineno"> 1699</span> load_selected_files(options=options)</div>
|
|
<div class="line"><a id="l01700" name="l01700"></a><span class="lineno"> 1700</span> break</div>
|
|
<div class="line"><a id="l01701" name="l01701"></a><span class="lineno"> 1701</span> case -1: // control being killed</div>
|
|
<div class="line"><a id="l01702" name="l01702"></a><span class="lineno"> 1702</span> break</div>
|
|
<div class="line"><a id="l01703" name="l01703"></a><span class="lineno"> 1703</span> endswitch</div>
|
|
<div class="line"><a id="l01704" name="l01704"></a><span class="lineno"> 1704</span> </div>
|
|
<div class="line"><a id="l01705" name="l01705"></a><span class="lineno"> 1705</span> return 0</div>
|
|
<div class="line"><a id="l01706" name="l01706"></a><span class="lineno"> 1706</span>End</div>
|
|
</div>
|
|
<div class="line"><a id="l01707" name="l01707"></a><span class="lineno"> 1707</span> </div>
|
|
<div class="foldopen" id="foldopen01724" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01724" name="l01724"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#ac9bd62937d6046e08be6d0a737a49a3e"> 1724</a></span>static function selected_file(file, do_preview, do_elog)</div>
|
|
<div class="line"><a id="l01725" name="l01725"></a><span class="lineno"> 1725</span> string file</div>
|
|
<div class="line"><a id="l01726" name="l01726"></a><span class="lineno"> 1726</span> variable do_preview</div>
|
|
<div class="line"><a id="l01727" name="l01727"></a><span class="lineno"> 1727</span> variable do_elog</div>
|
|
<div class="line"><a id="l01728" name="l01728"></a><span class="lineno"> 1728</span> </div>
|
|
<div class="line"><a id="l01729" name="l01729"></a><span class="lineno"> 1729</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l01730" name="l01730"></a><span class="lineno"> 1730</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l01731" name="l01731"></a><span class="lineno"> 1731</span> svar s_selected_file</div>
|
|
<div class="line"><a id="l01732" name="l01732"></a><span class="lineno"> 1732</span> s_selected_file = file</div>
|
|
<div class="line"><a id="l01733" name="l01733"></a><span class="lineno"> 1733</span> variable fi = get_file_info(file)</div>
|
|
<div class="line"><a id="l01734" name="l01734"></a><span class="lineno"> 1734</span> if (fi == 0 && do_preview != 0)</div>
|
|
<div class="line"><a id="l01735" name="l01735"></a><span class="lineno"> 1735</span> preview_file(file)</div>
|
|
<div class="line"><a id="l01736" name="l01736"></a><span class="lineno"> 1736</span> endif</div>
|
|
<div class="line"><a id="l01737" name="l01737"></a><span class="lineno"> 1737</span> if (fi == 0 && do_elog != 0)</div>
|
|
<div class="line"><a id="l01738" name="l01738"></a><span class="lineno"> 1738</span> send_to_elog()</div>
|
|
<div class="line"><a id="l01739" name="l01739"></a><span class="lineno"> 1739</span> endif</div>
|
|
<div class="line"><a id="l01740" name="l01740"></a><span class="lineno"> 1740</span> update_controls()</div>
|
|
<div class="line"><a id="l01741" name="l01741"></a><span class="lineno"> 1741</span> </div>
|
|
<div class="line"><a id="l01742" name="l01742"></a><span class="lineno"> 1742</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l01743" name="l01743"></a><span class="lineno"> 1743</span> return 0</div>
|
|
<div class="line"><a id="l01744" name="l01744"></a><span class="lineno"> 1744</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l01745" name="l01745"></a><span class="lineno"> 1745</span> </div>
|
|
<div class="foldopen" id="foldopen01746" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01746" name="l01746"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a9cefcdc49b2169e99c743b0a683ed3a6"> 1746</a></span>static function bp_file_next(ba) : ButtonControl</div>
|
|
<div class="line"><a id="l01747" name="l01747"></a><span class="lineno"> 1747</span> STRUCT WMButtonAction &ba</div>
|
|
<div class="line"><a id="l01748" name="l01748"></a><span class="lineno"> 1748</span> </div>
|
|
<div class="line"><a id="l01749" name="l01749"></a><span class="lineno"> 1749</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l01750" name="l01750"></a><span class="lineno"> 1750</span> </div>
|
|
<div class="line"><a id="l01751" name="l01751"></a><span class="lineno"> 1751</span> switch( ba.eventCode )</div>
|
|
<div class="line"><a id="l01752" name="l01752"></a><span class="lineno"> 1752</span> case 2: // mouse up</div>
|
|
<div class="line"><a id="l01753" name="l01753"></a><span class="lineno"> 1753</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l01754" name="l01754"></a><span class="lineno"> 1754</span> wave /t wtFiles</div>
|
|
<div class="line"><a id="l01755" name="l01755"></a><span class="lineno"> 1755</span> wave wSelectedFiles</div>
|
|
<div class="line"><a id="l01756" name="l01756"></a><span class="lineno"> 1756</span> FindValue /i=1 wSelectedFiles</div>
|
|
<div class="line"><a id="l01757" name="l01757"></a><span class="lineno"> 1757</span> v_value += 1</div>
|
|
<div class="line"><a id="l01758" name="l01758"></a><span class="lineno"> 1758</span> if (v_value >= numpnts(wtFiles))</div>
|
|
<div class="line"><a id="l01759" name="l01759"></a><span class="lineno"> 1759</span> v_value = min(numpnts(wtFiles) - 1, 0)</div>
|
|
<div class="line"><a id="l01760" name="l01760"></a><span class="lineno"> 1760</span> endif</div>
|
|
<div class="line"><a id="l01761" name="l01761"></a><span class="lineno"> 1761</span> wSelectedFiles = p == v_value</div>
|
|
<div class="line"><a id="l01762" name="l01762"></a><span class="lineno"> 1762</span> if (v_value >= 0)</div>
|
|
<div class="line"><a id="l01763" name="l01763"></a><span class="lineno"> 1763</span> variable ifile = v_value</div>
|
|
<div class="line"><a id="l01764" name="l01764"></a><span class="lineno"> 1764</span> ControlInfo /W=PearlDataExplorer cb_file_preview</div>
|
|
<div class="line"><a id="l01765" name="l01765"></a><span class="lineno"> 1765</span> variable do_preview = v_value</div>
|
|
<div class="line"><a id="l01766" name="l01766"></a><span class="lineno"> 1766</span> ControlInfo /W=PearlDataExplorer cb_file_elog</div>
|
|
<div class="line"><a id="l01767" name="l01767"></a><span class="lineno"> 1767</span> variable do_elog = v_value</div>
|
|
<div class="line"><a id="l01768" name="l01768"></a><span class="lineno"> 1768</span> selected_file(wtFiles[ifile], do_preview, do_elog)</div>
|
|
<div class="line"><a id="l01769" name="l01769"></a><span class="lineno"> 1769</span> endif</div>
|
|
<div class="line"><a id="l01770" name="l01770"></a><span class="lineno"> 1770</span> update_controls()</div>
|
|
<div class="line"><a id="l01771" name="l01771"></a><span class="lineno"> 1771</span> break</div>
|
|
<div class="line"><a id="l01772" name="l01772"></a><span class="lineno"> 1772</span> case -1: // control being killed</div>
|
|
<div class="line"><a id="l01773" name="l01773"></a><span class="lineno"> 1773</span> break</div>
|
|
<div class="line"><a id="l01774" name="l01774"></a><span class="lineno"> 1774</span> endswitch</div>
|
|
<div class="line"><a id="l01775" name="l01775"></a><span class="lineno"> 1775</span> </div>
|
|
<div class="line"><a id="l01776" name="l01776"></a><span class="lineno"> 1776</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l01777" name="l01777"></a><span class="lineno"> 1777</span> return 0</div>
|
|
<div class="line"><a id="l01778" name="l01778"></a><span class="lineno"> 1778</span>End</div>
|
|
</div>
|
|
<div class="line"><a id="l01779" name="l01779"></a><span class="lineno"> 1779</span> </div>
|
|
<div class="foldopen" id="foldopen01780" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01780" name="l01780"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a6aa44ff12b8530adbaaaf7405b1a68ba"> 1780</a></span>static function bp_file_prev(ba) : ButtonControl</div>
|
|
<div class="line"><a id="l01781" name="l01781"></a><span class="lineno"> 1781</span> STRUCT WMButtonAction &ba</div>
|
|
<div class="line"><a id="l01782" name="l01782"></a><span class="lineno"> 1782</span> </div>
|
|
<div class="line"><a id="l01783" name="l01783"></a><span class="lineno"> 1783</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l01784" name="l01784"></a><span class="lineno"> 1784</span> </div>
|
|
<div class="line"><a id="l01785" name="l01785"></a><span class="lineno"> 1785</span> switch( ba.eventCode )</div>
|
|
<div class="line"><a id="l01786" name="l01786"></a><span class="lineno"> 1786</span> case 2: // mouse up</div>
|
|
<div class="line"><a id="l01787" name="l01787"></a><span class="lineno"> 1787</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l01788" name="l01788"></a><span class="lineno"> 1788</span> wave /t wtFiles</div>
|
|
<div class="line"><a id="l01789" name="l01789"></a><span class="lineno"> 1789</span> wave wSelectedFiles</div>
|
|
<div class="line"><a id="l01790" name="l01790"></a><span class="lineno"> 1790</span> FindValue /i=1 wSelectedFiles</div>
|
|
<div class="line"><a id="l01791" name="l01791"></a><span class="lineno"> 1791</span> v_value -= 1</div>
|
|
<div class="line"><a id="l01792" name="l01792"></a><span class="lineno"> 1792</span> if (v_value < 0)</div>
|
|
<div class="line"><a id="l01793" name="l01793"></a><span class="lineno"> 1793</span> v_value = numpnts(wtFiles) - 1</div>
|
|
<div class="line"><a id="l01794" name="l01794"></a><span class="lineno"> 1794</span> endif</div>
|
|
<div class="line"><a id="l01795" name="l01795"></a><span class="lineno"> 1795</span> wSelectedFiles = p == v_value</div>
|
|
<div class="line"><a id="l01796" name="l01796"></a><span class="lineno"> 1796</span> if (v_value >= 0)</div>
|
|
<div class="line"><a id="l01797" name="l01797"></a><span class="lineno"> 1797</span> variable ifile = v_value</div>
|
|
<div class="line"><a id="l01798" name="l01798"></a><span class="lineno"> 1798</span> ControlInfo /W=PearlDataExplorer cb_file_preview</div>
|
|
<div class="line"><a id="l01799" name="l01799"></a><span class="lineno"> 1799</span> variable do_preview = v_value</div>
|
|
<div class="line"><a id="l01800" name="l01800"></a><span class="lineno"> 1800</span> ControlInfo /W=PearlDataExplorer cb_file_elog</div>
|
|
<div class="line"><a id="l01801" name="l01801"></a><span class="lineno"> 1801</span> variable do_elog = v_value</div>
|
|
<div class="line"><a id="l01802" name="l01802"></a><span class="lineno"> 1802</span> selected_file(wtFiles[ifile], do_preview, do_elog)</div>
|
|
<div class="line"><a id="l01803" name="l01803"></a><span class="lineno"> 1803</span> endif</div>
|
|
<div class="line"><a id="l01804" name="l01804"></a><span class="lineno"> 1804</span> update_controls()</div>
|
|
<div class="line"><a id="l01805" name="l01805"></a><span class="lineno"> 1805</span> break</div>
|
|
<div class="line"><a id="l01806" name="l01806"></a><span class="lineno"> 1806</span> case -1: // control being killed</div>
|
|
<div class="line"><a id="l01807" name="l01807"></a><span class="lineno"> 1807</span> break</div>
|
|
<div class="line"><a id="l01808" name="l01808"></a><span class="lineno"> 1808</span> endswitch</div>
|
|
<div class="line"><a id="l01809" name="l01809"></a><span class="lineno"> 1809</span> </div>
|
|
<div class="line"><a id="l01810" name="l01810"></a><span class="lineno"> 1810</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l01811" name="l01811"></a><span class="lineno"> 1811</span> return 0</div>
|
|
<div class="line"><a id="l01812" name="l01812"></a><span class="lineno"> 1812</span>End</div>
|
|
</div>
|
|
<div class="line"><a id="l01813" name="l01813"></a><span class="lineno"> 1813</span> </div>
|
|
<div class="foldopen" id="foldopen01814" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01814" name="l01814"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a614e89b9c06511144ccb380e61cc7bd6"> 1814</a></span>static function lbp_filelist(lba) : ListBoxControl</div>
|
|
<div class="line"><a id="l01815" name="l01815"></a><span class="lineno"> 1815</span> STRUCT WMListboxAction &lba</div>
|
|
<div class="line"><a id="l01816" name="l01816"></a><span class="lineno"> 1816</span> </div>
|
|
<div class="line"><a id="l01817" name="l01817"></a><span class="lineno"> 1817</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l01818" name="l01818"></a><span class="lineno"> 1818</span> </div>
|
|
<div class="line"><a id="l01819" name="l01819"></a><span class="lineno"> 1819</span> Variable row = lba.row</div>
|
|
<div class="line"><a id="l01820" name="l01820"></a><span class="lineno"> 1820</span> Variable col = lba.col</div>
|
|
<div class="line"><a id="l01821" name="l01821"></a><span class="lineno"> 1821</span> WAVE/T/Z listWave = lba.listWave</div>
|
|
<div class="line"><a id="l01822" name="l01822"></a><span class="lineno"> 1822</span> WAVE/Z selWave = lba.selWave</div>
|
|
<div class="line"><a id="l01823" name="l01823"></a><span class="lineno"> 1823</span> </div>
|
|
<div class="line"><a id="l01824" name="l01824"></a><span class="lineno"> 1824</span> switch( lba.eventCode )</div>
|
|
<div class="line"><a id="l01825" name="l01825"></a><span class="lineno"> 1825</span> case -1: // control being killed</div>
|
|
<div class="line"><a id="l01826" name="l01826"></a><span class="lineno"> 1826</span> break</div>
|
|
<div class="line"><a id="l01827" name="l01827"></a><span class="lineno"> 1827</span> case 1: // mouse down</div>
|
|
<div class="line"><a id="l01828" name="l01828"></a><span class="lineno"> 1828</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l01829" name="l01829"></a><span class="lineno"> 1829</span> wave wSelectedFiles</div>
|
|
<div class="line"><a id="l01830" name="l01830"></a><span class="lineno"> 1830</span> if (selWave[row])</div>
|
|
<div class="line"><a id="l01831" name="l01831"></a><span class="lineno"> 1831</span> if (sum(wSelectedFiles) == 1)</div>
|
|
<div class="line"><a id="l01832" name="l01832"></a><span class="lineno"> 1832</span> ControlInfo /W=PearlDataExplorer cb_file_preview</div>
|
|
<div class="line"><a id="l01833" name="l01833"></a><span class="lineno"> 1833</span> variable do_preview = v_value</div>
|
|
<div class="line"><a id="l01834" name="l01834"></a><span class="lineno"> 1834</span> ControlInfo /W=PearlDataExplorer cb_file_elog</div>
|
|
<div class="line"><a id="l01835" name="l01835"></a><span class="lineno"> 1835</span> variable do_elog = v_value</div>
|
|
<div class="line"><a id="l01836" name="l01836"></a><span class="lineno"> 1836</span> selected_file(listWave[row], do_preview, do_elog)</div>
|
|
<div class="line"><a id="l01837" name="l01837"></a><span class="lineno"> 1837</span> else</div>
|
|
<div class="line"><a id="l01838" name="l01838"></a><span class="lineno"> 1838</span> selected_file(listWave[row], 0, 0)</div>
|
|
<div class="line"><a id="l01839" name="l01839"></a><span class="lineno"> 1839</span> endif</div>
|
|
<div class="line"><a id="l01840" name="l01840"></a><span class="lineno"> 1840</span> endif</div>
|
|
<div class="line"><a id="l01841" name="l01841"></a><span class="lineno"> 1841</span> update_controls()</div>
|
|
<div class="line"><a id="l01842" name="l01842"></a><span class="lineno"> 1842</span> break</div>
|
|
<div class="line"><a id="l01843" name="l01843"></a><span class="lineno"> 1843</span> case 3: // double click</div>
|
|
<div class="line"><a id="l01844" name="l01844"></a><span class="lineno"> 1844</span> break</div>
|
|
<div class="line"><a id="l01845" name="l01845"></a><span class="lineno"> 1845</span> case 4: // cell selection</div>
|
|
<div class="line"><a id="l01846" name="l01846"></a><span class="lineno"> 1846</span> case 5: // cell selection plus shift key</div>
|
|
<div class="line"><a id="l01847" name="l01847"></a><span class="lineno"> 1847</span> break</div>
|
|
<div class="line"><a id="l01848" name="l01848"></a><span class="lineno"> 1848</span> case 6: // begin edit</div>
|
|
<div class="line"><a id="l01849" name="l01849"></a><span class="lineno"> 1849</span> break</div>
|
|
<div class="line"><a id="l01850" name="l01850"></a><span class="lineno"> 1850</span> case 7: // finish edit</div>
|
|
<div class="line"><a id="l01851" name="l01851"></a><span class="lineno"> 1851</span> break</div>
|
|
<div class="line"><a id="l01852" name="l01852"></a><span class="lineno"> 1852</span> case 13: // checkbox clicked (Igor 6.2 or later)</div>
|
|
<div class="line"><a id="l01853" name="l01853"></a><span class="lineno"> 1853</span> break</div>
|
|
<div class="line"><a id="l01854" name="l01854"></a><span class="lineno"> 1854</span> endswitch</div>
|
|
<div class="line"><a id="l01855" name="l01855"></a><span class="lineno"> 1855</span> </div>
|
|
<div class="line"><a id="l01856" name="l01856"></a><span class="lineno"> 1856</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l01857" name="l01857"></a><span class="lineno"> 1857</span> return 0</div>
|
|
<div class="line"><a id="l01858" name="l01858"></a><span class="lineno"> 1858</span>End</div>
|
|
</div>
|
|
<div class="line"><a id="l01859" name="l01859"></a><span class="lineno"> 1859</span> </div>
|
|
<div class="foldopen" id="foldopen01860" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01860" name="l01860"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a4ef196f752bb5780ed4f4a588f9ebc81"> 1860</a></span>static function bp_attr_notebook(ba) : ButtonControl</div>
|
|
<div class="line"><a id="l01861" name="l01861"></a><span class="lineno"> 1861</span> STRUCT WMButtonAction &ba</div>
|
|
<div class="line"><a id="l01862" name="l01862"></a><span class="lineno"> 1862</span> </div>
|
|
<div class="line"><a id="l01863" name="l01863"></a><span class="lineno"> 1863</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l01864" name="l01864"></a><span class="lineno"> 1864</span> </div>
|
|
<div class="line"><a id="l01865" name="l01865"></a><span class="lineno"> 1865</span> switch( ba.eventCode )</div>
|
|
<div class="line"><a id="l01866" name="l01866"></a><span class="lineno"> 1866</span> case 2: // mouse up</div>
|
|
<div class="line"><a id="l01867" name="l01867"></a><span class="lineno"> 1867</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l01868" name="l01868"></a><span class="lineno"> 1868</span> wave wSelectedFiles</div>
|
|
<div class="line"><a id="l01869" name="l01869"></a><span class="lineno"> 1869</span> wave/t wtFiles</div>
|
|
<div class="line"><a id="l01870" name="l01870"></a><span class="lineno"> 1870</span> variable nn = numpnts(wSelectedFiles)</div>
|
|
<div class="line"><a id="l01871" name="l01871"></a><span class="lineno"> 1871</span> variable ii</div>
|
|
<div class="line"><a id="l01872" name="l01872"></a><span class="lineno"> 1872</span> for (ii = 0; ii < nn; ii += 1)</div>
|
|
<div class="line"><a id="l01873" name="l01873"></a><span class="lineno"> 1873</span> if (wSelectedFiles[ii])</div>
|
|
<div class="line"><a id="l01874" name="l01874"></a><span class="lineno"> 1874</span> attributes_notebook(wtFiles[ii])</div>
|
|
<div class="line"><a id="l01875" name="l01875"></a><span class="lineno"> 1875</span> break</div>
|
|
<div class="line"><a id="l01876" name="l01876"></a><span class="lineno"> 1876</span> endif</div>
|
|
<div class="line"><a id="l01877" name="l01877"></a><span class="lineno"> 1877</span> endfor</div>
|
|
<div class="line"><a id="l01878" name="l01878"></a><span class="lineno"> 1878</span> break</div>
|
|
<div class="line"><a id="l01879" name="l01879"></a><span class="lineno"> 1879</span> case -1: // control being killed</div>
|
|
<div class="line"><a id="l01880" name="l01880"></a><span class="lineno"> 1880</span> break</div>
|
|
<div class="line"><a id="l01881" name="l01881"></a><span class="lineno"> 1881</span> endswitch</div>
|
|
<div class="line"><a id="l01882" name="l01882"></a><span class="lineno"> 1882</span> </div>
|
|
<div class="line"><a id="l01883" name="l01883"></a><span class="lineno"> 1883</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l01884" name="l01884"></a><span class="lineno"> 1884</span> return 0</div>
|
|
<div class="line"><a id="l01885" name="l01885"></a><span class="lineno"> 1885</span>End</div>
|
|
</div>
|
|
<div class="line"><a id="l01886" name="l01886"></a><span class="lineno"> 1886</span> </div>
|
|
<div class="line"><a id="l01887" name="l01887"></a><span class="lineno"> 1887</span> </div>
|
|
<div class="foldopen" id="foldopen01888" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01888" name="l01888"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#af616e37167d5753b11e513bd03685ab8"> 1888</a></span>static function hlp_setup()</div>
|
|
<div class="line"><a id="l01889" name="l01889"></a><span class="lineno"> 1889</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l01890" name="l01890"></a><span class="lineno"> 1890</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l01891" name="l01891"></a><span class="lineno"> 1891</span> </div>
|
|
<div class="line"><a id="l01892" name="l01892"></a><span class="lineno"> 1892</span> MakeListIntoHierarchicalList("PearlDataExplorer", "lb_contents", "hlp_contents_open", selectionMode=WMHL_SelectionSingle, pathSeparator="/")</div>
|
|
<div class="line"><a id="l01893" name="l01893"></a><span class="lineno"> 1893</span> </div>
|
|
<div class="line"><a id="l01894" name="l01894"></a><span class="lineno"> 1894</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l01895" name="l01895"></a><span class="lineno"> 1895</span> return 0</div>
|
|
<div class="line"><a id="l01896" name="l01896"></a><span class="lineno"> 1896</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l01897" name="l01897"></a><span class="lineno"> 1897</span> </div>
|
|
<div class="foldopen" id="foldopen01898" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01898" name="l01898"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#ad95697e197428ff73a1a258ea3bb79b2"> 1898</a></span>static function hl_contents_clear()</div>
|
|
<div class="line"><a id="l01899" name="l01899"></a><span class="lineno"> 1899</span> do</div>
|
|
<div class="line"><a id="l01900" name="l01900"></a><span class="lineno"> 1900</span> if (cmpstr(WMHL_GetItemForRowNumber("PearlDataExplorer", "lb_contents", 0), "<uninitialized>") != 0)</div>
|
|
<div class="line"><a id="l01901" name="l01901"></a><span class="lineno"> 1901</span> WMHL_DeleteRowAndChildren("PearlDataExplorer", "lb_contents", 0)</div>
|
|
<div class="line"><a id="l01902" name="l01902"></a><span class="lineno"> 1902</span> else</div>
|
|
<div class="line"><a id="l01903" name="l01903"></a><span class="lineno"> 1903</span> break</div>
|
|
<div class="line"><a id="l01904" name="l01904"></a><span class="lineno"> 1904</span> endif</div>
|
|
<div class="line"><a id="l01905" name="l01905"></a><span class="lineno"> 1905</span> while (1)</div>
|
|
<div class="line"><a id="l01906" name="l01906"></a><span class="lineno"> 1906</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l01907" name="l01907"></a><span class="lineno"> 1907</span> </div>
|
|
<div class="foldopen" id="foldopen01912" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01912" name="l01912"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#aba2f8be504e49469194cc4b562be3a9c"> 1912</a></span>static function hl_contents_update(file_df)</div>
|
|
<div class="line"><a id="l01913" name="l01913"></a><span class="lineno"> 1913</span> dfref file_df</div>
|
|
<div class="line"><a id="l01914" name="l01914"></a><span class="lineno"> 1914</span> </div>
|
|
<div class="line"><a id="l01915" name="l01915"></a><span class="lineno"> 1915</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l01916" name="l01916"></a><span class="lineno"> 1916</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l01917" name="l01917"></a><span class="lineno"> 1917</span> hl_contents_clear()</div>
|
|
<div class="line"><a id="l01918" name="l01918"></a><span class="lineno"> 1918</span> </div>
|
|
<div class="line"><a id="l01919" name="l01919"></a><span class="lineno"> 1919</span> variable nds</div>
|
|
<div class="line"><a id="l01920" name="l01920"></a><span class="lineno"> 1920</span> variable ids</div>
|
|
<div class="line"><a id="l01921" name="l01921"></a><span class="lineno"> 1921</span> string ds</div>
|
|
<div class="line"><a id="l01922" name="l01922"></a><span class="lineno"> 1922</span> string extra</div>
|
|
<div class="line"><a id="l01923" name="l01923"></a><span class="lineno"> 1923</span> string /g hl_contents_datasets = ""</div>
|
|
<div class="line"><a id="l01924" name="l01924"></a><span class="lineno"> 1924</span> </div>
|
|
<div class="line"><a id="l01925" name="l01925"></a><span class="lineno"> 1925</span> if (DataFolderRefStatus(file_df))</div>
|
|
<div class="line"><a id="l01926" name="l01926"></a><span class="lineno"> 1926</span> svar /sdfr=file_df datasets = s_datasets</div>
|
|
<div class="line"><a id="l01927" name="l01927"></a><span class="lineno"> 1927</span> svar /sdfr=file_df datatypes = s_datasets_datatypes</div>
|
|
<div class="line"><a id="l01928" name="l01928"></a><span class="lineno"> 1928</span> svar /sdfr=file_df ranks = s_datasets_ranks</div>
|
|
<div class="line"><a id="l01929" name="l01929"></a><span class="lineno"> 1929</span> svar /sdfr=file_df dimensions = s_datasets_dimensions</div>
|
|
<div class="line"><a id="l01930" name="l01930"></a><span class="lineno"> 1930</span> </div>
|
|
<div class="line"><a id="l01931" name="l01931"></a><span class="lineno"> 1931</span> nds = ItemsInList(datasets, ";")</div>
|
|
<div class="line"><a id="l01932" name="l01932"></a><span class="lineno"> 1932</span> for (ids = 0; ids < nds; ids += 1)</div>
|
|
<div class="line"><a id="l01933" name="l01933"></a><span class="lineno"> 1933</span> ds = StringFromList(ids, datasets, ";")</div>
|
|
<div class="line"><a id="l01934" name="l01934"></a><span class="lineno"> 1934</span> extra = StringFromList(ids, dimensions, ";")</div>
|
|
<div class="line"><a id="l01935" name="l01935"></a><span class="lineno"> 1935</span> hl_contents_datasets = ReplaceStringByKey(ds, hl_contents_datasets, extra, ":", ";")</div>
|
|
<div class="line"><a id="l01936" name="l01936"></a><span class="lineno"> 1936</span> endfor</div>
|
|
<div class="line"><a id="l01937" name="l01937"></a><span class="lineno"> 1937</span> endif</div>
|
|
<div class="line"><a id="l01938" name="l01938"></a><span class="lineno"> 1938</span> </div>
|
|
<div class="line"><a id="l01939" name="l01939"></a><span class="lineno"> 1939</span> variable nobj = hl_add_objects("", hl_contents_datasets)</div>
|
|
<div class="line"><a id="l01940" name="l01940"></a><span class="lineno"> 1940</span> hl_expand_scans()</div>
|
|
<div class="line"><a id="l01941" name="l01941"></a><span class="lineno"> 1941</span> hl_default_selection()</div>
|
|
<div class="line"><a id="l01942" name="l01942"></a><span class="lineno"> 1942</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l01943" name="l01943"></a><span class="lineno"> 1943</span> </div>
|
|
<div class="line"><a id="l01944" name="l01944"></a><span class="lineno"> 1944</span> return nobj</div>
|
|
<div class="line"><a id="l01945" name="l01945"></a><span class="lineno"> 1945</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l01946" name="l01946"></a><span class="lineno"> 1946</span> </div>
|
|
<div class="foldopen" id="foldopen01947" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01947" name="l01947"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a28921b185d4e6fbe9a7a689757269f19"> 1947</a></span>static function /df get_pshell_info(path_name, file_name, [dest_df])</div>
|
|
<div class="line"><a id="l01948" name="l01948"></a><span class="lineno"> 1948</span> string path_name</div>
|
|
<div class="line"><a id="l01949" name="l01949"></a><span class="lineno"> 1949</span> string file_name</div>
|
|
<div class="line"><a id="l01950" name="l01950"></a><span class="lineno"> 1950</span> dfref dest_df</div>
|
|
<div class="line"><a id="l01951" name="l01951"></a><span class="lineno"> 1951</span> </div>
|
|
<div class="line"><a id="l01952" name="l01952"></a><span class="lineno"> 1952</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l01953" name="l01953"></a><span class="lineno"> 1953</span> </div>
|
|
<div class="line"><a id="l01954" name="l01954"></a><span class="lineno"> 1954</span> if (!ParamIsDefault(dest_df))</div>
|
|
<div class="line"><a id="l01955" name="l01955"></a><span class="lineno"> 1955</span> setdatafolder dest_df</div>
|
|
<div class="line"><a id="l01956" name="l01956"></a><span class="lineno"> 1956</span> else</div>
|
|
<div class="line"><a id="l01957" name="l01957"></a><span class="lineno"> 1957</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l01958" name="l01958"></a><span class="lineno"> 1958</span> NewDataFolder /o /s file_info</div>
|
|
<div class="line"><a id="l01959" name="l01959"></a><span class="lineno"> 1959</span> endif</div>
|
|
<div class="line"><a id="l01960" name="l01960"></a><span class="lineno"> 1960</span> </div>
|
|
<div class="line"><a id="l01961" name="l01961"></a><span class="lineno"> 1961</span> dfref file_df = psh5_open_file(path_name, file_name, dest_df=GetDataFolderDFR())</div>
|
|
<div class="line"><a id="l01962" name="l01962"></a><span class="lineno"> 1962</span> if (DataFolderRefStatus(file_df))</div>
|
|
<div class="line"><a id="l01963" name="l01963"></a><span class="lineno"> 1963</span> psh5_load_general_group(file_df)</div>
|
|
<div class="line"><a id="l01964" name="l01964"></a><span class="lineno"> 1964</span> psh5_close_file(file_df)</div>
|
|
<div class="line"><a id="l01965" name="l01965"></a><span class="lineno"> 1965</span> endif</div>
|
|
<div class="line"><a id="l01966" name="l01966"></a><span class="lineno"> 1966</span> </div>
|
|
<div class="line"><a id="l01967" name="l01967"></a><span class="lineno"> 1967</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l01968" name="l01968"></a><span class="lineno"> 1968</span> return file_df</div>
|
|
<div class="line"><a id="l01969" name="l01969"></a><span class="lineno"> 1969</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l01970" name="l01970"></a><span class="lineno"> 1970</span> </div>
|
|
<div class="foldopen" id="foldopen01975" data-start="{" data-end="}">
|
|
<div class="line"><a id="l01975" name="l01975"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a54be4e40b17906c281cdf649d6ce537e"> 1975</a></span>static function hl_add_objects(parent_path, objects)</div>
|
|
<div class="line"><a id="l01976" name="l01976"></a><span class="lineno"> 1976</span> string parent_path // e.g. "/a/b"</div>
|
|
<div class="line"><a id="l01977" name="l01977"></a><span class="lineno"> 1977</span> string objects // all objects that might appear in the list. e.g. "/a/b/c:col0|col1;/a/b/d:col0|col1;/d/e/f:col0|col1;"</div>
|
|
<div class="line"><a id="l01978" name="l01978"></a><span class="lineno"> 1978</span> </div>
|
|
<div class="line"><a id="l01979" name="l01979"></a><span class="lineno"> 1979</span> if (cmpstr(parent_path[0], "/") != 0)</div>
|
|
<div class="line"><a id="l01980" name="l01980"></a><span class="lineno"> 1980</span> parent_path = "/" + parent_path</div>
|
|
<div class="line"><a id="l01981" name="l01981"></a><span class="lineno"> 1981</span> endif</div>
|
|
<div class="line"><a id="l01982" name="l01982"></a><span class="lineno"> 1982</span> </div>
|
|
<div class="line"><a id="l01983" name="l01983"></a><span class="lineno"> 1983</span> variable nobj = ItemsInList(objects, ";")</div>
|
|
<div class="line"><a id="l01984" name="l01984"></a><span class="lineno"> 1984</span> variable iobj</div>
|
|
<div class="line"><a id="l01985" name="l01985"></a><span class="lineno"> 1985</span> string obj</div>
|
|
<div class="line"><a id="l01986" name="l01986"></a><span class="lineno"> 1986</span> string extra</div>
|
|
<div class="line"><a id="l01987" name="l01987"></a><span class="lineno"> 1987</span> variable nel</div>
|
|
<div class="line"><a id="l01988" name="l01988"></a><span class="lineno"> 1988</span> </div>
|
|
<div class="line"><a id="l01989" name="l01989"></a><span class="lineno"> 1989</span> string child_path = ""</div>
|
|
<div class="line"><a id="l01990" name="l01990"></a><span class="lineno"> 1990</span> string child_name = ""</div>
|
|
<div class="line"><a id="l01991" name="l01991"></a><span class="lineno"> 1991</span> string child_names = "" // e.g., "child1:1;child3:2;"</div>
|
|
<div class="line"><a id="l01992" name="l01992"></a><span class="lineno"> 1992</span> string extra_data = "" // e.g., "child1:col0|col1;child2:col0|col1;"</div>
|
|
<div class="line"><a id="l01993" name="l01993"></a><span class="lineno"> 1993</span> </div>
|
|
<div class="line"><a id="l01994" name="l01994"></a><span class="lineno"> 1994</span> // filter children of parent</div>
|
|
<div class="line"><a id="l01995" name="l01995"></a><span class="lineno"> 1995</span> for (iobj = 0; iobj < nobj; iobj += 1)</div>
|
|
<div class="line"><a id="l01996" name="l01996"></a><span class="lineno"> 1996</span> obj = StringFromList(iobj, objects, ";")</div>
|
|
<div class="line"><a id="l01997" name="l01997"></a><span class="lineno"> 1997</span> </div>
|
|
<div class="line"><a id="l01998" name="l01998"></a><span class="lineno"> 1998</span> if (cmpstr(obj[0, strlen(parent_path)-1], parent_path) == 0)</div>
|
|
<div class="line"><a id="l01999" name="l01999"></a><span class="lineno"> 1999</span> child_path = StringFromList(0, obj, ":")</div>
|
|
<div class="line"><a id="l02000" name="l02000"></a><span class="lineno"> 2000</span> child_path = child_path[strlen(parent_path), strlen(child_path)-1]</div>
|
|
<div class="line"><a id="l02001" name="l02001"></a><span class="lineno"> 2001</span> if (cmpstr(child_path[0], "/") == 0)</div>
|
|
<div class="line"><a id="l02002" name="l02002"></a><span class="lineno"> 2002</span> child_path = child_path[1, strlen(child_path)-1]</div>
|
|
<div class="line"><a id="l02003" name="l02003"></a><span class="lineno"> 2003</span> endif</div>
|
|
<div class="line"><a id="l02004" name="l02004"></a><span class="lineno"> 2004</span> child_name = StringFromList(0, child_path, "/")</div>
|
|
<div class="line"><a id="l02005" name="l02005"></a><span class="lineno"> 2005</span> nel = ItemsInList(child_path, "/")</div>
|
|
<div class="line"><a id="l02006" name="l02006"></a><span class="lineno"> 2006</span> child_names = ReplaceNumberByKey(child_name, child_names, nel)</div>
|
|
<div class="line"><a id="l02007" name="l02007"></a><span class="lineno"> 2007</span> if (nel == 1)</div>
|
|
<div class="line"><a id="l02008" name="l02008"></a><span class="lineno"> 2008</span> extra = RemoveListItem(0, obj, ":")</div>
|
|
<div class="line"><a id="l02009" name="l02009"></a><span class="lineno"> 2009</span> extra_data = ReplaceStringByKey(child_name, extra_data, extra)</div>
|
|
<div class="line"><a id="l02010" name="l02010"></a><span class="lineno"> 2010</span> endif</div>
|
|
<div class="line"><a id="l02011" name="l02011"></a><span class="lineno"> 2011</span> endif</div>
|
|
<div class="line"><a id="l02012" name="l02012"></a><span class="lineno"> 2012</span> endfor</div>
|
|
<div class="line"><a id="l02013" name="l02013"></a><span class="lineno"> 2013</span> </div>
|
|
<div class="line"><a id="l02014" name="l02014"></a><span class="lineno"> 2014</span> // add rows</div>
|
|
<div class="line"><a id="l02015" name="l02015"></a><span class="lineno"> 2015</span> variable row</div>
|
|
<div class="line"><a id="l02016" name="l02016"></a><span class="lineno"> 2016</span> variable children</div>
|
|
<div class="line"><a id="l02017" name="l02017"></a><span class="lineno"> 2017</span> nobj = ItemsInList(child_names)</div>
|
|
<div class="line"><a id="l02018" name="l02018"></a><span class="lineno"> 2018</span> for (iobj = 0; iobj < nobj; iobj += 1)</div>
|
|
<div class="line"><a id="l02019" name="l02019"></a><span class="lineno"> 2019</span> obj = StringFromList(iobj, child_names)</div>
|
|
<div class="line"><a id="l02020" name="l02020"></a><span class="lineno"> 2020</span> child_name = StringFromList(0, obj, ":")</div>
|
|
<div class="line"><a id="l02021" name="l02021"></a><span class="lineno"> 2021</span> nel = NumberByKey(child_name, child_names)</div>
|
|
<div class="line"><a id="l02022" name="l02022"></a><span class="lineno"> 2022</span> WMHL_AddObject("PearlDataExplorer", "lb_contents", parent_path[1, strlen(parent_path)], child_name, nel > 1)</div>
|
|
<div class="line"><a id="l02023" name="l02023"></a><span class="lineno"> 2023</span> if (nel == 1)</div>
|
|
<div class="line"><a id="l02024" name="l02024"></a><span class="lineno"> 2024</span> extra = StringByKey(child_name, extra_data)</div>
|
|
<div class="line"><a id="l02025" name="l02025"></a><span class="lineno"> 2025</span> row = WMHL_GetRowNumberForItem("PearlDataExplorer", "lb_contents", parent_path[1, strlen(parent_path)] + "/" + child_name)</div>
|
|
<div class="line"><a id="l02026" name="l02026"></a><span class="lineno"> 2026</span> if (row >= 0)</div>
|
|
<div class="line"><a id="l02027" name="l02027"></a><span class="lineno"> 2027</span> WMHL_ExtraColumnData("PearlDataExplorer", "lb_contents", 0, row, StringFromList(0, extra, "|"), 0)</div>
|
|
<div class="line"><a id="l02028" name="l02028"></a><span class="lineno"> 2028</span> endif</div>
|
|
<div class="line"><a id="l02029" name="l02029"></a><span class="lineno"> 2029</span> endif</div>
|
|
<div class="line"><a id="l02030" name="l02030"></a><span class="lineno"> 2030</span> endfor</div>
|
|
<div class="line"><a id="l02031" name="l02031"></a><span class="lineno"> 2031</span> </div>
|
|
<div class="line"><a id="l02032" name="l02032"></a><span class="lineno"> 2032</span> return nobj</div>
|
|
<div class="line"><a id="l02033" name="l02033"></a><span class="lineno"> 2033</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l02034" name="l02034"></a><span class="lineno"> 2034</span> </div>
|
|
<div class="foldopen" id="foldopen02035" data-start="{" data-end="}">
|
|
<div class="line"><a id="l02035" name="l02035"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a5d0c796365e8a24683c73e2b29571018"> 2035</a></span>static function hl_expand_scans()</div>
|
|
<div class="line"><a id="l02036" name="l02036"></a><span class="lineno"> 2036</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l02037" name="l02037"></a><span class="lineno"> 2037</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l02038" name="l02038"></a><span class="lineno"> 2038</span> </div>
|
|
<div class="line"><a id="l02039" name="l02039"></a><span class="lineno"> 2039</span> svar hl_contents_datasets</div>
|
|
<div class="line"><a id="l02040" name="l02040"></a><span class="lineno"> 2040</span> variable nds = ItemsInList(hl_contents_datasets, ";")</div>
|
|
<div class="line"><a id="l02041" name="l02041"></a><span class="lineno"> 2041</span> variable ids</div>
|
|
<div class="line"><a id="l02042" name="l02042"></a><span class="lineno"> 2042</span> string sds</div>
|
|
<div class="line"><a id="l02043" name="l02043"></a><span class="lineno"> 2043</span> string scan</div>
|
|
<div class="line"><a id="l02044" name="l02044"></a><span class="lineno"> 2044</span> string scans = ""</div>
|
|
<div class="line"><a id="l02045" name="l02045"></a><span class="lineno"> 2045</span> for (ids = 0; ids < nds; ids += 1)</div>
|
|
<div class="line"><a id="l02046" name="l02046"></a><span class="lineno"> 2046</span> sds = StringFromList(ids, hl_contents_datasets, ";")</div>
|
|
<div class="line"><a id="l02047" name="l02047"></a><span class="lineno"> 2047</span> if (cmpstr(sds[0,4], "/scan", 0) == 0)</div>
|
|
<div class="line"><a id="l02048" name="l02048"></a><span class="lineno"> 2048</span> scan = StringFromList(1, sds, "/")</div>
|
|
<div class="line"><a id="l02049" name="l02049"></a><span class="lineno"> 2049</span> scans = ReplaceNumberByKey(scan, scans, 1)</div>
|
|
<div class="line"><a id="l02050" name="l02050"></a><span class="lineno"> 2050</span> endif</div>
|
|
<div class="line"><a id="l02051" name="l02051"></a><span class="lineno"> 2051</span> endfor</div>
|
|
<div class="line"><a id="l02052" name="l02052"></a><span class="lineno"> 2052</span> </div>
|
|
<div class="line"><a id="l02053" name="l02053"></a><span class="lineno"> 2053</span> variable nscans = ItemsInList(scans)</div>
|
|
<div class="line"><a id="l02054" name="l02054"></a><span class="lineno"> 2054</span> variable iscan</div>
|
|
<div class="line"><a id="l02055" name="l02055"></a><span class="lineno"> 2055</span> for (iscan = 0; iscan < nscans; iscan += 1)</div>
|
|
<div class="line"><a id="l02056" name="l02056"></a><span class="lineno"> 2056</span> scan = StringFromList(iscan, scans)</div>
|
|
<div class="line"><a id="l02057" name="l02057"></a><span class="lineno"> 2057</span> scan = StringFromList(0, scan, ":")</div>
|
|
<div class="line"><a id="l02058" name="l02058"></a><span class="lineno"> 2058</span> WMHL_OpenAContainer("PearlDataExplorer", "lb_contents", scan)</div>
|
|
<div class="line"><a id="l02059" name="l02059"></a><span class="lineno"> 2059</span> endfor</div>
|
|
<div class="line"><a id="l02060" name="l02060"></a><span class="lineno"> 2060</span> </div>
|
|
<div class="line"><a id="l02061" name="l02061"></a><span class="lineno"> 2061</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l02062" name="l02062"></a><span class="lineno"> 2062</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l02063" name="l02063"></a><span class="lineno"> 2063</span> </div>
|
|
<div class="foldopen" id="foldopen02064" data-start="{" data-end="}">
|
|
<div class="line"><a id="l02064" name="l02064"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a7c36ce6ccfaa77cf7a6b68b9014c1b9b"> 2064</a></span>static function hl_default_selection()</div>
|
|
<div class="line"><a id="l02065" name="l02065"></a><span class="lineno"> 2065</span> variable row</div>
|
|
<div class="line"><a id="l02066" name="l02066"></a><span class="lineno"> 2066</span> row = WMHL_GetRowNumberForItem("PearlDataExplorer", "lb_contents", "scan 1")</div>
|
|
<div class="line"><a id="l02067" name="l02067"></a><span class="lineno"> 2067</span> if (row < 0)</div>
|
|
<div class="line"><a id="l02068" name="l02068"></a><span class="lineno"> 2068</span> row = WMHL_GetRowNumberForItem("PearlDataExplorer", "lb_contents", "scan1")</div>
|
|
<div class="line"><a id="l02069" name="l02069"></a><span class="lineno"> 2069</span> endif</div>
|
|
<div class="line"><a id="l02070" name="l02070"></a><span class="lineno"> 2070</span> if (row >= 0)</div>
|
|
<div class="line"><a id="l02071" name="l02071"></a><span class="lineno"> 2071</span> WMHL_SelectARow("PearlDataExplorer", "lb_contents", row, 1)</div>
|
|
<div class="line"><a id="l02072" name="l02072"></a><span class="lineno"> 2072</span> endif</div>
|
|
<div class="line"><a id="l02073" name="l02073"></a><span class="lineno"> 2073</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l02074" name="l02074"></a><span class="lineno"> 2074</span> </div>
|
|
<div class="foldopen" id="foldopen02075" data-start="{" data-end="}">
|
|
<div class="line"><a id="l02075" name="l02075"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a384a37c2865baf5c21b63cff2488c3b3"> 2075</a></span>static function hlp_contents_open(HostWindow, ListControlName, ContainerPath)</div>
|
|
<div class="line"><a id="l02076" name="l02076"></a><span class="lineno"> 2076</span> String HostWindow, ListControlName, ContainerPath</div>
|
|
<div class="line"><a id="l02077" name="l02077"></a><span class="lineno"> 2077</span> </div>
|
|
<div class="line"><a id="l02078" name="l02078"></a><span class="lineno"> 2078</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l02079" name="l02079"></a><span class="lineno"> 2079</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l02080" name="l02080"></a><span class="lineno"> 2080</span> svar hl_contents_datasets</div>
|
|
<div class="line"><a id="l02081" name="l02081"></a><span class="lineno"> 2081</span> hl_add_objects(ContainerPath, hl_contents_datasets)</div>
|
|
<div class="line"><a id="l02082" name="l02082"></a><span class="lineno"> 2082</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l02083" name="l02083"></a><span class="lineno"> 2083</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l02084" name="l02084"></a><span class="lineno"> 2084</span> </div>
|
|
<div class="foldopen" id="foldopen02085" data-start="{" data-end="}">
|
|
<div class="line"><a id="l02085" name="l02085"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a36fd730f2d057513179dd59f8fddaf75"> 2085</a></span>static function hlp_contents_selection(HostWindow, ListControlName, SelectedItem, EventCode)</div>
|
|
<div class="line"><a id="l02086" name="l02086"></a><span class="lineno"> 2086</span> String HostWindow, ListControlName</div>
|
|
<div class="line"><a id="l02087" name="l02087"></a><span class="lineno"> 2087</span> String SelectedItem</div>
|
|
<div class="line"><a id="l02088" name="l02088"></a><span class="lineno"> 2088</span> Variable EventCode</div>
|
|
<div class="line"><a id="l02089" name="l02089"></a><span class="lineno"> 2089</span> </div>
|
|
<div class="line"><a id="l02090" name="l02090"></a><span class="lineno"> 2090</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l02091" name="l02091"></a><span class="lineno"> 2091</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l02092" name="l02092"></a><span class="lineno"> 2092</span> </div>
|
|
<div class="line"><a id="l02093" name="l02093"></a><span class="lineno"> 2093</span> switch (eventCode)</div>
|
|
<div class="line"><a id="l02094" name="l02094"></a><span class="lineno"> 2094</span> case 3: // double click</div>
|
|
<div class="line"><a id="l02095" name="l02095"></a><span class="lineno"> 2095</span> // todo: load dataset?</div>
|
|
<div class="line"><a id="l02096" name="l02096"></a><span class="lineno"> 2096</span> break</div>
|
|
<div class="line"><a id="l02097" name="l02097"></a><span class="lineno"> 2097</span> case 4: // cell selection</div>
|
|
<div class="line"><a id="l02098" name="l02098"></a><span class="lineno"> 2098</span> case 5: // cell selection plus shift key</div>
|
|
<div class="line"><a id="l02099" name="l02099"></a><span class="lineno"> 2099</span> update_controls()</div>
|
|
<div class="line"><a id="l02100" name="l02100"></a><span class="lineno"> 2100</span> break</div>
|
|
<div class="line"><a id="l02101" name="l02101"></a><span class="lineno"> 2101</span> endswitch</div>
|
|
<div class="line"><a id="l02102" name="l02102"></a><span class="lineno"> 2102</span> </div>
|
|
<div class="line"><a id="l02103" name="l02103"></a><span class="lineno"> 2103</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l02104" name="l02104"></a><span class="lineno"> 2104</span> return 0</div>
|
|
<div class="line"><a id="l02105" name="l02105"></a><span class="lineno"> 2105</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l02106" name="l02106"></a><span class="lineno"> 2106</span> </div>
|
|
<div class="foldopen" id="foldopen02121" data-start="{" data-end="}">
|
|
<div class="line"><a id="l02121" name="l02121"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a896081071fffecdeff09ae4c9d6e84cb"> 2121</a></span>static function goto_dataset_folder(filename, datapath)</div>
|
|
<div class="line"><a id="l02122" name="l02122"></a><span class="lineno"> 2122</span> string filename</div>
|
|
<div class="line"><a id="l02123" name="l02123"></a><span class="lineno"> 2123</span> string datapath</div>
|
|
<div class="line"><a id="l02124" name="l02124"></a><span class="lineno"> 2124</span> </div>
|
|
<div class="line"><a id="l02125" name="l02125"></a><span class="lineno"> 2125</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l02126" name="l02126"></a><span class="lineno"> 2126</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l02127" name="l02127"></a><span class="lineno"> 2127</span> </div>
|
|
<div class="line"><a id="l02128" name="l02128"></a><span class="lineno"> 2128</span> variable ft = pearl_file_type(filename)</div>
|
|
<div class="line"><a id="l02129" name="l02129"></a><span class="lineno"> 2129</span> string parent_folder</div>
|
|
<div class="line"><a id="l02130" name="l02130"></a><span class="lineno"> 2130</span> string folder</div>
|
|
<div class="line"><a id="l02131" name="l02131"></a><span class="lineno"> 2131</span> string path</div>
|
|
<div class="line"><a id="l02132" name="l02132"></a><span class="lineno"> 2132</span> </div>
|
|
<div class="line"><a id="l02133" name="l02133"></a><span class="lineno"> 2133</span> switch(ft)</div>
|
|
<div class="line"><a id="l02134" name="l02134"></a><span class="lineno"> 2134</span> case 1:</div>
|
|
<div class="line"><a id="l02135" name="l02135"></a><span class="lineno"> 2135</span> case 2:</div>
|
|
<div class="line"><a id="l02136" name="l02136"></a><span class="lineno"> 2136</span> parent_folder = ad_suggest_foldername(filename)</div>
|
|
<div class="line"><a id="l02137" name="l02137"></a><span class="lineno"> 2137</span> path = "root:" + parent_folder</div>
|
|
<div class="line"><a id="l02138" name="l02138"></a><span class="lineno"> 2138</span> if (DataFolderExists(path))</div>
|
|
<div class="line"><a id="l02139" name="l02139"></a><span class="lineno"> 2139</span> setdatafolder $path</div>
|
|
<div class="line"><a id="l02140" name="l02140"></a><span class="lineno"> 2140</span> else</div>
|
|
<div class="line"><a id="l02141" name="l02141"></a><span class="lineno"> 2141</span> return -2</div>
|
|
<div class="line"><a id="l02142" name="l02142"></a><span class="lineno"> 2142</span> endif</div>
|
|
<div class="line"><a id="l02143" name="l02143"></a><span class="lineno"> 2143</span> </div>
|
|
<div class="line"><a id="l02144" name="l02144"></a><span class="lineno"> 2144</span> variable nparts = ItemsInList(datapath, "/")</div>
|
|
<div class="line"><a id="l02145" name="l02145"></a><span class="lineno"> 2145</span> variable ipart</div>
|
|
<div class="line"><a id="l02146" name="l02146"></a><span class="lineno"> 2146</span> for (ipart = 0; ipart < nparts; ipart += 1)</div>
|
|
<div class="line"><a id="l02147" name="l02147"></a><span class="lineno"> 2147</span> folder = StringFromList(ipart, datapath, "/")</div>
|
|
<div class="line"><a id="l02148" name="l02148"></a><span class="lineno"> 2148</span> path = ":" + ps_fix_folder_name(folder)</div>
|
|
<div class="line"><a id="l02149" name="l02149"></a><span class="lineno"> 2149</span> if (DataFolderExists(path))</div>
|
|
<div class="line"><a id="l02150" name="l02150"></a><span class="lineno"> 2150</span> setdatafolder $path</div>
|
|
<div class="line"><a id="l02151" name="l02151"></a><span class="lineno"> 2151</span> endif</div>
|
|
<div class="line"><a id="l02152" name="l02152"></a><span class="lineno"> 2152</span> endfor</div>
|
|
<div class="line"><a id="l02153" name="l02153"></a><span class="lineno"> 2153</span> break</div>
|
|
<div class="line"><a id="l02154" name="l02154"></a><span class="lineno"> 2154</span> </div>
|
|
<div class="line"><a id="l02155" name="l02155"></a><span class="lineno"> 2155</span> case 3:</div>
|
|
<div class="line"><a id="l02156" name="l02156"></a><span class="lineno"> 2156</span> parent_folder = "root:" + itx_suggest_foldername(filename)</div>
|
|
<div class="line"><a id="l02157" name="l02157"></a><span class="lineno"> 2157</span> if (DataFolderExists(parent_folder))</div>
|
|
<div class="line"><a id="l02158" name="l02158"></a><span class="lineno"> 2158</span> setdatafolder $parent_folder</div>
|
|
<div class="line"><a id="l02159" name="l02159"></a><span class="lineno"> 2159</span> else</div>
|
|
<div class="line"><a id="l02160" name="l02160"></a><span class="lineno"> 2160</span> return -2</div>
|
|
<div class="line"><a id="l02161" name="l02161"></a><span class="lineno"> 2161</span> endif</div>
|
|
<div class="line"><a id="l02162" name="l02162"></a><span class="lineno"> 2162</span> break</div>
|
|
<div class="line"><a id="l02163" name="l02163"></a><span class="lineno"> 2163</span> </div>
|
|
<div class="line"><a id="l02164" name="l02164"></a><span class="lineno"> 2164</span> default:</div>
|
|
<div class="line"><a id="l02165" name="l02165"></a><span class="lineno"> 2165</span> // unsupported file type</div>
|
|
<div class="line"><a id="l02166" name="l02166"></a><span class="lineno"> 2166</span> return -1</div>
|
|
<div class="line"><a id="l02167" name="l02167"></a><span class="lineno"> 2167</span> endswitch</div>
|
|
<div class="line"><a id="l02168" name="l02168"></a><span class="lineno"> 2168</span> </div>
|
|
<div class="line"><a id="l02169" name="l02169"></a><span class="lineno"> 2169</span> return 0</div>
|
|
<div class="line"><a id="l02170" name="l02170"></a><span class="lineno"> 2170</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l02171" name="l02171"></a><span class="lineno"> 2171</span> </div>
|
|
<div class="foldopen" id="foldopen02177" data-start="{" data-end="}">
|
|
<div class="line"><a id="l02177" name="l02177"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a01e48e67a22dc56851447bd77abecbe1"> 2177</a></span>static function bp_goto_dataset(ba) : ButtonControl</div>
|
|
<div class="line"><a id="l02178" name="l02178"></a><span class="lineno"> 2178</span> STRUCT WMButtonAction &ba</div>
|
|
<div class="line"><a id="l02179" name="l02179"></a><span class="lineno"> 2179</span> </div>
|
|
<div class="line"><a id="l02180" name="l02180"></a><span class="lineno"> 2180</span> switch( ba.eventCode )</div>
|
|
<div class="line"><a id="l02181" name="l02181"></a><span class="lineno"> 2181</span> case 2: // mouse up</div>
|
|
<div class="line"><a id="l02182" name="l02182"></a><span class="lineno"> 2182</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l02183" name="l02183"></a><span class="lineno"> 2183</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l02184" name="l02184"></a><span class="lineno"> 2184</span> svar s_selected_file</div>
|
|
<div class="line"><a id="l02185" name="l02185"></a><span class="lineno"> 2185</span> svar hl_contents_datasets</div>
|
|
<div class="line"><a id="l02186" name="l02186"></a><span class="lineno"> 2186</span> string datapath = StringFromList(0, WMHL_SelectedObjectsList("PearlDataExplorer", "lb_contents"))</div>
|
|
<div class="line"><a id="l02187" name="l02187"></a><span class="lineno"> 2187</span> if (strsearch(hl_contents_datasets, datapath, 0) != 0)</div>
|
|
<div class="line"><a id="l02188" name="l02188"></a><span class="lineno"> 2188</span> datapath = datapath + "/"</div>
|
|
<div class="line"><a id="l02189" name="l02189"></a><span class="lineno"> 2189</span> endif</div>
|
|
<div class="line"><a id="l02190" name="l02190"></a><span class="lineno"> 2190</span> variable result = goto_dataset_folder(s_selected_file, datapath)</div>
|
|
<div class="line"><a id="l02191" name="l02191"></a><span class="lineno"> 2191</span> if (result != 0)</div>
|
|
<div class="line"><a id="l02192" name="l02192"></a><span class="lineno"> 2192</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l02193" name="l02193"></a><span class="lineno"> 2193</span> string msg</div>
|
|
<div class="line"><a id="l02194" name="l02194"></a><span class="lineno"> 2194</span> msg = "Can't find data folder. Has the file been loaded?"</div>
|
|
<div class="line"><a id="l02195" name="l02195"></a><span class="lineno"> 2195</span> DoAlert /T="Goto DF" 0, msg</div>
|
|
<div class="line"><a id="l02196" name="l02196"></a><span class="lineno"> 2196</span> endif</div>
|
|
<div class="line"><a id="l02197" name="l02197"></a><span class="lineno"> 2197</span> </div>
|
|
<div class="line"><a id="l02198" name="l02198"></a><span class="lineno"> 2198</span> break</div>
|
|
<div class="line"><a id="l02199" name="l02199"></a><span class="lineno"> 2199</span> case -1: // control being killed</div>
|
|
<div class="line"><a id="l02200" name="l02200"></a><span class="lineno"> 2200</span> break</div>
|
|
<div class="line"><a id="l02201" name="l02201"></a><span class="lineno"> 2201</span> endswitch</div>
|
|
<div class="line"><a id="l02202" name="l02202"></a><span class="lineno"> 2202</span> </div>
|
|
<div class="line"><a id="l02203" name="l02203"></a><span class="lineno"> 2203</span> return 0</div>
|
|
<div class="line"><a id="l02204" name="l02204"></a><span class="lineno"> 2204</span>End</div>
|
|
</div>
|
|
<div class="line"><a id="l02205" name="l02205"></a><span class="lineno"> 2205</span> </div>
|
|
<div class="foldopen" id="foldopen02209" data-start="{" data-end="}">
|
|
<div class="line"><a id="l02209" name="l02209"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a0f7473343cf773af9efedee1a18ac5db"> 2209</a></span>static function bp_display_dataset(ba) : ButtonControl</div>
|
|
<div class="line"><a id="l02210" name="l02210"></a><span class="lineno"> 2210</span> STRUCT WMButtonAction &ba</div>
|
|
<div class="line"><a id="l02211" name="l02211"></a><span class="lineno"> 2211</span> </div>
|
|
<div class="line"><a id="l02212" name="l02212"></a><span class="lineno"> 2212</span> switch( ba.eventCode )</div>
|
|
<div class="line"><a id="l02213" name="l02213"></a><span class="lineno"> 2213</span> case 2: // mouse up</div>
|
|
<div class="line"><a id="l02214" name="l02214"></a><span class="lineno"> 2214</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l02215" name="l02215"></a><span class="lineno"> 2215</span> setdatafolder $package_path</div>
|
|
<div class="line"><a id="l02216" name="l02216"></a><span class="lineno"> 2216</span> svar s_selected_file</div>
|
|
<div class="line"><a id="l02217" name="l02217"></a><span class="lineno"> 2217</span> svar hl_contents_datasets</div>
|
|
<div class="line"><a id="l02218" name="l02218"></a><span class="lineno"> 2218</span> string datapath = StringFromList(0, WMHL_SelectedObjectsList("PearlDataExplorer", "lb_contents"))</div>
|
|
<div class="line"><a id="l02219" name="l02219"></a><span class="lineno"> 2219</span> if (strsearch(hl_contents_datasets, datapath, 0) < 0)</div>
|
|
<div class="line"><a id="l02220" name="l02220"></a><span class="lineno"> 2220</span> // path leads to folder</div>
|
|
<div class="line"><a id="l02221" name="l02221"></a><span class="lineno"> 2221</span> return 0</div>
|
|
<div class="line"><a id="l02222" name="l02222"></a><span class="lineno"> 2222</span> endif</div>
|
|
<div class="line"><a id="l02223" name="l02223"></a><span class="lineno"> 2223</span> goto_dataset_folder(s_selected_file, "")</div>
|
|
<div class="line"><a id="l02224" name="l02224"></a><span class="lineno"> 2224</span> display_dataset(GetDataFolderDFR(), datapath)</div>
|
|
<div class="line"><a id="l02225" name="l02225"></a><span class="lineno"> 2225</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l02226" name="l02226"></a><span class="lineno"> 2226</span> break</div>
|
|
<div class="line"><a id="l02227" name="l02227"></a><span class="lineno"> 2227</span> case -1: // control being killed</div>
|
|
<div class="line"><a id="l02228" name="l02228"></a><span class="lineno"> 2228</span> break</div>
|
|
<div class="line"><a id="l02229" name="l02229"></a><span class="lineno"> 2229</span> endswitch</div>
|
|
<div class="line"><a id="l02230" name="l02230"></a><span class="lineno"> 2230</span> </div>
|
|
<div class="line"><a id="l02231" name="l02231"></a><span class="lineno"> 2231</span> return 0</div>
|
|
<div class="line"><a id="l02232" name="l02232"></a><span class="lineno"> 2232</span>End</div>
|
|
</div>
|
|
<div class="line"><a id="l02233" name="l02233"></a><span class="lineno"> 2233</span> </div>
|
|
<div class="line"><a id="l02234" name="l02234"></a><span class="lineno"> 2234</span> </div>
|
|
<div class="foldopen" id="foldopen02236" data-start="{" data-end="}">
|
|
<div class="line"><a id="l02236" name="l02236"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a9865cbba072e1b6e2d05e1e7d68a0a35"> 2236</a></span>static function /s get_default_elog_module()</div>
|
|
<div class="line"><a id="l02237" name="l02237"></a><span class="lineno"> 2237</span> string modules = "PearlSciLog;PearlElog"</div>
|
|
<div class="line"><a id="l02238" name="l02238"></a><span class="lineno"> 2238</span> </div>
|
|
<div class="line"><a id="l02239" name="l02239"></a><span class="lineno"> 2239</span> variable imod</div>
|
|
<div class="line"><a id="l02240" name="l02240"></a><span class="lineno"> 2240</span> variable nmod = ItemsInList(modules, ";")</div>
|
|
<div class="line"><a id="l02241" name="l02241"></a><span class="lineno"> 2241</span> string smod</div>
|
|
<div class="line"><a id="l02242" name="l02242"></a><span class="lineno"> 2242</span> for (imod = 0; imod < nmod; imod += 1)</div>
|
|
<div class="line"><a id="l02243" name="l02243"></a><span class="lineno"> 2243</span> smod = StringFromList(imod, modules, ";")</div>
|
|
<div class="line"><a id="l02244" name="l02244"></a><span class="lineno"> 2244</span> if (exists(smod + "#set_panel_attributes") == 6)</div>
|
|
<div class="line"><a id="l02245" name="l02245"></a><span class="lineno"> 2245</span> return smod</div>
|
|
<div class="line"><a id="l02246" name="l02246"></a><span class="lineno"> 2246</span> endif</div>
|
|
<div class="line"><a id="l02247" name="l02247"></a><span class="lineno"> 2247</span> endfor</div>
|
|
<div class="line"><a id="l02248" name="l02248"></a><span class="lineno"> 2248</span> return ""</div>
|
|
<div class="line"><a id="l02249" name="l02249"></a><span class="lineno"> 2249</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l02250" name="l02250"></a><span class="lineno"> 2250</span> </div>
|
|
<div class="line"><a id="l02251" name="l02251"></a><span class="lineno"> 2251</span> </div>
|
|
<div class="foldopen" id="foldopen02262" data-start="{" data-end="}">
|
|
<div class="line"><a id="l02262" name="l02262"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#aac8d96d9ccaeddab1cb0f463b01616cb"> 2262</a></span>static function send_to_elog()</div>
|
|
<div class="line"><a id="l02263" name="l02263"></a><span class="lineno"> 2263</span> dfref save_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l02264" name="l02264"></a><span class="lineno"> 2264</span> </div>
|
|
<div class="line"><a id="l02265" name="l02265"></a><span class="lineno"> 2265</span> dfref preview_df = $package_path</div>
|
|
<div class="line"><a id="l02266" name="l02266"></a><span class="lineno"> 2266</span> svar /z /sdfr=preview_df s_selected_file</div>
|
|
<div class="line"><a id="l02267" name="l02267"></a><span class="lineno"> 2267</span> svar /z /sdfr=preview_df s_preview_file</div>
|
|
<div class="line"><a id="l02268" name="l02268"></a><span class="lineno"> 2268</span> svar /z /sdfr=preview_df s_preview_graph</div>
|
|
<div class="line"><a id="l02269" name="l02269"></a><span class="lineno"> 2269</span> </div>
|
|
<div class="line"><a id="l02270" name="l02270"></a><span class="lineno"> 2270</span> if (!SVAR_Exists(s_selected_file) || (strlen(s_selected_file) < 1))</div>
|
|
<div class="line"><a id="l02271" name="l02271"></a><span class="lineno"> 2271</span> return 0</div>
|
|
<div class="line"><a id="l02272" name="l02272"></a><span class="lineno"> 2272</span> endif</div>
|
|
<div class="line"><a id="l02273" name="l02273"></a><span class="lineno"> 2273</span> </div>
|
|
<div class="line"><a id="l02274" name="l02274"></a><span class="lineno"> 2274</span> // check data folder</div>
|
|
<div class="line"><a id="l02275" name="l02275"></a><span class="lineno"> 2275</span> variable result = -1</div>
|
|
<div class="line"><a id="l02276" name="l02276"></a><span class="lineno"> 2276</span> result = goto_dataset_folder(s_selected_file, "")</div>
|
|
<div class="line"><a id="l02277" name="l02277"></a><span class="lineno"> 2277</span> if (result == 0)</div>
|
|
<div class="line"><a id="l02278" name="l02278"></a><span class="lineno"> 2278</span> dfref data_df = GetDataFolderDFR()</div>
|
|
<div class="line"><a id="l02279" name="l02279"></a><span class="lineno"> 2279</span> svar /sdfr=data_df /z authors</div>
|
|
<div class="line"><a id="l02280" name="l02280"></a><span class="lineno"> 2280</span> if (!svar_Exists(authors))</div>
|
|
<div class="line"><a id="l02281" name="l02281"></a><span class="lineno"> 2281</span> result = -1</div>
|
|
<div class="line"><a id="l02282" name="l02282"></a><span class="lineno"> 2282</span> endif</div>
|
|
<div class="line"><a id="l02283" name="l02283"></a><span class="lineno"> 2283</span> endif</div>
|
|
<div class="line"><a id="l02284" name="l02284"></a><span class="lineno"> 2284</span> </div>
|
|
<div class="line"><a id="l02285" name="l02285"></a><span class="lineno"> 2285</span> // file info folder</div>
|
|
<div class="line"><a id="l02286" name="l02286"></a><span class="lineno"> 2286</span> dfref infoDF = preview_df:file_info</div>
|
|
<div class="line"><a id="l02287" name="l02287"></a><span class="lineno"> 2287</span> if ((result != 0) && (DataFolderRefStatus(infoDF)))</div>
|
|
<div class="line"><a id="l02288" name="l02288"></a><span class="lineno"> 2288</span> svar /z /sdfr=infoDF s_filepath</div>
|
|
<div class="line"><a id="l02289" name="l02289"></a><span class="lineno"> 2289</span> if (SVAR_Exists(s_filepath) && (strsearch(s_filepath, s_selected_file, inf, 1) >= 0))</div>
|
|
<div class="line"><a id="l02290" name="l02290"></a><span class="lineno"> 2290</span> dfref data_df = infoDF</div>
|
|
<div class="line"><a id="l02291" name="l02291"></a><span class="lineno"> 2291</span> result = 0</div>
|
|
<div class="line"><a id="l02292" name="l02292"></a><span class="lineno"> 2292</span> endif</div>
|
|
<div class="line"><a id="l02293" name="l02293"></a><span class="lineno"> 2293</span> endif</div>
|
|
<div class="line"><a id="l02294" name="l02294"></a><span class="lineno"> 2294</span> </div>
|
|
<div class="line"><a id="l02295" name="l02295"></a><span class="lineno"> 2295</span> // check preview (package) folder</div>
|
|
<div class="line"><a id="l02296" name="l02296"></a><span class="lineno"> 2296</span> if ((result != 0) && (SVAR_Exists(s_preview_file) && (cmpstr(s_preview_file, s_selected_file) == 0)))</div>
|
|
<div class="line"><a id="l02297" name="l02297"></a><span class="lineno"> 2297</span> dfref data_df = preview_df</div>
|
|
<div class="line"><a id="l02298" name="l02298"></a><span class="lineno"> 2298</span> result = 0</div>
|
|
<div class="line"><a id="l02299" name="l02299"></a><span class="lineno"> 2299</span> endif</div>
|
|
<div class="line"><a id="l02300" name="l02300"></a><span class="lineno"> 2300</span> </div>
|
|
<div class="line"><a id="l02301" name="l02301"></a><span class="lineno"> 2301</span> string graphname </div>
|
|
<div class="line"><a id="l02302" name="l02302"></a><span class="lineno"> 2302</span> if (SVAR_Exists(s_preview_graph) && (WinType(s_preview_graph) == 1))</div>
|
|
<div class="line"><a id="l02303" name="l02303"></a><span class="lineno"> 2303</span> graphname = s_preview_graph</div>
|
|
<div class="line"><a id="l02304" name="l02304"></a><span class="lineno"> 2304</span> else</div>
|
|
<div class="line"><a id="l02305" name="l02305"></a><span class="lineno"> 2305</span> graphname = ""</div>
|
|
<div class="line"><a id="l02306" name="l02306"></a><span class="lineno"> 2306</span> endif</div>
|
|
<div class="line"><a id="l02307" name="l02307"></a><span class="lineno"> 2307</span> </div>
|
|
<div class="line"><a id="l02308" name="l02308"></a><span class="lineno"> 2308</span> string module = get_default_elog_module()</div>
|
|
<div class="line"><a id="l02309" name="l02309"></a><span class="lineno"> 2309</span> funcref PearlDataExplorer_proto_get_panel_name f_get_panel_name = $(module + "#get_default_panel_name")</div>
|
|
<div class="line"><a id="l02310" name="l02310"></a><span class="lineno"> 2310</span> string panel = f_get_panel_name()</div>
|
|
<div class="line"><a id="l02311" name="l02311"></a><span class="lineno"> 2311</span> </div>
|
|
<div class="line"><a id="l02312" name="l02312"></a><span class="lineno"> 2312</span> if (result == 0)</div>
|
|
<div class="line"><a id="l02313" name="l02313"></a><span class="lineno"> 2313</span> set_elog_attributes(module, panel, data_df, filename=s_selected_file, graphname=graphname)</div>
|
|
<div class="line"><a id="l02314" name="l02314"></a><span class="lineno"> 2314</span> endif</div>
|
|
<div class="line"><a id="l02315" name="l02315"></a><span class="lineno"> 2315</span> </div>
|
|
<div class="line"><a id="l02316" name="l02316"></a><span class="lineno"> 2316</span> setdatafolder save_df</div>
|
|
<div class="line"><a id="l02317" name="l02317"></a><span class="lineno"> 2317</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l02318" name="l02318"></a><span class="lineno"> 2318</span> </div>
|
|
<div class="foldopen" id="foldopen02319" data-start="{" data-end="}">
|
|
<div class="line"><a id="l02319" name="l02319"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a00068ee0657abb41a9b96a4575e41bf3"> 2319</a></span>function /s PearlDataExplorer_proto_get_panel_name()</div>
|
|
<div class="line"><a id="l02320" name="l02320"></a><span class="lineno"> 2320</span> return ""</div>
|
|
<div class="line"><a id="l02321" name="l02321"></a><span class="lineno"> 2321</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l02322" name="l02322"></a><span class="lineno"> 2322</span> </div>
|
|
<div class="foldopen" id="foldopen02323" data-start="{" data-end="}">
|
|
<div class="line"><a id="l02323" name="l02323"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a01469ffeb3101084c04861acd93d704d"> 2323</a></span>function /s PearlDataExplorer_proto_set_panel_attributes(windowname, attributes, [clear])</div>
|
|
<div class="line"><a id="l02324" name="l02324"></a><span class="lineno"> 2324</span> string windowname</div>
|
|
<div class="line"><a id="l02325" name="l02325"></a><span class="lineno"> 2325</span> string attributes</div>
|
|
<div class="line"><a id="l02326" name="l02326"></a><span class="lineno"> 2326</span> variable clear</div>
|
|
<div class="line"><a id="l02327" name="l02327"></a><span class="lineno"> 2327</span> return ""</div>
|
|
<div class="line"><a id="l02328" name="l02328"></a><span class="lineno"> 2328</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l02329" name="l02329"></a><span class="lineno"> 2329</span> </div>
|
|
<div class="foldopen" id="foldopen02330" data-start="{" data-end="}">
|
|
<div class="line"><a id="l02330" name="l02330"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a2fef024292bab2b7c8dea2adc19ce3b4"> 2330</a></span>function /s PearlDataExplorer_proto_set_panel_graphs(windowname, graphs)</div>
|
|
<div class="line"><a id="l02331" name="l02331"></a><span class="lineno"> 2331</span> string windowname</div>
|
|
<div class="line"><a id="l02332" name="l02332"></a><span class="lineno"> 2332</span> string graphs</div>
|
|
<div class="line"><a id="l02333" name="l02333"></a><span class="lineno"> 2333</span> return ""</div>
|
|
<div class="line"><a id="l02334" name="l02334"></a><span class="lineno"> 2334</span>end</div>
|
|
</div>
|
|
<div class="line"><a id="l02335" name="l02335"></a><span class="lineno"> 2335</span> </div>
|
|
<div class="foldopen" id="foldopen02365" data-start="{" data-end="}">
|
|
<div class="line"><a id="l02365" name="l02365"></a><span class="lineno"><a class="line" href="pearl-data-explorer_8ipf.html#a1bcfbc48250274bcf3b8ca7a3a4b7c50"> 2365</a></span>static function set_elog_attributes(elog_module, panel_name, file_df, [filename, graphname])</div>
|
|
<div class="line"><a id="l02366" name="l02366"></a><span class="lineno"> 2366</span> string elog_module</div>
|
|
<div class="line"><a id="l02367" name="l02367"></a><span class="lineno"> 2367</span> string panel_name</div>
|
|
<div class="line"><a id="l02368" name="l02368"></a><span class="lineno"> 2368</span> dfref file_df</div>
|
|
<div class="line"><a id="l02369" name="l02369"></a><span class="lineno"> 2369</span> string filename</div>
|
|
<div class="line"><a id="l02370" name="l02370"></a><span class="lineno"> 2370</span> string graphname</div>
|
|
<div class="line"><a id="l02371" name="l02371"></a><span class="lineno"> 2371</span> </div>
|
|
<div class="line"><a id="l02372" name="l02372"></a><span class="lineno"> 2372</span> if (ParamIsDefault(filename))</div>
|
|
<div class="line"><a id="l02373" name="l02373"></a><span class="lineno"> 2373</span> svar /sdfr=file_df /z loaded_file=s_filepath</div>
|
|
<div class="line"><a id="l02374" name="l02374"></a><span class="lineno"> 2374</span> if (svar_Exists(loaded_file))</div>
|
|
<div class="line"><a id="l02375" name="l02375"></a><span class="lineno"> 2375</span> filename = loaded_file</div>
|
|
<div class="line"><a id="l02376" name="l02376"></a><span class="lineno"> 2376</span> else</div>
|
|
<div class="line"><a id="l02377" name="l02377"></a><span class="lineno"> 2377</span> filename = ""</div>
|
|
<div class="line"><a id="l02378" name="l02378"></a><span class="lineno"> 2378</span> endif</div>
|
|
<div class="line"><a id="l02379" name="l02379"></a><span class="lineno"> 2379</span> endif</div>
|
|
<div class="line"><a id="l02380" name="l02380"></a><span class="lineno"> 2380</span> </div>
|
|
<div class="line"><a id="l02381" name="l02381"></a><span class="lineno"> 2381</span> if (ParamIsDefault(graphname))</div>
|
|
<div class="line"><a id="l02382" name="l02382"></a><span class="lineno"> 2382</span> graphname = ""</div>
|
|
<div class="line"><a id="l02383" name="l02383"></a><span class="lineno"> 2383</span> endif</div>
|
|
<div class="line"><a id="l02384" name="l02384"></a><span class="lineno"> 2384</span> </div>
|
|
<div class="line"><a id="l02385" name="l02385"></a><span class="lineno"> 2385</span> string cmd</div>
|
|
<div class="line"><a id="l02386" name="l02386"></a><span class="lineno"> 2386</span> string attrib = ""</div>
|
|
<div class="line"><a id="l02387" name="l02387"></a><span class="lineno"> 2387</span> </div>
|
|
<div class="line"><a id="l02388" name="l02388"></a><span class="lineno"> 2388</span> if (exists(elog_module + "#set_panel_attributes") == 6)</div>
|
|
<div class="line"><a id="l02389" name="l02389"></a><span class="lineno"> 2389</span> funcref PearlDataExplorer_proto_set_panel_attributes f_set_attributes = $(elog_module + "#set_panel_attributes")</div>
|
|
<div class="line"><a id="l02390" name="l02390"></a><span class="lineno"> 2390</span> funcref PearlDataExplorer_proto_set_panel_graphs f_set_graphs = $(elog_module + "#set_panel_graphs")</div>
|
|
<div class="line"><a id="l02391" name="l02391"></a><span class="lineno"> 2391</span> </div>
|
|
<div class="line"><a id="l02392" name="l02392"></a><span class="lineno"> 2392</span> attrib = ReplaceStringByKey("file", attrib, ParseFilePath(0, filename, ":", 1, 0), ":", ";")</div>
|
|
<div class="line"><a id="l02393" name="l02393"></a><span class="lineno"> 2393</span> svar /sdfr=file_df /z authors</div>
|
|
<div class="line"><a id="l02394" name="l02394"></a><span class="lineno"> 2394</span> if (svar_Exists(authors))</div>
|
|
<div class="line"><a id="l02395" name="l02395"></a><span class="lineno"> 2395</span> if (strlen(authors)>=1)</div>
|
|
<div class="line"><a id="l02396" name="l02396"></a><span class="lineno"> 2396</span> attrib = ReplaceStringByKey("author", attrib, authors, ":", ";")</div>
|
|
<div class="line"><a id="l02397" name="l02397"></a><span class="lineno"> 2397</span> endif</div>
|
|
<div class="line"><a id="l02398" name="l02398"></a><span class="lineno"> 2398</span> endif</div>
|
|
<div class="line"><a id="l02399" name="l02399"></a><span class="lineno"> 2399</span> svar /sdfr=file_df /z pgroup</div>
|
|
<div class="line"><a id="l02400" name="l02400"></a><span class="lineno"> 2400</span> if (svar_Exists(pgroup))</div>
|
|
<div class="line"><a id="l02401" name="l02401"></a><span class="lineno"> 2401</span> if (strlen(pgroup)>=1)</div>
|
|
<div class="line"><a id="l02402" name="l02402"></a><span class="lineno"> 2402</span> attrib = ReplaceStringByKey("p-group", attrib, pgroup, ":", ";")</div>
|
|
<div class="line"><a id="l02403" name="l02403"></a><span class="lineno"> 2403</span> endif</div>
|
|
<div class="line"><a id="l02404" name="l02404"></a><span class="lineno"> 2404</span> endif</div>
|
|
<div class="line"><a id="l02405" name="l02405"></a><span class="lineno"> 2405</span> svar /sdfr=file_df /z proposal</div>
|
|
<div class="line"><a id="l02406" name="l02406"></a><span class="lineno"> 2406</span> if (svar_Exists(proposal))</div>
|
|
<div class="line"><a id="l02407" name="l02407"></a><span class="lineno"> 2407</span> if (strlen(proposal)>=1)</div>
|
|
<div class="line"><a id="l02408" name="l02408"></a><span class="lineno"> 2408</span> attrib = ReplaceStringByKey("project", attrib, proposal, ":", ";")</div>
|
|
<div class="line"><a id="l02409" name="l02409"></a><span class="lineno"> 2409</span> endif</div>
|
|
<div class="line"><a id="l02410" name="l02410"></a><span class="lineno"> 2410</span> endif</div>
|
|
<div class="line"><a id="l02411" name="l02411"></a><span class="lineno"> 2411</span> svar /sdfr=file_df /z proposer</div>
|
|
<div class="line"><a id="l02412" name="l02412"></a><span class="lineno"> 2412</span> svar /sdfr=file_df /z sample</div>
|
|
<div class="line"><a id="l02413" name="l02413"></a><span class="lineno"> 2413</span> if (svar_Exists(sample))</div>
|
|
<div class="line"><a id="l02414" name="l02414"></a><span class="lineno"> 2414</span> if (strlen(sample)>=1)</div>
|
|
<div class="line"><a id="l02415" name="l02415"></a><span class="lineno"> 2415</span> attrib = ReplaceStringByKey("sample", attrib, sample, ":", ";")</div>
|
|
<div class="line"><a id="l02416" name="l02416"></a><span class="lineno"> 2416</span> endif</div>
|
|
<div class="line"><a id="l02417" name="l02417"></a><span class="lineno"> 2417</span> endif</div>
|
|
<div class="line"><a id="l02418" name="l02418"></a><span class="lineno"> 2418</span> </div>
|
|
<div class="line"><a id="l02419" name="l02419"></a><span class="lineno"> 2419</span> if (strlen(attrib)>=3)</div>
|
|
<div class="line"><a id="l02420" name="l02420"></a><span class="lineno"> 2420</span> f_set_attributes(panel_name, attrib)</div>
|
|
<div class="line"><a id="l02421" name="l02421"></a><span class="lineno"> 2421</span> endif</div>
|
|
<div class="line"><a id="l02422" name="l02422"></a><span class="lineno"> 2422</span> </div>
|
|
<div class="line"><a id="l02423" name="l02423"></a><span class="lineno"> 2423</span> if ((strlen(graphname) > 0) && (WinType(graphname) == 1))</div>
|
|
<div class="line"><a id="l02424" name="l02424"></a><span class="lineno"> 2424</span> f_set_graphs(panel_name, graphname)</div>
|
|
<div class="line"><a id="l02425" name="l02425"></a><span class="lineno"> 2425</span> endif</div>
|
|
<div class="line"><a id="l02426" name="l02426"></a><span class="lineno"> 2426</span> endif</div>
|
|
<div class="line"><a id="l02427" name="l02427"></a><span class="lineno"> 2427</span>end </div>
|
|
</div>
|
|
<div class="ttc" id="apearl-anglescan-panel_8ipf_html_aca457d1f4414d20a911254b1de13ebbb"><div class="ttname"><a href="pearl-anglescan-panel_8ipf.html#aca457d1f4414d20a911254b1de13ebbb">package_name</a></div><div class="ttdeci">static const string package_name</div><div class="ttdoc">package name is used as data folder name</div><div class="ttdef"><b>Definition</b> <a href="pearl-anglescan-panel_8ipf_source.html#l00048">pearl-anglescan-panel.ipf:48</a></div></div>
|
|
<div class="ttc" id="apearl-data-explorer_8ipf_html_a00bf5267a40b2b3d760c64d73e139878"><div class="ttname"><a href="pearl-data-explorer_8ipf.html#a00bf5267a40b2b3d760c64d73e139878">ks_filematch_pshell</a></div><div class="ttdeci">static const string ks_filematch_pshell</div><div class="ttdef"><b>Definition</b> <a href="pearl-data-explorer_8ipf_source.html#l00039">pearl-data-explorer.ipf:39</a></div></div>
|
|
<div class="ttc" id="apearl-data-explorer_8ipf_html_a181ccce237172811baf3de5a7a06370d"><div class="ttname"><a href="pearl-data-explorer_8ipf.html#a181ccce237172811baf3de5a7a06370d">ks_filematch_adh5</a></div><div class="ttdeci">static const string ks_filematch_adh5</div><div class="ttdef"><b>Definition</b> <a href="pearl-data-explorer_8ipf_source.html#l00038">pearl-data-explorer.ipf:38</a></div></div>
|
|
<div class="ttc" id="apearl-data-explorer_8ipf_html_a45e930b8eadd7cf6a5f664befd87d725"><div class="ttname"><a href="pearl-data-explorer_8ipf.html#a45e930b8eadd7cf6a5f664befd87d725">init_package</a></div><div class="ttdeci">static variable init_package()</div><div class="ttdef"><b>Definition</b> <a href="pearl-data-explorer_8ipf_source.html#l00061">pearl-data-explorer.ipf:61</a></div></div>
|
|
<div class="ttc" id="apearl-data-explorer_8ipf_html_a4c7a521b8f1a0769c09bfa4a1fca7dab"><div class="ttname"><a href="pearl-data-explorer_8ipf.html#a4c7a521b8f1a0769c09bfa4a1fca7dab">version</a></div><div class="ttdeci">version</div><div class="ttdef"><b>Definition</b> <a href="pearl-data-explorer_8ipf_source.html#l00006">pearl-data-explorer.ipf:6</a></div></div>
|
|
<div class="ttc" id="apearl-data-explorer_8ipf_html_a53af8689144e3aeb27ca177db5dd0c22"><div class="ttname"><a href="pearl-data-explorer_8ipf.html#a53af8689144e3aeb27ca177db5dd0c22">ks_filematch_itx</a></div><div class="ttdeci">static const string ks_filematch_itx</div><div class="ttdef"><b>Definition</b> <a href="pearl-data-explorer_8ipf_source.html#l00040">pearl-data-explorer.ipf:40</a></div></div>
|
|
<div class="ttc" id="apearl-data-explorer_8ipf_html_a5b824531904179a94e0eaa3ffa09172e"><div class="ttname"><a href="pearl-data-explorer_8ipf.html#a5b824531904179a94e0eaa3ffa09172e">PearlDataExplorer</a></div><div class="ttdeci">void PearlDataExplorer()</div><div class="ttdoc">macro to create the data explorer panel</div><div class="ttdef"><b>Definition</b> <a href="pearl-data-explorer_8ipf_source.html#l01403">pearl-data-explorer.ipf:1403</a></div></div>
|
|
<div class="ttc" id="apearl-data-explorer_8ipf_html_a75bb92ef5f80843e66a7243bd958ef8b"><div class="ttname"><a href="pearl-data-explorer_8ipf.html#a75bb92ef5f80843e66a7243bd958ef8b">package_path</a></div><div class="ttdeci">static const string package_path</div><div class="ttdef"><b>Definition</b> <a href="pearl-data-explorer_8ipf_source.html#l00036">pearl-data-explorer.ipf:36</a></div></div>
|
|
<div class="ttc" id="apearl-data-explorer_8ipf_html_a92c27964d49ab8bcd7afc858ebe214a3"><div class="ttname"><a href="pearl-data-explorer_8ipf.html#a92c27964d49ab8bcd7afc858ebe214a3">load_prefs</a></div><div class="ttdeci">static variable load_prefs()</div><div class="ttdef"><b>Definition</b> <a href="pearl-data-explorer_8ipf_source.html#l00155">pearl-data-explorer.ipf:155</a></div></div>
|
|
<div class="ttc" id="apearl-data-explorer_8ipf_html_ab7e3b3a0a901f7559ee9f5affb9a6fca"><div class="ttname"><a href="pearl-data-explorer_8ipf.html#ab7e3b3a0a901f7559ee9f5affb9a6fca">pearl_data_explorer</a></div><div class="ttdeci">variable pearl_data_explorer()</div><div class="ttdoc">show the pearl data explorer window</div><div class="ttdef"><b>Definition</b> <a href="pearl-data-explorer_8ipf_source.html#l00047">pearl-data-explorer.ipf:47</a></div></div>
|
|
</div><!-- fragment --></div><!-- contents -->
|
|
</div><!-- doc-content -->
|
|
<!-- start footer part -->
|
|
<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
|
|
<ul>
|
|
<li class="navelem"><a class="el" href="dir_fe5dc42579d4b99403482a3a637d9f7d.html">pearl</a></li><li class="navelem"><a class="el" href="pearl-data-explorer_8ipf.html">pearl-data-explorer.ipf</a></li>
|
|
<li class="footer">Generated on Mon Dec 22 2025 17:26:40 for PEARL Procedures by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.9.8 </li>
|
|
</ul>
|
|
</div>
|
|
</body>
|
|
</html>
|