configuration.c 12.2 KB
Newer Older
Philip Carns's avatar
Philip Carns committed
1 2 3 4 5 6
/*
 * Copyright (C) 2013 University of Chicago.
 * See COPYRIGHT notice in top-level directory.
 *
 */

7 8
#include <stdio.h>
#include <stdlib.h>
9
#include <string.h>
10 11
#include <assert.h>
#include <errno.h>
12
#include <libgen.h>
13 14
#include "codes/configuration.h"

15 16 17 18 19
/*
 * Global to hold configuration in memory
 */
ConfigHandle config;

20 21 22
/* Global to hold LP configuration */
config_lpgroups_t lpconf;

23 24 25 26 27 28 29 30 31 32 33
int configuration_load (const char *filepath,
                        MPI_Comm comm,
                        ConfigHandle *handle)
{
    MPI_File   fh;
    MPI_Status status;
    MPI_Offset txtsize;
    FILE      *f;
    char      *txtdata;
    char      *error;
    int        rc;
34
    char      *tmp_path;
35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

    rc = MPI_File_open(comm, (char*)filepath, MPI_MODE_RDONLY, MPI_INFO_NULL, &fh);
    assert(rc == MPI_SUCCESS);

    rc = MPI_File_get_size(fh, &txtsize);
    assert(rc == MPI_SUCCESS);

    txtdata = malloc(txtsize);
    assert(txtdata); 

    rc = MPI_File_read_all(fh, txtdata, txtsize, MPI_BYTE, &status);
    assert(rc == MPI_SUCCESS);

    rc = MPI_File_close(&fh);
    assert(rc == MPI_SUCCESS);

51 52 53
#ifdef __APPLE__
    f = fopen(filepath, "r");
#else
54
    f = fmemopen(txtdata, txtsize, "rb");
55
#endif
56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71
    assert(f);

    *handle = txtfile_openStream(f, &error);
    if (error)
    {
        fprintf(stderr, "config error: %s\n", error);
        free(error);
        rc = 1;
    }
    else
    {
        rc = 0;
    }

    fclose(f);

72 73 74 75
    /* NOTE: posix version overwrites argument :(. */
    tmp_path = strdup(filepath);
    (*handle)->config_dir = strdup(dirname(tmp_path));
    free(tmp_path);
76

77 78 79
    if (rc == 0)
        configuration_get_lpgroups(handle, "LPGROUPS", &lpconf);

80 81 82 83 84 85
    return rc;
}

int configuration_get_value(ConfigHandle *handle,
                            const char *section_name,
                            const char *key_name,
86
                            const char *annotation,
87 88 89 90 91
                            char *value,
                            size_t len)
{
    SectionHandle section_handle;
    int           rc;
92 93 94 95 96 97 98 99 100 101 102 103 104
    // reading directly from the config, so need to inject the annotation
    // directly into the search string
    char key_name_tmp[CONFIGURATION_MAX_NAME];
    char *key_name_full;
    if (annotation==NULL){
        // sorry const type... we promise we won't change you
        key_name_full = (char*) key_name;
    }
    else{
        assert(snprintf(key_name_tmp, CONFIGURATION_MAX_NAME, "%s@%s",
                    key_name, annotation) < CONFIGURATION_MAX_NAME);
        key_name_full = key_name_tmp;
    }
105 106 107 108

    rc = cf_openSection(*handle, ROOT_SECTION, section_name, &section_handle);
    assert(rc == 1);

109
    rc = cf_getKey(*handle, section_handle, key_name_full, value, len);
110 111 112 113 114 115 116
    assert(rc);

    (void) cf_closeSection(*handle, section_handle);

    return rc;
}

117 118 119 120
int configuration_get_value_relpath(
        ConfigHandle *handle,
        const char * section_name,
        const char * key_name,
121
        const char *annotation,
122 123 124 125
        char *value,
        size_t length){
    char *tmp = malloc(length);

126 127
    configuration_get_value(handle, section_name, key_name, annotation, tmp,
            length);
128 129 130 131 132 133 134 135

    /* concat the configuration value with the directory */
    int w = snprintf(value, length, "%s/%s", (*handle)->config_dir, tmp);

    free(tmp);
    return w;
}

