lang: Add getenv function

$x = getenv("NAME")
    $y = defaultenv("NOTEXIST", "defaultvalue")
    $z = hasenv("NAME")
    $a = env()
    $b = maplookup($a, "NAME", "defaultvalue")
This commit is contained in:
Johan Bloemberg
2018-02-22 14:52:21 +01:00
parent a785a43ef3
commit f33f84d2f2
4 changed files with 144 additions and 0 deletions

20
examples/lang/env0.mcl Normal file
View File

@@ -0,0 +1,20 @@
# read and print environment variable
# env TEST=123 EMPTY= ./mgmt run --tmp-prefix --lang=examples/lang/env0.mcl --converged-timeout=5
$x = getenv("TEST", "321")
print "print1" {
msg => printf("the value of the environment variable TEST is: %s", $x),
}
$y = getenv("DOESNOTEXIT", "321")
print "print2" {
msg => printf("environment variable DOESNOTEXIT does not exist, defaulting to: %s", $y),
}
$z = getenv("EMPTY", "456")
print "print3" {
msg => printf("same goes for epmty variables like EMPTY: %s", $z),
}