projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add stub for USE ALL.
[pspp]
/
src
/
repeat.c
diff --git
a/src/repeat.c
b/src/repeat.c
index 09809fde1e5414d9043158cf898e2ff50d349203..c3236744a298b6dfd402207dfac404aaa7e28fff 100644
(file)
--- a/
src/repeat.c
+++ b/
src/repeat.c
@@
-24,7
+24,6
@@
#include <math.h>
#include <stdlib.h>
#include "alloc.h"
#include <math.h>
#include <stdlib.h>
#include "alloc.h"
-#include "cases.h"
#include "command.h"
#include "error.h"
#include "getline.h"
#include "command.h"
#include "error.h"
#include "getline.h"
@@
-139,9
+138,6
@@
internal_cmd_do_repeat (void)
int print;
/* The first step is parsing the DO REPEAT command itself. */
int print;
/* The first step is parsing the DO REPEAT command itself. */
- lex_match_id ("DO");
- lex_match_id ("REPEAT");
-
count = 0;
line_buf_head = NULL;
do
count = 0;
line_buf_head = NULL;
do
@@
-329,14
+325,7
@@
internal_cmd_do_repeat (void)
{
/* Note that if the variable already exists there is no
harm done. */
{
/* Note that if the variable already exists there is no
harm done. */
- struct variable *v = dict_create_var (default_dict,
- iter->replacement[i],
- 0);
-
- /* If we created the variable then we need to initialize
- its observations to SYSMIS. */
- if (v)
- envector (v);
+ dict_create_var (default_dict, iter->replacement[i], 0);
}
}
}
}
}
}
@@
-556,7
+545,7
@@
perform_DO_REPEAT_substitutions (void)
while (ds_length (&getl_buf) > 0
&& isspace ((unsigned char) ds_end (&getl_buf)[-1]))
ds_truncate (&getl_buf, ds_length (&getl_buf) - 1);
while (ds_length (&getl_buf) > 0
&& isspace ((unsigned char) ds_end (&getl_buf)[-1]))
ds_truncate (&getl_buf, ds_length (&getl_buf) - 1);
- if (ds_length (&getl_buf) > 0 && ds_end (&getl_buf)[-1] ==
set_endcmd
)
+ if (ds_length (&getl_buf) > 0 && ds_end (&getl_buf)[-1] ==
get_endcmd()
)
{
dot = 1;
ds_truncate (&getl_buf, ds_length (&getl_buf) - 1);
{
dot = 1;
ds_truncate (&getl_buf, ds_length (&getl_buf) - 1);
@@
-600,7
+589,7
@@
perform_DO_REPEAT_substitutions (void)
}
}
if (dot)
}
}
if (dot)
- ds_putchar (&output,
(unsigned char) set_endcmd
);
+ ds_putchar (&output,
get_endcmd()
);
ds_destroy (&getl_buf);
getl_buf = output;
ds_destroy (&getl_buf);
getl_buf = output;