App-Music-ChordPro
view release on metacpan or search on metacpan
lib/ChordPro/res/abc/abc2svg/psvg-1.js view on Meta::CPAN
if(C !== false) L.push(C);
}
return L.join("");
}
function symbol() {
// TODO 1e10 1E-5 real numbers
// TODO radix numbers 8#1777 16#FFFE 2#1000
var C = xchar();
if(member(C, "()<>/% \t\n")) throw new Error("Symbol expected, got " + C);
var N = member(C, "+-0123456789.");
var F = "." == C;
var L = [C];
while(peek() && !member(peek(), "()<>[]{}/% \t\n")) {
C = xchar();
L.push(C);
if(N && !member(C, "0123456789")) {
if(!F && "." == C) F = true;
else N = false;
}
}
L = L.join("");
if(1 == L.length && member(L, "+-.")) N = false;
return N ? (F ? parseFloat(L) : parseInt(L, 10)) : new Symbol(L);
}
function token() {
skip();
switch(peek()) { // TODO read dict in <> <~~> <<>> immediate literal //
case false: return undefined;
case "%": return comment();
case "[": return new Symbol(xchar());
case "]": return new Symbol(xchar());
case "{": Self.D++; return new Symbol(xchar());
case "}": Self.D--; return new Symbol(xchar());
case "/": xchar(); var X = symbol(); return quote(X);
case "(": return text();
case "<":
xchar();
if("<" != peek()) throw new Error("Encoded strings not implemented yet");
xchar();
return new Symbol("<<");
case ">":
xchar();
if(">" != peek()) throw new Error("Unexpected >");
xchar();
return new Symbol(">>");
default: return symbol();
}
}
PsParser.prototype.init = init;
PsParser.prototype.peek = peek;
PsParser.prototype.token = token;
return this;
}
function Ps0(Os, Ds, Es) {
function run(X, Z) {
if(isSymbol(X) && !isQuoted(X)) { // executable name
var K = symbolName(X);
var D = inDs(Ds, K);
if(!D)
throw new Error("bind error '" + K + "'");
Es.push([false, D[K]]);
} else if(Z && isArray(X) && isQuoted(X)) { // proc from Es
if(0 < X.length) {
var F = X[0];
var R = quote(X.slice(1));
if(0 < R.length) Es.push([false, R]);
run(F, false);
}
} else if("function" == typeof X) X(); // operator
else Os.push(X);
}
function exec() {
var X = Os.pop();
run(X, false);
}
function step() {
var C = Es.pop();
var L = C.shift(); // TODO use for 'exit'
var X = C.pop();
for(var I = 0; I < C.length; I++)
Os.push(C[I]);
run(X, true);
}
var PsP = new PsParser;
function parse(L) {
PsP.init(L);
while(PsP.peek()) {
var T = PsP.token();
if(T || T === 0) {
Os.push(T);
if(PsP.D <= 0 || isSymbol(T) &&
(member(symbolName(T), "[]{}") ||
"<<" == symbolName(T) || ">>" == symbolName(T))) {
exec();
while(0 < Es.length)
step();
}
}
}
return Os;
}
Ps0.prototype.run = run;
Ps0.prototype.exec = exec;
Ps0.prototype.step = step;
Ps0.prototype.parse = parse;
return this;
}
function Wps(psvg_i) {
var psvg = psvg_i;
var Os = [];
var Sd = {};
var Ds = [Sd];
var Es = [];
var Ps = new Ps0(Os, Ds, Es);
// trivial
Sd["true"] = function() {Os.push(true);};
Sd["false"] = function() {Os.push(false);};
Sd["null"] = function() {Os.push(null);};
lib/ChordPro/res/abc/abc2svg/psvg-1.js view on Meta::CPAN
Sd["put"] = function() {
var V = Os.pop();
var K = Os.pop();
var D = Os.pop();
// TODO other datatypes
if(isSymbol(K)) D[symbolName(K)] = V;
else D[K] = V;
};
Sd["begin"] = function() {Ds.push(Os.pop());};
Sd["end"] = function() {Ds.pop();};
Sd["currentdict"] = function() {Os.push(Ds[Ds.length - 1]);};
Sd["where"] = function() {
var K = symbolName(Os.pop());
var D = inDs(Ds, K);
if(D) {
Os.push(D);
Os.push(true);
} else Os.push(false);
};
// miscellaneous
Sd["save"] = function() {
var X = Ds.slice();
for(var I = 0; I < X.length; I++) {
var A = X[I];
var B = {};
for(var J in A)
B[J] = A[J];
X[I] = B;
}
Os.push(X);
};
Sd["restore"] = function() {
var X = Os.pop();
while(0 < Ds.length)
Ds.pop();
while(0 < X.length)
Ds.unshift(X.pop());
};
Sd["type"] = function() {
var A = Os.pop();
var X;
if(null === A) X = "nulltype";
else if(true === A || false === A) X = "booleantype";
else if(M === A) X = "marktype";
else if("string" == typeof A) X = "stringtype";
else if(isSymbol(A)) X = isQuoted(A) ? "nametype" : "operatortype";
else if("function" == typeof A) X = "operatortype";
else if(isArray(A)) X = "arraytype";
else if("object" == typeof A) X = "dicttype";
else if(1 * A == A) X = A % 1 == 0 ? "integertype" : "realtype";
else throw new Error("Undefined type '" + A + "'");
Os.push(X);
// filetype
// packedarraytype (LanguageLevel 2)
// fonttype
// gstatetype (LanguageLevel 2)
// savetype
};
var Sb = true;
Sd[".strictBind"] = function() {Sb = true === Os.pop();};
Sd["bind"] = function() {Os.push(bind(Os.pop()));};
function bind(X) {
if(isSymbol(X) && !isQuoted(X)) {
//jfm++
// var K = symbolName(X);
// var D = inDs(Ds, K);
// if(Sb) {
// if(!D)
// throw new Error("bind error '" + K + "'");
// return bind(D[K]);
// } else return !D ? X : bind(D[K]);
return X
//jfm--
} else if(isArray(X) && isQuoted(X)) {
var N = X.length;
var A = [];
for(var I = 0; I < N; I++) {
var Xi = X[I];
var Xb = bind(Xi);
if(isArray(Xi))
A = A.concat(isQuoted(Xi) ? quote([Xb]) : [Xb]);
else
A = A.concat(Xb);
}
return quote(A);
}
return X;
}
// debugging
Sd["="] = function() {var X = Os.pop(); alert(X && X.nm || X);}; // TODO
Sd["=="] = function() {alert(Os.pop());}; // TODO
Sd["stack"] = function() {alert(Os);}; // TODO
Sd["pstack"] = function() {alert(Os);}; // TODO
// js ffi
Sd[".call"] = function() {
var N = Os.pop();
var K = Os.pop();
var D = Os.pop();
var X = [];
for(var I = 0; I < N; I++) X.unshift(Os.pop());
if (!D[K]) throw new Error(".call: " + K + " undef")
Os.push(D[K].apply(D, X));
};
//jfm++
Sd[".call0"] = function() {
var N = Os.pop(),
K = Os.pop(),
D = Os.pop(),
X = []
for(var I = 0; I < N; I++) X.unshift(Os.pop());
if (!D[K]) throw new Error(".call0: " + K + " undef")
D[K].apply(D, X);
};
Sd[".svg"] = function() {Os.push(psvg)};
//jfm--
Sd[".math"] = function() {Os.push(Math);};
Sd[".date"] = function() {Os.push(new Date());}; // TODO split new and Date
Sd[".window"] = function() {Os.push(window);};
Sd[".callback"] = function() { // TODO event arg?
var X = Os.pop();
Os.push(function() {
Ps.run(X, true);
while(0 < Es.length)
Ps.step();
});
};
// html5
Sd[".minv"] = function() { // TODO in ps
var M = Os.pop();
var a = M[0]; var b = M[1];
var d = M[2]; var e = M[3];
var g = M[4]; var h = M[5];
Os.push([e, b, d, a, d*h-e*g, b*g-a*h]);
};
Sd[".mmul"] = function() { // TODO in ps
var B = Os.pop();
var A = Os.pop();
var a = A[0]; var b = A[1];
var d = A[2]; var e = A[3];
lib/ChordPro/res/abc/abc2svg/psvg-1.js view on Meta::CPAN
defl = 0
if (de.defl.nost)
defl = 1
if (de.defl.noen)
defl |= 2
if (de.s.stem >= 0)
defl |= 4;
Os.pop();
script = '/defl ' + defl + ' def '
if (de.lden) {
script += x.toFixed(1) + ' ' + y.toFixed(1) + ' ';
de2 = de.start;
x = de2.x;
y = de2.y + staff_tb[de2.st].y
if (x > de.x - 20)
x = de.x - 20
}
dd = de.dd
if (de.has_val) {
script += de.val + ' '
} else if (dd.str) {
script += '(' + dd.str + ') ';
y += dd.h * 0.2
}
return pscall(f, x, y, script)
}
// try to generate a glyph by PS
Psvg.prototype.psxygl = function(x, y, gl) {
var Os = wps.parse('/' + gl + ' where'),
A = Os.pop()
if (!A)
return false
Os.pop()
return pscall(gl, x, y, 'dlw ')
}
Psvg.prototype.svgcall = function(f, x, y, v1, v2) {
var xy = getorig();
ps_flush();
f((x + xy[0]) * abcobj.stv_g().scale, y - xy[1], v1, v2)
}
// initialize the PostScript functions
wps.parse("\
currentdict/systemdict currentdict put\n\
systemdict/{/mark cvx put\n\
systemdict/[/mark cvx put\n\
systemdict/]\n\
/counttomark cvx\n\
/array cvx\n\
/astore cvx\n\
/exch cvx\n\
/pop cvx\n\
5 array astore cvx put\n\
systemdict/}/] cvx/cvx cvx 2 array astore cvx put\n\
systemdict/def{currentdict 2 index 2 index put pop pop}put\n\
\n\
/maxlength 1000 def % TODO\n\
/.bdef{bind def}bind def\n\
/.xdef{exch def}.bdef\n\
/dup{0 index}.bdef\n\
/load{dup where pop exch get}.bdef\n\
/.ldef{load def}.bdef\n\
/if{{}ifelse}.bdef\n\
/cleartomark{array pop}.bdef\n\
/known{exch begin where{currentdict eq}{false}if end}.bdef\n\
/store{1 index where{3 1 roll put}{def}ifelse}.bdef\n\
/not{{false}{true}ifelse}.bdef\n\
%/.logand{{{true}{false}ifelse}{pop false}ifelse}.bdef\n\
%/and/.logand .ldef % TODO numeric and\n\
/.logor{{pop true}{{true}{false}ifelse}ifelse}.bdef\n\
/or/.logor .ldef % TODO numeric or\n\
/ne{eq not}.bdef\n\
/ge{lt not}.bdef\n\
/le{1 index 1 index eq 3 1 roll lt or}.bdef\n\
/gt{le not}.bdef\n\
/.repeat{1 1 4 2 roll for}.bdef\n\
\n\
%% math\n\
\n\
/floor{.math(floor)1 .call}.bdef\n\
\n\
/neg{0 exch sub}.bdef\n\
/add{neg sub}.bdef\n\
/idiv{div floor}.bdef\n\
\n\
/.pi{.math(PI)get}.bdef\n\
\n\
/abs{.math(abs)1 .call}.bdef\n\
%/.acos{.math(acos)1 .call}.bdef\n\
%/.asin{.math(asin)1 .call}.bdef\n\
/atan{.math(atan2)2 .call 180 mul .pi div}.bdef\n\
%/.atan2{.math(atan2)2 .call}.bdef\n\
%/ceiling{.math(ceil)1 .call}.bdef\n\
/cos{.pi mul 180 div .math(cos)1 .call}.bdef\n\
%/.exp{.math(exp)1 .call}.bdef\n\
%/log{.math(log)1 .call}.bdef\n\
%/.max{.math(max)2 .call}.bdef\n\
%/.min{.math(min)2 .call}.bdef\n\
%/.pow{.math(pow)2 .call}.bdef\n\
%/.random{.math(random)0 .call}.bdef\n\
%/rand{.random}.bdef % TODO follow spec\n\
%/round{.math(round)1 .call}.bdef\n\
%/sin{.math(sin)1 .call}.bdef\n\
%/sqrt{.math(sqrt)1 .call}.bdef\n\
%/.tan{.math(tan)1 .call}.bdef\n\
%/truncate{.math(truncate)1 .call}.bdef % TODO Math.truncate does not exist!\n\
\n\
% graphic\n\
/arc{.svg(arc)5 .call0}.bdef\n\
/arcn{.svg(arcn)5 .call0}.bdef\n\
/closepath{.svg(closepath)0 .call}.bdef\n\
/currentpoint{.svg(cx)0 .call .svg(cy)0 .call}.bdef\n\
/curveto{.svg(curveto)6 .call0}.bdef\n\
/eofill{.svg(eofill)0 .call0}.bdef\n\
/fill{.svg(fill)0 .call0}.bdef\n\
/grestore{.svg(grestore)0 .call0}.bdef\n\
/gsave{.svg(gsave)0 .call0}.bdef\n\
/lineto{.svg(lineto)2 .call0}.bdef\n\
/moveto{.svg(moveto)2 .call0}.bdef\n\
/newpath{.svg(newpath)0 .call0}.bdef\n\
/rcurveto{.svg(rcurveto)6 .call0}.bdef\n\
/rlineto{.svg(rlineto)2 .call0}.bdef\n\
/rmoveto{.svg(rmoveto)2 .call0}.bdef\n\
/rotate{.svg(rotate)1 .call0}.bdef\n\
/scale{.svg(scale)2 .call0}.bdef\n\
/selectfont{.svg(selectfont)2 .call0}.bdef\n\
/setdash{.svg(setdash)2 .call0}.bdef\n\
/setlinewidth{.svg(setlinewidth)1 .call0}.bdef\n\
/setrgbcolor{.svg(setrgbcolor)3 .call0}.bdef\n\
/show{.svg(show)1 .call0}.bdef\n\
/stroke{.svg(stroke)0 .call0}.bdef\n\
/stringwidth{.svg(strw)1 .call 1}.bdef %fixme: height KO\n\
/translate{.svg(translate)2 .call0}.bdef\n\
\n\
/setgray{255 mul dup dup setrgbcolor}.bdef\n\
% abcm2ps syms.c\n\
/!{bind def}bind def\n\
/T/translate load def\n\
/M/moveto load def\n\
/RM/rmoveto load def\n\
/L/lineto load def\n\
/RL/rlineto load def\n\
/C/curveto load def\n\
/RC/rcurveto load def\n\
/SLW/setlinewidth load def\n\
/defl 0 def\n\
/dlw{0.7 SLW}!\n\
/xymove{/x 2 index def/y 1 index def M}!\n\
/showc{dup stringwidth pop .5 mul neg 0 RM show}!\n\
%\n\
% abcm2ps internal glyphs\n\
/arp{.svg(arp)3 .call0}.bdef\n\
/ltr{.svg(ltr)3 .call0}.bdef\n\
/ft0{(acc-1).svg(xygl)3 .call0}.bdef\n\
/nt0{(acc3).svg(xygl)3 .call0}.bdef\n\
/sh0{(acc1).svg(xygl)3 .call0}.bdef\n\
/dsh0{(acc2).svg(xygl)3 .call0}.bdef\n\
/trl{(trl).svg(xygl)3 .call0}.bdef\n\
/lmrd{(lmrd).svg(xygl)3 .call0}.bdef\n\
/turn{(turn).svg(xygl)3 .call0}.bdef\n\
/umrd{(umrd).svg(xygl)3 .call0}.bdef\n\
/y0{.svg(y0)1 .call}.bdef\n\
/y1{.svg(y1)1 .call}.bdef\n")
} // Psvg()
abc2svg.psvg = {
do_begin_end: function(of, type, opt, text) {
if (type != "ps") {
of(type, opt, text)
return
}
if (opt == 'nosvg')
return
if (!this.psvg)
this.psvg = new Psvg(this);
this.psvg.ps_eval.call(this.psvg, text)
},
psdeco: function(of, x, y, de) {
if (!this.psvg) // no %%beginps yet
return false
return this.psvg.psdeco.call(this.psvg, x, y, de)
},
psxygl: function(of, x, y, gl) {
if (!this.psvg)
return false
return this.psvg.psxygl.call(this.psvg, x, y, gl)
},
set_hooks: function(abc) {
abc.do_begin_end = abc2svg.psvg.do_begin_end.bind(abc, abc.do_begin_end);
abc.psdeco = abc2svg.psvg.psdeco.bind(abc, abc.psdeco);
abc.psxygl = abc2svg.psvg.psxygl.bind(abc, abc.psxygl)
}
} // psvg
if (!abc2svg.mhooks)
abc2svg.mhooks = {}
abc2svg.mhooks.psvg = abc2svg.psvg.set_hooks
( run in 0.798 second using v1.01-cache-2.11-cpan-2398b32b56e )