Files
mgmt/test/shell/env0.mcl
Johan Bloemberg f33f84d2f2 lang: Add getenv function
$x = getenv("NAME")
    $y = defaultenv("NOTEXIST", "defaultvalue")
    $z = hasenv("NAME")
    $a = env()
    $b = maplookup($a, "NAME", "defaultvalue")
2018-02-23 20:02:13 +01:00

20 lines
427 B
Plaintext

$tmpdir = defaultenv("TMPDIR", "/tmp")
$x = getenv("TEST")
$y = getenv("DOESNOTEXIST")
$z = getenv("EMPTY")
$a = defaultenv("TEST", "321")
$b = defaultenv("DOESNOTEXIST", "321")
$c = defaultenv("EMPTY", "456")
$t = hasenv("TEST")
$f = hasenv("DOESNOTEXIST")
$env = env()
$m = maplookup($env, "TEST", "321")
file "${tmpdir}/environ" {
content => printf("%s,%s,%s:%s,%s,%s:%t,%t:%s", $x, $y, $z, $a, $b, $c, $t, $f, $m),
}