136 137 138
int configuration_get_multivalue(ConfigHandle *handle,
                                 const char *section_name,
                                 const char *key_name,
139
                                 const char *annotation,
140 141 142 143 144
                                 char ***values,
                                 size_t *len)
{
    SectionHandle section_handle;
    int           rc;
145 146 147 148 149 150 151 152 153 154 155 156 157
    // reading directly from the config, so need to inject the annotation
    // directly into the search string
    char key_name_tmp[CONFIGURATION_MAX_NAME];
    char *key_name_full;
    if (annotation==NULL){
        // sorry const type... we promise we won't change you
        key_name_full = (char*) key_name;
    }
    else{
        assert(snprintf(key_name_tmp, CONFIGURATION_MAX_NAME, "%s@%s",
                    key_name, annotation) < CONFIGURATION_MAX_NAME);
        key_name_full = key_name_tmp;
    }
158 159 160 161

    rc = cf_openSection(*handle, ROOT_SECTION, section_name, &section_handle);
    assert(rc == 1);

162
    rc = cf_getMultiKey(*handle, section_handle, key_name_full, values, len);
163 164 165 166 167 168 169
    assert(rc);

    (void) cf_closeSection(*handle, section_handle);

    return rc;
}

170 171 172
int configuration_get_value_int (ConfigHandle *handle,
                                 const char *section_name,
                                 const char *key_name,
173
                                 const char *annotation,
174 175 176 177 178 179 180 181 182
                                 int *value)
{
    char valuestr[256];
    int rc = 1;
    int r;

    r = configuration_get_value(handle,
                                section_name,
                                key_name,
183
                                annotation,
184 185 186 187 188 189 190 191 192 193 194 195 196 197
                                valuestr,
                                sizeof(valuestr));
    if (r > 0)
    {
        *value = atoi(valuestr);
        rc = 0;
    }

    return rc;
}

int configuration_get_value_uint (ConfigHandle *handle,
                                  const char *section_name,
                                  const char *key_name,
198
                                  const char *annotation,
199 200 201 202 203 204 205 206 207
                                  unsigned int *value)
{
    char valuestr[256];
    int rc = 1;
    int r;

    r = configuration_get_value(handle,
                                section_name,
                                key_name,
208
                                annotation,
209 210 211 212 213 214 215 216 217 218 219 220 221 222
                                valuestr,
                                sizeof(valuestr));
    if (r > 0)
    {
        *value = (unsigned int) atoi(valuestr);
        rc = 0;
    }

    return rc;
}

int configuration_get_value_longint (ConfigHandle *handle,
                                     const char *section_name,
                                     const char *key_name,
223
                                     const char *annotation,
224 225 226 227 228 229 230 231 232
                                     long int *value)
{
    char valuestr[256];
    int rc = 1;
    int r;

    r = configuration_get_value(handle,
                                section_name,
                                key_name,
233
                                annotation,
234 235 236 237 238 239 240 241 242 243 244 245 246 247 248
                                valuestr,
                                sizeof(valuestr));
    if (r > 0)
    {
        errno = 0;
        *value = strtol(valuestr, NULL, 10);
        rc = errno;
    }

    return rc;
}

int configuration_get_value_double (ConfigHandle *handle,
                                    const char *section_name,
                                    const char *key_name,
249
                                    const char *annotation,
250 251 252 253 254 255 256 257 258
                                    double *value)
{
    char valuestr[256];
    int rc = 1;
    int r;

    r = configuration_get_value(handle,
                                section_name,
                                key_name,
259
                                annotation,
260 261 262 263 264 265 266 267 268 269 270 271
                                valuestr,
                                sizeof(valuestr));
    if (r > 0)
    {
        errno = 0;
        *value = strtod(valuestr, NULL);
        rc = errno;
    }

    return rc;
}

272 273 274 275
static void check_add_anno(
        const char *anno,
        config_anno_map_t *map){
    if (anno[0] == '\0'){
276
        map->has_unanno_lp = 1;
277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312
    }
    else{
        uint64_t a = 0;
        for (; a < map->num_annos; a++){
            if (strcmp(map->annotations[a], anno) == 0){
                map->num_anno_lps[a]++;
                break;
            }
        }
        if (a == map->num_annos){
            // we have a new anno!
            assert(a < CONFIGURATION_MAX_ANNOS);
            map->annotations[a] = strdup(anno);
            map->num_annos++;
            map->num_anno_lps[a] = 1;
        } // else anno was already there, do nothing
    }
}
static void check_add_lp_type_anno(
        const char *lp_name,
        const char *anno,
        config_lpgroups_t *lpgroups){
    uint64_t lpt_anno = 0;
    for (; lpt_anno < lpgroups->lpannos_count; lpt_anno++){
        config_anno_map_t *map = &lpgroups->lpannos[lpt_anno];
        if (strcmp(map->lp_name, lp_name) == 0){
            check_add_anno(anno, map);
        }
    }
    if (lpt_anno == lpgroups->lpannos_count){
        // we haven't seen this lp type before
        assert(lpt_anno < CONFIGURATION_MAX_TYPES);
        config_anno_map_t *map = &lpgroups->lpannos[lpt_anno];
        // initialize this annotation map
        strcpy(map->lp_name, lp_name);
        map->num_annos = 0;
313
        map->has_unanno_lp = 0;
314 315 316 317 318 319 320
        memset(map->num_anno_lps, 0, 
                CONFIGURATION_MAX_ANNOS*sizeof(*map->num_anno_lps));
        check_add_anno(anno, map);
        lpgroups->lpannos_count++;
    }
}

