pintos-os.org Git - pspp/blob - src/language/utilities/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., 51 Franklin Street, Fifth Floor, Boston, MA
  18    02110-1301, USA. */
  19
  20 #include <config.h>
  21 #include <ctype.h>
  22 #include <stdlib.h>
  23 #include <libpspp/alloc.h>
  24 #include <language/command.h>
  25 #include <data/dictionary.h>
  26 #include <libpspp/message.h>
  27 #include <language/lexer/lexer.h>
  28 #include <output/output.h>
  29 #include <libpspp/start-date.h>
  30 #include <data/variable.h>
  31 #include <libpspp/version.h>
  32 #include <procedure.h>
  33
  34 #include "gettext.h"
  35 #define _(msgid) gettext (msgid)
  36
  37 #include <libpspp/debug-print.h>
  38
  39 static int get_title (const char *cmd, char **title);
  40
  41 int
  42 cmd_title (void)
  43 {
  44   return get_title ("TITLE", &outp_title);
  45 }
  46
  47 int
  48 cmd_subtitle (void)
  49 {
  50   return get_title ("SUBTITLE", &outp_subtitle);
  51 }
  52
  53 static int
  54 get_title (const char *cmd, char **title)
  55 {
  56   int c;
  57
  58   c = lex_look_ahead ();
  59   debug_printf ((_("%s before: %s\n"), cmd, *title ? *title : _("<none>")));
  60   if (c == '"' || c == '\'')
  61     {
  62       lex_get ();
  63       if (!lex_force_string ())
  64         return CMD_FAILURE;
  65       if (*title)
  66         free (*title);
  67       *title = xstrdup (ds_c_str (&tokstr));
  68       lex_get ();
  69       if (token != '.')
  70         {
  71           msg (SE, _("%s: `.' expected after string."), cmd);
  72           return CMD_FAILURE;
  73         }
  74     }
  75   else
  76     {
  77       char *cp;
  78
  79       if (*title)
  80         free (*title);
  81       *title = xstrdup (lex_rest_of_line (NULL));
  82       lex_discard_line ();
  83       for (cp = *title; *cp; cp++)
  84         *cp = toupper ((unsigned char) (*cp));
  85       token = '.';
  86     }
  87   debug_printf ((_("%s after: %s\n"), cmd, *title));
  88   return CMD_SUCCESS;
  89 }
  90
  91 /* Performs the FILE LABEL command. */
  92 int
  93 cmd_file_label (void)
  94 {
  95   const char *label;
  96
  97   label = lex_rest_of_line (NULL);
  98   lex_discard_line ();
  99   while (isspace ((unsigned char) *label))
 100     label++;
 101
 102   dict_set_label (default_dict, label);
 103   token = '.';
 104
 105   return CMD_SUCCESS;
 106 }
 107
 108 /* Add LINE as a line of document information to default_dict,
 109    indented by INDENT spaces. */
 110 static void
 111 add_document_line (const char *line, int indent)
 112 {
 113   const char *old_documents;
 114   size_t old_len;
 115   char *new_documents;
 116
 117   old_documents = dict_get_documents (default_dict);
 118   old_len = old_documents != NULL ? strlen (old_documents) : 0;
 119   new_documents = xmalloc (old_len + 81);
 120
 121   memcpy (new_documents, old_documents, old_len);
 122   memset (new_documents + old_len, ' ', indent);
 123   buf_copy_str_rpad (new_documents + old_len + indent, 80 - indent, line);
 124   new_documents[old_len + 80] = '\0';
 125
 126   dict_set_documents (default_dict, new_documents);
 127
 128   free (new_documents);
 129 }
 130
 131 /* Performs the DOCUMENT command. */
 132 int
 133 cmd_document (void)
 134 {
 135   /* Add a few header lines for reference. */
 136   {
 137     char buf[256];
 138
 139     if (dict_get_documents (default_dict) != NULL)
 140       add_document_line ("", 0);
 141
 142     sprintf (buf, _("Document entered %s by %s:"), get_start_date (), version);
 143     add_document_line (buf, 1);
 144   }
 145
 146   for (;;)
 147     {
 148       int had_dot;
 149       const char *orig_line;
 150       char *copy_line;
 151
 152       orig_line = lex_rest_of_line (&had_dot);
 153       lex_discard_line ();
 154       while (isspace ((unsigned char) *orig_line))
 155         orig_line++;
 156
 157       copy_line = xmalloc (strlen (orig_line) + 2);
 158       strcpy (copy_line, orig_line);
 159       if (had_dot)
 160         strcat (copy_line, ".");
 161
 162       add_document_line (copy_line, 3);
 163       free (copy_line);
 164
 165       lex_get_line ();
 166       if (had_dot)
 167         break;
 168     }
 169
 170   token = '.';
 171   return CMD_SUCCESS;
 172 }
 173
 174 /* Performs the DROP DOCUMENTS command. */
 175 int
 176 cmd_drop_documents (void)
 177 {
 178   dict_set_documents (default_dict, NULL);
 179
 180   return lex_end_of_command ();
 181 }