Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Add new modules for mnesia.

Add a detalize redirect from the world layout to the detailized layout.
Fix radio buttons.
Add the JSON2 library.
  • Loading branch information...
commit 7e0ef9c24a0dca24b68dc207f7197632890d2aa7 1 parent a6acb2f
@arcusfelis authored
View
1  .gitignore
@@ -9,3 +9,4 @@ deps/*
.eunit
doc/README.md
log
+Mnesia.*
View
6 priv/html/detail.html
@@ -17,7 +17,11 @@
<!--
$(function() {
$(document).ready(function() {
- relatio.initDetail();
+ var parts = /id=([0-9]+)/.exec(location.search);
+ if (!parts)
+ throw("Undefined parameter!");
+ var nodeSetId = parts[1];
+ relatio.initDetail(nodeSetId);
});
});
-->
View
1  priv/html/index.html
@@ -11,6 +11,7 @@
<script src="js_lib/jquery.mousewheel.js" type="text/javascript"></script>
<script src="js_lib/jquery.jscrollpane.js" type="text/javascript"></script>
<script src="js_lib/mwheelIntent.js" type="text/javascript"></script>
+<script src="js_lib/json2.js" type="text/javascript"></script>
<script src="js_src/relatio.js" type="text/javascript"></script>
<script src="js_src/relatio.world.js" type="text/javascript"></script>
<script type="text/javascript">
View
482 priv/js_lib/json2.js
@@ -0,0 +1,482 @@
+/*
+ http://www.JSON.org/json2.js
+ 2010-03-20
+
+ Public Domain.
+
+ NO WARRANTY EXPRESSED OR IMPLIED. USE AT YOUR OWN RISK.
+
+ See http://www.JSON.org/js.html
+
+
+ This code should be minified before deployment.
+ See http://javascript.crockford.com/jsmin.html
+
+ USE YOUR OWN COPY. IT IS EXTREMELY UNWISE TO LOAD CODE FROM SERVERS YOU DO
+ NOT CONTROL.
+
+
+ This file creates a global JSON object containing two methods: stringify
+ and parse.
+
+ JSON.stringify(value, replacer, space)
+ value any JavaScript value, usually an object or array.
+
+ replacer an optional parameter that determines how object
+ values are stringified for objects. It can be a
+ function or an array of strings.
+
+ space an optional parameter that specifies the indentation
+ of nested structures. If it is omitted, the text will
+ be packed without extra whitespace. If it is a number,
+ it will specify the number of spaces to indent at each
+ level. If it is a string (such as '\t' or '&nbsp;'),
+ it contains the characters used to indent at each level.
+
+ This method produces a JSON text from a JavaScript value.
+
+ When an object value is found, if the object contains a toJSON
+ method, its toJSON method will be called and the result will be
+ stringified. A toJSON method does not serialize: it returns the
+ value represented by the name/value pair that should be serialized,
+ or undefined if nothing should be serialized. The toJSON method
+ will be passed the key associated with the value, and this will be
+ bound to the value
+
+ For example, this would serialize Dates as ISO strings.
+
+ Date.prototype.toJSON = function (key) {
+ function f(n) {
+ // Format integers to have at least two digits.
+ return n < 10 ? '0' + n : n;
+ }
+
+ return this.getUTCFullYear() + '-' +
+ f(this.getUTCMonth() + 1) + '-' +
+ f(this.getUTCDate()) + 'T' +
+ f(this.getUTCHours()) + ':' +
+ f(this.getUTCMinutes()) + ':' +
+ f(this.getUTCSeconds()) + 'Z';
+ };
+
+ You can provide an optional replacer method. It will be passed the
+ key and value of each member, with this bound to the containing
+ object. The value that is returned from your method will be
+ serialized. If your method returns undefined, then the member will
+ be excluded from the serialization.
+
+ If the replacer parameter is an array of strings, then it will be
+ used to select the members to be serialized. It filters the results
+ such that only members with keys listed in the replacer array are
+ stringified.
+
+ Values that do not have JSON representations, such as undefined or
+ functions, will not be serialized. Such values in objects will be
+ dropped; in arrays they will be replaced with null. You can use
+ a replacer function to replace those with JSON values.
+ JSON.stringify(undefined) returns undefined.
+
+ The optional space parameter produces a stringification of the
+ value that is filled with line breaks and indentation to make it
+ easier to read.
+
+ If the space parameter is a non-empty string, then that string will
+ be used for indentation. If the space parameter is a number, then
+ the indentation will be that many spaces.
+
+ Example:
+
+ text = JSON.stringify(['e', {pluribus: 'unum'}]);
+ // text is '["e",{"pluribus":"unum"}]'
+
+
+ text = JSON.stringify(['e', {pluribus: 'unum'}], null, '\t');
+ // text is '[\n\t"e",\n\t{\n\t\t"pluribus": "unum"\n\t}\n]'
+
+ text = JSON.stringify([new Date()], function (key, value) {
+ return this[key] instanceof Date ?
+ 'Date(' + this[key] + ')' : value;
+ });
+ // text is '["Date(---current time---)"]'
+
+
+ JSON.parse(text, reviver)
+ This method parses a JSON text to produce an object or array.
+ It can throw a SyntaxError exception.
+
+ The optional reviver parameter is a function that can filter and
+ transform the results. It receives each of the keys and values,
+ and its return value is used instead of the original value.
+ If it returns what it received, then the structure is not modified.
+ If it returns undefined then the member is deleted.
+
+ Example:
+
+ // Parse the text. Values that look like ISO date strings will
+ // be converted to Date objects.
+
+ myData = JSON.parse(text, function (key, value) {
+ var a;
+ if (typeof value === 'string') {
+ a =
+/^(\d{4})-(\d{2})-(\d{2})T(\d{2}):(\d{2}):(\d{2}(?:\.\d*)?)Z$/.exec(value);
+ if (a) {
+ return new Date(Date.UTC(+a[1], +a[2] - 1, +a[3], +a[4],
+ +a[5], +a[6]));
+ }
+ }
+ return value;
+ });
+
+ myData = JSON.parse('["Date(09/09/2001)"]', function (key, value) {
+ var d;
+ if (typeof value === 'string' &&
+ value.slice(0, 5) === 'Date(' &&
+ value.slice(-1) === ')') {
+ d = new Date(value.slice(5, -1));
+ if (d) {
+ return d;
+ }
+ }
+ return value;
+ });
+
+
+ This is a reference implementation. You are free to copy, modify, or
+ redistribute.
+*/
+
+/*jslint evil: true, strict: false */
+
+/*members "", "\b", "\t", "\n", "\f", "\r", "\"", JSON, "\\", apply,
+ call, charCodeAt, getUTCDate, getUTCFullYear, getUTCHours,
+ getUTCMinutes, getUTCMonth, getUTCSeconds, hasOwnProperty, join,
+ lastIndex, length, parse, prototype, push, replace, slice, stringify,
+ test, toJSON, toString, valueOf
+*/
+
+
+// Create a JSON object only if one does not already exist. We create the
+// methods in a closure to avoid creating global variables.
+
+if (!this.JSON) {
+ this.JSON = {};
+}
+
+(function () {
+
+ function f(n) {
+ // Format integers to have at least two digits.
+ return n < 10 ? '0' + n : n;
+ }
+
+ if (typeof Date.prototype.toJSON !== 'function') {
+
+ Date.prototype.toJSON = function (key) {
+
+ return isFinite(this.valueOf()) ?
+ this.getUTCFullYear() + '-' +
+ f(this.getUTCMonth() + 1) + '-' +
+ f(this.getUTCDate()) + 'T' +
+ f(this.getUTCHours()) + ':' +
+ f(this.getUTCMinutes()) + ':' +
+ f(this.getUTCSeconds()) + 'Z' : null;
+ };
+
+ String.prototype.toJSON =
+ Number.prototype.toJSON =
+ Boolean.prototype.toJSON = function (key) {
+ return this.valueOf();
+ };
+ }
+
+ var cx = /[\u0000\u00ad\u0600-\u0604\u070f\u17b4\u17b5\u200c-\u200f\u2028-\u202f\u2060-\u206f\ufeff\ufff0-\uffff]/g,
+ escapable = /[\\\"\x00-\x1f\x7f-\x9f\u00ad\u0600-\u0604\u070f\u17b4\u17b5\u200c-\u200f\u2028-\u202f\u2060-\u206f\ufeff\ufff0-\uffff]/g,
+ gap,
+ indent,
+ meta = { // table of character substitutions
+ '\b': '\\b',
+ '\t': '\\t',
+ '\n': '\\n',
+ '\f': '\\f',
+ '\r': '\\r',
+ '"' : '\\"',
+ '\\': '\\\\'
+ },
+ rep;
+
+
+ function quote(string) {
+
+// If the string contains no control characters, no quote characters, and no
+// backslash characters, then we can safely slap some quotes around it.
+// Otherwise we must also replace the offending characters with safe escape
+// sequences.
+
+ escapable.lastIndex = 0;
+ return escapable.test(string) ?
+ '"' + string.replace(escapable, function (a) {
+ var c = meta[a];
+ return typeof c === 'string' ? c :
+ '\\u' + ('0000' + a.charCodeAt(0).toString(16)).slice(-4);
+ }) + '"' :
+ '"' + string + '"';
+ }
+
+
+ function str(key, holder) {
+
+// Produce a string from holder[key].
+
+ var i, // The loop counter.
+ k, // The member key.
+ v, // The member value.
+ length,
+ mind = gap,
+ partial,
+ value = holder[key];
+
+// If the value has a toJSON method, call it to obtain a replacement value.
+
+ if (value && typeof value === 'object' &&
+ typeof value.toJSON === 'function') {
+ value = value.toJSON(key);
+ }
+
+// If we were called with a replacer function, then call the replacer to
+// obtain a replacement value.
+
+ if (typeof rep === 'function') {
+ value = rep.call(holder, key, value);
+ }
+
+// What happens next depends on the value's type.
+
+ switch (typeof value) {
+ case 'string':
+ return quote(value);
+
+ case 'number':
+
+// JSON numbers must be finite. Encode non-finite numbers as null.
+
+ return isFinite(value) ? String(value) : 'null';
+
+ case 'boolean':
+ case 'null':
+
+// If the value is a boolean or null, convert it to a string. Note:
+// typeof null does not produce 'null'. The case is included here in
+// the remote chance that this gets fixed someday.
+
+ return String(value);
+
+// If the type is 'object', we might be dealing with an object or an array or
+// null.
+
+ case 'object':
+
+// Due to a specification blunder in ECMAScript, typeof null is 'object',
+// so watch out for that case.
+
+ if (!value) {
+ return 'null';
+ }
+
+// Make an array to hold the partial results of stringifying this object value.
+
+ gap += indent;
+ partial = [];
+
+// Is the value an array?
+
+ if (Object.prototype.toString.apply(value) === '[object Array]') {
+
+// The value is an array. Stringify every element. Use null as a placeholder
+// for non-JSON values.
+
+ length = value.length;
+ for (i = 0; i < length; i += 1) {
+ partial[i] = str(i, value) || 'null';
+ }
+
+// Join all of the elements together, separated with commas, and wrap them in
+// brackets.
+
+ v = partial.length === 0 ? '[]' :
+ gap ? '[\n' + gap +
+ partial.join(',\n' + gap) + '\n' +
+ mind + ']' :
+ '[' + partial.join(',') + ']';
+ gap = mind;
+ return v;
+ }
+
+// If the replacer is an array, use it to select the members to be stringified.
+
+ if (rep && typeof rep === 'object') {
+ length = rep.length;
+ for (i = 0; i < length; i += 1) {
+ k = rep[i];
+ if (typeof k === 'string') {
+ v = str(k, value);
+ if (v) {
+ partial.push(quote(k) + (gap ? ': ' : ':') + v);
+ }
+ }
+ }
+ } else {
+
+// Otherwise, iterate through all of the keys in the object.
+
+ for (k in value) {
+ if (Object.hasOwnProperty.call(value, k)) {
+ v = str(k, value);
+ if (v) {
+ partial.push(quote(k) + (gap ? ': ' : ':') + v);
+ }
+ }
+ }
+ }
+
+// Join all of the member texts together, separated with commas,
+// and wrap them in braces.
+
+ v = partial.length === 0 ? '{}' :
+ gap ? '{\n' + gap + partial.join(',\n' + gap) + '\n' +
+ mind + '}' : '{' + partial.join(',') + '}';
+ gap = mind;
+ return v;
+ }
+ }
+
+// If the JSON object does not yet have a stringify method, give it one.
+
+ if (typeof JSON.stringify !== 'function') {
+ JSON.stringify = function (value, replacer, space) {
+
+// The stringify method takes a value and an optional replacer, and an optional
+// space parameter, and returns a JSON text. The replacer can be a function
+// that can replace values, or an array of strings that will select the keys.
+// A default replacer method can be provided. Use of the space parameter can
+// produce text that is more easily readable.
+
+ var i;
+ gap = '';
+ indent = '';
+
+// If the space parameter is a number, make an indent string containing that
+// many spaces.
+
+ if (typeof space === 'number') {
+ for (i = 0; i < space; i += 1) {
+ indent += ' ';
+ }
+
+// If the space parameter is a string, it will be used as the indent string.
+
+ } else if (typeof space === 'string') {
+ indent = space;
+ }
+
+// If there is a replacer, it must be a function or an array.
+// Otherwise, throw an error.
+
+ rep = replacer;
+ if (replacer && typeof replacer !== 'function' &&
+ (typeof replacer !== 'object' ||
+ typeof replacer.length !== 'number')) {
+ throw new Error('JSON.stringify');
+ }
+
+// Make a fake root object containing our value under the key of ''.
+// Return the result of stringifying the value.
+
+ return str('', {'': value});
+ };
+ }
+
+
+// If the JSON object does not yet have a parse method, give it one.
+
+ if (typeof JSON.parse !== 'function') {
+ JSON.parse = function (text, reviver) {
+
+// The parse method takes a text and an optional reviver function, and returns
+// a JavaScript value if the text is a valid JSON text.
+
+ var j;
+
+ function walk(holder, key) {
+
+// The walk method is used to recursively walk the resulting structure so
+// that modifications can be made.
+
+ var k, v, value = holder[key];
+ if (value && typeof value === 'object') {
+ for (k in value) {
+ if (Object.hasOwnProperty.call(value, k)) {
+ v = walk(value, k);
+ if (v !== undefined) {
+ value[k] = v;
+ } else {
+ delete value[k];
+ }
+ }
+ }
+ }
+ return reviver.call(holder, key, value);
+ }
+
+
+// Parsing happens in four stages. In the first stage, we replace certain
+// Unicode characters with escape sequences. JavaScript handles many characters
+// incorrectly, either silently deleting them, or treating them as line endings.
+
+ text = String(text);
+ cx.lastIndex = 0;
+ if (cx.test(text)) {
+ text = text.replace(cx, function (a) {
+ return '\\u' +
+ ('0000' + a.charCodeAt(0).toString(16)).slice(-4);
+ });
+ }
+
+// In the second stage, we run the text against regular expressions that look
+// for non-JSON patterns. We are especially concerned with '()' and 'new'
+// because they can cause invocation, and '=' because it can cause mutation.
+// But just to be safe, we want to reject all unexpected forms.
+
+// We split the second stage into 4 regexp operations in order to work around
+// crippling inefficiencies in IE's and Safari's regexp engines. First we
+// replace the JSON backslash pairs with '@' (a non-JSON character). Second, we
+// replace all simple value tokens with ']' characters. Third, we delete all
+// open brackets that follow a colon or comma or that begin the text. Finally,
+// we look to see that the remaining characters are only whitespace or ']' or
+// ',' or ':' or '{' or '}'. If that is so, then the text is safe for eval.
+
+ if (/^[\],:{}\s]*$/.
+test(text.replace(/\\(?:["\\\/bfnrt]|u[0-9a-fA-F]{4})/g, '@').
+replace(/"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]?\d+)?/g, ']').
+replace(/(?:^|:|,)(?:\s*\[)+/g, ''))) {
+
+// In the third stage we use the eval function to compile the text into a
+// JavaScript structure. The '{' operator is subject to a syntactic ambiguity
+// in JavaScript: it can begin a block or an object literal. We wrap the text
+// in parens to eliminate the ambiguity.
+
+ j = eval('(' + text + ')');
+
+// In the optional fourth stage, we recursively walk the new structure, passing
+// each name/value pair to a reviver function for possible transformation.
+
+ return typeof reviver === 'function' ?
+ walk({'': j}, '') : j;
+ }
+
+// If the text is not JSON parseable, then a SyntaxError is thrown.
+
+ throw new SyntaxError('JSON.parse');
+ };
+ }
+}());
View
6 priv/js_src/relatio.detail.js
@@ -1,4 +1,4 @@
-relatio.initDetail = function() {
+relatio.initDetail = function(nodeSetId) {
var keyCodes = relatio.keyBoard.keyCodes,
charCodes = relatio.keyBoard.charCodes;
@@ -84,7 +84,7 @@ relatio.initDetail = function() {
// Parse a GEXF encoded file to fill the graph
// (requires "sigma.parseGexf.js" to be included)
- si.parseGexf('data/v-e-m.gexf');
+ si.parseGexf('data/v-e-m.gexf?node_set_id=' + nodeSetId);
si.iterEdges(function(e) {
if (e.weight)
e.size = e.weight;
@@ -194,7 +194,7 @@ relatio.initDetail = function() {
// This function will be called, if a node was clicked.
var activateNode = function(event) {
var si = event.target;
- var ids = event.content;
+ var ids = event.content.slice(0, 1);
var rcpnt_node_ids = [];
var donor_node_ids = [];
var module_node_ids = [];
View
2  priv/js_src/relatio.js
@@ -792,7 +792,7 @@ relatio.keyBoard.charCodes = {
};
// Move from id on `offset` nodes forward using ids as an index,
-relatio.utils = function nextNode(offset, id, ids)
+relatio.utils.nextNode = function(offset, id, ids)
{
var currect_index = ids.indexOf(id),
len = ids.length;
View
64 priv/js_src/relatio.world.js
@@ -276,7 +276,7 @@ relatio.initWorld = function() {
// This function will be called, if a node was clicked.
var activateNode = function(event) {
var si = event.target;
- var ids = event.content;
+ var ids = event.content.slice(0, 1);
var rcpnt_node_ids = [];
var donor_node_ids = [];
var module_node_ids = [];
@@ -1114,12 +1114,6 @@ relatio.initWorld = function() {
return false;
});
- /* Browser can save a state of the radio button after page reloading. */
- var validateRadioButtonState = function()
- {
- var $rb = $(this);
- // Is it has the sub element that is checked?
- }
var radioBtns = $(".radio").on("click", function(e) {
if (e.target.tagName == "INPUT")
@@ -1134,14 +1128,33 @@ relatio.initWorld = function() {
return false;
});
+
$("input", radioBtns).change(function(e) {
- if (!$(this).attr("checked"))
- $rb.removeClass("selected");
- else
- $rb.addClass("selected");
+ var p = $(this).parents(".radio:first"),
+ g = p.parents(".radio-group");
+ $(".radio", g).not(p).removeClass("selected");
+ p.addClass("selected");
});
+ /* Browser can save a state of the radio button after page reloading. */
+ var validateRadioButtonState = function()
+ {
+ var $rb = $(this);
+ // Is it has the sub element that is checked?
+ if ($("input:checked:first", $rb).length)
+ $rb.addClass("selected");
+ else
+ $rb.removeClass("selected");
+ }
+
+ // If we hit <F5>, then browser will reload the page and enter old values into
+ // a form. It will not create a change event.
+ radioBtns.each(validateRadioButtonState);
+
+
+
+
// Add a class, that tells us about the shift key status.
$(document).on("keydown.relatio keyup.relatio", function(e) {
if (e.keyCode == keyCodes.SHIFT) {
@@ -1186,26 +1199,47 @@ relatio.initWorld = function() {
var submitDetalize = function(e) {
var form = $(e.target).parents("form:first");
var modeElem = $("input[type=radio]:checked", form);
- var info = [];
+ var data = [];
switch (modeElem.val())
{
case "selected":
- info = calculateMinSelectedNodeSet(function(mn) { return mn.attr.is_selected; });
+ data = calculateMinSelectedNodeSet(function(mn) { return mn.attr.is_selected; });
break;
case "visible":
- info = calculateMinSelectedNodeSet(function(mn) { return !mn.hidden; });
+ data = calculateMinSelectedNodeSet(function(mn) { return !mn.hidden; });
break;
default:
throw("Unknown value " + modeElem.val());
}
- if (!info.length)
+ if (!data.length) {
noty({text: "The node set is empty.",
type: "error",
layout: "bottomCenter",
timeout: 3000});
+ return false;
+ }
+
+ $.ajax({
+ async: false,
+ cache: false,
+ type: 'POST',
+ url: 'data/save_detalize',
+ data: {nodes: JSON.stringify(data)},
+ dataType: 'text',
+ contentType: 'application/x-www-form-urlencoded; charset=utf-8',
+ success: function(json){
+ if (json.length != 0){
+ var data = JSON.parse(json);
+ var id = data.node_set_id;
+ console.log("Save the node set under id = " + id);
+ window.location.assign("detail.html?id=" + id);
+ }
+ }
+ });
+
}
$("[name=submit_detalize]").click(submitDetalize);
View
14 src/relatio.hrl
@@ -0,0 +1,14 @@
+%% -----------------------------------------------------------------------
+%% Record Definitions
+%% -----------------------------------------------------------------------
+
+-record(r_node_set, {
+ id :: relatio_type:node_set_id(),
+ value :: relatio_type:node_set_value()
+}).
+
+-record(r_counter, {
+ table :: relatio_type:table_name(),
+ last_id :: relatio_type:record_id()
+}).
+
View
53 src/relatio_data_handler.erl
@@ -17,7 +17,24 @@ handle(Req@, State) ->
{ok, Req@} = cowboy_http_req:reply(200, [], generate_world_xml(), Req@),
{ok, Req@, State};
[<<"v-e-m.gexf">>] ->
- {ok, Req@} = cowboy_http_req:reply(200, [], generate_xml(), Req@),
+ {SetIdBin, Req@} = cowboy_http_req:qs_val(<<"node_set_id">>, Req@),
+ SetId = list_to_integer(binary_to_list(SetIdBin)),
+ Nodes = relatio_store:get_node_set(SetId),
+ Reply = generate_xml(Nodes),
+ {ok, Req@} = cowboy_http_req:reply(200, [], Reply, Req@),
+ {ok, Req@, State};
+
+ [<<"save_detalize">>] ->
+ {PostVals, Req@} = cowboy_http_req:body_qs(Req@),
+ io:format(user, "PostVals ~p~n", [PostVals]),
+ NodesJSON = proplists:get_value(<<"nodes">>, PostVals),
+ Nodes = jsx:decode(NodesJSON),
+ io:format(user, "Nodes ~p~n", [Nodes]),
+ %% Save a node set into database, get its id.
+ SetId = relatio_store:put_node_set(Nodes),
+ Reply = [{<<"node_set_id">>, SetId}],
+ ReplyJSON = jsx:encode(Reply),
+ {ok, Req@} = cowboy_http_req:reply(200, [], ReplyJSON, Req@),
{ok, Req@, State}
end.
@@ -36,7 +53,7 @@ terminate(_Req, _State) ->
% xref:add_application(Xref, code:lib_dir(mnesia)),
% xref:add_application(Xref, code:lib_dir(snmp)),
-generate_xml() ->
+generate_xml(Nodes) ->
%% TODO: rewrite this function completely.
Dir1 = "/home/user/erlang/esl/ejabberd/apps/ejabberd",
Dir2 = code:lib_dir(stdlib),
@@ -45,9 +62,9 @@ generate_xml() ->
case whereis(inferno_server) of
undefined ->
{ok, Info} = inferno_server:start([]),
- inferno_server:add_application(Info, Dir1),
- inferno_server:add_application(Info, Dir2),
- inferno_server:add_application(Info, Dir3),
+ inferno_server:add_application(Info, ejabberd, Dir1),
+ inferno_server:add_application(Info, stdlib, Dir2),
+ inferno_server:add_application(Info, kernel, Dir3),
erlang:register(inferno_server, self()),
Info;
Info ->
@@ -56,6 +73,7 @@ generate_xml() ->
link(Info),
{ok, Xref} = xref:start([]),
+ add_targets(Nodes, Xref, Info),
%% xref:add_module(Xref, Path),
link(Xref),
@@ -90,3 +108,28 @@ generate_world_xml() ->
end.
+add_targets(Nodes, Xref, Info) ->
+ KVMaker = fun(Node) ->
+ Type = proplists:get_value(<<"type">>, Node),
+ Name = proplists:get_value(<<"name">>, Node),
+ {Type, list_to_atom(binary_to_list(Name))} %% {Key, Value}
+ %% Warning: list_to_atom is not save.
+ end,
+ %% Type2Names = [{<<"app">>, [<<"kernel">>]}, {<<"module">>, [<<"lists">>]}]
+ Type2Names = lists2:map_group_with(KVMaker, Nodes),
+ AppNames = proplists:get_value(<<"app">>, Type2Names, []),
+ ModNames = proplists:get_value(<<"module">>, Type2Names, []),
+ ModFileNames = inferno_server:
+ module_names_to_compiled_filenames(Info, ModNames),
+ AppDirs = inferno_server:
+ application_names_to_directories(Info, AppNames),
+ io:format(user, "AppDirs: ~p~n", [AppDirs]),
+ io:format(user, "ModFileNames: ~p~n", [ModFileNames]),
+ [xref:add_application(Xref, AppDir)
+ || {_AppName, AppDir} <- AppDirs, AppDir =/= undefined],
+ [xref:add_module(Xref, ModFileName)
+ || {_ModName, ModFileName} <- ModFileNames, ModFileName =/= undefined],
+ ok.
+
+
+
View
226 src/relatio_db.erl
@@ -0,0 +1,226 @@
+-module(relatio_db).
+-export([up/0, down/0]).
+-export([ lookup/2
+ , maybe_lookup/2
+ , read/2
+ , write/1
+ , update_with/3
+ , remove/2
+ , record_to_id/1
+ , match_object/1
+
+ , select/1
+ , select1/1
+ , transaction/1]).
+
+-include_lib("relatio/src/relatio.hrl").
+
+
+%% -----------------------------------------------------------------------
+%% Deploy
+%% -----------------------------------------------------------------------
+
+up() ->
+ stopped = mnesia:stop(),
+ case mnesia:create_schema([node()]) of
+ {error,{_Node,{already_exists,_Node}}} ->
+ ok = mnesia:start(),
+ ok;
+ ok ->
+ error_logger:info_msg("Create tables.~n", []),
+
+ ok = mnesia:start(),
+
+ mnesia:create_table(r_node_set,
+ [{type, ordered_set}
+ ,{disc_copies, [node()]}
+ ,{attributes, record_info(fields, r_node_set)}
+ ]),
+
+ Res = mnesia:create_table(r_counter,
+ [{type, set}
+ ,{disc_copies, [node()]}
+ ,{attributes, record_info(fields, r_counter)}
+ ]),
+
+ case Res of
+ ok ->
+ [mnesia:write(T, #r_counter{table = T, last_id = 0})
+ || T <- tables(), T =/= r_counter];
+ _Other ->
+ %% Table was already created.
+ ok
+ end
+ end,
+
+ ok = mnesia:wait_for_tables(tables(), 3000),
+ ok.
+
+
+down() ->
+ [mnesia:delete_table(X) || X <- tables()],
+ ok.
+
+
+tables() ->
+ [r_node_set, r_counter].
+
+
+
+%% -----------------------------------------------------------------------
+%% Public API
+%% -----------------------------------------------------------------------
+
+next_id(Tab) ->
+ PrevN = mnesia:dirty_update_counter(r_counter, Tab, #r_counter.last_id),
+ PrevN + 1.
+
+
+write(Rec) ->
+ Id = record_to_id(Rec),
+ case Id of
+ undefined ->
+ insert(Rec);
+ _Other ->
+ update(Rec)
+ end.
+
+
+%% New record
+insert(Rec) ->
+ Table = erlang:element(1, Rec),
+ F = fun() ->
+ NextId = next_id(Table),
+ Rec2 = erlang:setelement(2, Rec, NextId),
+ mnesia:write(Rec2),
+ Rec2
+ end,
+ case mnesia:is_transaction() of
+ false ->
+ {atomic, Rec3} = mnesia:transaction(F),
+ Rec3;
+ true ->
+ F()
+ end.
+
+
+%% Update
+update(Rec) ->
+ case mnesia:is_transaction() of
+ false ->
+ F = fun() -> mnesia:write(Rec) end,
+ {atomic, ok} = mnesia:transaction(F),
+ Rec;
+ true ->
+ mnesia:write(Rec),
+ Rec
+ end.
+
+
+lookup(Tab, Id) ->
+ F = fun() -> mnesia:read(Tab, Id) end,
+ case mnesia:transaction(F) of
+ {atomic, [Result]} ->
+ Result
+ end.
+
+
+maybe_lookup(Tab, Id) ->
+ F = fun() -> mnesia:read(Tab, Id) end,
+ case mnesia:transaction(F) of
+ {atomic, [Result]} ->
+ Result;
+ {atomic, []} ->
+ undefined
+ end.
+
+
+update_with(F, Tab, Id) when is_function(F, 1), Id =/= undefined ->
+ TransF = fun() ->
+ [begin
+ NewRec = F(Rec),
+ ok = mnesia:write(NewRec),
+ NewRec
+ end || Rec <- mnesia:read(Tab, Id)]
+ end,
+ case mnesia:transaction(TransF) of
+ {atomic, Result} ->
+ Result
+ end.
+
+
+read(Tab, Id) ->
+ F = fun() -> mnesia:read(Tab, Id) end,
+ case mnesia:transaction(F) of
+ {atomic, Result} ->
+ Result
+ end.
+
+
+remove(Table, Id) ->
+ case mnesia:is_transaction() of
+ false ->
+ F = fun() -> mnesia:delete({Table, Id}), ok end,
+ {atomic, ok} = mnesia:transaction(F),
+ ok;
+ true ->
+ mnesia:delete({Table, Id}),
+ ok
+ end.
+
+
+
+%% query list comprehenshions
+select(Q)->
+ %% to prevent against nested transactions
+ %% to ensure it also works whether table
+ %% is fragmented or not, we will use
+ %% mnesia:activity/4
+
+ case mnesia:is_transaction() of
+ false ->
+ F = fun(QH)-> qlc:e(QH) end,
+ mnesia:activity(transaction,F,[Q],mnesia_frag);
+ true -> qlc:e(Q)
+ end.
+
+
+transaction(F)->
+ %% to prevent against nested transactions
+ %% to ensure it also works whether table
+ %% is fragmented or not, we will use
+ %% mnesia:activity/4
+
+ case mnesia:is_transaction() of
+ false ->
+ {atomic, X} = mnesia:transaction(F),
+ X;
+ true -> F()
+ end.
+
+
+select1(Q) ->
+ case select(Q) of
+ [] -> undefined;
+ [X] -> X
+ end.
+
+
+match_object(Pattern) ->
+ case mnesia:is_transaction() of
+ false ->
+ F = fun(P) -> mnesia:match_object(P) end,
+ mnesia:activity(transaction,F,[Pattern],mnesia_frag);
+ true ->
+ mnesia:match_object(Pattern)
+ end.
+
+
+%% -----------------------------------------------------------------------
+%% Private helpers
+%% -----------------------------------------------------------------------
+
+record_to_id(Rec) ->
+ erlang:element(2, Rec).
+
+
View
34 src/relatio_store.erl
@@ -0,0 +1,34 @@
+-module(relatio_store).
+-include_lib("relatio/src/relatio.hrl").
+-include_lib("stdlib/include/qlc.hrl").
+
+-export([put_node_set/1,
+ get_node_set/1]).
+
+to_id(Rec) ->
+ erlang:element(2, Rec).
+
+maybe_to_id(undefined) -> undefined;
+maybe_to_id(Rec) -> to_id(Rec).
+
+
+maybe_element(_N, undefined) -> undefined;
+maybe_element( N, Rec) -> element(N, Rec).
+
+
+-spec put_node_set(Value) -> Id when
+ Value :: relatio_type:node_set_value(),
+ Id :: relatio_type:node_set_id().
+
+put_node_set(Value) ->
+ to_id(relatio_db:write(#r_node_set{value = Value})).
+
+
+%% Returns `undefined', if nothing was found.
+-spec get_node_set(Id) -> Value | undefined when
+ Value :: relatio_type:node_set_value(),
+ Id :: relatio_type:node_set_id().
+
+get_node_set(Id) ->
+ maybe_element(#r_node_set.value, relatio_db:maybe_lookup(r_node_set, Id)).
+
Please sign in to comment.
Something went wrong with that request. Please try again.