Add tasks for all the new languages

This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions

View file

@ -0,0 +1,5 @@
' FB 1.05.0 Win64
Var v = Environ("SystemRoot")
Print v
Sleep

View file

@ -0,0 +1,3 @@
println( System.getenv('PATH') )
println( $home )
println( $user )

View file

@ -0,0 +1,2 @@
get env \foo HOME
show "\foo"

View file

@ -0,0 +1 @@
get env \foo "X Y Z"

View file

@ -0,0 +1,5 @@
software {
print(load("$HOME"))
print(load("$USER"))
print(load("$PATH"))
}

View file

@ -0,0 +1,15 @@
#!/usr/bin/lasso9
define getenv(sysvar::string) => {
local(regexp = regexp(
-find = `(?m)^` + #sysvar + `=(.*?)$`,
-input = sys_environ -> join('\n'),
-ignorecase
))
return #regexp ->find ? #regexp -> matchString(1)
}
stdoutnl(getenv('HOME'))
stdoutnl(getenv('PATH'))
stdoutnl(getenv('USER'))
stdoutnl(getenv('WHAT'))

View file

@ -0,0 +1,6 @@
sx = xtra("Shell").new()
if the platform contains "win" then
path = sx.shell_cmd("echo %PATH%").line[1]
else
path = sx.shell_cmd("echo $PATH").line[1]
end if

View file

@ -0,0 +1,2 @@
import os
echo getEnv("HOME")

View file

@ -0,0 +1 @@
System getEnv("PATH") println

View file

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

View file

@ -0,0 +1 @@
see get("path")

View file

@ -0,0 +1 @@
say ENV{'HOME'};

View file

@ -0,0 +1,2 @@
import "system"
out (system.getenv "HOME") endl console

View file

@ -0,0 +1 @@
env.HOME