jam/js/top/jamlibx11.js

609 lines
18 KiB
JavaScript

/**
** ==============================
** O O O OOOO
** O O O O O O
** O O O O O O
** OOOO OOOO O OOO OOOO
** O O O O O O O
** O O O O O O O
** OOOO OOOO O O OOOO
** ==============================
** Dr. Stefan Bosse http://www.bsslab.de
**
** COPYRIGHT: THIS SOFTWARE, EXECUTABLE AND SOURCE CODE IS OWNED
** BY THE AUTHOR(S).
** THIS SOURCE CODE MAY NOT BE COPIED, EXTRACTED,
** MODIFIED, OR OTHERWISE USED IN A CONTEXT
** OUTSIDE OF THE SOFTWARE SYSTEM.
**
** $AUTHORS: Stefan Bosse
** $INITIAL: (C) 2006-2017 BSSLAB
** $CREATED: 25-12-16 by sbosse.
** $RCS: $Id: jamlibx11.js,v 1.1 2020/02/03 09:45:01 sbosse Exp sbosse $
** $VERSION: 1.3.5
**
** $INFO:
**
** JAM library + X11 API that can be embedded in any host application.
**
** Should a virtual agent process be created for the host application?
** This would enable direct access of tuple spaces with callbacks but w/o blocking ...
**
** $ENDOFINFO
*/
var onexit=false;
var start=false;
var options = {
geo:undefined,
verbose:0,
version:'1.3.2'
};
global.config={simulation:false,nonetwork:true};
var Io = Require('com/io');
var Comp = Require('com/compat');
var Db = Require('db/db');
var Aios = Require('jam/aios');
var Esprima = Require('parser/esprima');
var Json = Require('jam/jsonfn');
var fs = Require('fs');
var X11 = Require('x11/core/x11');
var Windows = Require('x11/win/windows');
//if (typeof setImmediate == 'undefined') {
// function setImmediate(callback) = {return setTimeout(callback,0)};
//}
/**
* typeof options = { connections?,
* print?,
* provider?, consumer?,
* classes?,
* id?,
* nocp:boolean is a disable flag for agent check poininting,
* verbose?, TMO? }
* with typeof connections = { 'kind : {send:function, link?:function} , 'kind : .. }
* with 'kind = {north,south,west,east,path,..}
*/
var jam = function (options) {
var self=this;
this.options = options||{};
if (!this.options.id) this.options.id=Aios.aidgen();
this.verbose = this.options.verbose || 0;
this.Aios = Aios;
this.DIR = Aios.aios.DIR;
Aios.options.verbose=this.verbose;
if (this.options.nocp) Aios.watchdog={start:function () {},stop:function () {}};
// out=function (msg) { Io.print('[JAM '+self.options.id+'] '+msg)};
this.print=function (msg) { if (self.options.print) self.options.print('[JAM] '+msg)};
this.log=this.print;
this.err=function (msg,err) {
self.print('Error: '+msg);
throw (err||'JAMLIB');
}
this.warn=function (msg) {
self.print('Warning: '+msg);
}
// Create a world
this.world = Aios.World.World([],{id:this.options.id.toUpperCase(),classes:options.classes||[]});
if (this.verbose) this.log('Created world '+this.world.id+'.');
// Create one (root) node
var node = Aios.Node.Node({id:this.options.id,position:{x:0,y:0},TMO:this.options.TMO},true);
// Add node to world
if (this.verbose) this.log('Created root node '+node.id+' (0,0).');
this.world.addNode(node);
// Current node == root node
this.node=0;
this.run=false;
// Service loop executing the AIOS scheduler
this.looprun=0;
this.loopnext=none;
this.loop = function () {
var loop = function () {
self.looprun++;
if (self.options.verbose>1) self.print('loop: Entering scheduler run #'+self.looprun);
var nexttime=Aios.scheduler();
var curtime=Aios.time();
if (self.options.verbose>1) self.print('loop: Scheduler returned nexttime='+nexttime+
' ('+(nexttime>0?nexttime-curtime:0)+')');
if (nexttime>0)
self.loopnext=setTimeout(loop,nexttime-curtime);
else if (nexttime==0)
self.loopnext=setTimeout(loop,1000);
else setImmediate(loop);
};
self.loopnext = setTimeout(loop,1);
};
Aios.config({iterations:100,
fastcopy:this.options.fastcopy,
verbose:this.options.verbose});
/* Install host platform tuple provider and consumer
**
*/
/*
** Each time a tuple of a specific dimension is requested by an agent (rd)
** the provider function can return (provide) a mathcing tuple (returning the tuple).
** IO gate between agents/JAM and host application.
*/
if (this.options.provider) this.world.nodes[this.node].ts.register(function (pat) {
// Caching?
return self.options.provider(pat);
});
/*
** Each time a tuple of a specific dimension is stored by an agent (out)
** the consumer function can return consume the tuple (returning true).
** IO gate between agents/JAM and host application.
*/
if (this.options.consumer) this.world.nodes[this.node].ts.register(function (tuple) {
// Caching?
return self.options.consumer(tuple);
},true);
// Register a connection {send,status] for Aios.Mobi ...
if (this.options.connections) {
for (p in this.options.connections) {
conn=this.options.connections[p];
function makeconn (p,conn) {
return {
send: function (data,dest,context) {
var res;
self.world.nodes[self.node].connections[p].count += data.length;
res=conn.send(data,dest);
if (!res) {
context.error='Migration to destination '+dest+' failed';
// We're still in the agent process context! Throw an error for this agent ..
throw 'MOVE';
};
// kill ghost agent
context.process.finalize();
},
status : conn.link?conn.link:(function () {return true}),
count:0
}
}
this.world.nodes[this.node].connections[p] = makeconn(p,conn);
}
}
this.process = Aios.Proc.Proc();
this.process.agent={id:'jamlib'};
if (this.verbose) this.Aios.options.log.node=true;
}
// Import analyzer class...
var JamAnal = Require('jam/analyzer');
JamAnal.current(Aios);
jam.prototype.analyzeSyntax=JamAnal.jamc.prototype.analyze;
jam.prototype.syntax=JamAnal.jamc.prototype.syntax;
/** Add agent class templates to the JAM world and create sandboxed constructors.
* type templates = {<ac name>:function|{fun:function,mask:{}}},..}
*/
jam.prototype.addClass = function (templates) {
for (var p in templates) {
if (this.verbose) this.log('Added agent class '+p);
this.world.classes[p]=[
this.Aios.Code.makeSandbox(templates[p],0),
this.Aios.Code.makeSandbox(templates[p],1),
this.Aios.Code.makeSandbox(templates[p],2),
this.Aios.Code.makeSandbox(templates[p],3)
]
}
};
/** Add a new node to the world.
* Assumption: 2d meshgrid network with (x,y) coordinates.
* The root node has position {x=0,y=0}.
* type of nodeDescs = {x:number,y:number,id?}
*
*/
jam.prototype.addNode = function (nodeDesc) {
var node,x,y;
x=nodeDesc.x;
y=nodeDesc.y;
if (Comp.array.find(this.world.nodes,function (node) {
return node.position.x==x && node.position.y==y;
})) {
this.err('addNodes: Node at positition ('+x+','+y+') exists already.');
return;
}
node=Aios.Node.Node({id:nodeDesc.id||Aios.aidgen(),position:{x:x,y:y}},true);
if (this.verbose) this.log('Created node '+node.id+' ('+x+','+y+').');
// Add node to world
this.world.addNode(node);
return node.id;
}
/** Add logical nodes.
* The root node has position {x=0,y=0}.
* type of nodes = [{x:number,y:number,id?},..]
*/
jam.prototype.addNodes = function (nodes) {
var n,node,x,y,nodeids=[];
for(n in nodes) {
nodeids.push(this.addNode(nodes[n]));
}
return nodeids;
}
/** Analyze agent class template in text or object form
* Returns {report:string,interface}
*/
jam.prototype.analyze = function (ac,options) {
var syntax,content,report,interface;
if (Comp.obj.is_String) {
} else if (Comp.obj.isObject(ac)) {
} else if (Comp.obj.isFunction(ac)) {
content = 'var ac ='+ac;
syntax = Esprima.parse(content, { tolerant: true, loc:true });
try {
interface=this.analyzeSyntax(syntax,{
classname:options.classname||'anonymous',
level:options.level==undefined?2:options.level,
verbose:options.verbose,
err:function (msg){throw msg},
out:function (msg){if (!report) report=msg; else report=report+'\n'+msg;},
warn:function (msg){if (!report) report=msg; else report=report+'\n'+msg;}
});
return {report:report||'OK',interface:interface};
} catch (e) {
return {report:e,interface:interface};
}
}
}
/** Connect logical nodes (virtual link).
* The root node has position {x=0,y=0}.
* type of links = [{x1:number,y1:number,x2:number,x2:number},..]
*/
jam.prototype.connectNodes = function (connections) {
var c,node1,node2,x1,y1,x2,y2,dir;
for(c in connections) {
x1=connections[c].x1;
y1=connections[c].y1;
x2=connections[c].x2;
y2=connections[c].y2;
if (this.verbose) this.log('Connecting ('+x1+','+y1+') -> ('+x2+','+y2+')');
node1=Comp.array.find(this.world.nodes,function (node) {
return node.position.x==x1 && node.position.y==y1;
});
node2=Comp.array.find(this.world.nodes,function (node) {
return node.position.x==x2 && node.position.y==y2;
});
if (!node1) this.err('connectNodes: Node at positition ('+x1+','+y1+') does not exist.');
if (!node2) this.err('connectNodes: Node at positition ('+x2+','+y2+') does not exist.');
if ((x2-x1)==0) {
if ((y2-y1) > 0) dir=Aios.DIR.SOUTH;
else dir=Aios.DIR.NORTH;
} else if ((x2-x1)>0) dir=Aios.DIR.EAST;
else dir=Aios.DIR.WEST;
this.world.connect(dir,node1,node2);
this.world.connect(Aios.DIR.opposite(dir),node2,node1);
}
}
/** Create and start an agent from class ac with arguments.
* Ac is either already loaded (i.e., ac specifies the class name) or
* AC is supplied as a constructor function (ac), a class name, or a sandboxed constructor
* {fun:function,mask:{}} object for a specific level.
*
* type of ac = string|object|function
* type of args = * []
* level = {0,1,2,3}
*
*/
jam.prototype.createAgent = function (ac,args,level,className) {
var node=this.world.nodes[this.node],
process=none,sac;
if (level==undefined) level=1;
if (Comp.obj.isFunction(ac) || Comp.obj.isObject(ac)) {
// Create an agent process from a constructor function or sandboxed constructor object
process = Aios.Code.createOn(node,ac,args,level,className);
if (process) return process.agent.id;
} else {
// It is a class name. Find an already sandboxed constructor from world classes pool
if (this.world.classes[ac])
process = Aios.Code.createOn(node,this.world.classes[ac][level],args);
else this.print('create: Cannot find agent class '+ac);
if (process) {
process.agent.ac=ac;
return process.agent.id;
} else return none;
}
}
/** Execute an agent snapshot delivered in JSON+ text format
*/
jam.prototype.execute = function (data) {
return this.world.nodes[this.node].receive(data,true);
}
/** Extend AIOS of pseicifc privilege level. The added functions can be accessed by agents.
*
*/
jam.prototype.extend = function (level,name,func) {
var self=this;
if (Comp.obj.isArray(level)) {
Comp.array.iter(level,function (l) {self.extend(l,name,func)});
return;
}
switch (level) {
case 0:
if (Aios.aios0[name]) throw Error('JAM: Cannot extend AIOS(0) with'+name+', existst already!');
Aios.aios0[name]=func; break;
case 1:
if (Aios.aios1[name]) throw Error('JAM: Cannot extend AIOS(1) with'+name+', existst already!');
Aios.aios1[name]=func; break;
case 2:
if (Aios.aios2[name]) throw Error('JAM: Cannot extend AIOS(2) with'+name+', existst already!');
Aios.aios2[name]=func; break;
case 3:
if (Aios.aios3[name]) throw Error('JAM: Cannot extend AIOS(3) with'+name+', existst already!');
Aios.aios3[name]=func; break;
default:
throw Error('JAM: Extend: Invalid privilige level argument ([0,1,2,3])');
}
}
/** Tuple space input operation - non blocking, i.e., equiv. to inp(pat,_,0)
*/
jam.prototype.inp = function (pat) {
return this.world.nodes[this.node].ts.extern.inp(pat);
}
/** Kill agent with specified id
*/
jam.prototype.kill = function (id) {
return Aios.kill(id);
}
/** Execute an agent snapshot in JSON+ text form after migration
*/
jam.prototype.migrate = function (data) {
return this.world.nodes[this.node].receive(data,false);
}
/** Read and parse one agent class from file.
* Format: function (p1,p2,..) { this.x; .. ; this.act = {..}; ..}
*/
if (fs) jam.prototype.open = function (file,options) {
var self=this,
res,
text,
name,
ast=null;
if (!options) options={};
name=options.classname||'<anonymous>';
if (options.verbose>0) this.print('Reading agent class template '+name+' from '+file);
function parseModel (text) {
function open(filename) {
var text=Io.read_file(filename);
if (text==undefined)
self.print('Error: Opening of file '+filename+' failed!');
else return parseModel(text);
}
try {
eval('res = '+text);
return res;
} catch (e) {
try {
ast = Esprima.parse(text, { tolerant: true, loc:true });
if (ast.errors && ast.errors.length>0) more = ', '+ast.errors[0];
} catch (e) {
if (e.lineNumber) more = ', in line '+e.lineNumber;
}
self.print(e.name+(e.message?': '+e.message:'')+(more?more:''));
}
}
var text=Io.read_file(file);
if (text==undefined) {
self.print('Error: Opening of file '+file+' failed!');
return undefined;
} else return parseModel(text);
};
/** Tuple space output operation
*/
jam.prototype.out = function (tuple) {
return this.world.nodes[this.node].ts.extern.out(tuple);
}
/** Tuple space read operation - non blocking, i.e., equiv. to rd(pat,_,0)
*/
jam.prototype.rd = function (pat) {
return this.world.nodes[this.node].ts.extern.rd(pat);
}
/** Read and compile agent class templates from file
* Expected file format: module.exports = { ac1: function (p1,p2,..) {}, ac2:.. }
*
*/
if (fs) jam.prototype.readClass = function (file,options) {
var self=this,
ac,
text,
modu,
p,
regex1,
ast=null,
all=null,
off=null;
if (!options) options={};
if (options.verbose>0) this.print('Looking up agent class template(s) from '+file);
modu=Require(file);
if (Comp.obj.isEmpty(modu)) {
if (options.verbose>0) this.print('Importing agent class template(s) from file '+file);
if (Comp.string.get(file,0)!='/') file = './'+file;
modu=require(file);
all=Io.read_file(file);
ast=Esprima.parse(all, { tolerant: true, loc:true });
}
if (!modu) this.print('Importing of agent class template(s) from '+file+' failed (empty).');
for (p in modu) {
ac={};
ac[p]=modu[p];
if (all) off=this.syntax.find(ast,'VariableDeclarator',p);
if (off && off.loc) this.syntax.offset=off.loc.start.line-1;
content = 'var ac = '+modu[p];
syntax = Esprima.parse(content, { tolerant: true, loc:true });
this.analyzeSyntax(syntax,
{
classname:p,
level:2,
verbose:options.verbose,
err:function (msg){self.print(msg)},
out:function (msg){self.print(msg)},
warn:function (msg){self.print(msg)}
});
text=Json.stringify(ac);
regex1= /this\.next=([a-zA-Z0-9_]+)/;
text=text.replace(regex1,"this.next='$1'");
// console.log(text);
ac=Json.parse(text,{});
if (options.verbose>0) this.print('Adding agent class constructor '+p+'.');
this.addClass(ac);
this.syntax.offset=0;
}
};
/** Disconnect and remove a virtual node from the world
*
*/
jam.prototype.removeNode = function (nodeid) {
this.world.removeNode(nodeid);
}
/** Tuple space remove operation
*/
jam.prototype.rm = function (pat) {
return this.world.nodes[this.node].ts.extern.rm(pat);
}
/** Force a scheduler run immediately normally executed by the
* jam service loop. Required if there were externeal agent
* management, e.g., by sending signals.
*/
jam.prototype.schedule = function () {
if (this.loopnext) clearTimeout(this.loopnext);
this.loop();
}
/** Set current node
*
*/
jam.prototype.setCurrentNode=function (n) {
if (n>=0 && n < this.world.nodes.length) this.node=n;
}
/** Send a signal to a specific agent 'to'.
*
*/
jam.prototype.signal=function (to,sig,arg,broadcast) {
var _process=Aios.current.process;
Aios.current.process=this.process;
if (!broadcast)
Aios.aios.send(to,sig,arg);
else
Aios.aios.broadcast(to,sig,arg);
Aios.current.process=_process;
}
/** Start the JAM scheduler
*
*/
jam.prototype.start=function () {
this.run=true;
this.world.start();
this.print('Starting ..');
this.loop();
}
/** Get agent process table info and other statistics
*
* type kind = {'process'}
*/
jam.prototype.stats = function (kind) {
var p,n,pro,agent,state,stats,allstats={},node;
switch (kind) {
case 'process':
for(n in this.world.nodes) {
stats={};
node=this.world.nodes[n];
for (p in node.processes.table) {
if (node.processes.table[p]) {
pro=node.processes.table[p];
agent=pro.agent;
if (pro.blocked||pro.suspended) state='BLOCKED';
else if (pro.dead) state='DEAD';
else if (pro.kill) state='KILL';
else if (pro.move) state='MOVE';
else state='READY';
stats[agent.id]={
pid:pro.pid,
gid:pro.gid,
state:state,
next:agent.next
};
}
}
allstats[node.id]=stats;
}
break;
}
if (this.world.nodes.length==1) return stats;
else return allstats;
}
/** Stop the JAM scheduler
*
*/
jam.prototype.stop=function () {
this.run=false;
this.print('Stopping ..');
if (this.loopnext)
clearTimeout(this.loopnext);
}
jam.prototype.version=function () {
return options.version;
}
var Jam = function(options) {
var obj = new jam(options);
return obj;
};
module.exports = {
Jam:Jam,
Windows:Windows,
X11:X11
}