91 lines
2.5 KiB
JavaScript
91 lines
2.5 KiB
JavaScript
/*global plt*/
|
|
/*jslint browser: true, unparam: true, vars: true, white: true, maxerr: 50, indent: 4 */
|
|
|
|
// Continuation marks
|
|
(function(baselib) {
|
|
'use strict';
|
|
var exports = {};
|
|
baselib.contmarks = exports;
|
|
|
|
|
|
var ContinuationMarkSet = function(kvlists) {
|
|
this.kvlists = kvlists;
|
|
};
|
|
|
|
ContinuationMarkSet.prototype.toDomNode = function(cache) {
|
|
var dom = document.createElement("span");
|
|
dom.appendChild(document.createTextNode('#<continuation-mark-set>'));
|
|
return dom;
|
|
};
|
|
|
|
ContinuationMarkSet.prototype.toWrittenString = function(cache) {
|
|
return '#<continuation-mark-set>';
|
|
};
|
|
|
|
ContinuationMarkSet.prototype.toDisplayedString = function(cache) {
|
|
return '#<continuation-mark-set>';
|
|
};
|
|
|
|
ContinuationMarkSet.prototype.ref = function(key) {
|
|
var i, j;
|
|
var result = [];
|
|
var kvlist;
|
|
for (i = 0; i < this.kvlists.length; i++) {
|
|
kvlist = this.kvlists[i];
|
|
for (j = 0; j < kvlist.length; j++) {
|
|
if (baselib.equality.equals(kvlist[j][0], key)) {
|
|
result.push(kvlist[j][1]);
|
|
}
|
|
}
|
|
}
|
|
return baselib.lists.makeList.apply(null, result);
|
|
};
|
|
|
|
|
|
|
|
// Returns an approximate stack trace.
|
|
// getContext: MACHINE -> (arrayof (U Procedure (Vector source line column position span)))
|
|
ContinuationMarkSet.prototype.getContext = function(MACHINE) {
|
|
var i, j;
|
|
var result = [];
|
|
var kvlist;
|
|
|
|
var tracedAppKey = plt.runtime.getTracedAppKey(MACHINE);
|
|
var tracedCalleeKey = plt.runtime.getTracedCalleeKey(MACHINE);
|
|
var proc, locationVector;
|
|
|
|
for (i = 0; i < this.kvlists.length; i++) {
|
|
kvlist = this.kvlists[i];
|
|
for (j = 0; j < kvlist.length; j++) {
|
|
if (kvlist[j][0] === tracedAppKey) {
|
|
locationVector = kvlist[j][1];
|
|
result.push(locationVector);
|
|
} else if (kvlist[j][0] === tracedCalleeKey) {
|
|
proc = kvlist[j][1];
|
|
if (proc !== null) {
|
|
result.push(proc);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
return result;
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
// A continuation prompt tag labels a prompt frame.
|
|
var ContinuationPromptTag = function(name) {
|
|
this.name = name;
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
|
|
exports.ContinuationMarkSet = ContinuationMarkSet;
|
|
exports.ContinuationPromptTag = ContinuationPromptTag;
|
|
|
|
}(this.plt.baselib)); |