X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fglob.c;h=3ea676707c269b94841ee430bcf1108ab890669c;hb=1195caf0c998e80d3e7195a0452a14e7b4194077;hp=61c70b46c2e5efbc34e7cce5e62b1a2b6472af72;hpb=def7e6026513a3ee7c2b38416b30a2e890e34311;p=pspp-builds.git diff --git a/src/glob.c b/src/glob.c index 61c70b46..3ea67670 100644 --- a/src/glob.c +++ b/src/glob.c @@ -14,12 +14,12 @@ You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software - Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA - 02111-1307, USA. */ + Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA + 02110-1301, USA. */ #include #include "glob.h" -#include +#include "error.h" #include #include @@ -69,15 +69,15 @@ extern void stifle_history (); #endif #include "alloc.h" +#include "calendar.h" #include "command.h" +#include "dictionary.h" #include "do-ifP.h" #include "error.h" -#include "expr.h" #include "file-handle.h" #include "filename.h" #include "getline.h" #include "hash.h" -#include "julcal/julcal.h" #include "lexer.h" #include "magic.h" #include "main.h" @@ -96,6 +96,8 @@ int n_trns; int m_trns; int f_trns; +short test_mode=0; + int FILTER_before_TEMPORARY; struct file_handle *default_handle; @@ -126,6 +128,7 @@ init_glob (int argc UNUSED, char **argv) #endif /* ENABLE_NLS */ fn_init (); + fh_init (); getl_initialize (); /* PORTME: If your system/OS has the nasty tendency to halt with a @@ -151,7 +154,7 @@ init_glob (int argc UNUSED, char **argv) last_vfm_invocation = time (NULL); /* lexer.h */ - ds_init (NULL, &tokstr, 64); + ds_init (&tokstr, 64); /* common.h */ { @@ -176,12 +179,21 @@ init_glob (int argc UNUSED, char **argv) logfn = xstrdup ("pspp.log"); logfile = NULL; - /* file-handle.h */ - fh_init_files (); - get_date (); } +void +done_glob(void) +{ + cancel_transformations (); + dict_destroy (default_dict); + free (logfn); + done_settings (); + ds_destroy (&tokstr); + + fh_done(); +} + static void get_date (void) {