tasks a-s

Task/Environment-variables/0DESCRIPTION

@@ -0,0 +1 @@
+Show how to get one of your process's [[wp:Environment variable|environment variables]]. The available variables vary by system; some of the common ones available on Unix include PATH, HOME, USER.

Task/Environment-variables/1META.yaml

@@ -0,0 +1,5 @@
+---
+category:
+- Environment variables
+- Initialization
+note: Programming environment operations

Task/Environment-variables/ALGOL-68/environment-variables.alg

@@ -0,0 +1 @@
+print((getenv("HOME"), new line))

Task/Environment-variables/AWK/environment-variables-1.awk

@@ -0,0 +1,2 @@
+$ awk 'BEGIN{print "HOME:"ENVIRON["HOME"],"USER:"ENVIRON["USER"]}'
+HOME:/home/suchrich USER:SuchRich

Task/Environment-variables/AWK/environment-variables-2.awk

@@ -0,0 +1,2 @@
+$ awk -v h=$HOME -v u=$USER 'BEGIN{print "HOME:"h,"USER:"u}'
+HOME:/home/suchrich USER:SuchRich

Task/Environment-variables/Ada/environment-variables-1.ada

@@ -0,0 +1,7 @@
+with Ada.Environment_Variables; use Ada.Environment_Variables;
+with Ada.Text_Io; use Ada.Text_Io;
+
+procedure Print_Path is
+begin
+   Put_Line("Path : " & Value("PATH"));
+end Print_Path;

Task/Environment-variables/Ada/environment-variables-2.ada

