blob: f048c2cd18808a4700bf9f1afd930a04b3cc9063 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
procedure main()
write()
write("&host: ", &host)
write("&dateline: ", &dateline)
write(" &date: ", &date)
write(" &clock: ", &clock)
write("&version: ", &version)
write("&features:")
every write(" ", &features)
write("getenv(\"HOME\"): ", getenv("HOME") | "[failed]")
write("getenv(\"SHELL\"): ", getenv("SHELL") | "[failed]")
write("uname -a: ", read(open("uname -a", "p")) | "[failed]")
write()
end
|
