Data update

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

@@ -1,7 +0,0 @@
-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

@@ -1,11 +0,0 @@
-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

@@ -1,15 +0,0 @@
-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/AutoIt/environment-variables.autoit

@@ -1,11 +0,0 @@
-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/COBOL/environment-variables.cobol

@@ -1,18 +0,0 @@
-       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/Emacs-Lisp/environment-variables.l

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

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

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

Task/Environment-variables/Phix/environment-variables.phix

@@ -1,4 +1,2 @@
-(notonline)-->
- <span style="color: #008080;">without</span> <span style="color: #008080;">js</span> <span style="color: #000080;font-style:italic;">-- none such in a browser, that I know of</span>
- <span style="color: #0000FF;">?</span><span style="color: #7060A8;">getenv</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"PATH"</span><span style="color: #0000FF;">)</span>
-<!--
+without js -- none such in a browser, that I know of
+?getenv("PATH")

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

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

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

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

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

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