@@ -0,0 +1,11 @@
+with Ada.Environment_Variables; use Ada.Environment_Variables;
+with Ada.Text_Io; use Ada.Text_Io;
+
+procedure Env_Vars is
+   procedure Print_Vars(Name, Value : in String) is
+   begin
+      Put_Line(Name & " : " & Value);
+   end Print_Vars;
+begin
+   Iterate(Print_Vars'access);
+end Env_Vars;

Task/Environment-variables/Ada/environment-variables-3.ada

@@ -0,0 +1,15 @@
+with Ada.Wide_Wide_Text_IO;
+
+with League.Application;
+with League.Strings;
+
+procedure Main is
+
+   function "+"
+    (Item : Wide_Wide_String) return League.Strings.Universal_String
+       renames League.Strings.To_Universal_String;
+
+begin
+   Ada.Wide_Wide_Text_IO.Put_Line
+    (League.Application.Environment.Value (+"HOME").To_Wide_Wide_String);
+end Main;

Task/Environment-variables/AutoHotkey/environment-variables.ahk

@@ -0,0 +1,2 @@
+EnvGet, OutputVar, Path
+MsgBox, %OutputVar%

Task/Environment-variables/BASIC/environment-variables-1.basic

@@ -0,0 +1,2 @@
+x$ = ENVIRON$("path")
+PRINT x$

Task/Environment-variables/BASIC/environment-variables-2.basic

@@ -0,0 +1,3 @@
+10 PRINT "The border colour is "; PEEK (23624): REM bordcr
+20 PRINT "The ramtop address is "; PEEK (23730) + 256 * PEEK (23731): REM ramtop
+30 POKE 23609,50: REM set keyboard pip to 50

Task/Environment-variables/BBC-BASIC/environment-variables.bbc

@@ -0,0 +1,10 @@
+      PRINT FNenvironment("PATH")
+      PRINT FNenvironment("USERNAME")
+      END
+
+      DEF FNenvironment(envar$)
+      LOCAL buffer%, size%
+      SYS "GetEnvironmentVariable", envar$, 0, 0 TO size%
+      DIM buffer% LOCAL size%
+      SYS "GetEnvironmentVariable", envar$, buffer%, size%+1
+      = $$buffer%

Task/Environment-variables/Batch-File/environment-variables-1.bat

@@ -0,0 +1 @@
+echo %Foo%

Task/Environment-variables/Batch-File/environment-variables-2.bat

@@ -0,0 +1,2 @@
+set
+set Foo

Task/Environment-variables/C++/environment-variables.cpp

@@ -0,0 +1,8 @@
+#include <cstdlib>
+#include <cstdio>
+
+int main()
+{
+   puts(getenv("HOME"));
+   return 0;
+}

Task/Environment-variables/C/environment-variables.c

@@ -0,0 +1,7 @@
+#include <stdlib.h>
+#include <stdio.h>
+
+int main() {
+  puts(getenv("HOME"));
+  return 0;
+}

Task/Environment-variables/Clojure/environment-variables.clj

@@ -0,0 +1 @@
+(System/getenv "HOME")

Task/Environment-variables/CoffeeScript/environment-variables.coffeescript

@@ -0,0 +1,2 @@
+for var_name in ['PATH', 'HOME', 'LANG', 'USER']
+  console.log var_name, process.env[var_name]

Task/Environment-variables/Common-Lisp/environment-variables-1.lisp

@@ -0,0 +1 @@
+(lispworks:environment-variable "USER")

Task/Environment-variables/Common-Lisp/environment-variables-2.lisp

@@ -0,0 +1 @@
+(sb-ext:posix-getenv "USER")

Task/Environment-variables/Common-Lisp/environment-variables-3.lisp

@@ -0,0 +1 @@
+(ccl:getenv "USER")

Task/Environment-variables/Common-Lisp/environment-variables-4.lisp

@@ -0,0 +1 @@
+(getenv "HOME")

Task/Environment-variables/D/environment-variables-1.d

@@ -0,0 +1,5 @@
+import std.stdio, std.process;
+
+void main() {
+    auto home = getenv("HOME");
+}

Task/Environment-variables/D/environment-variables-2.d

@@ -0,0 +1,5 @@
+import tango.sys.Environment;
+
+void main() {
+    auto home = Environment("HOME");
+}

Task/Environment-variables/Delphi/environment-variables.delphi

@@ -0,0 +1,9 @@
+program EnvironmentVariable;
+
+{$APPTYPE CONSOLE}
+
+uses SysUtils;
+
+begin
+  WriteLn('Temp = ' + GetEnvironmentVariable('TEMP'));
+end.

Task/Environment-variables/E/environment-variables.e

@@ -0,0 +1 @@
+<unsafe:java.lang.System>.getenv("HOME")

Task/Environment-variables/Eiffel/environment-variables.e

@@ -0,0 +1,13 @@
+class
+    APPLICATION
+inherit
+    EXECUTION_ENVIRONMENT
+create
+    make
+feature {NONE} -- Initialization
+    make
+            -- Retrieve and print value for environment variable `USERNAME'.
+        do
+            print (get ("USERNAME"))
+        end
+end

Task/Environment-variables/Emacs-Lisp/environment-variables.l

@@ -0,0 +1 @@
+(getenv "HOME")

Task/Environment-variables/Euphoria/environment-variables.euphoria

@@ -0,0 +1 @@
+puts(1,getenv("PATH"))

Task/Environment-variables/Factor/environment-variables.factor

@@ -0,0 +1 @@
+"HOME" os-env print

Task/Environment-variables/Forth/environment-variables.fth

@@ -0,0 +1 @@
+s" HOME" getenv type

Task/Environment-variables/Fortran/environment-variables.f

@@ -0,0 +1,15 @@
+program show_home
+implicit none
+character(len=32) :: home_val  ! The string value of the variable HOME
+integer           :: home_len  ! The actual length of the value
+integer           :: stat      ! The status of the value:
+                               !  0 = ok
+                               !  1 = variable does not exist
+                               ! -1 = variable is not long enought to hold the result
+call get_environment_variable('HOME', home_val, home_len, stat)
+if (stat == 0) then
+    write(*,'(a)') 'HOME = '//trim(home_val)
+else
+    write(*,'(a)') 'No HOME to go to!'
+end if
+end program show_home

Task/Environment-variables/Go/environment-variables-1.go

@@ -0,0 +1,10 @@
+package main
+
+import (
+    "fmt"
+    "os"
+)
+
+func main() {
+    fmt.Println(os.Getenv("SHELL"))
+}

Task/Environment-variables/Go/environment-variables-2.go

@@ -0,0 +1,19 @@
+package main
+
+import (
+    "fmt"
+    "os"
+    "strings"
+)
+
+func main() {
+    s := "SHELL"
+    se := s + "="
+    for _, v := range os.Environ() {
+        if strings.HasPrefix(v, se) {
+            fmt.Println(s, "has value", v[len(se):])
+            return
+        }
+    }
+    fmt.Println(s, "not found")
+}

Task/Environment-variables/Groovy/environment-variables.groovy

@@ -0,0 +1 @@
+System.getenv().each { property, value -> println "$property = $value"}

Task/Environment-variables/Haskell/environment-variables.hs

@@ -0,0 +1,3 @@
+import System.Environment
+main = do getEnv "HOME" >>= print  -- get env var
+          getEnvironment >>= print -- get the entire environment as a list of (key, value) pairs

Task/Environment-variables/HicEst/environment-variables.hicest

@@ -0,0 +1,4 @@
+CHARACTER string*255
+
+string = "PATH="
+SYSTEM(GEteNV = string)

Task/Environment-variables/Icon/environment-variables.icon

@@ -0,0 +1,7 @@
+procedure main(arglist)
+
+if *envars = 0 then envars := ["HOME", "TRACE", "BLKSIZE","STRSIZE","COEXPSIZE","MSTKSIZE", "IPATH","LPATH","NOERRBUF"]
+
+every v := !sort(envars) do
+   write(v," = ",image(getenv(v))|"* not set *")
+end

Task/Environment-variables/J/environment-variables.j

@@ -0,0 +1 @@
+2!:5'HOME'

Task/Environment-variables/Java/environment-variables.java

@@ -0,0 +1,2 @@
+System.getenv("HOME") // get env var
+System.getenv()       // get the entire environment as a Map of keys to values

Task/Environment-variables/JavaScript/environment-variables.js

@@ -0,0 +1,3 @@
+var shell = new ActiveXObject("WScript.Shell");
+var env = shell.Environment("PROCESS");
+WScript.echo('SYSTEMROOT=' + env.item('SYSTEMROOT'));

Task/Environment-variables/Joy/environment-variables.joy

@@ -0,0 +1 @@
+"HOME" getenv.

Task/Environment-variables/K/environment-variables.k

@@ -0,0 +1 @@
+_getenv "HOME"

Task/Environment-variables/LSL/environment-variables.lsl

@@ -0,0 +1,8 @@
+default {
+	state_entry() {
+		llOwnerSay("llGetTimestamp()="+(string)llGetTimestamp());
+		llOwnerSay("llGetEnergy()="+(string)llGetEnergy());
+		llOwnerSay("llGetFreeMemory()="+(string)llGetFreeMemory());
+		llOwnerSay("llGetMemoryLimit()="+(string)llGetMemoryLimit());
+	}
+}

Task/Environment-variables/Liberty-BASIC/environment-variables-1.liberty

@@ -0,0 +1,2 @@
+print StartupDir$
+print DefaultDir$

Task/Environment-variables/Liberty-BASIC/environment-variables-2.liberty

@@ -0,0 +1,29 @@
+print GetEnvironmentVariable$("USERNAME")
+    print GetEnvironmentVariable$("USERPROFILE") ' equivalent to UNIX HOME variable
+    print GetEnvironmentVariable$("PATH")
+    end
+
+function GetEnvironmentVariable$(lpName$)
+    'get the value of an environment variable
+    nSize = 1024
+
+[Retry]
+    lpBuffer$ = space$(nSize)
+
+    calldll #kernel32, "GetEnvironmentVariableA", _
+        lpName$   as ptr, _
+        lpBuffer$ as ptr, _
+        nSize     as ulong, _
+        result    as ulong
+
+    select case
+        ' buffer too small
+        case result > nSize
+        nSize = result
+        goto [Retry]
+
+        ' variable found
+        case result > 0
+        GetEnvironmentVariable$ = left$(lpBuffer$, result)
+    end select
+end function

Task/Environment-variables/Lua/environment-variables.lua

@@ -0,0 +1 @@
+print( os.getenv( "PATH" ) )

Task/Environment-variables/MATLAB/environment-variables.m

@@ -0,0 +1,3 @@
+    getenv('HOME')
+    getenv('PATH')
+    getenv('USER')

Task/Environment-variables/MUMPS/environment-variables.mumps

@@ -0,0 +1,2 @@
+ Set X=$ZF(-1,"show logical")
+ Set X=$ZF(-1,"show symbol")

Task/Environment-variables/Mathematica/environment-variables.math

@@ -0,0 +1 @@
+Environment["PATH"]

Task/Environment-variables/Mercury/environment-variables.mercury

@@ -0,0 +1,18 @@
+:- module env_var.
+:- interface.
+
+:- import_module io.
+:- pred main(io::di, io::uo) is det.
+
+:- implementation.
+:- import_module maybe, string.
+
+main(!IO) :-
+    io.get_environment_var("HOME", MaybeValue, !IO),
+    (
+        MaybeValue = yes(Value),
+        io.write_string("HOME is " ++ Value ++ "\n", !IO)
+    ;
+        MaybeValue = no,
+        io.write_string("environment variable HOME not set\n", !IO)
+    ).

Task/Environment-variables/NSIS/environment-variables.nsis

@@ -0,0 +1,3 @@
+ExpandEnvStrings $0 "%PATH%" ; Retrieve PATH and place it in builtin register 0.
+ExpandEnvStrings $1 "%USERPROFILE%" ; Retrieve the user's profile location and place it in builtin register 1.
+ExpandEnvStrings $2 "%USERNAME%" ; Retrieve the user's account name and place it in builtin register 2.

Task/Environment-variables/NetRexx/environment-variables.netrexx

@@ -0,0 +1,60 @@
+/* NetRexx */
+options replace format comments java crossref symbols nobinary
+
+runSample(arg)
+return
+
+-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+method sysEnvironment(vn = '') public static
+  if vn.length > 0 then do
+    envName = vn
+    envValu = System.getenv(envName)
+    if envValu = null then envValu = ''
+    say envName '=' envValu
+    end
+  else do
+    envVars = System.getenv()
+    key = String
+    loop key over envVars.keySet()
+      envName = key
+      envValu = String envVars.get(key)
+      say envName '=' envValu
+      end key
+    end
+  return
+
+-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+method sysProperties(vn = '') public static
+  if vn.length > 0 then do
+    propName = vn
+    propValu = System.getProperty(propName)
+    if propValu = null then propValu = ''
+    say propName '=' propValu
+    end
+  else do
+    sysProps = System.getProperties()
+    key = String
+    loop key over sysProps.keySet()
+      propName = key
+      propValu = sysProps.getProperty(key)
+      say propName '=' propValu
+      end key
+    end
+  return
+
+-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+method runSample(arg) public static
+  parse arg ev pv .
+  if ev = '' then ev = 'CLASSPATH'
+  if pv = '' then pv = 'java.class.path'
+  say '-'.left(80, '-').overlay(' Environment "'ev'" ', 5)
+  sysEnvironment(ev)
+  say '-'.left(80, '-').overlay(' Properties "'pv'" ', 5)
+  sysProperties(pv)
+  say
+  say '-'.left(80, '-').overlay(' Environment ', 5)
+  sysEnvironment()
+  say '-'.left(80, '-').overlay(' Properties ', 5)
+  sysProperties()
+  say
+  return

Task/Environment-variables/NewLISP/environment-variables.newlisp

@@ -0,0 +1,4 @@
+> (env "SHELL")
+"/bin/zsh"
+> (env "TERM")
+"xterm"

Task/Environment-variables/OCaml/environment-variables.ocaml

@@ -0,0 +1 @@
+Sys.getenv "HOME"

Task/Environment-variables/Objective-C/environment-variables.m

@@ -0,0 +1 @@
+[[[NSProcessInfo processInfo] environment] objectForKey:@"HOME"]

Task/Environment-variables/Oz/environment-variables.oz

@@ -0,0 +1 @@
+{System.showInfo "This is where Mozart is installed: "#{OS.getEnv 'OZHOME'}}

Task/Environment-variables/PARI-GP/environment-variables-1.pari

@@ -0,0 +1 @@
+getenv("HOME")

Task/Environment-variables/PARI-GP/environment-variables-2.pari

@@ -0,0 +1 @@
+externstr("echo $HOME")

Task/Environment-variables/PARI-GP/environment-variables-3.pari

@@ -0,0 +1 @@
+extern("echo \"\\\"$HOME\\\"\"")

Task/Environment-variables/PARI-GP/environment-variables-4.pari

@@ -0,0 +1 @@
+echo "\"$HOME\""

Task/Environment-variables/PARI-GP/environment-variables-5.pari

@@ -0,0 +1 @@
+extern("echo Pi")

Task/Environment-variables/PHP/environment-variables.php

@@ -0,0 +1 @@
+$_ENV['HOME']

Task/Environment-variables/Perl-6/environment-variables.pl6

@@ -0,0 +1 @@
+say %*ENV<HOME>;

Task/Environment-variables/Perl/environment-variables.pl

@@ -0,0 +1 @@
+print $ENV{HOME}, "\n";

Task/Environment-variables/PicoLisp/environment-variables.l

@@ -0,0 +1,5 @@
+: (sys "TERM")
+-> "xterm"
+
+: (sys "SHELL")
+-> "/bin/bash"

Task/Environment-variables/PowerShell/environment-variables-1.psh

@@ -0,0 +1 @@
+$Env:Path

Task/Environment-variables/PowerShell/environment-variables-2.psh

@@ -0,0 +1 @@
+Get-ChildItem Env:

Task/Environment-variables/PureBasic/environment-variables-1.purebasic

@@ -0,0 +1 @@
+GetEnvironmentVariable("Name")

Task/Environment-variables/PureBasic/environment-variables-2.purebasic

@@ -0,0 +1,8 @@
+If OpenConsole()
+  PrintN("Path:"+#CRLF$ + GetEnvironmentVariable("PATH"))
+  PrintN(#CRLF$+#CRLF$+"NUMBER_OF_PROCESSORS= "+ GetEnvironmentVariable("NUMBER_OF_PROCESSORS"))
+
+  PrintN(#CRLF$+#CRLF$+"Press Enter to quit.")
+  Input()
+  CloseConsole()
+EndIf

Task/Environment-variables/Python/environment-variables.py

@@ -0,0 +1,2 @@
+import os
+os.environ['HOME']

Task/Environment-variables/R/environment-variables.r

@@ -0,0 +1 @@
+Sys.getenv("PATH")

Task/Environment-variables/REBOL/environment-variables.rebol

@@ -0,0 +1 @@
+print get-env "HOME"

Task/Environment-variables/REXX/environment-variables-1.rexx

@@ -0,0 +1,3 @@
+/*REXX program shows how to get an environmental variable under Windows*/
+
+x=value('TEMP',,'SYSTEM')

Task/Environment-variables/REXX/environment-variables-2.rexx

@@ -0,0 +1,3 @@
+/*REXX program shows how to get an environmental variable under Windows*/
+
+x=value('TEMP',,'ENVIRONMENT')

Task/Environment-variables/REXX/environment-variables-3.rexx

@@ -0,0 +1 @@
+x=getenv("PATH") /* Get the contents of the path environment variable */

Task/Environment-variables/Racket/environment-variables.rkt

@@ -0,0 +1,2 @@
+#lang racket
+(getenv "HOME")

Task/Environment-variables/Retro/environment-variables.retro

@@ -0,0 +1,2 @@
+here "HOME" getEnv
+here puts

Task/Environment-variables/Ruby/environment-variables.rb

@@ -0,0 +1 @@
+ENV['HOME']

Task/Environment-variables/Run-BASIC/environment-variables.run

@@ -0,0 +1,20 @@
+' ------- Major environment variables -------------------------------------------
+'DefaultDir$    - The folder path where program files are read/written by default
+'Platform$      - The operating system on which Run BASIC is being hosted
+'UserInfo$      - This is information about the user's web browser
+'UrlKeys$       - Contains informational parameters from the URL submitted when the user connected
+'UserAddress$   - Contains the IP address of the user
+'ProjectsRoot$  - The folder path where Run BASIC keeps programming projects
+'ResourcesRoot$ - The folder path where Run BASIC keeps web-servable files
+'Err$           - A description of the last runtime error
+'Err            - A numeric code for the last runtime error (errors that have no code use zero)
+'EventKey$      - The id of the object that generated the last user event
+'RowIndex       - The numeric index of the table or database accessor link that generated the last user event
+
+
+print "User Info is   : ";UserInfo$
+print "Platform is    : ";Platform$
+print "Url Keys is    : ";UrlKeys$
+print "User Address is: ";UserAddress$
+print "Event Key is   : ";EventKey$
+print "Default Dir is : ";DefaultDir$

Task/Environment-variables/SNOBOL4/environment-variables.sno

@@ -0,0 +1,2 @@
+         output = host(4,'PATH')
+end

Task/Environment-variables/Seed7/environment-variables.seed7

@@ -0,0 +1,6 @@
+$ include "seed7_05.s7i";
+
+const proc: main is func
+  begin
+    writeln(getenv("HOME"));
+  end func;

Task/Environment-variables/Slate/environment-variables.slate

@@ -0,0 +1,2 @@
+Environment variables at: 'PATH'.
+"==> '/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games'"

Task/Environment-variables/Standard-ML/environment-variables.ml

@@ -0,0 +1 @@
+OS.Process.getEnv "HOME"

Task/Environment-variables/TXR/environment-variables-1.txr

@@ -0,0 +1,4 @@
+@(next :env)
+@(collect)
+@VAR=@VAL
+@(end)

Task/Environment-variables/TXR/environment-variables-2.txr

@@ -0,0 +1,6 @@
+@(next :env)
+@(gather)
+HOME=@home
+USER=@user
+PATH=@path
+@(end)

Task/Environment-variables/TXR/environment-variables-3.txr

@@ -0,0 +1,7 @@
+@(next :env)
+@(gather :vars (home user path (shell "/bin/sh")))
+HOME=@home
+USER=@user
+PATH=@path
+SHELL=@shell
+@(end)

Task/Environment-variables/Tcl/environment-variables.tcl

@@ -0,0 +1 @@
+$env(HOME)

Task/Environment-variables/UNIX-Shell/environment-variables-1.sh

@@ -0,0 +1 @@
+echo "$HOME"

Task/Environment-variables/UNIX-Shell/environment-variables-2.sh

@@ -0,0 +1 @@
+export VAR

Task/Environment-variables/Ursala/environment-variables.ursala

@@ -0,0 +1,5 @@
+#import std
+
+#executable ('parameterized','')
+
+showenv = <.file$[contents: --<''>]>+ %smP+ ~&n-={'TERM','SHELL','X11BROWSER'}*~+ ~environs

Task/Environment-variables/Vedit-macro-language/environment-variables-1.vedit

@@ -0,0 +1,2 @@
+Get_Environment(10,"PATH")
+Message(@10)

Task/Environment-variables/Vedit-macro-language/environment-variables-2.vedit

@@ -0,0 +1 @@
+GE(10,"PATH") M(@10)

Task/Environment-variables/XPL0/environment-variables.xpl0

@@ -0,0 +1,28 @@
+include c:\cxpl\codes;          \intrinsic 'code' declarations
+string 0;                       \use zero-terminated strings
+int  CpuReg, PspSeg, EnvSeg, I, J, C;
+char EnvVar;
+[CpuReg:= GetReg;               \access CPU registers
+PspSeg:= CpuReg(9);             \get segment address of our PSP
+EnvSeg:= Peek(PspSeg,$2C) + Peek(PspSeg,$2D)<<8;
+EnvVar:= "PATH";                \environment variable
+I:= 0;
+loop    [J:= 0;
+        loop    [C:= Peek(EnvSeg,I);  I:= I+1;
+                if C = 0 then quit;
+                if C = EnvVar(J) then
+                        [J:= J+1;
+                        if J = 4 then
+                                [Text(0, EnvVar);               \show env. var.
+                                loop    [C:= Peek(EnvSeg,I);    \ and rest of
+                                        I:= I+1;                \ its string
+                                        if C = 0 then exit;
+                                        ChOut(0, C);
+                                        ];
+                                ];
+                        ]
+                else J:= 5;     \line must start with environment variable
+                ];
+        if Peek(EnvSeg,I) = 0 then quit;        \double 0 = env. var. not found
+        ];
+]