projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Correct name of function fn_is_special. Thanks to John McCabe-Dansted
[pspp]
/
src
/
language
/
utilities
/
permissions.c
diff --git
a/src/language/utilities/permissions.c
b/src/language/utilities/permissions.c
index 03b2241a38472efcaf0e1511140ba24122f0960e..15a89c5c64106b2e1ed4d96aa178985049e89eac 100644
(file)
--- a/
src/language/utilities/permissions.c
+++ b/
src/language/utilities/permissions.c
@@
-1,6
+1,5
@@
/* PSPP - computes sample statistics.
Copyright (C) 2004 Free Software Foundation, Inc.
/* PSPP - computes sample statistics.
Copyright (C) 2004 Free Software Foundation, Inc.
- Author: John Darrington
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as
@@
-42,32
+41,32
@@
int change_permissions(const char *file_name, enum PER per);
/* Parses the PERMISSIONS command. */
int
/* Parses the PERMISSIONS command. */
int
-cmd_permissions (
void
)
+cmd_permissions (
struct lexer *lexer, struct dataset *ds UNUSED
)
{
char *fn = 0;
{
char *fn = 0;
- lex_match ('/');
+ lex_match (
lexer,
'/');
- if (lex_match_id ("FILE"))
- lex_match ('=');
+ if (lex_match_id (
lexer,
"FILE"))
+ lex_match (
lexer,
'=');
- fn = ds_xstrdup (
&tokstr
);
- lex_force_match
(
T_STRING);
+ fn = ds_xstrdup (
lex_tokstr (lexer)
);
+ lex_force_match
(lexer,
T_STRING);
- lex_match ('/');
+ lex_match (
lexer,
'/');
- if ( ! lex_match_id ("PERMISSIONS"))
+ if ( ! lex_match_id (
lexer,
"PERMISSIONS"))
goto error;
goto error;
- lex_match
(
'=');
+ lex_match
(lexer,
'=');
- if ( lex_match_id
(
"READONLY"))
+ if ( lex_match_id
(lexer,
"READONLY"))
{
if ( ! change_permissions(fn, PER_RO ) )
goto error;
}
{
if ( ! change_permissions(fn, PER_RO ) )
goto error;
}
- else if ( lex_match_id
(
"WRITEABLE"))
+ else if ( lex_match_id
(lexer,
"WRITEABLE"))
{
if ( ! change_permissions(fn, PER_RW ) )
goto error;
{
if ( ! change_permissions(fn, PER_RW ) )
goto error;