src/var.h

   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 #if !var_h
  21 #define var_h 1
  22
  23
  24 #include <stddef.h>
  25 #include "config.h"
  26 #include "bool.h"
  27 #include "format.h"
  28 #include "val.h"
  29
  30
  31
  32 /* Script variables. */
  33
  34 /* Variable type. */
  35 enum
  36   {
  37     NUMERIC,                    /* A numeric variable. */
  38     ALPHA                       /* A string variable.  (STRING is pre-empted by lexer.h) */
  39   };
  40
  41 /* Types of missing values.  Order is significant, see
  42    mis-val.c:parse_numeric(), sfm-read.c, sfm-write.c,
  43    sysfile-info.c:cmd_sysfile_info(), mis-val.c:copy_missing_values(),
  44    pfm-read.c:read_variables(), pfm-write.c:write_variables(),
  45    apply-dict.c:cmd_apply_dictionary(), and more (?). */
  46 enum
  47   {
  48     MISSING_NONE,               /* No user-missing values. */
  49     MISSING_1,                  /* One user-missing value. */
  50     MISSING_2,                  /* Two user-missing values. */
  51     MISSING_3,                  /* Three user-missing values. */
  52     MISSING_RANGE,              /* [a,b]. */
  53     MISSING_LOW,                /* (-inf,a]. */
  54     MISSING_HIGH,               /* (a,+inf]. */
  55     MISSING_RANGE_1,            /* [a,b], c. */
  56     MISSING_LOW_1,              /* (-inf,a], b. */
  57     MISSING_HIGH_1,             /* (a,+inf), b. */
  58     MISSING_COUNT
  59   };
  60
  61
  62 /* A variable's dictionary entry.  */
  63 struct variable
  64   {
  65     char name[SHORT_NAME_LEN + 1];              /* As a string. */
  66     char *longname;             /* Pointer to entry in dictionary's table  */
  67     int index;                  /* Index into its dictionary's var[]. */
  68     int type;                   /* NUMERIC or ALPHA. */
  69
  70     int width;                  /* Size of string variables in chars. */
  71     int fv, nv;                 /* Index into `value's, number of values. */
  72     unsigned init : 1;          /* 1=VFM must init and possibly reinit. */
  73     unsigned reinit : 1;        /* Cases are: 1=reinitialized; 0=left. */
  74
  75     /* Missing values. */
  76     int miss_type;              /* One of the MISSING_* constants. */
  77     union value missing[3];     /* User-missing value. */
  78
  79     /* Display formats. */
  80     struct fmt_spec print;      /* Default format for PRINT. */
  81     struct fmt_spec write;      /* Default format for WRITE. */
  82
  83     /* Labels. */
  84     struct val_labs *val_labs;  /* Value labels. */
  85     char *label;                /* Variable label. */
  86
  87
  88     /* GUI display parameters */
  89     enum measure measure;       /* Nominal ordinal or continuous */
  90     int display_width;          /* Width of data editor column */
  91     enum alignment alignment;   /* Alignment of data in gui */
  92
  93     /* Per-command info. */
  94     void *aux;
  95     void (*aux_dtor) (struct variable *);
  96   };
  97
  98
  99 /* A tuple containing short names and longnames */
 100 struct name_table_entry
 101 {
 102   char *longname;
 103   char *name;
 104 };
 105
 106 bool var_is_valid_name (const char *, bool issue_error);
 107 int compare_var_names (const void *, const void *, void *);
 108 unsigned hash_var_name (const void *, void *);
 109
 110
 111 unsigned hash_long_name (const void *e_, void *aux UNUSED) ;
 112 int compare_long_names(const void *a_, const void *b_, void *aux);
 113
 114
 115 int compare_var_ptr_names (const void *, const void *, void *);
 116 unsigned hash_var_ptr_name (const void *, void *);
 117
 118 void *var_attach_aux (struct variable *,
 119                       void *aux, void (*aux_dtor) (struct variable *));
 120 void var_clear_aux (struct variable *);
 121 void *var_detach_aux (struct variable *);
 122 void var_dtor_free (struct variable *);
 123
 124 /* Classes of variables. */
 125 enum dict_class
 126   {
 127     DC_ORDINARY,                /* Ordinary identifier. */
 128     DC_SYSTEM,                  /* System variable. */
 129     DC_SCRATCH                  /* Scratch variable. */
 130   };
 131
 132 enum dict_class dict_class_from_id (const char *name);
 133 const char *dict_class_to_name (enum dict_class dict_class);
 134 \f
 135 /* Vector of variables. */
 136 struct vector
 137   {
 138     int idx;                    /* Index for dict_get_vector(). */
 139     char name[SHORT_NAME_LEN + 1];      /* Name. */
 140     struct variable **var;      /* Vector of variables. */
 141     int cnt;                    /* Number of variables. */
 142   };
 143 \f
 144 \f
 145 void discard_variables (void);
 146
 147 /* This is the active file dictionary. */
 148 extern struct dictionary *default_dict;
 149 \f
 150 /* Transformation state. */
 151
 152 /* Default file handle for DATA LIST, REREAD, REPEATING DATA
 153    commands. */
 154 extern struct file_handle *default_handle;
 155
 156 /* PROCESS IF expression. */
 157 extern struct expression *process_if_expr;
 158 \f
 159 /* TEMPORARY support. */
 160
 161 /* 1=TEMPORARY has been executed at some point. */
 162 extern int temporary;
 163
 164 /* If temporary!=0, the saved dictionary. */
 165 extern struct dictionary *temp_dict;
 166
 167 /* If temporary!=0, index into t_trns[] (declared far below) that
 168    gives the point at which data should be written out.  -1 means that
 169    the data shouldn't be changed since all transformations are
 170    temporary. */
 171 extern int temp_trns;
 172
 173 /* If FILTER is active, whether it was executed before or after
 174    TEMPORARY. */
 175 extern int FILTER_before_TEMPORARY;
 176
 177 void cancel_temporary (void);
 178 \f
 179 /* Functions. */
 180
 181 struct ccase;
 182 void dump_split_vars (const struct ccase *);
 183 typedef int (* is_missing_func )(const union value *, const struct variable *);
 184
 185 int is_num_user_missing (double, const struct variable *);
 186 int is_str_user_missing (const unsigned char[], const struct variable *);
 187 int is_missing (const union value *, const struct variable *);
 188 int is_system_missing (const union value *, const struct variable *);
 189 int is_user_missing (const union value *, const struct variable *);
 190 void copy_missing_values (struct variable *dest, const struct variable *src);
 191 \f
 192 /* Transformations. */
 193
 194 struct trns_header;
 195 typedef int trns_proc_func (struct trns_header *, struct ccase *, int);
 196 typedef void trns_free_func (struct trns_header *);
 197
 198 /* Header for all transformations. */
 199 struct trns_header
 200   {
 201     int index;                  /* Index into t_trns[]. */
 202     trns_proc_func *proc;       /* Transformation proc. */
 203     trns_free_func *free;       /* Garbage collector proc. */
 204   };
 205
 206 /* Array of transformations */
 207 extern struct trns_header **t_trns;
 208
 209 /* Number of transformations, maximum number in array currently. */
 210 extern int n_trns, m_trns;
 211
 212 /* Index of first transformation that is really a transformation.  Any
 213    transformations before this belong to INPUT PROGRAM. */
 214 extern int f_trns;
 215
 216 void add_transformation (struct trns_header *trns);
 217 void cancel_transformations (void);
 218 \f
 219 struct var_set;
 220
 221 struct var_set *var_set_create_from_dict (const struct dictionary *d);
 222 struct var_set *var_set_create_from_array (struct variable *const *var,
 223                                            size_t);
 224
 225 size_t var_set_get_cnt (const struct var_set *vs);
 226 struct variable *var_set_get_var (const struct var_set *vs, size_t idx);
 227 struct variable *var_set_lookup_var (const struct var_set *vs,
 228                                      const char *name);
 229 int var_set_lookup_var_idx (const struct var_set *vs, const char *name);
 230 void var_set_destroy (struct var_set *vs);
 231 \f
 232 /* Variable parsers. */
 233
 234 enum
 235   {
 236     PV_NONE = 0,                /* No options. */
 237     PV_SINGLE = 0001,           /* Restrict to a single name or TO use. */
 238     PV_DUPLICATE = 0002,        /* Don't merge duplicates. */
 239     PV_APPEND = 0004,           /* Append to existing list. */
 240     PV_NO_DUPLICATE = 0010,     /* Error on duplicates. */
 241     PV_NUMERIC = 0020,          /* Vars must be numeric. */
 242     PV_STRING = 0040,           /* Vars must be string. */
 243     PV_SAME_TYPE = 00100,       /* All vars must be the same type. */
 244     PV_NO_SCRATCH = 00200       /* Disallow scratch variables. */
 245   };
 246
 247 struct variable *parse_variable (void);
 248 struct variable *parse_dict_variable (const struct dictionary *);
 249 int parse_variables (const struct dictionary *, struct variable ***, int *,
 250                      int opts);
 251 int parse_var_set_vars (const struct var_set *, struct variable ***, int *,
 252                         int opts);
 253 int parse_DATA_LIST_vars (char ***names, int *cnt, int opts);
 254 int parse_mixed_vars (char ***names, int *cnt, int opts);
 255
 256
 257
 258 /* Return a string representing this variable, in the form most
 259    appropriate from a human factors perspective.
 260    (IE: the label if it has one, otherwise the name )
 261 */
 262 const char * var_to_string(const struct variable *var);
 263
 264
 265 #endif /* !var_h */