321 322 323
int configuration_get_lpgroups (ConfigHandle *handle,
                                const char *section_name,
                                config_lpgroups_t *lpgroups)
324 325 326 327 328 329 330 331 332 333
{
    SectionHandle sh;
    SectionHandle subsh;
    SectionEntry se[10];
    SectionEntry subse[10];
    size_t se_count = 10;
    size_t subse_count = 10;
    int i, j, lpt;
    char data[256];

334
    memset (lpgroups, 0, sizeof(*lpgroups));
335

336 337
    cf_openSection(*handle, ROOT_SECTION, section_name, &sh);
    cf_listSection(*handle, sh, se, &se_count); 
338 339 340

    for (i = 0; i < se_count; i++)
    {
341
        //printf("section: %s type: %d\n", se[i].name, se[i].type);
342 343 344
        if (se[i].type == SE_SECTION)
        {
            subse_count = 10;
345 346 347
            cf_openSection(*handle, sh, se[i].name, &subsh);
            cf_listSection(*handle, subsh, subse, &subse_count);
            strncpy(lpgroups->lpgroups[i].name, se[i].name,
348
                    CONFIGURATION_MAX_NAME);
349 350
            lpgroups->lpgroups[i].repetitions = 1;
            lpgroups->lpgroups_count++;
351 352 353 354
            for (j = 0, lpt = 0; j < subse_count; j++)
            {
                if (subse[j].type == SE_KEY)
                {
355 356
                   cf_getKey(*handle, subsh, subse[j].name, data, sizeof(data));
                   //printf("key: %s value: %s\n", subse[j].name, data);
357 358
                   if (strcmp("repetitions", subse[j].name) == 0)
                   {
359 360
                       lpgroups->lpgroups[i].repetitions = atoi(data);
		       //printf("\n Repetitions: %ld ", lpgroups->lpgroups[i].repetitions);
361 362 363
                   }
                   else
                   {
364 365 366
                       size_t s = sizeof(lpgroups->lpgroups[i].lptypes[lpt].name);
                       char *nm   = lpgroups->lpgroups[i].lptypes[lpt].name;
                       char *anno = lpgroups->lpgroups[i].lptypes[lpt].anno;
367
                       // assume these are lptypes and counts
368 369 370 371 372 373 374 375 376 377 378
                       strncpy(nm, subse[j].name, s-1);
                       lpgroups->lpgroups[i].lptypes[lpt].name[s-1] = '\0';

                       char *c = strchr(nm, '@');
                       if (c) {
                           strcpy(anno, c+1);
                           *c = '\0';
                       }
                       else {
                           anno[0] = '\0';
                       }
379 380
                       // add to anno map
                       check_add_lp_type_anno(nm, anno, lpgroups);
381 382
                       lpgroups->lpgroups[i].lptypes[lpt].count = atoi(data);
                       lpgroups->lpgroups[i].lptypes_count++;
383 384 385 386
                       lpt++;
                   }
                }
            }
387
            cf_closeSection(*handle, subsh);
388 389 390
        }
    }

391
    cf_closeSection(*handle, sh);
392 393 394
    
    return 0;
}
Philip Carns's avatar
Philip Carns committed
395

396 397 398 399 400
/*
 * Helper function - get the position in the LP annotation list of the
 * given annotation. Used for configuration schemes where an array of
 * configuration values is generated based on the annotations in
 * config_anno_map_t
401 402
 * If anno is not found or a NULL anno is passed in,
 * -1 is returned */
403 404
int configuration_get_annotation_index(const char *              anno,
                                       const config_anno_map_t * anno_map){
405
    if (anno == NULL) return -1;
406
    for (uint64_t i = 0; i < anno_map->num_annos; i++){
407
        if (!strcmp(anno, anno_map->annotations[i])){
408 409 410 411 412 413
            return (int)i;
        }
    }
    return -1;
}

Philip Carns's avatar
Philip Carns committed
414 415 416 417 418 419 420 421
/*
 * Local variables:
 *  c-indent-level: 4
 *  c-basic-offset: 4
 * End:
 *
 * vim: ts=8 sts=4 sw=4 expandtab
 */