manuelleduc

Private Sub CommandButton1_Click()
Dim bds As ADODB.Connection
Dim re As ADODB.Recordset

Set bds = New ADODB.Connection
bds.ConnectionString = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=" & ThisWorkbook.Path & "\SocieteSClaus.mdb;"
bds.Open
      
Set re = New ADODB.Recordset
re.CursorLocation = adUseClient

manuelleduc

package fr.mleduc.testkmf1;

import org.kevoree.modeling.KListener;
import org.kevoree.modeling.drivers.mongodb.MongoDbContentDeliveryDriver;
import org.kevoree.modeling.memory.manager.DataManagerBuilder;
import org.kevoree.modeling.memory.manager.internal.KInternalDataManager;
import test.TestModel;

/**
 * Created by mleduc on 04/12/15.

manuelleduc

add edison1, edison2, edison3, edison4, edison5 : JavascriptNode
add edisonGroup : RemoteWSGroup

attach edison1, edison2, edison3, edison4, edison5 edisonGroup

set edisonGroup.host = 'ws.kevoree.org'
set edisonGroup.path = '/edisons'

manuelleduc

add node0 : JavascriptNode/5.3.3
add nodeDocker : JavaNode/5.3.1
add node0.comp722 : InstanceMonitor/1.0.0
add node0.comp464 : Ticker/5.3.2-SNAPSHOT
add node0.comp989 : KevScript/5.3.2-SNAPSHOT
add nodeDocker.redis, nodeDocker.master : DockerContainer/5.3.2-SNAPSHOT
add sync_dashboard : RemoteWSGroup/5.3.1
add chan931, chan191 : LocalChannel/5.0.2

attach nodeDocker, node0 sync_dashboard

manuelleduc

class A1 {
    field1: boolean;
    field2: number;
}

class  A2 {
    field1: string;
    field3: boolean;
}

manuelleduc

export class MyClass {
    public hello: string =  "World";
}

manuelleduc

// no clusure, group must be passed as a parameter.
// allowing json like datastructure as parameters ?


function configureChan(chan, uuid, host, path)
  set {chan}.uuid = {uuid}
  set {chan}.host = {host}
  set {chan}.path = {path}
endfunction

manuelleduc

grammar Kevscript;

script : (add|set|attach|bind|detach|unbind|define)+ ;
add : ADD identifier TYPE_DEF_SEPARATOR type ;
set : SET identifier ASSIGN_SEPARATOR assignable ;
attach : ATTACH identifier (identifier_list | identifier) ;
detach : DETACH identifier (identifier_list | identifier) ;
bind : BIND identifier (identifier_list | identifier) ;
unbind : UNBIND identifier (identifier_list | identifier) ;
define : 'let' ID '{' (ID ':' assignable)* '}' ;

manuelleduc

<?xml version="1.0" encoding="UTF-8"?>
<project xmlns="http://maven.apache.org/POM/4.0.0"
         xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
         xsi:schemaLocation="http://maven.apache.org/POM/4.0.0 http://maven.apache.org/xsd/maven-4.0.0.xsd">
    <modelVersion>4.0.0</modelVersion>

    <groupId>fr.mleduc.sir</groupId>
    <artifactId>tuto-jaxb</artifactId>
    <version>1.0-SNAPSHOT</version>

manuelleduc