PS1 Script for setup a working environment

set_env.ps1

function _expand ($r_path) { return [IO.Path]::GetFullPath($r_path) }

function _path_append ($path) {
    $p = expand($path) ; $env:Path += ";" + $p 
    Write-Output ('PATH' + " = " + $path + ' + $PATH')
    }   

function _path_add ($path) { 
    $p = expand($path); $env:Path += $p + ";" + $env:Path 
    Write-Output ('PATH' + " += " + $path)
}

function _set ($name_val_pair) { 
    $e_val = _expand($name_val_pair[1])
    [Environment]::SetEnvironmentVariable($name_val_pair[0], $e_val, "Process") | Out-Null 
    Write-Output ($name_val_pair[0] + " = " + $e_val)
}

$SLASH = "C:"

# ================ Job ================

# _path_append ".\esp-idr"
_set("APP_PATH",  "./the_app")
_path_add("$SLASH/bin")
_path_append("$HOME/user_bin")