src/language/dictionary/variable-display.c

   1 /* PSPP - computes sample statistics.
   2    Copyright (C) 1997-9, 2000 Free Software Foundation, Inc.
   3
   4    This program is free software; you can redistribute it and/or
   5    modify it under the terms of the GNU General Public License as
   6    published by the Free Software Foundation; either version 2 of the
   7    License, or (at your option) any later version.
   8
   9    This program is distributed in the hope that it will be useful, but
  10    WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12    General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program; if not, write to the Free Software
  16    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  17    02110-1301, USA. */
  18
  19 #include <config.h>
  20
  21 #include <stdio.h>
  22 #include <stdlib.h>
  23
  24 #include <data/procedure.h>
  25 #include <data/variable.h>
  26 #include <language/command.h>
  27 #include <language/lexer/lexer.h>
  28 #include <language/lexer/variable-parser.h>
  29 #include <libpspp/alloc.h>
  30 #include <libpspp/message.h>
  31 #include <libpspp/str.h>
  32
  33 /* Set variables' alignment
  34    This is the alignment for GUI display only.
  35    It affects nothing but GUIs
  36 */
  37 int
  38 cmd_variable_alignment (struct lexer *lexer, struct dataset *ds)
  39 {
  40   do
  41     {
  42       struct variable **v;
  43       size_t nv;
  44
  45       size_t i;
  46       enum alignment align;
  47
  48       if (!parse_variables (lexer, dataset_dict (ds), &v, &nv, PV_NONE))
  49         return CMD_FAILURE;
  50
  51       if ( lex_force_match (lexer, '(') )
  52         {
  53           if ( lex_match_id (lexer, "LEFT"))
  54             align = ALIGN_LEFT;
  55           else if ( lex_match_id (lexer, "RIGHT"))
  56             align = ALIGN_RIGHT;
  57           else if ( lex_match_id (lexer, "CENTER"))
  58             align = ALIGN_CENTRE;
  59           else
  60             {
  61               free (v);
  62               return CMD_FAILURE;
  63             }
  64
  65           lex_force_match (lexer, ')');
  66         }
  67       else
  68         {
  69           free (v);
  70           return CMD_FAILURE;
  71         }
  72
  73       for( i = 0 ; i < nv ; ++i )
  74         var_set_alignment (v[i], align);
  75
  76       while (lex_token (lexer) == '/')
  77         lex_get (lexer);
  78       free (v);
  79
  80     }
  81   while (lex_token (lexer) != '.');
  82   return CMD_SUCCESS;
  83 }
  84
  85 /* Set variables' display width.
  86    This is the width for GUI display only.
  87    It affects nothing but GUIs
  88 */
  89 int
  90 cmd_variable_width (struct lexer *lexer, struct dataset *ds)
  91 {
  92   do
  93     {
  94       struct variable **v;
  95       size_t nv;
  96       size_t i;
  97
  98       if (!parse_variables (lexer, dataset_dict (ds), &v, &nv, PV_NONE))
  99         return CMD_FAILURE;
 100
 101       if ( lex_force_match (lexer, '(') )
 102         {
 103           if ( lex_force_int (lexer))
 104             lex_get (lexer);
 105           else
 106             return CMD_FAILURE;
 107           lex_force_match (lexer, ')');
 108         }
 109
 110       for( i = 0 ; i < nv ; ++i )
 111         var_set_display_width (v[i], lex_integer (lexer));
 112
 113       while (lex_token (lexer) == '/')
 114         lex_get (lexer);
 115       free (v);
 116
 117     }
 118   while (lex_token (lexer) != '.');
 119   return CMD_SUCCESS;
 120 }
 121
 122 /* Set variables' measurement level */
 123 int
 124 cmd_variable_level (struct lexer *lexer, struct dataset *ds)
 125 {
 126   do
 127     {
 128       struct variable **v;
 129       size_t nv;
 130       enum measure level;
 131       size_t i;
 132
 133       if (!parse_variables (lexer, dataset_dict (ds), &v, &nv, PV_NONE))
 134         return CMD_FAILURE;
 135
 136       if ( lex_force_match (lexer, '(') )
 137         {
 138           if ( lex_match_id (lexer, "SCALE"))
 139             level = MEASURE_SCALE;
 140           else if ( lex_match_id (lexer, "ORDINAL"))
 141             level = MEASURE_ORDINAL;
 142           else if ( lex_match_id (lexer, "NOMINAL"))
 143             level = MEASURE_NOMINAL;
 144           else
 145             {
 146               free (v);
 147               return CMD_FAILURE;
 148             }
 149
 150           lex_force_match (lexer, ')');
 151         }
 152       else
 153         {
 154           free (v);
 155           return CMD_FAILURE;
 156         }
 157
 158       for( i = 0 ; i < nv ; ++i )
 159         var_set_measure (v[i], level);
 160
 161
 162       while (lex_token (lexer) == '/')
 163         lex_get (lexer);
 164       free (v);
 165
 166     }
 167   while (lex_token (lexer) != '.');
 168   return CMD_SUCCESS;
 169 }