← Back to branch summary

~ubuntu-branches/debian/sid/geany-plugins/sid

« back to all changes in this revision

Viewing changes to geanylua/examples/work/03.install-test-script.lua

  • Committer: Bazaar Package Importer
  • Author(s): Chow Loong Jin
  • Date: 2009-07-10 22:56:41 UTC
  • Revision ID: james.westby@ubuntu.com-20090710225641-xc1126t7pq0jmpos
Tags: upstream-0.17.1
Import upstream version 0.17.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
geanylua/examples/work/03.install-test-script.lua
 
1
--[[
 
2
  Copies the test script to the name and location of your choice
 
3
--]]
 
4
 
 
5
local fn, fh, txt, ok, err
 
6
 
 
7
fn=geany.dirname(geany.script)..geany.dirsep.."02.run-test-script.lua"
 
8
 
 
9
fh, err = io.open(fn, "r")
 
10
 
 
11
if not fh then
 
12
  geany.message("Failed to open source file!", fn.."\n"..(err or "unknown error"))
 
13
  return
 
14
end
 
15
 
 
16
txt, err = fh:read("*a")
 
17
 
 
18
if not txt then
 
19
  geany.message("Failed to read source file!", fn.."\n"..(err or "unknown error"))
 
20
  return
 
21
end
 
22
 
 
23
fh:close()
 
24
 
 
25
 
 
26
 
 
27
fn=geany.pickfile("save", geany.appinfo().scriptdir,
 
28
  "Lua files|*.lua|All files|*.*")
 
29
 
 
30
 
 
31
if not fn then
 
32
  return
 
33
end
 
34
 
 
35
fh, err = io.open(fn, "w")
 
36
if not fh then
 
37
  geany.message("Failed to create new file!", fn.."\n"..(err or "unknown error"))
 
38
  return
 
39
end
 
40
 
 
41
 
 
42
ok, err=fh:write(txt)
 
43
if not ok then
 
44
  geany.message("Failed writing new file!", fn.."\n"..(err or "unknown error"))
 
45
  fh:close()
 
46
  return
 
47
end
 
48
 
 
49
 
 
50
ok, err=fh:close()
 
51
if not ok then
 
52
  geany.message("Failed saving new file!", fn.."\n"..(err or "unknown error"))
 
53
  return
 
54
end
 
55
 
 
56
geany.rescan()
 
57