X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Futilities%2Finclude.c;h=19a5baa465dec0bb32b3b07e9d7e84a1009f1076;hb=f1ae4ee2876bee191b1bf79672d4bf834750c227;hp=b0823eafcb72a8e4954b55c9dc72b558d3c6dc9e;hpb=450bd01ed7355f7420cf436d60620f4078661eff;p=pspp diff --git a/src/language/utilities/include.c b/src/language/utilities/include.c index b0823eafcb..19a5baa465 100644 --- a/src/language/utilities/include.c +++ b/src/language/utilities/include.c @@ -23,7 +23,6 @@ #include #include "data/dataset.h" -#include "data/file-name.h" #include "data/session.h" #include "language/command.h" #include "language/lexer/include-path.h" @@ -62,11 +61,14 @@ do_insert (struct lexer *lexer, struct dataset *ds, enum variant variant) if (!lex_force_string_or_id (lexer)) return CMD_FAILURE; - relative_name = utf8_to_filename (lex_tokcstr (lexer)); + relative_name = utf8_to_filename (lex_tokcstr (lexer)); + if (NULL == relative_name) + return CMD_FAILURE; + filename = include_path_search (relative_name); free (relative_name); - if ( ! filename) + if (! filename) { msg (SE, _("Can't find `%s' in include file search path."), lex_tokcstr (lexer)); @@ -80,7 +82,7 @@ do_insert (struct lexer *lexer, struct dataset *ds, enum variant variant) status = CMD_FAILURE; encoding = xstrdup (session_get_default_syntax_encoding ( dataset_session (ds))); - while ( T_ENDCMD != lex_token (lexer)) + while (T_ENDCMD != lex_token (lexer)) { if (lex_match_id (lexer, "ENCODING")) { @@ -95,50 +97,49 @@ do_insert (struct lexer *lexer, struct dataset *ds, enum variant variant) else if (variant == INSERT && lex_match_id (lexer, "SYNTAX")) { lex_match (lexer, T_EQUALS); - if ( lex_match_id (lexer, "INTERACTIVE") ) + if (lex_match_id (lexer, "INTERACTIVE")) syntax_mode = LEX_SYNTAX_INTERACTIVE; - else if ( lex_match_id (lexer, "BATCH")) + else if (lex_match_id (lexer, "BATCH")) syntax_mode = LEX_SYNTAX_BATCH; - else if ( lex_match_id (lexer, "AUTO")) + else if (lex_match_id (lexer, "AUTO")) syntax_mode = LEX_SYNTAX_AUTO; else { - lex_error_expecting (lexer, "BATCH", "INTERACTIVE", "AUTO", - NULL_SENTINEL); + lex_error_expecting (lexer, "BATCH", "INTERACTIVE", "AUTO"); goto exit; } } else if (variant == INSERT && lex_match_id (lexer, "CD")) { lex_match (lexer, T_EQUALS); - if ( lex_match_id (lexer, "YES") ) + if (lex_match_id (lexer, "YES")) { cd = true; } - else if ( lex_match_id (lexer, "NO")) + else if (lex_match_id (lexer, "NO")) { cd = false; } else { - lex_error_expecting (lexer, "YES", "NO", NULL_SENTINEL); + lex_error_expecting (lexer, "YES", "NO"); goto exit; } } else if (variant == INSERT && lex_match_id (lexer, "ERROR")) { lex_match (lexer, T_EQUALS); - if ( lex_match_id (lexer, "CONTINUE") ) + if (lex_match_id (lexer, "CONTINUE")) { error_mode = LEX_ERROR_CONTINUE; } - else if ( lex_match_id (lexer, "STOP")) + else if (lex_match_id (lexer, "STOP")) { error_mode = LEX_ERROR_STOP; } else { - lex_error_expecting (lexer, "CONTINUE", "STOP", NULL_SENTINEL); + lex_error_expecting (lexer, "CONTINUE", "STOP"); goto exit; } } @@ -151,7 +152,7 @@ do_insert (struct lexer *lexer, struct dataset *ds, enum variant variant) } status = lex_end_of_command (lexer); - if ( status == CMD_SUCCESS) + if (status == CMD_SUCCESS) { struct lex_reader *reader; @@ -162,7 +163,7 @@ do_insert (struct lexer *lexer, struct dataset *ds, enum variant variant) lex_discard_rest_of_command (lexer); lex_include (lexer, reader); - if ( cd ) + if (cd) { char *directory = dir_name (filename); chdir (directory);