[Octave-cvsupdate] SF.net SVN: octave:[10676] trunk/octave-forge/main/vrml/inst/ vrml_set_browser.m

[<et...@us...>]

Revision: 10676
          http://octave.svn.sourceforge.net/octave/?rev=10676&view=rev
Author:   etienne
Date:     2012-06-24 04:18:55 +0000 (Sun, 24 Jun 2012)
Log Message:
-----------
Set vrml_b_name

Added Paths:
-----------
    trunk/octave-forge/main/vrml/inst/vrml_set_browser.m

Added: trunk/octave-forge/main/vrml/inst/vrml_set_browser.m
===================================================================
--- trunk/octave-forge/main/vrml/inst/vrml_set_browser.m	                        (rev 0)
+++ trunk/octave-forge/main/vrml/inst/vrml_set_browser.m	2012-06-24 04:18:55 UTC (rev 10676)
@@ -0,0 +1,64 @@
+## Copyright (C) 2012 Etienne Grossmann <et...@eg...>
+##
+## This program is free software; you can redistribute it and/or modify it under
+## the terms of the GNU General Public License as published by the Free Software
+## Foundation; either version 3 of the License, or (at your option) any later
+## version.
+##
+## This program is distributed in the hope that it will be useful, but WITHOUT
+## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+## details.
+##
+## You should have received a copy of the GNU General Public License along with
+## this program; if not, see <http://www.gnu.org/licenses/>.
+##
+
+## full_path = vrml_set_browser (proposed_browser) - Set or find a vrml browser
+##
+## If argument proposed_browser is passed and non-empty, then vmrl_set_browser()
+## tries to determine whether proposed_browser is a valid program. If it is,
+## then the global variable vrml_b_name is set to the full path, which is also
+## returned. Otherwise, an error occurs.
+##
+## If argument proposed_browser is empty or missing, then vrml_set_browser()
+## tries to determine whether either freewrl ( > 0.25) or whitedune (two vrml
+## browsers) are available. If one is found, then the global variable
+## vrml_b_name is set to the full path, which is also returned. Otherwise, an
+## error occurs.
+##
+## WARNING: vrml_set_browser has only been tested under Linux. Please report
+## successes / problems / patches on other systems.
+##
+## See also: vrml_browse(), FreeWRL homepage http://www.crc.ca/FreeWRL,
+## whitedune homepage http://vrml.cip.ica.uni-stuttgart.de/dune.
+##
+function full_path = vrml_set_browser (proposed_browser_name)
+
+global vrml_b_name;
+
+full_path = vrml_b_name;
+
+if nargin < 1 || isempty (proposed_browser_name)
+
+  browser_list = {"freewrl", "whitedune"};
+
+  for i = 1:numel(browser_list)
+
+    ## TODO: Test this under windows
+    [status, full_path] = system (sprintf ("which %s", b{i}));
+    if status != 1
+      vrml_b_name = full_path;
+      return;
+    endif
+  endfor
+
+  error ("No VRML browser available");
+endif
+
+## TODO: Test this under windows
+[status, full_path] = system (sprintf ("which %s", proposed_browser_name));
+if status == 1
+  error (sprintf ("VRML browser `%s' is not available", proposed_browser_name));
+endif
+vrml_b_name = full_path;
\ No newline at end of file

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.