Module: Hobix::Util

Defined in:
lib/hobix/util/objedit.rb,
lib/hobix/util/patcher.rb

Defined Under Namespace

Classes: PatchError, Patcher

Class Method Summary collapse

Class Method Details

.field_read(f) ⇒ Object 



179
180
181
182
183
184
185
186
187
188
189
190
191
 
# File 'lib/hobix/util/objedit.rb', line 179

def self.field_read( f )
    rows, cols, frow, fcol, nrow, nbuf = [], [], [], [], [], []
    f.field_info( rows, cols, frow, fcol, nrow, nbuf )
    val = f.field_buffer(0).scan( /.{#{ cols[0] }}/ )
    YAML::load(
        if val.length > 1
            "--- >\n  " + 
            val.collect { |line| line.rstrip }.join( "\n  " ).rstrip
        else
            "--- #{ val[0] }"
        end
    )
end

.field_write(f, obj) ⇒ Object

p pressed p out_obj



168
169
170
171
172
173
174
175
176
177
178
 
# File 'lib/hobix/util/objedit.rb', line 168

def self.field_write( f, obj )
    rows, cols, frow, fcol, nrow, nbuf = [], [], [], [], [], []
    f.field_info( rows, cols, frow, fcol, nrow, nbuf )
    if String === obj
        obj = "#{ obj }"
    end
    str = obj.to_yaml( :BestWidth => cols[0] - 4 ).
              sub( /^\-\-\-\s*(\>[0-9\-\+]*\n)?/, '' ).
              gsub( /^([^\n]*)\n/ ) { |line| "%-#{cols}s" % [$1] }
    f.set_field_buffer 0, str
end

.ObjEdit(obj) ⇒ Object

which is available at ncurses-ruby.berlios.de/.



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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
 
# File 'lib/hobix/util/objedit.rb', line 24

def self.ObjEdit( obj )
    include Ncurses
    include Ncurses::Form
    # Initialize ncurses
    scr = Ncurses.initscr
    out_obj = nil
    Ncurses.start_color
    Ncurses.cbreak
    Ncurses.keypad scr, true

    # Initialize few color pairs 
    Ncurses.init_pair 1, COLOR_RED, COLOR_BLACK
    Ncurses.init_pair 2, COLOR_WHITE, COLOR_BLACK
    Ncurses.init_pair 3, COLOR_YELLOW, COLOR_BLACK
    Ncurses.init_pair 4, COLOR_RED, COLOR_BLACK
    scr.bkgd Ncurses.COLOR_PAIR(2) 

    # Initialize the fields
    y = 0
    labels = []
    label_end = 12
    ivars = []
    fields =
        obj.property_map.collect do |ivar, flag, edit_as|
            ht, wt = 1, 60
            case edit_as
            when :text
                field = FIELD.new ht, wt, y, 1, 0, 0
            when :textarea
                ht, wt = 5, 60
                field = FIELD.new ht, wt, y, 1, 60, 0
            end
            if y + ht + 8 >= Ncurses.LINES
                field.set_new_page TRUE
                y = 0
            end
            labels << [y + 2, ivar, ht, wt]
            ivars << ivar[1..-1]
            label_end = ivar.length + 3 if label_end < ivar.length + 3
            y += ht + 1

            field.field_opts_off O_AUTOSKIP
            field.set_field_back A_REVERSE
            field.set_field_fore A_BOLD
            field_write( field, obj.instance_variable_get( ivar ) )
            field
        end

    # Create the form
    my_form = FORM.new fields
    my_form.user_object = "Editing #{ obj.class }"
    rows, cols = [], []
    my_form.scale_form rows, cols

    # Create the window
    my_win = WINDOW.new rows[0] + 3, cols[0] + 20, 0, 0
    my_win.bkgd Ncurses.COLOR_PAIR( 3 )
    my_win.keypad TRUE

    # Attach
    my_form.set_form_win my_win
    my_form.set_form_sub my_win.derwin( rows[0], cols[0], 2, label_end )
    my_form.form_opts_off O_NL_OVERLOAD
    my_form.post_form
    labels.each do |y, ivar, ht, wt|
        my_win.mvaddstr y, 2, ivar
    end
    scr.mvprintw Ncurses.LINES - 2, 28, "Use TAB to switch between fields"
    scr.mvprintw Ncurses.LINES - 1, 28, "F2 to save | F3 to cancel"
    scr.refresh
    my_win.wrefresh

    # Loop through to get user requests
    pressed = []
    while((ch = my_win.getch()) != KEY_F2)
        pressed << ch
        case ch
        when 16 # Ctrl + P
            my_form.form_driver REQ_PREV_PAGE
            my_form.form_driver REQ_FIRST_FIELD

        when 14 # Ctrl + N
            my_form.form_driver REQ_NEXT_PAGE
            my_form.form_driver REQ_LAST_FIELD

        when KEY_C3, ?\t
            # Go to next field
            my_form.form_driver REQ_NEXT_FIELD
            # Go to the end of the present buffer
            # Leaves nicely at the last character
            my_form.form_driver REQ_END_LINE
          
        when KEY_C1
            # Go to previous field
            my_form.form_driver REQ_PREV_FIELD
            my_form.form_driver REQ_END_LINE

        when KEY_UP
            my_form.form_driver REQ_PREV_LINE

        when KEY_DOWN
            my_form.form_driver REQ_NEXT_LINE

        when KEY_LEFT
            # Go to previous character
            my_form.form_driver REQ_PREV_CHAR

        when KEY_RIGHT
            # Go to previous field
            my_form.form_driver REQ_NEXT_CHAR

        when KEY_BACKSPACE, 010
            my_form.form_driver REQ_DEL_PREV

        when KEY_ENTER, ?\n, ?\r
            my_form.form_driver REQ_NEW_LINE

        when KEY_F3
            return nil

        else
            # If this is a normal character, it gets Printed    
            my_form.form_driver ch
        end
    end
    # Un post form and free the memory
    my_form.form_driver REQ_NEXT_FIELD
    my_form.unpost_form
    my_form.free_form
    obj_props = {}
    fields.each do |f|
        b = field_read(f)
        f.free_field()
        if String === b and b.empty?
            b = nil
        end
        obj_props[ivars.shift] = b
    end
    out_obj = YAML::transfer( obj.to_yaml_type[1..-1], obj_props )
ensure
    Ncurses.endwin
    # p pressed
    # p out_obj
end