rt/gc/cdgc/opts.d

   1 /**
   2  * This module contains the options managemente code of the garbage collector.
   3  *
   4  * Copyright: Copyright (C) 2010 Leandro Lucarella <http://www.llucax.com.ar/>
   5  *            All rights reserved.
   6  *
   7  * License: Boost Software License - Version 1.0 - August 17th, 2003
   8  *
   9  * Permission is hereby granted, free of charge, to any person or organization
  10  * obtaining a copy of the software and accompanying documentation covered by
  11  * this license (the "Software") to use, reproduce, display, distribute,
  12  * execute, and transmit the Software, and to prepare derivative works of the
  13  * Software, and to permit third-parties to whom the Software is furnished to
  14  * do so, all subject to the following:
  15  *
  16  * The copyright notices in the Software and this entire statement, including
  17  * the above license grant, this restriction and the following disclaimer,
  18  * must be included in all copies of the Software, in whole or in part, and
  19  * all derivative works of the Software, unless such copies or derivative
  20  * works are solely in the form of machine-executable object code generated by
  21  * a source language processor.
  22  *
  23  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  24  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  25  * FITNESS FOR A PARTICULAR PURPOSE, TITLE AND NON-INFRINGEMENT. IN NO EVENT
  26  * SHALL THE COPYRIGHT HOLDERS OR ANYONE DISTRIBUTING THE SOFTWARE BE LIABLE
  27  * FOR ANY DAMAGES OR OTHER LIABILITY, WHETHER IN CONTRACT, TORT OR OTHERWISE,
  28  * ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
  29  * DEALINGS IN THE SOFTWARE.
  30  *
  31  * Authors: Leandro Lucarella
  32  */
  33
  34 module rt.gc.cdgc.opts;
  35
  36 import cstdlib = tango.stdc.stdlib;
  37 import cstring = tango.stdc.string;
  38
  39
  40 private:
  41
  42
  43 const MAX_OPT_LEN = 256;
  44
  45
  46 struct Options
  47 {
  48     uint verbose = 0;
  49     char[MAX_OPT_LEN] log_file = "";
  50     char[MAX_OPT_LEN] malloc_stats_file = "";
  51     char[MAX_OPT_LEN] collect_stats_file = "";
  52     bool sentinel = false;
  53     bool mem_stomp = false;
  54 }
  55
  56 package Options options;
  57
  58
  59 bool cstr_eq(char* s1, char* s2)
  60 {
  61     return cstring.strcmp(s1, s2) == 0;
  62 }
  63
  64
  65 bool parse_bool(char* value)
  66 {
  67     if (value[0] == '\0')
  68         return true;
  69     return (cstdlib.atoi(value) != 0);
  70 }
  71
  72
  73 void process_option(char* opt_name, char* opt_value)
  74 {
  75     if (cstr_eq(opt_name, "verbose"))
  76         options.verbose = cstdlib.atoi(opt_value);
  77     else if (cstr_eq(opt_name, "log_file"))
  78         cstring.strcpy(options.log_file.ptr, opt_value);
  79     else if (cstr_eq(opt_name, "malloc_stats_file"))
  80         cstring.strcpy(options.malloc_stats_file.ptr, opt_value);
  81     else if (cstr_eq(opt_name, "collect_stats_file"))
  82         cstring.strcpy(options.collect_stats_file.ptr, opt_value);
  83     else if (cstr_eq(opt_name, "sentinel"))
  84         options.sentinel = parse_bool(opt_value);
  85     else if (cstr_eq(opt_name, "mem_stomp"))
  86         options.mem_stomp = parse_bool(opt_value);
  87 }
  88
  89
  90 package void parse(char* opts_string)
  91 {
  92     char[MAX_OPT_LEN] opt_name;
  93     char[MAX_OPT_LEN] opt_value;
  94     char* curr = opt_name.ptr;
  95     size_t i = 0;
  96     if (opts_string is null)
  97         return;
  98     for (; *opts_string != '\0'; opts_string++)
  99     {
 100         char c = *opts_string;
 101         if (i == MAX_OPT_LEN)
 102         {
 103             if (c != ':')
 104                 continue;
 105             else
 106                 i--;
 107         }
 108         switch (*opts_string)
 109         {
 110         case ':':
 111             curr[i] = '\0';
 112             process_option(opt_name.ptr, opt_value.ptr);
 113             i = 0;
 114             opt_name[0] = '\0';
 115             opt_value[0] = '\0';
 116             curr = opt_name.ptr;
 117             break;
 118         case '=':
 119             opt_name[i] = '\0';
 120             curr = opt_value.ptr;
 121             i = 0;
 122             break;
 123         default:
 124             curr[i] = c;
 125             ++i;
 126         }
 127     }
 128     if (i == MAX_OPT_LEN)
 129         i--;
 130     curr[i] = '\0';
 131     process_option(opt_name.ptr, opt_value.ptr);
 132 }
 133
 134
 135 unittest
 136 {
 137     with (options) {
 138         assert (verbose == 0);
 139         assert (log_file[0] == '\0');
 140         assert (sentinel == false);
 141         assert (mem_stomp == false);
 142     }
 143     parse("mem_stomp=1:verbose=2");
 144     with (options) {
 145         assert (verbose == 2);
 146         assert (log_file[0] == '\0');
 147         assert (sentinel == false);
 148         assert (mem_stomp == true);
 149     }
 150     parse("log_file=12345 67890:verbose=1:sentinel=4:mem_stomp=0");
 151     with (options) {
 152         assert (verbose == 1);
 153         assert (cstring.strcmp(log_file.ptr, "12345 67890".ptr) == 0);
 154         assert (sentinel == true);
 155         assert (mem_stomp == false);
 156     }
 157     parse(null);
 158     with (options) {
 159         assert (verbose == 1);
 160         assert (cstring.strcmp(log_file.ptr, "12345 67890".ptr) == 0);
 161         assert (sentinel == true);
 162         assert (mem_stomp == false);
 163     }
 164 }
 165
 166
 167 // vim: set et sw=4 sts=4 :