Rev | Line | |
---|
[1] | 1 | function theResult = ncweb |
---|
| 2 | |
---|
| 3 | % ncweb -- World Wide Web site of the NetCDF Toolbox. |
---|
| 4 | % ncweb (no argument) displays or returns the WWW |
---|
| 5 | % site for the NetCDF Toolbox. If displayed, |
---|
| 6 | % a dialog asks whether to go there. |
---|
| 7 | |
---|
| 8 | % Copyright (C) 1999 Dr. Charles R. Denham, ZYDECO. |
---|
| 9 | % All Rights Reserved. |
---|
| 10 | % Disclosure without explicit written consent from the |
---|
| 11 | % copyright owner does not constitute publication. |
---|
| 12 | |
---|
| 13 | % Version of 28-Apr-1999 19:30:28. |
---|
| 14 | % Updated 18-Sep-2002 14:37:43. |
---|
| 15 | |
---|
| 16 | theURL = ['http://woodshole.er.usgs.gov/' ... |
---|
| 17 | 'staffpages/cdenham/MexCDF/nc4ml5.html']; |
---|
| 18 | |
---|
| 19 | if nargout > 0 |
---|
| 20 | theResult = theURL; |
---|
| 21 | else |
---|
| 22 | disp(['## NetCDF Toolbox Home Page:']) |
---|
| 23 | disp(['## ' theURL]) |
---|
| 24 | theButton = questdlg('Go To NetCDF Toolbox Home Page?', 'WWW', 'Yes', 'No', 'No'); |
---|
| 25 | if isequal(theButton, 'Yes') |
---|
| 26 | theStatus = web(theURL); |
---|
| 27 | switch theStatus |
---|
| 28 | case 1 |
---|
| 29 | disp(' ## Could not find Web Browser.') |
---|
| 30 | disp(' ## See "help web".') |
---|
| 31 | case 2 |
---|
| 32 | disp(' ## Web Browser found, but could not be launched.') |
---|
| 33 | disp(' ## See "help web".') |
---|
| 34 | help('web') |
---|
| 35 | otherwise |
---|
| 36 | end |
---|
| 37 | end |
---|
| 38 | end |
---|
Note: See
TracBrowser
for help on using the repository browser.