38dd32373801a0be277d9137fefb81778979d0a5
[pspp-builds.git] / src / glob.c
1 /* PSPP - computes sample statistics.
2    Copyright (C) 1997-9, 2000 Free Software Foundation, Inc.
3    Written by Ben Pfaff <blp@gnu.org>.
4
5    This program is free software; you can redistribute it and/or
6    modify it under the terms of the GNU General Public License as
7    published by the Free Software Foundation; either version 2 of the
8    License, or (at your option) any later version.
9
10    This program is distributed in the hope that it will be useful, but
11    WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    General Public License for more details.
14
15    You should have received a copy of the GNU General Public License
16    along with this program; if not, write to the Free Software
17    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
18    02110-1301, USA. */
19
20 #include <config.h>
21 #include "glob.h"
22 #include "error.h"
23 #include "progname.h"
24 #include <stdlib.h>
25 #include <stdio.h>
26 #include <time.h>
27
28 #if HAVE_LIBHISTORY
29 #if HAVE_READLINE_HISTORY_H
30 #include <readline/history.h>
31 #else /* no readline/history.h */
32 extern void using_history ();
33 extern int read_history ();
34 extern void stifle_history ();
35 #endif /* no readline/history.h */
36 #endif /* -lhistory */
37
38 #if HAVE_FPU_CONTROL_H
39 #include <fpu_control.h>
40 #elif __BORLANDC__
41 #include <float.h>
42 #include <math.h>
43 #endif
44
45 #if __DJGPP__
46 #include <conio.h>
47 #elif defined (__WIN32__) && defined (__BORLANDC__)
48 #undef gettext
49 #include <conio.h>
50 #define gettext(STRING)                         \
51         STRING
52 #endif
53
54 #if HAVE_LOCALE_H
55 #include <locale.h>
56 #endif
57
58 #if HAVE_FENV_H
59 #include <fenv.h>
60 #endif
61
62 #include "alloc.h"
63 #include "calendar.h"
64 #include "command.h"
65 #include "dictionary.h"
66 #include "error.h"
67 #include "file-handle.h"
68 #include "filename.h"
69 #include "getl.h"
70 #include "hash.h"
71 #include "lexer.h"
72 #include "magic.h"
73 #include "main.h"
74 #include "random.h"
75 #include "settings.h"
76 #include "str.h"
77 #include "var.h"
78 #include "version.h"
79 #include "vfm.h"
80
81 #include "gettext.h"
82
83 /* var.h */
84 struct dictionary *default_dict;
85 struct expression *process_if_expr;
86
87 struct transformation *t_trns;
88 size_t n_trns, m_trns, f_trns;
89
90 int FILTER_before_TEMPORARY;
91
92 struct file_handle *default_handle;
93
94 /* log.h */
95 char *logfn;
96 FILE *logfile;
97 int logging;
98 \f
99 /* Functions. */
100
101 static void get_date (void);
102
103
104 void
105 init_glob (int argc UNUSED, char **argv)
106 {
107   set_program_name (argv[0]);
108
109   /* FIXME: Allow i18n of other locale items (besides LC_MESSAGES). */
110 #if ENABLE_NLS
111 #if HAVE_LC_MESSAGES
112   setlocale (LC_MESSAGES, "");
113 #endif
114   setlocale (LC_MONETARY, "");
115   bindtextdomain (PACKAGE, locale_dir);
116   textdomain (PACKAGE);
117 #endif /* ENABLE_NLS */
118
119   fn_init ();
120   fh_init ();
121   getl_initialize ();
122
123   /* PORTME: If your system/OS has the nasty tendency to halt with a
124      SIGFPE whenever there's a floating-point overflow (or other
125      exception), be sure to mask off those bits in the FPU here.
126      PSPP wants a guarantee that, no matter what boneheaded
127      floating-point operation it performs, the process will not halt.  */
128 #if HAVE_FEHOLDEXCEPT
129   {
130     fenv_t foo;
131
132     feholdexcept (&foo);
133   }
134 #elif HAVE___SETFPUCW && defined(_FPU_IEEE)
135   __setfpucw (_FPU_IEEE);
136 #elif __BORLANDC__
137   _control87 (0xffff, 0x137f);
138 #endif
139
140   /* var.h */
141   default_dict = dict_create ();
142
143   last_vfm_invocation = time (NULL);
144
145   /* lexer.h */
146   ds_init (&tokstr, 64);
147
148   /* common.h */
149   {
150     char *cp;
151     
152     pgmname = argv[0];
153     for (;;)
154       {
155         cp = strchr (pgmname, DIR_SEPARATOR);
156         if (!cp)
157           break;
158         pgmname = &cp[1];
159       }
160     cur_proc = NULL;
161   }
162
163
164   init_settings ();
165   random_init ();
166
167   /* log.h */
168   logging = 1;
169   logfn = xstrdup ("pspp.log");
170   logfile = NULL;
171
172   get_date ();
173 }
174
175 void
176 done_glob(void)
177 {
178   cancel_transformations ();
179   dict_destroy (default_dict);
180   free (logfn);
181   random_done ();
182   done_settings ();
183   ds_destroy (&tokstr);
184
185   fh_done();
186 }
187
188 static void
189 get_date (void)
190 {
191
192   time_t t;
193   struct tm *tmp;
194
195   if ((time_t) -1 == time (&t))
196     {
197       strcpy (curdate, "?? ??? 2???");
198       return;
199     }
200   tmp = localtime (&t);
201
202   strftime (curdate, 12, "%d %b %Y",tmp);
203 }
204
205 #if __BORLANDC__
206 int
207 _RTLENTRY _EXPFUNC _matherr (struct exception _FAR *__e)
208 {
209   return 1;
210 }
211
212 int
213 _RTLENTRY _EXPFUNC _matherrl (struct _exceptionl _FAR *__e)
214 {
215   return 1;
216 }
217 #endif