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 }