Data update

Task/Environment-variables/8th/environment-variables.8th

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

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

@@ -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.adb

@@ -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.adb

@@ -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/AppleScript/environment-variables-1.applescript

@@ -1 +1,3 @@
-tell application "Finder" to get name of home
+system attribute "HOME"
+system attribute "PATH"
+system attribute "USER"

Task/Environment-variables/AppleScript/environment-variables-2.applescript

@@ -1 +1 @@
-"HOME : " & (do shell script "echo $HOME" & ", PATH : " & (do shell script "echo $PATH" & ", USER : " & (do shell script "echo $USER")))
+tell application "Finder" to get name of home

Task/Environment-variables/AppleScript/environment-variables-3.applescript

@@ -0,0 +1 @@
+"HOME : " & (do shell script "echo $HOME" & ", PATH : " & (do shell script "echo $PATH" & ", USER : " & (do shell script "echo $USER")))

Task/Environment-variables/AutoIt/environment-variables.au3

@@ -0,0 +1,11 @@
+ConsoleWrite("# Environment:" & @CRLF)
+
+Local $sEnvVar = EnvGet("LANG")
+ConsoleWrite("LANG : " & $sEnvVar & @CRLF)
+
+ShowEnv("SystemDrive")
+ShowEnv("USERNAME")
+
+Func ShowEnv($N)
+    ConsoleWrite( StringFormat("%-12s : %s\n", $N, EnvGet($N)) )
+EndFunc   ;==>ShowEnv

Task/Environment-variables/AutoLISP/environment-variables.lsp

@@ -0,0 +1,2 @@
+(getenv "PATH")
+(getenv "USERNAME")

Task/Environment-variables/COBOL/environment-variables.cob

@@ -0,0 +1,18 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. Environment-Vars.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  home PIC X(75).
+
+       PROCEDURE DIVISION.
+*          *> Method 1.
+           ACCEPT home FROM ENVIRONMENT "HOME"
+           DISPLAY home
+
+*          *> Method 2.
+           DISPLAY "HOME" UPON ENVIRONMENT-NAME
+           ACCEPT home FROM ENVIRONMENT-VALUE
+
+           GOBACK
+           .

Task/Environment-variables/Crystal/environment-variables.cr

@@ -0,0 +1 @@
+ENV["ComSpec"]    # => C:\WINDOWS\system32\cmd.exe

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

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

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

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

Task/Environment-variables/Janet/environment-variables.janet

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

Task/Environment-variables/Pluto/environment-variables.pluto

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

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

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

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

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

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

@@ -0,0 +1,2 @@
+print get-env "HOME"
+print list-env ;; to print all variables

Task/Environment-variables/Rye/environment-variables.rye

@@ -0,0 +1,10 @@
+env? "systemroot"
+  [String: C:\WINDOWS]
+env? "windir"
+  [String: C:\WINDOWS]
+env? "programfiles"
+  [String: C:\Program Files]
+env? "homedrive"
+  [String: C:]
+env? "processor_architecture"
+  [String: AMD64]