Class: Refi::MinilangEnv

Inherits:
Object
  • Object
show all
Defined in:
lib/minilang_refi.rb

Constant Summary collapse

@@rf_cache = 
{}
@@funs = 
{
  "prepare" => proc{|env,args|
    env.prepare(args[:n],args[:stmt])
  },
  "run" => proc{|env,args|
    next env.prepare_run(args[:n])
  },
  "set" => proc{|env,args|
    deref = args[:deref] || []
    env.set(args[:n],args[:v],deref)
  },
  "get" => proc{|env,args|
    next env.get(args[:n])
  },
  "get_m" => proc{|env,args|
    next env.get_m(args[:n])
  },
  "get_l" => proc{|env,args|
    next env.get_l(args[:n])
  },
  "get_e" => proc{|env,args|
    next env.get_e(args[:n])
  },
  "insert" => proc{|env,args|
    env.text << args[:v].to_s
  },
  "read_file" => proc{|env,args|
    pn = args[:pn]
    rf = @@rf_cache[pn]
    unless rf
      rf = env.read_file args[:pn].to_s
      @@rf_cache[pn] = rf
    end
    next rf
    #next env.read_file args[:pn].to_s

  },
  "print" => proc{|env,args|
    puts args[:v].to_s
  },
  "pp" => proc{|env,args|
    pp env
  },
  "concat" => proc{|env,args|
    ary = args[:ary]
    concat_str = ary.inject(''){|memo,i|
      memo << i
    }
    next concat_str
  },
  "get_export_type" => proc{|env,args|
    next env.get_export_type
  },
  "get_keys" => proc{|env,args|
    m = args[:map]
    res = m.keys
    next res
  },
  "regex_select" => proc{|env,args|
    from = args[:from]
    where = args[:where]
    res = []
    from.each{|e|
      if e.match(where) 
        res << e
      end
    }
    next res
  },
  "group" => proc{|env,args|
    ary = args[:ary].dup
    ary_size = ary.size
    amount = args[:amount]
    fill = args[:fill]
    res = []
    while !ary.empty?
      res.push ary.shift(amount)
    end
    if fill
      fills = ary_size % amount
      fills.times{
        res[-1].push(fill)
      }
    end
    next res
  },
  "loop" => proc{|env,args|
    l_var_name = args[:l_var]
    ary = args[:ary].dup
    env.create_loop(l_var_name,ary)
    next nil
  },
}

Instance Attribute Summary collapse

Instance Method Summary collapse

Constructor Details

#initialize(creator, p) ⇒ MinilangEnv

Returns a new instance of MinilangEnv.



131
132
133
134
135
136
137
138
139
140
141
142
 
# File 'lib/minilang_refi.rb', line 131

def initialize(creator,p)
  @creator = creator
  @export_type = p[:export_type] || $Log.tlog({id: 'err1030'})
  #dperr( 'E777', 'export type not passed to minilang env init')

  @text = ''
  @vars = {} # local

  @vars_m = {} # var_map

  @vars_l = {} # loop

  @vars_e = {} # each

  @iter_vars = {}
  @prep_stmts = {}
end

Instance Attribute Details

#text ⇒ Object

Returns the value of attribute text.



130
131
132
 
# File 'lib/minilang_refi.rb', line 130

def text
  @text
end

Instance Method Details

#call_fun(fun_name, fun_args) ⇒ Object 



159
160
161
162
 
# File 'lib/minilang_refi.rb', line 159

def call_fun(fun_name,fun_args)
  res = @@funs[fun_name].call(self,fun_args)
  return res
end

#consume_text ⇒ Object 



143
144
145
146
147
 
# File 'lib/minilang_refi.rb', line 143

def consume_text
  t = @text
  @text = ''
  return t
end

#create_loop(l_var_name, ary) ⇒ Object 



182
183
184
 
# File 'lib/minilang_refi.rb', line 182

def create_loop(l_var_name,ary)
  @creator.create_loop(l_var_name,ary)
end

#get(name) ⇒ Object 



163
164
165
 
