X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Futilities%2Finclude.c;h=e326134de01e3a11de7a154e4cff1f31c42eac10;hb=81579d9e9f994fb2908f50af41c3eb033d216e58;hp=52d0e09c91dec5b559e8c86104917f08cad2b5dd;hpb=774441e68b4d2e3a4b5c6975e9614dcd4369955e;p=pspp-builds.git diff --git a/src/language/utilities/include.c b/src/language/utilities/include.c index 52d0e09c..e326134d 100644 --- a/src/language/utilities/include.c +++ b/src/language/utilities/include.c @@ -1,5 +1,5 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 1997-9, 2000, 2007 Free Software Foundation, Inc. + Copyright (C) 1997-9, 2000, 2007, 2010, 2011 Free Software Foundation, Inc. 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 @@ -22,16 +22,16 @@ #include #include -#include -#include -#include -#include -#include -#include -#include +#include "data/file-name.h" +#include "language/command.h" +#include "language/lexer/lexer.h" +#include "language/syntax-file.h" +#include "libpspp/getl.h" +#include "libpspp/message.h" +#include "libpspp/str.h" -#include "dirname.h" -#include "xalloc.h" +#include "gl/dirname.h" +#include "gl/xalloc.h" #include "gettext.h" #define _(msgid) gettext (msgid) @@ -80,11 +80,11 @@ cmd_insert (struct lexer *lexer, struct dataset *ds UNUSED) lex_get (lexer); - while ( '.' != lex_token (lexer)) + while ( T_ENDCMD != lex_token (lexer)) { if (lex_match_id (lexer, "SYNTAX")) { - lex_match (lexer, '='); + lex_match (lexer, T_EQUALS); if ( lex_match_id (lexer, "INTERACTIVE") ) syntax_mode = GETL_INTERACTIVE; else if ( lex_match_id (lexer, "BATCH")) @@ -98,7 +98,7 @@ cmd_insert (struct lexer *lexer, struct dataset *ds UNUSED) } else if (lex_match_id (lexer, "CD")) { - lex_match (lexer, '='); + lex_match (lexer, T_EQUALS); if ( lex_match_id (lexer, "YES") ) { cd = true; @@ -116,7 +116,7 @@ cmd_insert (struct lexer *lexer, struct dataset *ds UNUSED) } else if (lex_match_id (lexer, "ERROR")) { - lex_match (lexer, '='); + lex_match (lexer, T_EQUALS); if ( lex_match_id (lexer, "CONTINUE") ) { error_mode = ERRMODE_CONTINUE; @@ -170,12 +170,12 @@ cmd_insert (struct lexer *lexer, struct dataset *ds UNUSED) static int parse_insert (struct lexer *lexer, char **filename) { - char *target_fn; + const char *target_fn; char *relative_filename; /* Skip optional FILE=. */ if (lex_match_id (lexer, "FILE")) - lex_match (lexer, '='); + lex_match (lexer, T_EQUALS); /* File name can be identifier or string. */ if (lex_token (lexer) != T_ID && !lex_is_string (lexer)) @@ -184,7 +184,7 @@ parse_insert (struct lexer *lexer, char **filename) return CMD_FAILURE; } - target_fn = ds_cstr (lex_tokstr (lexer)); + target_fn = lex_tokcstr (lexer); relative_filename = fn_search_path (target_fn,