src/language/dictionary/variable-display.c

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