rekoird.ik

JavaGround java:sql:ResultSet do(
  mimic!(Mixins Enumerable)
  
  each = dmacro(
    [code]
    while(self next, code evaluateOn(call ground, Rekoird Row mimic(self)))
    self,
    
    [argName, code]
    lexical = call LexicalBlock createFrom(call list(argName, code), call ground)
    while(self next, lexical call(Rekoird Row mimic(self)))
    self,
    
    [indexName, argName, code]
    lexical = call LexicalBlock createFrom(call list(indexName, argName, code), call ground)
    while(self next, lexical call(self getRow, Rekoird Row mimic(self)))
    self
  )
)

Rekoird = Origin mimic do(
  connect = method(url, driver:,
    driver new ; register driver
    @connection = java:sql:DriverManager getConnection(url)
  )
  
  Row = Origin mimic do(
    initialize = method(resultSet, @resultSet = resultSet)    
    pass = macro(@resultSet getObject(call message name asText))
  )
)

Rekoird connect("jdbc:derby:rekoird_test;create=true", driver: org:apache:derby:jdbc:EmbeddedDriver)