GNU Octave  4.0.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
octave-config.in.cc
Go to the documentation of this file.
1 // %NO_EDIT_WARNING%
2 /*
3 
4 Copyright (C) 2008-2015 Michael Goffioul
5 
6 This file is part of Octave.
7 
8 Octave is free software; you can redistribute it and/or modify it
9 under the terms of the GNU General Public License as published by the
10 Free Software Foundation; either version 3 of the License, or (at your
11 option) any later version.
12 
13 Octave is distributed in the hope that it will be useful, but WITHOUT
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
16 for more details.
17 
18 You should have received a copy of the GNU General Public License
19 along with Octave; see the file COPYING. If not, see
20 <http://www.gnu.org/licenses/>.
21 
22 */
23 
24 #if defined (HAVE_CONFIG_H)
25 #include <config.h>
26 #endif
27 
28 #include <string>
29 #include <map>
30 #include <iostream>
31 #include <algorithm>
32 #include <cstdlib>
33 
34 #ifndef OCTAVE_PREFIX
35 #define OCTAVE_PREFIX %OCTAVE_PREFIX%
36 #endif
37 
38 #include "shared-fcns.h"
39 
40 static std::map<std::string,std::string> vars;
41 
42 static std::string usage_msg = "usage: octave-config [options]";
43 
44 static std::string help_msg =
45 "\n"
46 "Options:\n"
47 "\n"
48 " -h, -?, --help Print this message.\n"
49 "\n"
50 " --m-site-dir Print the name of the directory where Octave\n"
51 " expects to find locally installed .m files.\n"
52 "\n"
53 " --oct-site-dir Print the name of the directory where Octave\n"
54 " expects to find locally installed .oct files.\n"
55 "\n"
56 " -p VAR, --print VAR Print the value of the given configuration\n"
57 " variable VAR. Recognized variables are:\n"
58 "\n"
59 " API_VERSION LOCALARCHLIBDIR\n"
60 " ARCHLIBDIR LOCALFCNFILEDIR\n"
61 " BINDIR LOCALOCTFILEDIR\n"
62 " CANONICAL_HOST_TYPE LOCALSTARTUPFILEDIR\n"
63 " DATADIR LOCALVERARCHLIBDIR\n"
64 " DATAROOTDIR LOCALVERFCNFILEDIR\n"
65 " DEFAULT_PAGER LOCALVEROCTFILEDIR\n"
66 " EXEC_PREFIX MAN1DIR\n"
67 " EXEEXT MAN1EXT\n"
68 " FCNFILEDIR MANDIR\n"
69 " IMAGEDIR OCTDATADIR\n"
70 " INCLUDEDIR OCTFILEDIR\n"
71 " INFODIR OCTINCLUDEDIR\n"
72 " INFOFILE OCTLIBDIR\n"
73 " LIBDIR PREFIX\n"
74 " LIBEXECDIR SHLEXT\n"
75 " LOCALAPIARCHLIBDIR STARTUPFILEDIR\n"
76 " LOCALAPIFCNFILEDIR VERSION\n"
77 " LOCALAPIOCTFILEDIR\n"
78 "\n"
79 " -v, --version Print the Octave version number.\n"
80 "\n";
81 
82 static void
83 initialize (void)
84 {
85  vars["OCTAVE_HOME"] = get_octave_home ();
86  vars["PREFIX"] = OCTAVE_PREFIX;
87 
88  vars["API_VERSION"] = %OCTAVE_API_VERSION%;
89  vars["CANONICAL_HOST_TYPE"] = %OCTAVE_CANONICAL_HOST_TYPE%;
90  vars["DEFAULT_PAGER"] = %OCTAVE_DEFAULT_PAGER%;
91  vars["MAN1EXT"] = %OCTAVE_MAN1EXT%;
92  vars["VERSION"] = %OCTAVE_VERSION%;
93 
94  vars["ARCHLIBDIR"] = subst_octave_home (%OCTAVE_ARCHLIBDIR%);
95  vars["BINDIR"] = subst_octave_home (%OCTAVE_BINDIR%);
96  vars["DATADIR"] = subst_octave_home (%OCTAVE_DATADIR%);
97  vars["DATAROOTDIR"] = subst_octave_home (%OCTAVE_DATAROOTDIR%);
98  vars["EXEC_PREFIX"] = subst_octave_home (%OCTAVE_EXEC_PREFIX%);
99  vars["EXEEXT"] = subst_octave_home (%OCTAVE_EXEEXT%);
100  vars["FCNFILEDIR"] = subst_octave_home (%OCTAVE_FCNFILEDIR%);
101  vars["IMAGEDIR"] = subst_octave_home (%OCTAVE_IMAGEDIR%);
102  vars["INCLUDEDIR"] = subst_octave_home (%OCTAVE_INCLUDEDIR%);
103  vars["INFODIR"] = subst_octave_home (%OCTAVE_INFODIR%);
104  vars["INFOFILE"] = subst_octave_home (%OCTAVE_INFOFILE%);
105  vars["LIBDIR"] = subst_octave_home (%OCTAVE_LIBDIR%);
106  vars["LIBEXECDIR"] = subst_octave_home (%OCTAVE_LIBEXECDIR%);
107  vars["LOCALAPIARCHLIBDIR"] = subst_octave_home (%OCTAVE_LOCALAPIARCHLIBDIR%);
108  vars["LOCALAPIFCNFILEDIR"] = subst_octave_home (%OCTAVE_LOCALAPIFCNFILEDIR%);
109  vars["LOCALAPIOCTFILEDIR"] = subst_octave_home (%OCTAVE_LOCALAPIOCTFILEDIR%);
110  vars["LOCALARCHLIBDIR"] = subst_octave_home (%OCTAVE_LOCALARCHLIBDIR%);
111  vars["LOCALFCNFILEDIR"] = subst_octave_home (%OCTAVE_LOCALFCNFILEDIR%);
112  vars["LOCALOCTFILEDIR"] = subst_octave_home (%OCTAVE_LOCALOCTFILEDIR%);
113  vars["LOCALSTARTUPFILEDIR"] = subst_octave_home (%OCTAVE_LOCALSTARTUPFILEDIR%);
114  vars["LOCALVERARCHLIBDIR"] = subst_octave_home (%OCTAVE_LOCALVERARCHLIBDIR%);
115  vars["LOCALVERFCNFILEDIR"] = subst_octave_home (%OCTAVE_LOCALVERFCNFILEDIR%);
116  vars["LOCALVEROCTFILEDIR"] = subst_octave_home (%OCTAVE_LOCALVEROCTFILEDIR%);
117  vars["MAN1DIR"] = subst_octave_home (%OCTAVE_MAN1DIR%);
118  vars["MANDIR"] = subst_octave_home (%OCTAVE_MANDIR%);
119  vars["OCTDATADIR"] = subst_octave_home (%OCTAVE_OCTDATADIR%);
120  vars["OCTFILEDIR"] = subst_octave_home (%OCTAVE_OCTFILEDIR%);
121  vars["OCTINCLUDEDIR"] = subst_octave_home (%OCTAVE_OCTINCLUDEDIR%);
122  vars["OCTLIBDIR"] = subst_octave_home (%OCTAVE_OCTLIBDIR%);
123  vars["SHLEXT"] = subst_octave_home (%OCTAVE_SHLEXT%);
124  vars["STARTUPFILEDIR"] = subst_octave_home (%OCTAVE_STARTUPFILEDIR%);
125 }
126 
127 int
128 main (int argc, char **argv)
129 {
130  initialize ();
131 
132  if (argc == 1)
133  {
134  std::cout << usage_msg << std::endl;
135  return 1;
136  }
137 
138  for (int i = 1; i < argc; i++)
139  {
140  std::string arg (argv[i]);
141 
142  if (arg == "-h" || arg == "-?" || arg == "--help")
143  {
144  std::cout << usage_msg << std::endl;
145  std::cout << help_msg;
146  return 0;
147  }
148  else if (arg == "--m-site-dir")
149  std::cout << vars["LOCALVERFCNFILEDIR"] << std::endl;
150  else if (arg == "--oct-site-dir")
151  std::cout << vars["LOCALVEROCTFILEDIR"] << std::endl;
152  else if (arg == "-v" || arg == "--version")
153  std::cout << vars["VERSION"] << std::endl;
154  else if (arg == "-p" || arg == "--print")
155  {
156  if (i < argc-1)
157  {
158  arg = argv[++i];
159  std::cout << vars[arg] << std::endl;
160  }
161  else
162  {
163  std::cerr << "octave-config: " << arg
164  << " options requires argument" << std::endl;
165  return 1;
166  }
167  }
168  else
169  {
170  std::cerr << "octave-config: unrecognized argument " << arg
171  << std::endl;
172  return 1;
173  }
174  }
175 
176  return 0;
177 }
static std::string get_octave_home(void)
Definition: shared-fcns.h:107
#define OCTAVE_FCNFILEDIR
Definition: defaults.h:68
#define OCTAVE_DATADIR
Definition: defaults.h:48
#define OCTAVE_LOCALVEROCTFILEDIR
Definition: defaults.h:136
static std::string subst_octave_home(const std::string &s)
Definition: shared-fcns.h:120
#define OCTAVE_LOCALFCNFILEDIR
Definition: defaults.h:112
#define OCTAVE_LOCALSTARTUPFILEDIR
Definition: defaults.h:120
static void initialize(void)
#define OCTAVE_PREFIX
#define OCTAVE_LOCALARCHLIBDIR
Definition: defaults.h:108
#define OCTAVE_INFOFILE
Definition: defaults.h:84
#define OCTAVE_STARTUPFILEDIR
Definition: defaults.h:184
#define OCTAVE_OCTFILEDIR
Definition: defaults.h:156
#define OCTAVE_API_VERSION
Definition: version.h:43
#define OCTAVE_ARCHLIBDIR
Definition: main.cc:50
int main(int argc, char **argv)
#define OCTAVE_CANONICAL_HOST_TYPE
Definition: defaults.h:32
#define OCTAVE_DATAROOTDIR
Definition: defaults.h:52
#define OCTAVE_MAN1DIR
Definition: defaults.h:140
#define OCTAVE_OCTLIBDIR
Definition: defaults.h:172
static std::map< std::string, std::string > vars
#define OCTAVE_MANDIR
Definition: defaults.h:148
#define OCTAVE_DEFAULT_PAGER
Definition: defaults.h:36
#define OCTAVE_INCLUDEDIR
Definition: defaults.h:76
#define OCTAVE_BINDIR
Definition: main.cc:54
#define OCTAVE_IMAGEDIR
Definition: defaults.h:72
static std::string usage_msg
#define OCTAVE_LOCALAPIFCNFILEDIR
Definition: defaults.h:100
#define OCTAVE_LOCALOCTFILEDIR
Definition: defaults.h:116
#define OCTAVE_LOCALVERARCHLIBDIR
Definition: defaults.h:128
#define OCTAVE_LIBDIR
Definition: defaults.h:88
static std::string help_msg
#define OCTAVE_VERSION
Definition: main.cc:46
double arg(double x)
Definition: lo-mappers.h:37
#define OCTAVE_OCTDATADIR
Definition: defaults.h:152
#define OCTAVE_LOCALAPIOCTFILEDIR
Definition: defaults.h:104
#define OCTAVE_EXEC_PREFIX
Definition: defaults.h:64
#define OCTAVE_MAN1EXT
Definition: defaults.h:144
#define OCTAVE_OCTINCLUDEDIR
Definition: defaults.h:168
#define OCTAVE_LOCALAPIARCHLIBDIR
Definition: defaults.h:124
#define OCTAVE_LIBEXECDIR
Definition: defaults.h:92
#define OCTAVE_LOCALVERFCNFILEDIR
Definition: defaults.h:132
#define OCTAVE_INFODIR
Definition: defaults.h:80