# File 'lib/minilang_refi.rb', line 163

def get name
  return @vars[name]
end

#get_e(name) ⇒ Object 



173
174
175
 
# File 'lib/minilang_refi.rb', line 173

def get_e name
  return @vars_e[name]
end

#get_l(name) ⇒ Object 



176
177
178
 
# File 'lib/minilang_refi.rb', line 176

def get_l name
  return @vars_l[name]
end

#get_m(name) ⇒ Object 



166
167
168
169
170
171
172
 
# File 'lib/minilang_refi.rb', line 166

def get_m name
  unless name
    return @vars_m
  else
    return @vars_m[name]
  end
end

#parse_str(str) ⇒ Object 



229
230
231
232
233
234
235
236
237
238
 
# File 'lib/minilang_refi.rb', line 229

def parse_str str
  parse_res = MinilangScript.new(str)
  if(parse_res.valid)
    return parse_res
  else
    dparn 1223, "invalid string (was not executed)"
    parse_res.report_errors
    return nil
  end
end

#prepare(name, str) ⇒ Object 



239
240
241
 
# File 'lib/minilang_refi.rb', line 239

def prepare(name,str)
  @prep_stmts[name] = parse_str(str)
end

#prepare_run(name) ⇒ Object 



242
243
244
 
# File 'lib/minilang_refi.rb', line 242

def prepare_run(name)
  @prep_stmts[name].run(self)
end

#pretty_print(pp) ⇒ Object 



151
152
153
154
155
156
157
158
 
# File 'lib/minilang_refi.rb', line 151

def pretty_print(pp)
  puts "<vars>"
  pp @vars
  puts "</vars>"
  puts "<text>"
  pp @text
  puts "</text>"
end

#read_file(pn) ⇒ Object 



179
180
181
 
# File 'lib/minilang_refi.rb', line 179

def read_file pn
  return @creator.read_file pn
end

#run_str(str) ⇒ Object 



245
246
247
248
 
# File 'lib/minilang_refi.rb', line 245

def run_str str
  parse_res = parse_str(str)
  return parse_res.run(self)
end

#set(var_name, var_value, deref) ⇒ Object

else v_e = deref.pop v = @vars_l deref.each{|d| v = v } v = var_value return end



213
214
215
216
217
218
219
220
221
222
223
224
225
 
# File 'lib/minilang_refi.rb', line 213

def set(var_name,var_value,deref)
  if deref == []
    @vars[var_name] = var_value
  else
    v_e = deref.pop
    v = @vars[var_name]
    deref.each{|d|
      v = v[d]
    }
    v[v_e] = var_value
  end
  return nil
end

#set_e(var_name, var_value, deref) ⇒ Object 



185
186
187
188
189
190
191
192
193
194
195
196
197
198
 
# File 'lib/minilang_refi.rb', line 185

def set_e(var_name,var_value,deref)
  if deref == []
    @vars_e[var_name] = var_value
    return
  else
    v_e = deref.pop
    v = @vars_e[var_name]
    deref.each{|d|
      v = v[d]
    }
    v[v_e] = var_value
    return
  end
end

#set_iter_var(var_ref, val) ⇒ Object 



226
227
228
 
# File 'lib/minilang_refi.rb', line 226

def set_iter_var(var_ref,val)
  @iter_vars[var_ref] = val
end

#set_l(var_name, var_value) ⇒ Object

,deref)



199
200
201
202
203
204
205
206
207
208
209
210
211
212
 
# File 'lib/minilang_refi.rb', line 199

def set_l(var_name,var_value) #,deref)

  #if deref == []

    @vars_l[var_name] = var_value
    return
  #else

  #  v_e = deref.pop

  #  v = @vars_l[var_name]

  #  deref.each{|d|

  #    v = v[d]

  #  }

  #  v[v_e] = var_value

  #  return

  #end

end

#set_var_map(var_map) ⇒ Object 



148
149
150
 
# File 'lib/minilang_refi.rb', line 148

def set_var_map var_map
  @vars_m = var_map
end