1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#! /usr/bin/env lua
-- vim:sw=4:sts=4
require "lfs"
path = 'hklm\\system\\CurrentControlSet\\Control\\Session Manager\\Environment'
key = 'Path'
-- Retrieve the current setting of a given registry entry
function reg_query(path, name)
local f, s
s = string.format('reg query "%s" /v %s', path, name)
f = io.popen(s, "r")
for line in f:lines() do
-- print(">>", line)
val = string.match(line, "^%s*Path%s+%S+%s+(.*)$")
if val then return val end
end
end
-- Set a registry entry, possibly overwriting the existing entry.
function reg_set(path, name, value)
s = string.format('reg add "%s" /v "%s" /t REG_EXPAND_SZ /d "%s" /f',
path, name, value)
print(s)
os.execute(s)
end
s = reg_query(path, key)
if not s then
print("Error - can't query current PATH")
os.exit(1)
end
here = lfs.currentdir() .. "\\bin"
-- filter out existing entries for lua-gtk
local tbl = {}
for item in string.gmatch(s, "[^;]+") do
if not string.match(item, "\\lua%-gtk") then
tbl[#tbl+1] = item
elseif item == here then
print "Already set."
os.exit(0)
end
end
tbl[#tbl+1] = here
s = table.concat(tbl, ";")
reg_set(path, key, s)
|
