dca7b4760777b96e267808719b6dcf3930f41c38
[pspp] / src / title.c
1 /* PSPP - computes sample statistics.
2    Copyright (C) 1997-9, 2000 Free Software Foundation, Inc.
3    Written by Ben Pfaff <blp@gnu.org>.
4
5    This program is free software; you can redistribute it and/or
6    modify it under the terms of the GNU General Public License as
7    published by the Free Software Foundation; either version 2 of the
8    License, or (at your option) any later version.
9
10    This program is distributed in the hope that it will be useful, but
11    WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    General Public License for more details.
14
15    You should have received a copy of the GNU General Public License
16    along with this program; if not, write to the Free Software
17    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
18    02111-1307, USA. */
19
20 #include <config.h>
21 #include <ctype.h>
22 #include <stdlib.h>
23 #include "alloc.h"
24 #include "command.h"
25 #include "error.h"
26 #include "lexer.h"
27 #include "main.h"
28 #include "output.h"
29 #include "var.h"
30 #include "version.h"
31 #include "vfm.h"
32
33 #include "debug-print.h"
34
35 static int get_title (const char *cmd, char **title);
36
37 int
38 cmd_title (void)
39 {
40   return get_title ("TITLE", &outp_title);
41 }
42
43 int
44 cmd_subtitle (void)
45 {
46   return get_title ("SUBTITLE", &outp_subtitle);
47 }
48
49 static int
50 get_title (const char *cmd, char **title)
51 {
52   int c;
53
54   c = lex_look_ahead ();
55   debug_printf ((_("%s before: %s\n"), cmd, *title ? *title : _("<none>")));
56   if (c == '"' || c == '\'')
57     {
58       lex_get ();
59       if (!lex_force_string ())
60         return CMD_FAILURE;
61       if (*title)
62         free (*title);
63       *title = xstrdup (ds_value (&tokstr));
64       lex_get ();
65       if (token != '.')
66         {
67           msg (SE, _("%s: `.' expected after string."), cmd);
68           return CMD_FAILURE;
69         }
70     }
71   else
72     {
73       char *cp;
74
75       if (*title)
76         free (*title);
77       *title = xstrdup (lex_rest_of_line (NULL));
78       for (cp = *title; *cp; cp++)
79         *cp = toupper ((unsigned char) (*cp));
80       token = '.';
81     }
82   debug_printf ((_("%s after: %s\n"), cmd, *title));
83   return CMD_SUCCESS;
84 }
85
86 /* Performs the FILE LABEL command. */
87 int
88 cmd_file_label (void)
89 {
90   char *label;
91
92   label = lex_rest_of_line (NULL);
93   while (isspace ((unsigned char) *label))
94     label++;
95
96   dict_set_label (default_dict, label);
97   token = '.';
98
99   return CMD_SUCCESS;
100 }
101
102 /* Add LINE as a line of document information to default_dict,
103    indented by INDENT spaces. */
104 static void
105 add_document_line (const char *line, int indent)
106 {
107   const char *old_documents;
108   size_t old_len;
109   char *new_documents;
110
111   old_documents = dict_get_documents (default_dict);
112   old_len = old_documents != NULL ? strlen (old_documents) : 0;
113   new_documents = xmalloc (old_len + 81);
114
115   memcpy (new_documents, old_documents, old_len);
116   memset (new_documents + old_len, ' ', indent);
117   st_bare_pad_copy (new_documents + old_len + indent, line, 80 - indent);
118   new_documents[old_len + 80] = '\0';
119
120   dict_set_documents (default_dict, new_documents);
121
122   free (new_documents);
123 }
124
125 /* Performs the DOCUMENT command. */
126 int
127 cmd_document (void)
128 {
129   /* Add a few header lines for reference. */
130   {
131     char buf[256];
132     struct tm *tmp = localtime (&last_vfm_invocation);
133
134     if (dict_get_documents (default_dict) != NULL)
135       add_document_line ("", 0);
136
137     sprintf (buf, _("Document entered %s %02d:%02d:%02d by %s (%s):"),
138              curdate, tmp->tm_hour, tmp->tm_min, tmp->tm_sec, version,
139              host_system);
140     add_document_line (buf, 1);
141   }
142
143   for (;;)
144     {
145       int had_dot;
146       char *line;
147
148       line = lex_rest_of_line (&had_dot);
149       while (isspace ((unsigned char) *line))
150         line++;
151
152       if (had_dot)
153         {
154           char *cp = strchr (line, 0);
155           *cp++ = '.';
156           *cp = 0;
157         }
158
159       add_document_line (line, 3);
160
161       lex_get_line ();
162       if (had_dot)
163         break;
164     }
165
166   token = '.';
167   return CMD_SUCCESS;
168 }
169
170 /* Performs the DROP DOCUMENTS command. */
171 int
172 cmd_drop_documents (void)
173 {
174   lex_match_id ("DROP");
175   lex_match_id ("DOCUMENTS");
176
177   dict_set_documents (default_dict, NULL);
178
179   return lex_end_of_command ();
180 }