Read a configuration file: Difference between revisions

{{task|File handling}}

 

 

# This is a configuration file in standard configuration file format

#

# program. Blank lines are also ignored by the application program.

OTHERFAMILY Rhu Barber, Harry Barber

 

For the task we need to set four variables according to the configuration entries as follows:

*needspeeling = true

*seedsremoved = false

 

We also have an option that contains multiple parameters. These may be stored in an array.

* otherfamily(2) = Harry Barber

 

 

 

 

 

 

 

 

 

 

 

begin

 

<pre>

 

=={{header|AutoHotkey}}==

 

; Author: AlephX, Aug 18 2011

data = %A_scriptdir%\rosettaconfig.txt

}

msgbox, FULLNAME %fullname%`nFAVOURITEFRUIT %FAVOURITEFRUIT%`nNEEDSPEELING %NEEDSPEELING%`nSEEDSREMOVED %SEEDSREMOVED%`nOTHERFAMILY %OTHERFAMILY1% + %OTHERFAMILY2%

 

 

 

=={{header|BBC BASIC}}==

{{works with|BBC BASIC for Windows}}

NAME = 2

ARRAY = 3

WHEN ARRAY: = !^array$()

ENDCASE

<pre>

fullname = Foo Barber

otherfamily(2) = Harry Barber

</pre>

 

=={{header|C++}}==

'''unoptimized'''

 

#include <iostream>

#include <fstream>

return 0;

}

 

<pre>Fullname= Foo Barber

Favorite Fruit= banana

 

'''Solution without Boost libraries. No optimisation.'''

#include <iomanip>

#include <string>

read_config(inp,outp);

}

 

<pre>Full Name: Foo Barber

Favourite Fruit: banana

Seeds removed?: False

Other family members: Rhu Barber, Harry Barber</pre>

 

=={{header|D}}==

 

 

static if (is(typeof(Var) == string))

static if (is(typeof(Var) == bool))

static if (is(typeof(Var) == int))

}

}

 

}

 

=={{header|Fantom}}==

 

class Main

{

}

}

 

=={{header|Go}}==

This make assumptions about the way the config file is supposed to be structured similar to the ones made by the Python solution.

 

import (

 

return v, nil

 

Usage example:

 

import (

fmt.Printf("SEEDSREMOVED: %q\n", seedsremoved)

fmt.Printf("OTHERFAMILY: %q\n", otherfamily)

 

=={{header|Haskell}}==

 

import Data.Char

import Data.List

defaultConfig :: Config

defaultConfig = Config "" "" False False []

 

Or, use Data.Configfile:

 

import Data.ConfigFile

import Data.Either.Utils

let username = getSetting cp "username"

password = getSetting cp "password"

This works with configuration files in standard format, i.e.,

# this is a comment

username = myname

 

=={{header|J}}==

 

set=:4 :'(x)=:y'

 

cfg cfgBoolean 'seedsremoved'

i.0 0

 

Example use:

 

(,' = ',]&.do)&>;: 'fullname favouritefruit needspeeling seedsremoved'

fullname = Foo Barber

favouritefruit = banana

needspeeling = 1

 

=={{header|Liberty BASIC}}==

dim confKeys$(100)

dim confValues$(100)

next i

end function

 

<pre>Full name: Foo Barber

likes: banana

 

=={{header|Lua}}==

 

fp = io.open( "conf.txt", "r" )

print( "", entry )

end

 

=={{header|MATLAB}} / {{header|Octave}}==

This is defined as a function, parameters are returned as part of a struct. When the first line, and the assignment to return values are removed, it is a script that stores the parameters in the local workspace.

 

% READCONF reads configuration file.

%

fclose(fid);

whos, % shows the parameter in the local workspace

 

<pre>R=readconf('file.conf')

}

</pre>

=={{header|OCaml}}==

 

Using the library [http://homepage.mac.com/letaris/ ocaml-inifiles]:

 

#require "inifiles"

open Inifiles

print_endline "other family:";

List.iter (Printf.printf "- %s\n") v;

 

The file "conf.ini":

</pre>

 

<pre>$ ocaml conf.ml

Full name: Foo Barber

</pre>

 

 

This solution makes use of FCL-STL package shipped with FPC >= 2.6.0, moreover it can be run directly like a script (just chmod +x) using the new instantfpc feature.

 

 

{$if not defined(fpc) or (fpc_fullversion < 20600)}

ConfigValues.Free;

ConfigStrings.Free;

 

FAVOURITEFRUIT = banana

NEEDSPEELING = True

SEEDSREMOVED = False

OTHERFAMILY(1) = Rhu Barber

 

=={{header|Perl}}==

This is an all-singing, all-dancing version that checks the configuration file syntax and contents and raises exceptions if it fails. (It is intentionally over-commented for pedagogical purposes.)

my $favouritefruit;

my $needspeeling;

}

}

 

 

 

 

 

 

 

 

 

 

 

=={{header|PicoLisp}}==

(while (read)

=={{header|PL/I}}==

set: procedure options (main);

declare text character (100) varying;

 

end set;

<pre>

FULLNAME='Foo Barber';

OTHERFAMILY(1)='Rhu Barber';

OTHERFAMILY(2)='Harry Barber';

</pre>

 

=={{header|Python}}==

This task is not well-defined, so we have to make some assumptions (see comments in code).

ret = {}

with file(fn) as fp:

conf = readconf(sys.argv[1])

for k, v in sorted(conf.items()):

 

 

 

 

 

 

</pre>