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
56
57
|
--[[
Copies the test script to the name and location of your choice
--]]
local fn, fh, txt, ok, err
fn=geany.dirname(geany.script)..geany.dirsep.."02.run-test-script.lua"
fh, err = io.open(fn, "r")
if not fh then
geany.message("Failed to open source file!", fn.."\n"..(err or "unknown error"))
return
end
txt, err = fh:read("*a")
if not txt then
geany.message("Failed to read source file!", fn.."\n"..(err or "unknown error"))
return
end
fh:close()
fn=geany.pickfile("save", geany.appinfo().scriptdir,
"Lua files|*.lua|All files|*.*")
if not fn then
return
end
fh, err = io.open(fn, "w")
if not fh then
geany.message("Failed to create new file!", fn.."\n"..(err or "unknown error"))
return
end
ok, err=fh:write(txt)
if not ok then
geany.message("Failed writing new file!", fn.."\n"..(err or "unknown error"))
fh:close()
return
end
ok, err=fh:close()
if not ok then
geany.message("Failed saving new file!", fn.."\n"..(err or "unknown error"))
return
end
geany.rescan()
|
