/* Read and parse the .netrc file to get hosts, accounts, and passwords.
- Copyright (C) 1996, 2007 Free Software Foundation, Inc.
+ Copyright (C) 1996, 2007, 2008 Free Software Foundation, Inc.
This file is part of GNU Wget.
/* Find ~/.netrc. */
if (!processed_netrc)
{
+#ifdef __VMS
+
+ int err;
+ struct_stat buf;
+ char *path = "SYS$LOGIN:.netrc";
+
+ netrc_list = NULL;
+ processed_netrc = 1;
+
+ err = stat (path, &buf);
+ if (err == 0)
+ netrc_list = parse_netrc (path);
+
+#else /* def __VMS */
+
char *home = home_dir ();
netrc_list = NULL;
if (err == 0)
netrc_list = parse_netrc (path);
}
+
+#endif /* def __VMS [else] */
}
/* If nothing to do... */
if (!netrc_list)
char *line, *p, *tok;
const char *premature_token;
acc_t *current, *retval;
- int ln, quote;
+ int ln, qmark;
/* The latest token we've seen in the file. */
enum
/* Parse the line. */
p = line;
- quote = 0;
+ qmark = 0;
/* Skip leading whitespace. */
while (*p && c_isspace (*p))
/* If the token starts with quotation mark, note this fact,
and squash the quotation character */
if (*p == '"'){
- quote = 1;
+ qmark = 1;
shift_left (p);
}
tok = p;
/* Find the end of the token, handling quotes and escapes. */
- while (*p && (quote ? *p != '"' : !c_isspace (*p))){
+ while (*p && (qmark ? *p != '"' : !c_isspace (*p))){
if (*p == '\\')
shift_left (p);
p ++;
}
/* If field was quoted, squash the trailing quotation mark
- and reset quote flag. */
- if (quote)
+ and reset qmark flag. */
+ if (qmark)
{
shift_left (p);
- quote = 0;
+ qmark = 0;
}
/* Null-terminate the token, if it isn't already. */
if (premature_token)
{
fprintf (stderr, _("\
-%s: %s:%d: warning: \"%s\" token appears before any machine name\n"),
- exec_name, path, ln, premature_token);
+%s: %s:%d: warning: %s token appears before any machine name\n"),
+ exec_name, path, ln, quote (premature_token));
premature_token = NULL;
}