source: MML/trunk/mml/doc_html/mml/setpathasp.html @ 4

Last change on this file since 4 was 4, checked in by zhangj, 10 years ago

Initial import--MML version from SOLEIL@2013
File size: 9.4 KB
Line 
1<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
2                "http://www.w3.org/TR/REC-html40/loose.dtd">
3<html>
4<head>
5  <title>Description of setpathasp</title>
6  <meta name="keywords" content="setpathasp">
7  <meta name="description" content="SETPATHASP - Initializes the Matlab Middle Layer (MML) for ASP">
8  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
9  <meta name="generator" content="m2html &copy; 2003 Guillaume Flandin">
10  <meta name="robots" content="index, follow">
11  <link type="text/css" rel="stylesheet" href="../m2html.css">
12</head>
13<body>
14<a name="_top"></a>
15<div><a href="../index.html">Home</a> &gt;  <a href="index.html">mml</a> &gt; setpathasp.m</div>
16
17<!--<table width="100%"><tr><td align="left"><a href="../index.html"><img alt="<" border="0" src="../left.png">&nbsp;Master index</a></td>
18<td align="right"><a href="index.html">Index for mml&nbsp;<img alt=">" border="0" src="../right.png"></a></td></tr></table>-->
19
20<h1>setpathasp
21</h1>
22
23<h2><a name="_name"></a>PURPOSE <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
24<div class="box"><strong>SETPATHASP - Initializes the Matlab Middle Layer (MML) for ASP</strong></div>
25
26<h2><a name="_synopsis"></a>SYNOPSIS <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
27<div class="box"><strong>function [MachineName, SubMachineName, LinkFlag, MMLROOT] = setpathasp(varargin) </strong></div>
28
29<h2><a name="_description"></a>DESCRIPTION <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
30<div class="fragment"><pre class="comment">SETPATHASP - Initializes the Matlab Middle Layer (MML) for ASP
31  [MachineName, SubMachineName, OnlineLinkMethod, MMLROOT] = setpathasp(SubMachineName, OnlineLinkMethod)
32
33  INPUTS
34  1. SubMachineName - 'StorageRing', 'Booster', 'BTS', 'LTB', 'Injector'
35  2. OnlineLinkMethod - 'MCA', 'LabCA', 'SCA'
36
37  Written by Greg Portmann</pre></div>
38
39<!-- crossreference -->
40<h2><a name="_cross"></a>CROSS-REFERENCE INFORMATION <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
41This function calls:
42<ul style="list-style-image:url(../matlabicon.gif)">
43<li><a href="setpathmml.html" class="code" title="function [MachineName, SubMachineName, LinkFlag, MMLROOT] = setpathmml(varargin)">setpathmml</a>      SETPATHMML -  Initialize the Matlab MiddleLayer (MML) path</li></ul>
44This function is called by:
45<ul style="list-style-image:url(../matlabicon.gif)">
46</ul>
47<!-- crossreference -->
48
49
50<h2><a name="_source"></a>SOURCE CODE <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
51<div class="fragment"><pre>0001 <a name="_sub0" href="#_subfunctions" class="code">function [MachineName, SubMachineName, LinkFlag, MMLROOT] = setpathasp(varargin)</a>
520002 <span class="comment">%SETPATHASP - Initializes the Matlab Middle Layer (MML) for ASP</span>
530003 <span class="comment">%  [MachineName, SubMachineName, OnlineLinkMethod, MMLROOT] = setpathasp(SubMachineName, OnlineLinkMethod)</span>
540004 <span class="comment">%</span>
550005 <span class="comment">%  INPUTS</span>
560006 <span class="comment">%  1. SubMachineName - 'StorageRing', 'Booster', 'BTS', 'LTB', 'Injector'</span>
570007 <span class="comment">%  2. OnlineLinkMethod - 'MCA', 'LabCA', 'SCA'</span>
580008 <span class="comment">%</span>
590009 <span class="comment">%  Written by Greg Portmann</span>
600010
610011
620012 Machine = <span class="string">'ASP'</span>;
630013
640014
650015 <span class="comment">%%%%%%%%%%%%%%%%%</span>
660016 <span class="comment">% Input Parsing %</span>
670017 <span class="comment">%%%%%%%%%%%%%%%%%</span>
680018
690019 <span class="comment">% First strip-out the link method</span>
700020 LinkFlag = <span class="string">''</span>;
710021 <span class="keyword">for</span> i = length(varargin):-1:1
720022     <span class="keyword">if</span> ~ischar(varargin{i})
730023         <span class="comment">% Ignor input</span>
740024     <span class="keyword">elseif</span> strcmpi(varargin{i},<span class="string">'LabCA'</span>)
750025         LinkFlag = <span class="string">'LabCA'</span>;
760026         varargin(i) = [];
770027     <span class="keyword">elseif</span> strcmpi(varargin{i},<span class="string">'MCA'</span>)
780028         LinkFlag = <span class="string">'MCA'</span>;
790029         varargin(i) = [];
800030     <span class="keyword">elseif</span> strcmpi(varargin{i},<span class="string">'SCA'</span>)
810031         LinkFlag = <span class="string">'SCA'</span>;
820032         varargin(i) = [];
830033     <span class="keyword">elseif</span> strcmpi(varargin{i},<span class="string">'SLC'</span>)
840034         LinkFlag = <span class="string">'SLC'</span>;
850035         varargin(i) = [];
860036     <span class="keyword">elseif</span> strcmpi(varargin{i},<span class="string">'Tango'</span>)
870037         LinkFlag = <span class="string">'Tango'</span>;
880038         varargin(i) = [];
890039     <span class="keyword">elseif</span> strcmpi(varargin{i},<span class="string">'UCODE'</span>)
900040         LinkFlag = <span class="string">'UCODE'</span>;
910041         varargin(i) = [];
920042     <span class="keyword">end</span>
930043 <span class="keyword">end</span>
940044
950045 <span class="keyword">if</span> isempty(LinkFlag)
960046     <span class="keyword">if</span> strncmp(computer,<span class="string">'PC'</span>,2)
970047         LinkFlag = <span class="string">'MCA'</span>;
980048     <span class="keyword">elseif</span> isunix
990049         LinkFlag = <span class="string">'LABCA'</span>;
1000050     <span class="keyword">else</span>
1010051         LinkFlag = <span class="string">'LABCA'</span>;
1020052     <span class="keyword">end</span>
1030053 <span class="keyword">end</span>
1040054
1050055
1060056 <span class="comment">% Get the submachine name</span>
1070057 <span class="keyword">if</span> length(varargin) &gt;= 1
1080058     SubMachineName = varargin{1};
1090059 <span class="keyword">else</span>
1100060     SubMachineName = <span class="string">''</span>;
1110061 <span class="keyword">end</span>
1120062
1130063 <span class="keyword">if</span> isempty(SubMachineName)
1140064     SubMachineNameCell = {<span class="string">'Storage Ring'</span>, <span class="string">'Booster'</span>, <span class="string">'LTB'</span>, <span class="string">'BTS'</span>, <span class="string">'Injector'</span>};
1150065     [i, ok] = listdlg(<span class="string">'PromptString'</span>, <span class="string">'Select an accelerator:'</span>,<span class="keyword">...</span>
1160066         <span class="string">'SelectionMode'</span>, <span class="string">'Single'</span>,<span class="keyword">...</span>
1170067         <span class="string">'Name'</span>, <span class="string">'ASP'</span>, <span class="keyword">...</span>
1180068         <span class="string">'ListString'</span>, SubMachineNameCell);
1190069     <span class="keyword">if</span> ok
1200070         SubMachineName = SubMachineNameCell{i};
1210071     <span class="keyword">else</span>
1220072         fprintf(<span class="string">'Initialization cancelled (no path change).\n'</span>);
1230073         <span class="keyword">return</span>;
1240074     <span class="keyword">end</span>
1250075 <span class="keyword">end</span>
1260076
1270077 <span class="keyword">if</span> any(strcmpi(SubMachineName, {<span class="string">'Storage Ring'</span>,<span class="string">'Ring'</span>}))
1280078     SubMachineName = <span class="string">'StorageRing'</span>;
1290079 <span class="keyword">end</span>
1300080
1310081
1320082 <span class="keyword">if</span> strcmpi(SubMachineName,<span class="string">'StorageRing'</span>)
1330083     [MachineName, SubMachineName, LinkFlag, MMLROOT] = <a href="setpathmml.html" class="code" title="function [MachineName, SubMachineName, LinkFlag, MMLROOT] = setpathmml(varargin)">setpathmml</a>(Machine, <span class="string">'StorageRing'</span>, <span class="string">'StorageRing'</span>, LinkFlag);
1340084 <span class="keyword">elseif</span> strcmpi(SubMachineName,<span class="string">'Booster'</span>)
1350085     [MachineName, SubMachineName, LinkFlag, MMLROOT] = <a href="setpathmml.html" class="code" title="function [MachineName, SubMachineName, LinkFlag, MMLROOT] = setpathmml(varargin)">setpathmml</a>(Machine, <span class="string">'Booster'</span>,     <span class="string">'Booster'</span>,     LinkFlag);
1360086 <span class="keyword">elseif</span> strcmpi(SubMachineName,<span class="string">'LTB'</span>)
1370087     [MachineName, SubMachineName, LinkFlag, MMLROOT] = <a href="setpathmml.html" class="code" title="function [MachineName, SubMachineName, LinkFlag, MMLROOT] = setpathmml(varargin)">setpathmml</a>(Machine, <span class="string">'LTB'</span>,         <span class="string">'Transport'</span>,   LinkFlag);
1380088 <span class="keyword">elseif</span> strcmpi(SubMachineName,<span class="string">'BTS'</span>)
1390089     [MachineName, SubMachineName, LinkFlag, MMLROOT] = <a href="setpathmml.html" class="code" title="function [MachineName, SubMachineName, LinkFlag, MMLROOT] = setpathmml(varargin)">setpathmml</a>(Machine, <span class="string">'BTS'</span>,         <span class="string">'Transport'</span>,   LinkFlag);
1400090 <span class="keyword">elseif</span> strcmpi(SubMachineName,<span class="string">'Injector'</span>)
1410091     [MachineName, SubMachineName, LinkFlag, MMLROOT] = <a href="setpathmml.html" class="code" title="function [MachineName, SubMachineName, LinkFlag, MMLROOT] = setpathmml(varargin)">setpathmml</a>(Machine, <span class="string">'Injector'</span>,    <span class="string">'Booster'</span>,     LinkFlag);
1420092 <span class="keyword">end</span></pre></div>
143<hr><address>Generated on Mon 21-May-2007 15:29:18 by <strong><a href="http://www.artefact.tk/software/matlab/m2html/">m2html</a></strong> &copy; 2003</address>
144</body>
145</html>
Note: See TracBrowser for help on using the repository browser.