ffi-ncurses 0.3.0

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
@@ -0,0 +1,177 @@
1
+ module FFI
2
+ module NCurses
3
+ module WinStruct
4
+ NCURSES_SIZE_T = :short
5
+ NCURSES_ATTR_T = :int
6
+ NCURSES_COLOR_T = :short
7
+ NCURSES_CH_T = :short
8
+
9
+ CHTYPE = :ulong
10
+ CCHARW_MAX = 5
11
+
12
+ BOOLEAN = :uchar # sizeof(bool) == 1
13
+
14
+ WCHAR_T = :ushort
15
+
16
+ # class CCharT < FFI::Struct
17
+ # layout \
18
+ # :attr, NCURSES_ATTR_T,
19
+ # :chars, [WCHAR_T, CCHARW_MAX]
20
+ # end
21
+
22
+ class PDat < FFI::Struct
23
+ layout \
24
+ :_pad_y, NCURSES_SIZE_T,
25
+ :_pad_x, NCURSES_SIZE_T,
26
+ :_pad_top, NCURSES_SIZE_T,
27
+ :_pad_left, NCURSES_SIZE_T,
28
+ :_pad_bottom, NCURSES_SIZE_T,
29
+ :_pad_right, NCURSES_SIZE_T
30
+ end
31
+
32
+ class WinSt < FFI::Struct
33
+ layout \
34
+ :_cury, NCURSES_SIZE_T,
35
+ :_curx, NCURSES_SIZE_T,
36
+ :_maxy, NCURSES_SIZE_T,
37
+ :_maxx, NCURSES_SIZE_T,
38
+ :_begy, NCURSES_SIZE_T,
39
+ :_begx, NCURSES_SIZE_T,
40
+ :_flags, :short,
41
+ :_attrs, NCURSES_ATTR_T,
42
+ :_bkgd, CHTYPE,
43
+ :_notimeout, BOOLEAN,
44
+ :_clear, BOOLEAN,
45
+ :_leaveok, BOOLEAN,
46
+ :_scroll, BOOLEAN,
47
+ :_idlok, BOOLEAN,
48
+ :_idcok, BOOLEAN,
49
+ :_immed, BOOLEAN,
50
+ :_sync, BOOLEAN,
51
+ :_use_keypad, BOOLEAN,
52
+ :_delay, :int,
53
+
54
+ # struct ldat *_line
55
+ :_line, :pointer,
56
+
57
+ :_regtop, NCURSES_SIZE_T,
58
+ :_regbottom, NCURSES_SIZE_T,
59
+
60
+ # why x,y when everything else is y,x?
61
+ :_parx, :int,
62
+ :_pary, :int,
63
+ :_parent, :pointer # WINDOW
64
+
65
+ # don't know how to include nested Struct yet
66
+ # :_pad, PDat,
67
+
68
+ # :_yoffset, NCURSES_SIZE_T
69
+ # :_bkgrnd, CCharT
70
+ end
71
+
72
+ def _win(win, member)
73
+ win && WinSt.new(win)[member]
74
+ end
75
+ private :_win
76
+
77
+ # extensions - not in X/Open
78
+ def is_cleared(win)
79
+ _win(win, :_clear)
80
+ end
81
+ def is_idcok(win)
82
+ _win(win, :_idcok)
83
+ end
84
+ def is_idlok(win)
85
+ _win(:win, :_idlok)
86
+ end
87
+ def is_immedok(win)
88
+ _win(win, :_immed)
89
+ end
90
+ def is_keypad(win)
91
+ _win(win, :_use_keypad)
92
+ end
93
+ def is_leaveok(win)
94
+ _win(win, :_leaveok) || ERR
95
+ end
96
+ def is_nodelay(win)
97
+ _win(win, :_delay) == 0 ? FFI::NCurses::TRUE : FFI::NCurses::FALSE
98
+ end
99
+ def is_notimeout(win)
100
+ _win(win, :_notimeout)
101
+ end
102
+ def is_scrollok(win)
103
+ _win(win, :_scroll)
104
+ end
105
+ def is_syncok(win)
106
+ _win(win, :_sync)
107
+ end
108
+ def wgetparent(win)
109
+ _win(win, :_parent)
110
+ end
111
+ def wgetscrreg(win, t, b)
112
+ # ((win) ? (*(t) = (win)->_regtop, *(b) = (win)->_regbottom, OK) : ERR)
113
+ # not entirely satisfactory - no error return
114
+ # should I raise an exception?
115
+ if win
116
+ win_st = WinSt.new(win)
117
+ [win_st[:_regtop], win_st[:_regbottom]]
118
+ else
119
+ #raise ArgumentError, "win is nil"
120
+ nil
121
+ end
122
+ end
123
+ end
124
+
125
+ # struct _win_st
126
+ # {
127
+ # NCURSES_SIZE_T _cury, _curx; /* current cursor position */
128
+
129
+ # /* window location and size */
130
+ # NCURSES_SIZE_T _maxy, _maxx; /* maximums of x and y, NOT window size */
131
+ # NCURSES_SIZE_T _begy, _begx; /* screen coords of upper-left-hand corner */
132
+
133
+ # short _flags; /* window state flags */
134
+
135
+ # /* attribute tracking */
136
+ # attr_t _attrs; /* current attribute for non-space character */
137
+ # chtype _bkgd; /* current background char/attribute pair */
138
+
139
+ # /* option values set by user */
140
+ # bool _notimeout; /* no time out on function-key entry? */
141
+ # bool _clear; /* consider all data in the window invalid? */
142
+ # bool _leaveok; /* OK to not reset cursor on exit? */
143
+ # bool _scroll; /* OK to scroll this window? */
144
+ # bool _idlok; /* OK to use insert/delete line? */
145
+ # bool _idcok; /* OK to use insert/delete char? */
146
+ # bool _immed; /* window in immed mode? (not yet used) */
147
+ # bool _sync; /* window in sync mode? */
148
+ # bool _use_keypad; /* process function keys into KEY_ symbols? */
149
+ # int _delay; /* 0 = nodelay, <0 = blocking, >0 = delay */
150
+
151
+ # struct ldat *_line; /* the actual line data */
152
+
153
+ # /* global screen state */
154
+ # NCURSES_SIZE_T _regtop; /* top line of scrolling region */
155
+ # NCURSES_SIZE_T _regbottom; /* bottom line of scrolling region */
156
+
157
+ # /* these are used only if this is a sub-window */
158
+ # int _parx; /* x coordinate of this window in parent */
159
+ # int _pary; /* y coordinate of this window in parent */
160
+ # WINDOW *_parent; /* pointer to parent if a sub-window */
161
+
162
+ # /* these are used only if this is a pad */
163
+ # struct pdat
164
+ # {
165
+ # NCURSES_SIZE_T _pad_y, _pad_x;
166
+ # NCURSES_SIZE_T _pad_top, _pad_left;
167
+ # NCURSES_SIZE_T _pad_bottom, _pad_right;
168
+ # } _pad;
169
+
170
+ # NCURSES_SIZE_T _yoffset; /* real begy is _begy + _yoffset */
171
+
172
+ # #ifdef _XOPEN_SOURCE_EXTENDED
173
+ # cchar_t _bkgrnd; /* current background char/attribute pair */
174
+ # #endif
175
+ # };
176
+ end
177
+ end
data/tasks/ann.rake ADDED
@@ -0,0 +1,80 @@
1
+
2
+ begin
3
+ require 'bones/smtp_tls'
4
+ rescue LoadError
5
+ require 'net/smtp'
6
+ end
7
+ require 'time'
8
+
9
+ namespace :ann do
10
+
11
+ # A prerequisites task that all other tasks depend upon
12
+ task :prereqs
13
+
14
+ file PROJ.ann.file do
15
+ ann = PROJ.ann
16
+ puts "Generating #{ann.file}"
17
+ File.open(ann.file,'w') do |fd|
18
+ fd.puts("#{PROJ.name} version #{PROJ.version}")
19
+ fd.puts(" by #{Array(PROJ.authors).first}") if PROJ.authors
20
+ fd.puts(" #{PROJ.url}") if PROJ.url.valid?
21
+ fd.puts(" (the \"#{PROJ.release_name}\" release)") if PROJ.release_name
22
+ fd.puts
23
+ fd.puts("== DESCRIPTION")
24
+ fd.puts
25
+ fd.puts(PROJ.description)
26
+ fd.puts
27
+ fd.puts(PROJ.changes.sub(%r/^.*$/, '== CHANGES'))
28
+ fd.puts
29
+ ann.paragraphs.each do |p|
30
+ fd.puts "== #{p.upcase}"
31
+ fd.puts
32
+ fd.puts paragraphs_of(PROJ.readme_file, p).join("\n\n")
33
+ fd.puts
34
+ end
35
+ fd.puts ann.text if ann.text
36
+ end
37
+ end
38
+
39
+ desc "Create an announcement file"
40
+ task :announcement => ['ann:prereqs', PROJ.ann.file]
41
+
42
+ desc "Send an email announcement"
43
+ task :email => ['ann:prereqs', PROJ.ann.file] do
44
+ ann = PROJ.ann
45
+ from = ann.email[:from] || Array(PROJ.authors).first || PROJ.email
46
+ to = Array(ann.email[:to])
47
+
48
+ ### build a mail header for RFC 822
49
+ rfc822msg = "From: #{from}\n"
50
+ rfc822msg << "To: #{to.join(',')}\n"
51
+ rfc822msg << "Subject: [ANN] #{PROJ.name} #{PROJ.version}"
52
+ rfc822msg << " (#{PROJ.release_name})" if PROJ.release_name
53
+ rfc822msg << "\n"
54
+ rfc822msg << "Date: #{Time.new.rfc822}\n"
55
+ rfc822msg << "Message-Id: "
56
+ rfc822msg << "<#{"%.8f" % Time.now.to_f}@#{ann.email[:domain]}>\n\n"
57
+ rfc822msg << File.read(ann.file)
58
+
59
+ params = [:server, :port, :domain, :acct, :passwd, :authtype].map do |key|
60
+ ann.email[key]
61
+ end
62
+
63
+ params[3] = PROJ.email if params[3].nil?
64
+
65
+ if params[4].nil?
66
+ STDOUT.write "Please enter your e-mail password (#{params[3]}): "
67
+ params[4] = STDIN.gets.chomp
68
+ end
69
+
70
+ ### send email
71
+ Net::SMTP.start(*params) {|smtp| smtp.sendmail(rfc822msg, from, to)}
72
+ end
73
+ end # namespace :ann
74
+
75
+ desc 'Alias to ann:announcement'
76
+ task :ann => 'ann:announcement'
77
+
78
+ CLOBBER << PROJ.ann.file
79
+
80
+ # EOF
data/tasks/bones.rake ADDED
@@ -0,0 +1,20 @@
1
+
2
+ if HAVE_BONES
3
+
4
+ namespace :bones do
5
+
6
+ desc 'Show the PROJ open struct'
7
+ task :debug do |t|
8
+ atr = if t.application.top_level_tasks.length == 2
9
+ t.application.top_level_tasks.pop
10
+ end
11
+
12
+ if atr then Bones::Debug.show_attr(PROJ, atr)
13
+ else Bones::Debug.show PROJ end
14
+ end
15
+
16
+ end # namespace :bones
17
+
18
+ end # HAVE_BONES
19
+
20
+ # EOF
data/tasks/gem.rake ADDED
@@ -0,0 +1,201 @@
1
+
2
+ require 'find'
3
+ require 'rake/packagetask'
4
+ require 'rubygems/user_interaction'
5
+ require 'rubygems/builder'
6
+
7
+ module Bones
8
+ class GemPackageTask < Rake::PackageTask
9
+ # Ruby GEM spec containing the metadata for this package. The
10
+ # name, version and package_files are automatically determined
11
+ # from the GEM spec and don't need to be explicitly provided.
12
+ #
13
+ attr_accessor :gem_spec
14
+
15
+ # Tasks from the Bones gem directory
16
+ attr_reader :bones_files
17
+
18
+ # Create a GEM Package task library. Automatically define the gem
19
+ # if a block is given. If no block is supplied, then +define+
20
+ # needs to be called to define the task.
21
+ #
22
+ def initialize(gem_spec)
23
+ init(gem_spec)
24
+ yield self if block_given?
25
+ define if block_given?
26
+ end
27
+
28
+ # Initialization tasks without the "yield self" or define
29
+ # operations.
30
+ #
31
+ def init(gem)
32
+ super(gem.name, gem.version)
33
+ @gem_spec = gem
34
+ @package_files += gem_spec.files if gem_spec.files
35
+ @bones_files = []
36
+
37
+ local_setup = File.join(Dir.pwd, %w[tasks setup.rb])
38
+ if !test(?e, local_setup)
39
+ Dir.glob(::Bones.path(%w[lib bones tasks *])).each {|fn| bones_files << fn}
40
+ end
41
+ end
42
+
43
+ # Create the Rake tasks and actions specified by this
44
+ # GemPackageTask. (+define+ is automatically called if a block is
45
+ # given to +new+).
46
+ #
47
+ def define
48
+ super
49
+ task :prereqs
50
+ task :package => ['gem:prereqs', "#{package_dir_path}/#{gem_file}"]
51
+ file "#{package_dir_path}/#{gem_file}" => [package_dir_path] + package_files + bones_files do
52
+ when_writing("Creating GEM") {
53
+ chdir(package_dir_path) do
54
+ Gem::Builder.new(gem_spec).build
55
+ verbose(true) {
56
+ mv gem_file, "../#{gem_file}"
57
+ }
58
+ end
59
+ }
60
+ end
61
+
62
+ file package_dir_path => bones_files do
63
+ mkdir_p package_dir rescue nil
64
+
65
+ gem_spec.files = (gem_spec.files +
66
+ bones_files.map {|fn| File.join('tasks', File.basename(fn))}).sort
67
+
68
+ bones_files.each do |fn|
69
+ base_fn = File.join('tasks', File.basename(fn))
70
+ f = File.join(package_dir_path, base_fn)
71
+ fdir = File.dirname(f)
72
+ mkdir_p(fdir) if !File.exist?(fdir)
73
+ if File.directory?(fn)
74
+ mkdir_p(f)
75
+ else
76
+ raise "file name conflict for '#{base_fn}' (conflicts with '#{fn}')" if test(?e, f)
77
+ safe_ln(fn, f)
78
+ end
79
+ end
80
+ end
81
+ end
82
+
83
+ def gem_file
84
+ if @gem_spec.platform == Gem::Platform::RUBY
85
+ "#{package_name}.gem"
86
+ else
87
+ "#{package_name}-#{@gem_spec.platform}.gem"
88
+ end
89
+ end
90
+ end # class GemPackageTask
91
+ end # module Bones
92
+
93
+ namespace :gem do
94
+
95
+ PROJ.gem._spec = Gem::Specification.new do |s|
96
+ s.name = PROJ.name
97
+ s.version = PROJ.version
98
+ s.summary = PROJ.summary
99
+ s.authors = Array(PROJ.authors)
100
+ s.email = PROJ.email
101
+ s.homepage = Array(PROJ.url).first
102
+ s.rubyforge_project = PROJ.rubyforge.name
103
+
104
+ s.description = PROJ.description
105
+
106
+ PROJ.gem.dependencies.each do |dep|
107
+ s.add_dependency(*dep)
108
+ end
109
+
110
+ PROJ.gem.development_dependencies.each do |dep|
111
+ s.add_development_dependency(*dep)
112
+ end
113
+
114
+ s.files = PROJ.gem.files
115
+ s.executables = PROJ.gem.executables.map {|fn| File.basename(fn)}
116
+ s.extensions = PROJ.gem.files.grep %r/extconf\.rb$/
117
+
118
+ s.bindir = 'bin'
119
+ dirs = Dir["{#{PROJ.libs.join(',')}}"]
120
+ s.require_paths = dirs unless dirs.empty?
121
+
122
+ incl = Regexp.new(PROJ.rdoc.include.join('|'))
123
+ excl = PROJ.rdoc.exclude.dup.concat %w[\.rb$ ^(\.\/|\/)?ext]
124
+ excl = Regexp.new(excl.join('|'))
125
+ rdoc_files = PROJ.gem.files.find_all do |fn|
126
+ case fn
127
+ when excl; false
128
+ when incl; true
129
+ else false end
130
+ end
131
+ s.rdoc_options = PROJ.rdoc.opts + ['--main', PROJ.rdoc.main]
132
+ s.extra_rdoc_files = rdoc_files
133
+ s.has_rdoc = true
134
+
135
+ if test ?f, PROJ.test.file
136
+ s.test_file = PROJ.test.file
137
+ else
138
+ s.test_files = PROJ.test.files.to_a
139
+ end
140
+
141
+ # Do any extra stuff the user wants
142
+ PROJ.gem.extras.each do |msg, val|
143
+ case val
144
+ when Proc
145
+ val.call(s.send(msg))
146
+ else
147
+ s.send "#{msg}=", val
148
+ end
149
+ end
150
+ end # Gem::Specification.new
151
+
152
+ Bones::GemPackageTask.new(PROJ.gem._spec) do |pkg|
153
+ pkg.need_tar = PROJ.gem.need_tar
154
+ pkg.need_zip = PROJ.gem.need_zip
155
+ end
156
+
157
+ desc 'Show information about the gem'
158
+ task :debug => 'gem:prereqs' do
159
+ puts PROJ.gem._spec.to_ruby
160
+ end
161
+
162
+ desc 'Write the gemspec '
163
+ task :spec => 'gem:prereqs' do
164
+ File.open("#{PROJ.name}.gemspec", 'w') do |f|
165
+ f.write PROJ.gem._spec.to_ruby
166
+ end
167
+ end
168
+
169
+ desc 'Install the gem'
170
+ task :install => [:clobber, 'gem:package'] do
171
+ sh "#{SUDO} #{GEM} install --local pkg/#{PROJ.gem._spec.full_name}"
172
+
173
+ # use this version of the command for rubygems > 1.0.0
174
+ #sh "#{SUDO} #{GEM} install --no-update-sources pkg/#{PROJ.gem._spec.full_name}"
175
+ end
176
+
177
+ desc 'Uninstall the gem'
178
+ task :uninstall do
179
+ installed_list = Gem.source_index.find_name(PROJ.name)
180
+ if installed_list and installed_list.collect { |s| s.version.to_s}.include?(PROJ.version) then
181
+ sh "#{SUDO} #{GEM} uninstall --version '#{PROJ.version}' --ignore-dependencies --executables #{PROJ.name}"
182
+ end
183
+ end
184
+
185
+ desc 'Reinstall the gem'
186
+ task :reinstall => [:uninstall, :install]
187
+
188
+ desc 'Cleanup the gem'
189
+ task :cleanup do
190
+ sh "#{SUDO} #{GEM} cleanup #{PROJ.gem._spec.name}"
191
+ end
192
+ end # namespace :gem
193
+
194
+
195
+ desc 'Alias to gem:package'
196
+ task :gem => 'gem:package'
197
+
198
+ task :clobber => 'gem:clobber_package'
199
+ remove_desc_for_task 'gem:clobber_package'
200
+
201
+ # EOF