src/shared/CONFIGSIMPLE.pas

   1 unit CONFIGSIMPLE;
   2
   3 interface
   4
   5 function config_open(FileName: string): Boolean;
   6 function config_read_int(param: string; def: Integer): Integer;
   7 function config_read_str(param: string; def: string): string;
   8 function config_read_bool(param: string; def: Boolean): Boolean;
   9 procedure config_close();
  10
  11 implementation
  12
  13 uses windows;
  14
  15 var
  16   cfg_data: array of ShortString = nil;
  17
  18 function tostr(i: Integer): string;
  19 begin
  20  Str(i, Result);
  21 end;
  22
  23 function toint(s: string; var i: Integer): Boolean;
  24 var
  25   code: Integer;
  26 begin
  27  Val(s, i, code);
  28
  29  Result := code = 0;
  30 end;
  31
  32 function readparam(param: string; var s: string): Boolean;
  33 var
  34   a, b, len, d_len: Integer;
  35 begin
  36  Result := False;
  37
  38  if cfg_data = nil then Exit;
  39
  40  d_len := Length(cfg_data);
  41
  42  for a := 0 to d_len do
  43  begin
  44   len := Length(cfg_data[a]);
  45   if len = 0 then Exit;
  46
  47   for b := 1 to len do
  48    if cfg_data[a][b] = '=' then
  49     if Copy(cfg_data[a], 1, b-1) = param then
  50     begin
  51      s := Copy(cfg_data[a], b+1, len);
  52      Result := True;
  53      Exit;
  54     end;
  55  end;
  56 end;
  57
  58 function config_open(FileName: string): Boolean;
  59 var
  60   f: TextFile;
  61   str: ShortString;
  62   len, d_len, line: Integer;
  63 begin
  64  Result := False;
  65
  66  if cfg_data <> nil then config_close();
  67
  68  AssignFile(f, findFileCIStr(FileName));
  69
  70  {$I-}
  71  Reset(f);
  72  {$I+}
  73
  74  if IOResult <> 0 then Exit;
  75
  76  d_len := 32;
  77  SetLength(cfg_data, d_len);
  78  line := 0;
  79
  80  while not EOF(f) do
  81  begin
  82   Readln(f, str);
  83
  84   len := Length(str);
  85   if len < 3 then Continue;
  86   if str[1] = ';' then Continue;
  87
  88   if line >= d_len then
  89   begin
  90    d_len := d_len+32;
  91    SetLength(cfg_data, d_len);
  92   end;
  93
  94   cfg_data[line] := str;
  95   line := line+1;
  96  end;
  97
  98  CloseFile(f);
  99
 100  Result := True;
 101 end;
 102
 103 function config_read_int(param: string; def: Integer): Integer;
 104 var
 105   s: string;
 106 begin
 107  Result := def;
 108
 109  if not readparam(param, s) then Exit;
 110
 111  if not toint(s, Result) then Result := def;
 112 end;
 113
 114 function config_read_str(param: string; def: string): string;
 115 var
 116   s: string;
 117 begin
 118  Result := def;
 119
 120  if not readparam(param, s) then Exit;
 121
 122  Result := s;
 123 end;
 124
 125 function config_read_bool(param: string; def: Boolean): Boolean;
 126 var
 127   s: string;
 128 begin
 129  Result := def;
 130
 131  if not readparam(param, s) then Exit;
 132
 133  Result := s <> '0';
 134 end;
 135
 136 procedure config_close();
 137 begin
 138  if cfg_data <> nil then cfg_data := nil;
 139 end;
 140
 141
 142 end.