/***** Autogenerated from runtime.in; changes will be overwritten *****/ #line 1 "runtimebase.in" /***** * runtimebase.in * Andy Hammerlindl 2009/07/28 * * Common declarations needed for all code-generating .in files. * *****/ #line 1 "runtime.in" /***** * runtime.in * Tom Prince 2005/4/15 * * Generate the runtime functions used by the vm::stack machine. * *****/ /* Autogenerated routines are specified like this (separated by a formfeed): type asyname:cname(cparams) { C code } */ // Use Void f() instead of void f() to force an explicit Stack argument. #line 1 "runtimebase.in" #include "stack.h" #include "types.h" #include "builtin.h" #include "entry.h" #include "errormsg.h" using vm::stack; using vm::error; using types::formal; #define PRIMITIVE(name,Name,asyName) using types::prim##Name; #include #undef PRIMITIVE void unused(void *); #line 55 "runtime.in" #include #include #include #include #include #include #include "angle.h" #include "pair.h" #include "triple.h" #include "transform.h" #include "path.h" #include "path3.h" #include "pen.h" #include "guide.h" #include "picture.h" #include "drawpath.h" #include "drawpath3.h" #include "drawsurface.h" #include "drawfill.h" #include "drawclipbegin.h" #include "drawclipend.h" #include "drawlabel.h" #include "drawverbatim.h" #include "drawgsave.h" #include "drawgrestore.h" #include "drawlayer.h" #include "drawimage.h" #include "drawgroup.h" #include "fileio.h" #include "genv.h" #include "builtin.h" #include "texfile.h" #include "pipestream.h" #include "parser.h" #include "stack.h" #include "util.h" #include "locate.h" #include "mathop.h" #include "callable.h" #include "stm.h" #include "lexical.h" #include "process.h" #include "arrayop.h" #include "predicates.h" #include "Delaunay.h" #ifdef HAVE_LIBFFTW3 #include "fftw++.h" #endif #if defined(HAVE_LIBREADLINE) && defined(HAVE_LIBCURSES) #include #include #endif #if defined(USEGC) && defined(GC_DEBUG) && defined(GC_BACKTRACE) extern "C" { void *GC_generate_random_valid_address(void); void GC_debug_print_heap_obj_proc(void *); } #endif using namespace vm; using namespace camp; using namespace settings; namespace run { using camp::pair; using vm::array; using vm::frame; using vm::stack; using camp::transform; using absyntax::runnable; typedef double real; #define CURRENTPEN processData().currentpen typedef array boolarray; typedef array Intarray; typedef array Intarray2; typedef array realarray; typedef array realarray2; typedef array pairarray; typedef array pairarray2; typedef array triplearray; typedef array triplearray2; typedef array patharray; typedef array patharray2; typedef array guidearray; typedef array transformarray; typedef array penarray; typedef array penarray2; typedef array stringarray; typedef array stringarray2; typedef callable callableBp; typedef callable callableReal; typedef callable callableTransform; } using vm::array; using types::function; #define PRIMITIVE(name,Name,asyName) using types::prim##Name; #include #undef PRIMITIVE using types::booleanArray; using types::IntArray; using types::IntArray2; using types::realArray; using types::realArray2; using types::pairArray; using types::pairArray2; using types::tripleArray; using types::tripleArray2; using types::pathArray; using types::pathArray2; using types::guideArray; using types::transformArray; using types::penArray; using types::penArray2; using types::stringArray; using types::stringArray2; using types::formal; function *voidFunction() { return new function(primVoid()); } function *breakpointFunction() { return new function(primString(),primString(),primInt(),primInt(), primCode()); } function *realRealFunction() { return new function(primReal(),primReal()); } function *transformFunction() { return new function(primTransform()); } function *realTripleFunction() { return new function(primReal(),primTriple()); } const size_t camp::ColorComponents[]={0,0,1,3,4,0}; namespace vm { } namespace run { const char *invalidargument="invalid argument"; const char *arrayempty="cannot take min or max of empty array"; const char *noruntime="no runtime environment for embedded eval"; // Return the factorial of a non-negative integer using a lookup table. Int factorial(Int n) { static Int *table; static Int size=0; if(size == 0) { Int f=1; size=2; while(f <= Int_MAX/size) f *= (size++); table=new Int[size]; table[0]=f=1; for(Int i=1; i < size; ++i) { f *= i; table[i]=f; } } if(n >= size) integeroverflow(0); return table[n]; } static inline Int Round(double x) { return Int(x+((x >= 0) ? 0.5 : -0.5)); } inline Int sgn(double x) { return (x > 0.0 ? 1 : (x < 0.0 ? -1 : 0)); } void outOfBounds(const char *op, size_t len, Int n) { ostringstream buf; buf << op << " array of length " << len << " with out-of-bounds index " << n; error(buf); } inline item& arrayRead(array *a, Int n) { size_t len=checkArray(a); bool cyclic=a->cyclic(); if(cyclic && len > 0) n=imod(n,len); else if(n < 0 || n >= (Int) len) outOfBounds("reading",len,n); return (*a)[(unsigned) n]; } // Helper function to create deep arrays. static array* deepArray(Int depth, Int *dims) { assert(depth > 0); if (depth == 1) { return new array(dims[0]); } else { Int length = dims[0]; depth--; dims++; array *a = new array(length); for (Int index = 0; index < length; index++) { (*a)[index] = deepArray(depth, dims); } return a; } } array *nop(array *a) { return a; } array *Identity(Int n) { size_t N=(size_t) n; array *c=new array(N); for(size_t i=0; i < N; ++i) { array *ci=new array(N); (*c)[i]=ci; for(size_t j=0; j < N; ++j) (*ci)[j]=0.0; (*ci)[i]=1.0; } return c; } array *copyArray(array *a) { size_t size=checkArray(a); array *c=new array(size); for(size_t i=0; i < size; i++) (*c)[i]=(*a)[i]; return c; } inline size_t checkdimension(array *a, size_t dim) { size_t size=checkArray(a); if(dim && size != dim) { ostringstream buf; buf << "array of length " << dim << " expected"; error(buf); } return size; } double *copyArrayC(array *a, size_t dim=0) { size_t size=checkdimension(a,dim); double *c=new double[size]; for(size_t i=0; i < size; i++) c[i]=read(a,i); return c; } triple *copyTripleArrayC(array *a, size_t dim=0) { size_t size=checkdimension(a,dim); triple *c=new triple[size]; for(size_t i=0; i < size; i++) c[i]=read(a,i); return c; } array *copyArray2(array *a) { size_t size=checkArray(a); array *c=new array(size); for(size_t i=0; i < size; i++) { array *ai=read(a,i); size_t aisize=checkArray(ai); array *ci=new array(aisize); (*c)[i]=ci; for(size_t j=0; j < aisize; j++) (*ci)[j]=(*ai)[j]; } return c; } array *copyArray3(array *a) { size_t size=checkArray(a); array *c=new array(size); for(size_t i=0; i < size; i++) { array *ai=read(a,i); size_t aisize=checkArray(ai); array *ci=new array(aisize); (*c)[i]=ci; for(size_t j=0; j < aisize; j++) { array *aij=read(ai,j); size_t aijsize=checkArray(aij); array *cij=new array(aijsize); (*ci)[j]=cij; for(size_t k=0; k < aijsize; k++) (*cij)[k]=(*aij)[k]; } } return c; } double *copyArray2C(array *a, bool square=true, size_t dim2=0) { size_t n=checkArray(a); size_t m=(square || n == 0) ? n : checkArray(read(a,0)); if(n > 0 && dim2 && m != dim2) { ostringstream buf; buf << "second matrix dimension must be " << dim2; error(buf); } double *c=new double[n*m]; for(size_t i=0; i < n; i++) { array *ai=read(a,i); size_t aisize=checkArray(ai); if(aisize == m) { double *ci=c+i*m; for(size_t j=0; j < m; j++) ci[j]=read(ai,j); } else error(square ? "matrix must be square" : "matrix must be rectangular"); } return c; } triple *copyTripleArray2C(array *a, bool square=true, size_t dim2=0) { size_t n=checkArray(a); size_t m=(square || n == 0) ? n : checkArray(read(a,0)); if(n > 0 && dim2 && m != dim2) { ostringstream buf; buf << "second matrix dimension must be " << dim2; error(buf); } triple *c=new triple[n*m]; for(size_t i=0; i < n; i++) { array *ai=read(a,i); size_t aisize=checkArray(ai); if(aisize == m) { triple *ci=c+i*m; for(size_t j=0; j < m; j++) ci[j]=read(ai,j); } else error(square ? "matrix must be square" : "matrix must be rectangular"); } return c; } double *copyTripleArray2Components(array *a, bool square=true, size_t dim2=0) { size_t n=checkArray(a); size_t m=(square || n == 0) ? n : checkArray(read(a,0)); if(n > 0 && dim2 && m != dim2) { ostringstream buf; buf << "second matrix dimension must be " << dim2; error(buf); } size_t nm=n*m; double *cx=new double[3*nm]; double *cy=cx+nm; double *cz=cx+2*nm; for(size_t i=0; i < n; i++) { array *ai=read(a,i); size_t aisize=checkArray(ai); if(aisize == m) { double *xi=cx+i*m; double *yi=cy+i*m; double *zi=cz+i*m; for(size_t j=0; j < m; j++) { triple v=read(ai,j); xi[j]=v.getx(); yi[j]=v.gety(); zi[j]=v.getz(); } } else error(square ? "matrix must be square" : "matrix must be rectangular"); } return cx; } static const char *incommensurate="Incommensurate matrices"; static const char *singular="Singular matrix"; static size_t *pivot,*Row,*Col; triple operator *(const array& t, const triple& v) { size_t n=checkArray(&t); if(n != 4) error(incommensurate); array *t0=read(t,0); array *t1=read(t,1); array *t2=read(t,2); array *t3=read(t,3); if(checkArray(t0) != 4 || checkArray(t1) != 4 || checkArray(t2) != 4 || checkArray(t3) != 4) error(incommensurate); double x=v.getx(); double y=v.gety(); double z=v.getz(); double f=read(t3,0)*x+read(t3,1)*y+read(t3,2)*z+ read(t3,3); if(f == 0.0) run::dividebyzero(); f=1.0/f; return triple((read(t0,0)*x+read(t0,1)*y+read(t0,2)*z+ read(t0,3))*f, (read(t1,0)*x+read(t1,1)*y+read(t1,2)*z+ read(t1,3))*f, (read(t2,0)*x+read(t2,1)*y+read(t2,2)*z+ read(t2,3))*f); } triple multshiftless(const array& t, const triple& v) { size_t n=checkArray(&t); if(n != 4) error(incommensurate); array *t0=read(t,0); array *t1=read(t,1); array *t2=read(t,2); array *t3=read(t,3); if(checkArray(t0) != 4 || checkArray(t1) != 4 || checkArray(t2) != 4 || checkArray(t3) != 4) error(incommensurate); double x=v.getx(); double y=v.gety(); double z=v.getz(); double f=read(t3,0)*x+read(t3,1)*y+read(t3,2)*z+ read(t3,3); if(f == 0.0) run::dividebyzero(); f=1.0/f; return triple((read(t0,0)*x+read(t0,1)*y+read(t0,2)*z)*f, (read(t1,0)*x+read(t1,1)*y+read(t1,2)*z)*f, (read(t2,0)*x+read(t2,1)*y+read(t2,2)*z)*f); } static inline void inverseAllocate(size_t n) { pivot=new size_t[n]; Row=new size_t[n]; Col=new size_t[n]; } static inline void inverseDeallocate() { delete[] pivot; delete[] Row; delete[] Col; } void writestring(stack *s) { callable *suffix=pop(s,NULL); string S=pop(s); vm::item it=pop(s); bool defaultfile=isdefault(it); camp::file *f=defaultfile ? &camp::Stdout : vm::get(it); if(!f->isOpen()) return; if(S != "") f->write(S); if(f->text()) { if(suffix) { s->push(f); suffix->call(s); } else if(defaultfile) f->writeline(); } } void checkSquare(array *a) { size_t n=checkArray(a); for(size_t i=0; i < n; i++) if(checkArray(read(a,i)) != n) error("matrix a must be square"); } // Crout's algorithm for computing the LU decomposition of a square matrix. // cf. routine ludcmp (Press et al., Numerical Recipes, 1991). Int LUdecompose(double *a, size_t n, size_t* index, bool warn=true) { double *vv=new double[n]; Int swap=1; for(size_t i=0; i < n; ++i) { double big=0.0; double *ai=a+i*n; for(size_t j=0; j < n; ++j) { double temp=fabs(ai[j]); if(temp > big) big=temp; } if(big == 0.0) { delete[] vv; if(warn) error(singular); else return 0; } vv[i]=1.0/big; } for(size_t j=0; j < n; ++j) { for(size_t i=0; i < j; ++i) { double *ai=a+i*n; double sum=ai[j]; for(size_t k=0; k < i; ++k) { sum -= ai[k]*a[k*n+j]; } ai[j]=sum; } double big=0.0; size_t imax=j; for(size_t i=j; i < n; ++i) { double *ai=a+i*n; double sum=ai[j]; for(size_t k=0; k < j; ++k) sum -= ai[k]*a[k*n+j]; ai[j]=sum; double temp=vv[i]*fabs(sum); if(temp >= big) { big=temp; imax=i; } } double *aj=a+j*n; double *aimax=a+imax*n; if(j != imax) { for(size_t k=0; k < n; ++k) { double temp=aimax[k]; aimax[k]=aj[k]; aj[k]=temp; } swap *= -1; vv[imax]=vv[j]; } if(index) index[j]=imax; if(j != n) { double denom=aj[j]; if(denom == 0.0) { delete[] vv; if(warn) error(singular); else return 0; } for(size_t i=j+1; i < n; ++i) a[i*n+j] /= denom; } } delete[] vv; return swap; } void dividebyzero(size_t i) { ostringstream buf; if(i > 0) buf << "array element " << i << ": "; buf << "Divide by zero"; error(buf); } void integeroverflow(size_t i) { ostringstream buf; if(i > 0) buf << "array element " << i << ": "; buf << "Integer overflow"; error(buf); } #if defined(HAVE_LIBREADLINE) && defined(HAVE_LIBCURSES) struct historyState { bool store; HISTORY_STATE state; }; typedef mem::map historyMap_t; historyMap_t historyMap; static HISTORY_STATE history_save; // Store a deep copy of the current readline history in dest. void store_history(HISTORY_STATE *dest) { HISTORY_STATE *src=history_get_history_state(); if(src) { *dest=*src; for(Int i=0; i < src->length; ++i) dest->entries[i]=src->entries[i]; free(src); } } stringarray* get_history(Int n) { int N=intcast(n); if(N <= 0) N=history_length; else N=Min(N,history_length); array *a=new array((size_t) N); int offset=history_length-N+1; for(int i=0; i < N; ++i) { HIST_ENTRY *last=history_get(offset+i); string s=last ? last->line : ""; (*a)[i]=s; } return a; } string historyfilename(const string &name) { return historyname+"_"+name; } #endif #if defined(HAVE_LIBREADLINE) && defined(HAVE_LIBCURSES) int readline_startup_hook() { #ifdef __CYGWIN__ rl_set_key("\\M-[3~",rl_delete,rl_get_keymap()); rl_set_key("\\M-[2~",rl_overwrite_mode,rl_get_keymap()); #endif return 0; } void init_readline(bool tabcompletion=true) { static bool first=true; if(first) { first=false; #ifdef __CYGWIN__ rl_startup_hook=readline_startup_hook; #endif } rl_bind_key('\t',tabcompletion ? rl_complete : rl_insert); } #endif void cleanup() { #if defined(HAVE_LIBREADLINE) && defined(HAVE_LIBCURSES) store_history(&history_save); int nlines=intcast(getSetting("historylines")); for(historyMap_t::iterator h=historyMap.begin(); h != historyMap.end(); ++h) { history_set_history_state(&h->second.state); stifle_history(nlines); if(h->second.store) write_history(historyfilename(h->first).c_str()); } history_set_history_state(&history_save); #endif } void purge(Int divisor=0) { #ifdef USEGC if(divisor > 0) GC_set_free_space_divisor((GC_word) divisor); GC_gcollect(); #endif } void updateFunction(stack *Stack) { callable *atUpdateFunction=processData().atUpdateFunction; if(atUpdateFunction && !nullfunc::instance()->compare(atUpdateFunction)) atUpdateFunction->call(Stack); } void exitFunction(stack *Stack) { callable *atExitFunction=processData().atExitFunction; if(atExitFunction && !nullfunc::instance()->compare(atExitFunction)) atExitFunction->call(Stack); } default_t def; string emptystring; array *emptyarray=new array(0); string commentchar="#"; pair zero; void breakpoint(stack *Stack, runnable *r) { callable *atBreakpointFunction=processData().atBreakpointFunction; if(atBreakpointFunction && !nullfunc::instance()->compare(atBreakpointFunction)) { position curPos=getPos(); Stack->push(curPos.filename()); Stack->push((Int) curPos.Line()); Stack->push((Int) curPos.Column()); Stack->push(r ? r : item(def)); atBreakpointFunction->call(Stack); // returns a string } else Stack->push(""); } } namespace types { extern const char *names[]; } void checkformat(const char *ptr, bool intformat) { while(*ptr != '\0') { if(*ptr != '%') /* While we have regular characters, print them. */ ptr++; else { /* We've got a format specifier. */ ptr++; while(*ptr && strchr ("-+ #0'I", *ptr)) /* Move past flags. */ *ptr++; if(*ptr == '*') ptr++; else while(isdigit(*ptr)) /* Handle explicit numeric value. */ ptr++; if(*ptr == '.') { *ptr++; /* Go past the period. */ if(*ptr == '*') { ptr++; } else while(isdigit(*ptr)) /* Handle explicit numeric value. */ *ptr++; } while(*ptr && strchr ("hlL", *ptr)) *ptr++; if(*ptr == '%') ++ptr; else if(*ptr != '\0') { if(intformat) { switch(*ptr) { case 'd': case 'i': case 'o': case 'u': case 'x': case 'X': case 'c': break; default: ostringstream buf; buf << "Invalid format '" << *ptr << "' for type " << types::names[types::ty_Int]; error(buf); break; } } else { switch(*ptr) { case 'f': case 'F': case 'e': case 'E': case 'g': case 'G': break; default: ostringstream buf; buf << "Invalid format '" << *ptr << "' for type " << types::names[types::ty_real]; error(buf); break; } } } } /* End of else statement */ } } // Return an angle in the interval [0,360). inline double principalBranch(double deg) { if(deg < 0) deg += 360; return deg; } static string defaulttransparency=string("Compatible"); static const string defaulttimeformat=string("%a %b %d %T %Z %Y"); #ifdef HAVE_STRFTIME static const size_t nTime=256; static char Time[nTime]; #endif void clear(string file, Int line, bool warn=false) { bpinfo bp(file,line); for(mem::list::iterator p=bplist.begin(); p != bplist.end(); ++p) { if(*p == bp) { cout << "cleared breakpoint at " << file << ": " << line << endl; bplist.remove(bp); return; } } if(warn) cout << "No such breakpoint at " << file << ": " << line << endl; } Int windingnumber(array *p, camp::pair z) { size_t size=checkArray(p); Int count=0; for(size_t i=0; i < size; i++) count += read(p,i)->windingnumber(z); return count; } string convertname(string name, const string& format, bool check=true) { if(name.empty()) return buildname(outname(),format,""); else if(check) checkLocal(name); return format.empty() ? name : format+":"+name; } callable *Func; stack *FuncStack; double wrapFunction(double x) { FuncStack->push(x); Func->call(FuncStack); return pop(FuncStack); } callable *compareFunc; bool compareFunction(const vm::item& i, const vm::item& j) { FuncStack->push(i); FuncStack->push(j); compareFunc->call(FuncStack); return pop(FuncStack); } void unused(void *) { } pair readpair(stringstream& s, double hscale=1.0, double vscale=1.0) { double x,y; s >> y; s >> x; return pair(hscale*x,vscale*y); } // Ignore unclosed begingroups but not spurious endgroups. const char *nobegin="endgroup without matching begingroup"; // Return the component of vector v perpendicular to a unit vector u. inline triple perp(triple v, triple u) { return v-dot(v,u)*u; } string ASYx="/ASYx {( ) print ASYX sub 12 string cvs print} bind def"; string ASYy="/ASYy {( ) print ASYY sub 12 string cvs print} bind def"; string pathforall="{(M) print ASYy ASYx} {(L) print ASYy ASYx} {(C) print ASYy ASYx ASYy ASYx ASYy ASYx} {(c) print} pathforall"; string currentpoint="print currentpoint ASYy ASYx "; string ASYinit="/ASYX currentpoint pop def /ASYY currentpoint exch pop def "; string ASY1="ASY1 {"+ASYinit+"/ASY1 false def} if "; void showpath(std::ofstream& ps) { ps << ASYx << newl << ASYy << newl << "/ASY1 true def" << newl << "/fill {" << ASY1 << pathforall << " (M) " << currentpoint << "currentpoint newpath moveto } bind def" << newl << "/stroke {" << ASY1 << "strokepath " << pathforall << " (M) " << currentpoint << "currentpoint newpath moveto } bind def" << endl; } array *readpath(const string& psname, bool keep, double hscale=1.0, double vsign=1.0) { double vscale=vsign*hscale; array *P=new array(0); mem::vector cmd; cmd.push_back(getSetting("gs")); cmd.push_back("-q"); cmd.push_back("-dNOPAUSE"); cmd.push_back("-dBATCH"); if(safe) cmd.push_back("-dSAFER"); #ifdef __CYGWIN__ const string null="NUL"; #else const string null="/dev/null"; #endif cmd.push_back("-sDEVICE=epswrite"); cmd.push_back("-sOutputFile="+null); cmd.push_back(psname); iopipestream gs(cmd,"gs","Ghostscript"); stringstream buf; while(true) { string out; gs >> out; if(out.empty() && !gs.running()) break; buf << out; } if(verbose > 2) cout << endl; mem::vector nodes; solvedKnot node; bool cyclic=false; bool active=false; while(!buf.eof()) { char c; buf >> c; switch(c) { case 'M': { if(active) { if(cyclic) { if(node.point == nodes[0].point) nodes[0].pre=node.pre; else { pair delta=(nodes[0].point-node.point)*third; node.post=node.point+delta; nodes[0].pre=nodes[0].point-delta; node.straight=true; nodes.push_back(node); } } else { node.post=node.point; node.straight=false; nodes.push_back(node); } P->push(path(nodes,nodes.size(),cyclic)); nodes.clear(); } active=false; cyclic=false; node.pre=node.point=readpair(buf,hscale,vscale); node.straight=false; break; } case 'L': { pair point=readpair(buf,hscale,vscale); pair delta=(point-node.point)*third; node.post=node.point+delta; node.straight=true; nodes.push_back(node); active=true; node.pre=point-delta; node.point=point; break; } case 'C': { pair point=readpair(buf,hscale,vscale); pair pre=readpair(buf,hscale,vscale); node.post=readpair(buf,hscale,vscale); node.straight=false; nodes.push_back(node); active=true; node.pre=pre; node.point=point; break; } case 'c': { cyclic=true; break; } } } if(!keep) unlink(psname.c_str()); return P; } pair sin(pair z) { return pair(sin(z.getx())*cosh(z.gety()),cos(z.getx())*sinh(z.gety())); } pair exp(pair z) { return exp(z.getx())*expi(z.gety()); } pair gamma(pair z) { static double p[]={0.99999999999980993,676.5203681218851,-1259.1392167224028, 771.32342877765313,-176.61502916214059,12.507343278686905, -0.13857109526572012,9.9843695780195716e-6, 1.5056327351493116e-7}; static int n=sizeof(p)/sizeof(double); static double root2pi=sqrt(2*PI); if(z.getx() < 0.5) return PI/(sin(PI*z)*gamma(1.0-z)); z -= 1.0; pair x=p[0]; for(int i=1; i < n; ++i) x += p[i]/(z+i); pair t=n-1.5+z; return root2pi*pow(t,z+0.5)*exp(-t)*x; } void cannotread(const string& s) { ostringstream buf; buf << "Cannot read from " << s; error(buf); } void cannotwrite(const string& s) { ostringstream buf; buf << "Cannot write to " << s; error(buf); } // Autogenerated routines: namespace run { // Initializers #line 1099 "runtime.in" void IntZero(stack *Stack) { #line 1100 "runtime.in" {Stack->push(0); return;} } #line 1105 "runtime.in" void realZero(stack *Stack) { #line 1106 "runtime.in" {Stack->push(0.0); return;} } #line 1110 "runtime.in" void boolFalse(stack *Stack) { #line 1111 "runtime.in" {Stack->push(false); return;} } #line 1115 "runtime.in" void pushNullArray(stack *Stack) { #line 1116 "runtime.in" {Stack->push(0); return;} } #line 1120 "runtime.in" void pushNullRecord(stack *Stack) { #line 1121 "runtime.in" {Stack->push(0); return;} } #line 1125 "runtime.in" void pushNullFunction(stack *Stack) { #line 1126 "runtime.in" {Stack->push(nullfunc::instance()); return;} } // Default operations // Put the default value token on the stack (in place of an argument when // making a function call). #line 1135 "runtime.in" void pushDefault(stack *Stack) { #line 1136 "runtime.in" {Stack->push(def); return;} } // Test if the value on the stack is the default value token. #line 1142 "runtime.in" void isDefault(stack *Stack) { item i=vm::pop(Stack); #line 1143 "runtime.in" {Stack->push(isdefault(i)); return;} } // Logical operations #line 1149 "runtime.in" // bool !(bool b); void gen_runtime8(stack *Stack) { bool b=vm::pop(Stack); #line 1150 "runtime.in" {Stack->push(!b); return;} } #line 1155 "runtime.in" void boolMemEq(stack *Stack) { frame * b=vm::pop(Stack); frame * a=vm::pop(Stack); #line 1156 "runtime.in" {Stack->push(a == b); return;} } #line 1160 "runtime.in" void boolMemNeq(stack *Stack) { frame * b=vm::pop(Stack); frame * a=vm::pop(Stack); #line 1161 "runtime.in" {Stack->push(a != b); return;} } #line 1165 "runtime.in" void boolFuncEq(stack *Stack) { callable * b=vm::pop(Stack); callable * a=vm::pop(Stack); #line 1166 "runtime.in" {Stack->push(a->compare(b)); return;} } #line 1170 "runtime.in" void boolFuncNeq(stack *Stack) { callable * b=vm::pop(Stack); callable * a=vm::pop(Stack); #line 1171 "runtime.in" {Stack->push(!(a->compare(b))); return;} } // Bit operations #line 1177 "runtime.in" // Int AND(Int a, Int b); void gen_runtime13(stack *Stack) { Int b=vm::pop(Stack); Int a=vm::pop(Stack); #line 1178 "runtime.in" {Stack->push(a & b); return;} } #line 1183 "runtime.in" // Int OR(Int a, Int b); void gen_runtime14(stack *Stack) { Int b=vm::pop(Stack); Int a=vm::pop(Stack); #line 1184 "runtime.in" {Stack->push(a | b); return;} } #line 1188 "runtime.in" // Int XOR(Int a, Int b); void gen_runtime15(stack *Stack) { Int b=vm::pop(Stack); Int a=vm::pop(Stack); #line 1189 "runtime.in" {Stack->push(a ^ b); return;} } #line 1193 "runtime.in" // Int NOT(Int a); void gen_runtime16(stack *Stack) { Int a=vm::pop(Stack); #line 1194 "runtime.in" {Stack->push(~a); return;} } // Casts #line 1200 "runtime.in" void pairToGuide(stack *Stack) { pair z=vm::pop(Stack); #line 1201 "runtime.in" {Stack->push(new pairguide(z)); return;} } #line 1206 "runtime.in" void pathToGuide(stack *Stack) { path p=vm::pop(Stack); #line 1207 "runtime.in" {Stack->push(new pathguide(p)); return;} } #line 1211 "runtime.in" void guideToPath(stack *Stack) { guide * g=vm::pop(Stack); #line 1212 "runtime.in" {Stack->push(g->solve()); return;} } // Picture operations #line 1218 "runtime.in" void newPicture(stack *Stack) { #line 1219 "runtime.in" {Stack->push(new picture()); return;} } #line 1224 "runtime.in" // bool empty(picture *f); void gen_runtime21(stack *Stack) { picture * f=vm::pop(Stack); #line 1225 "runtime.in" {Stack->push(f->null()); return;} } #line 1229 "runtime.in" // void erase(picture *f); void gen_runtime22(stack *Stack) { picture * f=vm::pop(Stack); #line 1230 "runtime.in" f->nodes.clear(); } #line 1234 "runtime.in" // pair min(picture *f); void gen_runtime23(stack *Stack) { picture * f=vm::pop(Stack); #line 1235 "runtime.in" {Stack->push(f->bounds().Min()); return;} } #line 1239 "runtime.in" // pair max(picture *f); void gen_runtime24(stack *Stack) { picture * f=vm::pop(Stack); #line 1240 "runtime.in" {Stack->push(f->bounds().Max()); return;} } #line 1244 "runtime.in" // void label(picture *f, string *s, string *size, transform t, pair position, pair align, pen p); void gen_runtime25(stack *Stack) { pen p=vm::pop(Stack); pair align=vm::pop(Stack); pair position=vm::pop(Stack); transform t=vm::pop(Stack); string * size=vm::pop(Stack); string * s=vm::pop(Stack); picture * f=vm::pop(Stack); #line 1246 "runtime.in" f->append(new drawLabel(*s,*size,t,position,align,p)); } #line 1250 "runtime.in" // bool labels(picture *f); void gen_runtime26(stack *Stack) { picture * f=vm::pop(Stack); #line 1251 "runtime.in" {Stack->push(f->havelabels()); return;} } #line 1255 "runtime.in" // realarray* texsize(string *s, pen p=CURRENTPEN); void gen_runtime27(stack *Stack) { pen p=vm::pop(Stack,CURRENTPEN); string * s=vm::pop(Stack); #line 1256 "runtime.in" texinit(); processDataStruct &pd=processData(); string texengine=getSetting("tex"); const char **abort=texabort(texengine); setpen(pd.tex,texengine,p); double width,height,depth; if(!texbounds(width,height,depth,pd.tex,*s,abort,false,true)) {Stack->push(new array(0)); return;} array *t=new array(3); (*t)[0]=width; (*t)[1]=height; (*t)[2]=depth; {Stack->push(t); return;} } #line 1275 "runtime.in" // patharray* _texpath(string *s, pen p=CURRENTPEN); void gen_runtime28(stack *Stack) { pen p=vm::pop(Stack,CURRENTPEN); string * s=vm::pop(Stack); #line 1276 "runtime.in" array *P=new array(0); if(s->empty()) {Stack->push(P); return;} string prefix=outname(); spaceToUnderscore(prefix); string psname=auxname(prefix,"ps"); string texname=auxname(prefix,"tex"); string dviname=auxname(prefix,"dvi"); bbox b; string texengine=getSetting("tex"); bool pdf=settings::pdf(texengine); texfile tex(texname,b,true); tex.miniprologue(); tex.setfont(p); if(!pdf) { tex.verbatimline("\\special{ps:"); tex.verbatimline(ASYx); tex.verbatimline(ASYy); tex.verbatimline("/ASY1 true def"); tex.verbatimline("/v {"+ASY1+"neg exch 4 copy 4 2 roll 2 copy 6 2 roll 2 copy (M) print ASYy ASYx (L) print ASYy add ASYx (L) print add ASYy add ASYx (L) print add ASYy ASYx (c) print} bind def"); tex.verbatimline("/show {"+ASY1+ "currentpoint newpath moveto false charpath "+ pathforall+"} bind def}"); } tex.verbatimline(*s+"%"); tex.epilogue(true); tex.close(); int status=opentex(texname,prefix); string pdfname; if(!status) { if(pdf) { pdfname=auxname(prefix,"pdf"); std::ofstream ps(psname.c_str()); if(!ps) cannotwrite(psname); showpath(ps); mem::vector cmd; cmd.push_back(getSetting("gs")); cmd.push_back("-q"); cmd.push_back("-dNOCACHE"); cmd.push_back("-dNOPAUSE"); cmd.push_back("-dBATCH"); if(safe) cmd.push_back("-dSAFER"); cmd.push_back("-sDEVICE=epswrite"); cmd.push_back("-sOutputFile=-"); cmd.push_back(pdfname); iopipestream gs(cmd,"gs","Ghostscript"); gs.block(false); while(true) { string line; gs >> line; if(line.empty() && !gs.running()) break; ps << line; } ps.close(); } else { mem::vector dcmd; dcmd.push_back(getSetting("dvips")); dcmd.push_back("-R"); dcmd.push_back("-Pdownload35"); dcmd.push_back("-D600"); push_split(dcmd,getSetting("dvipsOptions")); if(verbose <= 2) dcmd.push_back("-q"); dcmd.push_back("-o"+psname); dcmd.push_back(dviname); status=System(dcmd,0,true,"dvips"); } } if(status != 0) error("texpath failed"); bool keep=getSetting("keep"); if(!keep) { // Delete temporary files. unlink(texname.c_str()); if(!getSetting("keepaux")) unlink(auxname(prefix,"aux").c_str()); unlink(auxname(prefix,"log").c_str()); if(pdf) unlink(pdfname.c_str()); else unlink(dviname.c_str()); if(settings::context(texengine)) { unlink(auxname(prefix,"top").c_str()); unlink(auxname(prefix,"tua").c_str()); unlink(auxname(prefix,"tui").c_str()); } } {Stack->push(pdf ? readpath(psname,keep,0.1) : readpath(psname,keep,0.12,-1.0)); return;} } #line 1373 "runtime.in" // patharray* textpath(string *s, pen p=CURRENTPEN); void gen_runtime29(stack *Stack) { pen p=vm::pop(Stack,CURRENTPEN); string * s=vm::pop(Stack); #line 1374 "runtime.in" array *P=new array(0); if(s->empty()) {Stack->push(P); return;} string prefix=outname(); spaceToUnderscore(prefix); string outputname=auxname(prefix,getSetting("textoutformat")); string textname=auxname(prefix,getSetting("textextension")); std::ofstream text(textname.c_str()); if(!text) cannotwrite(textname); text << getSetting("textprologue") << newl << p.Font() << newl << *s << newl << getSetting("textepilogue") << endl; text.close(); string psname=auxname(prefix,"ps"); std::ofstream ps(psname.c_str()); if(!ps) cannotwrite(psname); showpath(ps); mem::vector cmd; cmd.push_back(getSetting("textcommand")); push_split(cmd,getSetting("textcommandOptions")); cmd.push_back(textname); iopipestream typesetter(cmd); mem::vector cmd2; cmd2.push_back(getSetting("gs")); cmd2.push_back("-q"); cmd2.push_back("-dNOCACHE"); cmd2.push_back("-dNOPAUSE"); cmd2.push_back("-dBATCH"); if(safe) cmd2.push_back("-dSAFER"); cmd2.push_back("-sDEVICE=epswrite"); cmd2.push_back("-sOutputFile=-"); cmd2.push_back("-"); iopipestream gs(cmd2,"gs","Ghostscript"); gs.block(false); // TODO: Simplify by connecting the pipes directly. while(true) { string out; if(typesetter.isopen()) { typesetter >> out; if(!out.empty()) gs << out; else if(!typesetter.running()) { typesetter.pipeclose(); gs.eof(); } } string out2; gs >> out2; if(out2.empty() && !gs.running()) break; ps << out2; } ps.close(); if(verbose > 2) cout << endl; bool keep=getSetting("keep"); if(!keep) // Delete temporary files. unlink(textname.c_str()); {Stack->push(readpath(psname,keep,0.1)); return;} } #line 1444 "runtime.in" // patharray* _strokepath(path g, pen p=CURRENTPEN); void gen_runtime30(stack *Stack) { pen p=vm::pop(Stack,CURRENTPEN); path g=vm::pop(Stack); #line 1445 "runtime.in" array *P=new array(0); if(g.size() == 0) {Stack->push(P); return;} string prefix=outname(); spaceToUnderscore(prefix); string psname=auxname(prefix,"ps"); bbox b; psfile ps(psname,false); ps.prologue(b); ps.verbatimline(ASYx); ps.verbatimline(ASYy); ps.verbatimline("/stroke {"+ASYinit+pathforall+"} bind def"); ps.resetpen(); ps.setpen(p); ps.write(g); ps.strokepath(); ps.stroke(); ps.verbatimline("(M) "+currentpoint); ps.epilogue(); ps.close(); {Stack->push(readpath(psname,getSetting("keep"))); return;} } #line 1469 "runtime.in" // void _draw(picture *f, path g, pen p); void gen_runtime31(stack *Stack) { pen p=vm::pop(Stack); path g=vm::pop(Stack); picture * f=vm::pop(Stack); #line 1470 "runtime.in" f->append(new drawPath(g,p)); } #line 1474 "runtime.in" // void fill(picture *f, patharray *g, pen p=CURRENTPEN, bool copy=true); void gen_runtime32(stack *Stack) { bool copy=vm::pop(Stack,true); pen p=vm::pop(Stack,CURRENTPEN); patharray * g=vm::pop(Stack); picture * f=vm::pop(Stack); #line 1475 "runtime.in" array *(*copyarray)(array *a)=copy ? copyArray: nop; f->append(new drawFill(*copyarray(g),false,p)); } #line 1480 "runtime.in" // void latticeshade(picture *f, patharray *g, bool stroke=false, pen fillrule=CURRENTPEN, penarray2 *p, bool copy=true); void gen_runtime33(stack *Stack) { bool copy=vm::pop(Stack,true); penarray2 * p=vm::pop(Stack); pen fillrule=vm::pop(Stack,CURRENTPEN); bool stroke=vm::pop(Stack,false); patharray * g=vm::pop(Stack); picture * f=vm::pop(Stack); #line 1482 "runtime.in" array *(*copyarray)(array *a)=copy ? copyArray: nop; f->append(new drawLatticeShade(*copyarray(g),stroke,fillrule,*copyarray(p))); } #line 1487 "runtime.in" // void axialshade(picture *f, patharray *g, bool stroke=false, pen pena, pair a, pen penb, pair b, bool copy=true); void gen_runtime34(stack *Stack) { bool copy=vm::pop(Stack,true); pair b=vm::pop(Stack); pen penb=vm::pop(Stack); pair a=vm::pop(Stack); pen pena=vm::pop(Stack); bool stroke=vm::pop(Stack,false); patharray * g=vm::pop(Stack); picture * f=vm::pop(Stack); #line 1489 "runtime.in" array *(*copyarray)(array *a)=copy ? copyArray: nop; f->append(new drawAxialShade(*copyarray(g),stroke,pena,a,penb,b)); } #line 1494 "runtime.in" // void radialshade(picture *f, patharray *g, bool stroke=false, pen pena, pair a, real ra, pen penb, pair b, real rb, bool copy=true); void gen_runtime35(stack *Stack) { bool copy=vm::pop(Stack,true); real rb=vm::pop(Stack); pair b=vm::pop(Stack); pen penb=vm::pop(Stack); real ra=vm::pop(Stack); pair a=vm::pop(Stack); pen pena=vm::pop(Stack); bool stroke=vm::pop(Stack,false); patharray * g=vm::pop(Stack); picture * f=vm::pop(Stack); #line 1496 "runtime.in" array *(*copyarray)(array *a)=copy ? copyArray: nop; f->append(new drawRadialShade(*copyarray(g),stroke,pena,a,ra,penb,b,rb)); } #line 1501 "runtime.in" // void gouraudshade(picture *f, patharray *g, bool stroke=false, pen fillrule=CURRENTPEN, penarray *p, pairarray *z, Intarray *edges, bool copy=true); void gen_runtime36(stack *Stack) { bool copy=vm::pop(Stack,true); Intarray * edges=vm::pop(Stack); pairarray * z=vm::pop(Stack); penarray * p=vm::pop(Stack); pen fillrule=vm::pop(Stack,CURRENTPEN); bool stroke=vm::pop(Stack,false); patharray * g=vm::pop(Stack); picture * f=vm::pop(Stack); #line 1504 "runtime.in" array *(*copyarray)(array *a)=copy ? copyArray: nop; checkArrays(p,z); checkArrays(z,edges); f->append(new drawGouraudShade(*copyarray(g),stroke,fillrule,*copyarray(p), *copyarray(z),*copyarray(edges))); } #line 1512 "runtime.in" // void gouraudshade(picture *f, patharray *g, bool stroke=false, pen fillrule=CURRENTPEN, penarray *p, Intarray *edges, bool copy=true); void gen_runtime37(stack *Stack) { bool copy=vm::pop(Stack,true); Intarray * edges=vm::pop(Stack); penarray * p=vm::pop(Stack); pen fillrule=vm::pop(Stack,CURRENTPEN); bool stroke=vm::pop(Stack,false); patharray * g=vm::pop(Stack); picture * f=vm::pop(Stack); #line 1515 "runtime.in" array *(*copyarray)(array *a)=copy ? copyArray: nop; size_t n=checkArrays(p,edges); size_t m=checkArray(g); array *z=new array(n); Int k=0; Int in=(Int) n; for(size_t j=0; j < m; ++j) { path *P=read(g,j); assert(P); Int stop=Min(P->size(),in-k); mem::vector& nodes=P->Nodes(); for(Int i=0; i < stop; ++i) (*z)[k++]=nodes[i].point; } checkArrays(p,z); f->append(new drawGouraudShade(*copyarray(g),stroke,fillrule,*copyarray(p), *z,*copyarray(edges))); } #line 1536 "runtime.in" // void tensorshade(picture *f, patharray *g, bool stroke=false, pen fillrule=CURRENTPEN, penarray2 *p, patharray *b=NULL, pairarray2 *z=emptyarray, bool copy=true); void gen_runtime38(stack *Stack) { bool copy=vm::pop(Stack,true); pairarray2 * z=vm::pop(Stack,emptyarray); patharray * b=vm::pop(Stack,NULL); penarray2 * p=vm::pop(Stack); pen fillrule=vm::pop(Stack,CURRENTPEN); bool stroke=vm::pop(Stack,false); patharray * g=vm::pop(Stack); picture * f=vm::pop(Stack); #line 1539 "runtime.in" array *(*copyarray)(array *a)=copy ? copyArray: nop; array *(*copyarray2)(array *a)=copy ? copyArray2: nop; if(b == NULL) b=g; size_t n=checkArrays(p,b); size_t nz=checkArray(z); if(nz != 0) checkEqual(nz,n); f->append(new drawTensorShade(*copyarray(g),stroke,fillrule,*copyarray2(p), *copyarray(b),*copyarray2(z))); } #line 1551 "runtime.in" // void functionshade(picture *f, patharray *g, bool stroke=false, pen fillrule=CURRENTPEN, string shader=emptystring, bool copy=true); void gen_runtime39(stack *Stack) { bool copy=vm::pop(Stack,true); string shader=vm::pop(Stack,emptystring); pen fillrule=vm::pop(Stack,CURRENTPEN); bool stroke=vm::pop(Stack,false); patharray * g=vm::pop(Stack); picture * f=vm::pop(Stack); #line 1554 "runtime.in" array *(*copyarray)(array *a)=copy ? copyArray: nop; f->append(new drawFunctionShade(*copyarray(g),stroke,fillrule,shader)); } // Clip a picture to a superpath using the given fill rule. // Subsequent additions to the picture will not be affected by the clipping. #line 1561 "runtime.in" // void clip(picture *f, patharray *g, bool stroke=false, pen fillrule=CURRENTPEN, bool copy=true); void gen_runtime40(stack *Stack) { bool copy=vm::pop(Stack,true); pen fillrule=vm::pop(Stack,CURRENTPEN); bool stroke=vm::pop(Stack,false); patharray * g=vm::pop(Stack); picture * f=vm::pop(Stack); #line 1563 "runtime.in" array *(*copyarray)(array *a)=copy ? copyArray: nop; drawClipBegin *begin=new drawClipBegin(*copyarray(g),stroke,fillrule,true); f->enclose(begin,new drawClipEnd(true,begin)); } #line 1569 "runtime.in" // void beginclip(picture *f, patharray *g, bool stroke=false, pen fillrule=CURRENTPEN, bool copy=true); void gen_runtime41(stack *Stack) { bool copy=vm::pop(Stack,true); pen fillrule=vm::pop(Stack,CURRENTPEN); bool stroke=vm::pop(Stack,false); patharray * g=vm::pop(Stack); picture * f=vm::pop(Stack); #line 1571 "runtime.in" array *(*copyarray)(array *a)=copy ? copyArray: nop; f->append(new drawClipBegin(*copyarray(g),stroke,fillrule,false)); } #line 1576 "runtime.in" // void endclip(picture *f); void gen_runtime42(stack *Stack) { picture * f=vm::pop(Stack); #line 1577 "runtime.in" f->append(new drawClipEnd(false)); } #line 1581 "runtime.in" // void gsave(picture *f); void gen_runtime43(stack *Stack) { picture * f=vm::pop(Stack); #line 1582 "runtime.in" f->append(new drawGsave()); } #line 1586 "runtime.in" // void grestore(picture *f); void gen_runtime44(stack *Stack) { picture * f=vm::pop(Stack); #line 1587 "runtime.in" f->append(new drawGrestore()); } #line 1591 "runtime.in" // void begingroup(picture *f); void gen_runtime45(stack *Stack) { picture * f=vm::pop(Stack); #line 1592 "runtime.in" f->append(new drawBegin()); } #line 1596 "runtime.in" // void endgroup(picture *f); void gen_runtime46(stack *Stack) { picture * f=vm::pop(Stack); #line 1597 "runtime.in" f->append(new drawEnd()); } #line 1601 "runtime.in" // void add(picture *dest, picture *src); void gen_runtime47(stack *Stack) { picture * src=vm::pop(Stack); picture * dest=vm::pop(Stack); #line 1602 "runtime.in" dest->add(*src); } #line 1606 "runtime.in" // void prepend(picture *dest, picture *src); void gen_runtime48(stack *Stack) { picture * src=vm::pop(Stack); picture * dest=vm::pop(Stack); #line 1607 "runtime.in" dest->prepend(*src); } #line 1611 "runtime.in" // void postscript(picture *f, string s); void gen_runtime49(stack *Stack) { string s=vm::pop(Stack); picture * f=vm::pop(Stack); #line 1612 "runtime.in" f->append(new drawVerbatim(PostScript,s)); } #line 1616 "runtime.in" // void tex(picture *f, string s); void gen_runtime50(stack *Stack) { string s=vm::pop(Stack); picture * f=vm::pop(Stack); #line 1617 "runtime.in" f->append(new drawVerbatim(TeX,s)); } #line 1621 "runtime.in" // void postscript(picture *f, string s, pair min, pair max); void gen_runtime51(stack *Stack) { pair max=vm::pop(Stack); pair min=vm::pop(Stack); string s=vm::pop(Stack); picture * f=vm::pop(Stack); #line 1622 "runtime.in" f->append(new drawVerbatim(PostScript,s,min,max)); } #line 1626 "runtime.in" // void tex(picture *f, string s, pair min, pair max); void gen_runtime52(stack *Stack) { pair max=vm::pop(Stack); pair min=vm::pop(Stack); string s=vm::pop(Stack); picture * f=vm::pop(Stack); #line 1627 "runtime.in" f->append(new drawVerbatim(TeX,s,min,max)); } #line 1631 "runtime.in" // void texpreamble(string s); void gen_runtime53(stack *Stack) { string s=vm::pop(Stack); #line 1632 "runtime.in" string t=s+"\n"; processDataStruct &pd=processData(); pd.TeXpipepreamble.push_back(t); pd.TeXpreamble.push_back(t); } #line 1639 "runtime.in" // void deletepreamble(); void gen_runtime54(stack *) { #line 1640 "runtime.in" if(getSetting("inlinetex")) { unlink(auxname(outname(),"pre").c_str()); } } #line 1646 "runtime.in" // void _labelpath(picture *f, string s, string size, path g, string justify, pair offset, pen p); void gen_runtime55(stack *Stack) { pen p=vm::pop(Stack); pair offset=vm::pop(Stack); string justify=vm::pop(Stack); path g=vm::pop(Stack); string size=vm::pop(Stack); string s=vm::pop(Stack); picture * f=vm::pop(Stack); #line 1648 "runtime.in" f->append(new drawLabelPath(s,size,g,justify,offset,p)); } #line 1652 "runtime.in" // void texreset(); void gen_runtime56(stack *) { #line 1653 "runtime.in" processDataStruct &pd=processData(); pd.TeXpipepreamble.clear(); pd.TeXpreamble.clear(); pd.tex.pipeclose(); } #line 1660 "runtime.in" // void layer(picture *f); void gen_runtime57(stack *Stack) { picture * f=vm::pop(Stack); #line 1661 "runtime.in" f->append(new drawLayer()); } #line 1665 "runtime.in" // void newpage(picture *f); void gen_runtime58(stack *Stack) { picture * f=vm::pop(Stack); #line 1666 "runtime.in" f->append(new drawNewPage()); } #line 1670 "runtime.in" // void _image(picture *f, realarray2 *data, pair initial, pair final, penarray *palette=NULL, transform t=identity, bool copy=true, bool antialias=false); void gen_runtime59(stack *Stack) { bool antialias=vm::pop(Stack,false); bool copy=vm::pop(Stack,true); transform t=vm::pop(Stack,identity); penarray * palette=vm::pop(Stack,NULL); pair final=vm::pop(Stack); pair initial=vm::pop(Stack); realarray2 * data=vm::pop(Stack); picture * f=vm::pop(Stack); #line 1673 "runtime.in" array *(*copyarray)(array *a)=copy ? copyArray: nop; array *(*copyarray2)(array *a)=copy ? copyArray2: nop; f->append(new drawImage(*copyarray2(data),*copyarray(palette), t*matrix(initial,final),antialias)); } #line 1680 "runtime.in" // void _image(picture *f, penarray2 *data, pair initial, pair final, transform t=identity, bool copy=true, bool antialias=false); void gen_runtime60(stack *Stack) { bool antialias=vm::pop(Stack,false); bool copy=vm::pop(Stack,true); transform t=vm::pop(Stack,identity); pair final=vm::pop(Stack); pair initial=vm::pop(Stack); penarray2 * data=vm::pop(Stack); picture * f=vm::pop(Stack); #line 1682 "runtime.in" array *(*copyarray2)(array *a)=copy ? copyArray2: nop; f->append(new drawImage(*copyarray2(data),t*matrix(initial,final),antialias)); } #line 1687 "runtime.in" // string nativeformat(); void gen_runtime61(stack *Stack) { #line 1688 "runtime.in" {Stack->push(nativeformat()); return;} } #line 1692 "runtime.in" // bool latex(); void gen_runtime62(stack *Stack) { #line 1693 "runtime.in" {Stack->push(latex(getSetting("tex"))); return;} } #line 1697 "runtime.in" // bool pdf(); void gen_runtime63(stack *Stack) { #line 1698 "runtime.in" {Stack->push(pdf(getSetting("tex"))); return;} } #line 1702 "runtime.in" // void shipout(string prefix=emptystring, picture *f, picture *preamble=NULL, string format=emptystring, bool wait=false, bool view=true, callableTransform *xform); void gen_runtime64(stack *Stack) { callableTransform * xform=vm::pop(Stack); bool view=vm::pop(Stack,true); bool wait=vm::pop(Stack,false); string format=vm::pop(Stack,emptystring); picture * preamble=vm::pop(Stack,NULL); picture * f=vm::pop(Stack); string prefix=vm::pop(Stack,emptystring); #line 1705 "runtime.in" if(prefix.empty()) prefix=outname(); picture *result=new picture; unsigned level=0; picture::nodelist::iterator p; for(p = f->nodes.begin(); p != f->nodes.end(); ++p) { xform->call(Stack); transform t=pop(Stack); static transform Zero=transform(0.0,0.0,0.0,0.0,0.0,0.0); bool Delete=(t == Zero); picture *group=new picture; assert(*p); if((*p)->endgroup()) error(nobegin); if((*p)->begingroup()) { ++level; while(p != f->nodes.end() && level) { if(!Delete) { drawElement *e=t.isIdentity() ? *p : (*p)->transformed(t); group->append(e); } ++p; if(p == f->nodes.end()) break; assert(*p); if((*p)->begingroup()) ++level; if((*p)->endgroup()) { if(level) --level; else error(nobegin); } } } if(p == f->nodes.end()) break; assert(*p); if(!Delete) { drawElement *e=t.isIdentity() ? *p : (*p)->transformed(t); group->append(e); result->add(*group); } } result->shipout(preamble,prefix,format,0.0,wait,view); } #line 1748 "runtime.in" // void shipout3(string prefix, picture *f, string format=emptystring, real width, real height, real angle, real zoom, triple m, triple M, pair shift, realarray2 *t, realarray *background, triplearray *lights, realarray2 *diffuse, realarray2 *ambient, realarray2 *specular, bool viewportlighting, bool view=true); void gen_runtime65(stack *Stack) { bool view=vm::pop(Stack,true); bool viewportlighting=vm::pop(Stack); realarray2 * specular=vm::pop(Stack); realarray2 * ambient=vm::pop(Stack); realarray2 * diffuse=vm::pop(Stack); triplearray * lights=vm::pop(Stack); realarray * background=vm::pop(Stack); realarray2 * t=vm::pop(Stack); pair shift=vm::pop(Stack); triple M=vm::pop(Stack); triple m=vm::pop(Stack); real zoom=vm::pop(Stack); real angle=vm::pop(Stack); real height=vm::pop(Stack); real width=vm::pop(Stack); string format=vm::pop(Stack,emptystring); picture * f=vm::pop(Stack); string prefix=vm::pop(Stack); #line 1754 "runtime.in" size_t n=checkArrays(lights,diffuse); checkEqual(n,checkArray(ambient)); checkEqual(n,checkArray(specular)); f->shipout3(prefix,format,width,height,angle,zoom,m,M,shift, copyArray2C(t,true,4), copyArrayC(background),n,copyTripleArrayC(lights), copyArray2C(diffuse,false,4),copyArray2C(ambient,false,4), copyArray2C(specular,false,4),viewportlighting,view); } #line 1766 "runtime.in" // void shipout3(string prefix, picture *f); void gen_runtime66(stack *Stack) { picture * f=vm::pop(Stack); string prefix=vm::pop(Stack); #line 1767 "runtime.in" f->shipout3(prefix); } #line 1771 "runtime.in" // void deconstruct(picture *f, picture *preamble=NULL, real magnification=1, callableTransform *xform); void gen_runtime67(stack *Stack) { callableTransform * xform=vm::pop(Stack); real magnification=vm::pop(Stack,1); picture * preamble=vm::pop(Stack,NULL); picture * f=vm::pop(Stack); #line 1773 "runtime.in" unsigned level=0; unsigned n=0; string prefix=outname(); const string xformat="png"; static long arg_max=sysconf(_SC_ARG_MAX); const unsigned maxargs=::min(arg_max/(prefix.size()+xformat.size()+25ul), 256ul); cout << maxargs << newl; string preformat=nativeformat(); const string Done="Done"; const string Error="Error"; mem::vector cmd; // Enforce ghostscript limitations. magnification=::max(magnification,0.0001); real res=::min(::max(magnification*72.0,2.0),8192.0); const char *converter=NULL, *hint=NULL; if(magnification > 0.0) { mem::list nameStack; string outname; unsigned arg=0; unsigned batch=0; for(picture::nodelist::iterator p=f->nodes.begin();;) { if(p == f->nodes.end()) break; if(arg == 0) { cmd.clear(); ostringstream buf; buf << batch << "_"; outname=buildname(prefix+buf.str()+"%d",xformat,""); converter="gs"; hint="Ghostscript"; cmd.push_back(getSetting(converter)); cmd.push_back("-q"); cmd.push_back("-dNOPAUSE"); cmd.push_back("-dBATCH"); cmd.push_back("-sDEVICE=pngalpha"); cmd.push_back("-dEPSCrop"); if(safe) cmd.push_back("-dSAFER"); cmd.push_back("-r"+String(res)+"x"+String(res)); cmd.push_back("-sOutputFile="+outname); } picture *group=new picture; xform->call(Stack); transform t=pop(Stack); assert(*p); if((*p)->endgroup()) { cout << Error << endl; error(nobegin); } if((*p)->begingroup()) { ++level; while(p != f->nodes.end() && level) { drawElement *e=t.isIdentity() ? *p : (*p)->transformed(t); group->append(e); ++p; if(p == f->nodes.end()) break; assert(*p); if((*p)->begingroup()) ++level; if((*p)->endgroup()) { if(level) --level; else { cout << Error << endl; error(nobegin); } } } } if(p != f->nodes.end()) { assert(*p); drawElement *e=t.isIdentity() ? *p : (*p)->transformed(t); group->append(e); bbox b; ostringstream buf; buf << prefix << "_" << n; group->shipout(preamble,buf.str(),preformat,magnification,false,false); string Preformat=group->Transparency() ? "pdf" : preformat; string name=buildname(buf.str(),Preformat); nameStack.push_back(name); cmd.push_back(name); b=group->bounds(); b *= magnification; cout << b << newl; ++n; ++p; ++arg; } if(p == f->nodes.end() || arg >= maxargs) { arg=0; ++batch; cout.flush(); int status=System(cmd,0,true,converter,hint); if(status) { cout << Error << endl; error("deconstruct failed"); } } } if(!getSetting("keep")) { for(mem::list::iterator p=nameStack.begin(); p != nameStack.end(); ++p) unlink(p->c_str()); } cout << Done << endl; } } #line 1894 "runtime.in" // void purge(Int divisor=0); void gen_runtime68(stack *Stack) { Int divisor=vm::pop(Stack,0); #line 1895 "runtime.in" purge(divisor); } // Pen operations #line 1901 "runtime.in" void newPen(stack *Stack) { #line 1902 "runtime.in" {Stack->push(pen()); return;} } #line 1907 "runtime.in" // bool ==(pen a, pen b); void gen_runtime70(stack *Stack) { pen b=vm::pop(Stack); pen a=vm::pop(Stack); #line 1908 "runtime.in" {Stack->push(a == b); return;} } #line 1912 "runtime.in" // bool !=(pen a, pen b); void gen_runtime71(stack *Stack) { pen b=vm::pop(Stack); pen a=vm::pop(Stack); #line 1913 "runtime.in" {Stack->push(a != b); return;} } #line 1917 "runtime.in" // pen +(pen a, pen b); void gen_runtime72(stack *Stack) { pen b=vm::pop(Stack); pen a=vm::pop(Stack); #line 1918 "runtime.in" {Stack->push(a+b); return;} } #line 1922 "runtime.in" // pen *(real a, pen b); void gen_runtime73(stack *Stack) { pen b=vm::pop(Stack); real a=vm::pop(Stack); #line 1923 "runtime.in" {Stack->push(a*b); return;} } #line 1927 "runtime.in" // pen *(pen a, real b); void gen_runtime74(stack *Stack) { real b=vm::pop(Stack); pen a=vm::pop(Stack); #line 1928 "runtime.in" {Stack->push(b*a); return;} } #line 1932 "runtime.in" // pair max(pen p); void gen_runtime75(stack *Stack) { pen p=vm::pop(Stack); #line 1933 "runtime.in" {Stack->push(p.bounds().Max()); return;} } #line 1937 "runtime.in" // pair min(pen p); void gen_runtime76(stack *Stack) { pen p=vm::pop(Stack); #line 1938 "runtime.in" {Stack->push(p.bounds().Min()); return;} } // Reset the meaning of pen default attributes. #line 1943 "runtime.in" // void resetdefaultpen(); void gen_runtime77(stack *) { #line 1944 "runtime.in" processData().defaultpen=camp::pen::initialpen(); } #line 1948 "runtime.in" // void defaultpen(pen p); void gen_runtime78(stack *Stack) { pen p=vm::pop(Stack); #line 1949 "runtime.in" processData().defaultpen=pen(resolvepen,p); } #line 1953 "runtime.in" // pen defaultpen(); void gen_runtime79(stack *Stack) { #line 1954 "runtime.in" {Stack->push(processData().defaultpen); return;} } #line 1958 "runtime.in" // bool invisible(pen p); void gen_runtime80(stack *Stack) { pen p=vm::pop(Stack); #line 1959 "runtime.in" {Stack->push(p.invisible()); return;} } #line 1963 "runtime.in" // pen invisible(); void gen_runtime81(stack *Stack) { #line 1964 "runtime.in" {Stack->push(pen(invisiblepen)); return;} } #line 1968 "runtime.in" // pen gray(pen p); void gen_runtime82(stack *Stack) { pen p=vm::pop(Stack); #line 1969 "runtime.in" p.togrey(); {Stack->push(p); return;} } #line 1974 "runtime.in" // pen rgb(pen p); void gen_runtime83(stack *Stack) { pen p=vm::pop(Stack); #line 1975 "runtime.in" p.torgb(); {Stack->push(p); return;} } #line 1980 "runtime.in" // pen cmyk(pen p); void gen_runtime84(stack *Stack) { pen p=vm::pop(Stack); #line 1981 "runtime.in" p.tocmyk(); {Stack->push(p); return;} } #line 1986 "runtime.in" // pen interp(pen a, pen b, real t); void gen_runtime85(stack *Stack) { real t=vm::pop(Stack); pen b=vm::pop(Stack); pen a=vm::pop(Stack); #line 1987 "runtime.in" {Stack->push(interpolate(a,b,t)); return;} } #line 1991 "runtime.in" // pen rgb(real r, real g, real b); void gen_runtime86(stack *Stack) { real b=vm::pop(Stack); real g=vm::pop(Stack); real r=vm::pop(Stack); #line 1992 "runtime.in" {Stack->push(pen(r,g,b)); return;} } #line 1996 "runtime.in" // pen cmyk(real c, real m, real y, real k); void gen_runtime87(stack *Stack) { real k=vm::pop(Stack); real y=vm::pop(Stack); real m=vm::pop(Stack); real c=vm::pop(Stack); #line 1997 "runtime.in" {Stack->push(pen(c,m,y,k)); return;} } #line 2001 "runtime.in" // pen gray(real gray); void gen_runtime88(stack *Stack) { real gray=vm::pop(Stack); #line 2002 "runtime.in" {Stack->push(pen(gray)); return;} } #line 2006 "runtime.in" // realarray* colors(pen p); void gen_runtime89(stack *Stack) { pen p=vm::pop(Stack); #line 2007 "runtime.in" size_t n=ColorComponents[p.colorspace()]; array *a=new array(n); switch(n) { case 0: break; case 1: (*a)[0]=p.gray(); break; case 3: (*a)[0]=p.red(); (*a)[1]=p.green(); (*a)[2]=p.blue(); break; case 4: (*a)[0]=p.cyan(); (*a)[1]=p.magenta(); (*a)[2]=p.yellow(); (*a)[3]=p.black(); break; default: break; } {Stack->push(a); return;} } #line 2034 "runtime.in" // string colorspace(pen p); void gen_runtime90(stack *Stack) { pen p=vm::pop(Stack); #line 2035 "runtime.in" string s=ColorDeviceSuffix[p.colorspace()]; std::transform(s.begin(),s.end(),s.begin(),tolower); {Stack->push(s); return;} } #line 2041 "runtime.in" // pen pattern(string *s); void gen_runtime91(stack *Stack) { string * s=vm::pop(Stack); #line 2042 "runtime.in" {Stack->push(pen(setpattern,*s)); return;} } #line 2046 "runtime.in" // string pattern(pen p); void gen_runtime92(stack *Stack) { pen p=vm::pop(Stack); #line 2047 "runtime.in" {Stack->push(p.fillpattern()); return;} } #line 2051 "runtime.in" // pen fillrule(Int n); void gen_runtime93(stack *Stack) { Int n=vm::pop(Stack); #line 2052 "runtime.in" {Stack->push(pen(n >= 0 && n < nFill ? (FillRule) n : DEFFILL)); return;} } #line 2056 "runtime.in" // Int fillrule(pen p); void gen_runtime94(stack *Stack) { pen p=vm::pop(Stack); #line 2057 "runtime.in" {Stack->push(p.Fillrule()); return;} } #line 2061 "runtime.in" // pen opacity(real opacity=1.0, string blend=defaulttransparency); void gen_runtime95(stack *Stack) { string blend=vm::pop(Stack,defaulttransparency); real opacity=vm::pop(Stack,1.0); #line 2062 "runtime.in" for(Int i=0; i < nBlendMode; ++i) if(blend == BlendMode[i]) {Stack->push(pen(Transparency(blend,opacity))); return;} ostringstream buf; buf << "Unknown blend mode: " << "'" << blend << "'"; error(buf); } #line 2071 "runtime.in" // real opacity(pen p); void gen_runtime96(stack *Stack) { pen p=vm::pop(Stack); #line 2072 "runtime.in" {Stack->push(p.opacity()); return;} } #line 2076 "runtime.in" // string blend(pen p); void gen_runtime97(stack *Stack) { pen p=vm::pop(Stack); #line 2077 "runtime.in" {Stack->push(p.blend()); return;} } #line 2081 "runtime.in" // pen linetype(string *s, real offset=0, bool scale=true, bool adjust=true); void gen_runtime98(stack *Stack) { bool adjust=vm::pop(Stack,true); bool scale=vm::pop(Stack,true); real offset=vm::pop(Stack,0); string * s=vm::pop(Stack); #line 2082 "runtime.in" {Stack->push(pen(LineType(*s,offset,scale,adjust))); return;} } #line 2086 "runtime.in" // string linetype(pen p=CURRENTPEN); void gen_runtime99(stack *Stack) { pen p=vm::pop(Stack,CURRENTPEN); #line 2087 "runtime.in" {Stack->push(p.stroke()); return;} } #line 2091 "runtime.in" // real offset(pen p); void gen_runtime100(stack *Stack) { pen p=vm::pop(Stack); #line 2092 "runtime.in" {Stack->push(p.linetype().offset); return;} } #line 2096 "runtime.in" // bool scale(pen p); void gen_runtime101(stack *Stack) { pen p=vm::pop(Stack); #line 2097 "runtime.in" {Stack->push(p.linetype().scale); return;} } #line 2101 "runtime.in" // bool adjust(pen p); void gen_runtime102(stack *Stack) { pen p=vm::pop(Stack); #line 2102 "runtime.in" {Stack->push(p.linetype().adjust); return;} } #line 2106 "runtime.in" // pen adjust(pen p, real arclength, bool cyclic); void gen_runtime103(stack *Stack) { bool cyclic=vm::pop(Stack); real arclength=vm::pop(Stack); pen p=vm::pop(Stack); #line 2107 "runtime.in" {Stack->push(adjustdash(p,arclength,cyclic)); return;} } #line 2111 "runtime.in" // pen linecap(Int n); void gen_runtime104(stack *Stack) { Int n=vm::pop(Stack); #line 2112 "runtime.in" {Stack->push(pen(setlinecap,n >= 0 && n < nCap ? n : DEFCAP)); return;} } #line 2116 "runtime.in" // Int linecap(pen p=CURRENTPEN); void gen_runtime105(stack *Stack) { pen p=vm::pop(Stack,CURRENTPEN); #line 2117 "runtime.in" {Stack->push(p.cap()); return;} } #line 2121 "runtime.in" // pen linejoin(Int n); void gen_runtime106(stack *Stack) { Int n=vm::pop(Stack); #line 2122 "runtime.in" {Stack->push(pen(setlinejoin,n >= 0 && n < nJoin ? n : DEFJOIN)); return;} } #line 2126 "runtime.in" // Int linejoin(pen p=CURRENTPEN); void gen_runtime107(stack *Stack) { pen p=vm::pop(Stack,CURRENTPEN); #line 2127 "runtime.in" {Stack->push(p.join()); return;} } #line 2131 "runtime.in" // pen miterlimit(real x); void gen_runtime108(stack *Stack) { real x=vm::pop(Stack); #line 2132 "runtime.in" {Stack->push(pen(setmiterlimit,x >= 1.0 ? x : DEFJOIN)); return;} } #line 2136 "runtime.in" // real miterlimit(pen p=CURRENTPEN); void gen_runtime109(stack *Stack) { pen p=vm::pop(Stack,CURRENTPEN); #line 2137 "runtime.in" {Stack->push(p.miter()); return;} } #line 2141 "runtime.in" // pen linewidth(real x); void gen_runtime110(stack *Stack) { real x=vm::pop(Stack); #line 2142 "runtime.in" {Stack->push(pen(setlinewidth,x >= 0.0 ? x : DEFWIDTH)); return;} } #line 2146 "runtime.in" // real linewidth(pen p=CURRENTPEN); void gen_runtime111(stack *Stack) { pen p=vm::pop(Stack,CURRENTPEN); #line 2147 "runtime.in" {Stack->push(p.width()); return;} } #line 2151 "runtime.in" // pen fontcommand(string *s); void gen_runtime112(stack *Stack) { string * s=vm::pop(Stack); #line 2152 "runtime.in" {Stack->push(pen(setfont,*s)); return;} } #line 2156 "runtime.in" // string font(pen p=CURRENTPEN); void gen_runtime113(stack *Stack) { pen p=vm::pop(Stack,CURRENTPEN); #line 2157 "runtime.in" {Stack->push(p.Font()); return;} } #line 2161 "runtime.in" // pen fontsize(real size, real lineskip); void gen_runtime114(stack *Stack) { real lineskip=vm::pop(Stack); real size=vm::pop(Stack); #line 2162 "runtime.in" {Stack->push(pen(setfontsize,size > 0.0 ? size : 0.0, lineskip > 0.0 ? lineskip : 0.0)); return;} } #line 2167 "runtime.in" // real fontsize(pen p=CURRENTPEN); void gen_runtime115(stack *Stack) { pen p=vm::pop(Stack,CURRENTPEN); #line 2168 "runtime.in" {Stack->push(p.size()); return;} } #line 2172 "runtime.in" // real lineskip(pen p=CURRENTPEN); void gen_runtime116(stack *Stack) { pen p=vm::pop(Stack,CURRENTPEN); #line 2173 "runtime.in" {Stack->push(p.Lineskip()); return;} } #line 2177 "runtime.in" // pen overwrite(Int n); void gen_runtime117(stack *Stack) { Int n=vm::pop(Stack); #line 2178 "runtime.in" {Stack->push(pen(setoverwrite,n >= 0 && n < nOverwrite ? (overwrite_t) n : DEFWRITE)); return;} } #line 2183 "runtime.in" // Int overwrite(pen p=CURRENTPEN); void gen_runtime118(stack *Stack) { pen p=vm::pop(Stack,CURRENTPEN); #line 2184 "runtime.in" {Stack->push(p.Overwrite()); return;} } #line 2188 "runtime.in" // pen basealign(Int n); void gen_runtime119(stack *Stack) { Int n=vm::pop(Stack); #line 2189 "runtime.in" {Stack->push(pen(n >= 0 && n < nBaseLine ? (BaseLine) n : DEFBASE)); return;} } #line 2193 "runtime.in" // Int basealign(pen p=CURRENTPEN); void gen_runtime120(stack *Stack) { pen p=vm::pop(Stack,CURRENTPEN); #line 2194 "runtime.in" {Stack->push(p.Baseline()); return;} } #line 2198 "runtime.in" // transform transform(pen p); void gen_runtime121(stack *Stack) { pen p=vm::pop(Stack); #line 2199 "runtime.in" {Stack->push(p.getTransform()); return;} } #line 2203 "runtime.in" // path nib(pen p); void gen_runtime122(stack *Stack) { pen p=vm::pop(Stack); #line 2204 "runtime.in" {Stack->push(p.Path()); return;} } #line 2208 "runtime.in" // pen makepen(path p); void gen_runtime123(stack *Stack) { path p=vm::pop(Stack); #line 2209 "runtime.in" {Stack->push(pen(p)); return;} } #line 2213 "runtime.in" // pen colorless(pen p); void gen_runtime124(stack *Stack) { pen p=vm::pop(Stack); #line 2214 "runtime.in" p.colorless(); {Stack->push(p); return;} } // Interactive mode #line 2220 "runtime.in" // bool interactive(); void gen_runtime125(stack *Stack) { #line 2221 "runtime.in" {Stack->push(interact::interactive); return;} } #line 2226 "runtime.in" // bool uptodate(); void gen_runtime126(stack *Stack) { #line 2227 "runtime.in" {Stack->push(interact::uptodate); return;} } // System commands #line 2233 "runtime.in" // Int system(stringarray *s); void gen_runtime127(stack *Stack) { stringarray * s=vm::pop(Stack); #line 2234 "runtime.in" if(safe) error("system() call disabled; override with option -nosafe"); size_t size=checkArray(s); if(size == 0) {Stack->push(0); return;} mem::vector cmd; for(size_t i=0; i < size; ++i) cmd.push_back(read(s,i)); {Stack->push(System(cmd)); return;} } #line 2245 "runtime.in" // bool view(); void gen_runtime128(stack *Stack) { #line 2246 "runtime.in" {Stack->push(view()); return;} } #line 2250 "runtime.in" // string asydir(); void gen_runtime129(stack *Stack) { #line 2251 "runtime.in" {Stack->push(systemDir); return;} } #line 2255 "runtime.in" // string locale(string s=emptystring); void gen_runtime130(stack *Stack) { string s=vm::pop(Stack,emptystring); #line 2256 "runtime.in" char *L=setlocale(LC_ALL,s.empty() ? NULL : s.c_str()); {Stack->push(L != NULL ? string(L) : ""); return;} } #line 2261 "runtime.in" // void abort(string s=emptystring); void gen_runtime131(stack *Stack) { string s=vm::pop(Stack,emptystring); #line 2262 "runtime.in" if(s.empty()) throw handled_error(); error(s.c_str()); } #line 2267 "runtime.in" // void exit(); void gen_runtime132(stack *) { #line 2268 "runtime.in" throw quit(); } #line 2272 "runtime.in" // void assert(bool b, string s=emptystring); void gen_runtime133(stack *Stack) { string s=vm::pop(Stack,emptystring); bool b=vm::pop(Stack); #line 2273 "runtime.in" flush(cout); if(!b) { ostringstream buf; buf << "assert FAILED"; if(s != "") buf << ": " << s; error(buf); } } #line 2283 "runtime.in" // void sleep(Int seconds); void gen_runtime134(stack *Stack) { Int seconds=vm::pop(Stack); #line 2284 "runtime.in" if(seconds <= 0) return; sleep(seconds); } #line 2289 "runtime.in" // void usleep(Int microseconds); void gen_runtime135(stack *Stack) { Int microseconds=vm::pop(Stack); #line 2290 "runtime.in" if(microseconds <= 0) return; usleep((unsigned long) microseconds); } #line 2295 "runtime.in" // void _eval(string *s, bool embedded, bool interactiveWrite=false); void gen_runtime136(stack *Stack) { bool interactiveWrite=vm::pop(Stack,false); bool embedded=vm::pop(Stack); string * s=vm::pop(Stack); #line 2296 "runtime.in" if(embedded) { trans::coenv *e=Stack->getEnvironment(); vm::interactiveStack *is=dynamic_cast(Stack); if(e && is) runStringEmbedded(*s, *e, *is); else error(noruntime); } else runString(*s,interactiveWrite); } #line 2308 "runtime.in" // void _eval(runnable *s, bool embedded); void gen_runtime137(stack *Stack) { bool embedded=vm::pop(Stack); runnable * s=vm::pop(Stack); #line 2309 "runtime.in" absyntax::block *ast=new absyntax::block(s->getPos(), false); ast->add(s); if(embedded) { trans::coenv *e=Stack->getEnvironment(); vm::interactiveStack *is=dynamic_cast(Stack); if(e && is) runCodeEmbedded(ast, *e, *is); else error(noruntime); } else runCode(ast); } #line 2324 "runtime.in" // string location(); void gen_runtime138(stack *Stack) { #line 2325 "runtime.in" ostringstream buf; buf << getPos(); {Stack->push(buf.str()); return;} } // Wrapper for the stack::load() method. #line 2331 "runtime.in" void loadModule(stack *Stack) { string * index=vm::pop(Stack); #line 2332 "runtime.in" Stack->load(*index); } #line 2336 "runtime.in" // string cd(string s=emptystring); void gen_runtime140(stack *Stack) { string s=vm::pop(Stack,emptystring); #line 2337 "runtime.in" if(!s.empty() && !globalwrite()) writeDisabled(); {Stack->push(setPath(s.c_str())); return;} } #line 2342 "runtime.in" // void list(string *s, bool imports=false); void gen_runtime141(stack *Stack) { bool imports=vm::pop(Stack,false); string * s=vm::pop(Stack); #line 2343 "runtime.in" if(*s == "-") return; trans::genv ge; symbol *name=symbol::trans(*s); record *r=ge.getModule(name,*s); r->e.list(imports ? 0 : r); } // Path operations #line 2353 "runtime.in" void nullPath(stack *Stack) { #line 2354 "runtime.in" {Stack->push(nullpath); return;} } #line 2359 "runtime.in" // bool ==(path a, path b); void gen_runtime143(stack *Stack) { path b=vm::pop(Stack); path a=vm::pop(Stack); #line 2360 "runtime.in" {Stack->push(a == b); return;} } #line 2364 "runtime.in" // bool !=(path a, path b); void gen_runtime144(stack *Stack) { path b=vm::pop(Stack); path a=vm::pop(Stack); #line 2365 "runtime.in" {Stack->push(!(a == b)); return;} } #line 2369 "runtime.in" // pair point(path p, Int t); void gen_runtime145(stack *Stack) { Int t=vm::pop(Stack); path p=vm::pop(Stack); #line 2370 "runtime.in" {Stack->push(p.point((Int) t)); return;} } #line 2374 "runtime.in" // pair point(path p, real t); void gen_runtime146(stack *Stack) { real t=vm::pop(Stack); path p=vm::pop(Stack); #line 2375 "runtime.in" {Stack->push(p.point(t)); return;} } #line 2379 "runtime.in" // pair precontrol(path p, Int t); void gen_runtime147(stack *Stack) { Int t=vm::pop(Stack); path p=vm::pop(Stack); #line 2380 "runtime.in" {Stack->push(p.precontrol((Int) t)); return;} } #line 2384 "runtime.in" // pair precontrol(path p, real t); void gen_runtime148(stack *Stack) { real t=vm::pop(Stack); path p=vm::pop(Stack); #line 2385 "runtime.in" {Stack->push(p.precontrol(t)); return;} } #line 2389 "runtime.in" // pair postcontrol(path p, Int t); void gen_runtime149(stack *Stack) { Int t=vm::pop(Stack); path p=vm::pop(Stack); #line 2390 "runtime.in" {Stack->push(p.postcontrol((Int) t)); return;} } #line 2394 "runtime.in" // pair postcontrol(path p, real t); void gen_runtime150(stack *Stack) { real t=vm::pop(Stack); path p=vm::pop(Stack); #line 2395 "runtime.in" {Stack->push(p.postcontrol(t)); return;} } #line 2399 "runtime.in" // pair dir(path p, Int t, Int sign=0, bool normalize=true); void gen_runtime151(stack *Stack) { bool normalize=vm::pop(Stack,true); Int sign=vm::pop(Stack,0); Int t=vm::pop(Stack); path p=vm::pop(Stack); #line 2400 "runtime.in" {Stack->push(p.dir(t,sign,normalize)); return;} } #line 2404 "runtime.in" // pair dir(path p, real t, bool normalize=true); void gen_runtime152(stack *Stack) { bool normalize=vm::pop(Stack,true); real t=vm::pop(Stack); path p=vm::pop(Stack); #line 2405 "runtime.in" {Stack->push(p.dir(t,normalize)); return;} } #line 2409 "runtime.in" // pair accel(path p, Int t, Int sign=0); void gen_runtime153(stack *Stack) { Int sign=vm::pop(Stack,0); Int t=vm::pop(Stack); path p=vm::pop(Stack); #line 2410 "runtime.in" {Stack->push(p.accel(t,sign)); return;} } #line 2414 "runtime.in" // pair accel(path p, real t); void gen_runtime154(stack *Stack) { real t=vm::pop(Stack); path p=vm::pop(Stack); #line 2415 "runtime.in" {Stack->push(p.accel(t)); return;} } #line 2419 "runtime.in" // real radius(path p, real t); void gen_runtime155(stack *Stack) { real t=vm::pop(Stack); path p=vm::pop(Stack); #line 2420 "runtime.in" pair v=p.dir(t,false); pair a=p.accel(t); real d=dot(a,v); real v2=v.abs2(); real a2=a.abs2(); real denom=v2*a2-d*d; real r=v2*sqrt(v2); {Stack->push(denom > 0 ? r/sqrt(denom) : 0.0); return;} } #line 2431 "runtime.in" // path reverse(path p); void gen_runtime156(stack *Stack) { path p=vm::pop(Stack); #line 2432 "runtime.in" {Stack->push(p.reverse()); return;} } #line 2436 "runtime.in" // path subpath(path p, Int a, Int b); void gen_runtime157(stack *Stack) { Int b=vm::pop(Stack); Int a=vm::pop(Stack); path p=vm::pop(Stack); #line 2437 "runtime.in" {Stack->push(p.subpath((Int) a, (Int) b)); return;} } #line 2441 "runtime.in" // path subpath(path p, real a, real b); void gen_runtime158(stack *Stack) { real b=vm::pop(Stack); real a=vm::pop(Stack); path p=vm::pop(Stack); #line 2442 "runtime.in" {Stack->push(p.subpath(a,b)); return;} } #line 2446 "runtime.in" // path nurb(pair z0, pair z1, pair z2, pair z3, real w0, real w1, real w2, real w3, Int m); void gen_runtime159(stack *Stack) { Int m=vm::pop(Stack); real w3=vm::pop(Stack); real w2=vm::pop(Stack); real w1=vm::pop(Stack); real w0=vm::pop(Stack); pair z3=vm::pop(Stack); pair z2=vm::pop(Stack); pair z1=vm::pop(Stack); pair z0=vm::pop(Stack); #line 2448 "runtime.in" {Stack->push(nurb(z0,z1,z2,z3,w0,w1,w2,w3,m)); return;} } #line 2452 "runtime.in" // Int length(path p); void gen_runtime160(stack *Stack) { path p=vm::pop(Stack); #line 2453 "runtime.in" {Stack->push(p.length()); return;} } #line 2457 "runtime.in" // bool cyclic(path p); void gen_runtime161(stack *Stack) { path p=vm::pop(Stack); #line 2458 "runtime.in" {Stack->push(p.cyclic()); return;} } #line 2462 "runtime.in" // bool straight(path p, Int t); void gen_runtime162(stack *Stack) { Int t=vm::pop(Stack); path p=vm::pop(Stack); #line 2463 "runtime.in" {Stack->push(p.straight(t)); return;} } #line 2467 "runtime.in" // path unstraighten(path p); void gen_runtime163(stack *Stack) { path p=vm::pop(Stack); #line 2468 "runtime.in" {Stack->push(p.unstraighten()); return;} } #line 2472 "runtime.in" // bool piecewisestraight(path p); void gen_runtime164(stack *Stack) { path p=vm::pop(Stack); #line 2473 "runtime.in" {Stack->push(p.piecewisestraight()); return;} } #line 2477 "runtime.in" // real arclength(path p); void gen_runtime165(stack *Stack) { path p=vm::pop(Stack); #line 2478 "runtime.in" {Stack->push(p.arclength()); return;} } #line 2482 "runtime.in" // real arctime(path p, real dval); void gen_runtime166(stack *Stack) { real dval=vm::pop(Stack); path p=vm::pop(Stack); #line 2483 "runtime.in" {Stack->push(p.arctime(dval)); return;} } #line 2487 "runtime.in" // real dirtime(path p, pair z); void gen_runtime167(stack *Stack) { pair z=vm::pop(Stack); path p=vm::pop(Stack); #line 2488 "runtime.in" {Stack->push(p.directiontime(z)); return;} } #line 2492 "runtime.in" // realarray* intersect(path p, path q, real fuzz=-1); void gen_runtime168(stack *Stack) { real fuzz=vm::pop(Stack,-1); path q=vm::pop(Stack); path p=vm::pop(Stack); #line 2493 "runtime.in" bool exact=fuzz <= 0.0; if(fuzz < 0) fuzz=BigFuzz*::max(::max(length(p.max()),length(p.min())), ::max(length(q.max()),length(q.min()))); std::vector S,T; real s,t; if(intersections(s,t,S,T,p,q,fuzz,true,exact)) { array *V=new array(2); (*V)[0]=s; (*V)[1]=t; {Stack->push(V); return;} } {Stack->push(new array(0)); return;} } #line 2509 "runtime.in" // realarray2* intersections(path p, path q, real fuzz=-1); void gen_runtime169(stack *Stack) { real fuzz=vm::pop(Stack,-1); path q=vm::pop(Stack); path p=vm::pop(Stack); #line 2510 "runtime.in" bool exact=fuzz <= 0.0; if(fuzz < 0.0) fuzz=BigFuzz*::max(::max(length(p.max()),length(p.min())), ::max(length(q.max()),length(q.min()))); real s,t; std::vector S,T; intersections(s,t,S,T,p,q,fuzz,false,true); size_t n=S.size(); if(n == 0 && !exact) { if(intersections(s,t,S,T,p,q,fuzz,true,false)) { array *V=new array(1); array *Vi=new array(2); (*V)[0]=Vi; (*Vi)[0]=s; (*Vi)[1]=t; {Stack->push(V); return;} } } array *V=new array(n); for(size_t i=0; i < n; ++i) { array *Vi=new array(2); (*V)[i]=Vi; (*Vi)[0]=S[i]; (*Vi)[1]=T[i]; } stable_sort(V->begin(),V->end(),run::compare2()); {Stack->push(V); return;} } #line 2540 "runtime.in" // realarray* intersections(path p, explicit pair a, explicit pair b, real fuzz=-1); void gen_runtime170(stack *Stack) { real fuzz=vm::pop(Stack,-1); pair b=vm::pop(Stack); pair a=vm::pop(Stack); path p=vm::pop(Stack); #line 2541 "runtime.in" if(fuzz < 0) fuzz=BigFuzz*::max(::max(length(p.max()),length(p.min())), ::max(length(a),length(b))); std::vector S; intersections(S,p,a,b,fuzz); sort(S.begin(),S.end()); size_t n=S.size(); array *V=new array(n); for(size_t i=0; i < n; ++i) (*V)[i]=S[i]; {Stack->push(V); return;} } // Return the intersection point of the extensions of the line segments // PQ and pq. #line 2557 "runtime.in" // pair extension(pair P, pair Q, pair p, pair q); void gen_runtime171(stack *Stack) { pair q=vm::pop(Stack); pair p=vm::pop(Stack); pair Q=vm::pop(Stack); pair P=vm::pop(Stack); #line 2558 "runtime.in" pair ac=P-Q; pair bd=q-p; real det=ac.getx()*bd.gety()-ac.gety()*bd.getx(); if(det == 0) {Stack->push(pair(infinity,infinity)); return;} {Stack->push(P+((p.getx()-P.getx())*bd.gety()-(p.gety()-P.gety())*bd.getx())*ac/det); return;} } #line 2566 "runtime.in" // Int size(path p); void gen_runtime172(stack *Stack) { path p=vm::pop(Stack); #line 2567 "runtime.in" {Stack->push(p.size()); return;} } #line 2571 "runtime.in" // path &(path p, path q); void gen_runtime173(stack *Stack) { path q=vm::pop(Stack); path p=vm::pop(Stack); #line 2572 "runtime.in" {Stack->push(camp::concat(p,q)); return;} } #line 2576 "runtime.in" // pair min(path p); void gen_runtime174(stack *Stack) { path p=vm::pop(Stack); #line 2577 "runtime.in" {Stack->push(p.min()); return;} } #line 2581 "runtime.in" // pair max(path p); void gen_runtime175(stack *Stack) { path p=vm::pop(Stack); #line 2582 "runtime.in" {Stack->push(p.max()); return;} } #line 2586 "runtime.in" // realarray* mintimes(path p); void gen_runtime176(stack *Stack) { path p=vm::pop(Stack); #line 2587 "runtime.in" array *V=new array(2); pair z=p.mintimes(); (*V)[0]=z.getx(); (*V)[1]=z.gety(); {Stack->push(V); return;} } #line 2595 "runtime.in" // realarray* maxtimes(path p); void gen_runtime177(stack *Stack) { path p=vm::pop(Stack); #line 2596 "runtime.in" array *V=new array(2); pair z=p.maxtimes(); (*V)[0]=z.getx(); (*V)[1]=z.gety(); {Stack->push(V); return;} } #line 2604 "runtime.in" // real relativedistance(real theta, real phi, real t, bool atleast); void gen_runtime178(stack *Stack) { bool atleast=vm::pop(Stack); real t=vm::pop(Stack); real phi=vm::pop(Stack); real theta=vm::pop(Stack); #line 2605 "runtime.in" {Stack->push(camp::velocity(theta,phi,tension(t,atleast))); return;} } #line 2609 "runtime.in" // Int windingnumber(patharray *p, pair z); void gen_runtime179(stack *Stack) { pair z=vm::pop(Stack); patharray * p=vm::pop(Stack); #line 2610 "runtime.in" {Stack->push(windingnumber(p,z)); return;} } #line 2614 "runtime.in" // bool inside(explicit patharray *g, pair z, pen fillrule=CURRENTPEN); void gen_runtime180(stack *Stack) { pen fillrule=vm::pop(Stack,CURRENTPEN); pair z=vm::pop(Stack); patharray * g=vm::pop(Stack); #line 2615 "runtime.in" {Stack->push(fillrule.inside(windingnumber(g,z))); return;} } #line 2619 "runtime.in" // bool inside(path g, pair z, pen fillrule=CURRENTPEN); void gen_runtime181(stack *Stack) { pen fillrule=vm::pop(Stack,CURRENTPEN); pair z=vm::pop(Stack); path g=vm::pop(Stack); #line 2620 "runtime.in" {Stack->push(fillrule.inside(g.windingnumber(z))); return;} } // Determine the side of a--b that c lies on // (negative=left, zero=on line, positive=right). #line 2626 "runtime.in" // real side(pair a, pair b, pair c); void gen_runtime182(stack *Stack) { pair c=vm::pop(Stack); pair b=vm::pop(Stack); pair a=vm::pop(Stack); #line 2627 "runtime.in" {Stack->push(orient2d(a,b,c)); return;} } // Determine the side of the counterclockwise circle through a,b,c that d // lies on (negative=inside, 0=on circle, positive=right). #line 2633 "runtime.in" // real incircle(pair a, pair b, pair c, pair d); void gen_runtime183(stack *Stack) { pair d=vm::pop(Stack); pair c=vm::pop(Stack); pair b=vm::pop(Stack); pair a=vm::pop(Stack); #line 2634 "runtime.in" {Stack->push(incircle(a.getx(),a.gety(),b.getx(),b.gety(),c.getx(),c.gety(), d.getx(),d.gety())); return;} } // Path3 operations #line 2641 "runtime.in" // path3 path3(triplearray *pre, triplearray *point, triplearray *post, boolarray *straight, bool cyclic); void gen_runtime184(stack *Stack) { bool cyclic=vm::pop(Stack); boolarray * straight=vm::pop(Stack); triplearray * post=vm::pop(Stack); triplearray * point=vm::pop(Stack); triplearray * pre=vm::pop(Stack); #line 2643 "runtime.in" size_t n=checkArrays(pre,point); checkEqual(n,checkArray(post)); checkEqual(n,checkArray(straight)); mem::vector nodes(n); for(size_t i=0; i < n; ++i) { nodes[i].pre=read(pre,i); nodes[i].point=read(point,i); nodes[i].post=read(post,i); nodes[i].straight=read(straight,i); } {Stack->push(path3(nodes,(Int) n,cyclic)); return;} } #line 2659 "runtime.in" void nullPath3(stack *Stack) { #line 2660 "runtime.in" {Stack->push(nullpath3); return;} } #line 2664 "runtime.in" // bool ==(path3 a, path3 b); void gen_runtime186(stack *Stack) { path3 b=vm::pop(Stack); path3 a=vm::pop(Stack); #line 2665 "runtime.in" {Stack->push(a == b); return;} } #line 2669 "runtime.in" // bool !=(path3 a, path3 b); void gen_runtime187(stack *Stack) { path3 b=vm::pop(Stack); path3 a=vm::pop(Stack); #line 2670 "runtime.in" {Stack->push(!(a == b)); return;} } #line 2674 "runtime.in" // triple point(path3 p, Int t); void gen_runtime188(stack *Stack) { Int t=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2675 "runtime.in" {Stack->push(p.point((Int) t)); return;} } #line 2679 "runtime.in" // triple point(path3 p, real t); void gen_runtime189(stack *Stack) { real t=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2680 "runtime.in" {Stack->push(p.point(t)); return;} } #line 2684 "runtime.in" // triple precontrol(path3 p, Int t); void gen_runtime190(stack *Stack) { Int t=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2685 "runtime.in" {Stack->push(p.precontrol((Int) t)); return;} } #line 2689 "runtime.in" // triple precontrol(path3 p, real t); void gen_runtime191(stack *Stack) { real t=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2690 "runtime.in" {Stack->push(p.precontrol(t)); return;} } #line 2694 "runtime.in" // triple postcontrol(path3 p, Int t); void gen_runtime192(stack *Stack) { Int t=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2695 "runtime.in" {Stack->push(p.postcontrol((Int) t)); return;} } #line 2699 "runtime.in" // triple postcontrol(path3 p, real t); void gen_runtime193(stack *Stack) { real t=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2700 "runtime.in" {Stack->push(p.postcontrol(t)); return;} } #line 2704 "runtime.in" // triple dir(path3 p, Int t, Int sign=0, bool normalize=true); void gen_runtime194(stack *Stack) { bool normalize=vm::pop(Stack,true); Int sign=vm::pop(Stack,0); Int t=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2705 "runtime.in" {Stack->push(p.dir(t,sign,normalize)); return;} } #line 2709 "runtime.in" // triple dir(path3 p, real t, bool normalize=true); void gen_runtime195(stack *Stack) { bool normalize=vm::pop(Stack,true); real t=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2710 "runtime.in" {Stack->push(p.dir(t,normalize)); return;} } #line 2714 "runtime.in" // triple accel(path3 p, Int t, Int sign=0); void gen_runtime196(stack *Stack) { Int sign=vm::pop(Stack,0); Int t=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2715 "runtime.in" {Stack->push(p.accel(t,sign)); return;} } #line 2719 "runtime.in" // triple accel(path3 p, real t); void gen_runtime197(stack *Stack) { real t=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2720 "runtime.in" {Stack->push(p.accel(t)); return;} } #line 2724 "runtime.in" // real radius(path3 p, real t); void gen_runtime198(stack *Stack) { real t=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2725 "runtime.in" triple v=p.dir(t,false); triple a=p.accel(t); real d=dot(a,v); real v2=v.abs2(); real a2=a.abs2(); real denom=v2*a2-d*d; real r=v2*sqrt(v2); {Stack->push(denom > 0 ? r/sqrt(denom) : 0.0); return;} } #line 2736 "runtime.in" // real radius(triple z0, triple c0, triple c1, triple z1, real t); void gen_runtime199(stack *Stack) { real t=vm::pop(Stack); triple z1=vm::pop(Stack); triple c1=vm::pop(Stack); triple c0=vm::pop(Stack); triple z0=vm::pop(Stack); #line 2737 "runtime.in" triple v=(3.0*(z1-z0)+9.0*(c0-c1))*t*t+(6.0*(z0+c1)-12.0*c0)*t+3.0*(c0-z0); triple a=6.0*(z1-z0+3.0*(c0-c1))*t+6.0*(z0+c1)-12.0*c0; real d=dot(a,v); real v2=v.abs2(); real a2=a.abs2(); real denom=v2*a2-d*d; real r=v2*sqrt(v2); {Stack->push(denom > 0 ? r/sqrt(denom) : 0.0); return;} } #line 2748 "runtime.in" // path3 reverse(path3 p); void gen_runtime200(stack *Stack) { path3 p=vm::pop(Stack); #line 2749 "runtime.in" {Stack->push(p.reverse()); return;} } #line 2753 "runtime.in" // path3 subpath(path3 p, Int a, Int b); void gen_runtime201(stack *Stack) { Int b=vm::pop(Stack); Int a=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2754 "runtime.in" {Stack->push(p.subpath((Int) a, (Int) b)); return;} } #line 2758 "runtime.in" // path3 subpath(path3 p, real a, real b); void gen_runtime202(stack *Stack) { real b=vm::pop(Stack); real a=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2759 "runtime.in" {Stack->push(p.subpath(a,b)); return;} } #line 2763 "runtime.in" // Int length(path3 p); void gen_runtime203(stack *Stack) { path3 p=vm::pop(Stack); #line 2764 "runtime.in" {Stack->push(p.length()); return;} } #line 2768 "runtime.in" // bool cyclic(path3 p); void gen_runtime204(stack *Stack) { path3 p=vm::pop(Stack); #line 2769 "runtime.in" {Stack->push(p.cyclic()); return;} } #line 2773 "runtime.in" // bool straight(path3 p, Int t); void gen_runtime205(stack *Stack) { Int t=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2774 "runtime.in" {Stack->push(p.straight(t)); return;} } // Return the component of vector v perpendicular to a unit vector u. #line 2779 "runtime.in" // triple perp(triple v, triple u); void gen_runtime206(stack *Stack) { triple u=vm::pop(Stack); triple v=vm::pop(Stack); #line 2780 "runtime.in" {Stack->push(perp(v,u)); return;} } // Return the maximum perpendicular deviation of segment i of path3 g // from a straight line. #line 2786 "runtime.in" // real straightness(path3 p, Int t); void gen_runtime207(stack *Stack) { Int t=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2787 "runtime.in" if(p.straight(t)) {Stack->push(0); return;} triple z0=p.point(t); triple u=unit(p.point(t+1)-z0); {Stack->push(::max(length(perp(p.postcontrol(t)-z0,u)), length(perp(p.precontrol(t+1)-z0,u)))); return;} } // Return the maximum perpendicular deviation of z0..controls c0 and c1..z1 // from a straight line. #line 2797 "runtime.in" // real straightness(triple z0, triple c0, triple c1, triple z1); void gen_runtime208(stack *Stack) { triple z1=vm::pop(Stack); triple c1=vm::pop(Stack); triple c0=vm::pop(Stack); triple z0=vm::pop(Stack); #line 2798 "runtime.in" triple u=unit(z1-z0); {Stack->push(::max(length(perp(c0-z0,u)),length(perp(c1-z0,u)))); return;} } #line 2803 "runtime.in" // bool piecewisestraight(path3 p); void gen_runtime209(stack *Stack) { path3 p=vm::pop(Stack); #line 2804 "runtime.in" {Stack->push(p.piecewisestraight()); return;} } #line 2808 "runtime.in" // real arclength(path3 p); void gen_runtime210(stack *Stack) { path3 p=vm::pop(Stack); #line 2809 "runtime.in" {Stack->push(p.arclength()); return;} } #line 2813 "runtime.in" // real arctime(path3 p, real dval); void gen_runtime211(stack *Stack) { real dval=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2814 "runtime.in" {Stack->push(p.arctime(dval)); return;} } #line 2818 "runtime.in" // realarray* intersect(path3 p, path3 q, real fuzz=-1); void gen_runtime212(stack *Stack) { real fuzz=vm::pop(Stack,-1); path3 q=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2819 "runtime.in" bool exact=fuzz <= 0.0; if(fuzz < 0) fuzz=BigFuzz*::max(::max(length(p.max()),length(p.min())), ::max(length(q.max()),length(q.min()))); std::vector S,T; real s,t; if(intersections(s,t,S,T,p,q,fuzz,true,exact)) { array *V=new array(2); (*V)[0]=s; (*V)[1]=t; {Stack->push(V); return;} } else {Stack->push(new array(0)); return;} } #line 2836 "runtime.in" // realarray2* intersections(path3 p, path3 q, real fuzz=-1); void gen_runtime213(stack *Stack) { real fuzz=vm::pop(Stack,-1); path3 q=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2837 "runtime.in" bool exact=fuzz <= 0.0; if(fuzz < 0) fuzz=BigFuzz*::max(::max(length(p.max()),length(p.min())), ::max(length(q.max()),length(q.min()))); bool single=!exact; real s,t; std::vector S,T; bool found=intersections(s,t,S,T,p,q,fuzz,single,exact); if(!found) {Stack->push(new array(0)); return;} array *V; if(single) { V=new array(1); array *Vi=new array(2); (*V)[0]=Vi; (*Vi)[0]=s; (*Vi)[1]=t; } else { size_t n=S.size(); V=new array(n); for(size_t i=0; i < n; ++i) { array *Vi=new array(2); (*V)[i]=Vi; (*Vi)[0]=S[i]; (*Vi)[1]=T[i]; } } stable_sort(V->begin(),V->end(),run::compare2()); {Stack->push(V); return;} } #line 2869 "runtime.in" // realarray2* intersections(path3 p, triplearray2 *P, real fuzz=-1); void gen_runtime214(stack *Stack) { real fuzz=vm::pop(Stack,-1); triplearray2 * P=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2870 "runtime.in" triple *A=copyTripleArray2C(P,true,4); if(fuzz <= 0) fuzz=BigFuzz*::max(::max(length(p.max()),length(p.min())), norm(A,16)); std::vector T,U,V; intersections(T,U,V,p,A,fuzz); delete[] A; size_t n=T.size(); array *W=new array(n); for(size_t i=0; i < n; ++i) { array *Wi=new array(3); (*W)[i]=Wi; (*Wi)[0]=T[i]; (*Wi)[1]=U[i]; (*Wi)[2]=V[i]; } {Stack->push(W); return;} // Sorting will done in asy. } #line 2889 "runtime.in" // Int size(path3 p); void gen_runtime215(stack *Stack) { path3 p=vm::pop(Stack); #line 2890 "runtime.in" {Stack->push(p.size()); return;} } #line 2894 "runtime.in" // path3 &(path3 p, path3 q); void gen_runtime216(stack *Stack) { path3 q=vm::pop(Stack); path3 p=vm::pop(Stack); #line 2895 "runtime.in" {Stack->push(camp::concat(p,q)); return;} } #line 2899 "runtime.in" // triple min(path3 p); void gen_runtime217(stack *Stack) { path3 p=vm::pop(Stack); #line 2900 "runtime.in" {Stack->push(p.min()); return;} } #line 2904 "runtime.in" // triple max(path3 p); void gen_runtime218(stack *Stack) { path3 p=vm::pop(Stack); #line 2905 "runtime.in" {Stack->push(p.max()); return;} } #line 2909 "runtime.in" // realarray* mintimes(path3 p); void gen_runtime219(stack *Stack) { path3 p=vm::pop(Stack); #line 2910 "runtime.in" array *V=new array(3); triple v=p.mintimes(); (*V)[0]=v.getx(); (*V)[1]=v.gety(); (*V)[2]=v.getz(); {Stack->push(V); return;} } #line 2919 "runtime.in" // realarray* maxtimes(path3 p); void gen_runtime220(stack *Stack) { path3 p=vm::pop(Stack); #line 2920 "runtime.in" array *V=new array(3); triple v=p.maxtimes(); (*V)[0]=v.getx(); (*V)[1]=v.gety(); (*V)[2]=v.getz(); {Stack->push(V); return;} } #line 2929 "runtime.in" // path3 *(realarray2 *t, path3 g); void gen_runtime221(stack *Stack) { path3 g=vm::pop(Stack); realarray2 * t=vm::pop(Stack); #line 2930 "runtime.in" {Stack->push(transformed(*t,g)); return;} } // Guide operations #line 2936 "runtime.in" void nullGuide(stack *Stack) { #line 2937 "runtime.in" {Stack->push(new pathguide(path())); return;} } #line 2942 "runtime.in" void dotsGuide(stack *Stack) { guidearray * a=vm::pop(Stack); #line 2943 "runtime.in" guidevector v; size_t size=checkArray(a); for (size_t i=0; i < size; ++i) v.push_back(a->read(i)); {Stack->push(new multiguide(v)); return;} } #line 2952 "runtime.in" void dashesGuide(stack *Stack) { guidearray * a=vm::pop(Stack); #line 2953 "runtime.in" static camp::curlSpec curly; static specguide curlout(&curly, camp::OUT); static specguide curlin(&curly, camp::IN); size_t n=checkArray(a); // a--b is equivalent to a{curl 1}..{curl 1}b guidevector v; if (n > 0) v.push_back(a->read(0)); if (n==1) { v.push_back(&curlout); v.push_back(&curlin); } else for (size_t i=1; iread(i)); } {Stack->push(new multiguide(v)); return;} } #line 2979 "runtime.in" void newCycleToken(stack *Stack) { #line 2980 "runtime.in" {Stack->push(cycleToken()); return;} } #line 2984 "runtime.in" // guide* operator cast(cycleToken tok); void gen_runtime226(stack *Stack) { cycleToken tok=vm::pop(Stack); #line 2985 "runtime.in" // Avoid unused variable warning messages. unused(&tok); {Stack->push(new cycletokguide()); return;} } #line 2991 "runtime.in" // guide* operator spec(pair z, Int p); void gen_runtime227(stack *Stack) { Int p=vm::pop(Stack); pair z=vm::pop(Stack); #line 2992 "runtime.in" camp::side d=(camp::side) p; camp::dirSpec *sp=new camp::dirSpec(z); {Stack->push(new specguide(sp,d)); return;} } #line 2999 "runtime.in" // curlSpecifier operator curl(real gamma, Int p); void gen_runtime228(stack *Stack) { Int p=vm::pop(Stack); real gamma=vm::pop(Stack); #line 3000 "runtime.in" camp::side s=(camp::side) p; {Stack->push(curlSpecifier(gamma,s)); return;} } #line 3005 "runtime.in" void curlSpecifierValuePart(stack *Stack) { curlSpecifier spec=vm::pop(Stack); #line 3006 "runtime.in" {Stack->push(spec.getValue()); return;} } #line 3010 "runtime.in" void curlSpecifierSidePart(stack *Stack) { curlSpecifier spec=vm::pop(Stack); #line 3011 "runtime.in" {Stack->push(spec.getSide()); return;} } #line 3015 "runtime.in" // guide* operator cast(curlSpecifier spec); void gen_runtime231(stack *Stack) { curlSpecifier spec=vm::pop(Stack); #line 3016 "runtime.in" {Stack->push(new specguide(spec)); return;} } #line 3020 "runtime.in" // tensionSpecifier operator tension(real tout, real tin, bool atleast); void gen_runtime232(stack *Stack) { bool atleast=vm::pop(Stack); real tin=vm::pop(Stack); real tout=vm::pop(Stack); #line 3021 "runtime.in" {Stack->push(tensionSpecifier(tout, tin, atleast)); return;} } #line 3025 "runtime.in" void tensionSpecifierOutPart(stack *Stack) { tensionSpecifier t=vm::pop(Stack); #line 3026 "runtime.in" {Stack->push(t.getOut()); return;} } #line 3030 "runtime.in" void tensionSpecifierInPart(stack *Stack) { tensionSpecifier t=vm::pop(Stack); #line 3031 "runtime.in" {Stack->push(t.getIn()); return;} } #line 3035 "runtime.in" void tensionSpecifierAtleastPart(stack *Stack) { tensionSpecifier t=vm::pop(Stack); #line 3036 "runtime.in" {Stack->push(t.getAtleast()); return;} } #line 3040 "runtime.in" // guide* operator cast(tensionSpecifier t); void gen_runtime236(stack *Stack) { tensionSpecifier t=vm::pop(Stack); #line 3041 "runtime.in" {Stack->push(new tensionguide(t)); return;} } #line 3045 "runtime.in" // guide* operator controls(pair zout, pair zin); void gen_runtime237(stack *Stack) { pair zin=vm::pop(Stack); pair zout=vm::pop(Stack); #line 3046 "runtime.in" {Stack->push(new controlguide(zout, zin)); return;} } #line 3050 "runtime.in" // Int size(guide *g); void gen_runtime238(stack *Stack) { guide * g=vm::pop(Stack); #line 3051 "runtime.in" flatguide f; g->flatten(f,false); {Stack->push(f.size()); return;} } #line 3057 "runtime.in" // Int length(guide *g); void gen_runtime239(stack *Stack) { guide * g=vm::pop(Stack); #line 3058 "runtime.in" flatguide f; g->flatten(f,false); {Stack->push(g->cyclic() ? f.size() : f.size()-1); return;} } #line 3064 "runtime.in" // bool cyclic(guide *g); void gen_runtime240(stack *Stack) { guide * g=vm::pop(Stack); #line 3065 "runtime.in" flatguide f; g->flatten(f,false); {Stack->push(g->cyclic()); return;} } #line 3071 "runtime.in" // pair point(guide *g, Int t); void gen_runtime241(stack *Stack) { Int t=vm::pop(Stack); guide * g=vm::pop(Stack); #line 3072 "runtime.in" flatguide f; g->flatten(f,false); {Stack->push(f.Nodes(adjustedIndex(t,f.size(),g->cyclic())).z); return;} } #line 3078 "runtime.in" // pairarray* dirSpecifier(guide *g, Int t); void gen_runtime242(stack *Stack) { Int t=vm::pop(Stack); guide * g=vm::pop(Stack); #line 3079 "runtime.in" flatguide f; g->flatten(f,false); Int n=f.size(); if(!g->cyclic() && (t < 0 || t >= n-1)) {Stack->push(new array(0)); return;} array *c=new array(2); (*c)[0]=f.Nodes(t).out->dir(); (*c)[1]=f.Nodes(t+1).in->dir(); {Stack->push(c); return;} } #line 3090 "runtime.in" // pairarray* controlSpecifier(guide *g, Int t); void gen_runtime243(stack *Stack) { Int t=vm::pop(Stack); guide * g=vm::pop(Stack); #line 3091 "runtime.in" flatguide f; g->flatten(f,false); Int n=f.size(); if(!g->cyclic() && (t < 0 || t >= n-1)) {Stack->push(new array(0)); return;} knot curr=f.Nodes(t); knot next=f.Nodes(t+1); if(curr.out->controlled()) { assert(next.in->controlled()); array *c=new array(2); (*c)[0]=curr.out->control(); (*c)[1]=next.in->control(); {Stack->push(c); return;} } else {Stack->push(new array(0)); return;} } #line 3107 "runtime.in" // tensionSpecifier tensionSpecifier(guide *g, Int t); void gen_runtime244(stack *Stack) { Int t=vm::pop(Stack); guide * g=vm::pop(Stack); #line 3108 "runtime.in" flatguide f; g->flatten(f,false); Int n=f.size(); if(!g->cyclic() && (t < 0 || t >= n-1)) {Stack->push(tensionSpecifier(1.0,1.0,false)); return;} knot curr=f.Nodes(t); {Stack->push(tensionSpecifier(curr.tout.val,f.Nodes(t+1).tin.val,curr.tout.atleast)); return;} } #line 3117 "runtime.in" // realarray* curlSpecifier(guide *g, Int t); void gen_runtime245(stack *Stack) { Int t=vm::pop(Stack); guide * g=vm::pop(Stack); #line 3118 "runtime.in" flatguide f; g->flatten(f,false); Int n=f.size(); if(!g->cyclic() && (t < 0 || t >= n-1)) {Stack->push(new array(0)); return;} array *c=new array(2); real c0=f.Nodes(t).out->curl(); real c1=f.Nodes(t+1).in->curl(); (*c)[0]=c0 >= 0.0 ? c0 : 1.0; (*c)[1]=c1 >= 0.0 ? c1 : 1.0; {Stack->push(c); return;} } #line 3131 "runtime.in" // guide* reverse(guide *g); void gen_runtime246(stack *Stack) { guide * g=vm::pop(Stack); #line 3132 "runtime.in" flatguide f; g->flatten(f,false); if(f.precyclic()) {Stack->push(new pathguide(g->solve().reverse())); return;} size_t n=f.size(); bool cyclic=g->cyclic(); guidevector v; if(n >= 0) { size_t start=cyclic ? n : n-1; knot curr=f.Nodes(start); knot next; for(size_t i=start; i > 0; --i) { next=f.Nodes(i-1); v.push_back(new pairguide(curr.z)); if(next.out->controlled()) { assert(curr.in->controlled()); v.push_back(new controlguide(curr.in->control(),next.out->control())); } else { pair d=curr.in->dir(); if(d != zero) v.push_back(new specguide(new dirSpec(-d),camp::OUT)); else { real C=curr.in->curl(); if(C >= 0.0) v.push_back(new specguide(new curlSpec(C),camp::OUT)); } real tout=curr.tin.val; real tin=next.tout.val; bool atleast=next.tout.atleast; if(tout != 1.0 || tin != 1.0 || next.tout.atleast) v.push_back(new tensionguide(tensionSpecifier(tout,tin,atleast))); d=next.out->dir(); if(d != zero) v.push_back(new specguide(new dirSpec(-d),camp::IN)); else { real C=next.out->curl(); if(C >= 0.0) v.push_back(new specguide(new curlSpec(C),camp::IN)); } } curr=next; } if(cyclic) v.push_back(new cycletokguide()); else v.push_back(new pairguide(next.z)); } {Stack->push(new multiguide(v)); return;} } // Three-dimensional picture and surface operations #line 3187 "runtime.in" // void _draw(picture *f, path3 g, pen p); void gen_runtime247(stack *Stack) { pen p=vm::pop(Stack); path3 g=vm::pop(Stack); picture * f=vm::pop(Stack); #line 3188 "runtime.in" if(g.size() > 0) f->append(new drawPath3(g,p)); } #line 3194 "runtime.in" // void draw(picture *f, triplearray2 *g, bool straight, penarray *p, real opacity, real shininess, real PRCshininess, real granularity, triple normal, bool lighton, penarray *colors); void gen_runtime248(stack *Stack) { penarray * colors=vm::pop(Stack); bool lighton=vm::pop(Stack); triple normal=vm::pop(Stack); real granularity=vm::pop(Stack); real PRCshininess=vm::pop(Stack); real shininess=vm::pop(Stack); real opacity=vm::pop(Stack); penarray * p=vm::pop(Stack); bool straight=vm::pop(Stack); triplearray2 * g=vm::pop(Stack); picture * f=vm::pop(Stack); #line 3197 "runtime.in" f->append(new drawSurface(*g,straight,*p,opacity,shininess,PRCshininess, granularity,normal,lighton,*colors)); } #line 3202 "runtime.in" // triple min3(picture *f); void gen_runtime249(stack *Stack) { picture * f=vm::pop(Stack); #line 3203 "runtime.in" {Stack->push(f->bounds3().Min()); return;} } #line 3207 "runtime.in" // triple max3(picture *f); void gen_runtime250(stack *Stack) { picture * f=vm::pop(Stack); #line 3208 "runtime.in" {Stack->push(f->bounds3().Max()); return;} } #line 3212 "runtime.in" // pair minratio(picture *f); void gen_runtime251(stack *Stack) { picture * f=vm::pop(Stack); #line 3213 "runtime.in" {Stack->push(f->ratio(::min)); return;} } #line 3217 "runtime.in" // pair maxratio(picture *f); void gen_runtime252(stack *Stack) { picture * f=vm::pop(Stack); #line 3218 "runtime.in" {Stack->push(f->ratio(::max)); return;} } #line 3222 "runtime.in" // triple minbezier(triplearray2 *P, triple b); void gen_runtime253(stack *Stack) { triple b=vm::pop(Stack); triplearray2 * P=vm::pop(Stack); #line 3223 "runtime.in" real *A=copyTripleArray2Components(P,true,4); b=triple(bound(A,::min,b.getx(),sqrtFuzz*norm(A,16)), bound(A+16,::min,b.gety(),sqrtFuzz*norm(A+16,16)), bound(A+32,::min,b.getz(),sqrtFuzz*norm(A+32,16))); delete[] A; {Stack->push(b); return;} } #line 3232 "runtime.in" // triple maxbezier(triplearray2 *P, triple b); void gen_runtime254(stack *Stack) { triple b=vm::pop(Stack); triplearray2 * P=vm::pop(Stack); #line 3233 "runtime.in" real *A=copyTripleArray2Components(P,true,4); b=triple(bound(A,::max,b.getx(),sqrtFuzz*norm(A,16)), bound(A+16,::max,b.gety(),sqrtFuzz*norm(A+16,16)), bound(A+32,::max,b.getz(),sqrtFuzz*norm(A+32,16))); delete[] A; {Stack->push(b); return;} } #line 3242 "runtime.in" // pair minratio(triplearray2 *P, pair b); void gen_runtime255(stack *Stack) { pair b=vm::pop(Stack); triplearray2 * P=vm::pop(Stack); #line 3243 "runtime.in" triple *A=copyTripleArray2C(P,true,4); real fuzz=sqrtFuzz*norm(A,16); b=pair(bound(A,::min,xratio,b.getx(),fuzz), bound(A,::min,yratio,b.gety(),fuzz)); delete[] A; {Stack->push(b); return;} } #line 3252 "runtime.in" // pair maxratio(triplearray2 *P, pair b); void gen_runtime256(stack *Stack) { pair b=vm::pop(Stack); triplearray2 * P=vm::pop(Stack); #line 3253 "runtime.in" triple *A=copyTripleArray2C(P,true,4); real fuzz=sqrtFuzz*norm(A,16); b=pair(bound(A,::max,xratio,b.getx(),fuzz), bound(A,::max,yratio,b.gety(),fuzz)); delete[] A; {Stack->push(b); return;} } #line 3262 "runtime.in" // pair minratio(path3 g); void gen_runtime257(stack *Stack) { path3 g=vm::pop(Stack); #line 3263 "runtime.in" {Stack->push(g.ratio(::min)); return;} } #line 3267 "runtime.in" // pair maxratio(path3 g); void gen_runtime258(stack *Stack) { path3 g=vm::pop(Stack); #line 3268 "runtime.in" {Stack->push(g.ratio(::max)); return;} } #line 3272 "runtime.in" // real norm(realarray *a); void gen_runtime259(stack *Stack) { realarray * a=vm::pop(Stack); #line 3273 "runtime.in" size_t n=checkArray(a); real M=0.0; for(size_t i=0; i < n; ++i) { real x=fabs(vm::read(a,i)); if(x > M) M=x; } {Stack->push(M); return;} } #line 3283 "runtime.in" // real norm(realarray2 *a); void gen_runtime260(stack *Stack) { realarray2 * a=vm::pop(Stack); #line 3284 "runtime.in" size_t n=checkArray(a); real M=0.0; for(size_t i=0; i < n; ++i) { vm::array *ai=vm::read(a,i); size_t m=checkArray(ai); for(size_t j=0; j < m; ++j) { real a=fabs(vm::read(ai,j)); if(a > M) M=a; } } {Stack->push(M); return;} } #line 3298 "runtime.in" // real norm(triplearray2 *a); void gen_runtime261(stack *Stack) { triplearray2 * a=vm::pop(Stack); #line 3299 "runtime.in" size_t n=checkArray(a); real M=0.0; for(size_t i=0; i < n; ++i) { vm::array *ai=vm::read(a,i); size_t m=checkArray(ai); for(size_t j=0; j < m; ++j) { real a=vm::read(ai,j).abs2(); if(a > M) M=a; } } {Stack->push(sqrt(M)); return;} } #line 3313 "runtime.in" // real change2(triplearray2 *a); void gen_runtime262(stack *Stack) { triplearray2 * a=vm::pop(Stack); #line 3314 "runtime.in" size_t n=checkArray(a); if(n == 0) {Stack->push(0.0); return;} vm::array *a0=vm::read(a,0); size_t m=checkArray(a0); if(m == 0) {Stack->push(0.0); return;} triple a00=vm::read(a0,0); real M=0.0; for(size_t i=0; i < n; ++i) { vm::array *ai=vm::read(a,i); size_t m=checkArray(ai); for(size_t j=0; j < m; ++j) { real a=(vm::read(ai,j)-a00).abs2(); if(a > M) M=a; } } {Stack->push(M); return;} } #line 3335 "runtime.in" // bool is3D(picture *f); void gen_runtime263(stack *Stack) { picture * f=vm::pop(Stack); #line 3336 "runtime.in" {Stack->push(f->have3D()); return;} } #line 3340 "runtime.in" // pair bezier(pair a, pair b, pair c, pair d, real t); void gen_runtime264(stack *Stack) { real t=vm::pop(Stack); pair d=vm::pop(Stack); pair c=vm::pop(Stack); pair b=vm::pop(Stack); pair a=vm::pop(Stack); #line 3341 "runtime.in" real onemt=1-t; real onemt2=onemt*onemt; {Stack->push(onemt2*onemt*a+t*(3.0*(onemt2*b+t*onemt*c)+t*t*d)); return;} } #line 3347 "runtime.in" // pair bezierP(pair a, pair b, pair c, pair d, real t); void gen_runtime265(stack *Stack) { real t=vm::pop(Stack); pair d=vm::pop(Stack); pair c=vm::pop(Stack); pair b=vm::pop(Stack); pair a=vm::pop(Stack); #line 3348 "runtime.in" {Stack->push(3.0*(t*t*(d-a+3.0*(b-c))+t*(2.0*(a+c)-4.0*b)+b-a)); return;} } #line 3352 "runtime.in" // pair bezierPP(pair a, pair b, pair c, pair d, real t); void gen_runtime266(stack *Stack) { real t=vm::pop(Stack); pair d=vm::pop(Stack); pair c=vm::pop(Stack); pair b=vm::pop(Stack); pair a=vm::pop(Stack); #line 3353 "runtime.in" {Stack->push(6.0*(t*(d-a+3.0*(b-c))+a+c-2.0*b)); return;} } #line 3357 "runtime.in" // pair bezierPPP(pair a, pair b, pair c, pair d); void gen_runtime267(stack *Stack) { pair d=vm::pop(Stack); pair c=vm::pop(Stack); pair b=vm::pop(Stack); pair a=vm::pop(Stack); #line 3358 "runtime.in" {Stack->push(6.0*(d-a+3.0*(b-c))); return;} } #line 3362 "runtime.in" // triple bezier(triple a, triple b, triple c, triple d, real t); void gen_runtime268(stack *Stack) { real t=vm::pop(Stack); triple d=vm::pop(Stack); triple c=vm::pop(Stack); triple b=vm::pop(Stack); triple a=vm::pop(Stack); #line 3363 "runtime.in" real onemt=1-t; real onemt2=onemt*onemt; {Stack->push(onemt2*onemt*a+t*(3.0*(onemt2*b+t*onemt*c)+t*t*d)); return;} } #line 3369 "runtime.in" // triple bezierP(triple a, triple b, triple c, triple d, real t); void gen_runtime269(stack *Stack) { real t=vm::pop(Stack); triple d=vm::pop(Stack); triple c=vm::pop(Stack); triple b=vm::pop(Stack); triple a=vm::pop(Stack); #line 3370 "runtime.in" {Stack->push(3.0*(t*t*(d-a+3.0*(b-c))+t*(2.0*(a+c)-4.0*b)+b-a)); return;} } #line 3374 "runtime.in" // triple bezierPP(triple a, triple b, triple c, triple d, real t); void gen_runtime270(stack *Stack) { real t=vm::pop(Stack); triple d=vm::pop(Stack); triple c=vm::pop(Stack); triple b=vm::pop(Stack); triple a=vm::pop(Stack); #line 3375 "runtime.in" {Stack->push(6.0*(t*(d-a+3.0*(b-c))+a+c-2.0*b)); return;} } #line 3379 "runtime.in" // triple bezierPPP(triple a, triple b, triple c, triple d); void gen_runtime271(stack *Stack) { triple d=vm::pop(Stack); triple c=vm::pop(Stack); triple b=vm::pop(Stack); triple a=vm::pop(Stack); #line 3380 "runtime.in" {Stack->push(6.0*(d-a+3.0*(b-c))); return;} } // String operations #line 3386 "runtime.in" void emptyString(stack *Stack) { #line 3387 "runtime.in" {Stack->push(emptystring); return;} } #line 3392 "runtime.in" // Int length(string *s); void gen_runtime273(stack *Stack) { string * s=vm::pop(Stack); #line 3393 "runtime.in" {Stack->push((Int) s->length()); return;} } #line 3397 "runtime.in" // Int find(string *s, string t, Int pos=0); void gen_runtime274(stack *Stack) { Int pos=vm::pop(Stack,0); string t=vm::pop(Stack); string * s=vm::pop(Stack); #line 3398 "runtime.in" size_t n=s->find(t,pos); {Stack->push(n == string::npos ? (Int) -1 : (Int) n); return;} } #line 3403 "runtime.in" // Int rfind(string *s, string t, Int pos=-1); void gen_runtime275(stack *Stack) { Int pos=vm::pop(Stack,-1); string t=vm::pop(Stack); string * s=vm::pop(Stack); #line 3404 "runtime.in" size_t n=s->rfind(t,pos); {Stack->push(n == string::npos ? (Int) -1 : (Int) n); return;} } #line 3409 "runtime.in" // string reverse(string s); void gen_runtime276(stack *Stack) { string s=vm::pop(Stack); #line 3410 "runtime.in" reverse(s.begin(),s.end()); {Stack->push(s); return;} } #line 3415 "runtime.in" // string insert(string s, Int pos, string t); void gen_runtime277(stack *Stack) { string t=vm::pop(Stack); Int pos=vm::pop(Stack); string s=vm::pop(Stack); #line 3416 "runtime.in" if ((size_t) pos < s.length()) {Stack->push(s.insert(pos,t)); return;} {Stack->push(s); return;} } #line 3422 "runtime.in" // string substr(string* s, Int pos, Int n=-1); void gen_runtime278(stack *Stack) { Int n=vm::pop(Stack,-1); Int pos=vm::pop(Stack); string* s=vm::pop(Stack); #line 3423 "runtime.in" if ((size_t) pos < s->length()) {Stack->push(s->substr(pos,n)); return;} {Stack->push(emptystring); return;} } #line 3429 "runtime.in" // string erase(string s, Int pos, Int n); void gen_runtime279(stack *Stack) { Int n=vm::pop(Stack); Int pos=vm::pop(Stack); string s=vm::pop(Stack); #line 3430 "runtime.in" if ((size_t) pos < s.length()) {Stack->push(s.erase(pos,n)); return;} {Stack->push(s); return;} } #line 3436 "runtime.in" // string downcase(string s); void gen_runtime280(stack *Stack) { string s=vm::pop(Stack); #line 3437 "runtime.in" std::transform(s.begin(),s.end(),s.begin(),tolower); {Stack->push(s); return;} } #line 3442 "runtime.in" // string upcase(string s); void gen_runtime281(stack *Stack) { string s=vm::pop(Stack); #line 3443 "runtime.in" std::transform(s.begin(),s.end(),s.begin(),toupper); {Stack->push(s); return;} } // returns a string constructed by translating all occurrences of the string // from in an array of string pairs {from,to} to the string to in string s. #line 3450 "runtime.in" // string replace(string *S, stringarray2 *translate); void gen_runtime282(stack *Stack) { stringarray2 * translate=vm::pop(Stack); string * S=vm::pop(Stack); #line 3451 "runtime.in" size_t size=checkArray(translate); for(size_t i=0; i < size; i++) { array *a=read(translate,i); checkArray(a); } const char *p=S->c_str(); ostringstream buf; while(*p) { for(size_t i=0; i < size;) { array *a=read(translate,i); string* from=read(a,0); size_t len=from->length(); if(strncmp(p,from->c_str(),len) != 0) {i++; continue;} buf << read(a,1); p += len; if(*p == 0) {Stack->push(buf.str()); return;} i=0; } buf << *(p++); } {Stack->push(buf.str()); return;} } #line 3475 "runtime.in" // string format(string *format, Int x); void gen_runtime283(stack *Stack) { Int x=vm::pop(Stack); string * format=vm::pop(Stack); #line 3476 "runtime.in" const char *f=format->c_str(); checkformat(f,true); Int size=snprintf(NULL,0,f,x)+1; if(size < 1) size=255; // Workaround for non-C99 compliant systems. char *buf=new char[size]; snprintf(buf,size,f,x); string s=string(buf); delete[] buf; {Stack->push(s); return;} } #line 3490 "runtime.in" // string format(string *format, real x, string locale=emptystring); void gen_runtime284(stack *Stack) { string locale=vm::pop(Stack,emptystring); real x=vm::pop(Stack); string * format=vm::pop(Stack); #line 3491 "runtime.in" bool tex=getSetting("tex") != "none"; bool texify=false; ostringstream out; checkformat(format->c_str(),false); const char *phantom="\\phantom{+}"; const char *p0=format->c_str(); const char *p=p0; const char *start=NULL; char prev=0; while(*p != 0) { char curr=*p; if(tex && curr == '$' && prev != '\\') texify=true; prev=curr; if(curr == '%') { p++; if(*p != '%') {start=p-1; break;} } out << *(p++); } if(!start) {Stack->push(out.str()); return;} // Allow at most 1 argument while(*p != 0) { if(*p == '*' || *p == '$') {Stack->push(out.str()); return;} if(isupper(*p) || islower(*p)) {p++; break;} p++; } const char *tail=p; string f=format->substr(start-p0,tail-start); const char *oldlocale=NULL; if(!locale.empty()) { oldlocale=setlocale(LC_ALL,NULL); if(oldlocale) oldlocale=StrdupNoGC(oldlocale); setlocale(LC_ALL,locale.c_str()); } Int size=snprintf(NULL,0,f.c_str(),x)+1; if(size < 1) size=255; // Workaround for non-C99 compliant systems. char *buf=new char[size]; snprintf(buf,size,f.c_str(),x); if(oldlocale) { setlocale(LC_ALL,oldlocale); delete[] oldlocale; } bool trailingzero=f.find("#") < string::npos; bool plus=f.find("+") < string::npos; bool space=f.find(" ") < string::npos; char *q=buf; // beginning of formatted number if(*q == ' ') { out << phantom; q++; } const char decimal=*(localeconv()->decimal_point); // Remove any spurious sign if(*q == '-' || *q == '+') { p=q+1; bool zero=true; while(*p != 0) { if(!isdigit(*p) && *p != decimal) break; if(isdigit(*p) && *p != '0') {zero=false; break;} p++; } if(zero) { q++; if(plus || space) out << phantom; } } const char *r=p=q; bool dp=false; while(*r != 0 && (isdigit(*r) || *r == decimal || *r == '+' || *r == '-')) { if(*r == decimal) dp=true; r++; } if(dp) { // Remove trailing zeros and/or decimal point r--; unsigned n=0; while(r > q && *r == '0') {r--; n++;} if(*r == decimal) {r--; n++;} while(q <= r) out << *(q++); if(!trailingzero) q += n; } bool zero=(r == p && *r == '0') && !trailingzero; // Translate "E+/E-/e+/e-" exponential notation to TeX while(*q != 0) { if(texify && (*q == 'E' || *q == 'e') && (*(q+1) == '+' || *(q+1) == '-')) { if(!zero) out << "\\!\\times\\!10^{"; bool plus=(*(q+1) == '+'); q++; if(plus) q++; if(*q == '-') out << *(q++); while(*q == '0' && (zero || isdigit(*(q+1)))) q++; while(isdigit(*q)) out << *(q++); if(!zero) out << "}"; break; } out << *(q++); } while(*tail != 0) out << *(tail++); delete[] buf; {Stack->push(out.str()); return;} } #line 3615 "runtime.in" // Int hex(string s); void gen_runtime285(stack *Stack) { string s=vm::pop(Stack); #line 3616 "runtime.in" istringstream is(s); is.setf(std::ios::hex,std::ios::basefield); Int value; if(is && is >> value && ((is >> std::ws).eof())) {Stack->push(value); return;} ostringstream buf; buf << "invalid hexidecimal cast from string \"" << s << "\""; error(buf); } #line 3626 "runtime.in" // string string(Int x); void gen_runtime286(stack *Stack) { Int x=vm::pop(Stack); #line 3627 "runtime.in" ostringstream buf; buf << x; {Stack->push(buf.str()); return;} } #line 3633 "runtime.in" // string string(real x, Int digits=DBL_DIG); void gen_runtime287(stack *Stack) { Int digits=vm::pop(Stack,DBL_DIG); real x=vm::pop(Stack); #line 3634 "runtime.in" ostringstream buf; buf.precision(digits); buf << x; {Stack->push(buf.str()); return;} } #line 3641 "runtime.in" // string time(string format=defaulttimeformat); void gen_runtime288(stack *Stack) { string format=vm::pop(Stack,defaulttimeformat); #line 3642 "runtime.in" #ifdef HAVE_STRFTIME const time_t bintime=time(NULL); if(!strftime(Time,nTime,format.c_str(),localtime(&bintime))) {Stack->push(""); return;} {Stack->push(Time); return;} #else {Stack->push(format); return;} #endif } #line 3652 "runtime.in" // string time(Int seconds, string format=defaulttimeformat); void gen_runtime289(stack *Stack) { string format=vm::pop(Stack,defaulttimeformat); Int seconds=vm::pop(Stack); #line 3653 "runtime.in" #ifdef HAVE_STRFTIME const time_t bintime=seconds; if(!strftime(Time,nTime,format.c_str(),localtime(&bintime))) {Stack->push(""); return;} {Stack->push(Time); return;} #else // Avoid unused variable warning messages unused(&seconds); {Stack->push(format); return;} #endif } #line 3665 "runtime.in" // Int seconds(string t=emptystring, string format=emptystring); void gen_runtime290(stack *Stack) { string format=vm::pop(Stack,emptystring); string t=vm::pop(Stack,emptystring); #line 3666 "runtime.in" #if defined(HAVE_STRPTIME) const time_t bintime=time(NULL); tm tm=*localtime(&bintime); if(t != "" && !strptime(t.c_str(),format.c_str(),&tm)) {Stack->push(-1); return;} {Stack->push((Int) mktime(&tm)); return;} #else {Stack->push(-1); return;} #endif } #line 3677 "runtime.in" // realarray* _cputime(); void gen_runtime291(stack *Stack) { #line 3678 "runtime.in" static const real ticktime=1.0/sysconf(_SC_CLK_TCK); struct tms buf; ::times(&buf); array *t=new array(4); (*t)[0] = ((real) buf.tms_utime)*ticktime; (*t)[1] = ((real) buf.tms_stime)*ticktime; (*t)[2] = ((real) buf.tms_cutime)*ticktime; (*t)[3] = ((real) buf.tms_cstime)*ticktime; {Stack->push(t); return;} } // Math #line 3693 "runtime.in" // real ^(real x, Int y); void gen_runtime292(stack *Stack) { Int y=vm::pop(Stack); real x=vm::pop(Stack); #line 3694 "runtime.in" {Stack->push(pow(x,y)); return;} } #line 3699 "runtime.in" // pair ^(pair z, Int y); void gen_runtime293(stack *Stack) { Int y=vm::pop(Stack); pair z=vm::pop(Stack); #line 3700 "runtime.in" {Stack->push(pow(z,y)); return;} } #line 3704 "runtime.in" // Int quotient(Int x, Int y); void gen_runtime294(stack *Stack) { Int y=vm::pop(Stack); Int x=vm::pop(Stack); #line 3705 "runtime.in" if(y == 0) dividebyzero(); if(y == -1) {Stack->push(Negate(x)); return;} // Implementation-independent definition of integer division: round down {Stack->push((x-portableMod(x,y))/y); return;} } #line 3712 "runtime.in" // Int abs(Int x); void gen_runtime295(stack *Stack) { Int x=vm::pop(Stack); #line 3713 "runtime.in" {Stack->push(Abs(x)); return;} } #line 3717 "runtime.in" // Int sgn(real x); void gen_runtime296(stack *Stack) { real x=vm::pop(Stack); #line 3718 "runtime.in" {Stack->push(sgn(x)); return;} } #line 3722 "runtime.in" // Int rand(); void gen_runtime297(stack *Stack) { #line 3723 "runtime.in" {Stack->push(rand()); return;} } #line 3727 "runtime.in" // void srand(Int seed); void gen_runtime298(stack *Stack) { Int seed=vm::pop(Stack); #line 3728 "runtime.in" srand(intcast(seed)); } // a random number uniformly distributed in the interval [0,1] #line 3733 "runtime.in" // real unitrand(); void gen_runtime299(stack *Stack) { #line 3734 "runtime.in" {Stack->push(((real) rand())/RAND_MAX); return;} } #line 3738 "runtime.in" // Int ceil(real x); void gen_runtime300(stack *Stack) { real x=vm::pop(Stack); #line 3739 "runtime.in" {Stack->push(Intcast(ceil(x))); return;} } #line 3743 "runtime.in" // Int floor(real x); void gen_runtime301(stack *Stack) { real x=vm::pop(Stack); #line 3744 "runtime.in" {Stack->push(Intcast(floor(x))); return;} } #line 3748 "runtime.in" // Int round(real x); void gen_runtime302(stack *Stack) { real x=vm::pop(Stack); #line 3749 "runtime.in" if(validInt(x)) {Stack->push(Round(x)); return;} integeroverflow(0); } #line 3754 "runtime.in" // Int Ceil(real x); void gen_runtime303(stack *Stack) { real x=vm::pop(Stack); #line 3755 "runtime.in" {Stack->push(Ceil(x)); return;} } #line 3759 "runtime.in" // Int Floor(real x); void gen_runtime304(stack *Stack) { real x=vm::pop(Stack); #line 3760 "runtime.in" {Stack->push(Floor(x)); return;} } #line 3764 "runtime.in" // Int Round(real x); void gen_runtime305(stack *Stack) { real x=vm::pop(Stack); #line 3765 "runtime.in" {Stack->push(Round(Intcap(x))); return;} } #line 3769 "runtime.in" // real fmod(real x, real y); void gen_runtime306(stack *Stack) { real y=vm::pop(Stack); real x=vm::pop(Stack); #line 3770 "runtime.in" if (y == 0.0) dividebyzero(); {Stack->push(fmod(x,y)); return;} } #line 3775 "runtime.in" // real atan2(real y, real x); void gen_runtime307(stack *Stack) { real x=vm::pop(Stack); real y=vm::pop(Stack); #line 3776 "runtime.in" {Stack->push(atan2(y,x)); return;} } #line 3780 "runtime.in" // real hypot(real x, real y); void gen_runtime308(stack *Stack) { real y=vm::pop(Stack); real x=vm::pop(Stack); #line 3781 "runtime.in" {Stack->push(hypot(x,y)); return;} } #line 3785 "runtime.in" // real remainder(real x, real y); void gen_runtime309(stack *Stack) { real y=vm::pop(Stack); real x=vm::pop(Stack); #line 3786 "runtime.in" {Stack->push(remainder(x,y)); return;} } #line 3790 "runtime.in" // real J(Int n, real x); void gen_runtime310(stack *Stack) { real x=vm::pop(Stack); Int n=vm::pop(Stack); #line 3791 "runtime.in" {Stack->push(jn(n,x)); return;} } #line 3795 "runtime.in" // real Y(Int n, real x); void gen_runtime311(stack *Stack) { real x=vm::pop(Stack); Int n=vm::pop(Stack); #line 3796 "runtime.in" {Stack->push(yn(n,x)); return;} } #line 3800 "runtime.in" // real erf(real x); void gen_runtime312(stack *Stack) { real x=vm::pop(Stack); #line 3801 "runtime.in" {Stack->push(erf(x)); return;} } #line 3805 "runtime.in" // real erfc(real x); void gen_runtime313(stack *Stack) { real x=vm::pop(Stack); #line 3806 "runtime.in" {Stack->push(erfc(x)); return;} } #line 3810 "runtime.in" // Int factorial(Int n); void gen_runtime314(stack *Stack) { Int n=vm::pop(Stack); #line 3811 "runtime.in" if(n < 0) error(invalidargument); {Stack->push(factorial(n)); return;} } #line 3815 "runtime.in" // Int choose(Int n, Int k); void gen_runtime315(stack *Stack) { Int k=vm::pop(Stack); Int n=vm::pop(Stack); #line 3816 "runtime.in" if(n < 0 || k < 0 || k > n) error(invalidargument); Int f=1; Int r=n-k; for(Int i=n; i > r; --i) { if(f > Int_MAX/i) integeroverflow(0); f=(f*i)/(n-i+1); } {Stack->push(f); return;} } #line 3826 "runtime.in" // real gamma(real x); void gen_runtime316(stack *Stack) { real x=vm::pop(Stack); #line 3827 "runtime.in" #ifdef HAVE_TGAMMA {Stack->push(tgamma(x)); return;} #else real lg = lgamma(x); {Stack->push(signgam*exp(lg)); return;} #endif } // Complex Gamma function #line 3837 "runtime.in" // pair gamma(explicit pair z); void gen_runtime317(stack *Stack) { pair z=vm::pop(Stack); #line 3838 "runtime.in" {Stack->push(gamma(z)); return;} } #line 3842 "runtime.in" // realarray* quadraticroots(real a, real b, real c); void gen_runtime318(stack *Stack) { real c=vm::pop(Stack); real b=vm::pop(Stack); real a=vm::pop(Stack); #line 3843 "runtime.in" quadraticroots q(a,b,c); array *roots=new array(q.roots); if(q.roots >= 1) (*roots)[0]=q.t1; if(q.roots == 2) (*roots)[1]=q.t2; {Stack->push(roots); return;} } #line 3851 "runtime.in" // pairarray* quadraticroots(explicit pair a, explicit pair b, explicit pair c); void gen_runtime319(stack *Stack) { pair c=vm::pop(Stack); pair b=vm::pop(Stack); pair a=vm::pop(Stack); #line 3852 "runtime.in" Quadraticroots q(a,b,c); array *roots=new array(q.roots); if(q.roots >= 1) (*roots)[0]=q.z1; if(q.roots == 2) (*roots)[1]=q.z2; {Stack->push(roots); return;} } #line 3860 "runtime.in" // realarray* cubicroots(real a, real b, real c, real d); void gen_runtime320(stack *Stack) { real d=vm::pop(Stack); real c=vm::pop(Stack); real b=vm::pop(Stack); real a=vm::pop(Stack); #line 3861 "runtime.in" cubicroots q(a,b,c,d); array *roots=new array(q.roots); if(q.roots >= 1) (*roots)[0]=q.t1; if(q.roots >= 2) (*roots)[1]=q.t2; if(q.roots == 3) (*roots)[2]=q.t3; {Stack->push(roots); return;} } // Transforms #line 3872 "runtime.in" // bool ==(transform a, transform b); void gen_runtime321(stack *Stack) { transform b=vm::pop(Stack); transform a=vm::pop(Stack); #line 3873 "runtime.in" {Stack->push(a == b); return;} } #line 3878 "runtime.in" // bool !=(transform a, transform b); void gen_runtime322(stack *Stack) { transform b=vm::pop(Stack); transform a=vm::pop(Stack); #line 3879 "runtime.in" {Stack->push(a != b); return;} } #line 3883 "runtime.in" // transform +(transform a, transform b); void gen_runtime323(stack *Stack) { transform b=vm::pop(Stack); transform a=vm::pop(Stack); #line 3884 "runtime.in" {Stack->push(a+b); return;} } #line 3888 "runtime.in" // transform *(transform a, transform b); void gen_runtime324(stack *Stack) { transform b=vm::pop(Stack); transform a=vm::pop(Stack); #line 3889 "runtime.in" {Stack->push(a*b); return;} } #line 3893 "runtime.in" // pair *(transform t, pair z); void gen_runtime325(stack *Stack) { pair z=vm::pop(Stack); transform t=vm::pop(Stack); #line 3894 "runtime.in" {Stack->push(t*z); return;} } #line 3898 "runtime.in" // path *(transform t, path g); void gen_runtime326(stack *Stack) { path g=vm::pop(Stack); transform t=vm::pop(Stack); #line 3899 "runtime.in" {Stack->push(transformed(t,g)); return;} } #line 3903 "runtime.in" // pen *(transform t, pen p); void gen_runtime327(stack *Stack) { pen p=vm::pop(Stack); transform t=vm::pop(Stack); #line 3904 "runtime.in" {Stack->push(transformed(t,p)); return;} } #line 3908 "runtime.in" // picture* *(transform t, picture *f); void gen_runtime328(stack *Stack) { picture * f=vm::pop(Stack); transform t=vm::pop(Stack); #line 3909 "runtime.in" {Stack->push(transformed(t,f)); return;} } #line 3913 "runtime.in" // picture* *(realarray2 *t, picture *f); void gen_runtime329(stack *Stack) { picture * f=vm::pop(Stack); realarray2 * t=vm::pop(Stack); #line 3914 "runtime.in" {Stack->push(transformed(*t,f)); return;} } #line 3918 "runtime.in" // transform ^(transform t, Int n); void gen_runtime330(stack *Stack) { Int n=vm::pop(Stack); transform t=vm::pop(Stack); #line 3919 "runtime.in" transform T; if(n < 0) { n=-n; t=inverse(t); } for(Int i=0; i < n; i++) T=T*t; {Stack->push(T); return;} } #line 3929 "runtime.in" void transformXPart(stack *Stack) { transform t=vm::pop(Stack); #line 3930 "runtime.in" {Stack->push(t.getx()); return;} } #line 3934 "runtime.in" void transformYPart(stack *Stack) { transform t=vm::pop(Stack); #line 3935 "runtime.in" {Stack->push(t.gety()); return;} } #line 3939 "runtime.in" void transformXXPart(stack *Stack) { transform t=vm::pop(Stack); #line 3940 "runtime.in" {Stack->push(t.getxx()); return;} } #line 3944 "runtime.in" void transformXYPart(stack *Stack) { transform t=vm::pop(Stack); #line 3945 "runtime.in" {Stack->push(t.getxy()); return;} } #line 3949 "runtime.in" void transformYXPart(stack *Stack) { transform t=vm::pop(Stack); #line 3950 "runtime.in" {Stack->push(t.getyx()); return;} } #line 3954 "runtime.in" void transformYYPart(stack *Stack) { transform t=vm::pop(Stack); #line 3955 "runtime.in" {Stack->push(t.getyy()); return;} } #line 3959 "runtime.in" void real6ToTransform(stack *Stack) { real yy=vm::pop(Stack); real yx=vm::pop(Stack); real xy=vm::pop(Stack); real xx=vm::pop(Stack); real y=vm::pop(Stack); real x=vm::pop(Stack); #line 3961 "runtime.in" {Stack->push(transform(x,y,xx,xy,yx,yy)); return;} } #line 3965 "runtime.in" // transform shift(transform t); void gen_runtime338(stack *Stack) { transform t=vm::pop(Stack); #line 3966 "runtime.in" {Stack->push(transform(t.getx(),t.gety(),0,0,0,0)); return;} } #line 3970 "runtime.in" // transform shiftless(transform t); void gen_runtime339(stack *Stack) { transform t=vm::pop(Stack); #line 3971 "runtime.in" {Stack->push(transform(0,0,t.getxx(),t.getxy(),t.getyx(),t.getyy())); return;} } #line 3975 "runtime.in" // transform identity(); void transformIdentity(stack *Stack) { #line 3976 "runtime.in" {Stack->push(identity); return;} } #line 3980 "runtime.in" // transform inverse(transform t); void gen_runtime341(stack *Stack) { transform t=vm::pop(Stack); #line 3981 "runtime.in" {Stack->push(inverse(t)); return;} } #line 3985 "runtime.in" // transform shift(pair z); void gen_runtime342(stack *Stack) { pair z=vm::pop(Stack); #line 3986 "runtime.in" {Stack->push(shift(z)); return;} } #line 3990 "runtime.in" // transform shift(real x, real y); void gen_runtime343(stack *Stack) { real y=vm::pop(Stack); real x=vm::pop(Stack); #line 3991 "runtime.in" {Stack->push(shift(pair(x,y))); return;} } #line 3995 "runtime.in" // transform xscale(real x); void gen_runtime344(stack *Stack) { real x=vm::pop(Stack); #line 3996 "runtime.in" {Stack->push(xscale(x)); return;} } #line 4000 "runtime.in" // transform yscale(real y); void gen_runtime345(stack *Stack) { real y=vm::pop(Stack); #line 4001 "runtime.in" {Stack->push(yscale(y)); return;} } #line 4005 "runtime.in" // transform scale(real x); void gen_runtime346(stack *Stack) { real x=vm::pop(Stack); #line 4006 "runtime.in" {Stack->push(scale(x)); return;} } #line 4010 "runtime.in" // transform scale(real x, real y); void gen_runtime347(stack *Stack) { real y=vm::pop(Stack); real x=vm::pop(Stack); #line 4011 "runtime.in" {Stack->push(xscale(x)*yscale(y)); return;} } #line 4015 "runtime.in" // transform slant(real s); void gen_runtime348(stack *Stack) { real s=vm::pop(Stack); #line 4016 "runtime.in" {Stack->push(slant(s)); return;} } #line 4020 "runtime.in" // transform rotate(real angle, pair z=0); void gen_runtime349(stack *Stack) { pair z=vm::pop(Stack,0); real angle=vm::pop(Stack); #line 4021 "runtime.in" {Stack->push(rotatearound(z,radians(angle))); return;} } #line 4025 "runtime.in" // transform reflect(pair a, pair b); void gen_runtime350(stack *Stack) { pair b=vm::pop(Stack); pair a=vm::pop(Stack); #line 4026 "runtime.in" {Stack->push(reflectabout(a,b)); return;} } // Pair operations #line 4032 "runtime.in" void pairZero(stack *Stack) { #line 4033 "runtime.in" {Stack->push(zero); return;} } #line 4038 "runtime.in" void realRealToPair(stack *Stack) { real y=vm::pop(Stack); real x=vm::pop(Stack); #line 4039 "runtime.in" {Stack->push(pair(x,y)); return;} } #line 4043 "runtime.in" void pairNegate(stack *Stack) { pair z=vm::pop(Stack); #line 4044 "runtime.in" {Stack->push(-z); return;} } #line 4048 "runtime.in" // real xpart(pair z); void pairXPart(stack *Stack) { pair z=vm::pop(Stack); #line 4049 "runtime.in" {Stack->push(z.getx()); return;} } #line 4053 "runtime.in" // real ypart(pair z); void pairYPart(stack *Stack) { pair z=vm::pop(Stack); #line 4054 "runtime.in" {Stack->push(z.gety()); return;} } #line 4058 "runtime.in" // real length(pair z); void gen_runtime356(stack *Stack) { pair z=vm::pop(Stack); #line 4059 "runtime.in" {Stack->push(z.length()); return;} } #line 4063 "runtime.in" // real abs(pair z); void gen_runtime357(stack *Stack) { pair z=vm::pop(Stack); #line 4064 "runtime.in" {Stack->push(z.length()); return;} } #line 4068 "runtime.in" // pair sqrt(explicit pair z); void gen_runtime358(stack *Stack) { pair z=vm::pop(Stack); #line 4069 "runtime.in" {Stack->push(Sqrt(z)); return;} } // Return the angle of z in radians. #line 4074 "runtime.in" // real angle(pair z, bool warn=true); void gen_runtime359(stack *Stack) { bool warn=vm::pop(Stack,true); pair z=vm::pop(Stack); #line 4075 "runtime.in" if(!warn && z.getx() == 0.0 && z.gety() == 0.0) {Stack->push(0.0); return;} {Stack->push(z.angle()); return;} } // Return the angle of z in degrees in the interval [0,360). #line 4081 "runtime.in" // real degrees(pair z, bool warn=true); void gen_runtime360(stack *Stack) { bool warn=vm::pop(Stack,true); pair z=vm::pop(Stack); #line 4082 "runtime.in" if(!warn && z.getx() == 0.0 && z.gety() == 0.0) {Stack->push(0.0); return;} {Stack->push(principalBranch(degrees(z.angle()))); return;} } // Convert degrees to radians. #line 4088 "runtime.in" // real radians(real degrees); void gen_runtime361(stack *Stack) { real degrees=vm::pop(Stack); #line 4089 "runtime.in" {Stack->push(radians(degrees)); return;} } // Convert radians to degrees. #line 4094 "runtime.in" // real degrees(real radians); void gen_runtime362(stack *Stack) { real radians=vm::pop(Stack); #line 4095 "runtime.in" {Stack->push(degrees(radians)); return;} } // Convert radians to degrees in [0,360). #line 4100 "runtime.in" // real Degrees(real radians); void gen_runtime363(stack *Stack) { real radians=vm::pop(Stack); #line 4101 "runtime.in" {Stack->push(principalBranch(degrees(radians))); return;} } #line 4105 "runtime.in" // real Sin(real deg); void gen_runtime364(stack *Stack) { real deg=vm::pop(Stack); #line 4106 "runtime.in" {Stack->push(sin(radians(deg))); return;} } #line 4110 "runtime.in" // real Cos(real deg); void gen_runtime365(stack *Stack) { real deg=vm::pop(Stack); #line 4111 "runtime.in" {Stack->push(cos(radians(deg))); return;} } #line 4115 "runtime.in" // real Tan(real deg); void gen_runtime366(stack *Stack) { real deg=vm::pop(Stack); #line 4116 "runtime.in" {Stack->push(tan(radians(deg))); return;} } #line 4120 "runtime.in" // real aSin(real x); void gen_runtime367(stack *Stack) { real x=vm::pop(Stack); #line 4121 "runtime.in" {Stack->push(degrees(asin(x))); return;} } #line 4125 "runtime.in" // real aCos(real x); void gen_runtime368(stack *Stack) { real x=vm::pop(Stack); #line 4126 "runtime.in" {Stack->push(degrees(acos(x))); return;} } #line 4130 "runtime.in" // real aTan(real x); void gen_runtime369(stack *Stack) { real x=vm::pop(Stack); #line 4131 "runtime.in" {Stack->push(degrees(atan(x))); return;} } #line 4135 "runtime.in" // pair unit(pair z); void gen_runtime370(stack *Stack) { pair z=vm::pop(Stack); #line 4136 "runtime.in" {Stack->push(unit(z)); return;} } #line 4140 "runtime.in" // pair dir(real degrees); void gen_runtime371(stack *Stack) { real degrees=vm::pop(Stack); #line 4141 "runtime.in" {Stack->push(expi(radians(degrees))); return;} } #line 4145 "runtime.in" // pair dir(explicit pair z); void gen_runtime372(stack *Stack) { pair z=vm::pop(Stack); #line 4146 "runtime.in" {Stack->push(unit(z)); return;} } #line 4150 "runtime.in" // pair expi(real angle); void gen_runtime373(stack *Stack) { real angle=vm::pop(Stack); #line 4151 "runtime.in" {Stack->push(expi(angle)); return;} } #line 4155 "runtime.in" // pair exp(explicit pair z); void gen_runtime374(stack *Stack) { pair z=vm::pop(Stack); #line 4156 "runtime.in" {Stack->push(exp(z)); return;} } #line 4160 "runtime.in" // pair log(explicit pair z); void gen_runtime375(stack *Stack) { pair z=vm::pop(Stack); #line 4161 "runtime.in" {Stack->push(pair(log(z.length()),z.angle())); return;} } #line 4165 "runtime.in" // pair sin(explicit pair z); void gen_runtime376(stack *Stack) { pair z=vm::pop(Stack); #line 4166 "runtime.in" {Stack->push(sin(z)); return;} } #line 4170 "runtime.in" // pair cos(explicit pair z); void gen_runtime377(stack *Stack) { pair z=vm::pop(Stack); #line 4171 "runtime.in" {Stack->push(pair(cos(z.getx())*cosh(z.gety()),-sin(z.getx())*sinh(z.gety()))); return;} } #line 4175 "runtime.in" // pair conj(pair z); void gen_runtime378(stack *Stack) { pair z=vm::pop(Stack); #line 4176 "runtime.in" {Stack->push(conj(z)); return;} } #line 4180 "runtime.in" // pair realmult(pair z, pair w); void gen_runtime379(stack *Stack) { pair w=vm::pop(Stack); pair z=vm::pop(Stack); #line 4181 "runtime.in" {Stack->push(pair (z.getx()*w.getx(),z.gety()*w.gety())); return;} } #line 4185 "runtime.in" // triple realmult(triple u, triple v); void gen_runtime380(stack *Stack) { triple v=vm::pop(Stack); triple u=vm::pop(Stack); #line 4186 "runtime.in" {Stack->push(triple (u.getx()*v.getx(),u.gety()*v.gety(),u.getz()*v.getz())); return;} } // To avoid confusion, a dot product requires explicit pair arguments. #line 4191 "runtime.in" // real dot(explicit pair z, explicit pair w); void gen_runtime381(stack *Stack) { pair w=vm::pop(Stack); pair z=vm::pop(Stack); #line 4192 "runtime.in" {Stack->push(dot(z,w)); return;} } // Triple operations #line 4198 "runtime.in" void tripleZero(stack *Stack) { #line 4199 "runtime.in" static triple zero; {Stack->push(zero); return;} } #line 4205 "runtime.in" void realRealRealToTriple(stack *Stack) { real z=vm::pop(Stack); real y=vm::pop(Stack); real x=vm::pop(Stack); #line 4206 "runtime.in" {Stack->push(triple(x,y,z)); return;} } #line 4210 "runtime.in" // real xpart(triple v); void tripleXPart(stack *Stack) { triple v=vm::pop(Stack); #line 4211 "runtime.in" {Stack->push(v.getx()); return;} } #line 4215 "runtime.in" // real ypart(triple v); void tripleYPart(stack *Stack) { triple v=vm::pop(Stack); #line 4216 "runtime.in" {Stack->push(v.gety()); return;} } #line 4220 "runtime.in" // real zpart(triple v); void tripleZPart(stack *Stack) { triple v=vm::pop(Stack); #line 4221 "runtime.in" {Stack->push(v.getz()); return;} } #line 4225 "runtime.in" // triple *(real x, triple v); void gen_runtime387(stack *Stack) { triple v=vm::pop(Stack); real x=vm::pop(Stack); #line 4226 "runtime.in" {Stack->push(x*v); return;} } #line 4230 "runtime.in" // triple *(triple v, real x); void gen_runtime388(stack *Stack) { real x=vm::pop(Stack); triple v=vm::pop(Stack); #line 4231 "runtime.in" {Stack->push(v*x); return;} } #line 4235 "runtime.in" // triple /(triple v, real x); void gen_runtime389(stack *Stack) { real x=vm::pop(Stack); triple v=vm::pop(Stack); #line 4236 "runtime.in" {Stack->push(v/x); return;} } #line 4240 "runtime.in" // real length(triple v); void gen_runtime390(stack *Stack) { triple v=vm::pop(Stack); #line 4241 "runtime.in" {Stack->push(v.length()); return;} } #line 4245 "runtime.in" // real abs(triple v); void gen_runtime391(stack *Stack) { triple v=vm::pop(Stack); #line 4246 "runtime.in" {Stack->push(v.length()); return;} } #line 4250 "runtime.in" // real polar(triple v, bool warn=true); void gen_runtime392(stack *Stack) { bool warn=vm::pop(Stack,true); triple v=vm::pop(Stack); #line 4251 "runtime.in" if(!warn && v.getx() == 0.0 && v.gety() == 0.0 && v.getz() == 0.0) {Stack->push(0.0); return;} {Stack->push(v.polar()); return;} } #line 4256 "runtime.in" // real azimuth(triple v, bool warn=true); void gen_runtime393(stack *Stack) { bool warn=vm::pop(Stack,true); triple v=vm::pop(Stack); #line 4257 "runtime.in" if(!warn && v.getx() == 0.0 && v.gety() == 0.0) {Stack->push(0.0); return;} {Stack->push(v.azimuth()); return;} } #line 4262 "runtime.in" // real colatitude(triple v, bool warn=true); void gen_runtime394(stack *Stack) { bool warn=vm::pop(Stack,true); triple v=vm::pop(Stack); #line 4263 "runtime.in" if(!warn && v.getx() == 0.0 && v.gety() == 0.0 && v.getz() == 0.0) {Stack->push(0.0); return;} {Stack->push(degrees(v.polar())); return;} } #line 4268 "runtime.in" // real latitude(triple v, bool warn=true); void gen_runtime395(stack *Stack) { bool warn=vm::pop(Stack,true); triple v=vm::pop(Stack); #line 4269 "runtime.in" if(!warn && v.getx() == 0.0 && v.gety() == 0.0 && v.getz() == 0.0) {Stack->push(0.0); return;} {Stack->push(90.0-degrees(v.polar())); return;} } // Return the longitude of v in [0,360). #line 4275 "runtime.in" // real longitude(triple v, bool warn=true); void gen_runtime396(stack *Stack) { bool warn=vm::pop(Stack,true); triple v=vm::pop(Stack); #line 4276 "runtime.in" if(!warn && v.getx() == 0.0 && v.gety() == 0.0) {Stack->push(0.0); return;} {Stack->push(principalBranch(degrees(v.azimuth()))); return;} } #line 4281 "runtime.in" // triple unit(triple v); void gen_runtime397(stack *Stack) { triple v=vm::pop(Stack); #line 4282 "runtime.in" {Stack->push(unit(v)); return;} } #line 4286 "runtime.in" // real dot(triple u, triple v); void gen_runtime398(stack *Stack) { triple v=vm::pop(Stack); triple u=vm::pop(Stack); #line 4287 "runtime.in" {Stack->push(dot(u,v)); return;} } #line 4291 "runtime.in" // triple cross(triple u, triple v); void gen_runtime399(stack *Stack) { triple v=vm::pop(Stack); triple u=vm::pop(Stack); #line 4292 "runtime.in" {Stack->push(cross(u,v)); return;} } #line 4296 "runtime.in" // triple dir(explicit triple z); void gen_runtime400(stack *Stack) { triple z=vm::pop(Stack); #line 4297 "runtime.in" {Stack->push(unit(z)); return;} } #line 4301 "runtime.in" // triple expi(real polar, real azimuth); void gen_runtime401(stack *Stack) { real azimuth=vm::pop(Stack); real polar=vm::pop(Stack); #line 4302 "runtime.in" {Stack->push(expi(polar,azimuth)); return;} } #line 4306 "runtime.in" // triple dir(real colatitude, real longitude); void gen_runtime402(stack *Stack) { real longitude=vm::pop(Stack); real colatitude=vm::pop(Stack); #line 4307 "runtime.in" {Stack->push(expi(radians(colatitude),radians(longitude))); return;} } // System routines #line 4313 "runtime.in" // void atupdate(callable *f); void gen_runtime403(stack *Stack) { callable * f=vm::pop(Stack); #line 4314 "runtime.in" processData().atUpdateFunction=f; } #line 4319 "runtime.in" // callable* atupdate(); void gen_runtime404(stack *Stack) { #line 4320 "runtime.in" {Stack->push(processData().atUpdateFunction); return;} } #line 4324 "runtime.in" // void atexit(callable *f); void gen_runtime405(stack *Stack) { callable * f=vm::pop(Stack); #line 4325 "runtime.in" processData().atExitFunction=f; } #line 4329 "runtime.in" // callable* atexit(); void gen_runtime406(stack *Stack) { #line 4330 "runtime.in" {Stack->push(processData().atExitFunction); return;} } #line 4334 "runtime.in" // void atbreakpoint(callableBp *f); void gen_runtime407(stack *Stack) { callableBp * f=vm::pop(Stack); #line 4335 "runtime.in" processData().atBreakpointFunction=f; } #line 4339 "runtime.in" // void breakpoint(runnable *s=NULL); void gen_runtime408(stack *Stack) { runnable * s=vm::pop(Stack,NULL); #line 4340 "runtime.in" breakpoint(Stack,s); } #line 4344 "runtime.in" // string locatefile(string file); void gen_runtime409(stack *Stack) { string file=vm::pop(Stack); #line 4345 "runtime.in" {Stack->push(locateFile(file)); return;} } #line 4349 "runtime.in" // void stop(string file, Int line, runnable *s=NULL); void gen_runtime410(stack *Stack) { runnable * s=vm::pop(Stack,NULL); Int line=vm::pop(Stack); string file=vm::pop(Stack); #line 4350 "runtime.in" file=locateFile(file); clear(file,line); cout << "setting breakpoint at " << file << ": " << line << endl; bplist.push_back(bpinfo(file,line,s)); } #line 4357 "runtime.in" // void breakpoints(); void gen_runtime411(stack *) { #line 4358 "runtime.in" for(mem::list::iterator p=bplist.begin(); p != bplist.end(); ++p) cout << p->f.name() << ": " << p->f.line() << endl; } #line 4363 "runtime.in" // void clear(string file, Int line); void gen_runtime412(stack *Stack) { Int line=vm::pop(Stack); string file=vm::pop(Stack); #line 4364 "runtime.in" file=locateFile(file); clear(file,line,true); } #line 4369 "runtime.in" // void clear(); void gen_runtime413(stack *) { #line 4370 "runtime.in" bplist.clear(); } #line 4374 "runtime.in" // void warn(string s); void gen_runtime414(stack *Stack) { string s=vm::pop(Stack); #line 4375 "runtime.in" Warn(s); } #line 4379 "runtime.in" // void nowarn(string s); void gen_runtime415(stack *Stack) { string s=vm::pop(Stack); #line 4380 "runtime.in" noWarn(s); } #line 4384 "runtime.in" // void warning(string s, string t, bool position=false); void gen_runtime416(stack *Stack) { bool position=vm::pop(Stack,false); string t=vm::pop(Stack); string s=vm::pop(Stack); #line 4385 "runtime.in" if(settings::warn(s)) { em.warning(position ? getPos() : nullPos,s); em << t; } } // Strip directory from string #line 4393 "runtime.in" // string stripdirectory(string *s); void gen_runtime417(stack *Stack) { string * s=vm::pop(Stack); #line 4394 "runtime.in" {Stack->push(stripDir(*s)); return;} } // Strip directory from string #line 4399 "runtime.in" // string stripfile(string *s); void gen_runtime418(stack *Stack) { string * s=vm::pop(Stack); #line 4400 "runtime.in" {Stack->push(stripFile(*s)); return;} } // Strip file extension from string #line 4405 "runtime.in" // string stripextension(string *s); void gen_runtime419(stack *Stack) { string * s=vm::pop(Stack); #line 4406 "runtime.in" {Stack->push(stripExt(*s)); return;} } // Call ImageMagick convert. #line 4411 "runtime.in" // Int convert(string args=emptystring, string file=emptystring, string format=emptystring); void gen_runtime420(stack *Stack) { string format=vm::pop(Stack,emptystring); string file=vm::pop(Stack,emptystring); string args=vm::pop(Stack,emptystring); #line 4413 "runtime.in" string name=convertname(file,format); mem::vector cmd; cmd.push_back(getSetting("convert")); push_split(cmd,args); cmd.push_back(name); bool quiet=verbose <= 1; Int ret=System(cmd,quiet ? 1 : 0,true,"convert", "your ImageMagick convert utility"); if(ret == 0 && verbose > 0) cout << "Wrote " << ((file.empty()) ? name : file) << endl; {Stack->push(ret); return;} } // Call ImageMagick animate. #line 4430 "runtime.in" // Int animate(string args=emptystring, string file=emptystring, string format=emptystring); void gen_runtime421(stack *Stack) { string format=vm::pop(Stack,emptystring); string file=vm::pop(Stack,emptystring); string args=vm::pop(Stack,emptystring); #line 4432 "runtime.in" #ifndef __CYGWIN__ string name=convertname(file,format,false); if(view()) { mem::vector cmd; cmd.push_back(getSetting("animate")); push_split(cmd,args); cmd.push_back(name); {Stack->push(System(cmd,0,false,"animate","your animated GIF viewer")); return;} } #endif {Stack->push(0); return;} } // Delete file named s. #line 4447 "runtime.in" // Int delete(string *s); void gen_runtime422(stack *Stack) { string * s=vm::pop(Stack); #line 4448 "runtime.in" checkLocal(*s); Int rc=unlink(s->c_str()); if(rc == 0 && verbose > 0) cout << "Deleted " << *s << endl; {Stack->push(rc); return;} } // Rename file "from" to file "to". #line 4457 "runtime.in" // Int rename(string *from, string *to); void gen_runtime423(stack *Stack) { string * to=vm::pop(Stack); string * from=vm::pop(Stack); #line 4458 "runtime.in" checkLocal(*from); checkLocal(*to); Int rc=rename(from->c_str(),to->c_str()); if(rc == 0 && verbose > 0) cout << "Renamed " << *from << " to " << *to << endl; {Stack->push(rc); return;} } // Array operations // Create an empty array. #line 4471 "runtime.in" void emptyArray(stack *Stack) { #line 4472 "runtime.in" {Stack->push(new array(0)); return;} } // Create a new array (technically a vector). // This array will be multidimensional. First the number of dimensions // is popped off the stack, followed by each dimension in reverse order. // The array itself is technically a one dimensional array of one // dimension arrays and so on. #line 4481 "runtime.in" void newDeepArray(stack *Stack) { Int depth=vm::pop(Stack); #line 4482 "runtime.in" assert(depth > 0); Int *dims = new Int[depth]; for (Int index = depth-1; index >= 0; index--) { Int i=pop(Stack); if(i < 0) error("cannot create a negative length array"); dims[index]=i; } array *a=deepArray(depth, dims); delete[] dims; {Stack->push(a); return;} } // Creates an array with elements already specified. First, the number // of elements is popped off the stack, followed by each element in // reverse order. #line 4501 "runtime.in" void newInitializedArray(stack *Stack) { Int n=vm::pop(Stack); #line 4502 "runtime.in" assert(n >= 0); array *a = new array(n); for (Int index = n-1; index >= 0; index--) (*a)[index] = pop(Stack); {Stack->push(a); return;} } // Similar to newInitializedArray, but after the n elements, append another // array to it. #line 4515 "runtime.in" void newAppendedArray(stack *Stack) { Int n=vm::pop(Stack); array* tail=vm::pop(Stack); #line 4516 "runtime.in" assert(n >= 0); array *a = new array(n); for (Int index = n-1; index >= 0; index--) (*a)[index] = pop(Stack); copy(tail->begin(), tail->end(), back_inserter(*a)); {Stack->push(a); return;} } // The function T[] array(int n, T value, int depth=0) produces a array of n // copies of x, where each copy is copied up to depth. #line 4531 "runtime.in" void newDuplicateArray(stack *Stack) { Int depth=vm::pop(Stack,Int_MAX); item value=vm::pop(Stack); Int n=vm::pop(Stack); #line 4532 "runtime.in" if(n < 0) error("cannot create a negative length array"); if(depth < 0) error("cannot copy to a negative depth"); {Stack->push(new array(n, value, depth)); return;} } // Read an element from an array. Checks for initialization & bounds. #line 4540 "runtime.in" void arrayRead(stack *Stack) { Int n=vm::pop(Stack); array * a=vm::pop(Stack); #line 4541 "runtime.in" item& i=arrayRead(a,n); if (i.empty()) { ostringstream buf; buf << "read uninitialized value from array at index " << n; error(buf); } {Stack->push(i); return;} } // Slice a substring from an array. #line 4552 "runtime.in" void arraySliceRead(stack *Stack) { Int right=vm::pop(Stack); Int left=vm::pop(Stack); array * a=vm::pop(Stack); #line 4553 "runtime.in" checkArray(a); {Stack->push(a->slice(left, right)); return;} } // Slice a substring from an array. This implements the cases a[i:] and a[:] // where the endpoint is not given, and assumed to be the length of the array. #line 4560 "runtime.in" void arraySliceReadToEnd(stack *Stack) { Int left=vm::pop(Stack); array * a=vm::pop(Stack); #line 4561 "runtime.in" size_t len=checkArray(a); {Stack->push(a->slice(left, (Int)len)); return;} } // Read an element from an array of arrays. Check bounds and initialize // as necessary. #line 4568 "runtime.in" void arrayArrayRead(stack *Stack) { Int n=vm::pop(Stack); array * a=vm::pop(Stack); #line 4569 "runtime.in" item& i=arrayRead(a,n); if (i.empty()) i=new array(0); {Stack->push(i); return;} } // Write an element to an array. Increase size if necessary. #line 4576 "runtime.in" void arrayWrite(stack *Stack) { Int n=vm::pop(Stack); array * a=vm::pop(Stack); item value=vm::pop(Stack); #line 4577 "runtime.in" size_t len=checkArray(a); bool cyclic=a->cyclic(); if(cyclic && len > 0) n=imod(n,len); else { if(cyclic) outOfBounds("writing cyclic",len,n); if(n < 0) outOfBounds("writing",len,n); if(len <= (size_t) n) a->resize(n+1); } (*a)[n] = value; {Stack->push(value); return;} } #line 4591 "runtime.in" void arraySliceWrite(stack *Stack) { Int right=vm::pop(Stack); Int left=vm::pop(Stack); array * dest=vm::pop(Stack); array * src=vm::pop(Stack); #line 4592 "runtime.in" checkArray(src); checkArray(dest); dest->setSlice(left, right, src); {Stack->push(src); return;} } #line 4599 "runtime.in" void arraySliceWriteToEnd(stack *Stack) { Int left=vm::pop(Stack); array * dest=vm::pop(Stack); array * src=vm::pop(Stack); #line 4600 "runtime.in" checkArray(src); size_t len=checkArray(dest); dest->setSlice(left, (Int) len, src); {Stack->push(src); return;} } // Returns the length of an array. #line 4608 "runtime.in" void arrayLength(stack *Stack) { array * a=vm::pop(Stack); #line 4609 "runtime.in" {Stack->push((Int) checkArray(a)); return;} } // Returns an array of integers representing the keys of the array. #line 4614 "runtime.in" void arrayKeys(stack *Stack) { array * a=vm::pop(Stack); #line 4615 "runtime.in" size_t size=checkArray(a); array *keys=new array(); for (size_t i=0; ipush((Int)i); } {Stack->push(keys); return;} } // Return the cyclic flag for an array. #line 4629 "runtime.in" void arrayCyclicFlag(stack *Stack) { array * a=vm::pop(Stack); #line 4630 "runtime.in" checkArray(a); {Stack->push(a->cyclic()); return;} } #line 4635 "runtime.in" void arraySetCyclicFlag(stack *Stack) { array * a=vm::pop(Stack); bool b=vm::pop(Stack); #line 4636 "runtime.in" checkArray(a); a->cyclic(b); {Stack->push(b); return;} } // Check to see if an array element is initialized. #line 4643 "runtime.in" void arrayInitializedHelper(stack *Stack) { array * a=vm::pop(Stack); Int n=vm::pop(Stack); #line 4644 "runtime.in" size_t len=checkArray(a); bool cyclic=a->cyclic(); if(cyclic && len > 0) n=imod(n,len); else if(n < 0 || n >= (Int) len) {Stack->push(false); return;} item&i=(*a)[(unsigned) n]; {Stack->push(!i.empty()); return;} } // Returns the initialize method for an array. #line 4654 "runtime.in" void arrayInitialized(stack *Stack) { array * a=vm::pop(Stack); #line 4655 "runtime.in" {Stack->push(new thunk(new bfunc(arrayInitializedHelper),a)); return;} } // The helper function for the cyclic method that sets the cyclic flag. #line 4660 "runtime.in" void arrayCyclicHelper(stack *Stack) { array * a=vm::pop(Stack); bool b=vm::pop(Stack); #line 4661 "runtime.in" checkArray(a); a->cyclic(b); } // Set the cyclic flag for an array. #line 4667 "runtime.in" void arrayCyclic(stack *Stack) { array * a=vm::pop(Stack); #line 4668 "runtime.in" {Stack->push(new thunk(new bfunc(arrayCyclicHelper),a)); return;} } // The helper function for the push method that does the actual operation. #line 4673 "runtime.in" void arrayPushHelper(stack *Stack) { array * a=vm::pop(Stack); item x=vm::pop(Stack); #line 4674 "runtime.in" checkArray(a); a->push(x); {Stack->push(x); return;} } // Returns the push method for an array. #line 4681 "runtime.in" void arrayPush(stack *Stack) { array * a=vm::pop(Stack); #line 4682 "runtime.in" {Stack->push(new thunk(new bfunc(arrayPushHelper),a)); return;} } // The helper function for the append method that appends b to a. #line 4687 "runtime.in" void arrayAppendHelper(stack *Stack) { array * a=vm::pop(Stack); array * b=vm::pop(Stack); #line 4688 "runtime.in" checkArray(a); size_t size=checkArray(b); for(size_t i=0; i < size; i++) a->push((*b)[i]); } // Returns the append method for an array. #line 4696 "runtime.in" void arrayAppend(stack *Stack) { array * a=vm::pop(Stack); #line 4697 "runtime.in" {Stack->push(new thunk(new bfunc(arrayAppendHelper),a)); return;} } // The helper function for the pop method. #line 4702 "runtime.in" void arrayPopHelper(stack *Stack) { array * a=vm::pop(Stack); #line 4703 "runtime.in" size_t asize=checkArray(a); if(asize == 0) error("cannot pop element from empty array"); {Stack->push(a->pop()); return;} } // Returns the pop method for an array. #line 4711 "runtime.in" void arrayPop(stack *Stack) { array * a=vm::pop(Stack); #line 4712 "runtime.in" {Stack->push(new thunk(new bfunc(arrayPopHelper),a)); return;} } // The helper function for the insert method. #line 4717 "runtime.in" void arrayInsertHelper(stack *Stack) { array * a=vm::pop(Stack); array * x=vm::pop(Stack); Int i=vm::pop(Stack); #line 4718 "runtime.in" size_t asize=checkArray(a); checkArray(x); if(a->cyclic() && asize > 0) i=imod(i,asize); if(i < 0 || i > (Int) asize) outOfBounds("inserting",asize,i); (*a).insert((*a).begin()+i,(*x).begin(),(*x).end()); } // Returns the insert method for an array. #line 4728 "runtime.in" void arrayInsert(stack *Stack) { array * a=vm::pop(Stack); #line 4729 "runtime.in" {Stack->push(new thunk(new bfunc(arrayInsertHelper),a)); return;} } // Returns the delete method for an array. #line 4734 "runtime.in" void arrayDelete(stack *Stack) { array * a=vm::pop(Stack); #line 4735 "runtime.in" {Stack->push(new thunk(new bfunc(arrayDeleteHelper),a)); return;} } #line 4739 "runtime.in" void arrayAlias(stack *Stack) { array * b=vm::pop(Stack); array * a=vm::pop(Stack); #line 4740 "runtime.in" {Stack->push(a==b); return;} } // Return array formed by indexing array a with elements of integer array b #line 4745 "runtime.in" void arrayIntArray(stack *Stack) { array * b=vm::pop(Stack); array * a=vm::pop(Stack); #line 4746 "runtime.in" size_t asize=checkArray(a); size_t bsize=checkArray(b); array *r=new array(bsize); bool cyclic=a->cyclic(); for(size_t i=0; i < bsize; i++) { Int index=read(b,i); if(cyclic && asize > 0) index=imod(index,asize); else if(index < 0 || index >= (Int) asize) outOfBounds("reading",asize,index); (*r)[i]=(*a)[index]; } {Stack->push(r); return;} } // returns the complement of the integer array a in {0,2,...,n-1}, // so that b[complement(a,b.length)] yields the complement of b[a]. #line 4764 "runtime.in" // Intarray* complement(Intarray *a, Int n); void gen_runtime455(stack *Stack) { Int n=vm::pop(Stack); Intarray * a=vm::pop(Stack); #line 4765 "runtime.in" size_t asize=checkArray(a); array *r=new array(0); bool *keep=new bool[n]; for(Int i=0; i < n; ++i) keep[i]=true; for(size_t i=0; i < asize; ++i) { Int j=read(a,i); if(j >= 0 && j < n) keep[j]=false; } for(Int i=0; i < n; i++) if(keep[i]) r->push(i); delete[] keep; {Stack->push(r); return;} } // Generate the sequence {f(i) : i=0,1,...n-1} given a function f and integer n #line 4782 "runtime.in" void arraySequence(stack *Stack) { Int n=vm::pop(Stack); callable * f=vm::pop(Stack); #line 4783 "runtime.in" if(n < 0) n=0; array *a=new array(n); for(Int i=0; i < n; ++i) { Stack->push(i); f->call(Stack); (*a)[i]=pop(Stack); } {Stack->push(a); return;} } // Return the array {0,1,...n-1} #line 4795 "runtime.in" // Intarray* sequence(Int n); void gen_runtime457(stack *Stack) { Int n=vm::pop(Stack); #line 4796 "runtime.in" if(n < 0) n=0; array *a=new array(n); for(Int i=0; i < n; ++i) { (*a)[i]=i; } {Stack->push(a); return;} } // Apply a function to each element of an array #line 4806 "runtime.in" void arrayFunction(stack *Stack) { array * a=vm::pop(Stack); callable * f=vm::pop(Stack); #line 4807 "runtime.in" size_t size=checkArray(a); array *b=new array(size); for(size_t i=0; i < size; ++i) { Stack->push((*a)[i]); f->call(Stack); (*b)[i]=pop(Stack); } {Stack->push(b); return;} } #line 4818 "runtime.in" void arraySort(stack *Stack) { callable * f=vm::pop(Stack); array * a=vm::pop(Stack); #line 4819 "runtime.in" array *c=copyArray(a); compareFunc=f; FuncStack=Stack; stable_sort(c->begin(),c->end(),compareFunction); {Stack->push(c); return;} } #line 4827 "runtime.in" // bool all(boolarray *a); void gen_runtime460(stack *Stack) { boolarray * a=vm::pop(Stack); #line 4828 "runtime.in" size_t size=checkArray(a); bool c=true; for(size_t i=0; i < size; i++) if(!get((*a)[i])) {c=false; break;} {Stack->push(c); return;} } #line 4836 "runtime.in" // boolarray* !(boolarray* a); void gen_runtime461(stack *Stack) { boolarray* a=vm::pop(Stack); #line 4837 "runtime.in" size_t size=checkArray(a); array *c=new array(size); for(size_t i=0; i < size; i++) (*c)[i]=!read(a,i); {Stack->push(c); return;} } #line 4845 "runtime.in" // Int sum(boolarray *a); void gen_runtime462(stack *Stack) { boolarray * a=vm::pop(Stack); #line 4846 "runtime.in" size_t size=checkArray(a); Int sum=0; for(size_t i=0; i < size; i++) sum += read(a,i) ? 1 : 0; {Stack->push(sum); return;} } #line 4854 "runtime.in" void arrayCopy(stack *Stack) { array * a=vm::pop(Stack); #line 4855 "runtime.in" {Stack->push(copyArray(a)); return;} } #line 4859 "runtime.in" void arrayConcat(stack *Stack) { array * a=vm::pop(Stack); #line 4860 "runtime.in" // a is an array of arrays to be concatenated together. // The signature is // T[] concat(... T[][] a); size_t numArgs=checkArray(a); size_t resultSize=0; for (size_t i=0; i < numArgs; ++i) { resultSize += checkArray(a->read(i)); } array *result=new array(resultSize); size_t ri=0; for (size_t i=0; i < numArgs; ++i) { array *arg=a->read(i); size_t size=checkArray(arg); for (size_t j=0; j < size; ++j) { (*result)[ri]=(*arg)[j]; ++ri; } } {Stack->push(result); return;} } #line 4887 "runtime.in" void array2Copy(stack *Stack) { array * a=vm::pop(Stack); #line 4888 "runtime.in" {Stack->push(copyArray2(a)); return;} } #line 4892 "runtime.in" void array3Copy(stack *Stack) { array * a=vm::pop(Stack); #line 4893 "runtime.in" {Stack->push(copyArray3(a)); return;} } #line 4897 "runtime.in" void array2Transpose(stack *Stack) { array * a=vm::pop(Stack); #line 4898 "runtime.in" size_t asize=checkArray(a); array *c=new array(0); for(size_t i=0; i < asize; i++) { size_t ip=i+1; array *ai=read(a,i); size_t aisize=checkArray(ai); size_t csize=checkArray(c); if(csize < aisize) { c->resize(aisize); for(size_t j=csize; j < aisize; j++) { (*c)[j]=new array(ip); } } for(size_t j=0; j < aisize; j++) { array *cj=read(c,j); if(checkArray(cj) < ip) cj->resize(ip); (*cj)[i]=(*ai)[j]; } } {Stack->push(c); return;} } // a is a rectangular 3D array; perm is an Int array indicating the type of // permutation (021 or 120, etc; original is 012). // Transpose by sending respective members to the permutated locations: // return the array obtained by putting a[i][j][k] into position perm{ijk}. #line 4925 "runtime.in" void array3Transpose(stack *Stack) { array * perm=vm::pop(Stack); array * a=vm::pop(Stack); #line 4926 "runtime.in" const size_t DIM=3; if(checkArray(perm) != DIM) { ostringstream buf; buf << "permutation array must have length " << DIM; error(buf); } size_t* size=new size_t[DIM]; for(size_t i=0; i < DIM; ++i) size[i]=DIM; for(size_t i=0; i < DIM; ++i) { Int p=read(perm,i); size_t P=(size_t) p; if(p < 0 || P >= DIM) { ostringstream buf; buf << "permutation index out of range: " << p; error(buf); } size[P]=P; } for(size_t i=0; i < DIM; ++i) if(size[i] == DIM) error("permutation indices must be distinct"); static const char *rectangular= "3D transpose implemented for rectangular matrices only"; size_t isize=size[0]=checkArray(a); array *a0=read(a,0); size[1]=checkArray(a0); array *a00=read(a0,0); size[2]=checkArray(a00); for(size_t i=0; i < isize; i++) { array *ai=read(a,i); size_t jsize=checkArray(ai); if(jsize != size[1]) error(rectangular); for(size_t j=0; j < jsize; j++) { array *aij=read(ai,j); if(checkArray(aij) != size[2]) error(rectangular); } } size_t perm0=(size_t) read(perm,0); size_t perm1=(size_t) read(perm,1); size_t perm2=(size_t) read(perm,2); size_t sizep0=size[perm0]; size_t sizep1=size[perm1]; size_t sizep2=size[perm2]; array *c=new array(sizep0); for(size_t i=0; i < sizep0; ++i) { array *ci=new array(sizep1); (*c)[i]=ci; for(size_t j=0; j < sizep1; ++j) { array *cij=new array(sizep2); (*ci)[j]=cij; } } size_t* i=new size_t[DIM]; for(i[0]=0; i[0] < size[0]; ++i[0]) { array *a0=read(a,i[0]); for(i[1]=0; i[1] < size[1]; ++i[1]) { array *a1=read(a0,i[1]); for(i[2]=0; i[2] < size[2]; ++i[2]) { array *c0=read(c,i[perm0]); array *c1=read(c0,i[perm1]); (*c1)[i[perm2]]=read(a1,i[2]); } } } delete [] i; delete [] size; {Stack->push(c); return;} } // In a boolean array, find the index of the nth true value or -1 if not found // If n is negative, search backwards. #line 5010 "runtime.in" // Int find(boolarray *a, Int n=1); void gen_runtime469(stack *Stack) { Int n=vm::pop(Stack,1); boolarray * a=vm::pop(Stack); #line 5011 "runtime.in" size_t size=checkArray(a); Int j=-1; if(n > 0) for(size_t i=0; i < size; i++) if(read(a,i)) { n--; if(n == 0) {j=(Int) i; break;} } if(n < 0) for(size_t i=size; i > 0;) if(read(a,--i)) { n++; if(n == 0) {j=(Int) i; break;} } {Stack->push(j); return;} } // construct vector obtained by replacing those elements of b for which the // corresponding elements of a are false by the corresponding element of c. #line 5029 "runtime.in" void arrayConditional(stack *Stack) { array * c=vm::pop(Stack); array * b=vm::pop(Stack); array * a=vm::pop(Stack); #line 5030 "runtime.in" size_t size=checkArray(a); array *r=new array(size); if(b && c) { checkArrays(a,b); checkArrays(b,c); for(size_t i=0; i < size; i++) (*r)[i]=read(a,i) ? (*b)[i] : (*c)[i]; } else { r->clear(); if(b) { checkArrays(a,b); for(size_t i=0; i < size; i++) if(read(a,i)) r->push((*b)[i]); } else if(c) { checkArrays(a,c); for(size_t i=0; i < size; i++) if(!read(a,i)) r->push((*c)[i]); } } {Stack->push(r); return;} } // Return an n x n identity matrix. #line 5054 "runtime.in" // realarray2* identity(Int n); void gen_runtime471(stack *Stack) { Int n=vm::pop(Stack); #line 5055 "runtime.in" {Stack->push(Identity(n)); return;} } // Return the diagonal matrix with diagonal entries given by a. #line 5060 "runtime.in" void diagonal(stack *Stack) { realarray * a=vm::pop(Stack); #line 5061 "runtime.in" size_t n=checkArray(a); array *c=new array(n); for(size_t i=0; i < n; ++i) { array *ci=new array(n); (*c)[i]=ci; for(size_t j=0; j < i; ++j) (*ci)[j]=0.0; (*ci)[i]=read(a,i); for(size_t j=i+1; j < n; ++j) (*ci)[j]=0.0; } {Stack->push(c); return;} } // Return the inverse of an n x n matrix a using Gauss-Jordan elimination. #line 5077 "runtime.in" // realarray2* inverse(realarray2 *a); void gen_runtime473(stack *Stack) { realarray2 * a=vm::pop(Stack); #line 5078 "runtime.in" a=copyArray2(a); size_t n=checkArray(a); checkSquare(a); inverseAllocate(n); for(size_t i=0; i < n; i++) pivot[i]=0; size_t col=0, row=0; // This is the main loop over the columns to be reduced. for(size_t i=0; i < n; i++) { real big=0.0; // This is the outer loop of the search for a pivot element. for(size_t j=0; j < n; j++) { array *aj=read(a,j); if(pivot[j] != 1) { for(size_t k=0; k < n; k++) { if(pivot[k] == 0) { real temp=fabs(read(aj,k)); if(temp >= big) { big=temp; row=j; col=k; } } else if(pivot[k] > 1) { inverseDeallocate(); error(singular); } } } } ++(pivot[col]); // Interchange rows, if needed, to put the pivot element on the diagonal. array *acol=read(a,col); if(row != col) { array *arow=read(a,row); for(size_t l=0; l < n; l++) { real temp=read(arow,l); (*arow)[l]=read(acol,l); (*acol)[l]=temp; } } Row[i]=row; Col[i]=col; // Divide the pivot row by the pivot element. real denom=read(acol,col); if(denom == 0.0) { inverseDeallocate(); error(singular); } real pivinv=1.0/denom; (*acol)[col]=1.0; for(size_t l=0; l < n; l++) (*acol)[l]=read(acol,l)*pivinv; // Reduce all rows except for the pivoted one. for(size_t k=0; k < n; k++) { if(k != col) { array *ak=read(a,k); real akcol=read(ak,col); (*ak)[col]=0.0; for(size_t l=0; l < n; l++) (*ak)[l]=read(ak,l)-read(acol,l)*akcol; } } } // Unscramble the inverse matrix in view of the column interchanges. for(size_t l=n; l > 0;) { l--; size_t r=Row[l]; size_t c=Col[l]; if(r != c) { for(size_t k=0; k < n; k++) { array *ak=read(a,k); real temp=read(ak,r); (*ak)[r]=read(ak,c); (*ak)[c]=temp; } } } inverseDeallocate(); {Stack->push(a); return;} } // Solve the linear equation ax=b by LU decomposition, returning the // solution x, where a is an n x n matrix and b is an array of length n. // If no solution exists, return an empty array. #line 5171 "runtime.in" // realarray* solve(realarray2 *a, realarray *b, bool warn=true); void gen_runtime474(stack *Stack) { bool warn=vm::pop(Stack,true); realarray * b=vm::pop(Stack); realarray2 * a=vm::pop(Stack); #line 5172 "runtime.in" size_t n=checkArray(a); if(n == 0) {Stack->push(new array(0)); return;} size_t m=checkArray(b); if(m != n) error(incommensurate); real *A=copyArray2C(a); size_t *index=new size_t[n]; if(LUdecompose(A,n,index,warn) == 0) {Stack->push(new array(0)); return;} array *x=new array(n); real *B=copyArrayC(b); for(size_t i=0; i < n; ++i) { size_t ip=index[i]; real sum=B[ip]; B[ip]=B[i]; real *Ai=A+i*n; for(size_t j=0; j < i; ++j) sum -= Ai[j]*B[j]; B[i]=sum; } for(size_t i=n; i > 0;) { --i; real sum=B[i]; real *Ai=A+i*n; for(size_t j=i+1; j < n; ++j) sum -= Ai[j]*B[j]; B[i]=sum/Ai[i]; } for(size_t i=0; i < n; ++i) (*x)[i]=B[i]; delete[] index; delete[] B; delete[] A; {Stack->push(x); return;} } // Solve the linear equation ax=b by LU decomposition, returning the // solution x, where a is an n x n matrix and b is an n x m matrix. // If no solution exists, return an empty array. #line 5222 "runtime.in" // realarray2* solve(realarray2 *a, realarray2 *b, bool warn=true); void gen_runtime475(stack *Stack) { bool warn=vm::pop(Stack,true); realarray2 * b=vm::pop(Stack); realarray2 * a=vm::pop(Stack); #line 5223 "runtime.in" size_t n=checkArray(a); if(n == 0) {Stack->push(new array(0)); return;} if(checkArray(b) != n) error(incommensurate); size_t m=checkArray(read(b,0)); real *A=copyArray2C(a); real *B=copyArray2C(b,false); size_t *index=new size_t[n]; if(LUdecompose(A,n,index,warn) == 0) {Stack->push(new array(0)); return;} array *x=new array(n); for(size_t i=0; i < n; ++i) { real *Ai=A+i*n; real *Bi=B+i*m; real *Bip=B+index[i]*m; for(size_t k=0; k < m; ++k) { real sum=Bip[k]; Bip[k]=Bi[k]; size_t jk=k; for(size_t j=0; j < i; ++j, jk += m) sum -= Ai[j]*B[jk]; Bi[k]=sum; } } for(size_t i=n; i > 0;) { --i; real *Ai=A+i*n; real *Bi=B+i*m; for(size_t k=0; k < m; ++k) { real sum=Bi[k]; size_t jk=(i+1)*m+k; for(size_t j=i+1; j < n; ++j, jk += m) sum -= Ai[j]*B[jk]; Bi[k]=sum/Ai[i]; } } for(size_t i=0; i < n; ++i) { real *Bi=B+i*m; array *xi=new array(m); (*x)[i]=xi; for(size_t j=0; j < m; ++j) (*xi)[j]=Bi[j]; } delete[] index; delete[] B; delete[] A; {Stack->push(x); return;} } // Compute the determinant of an n x n matrix. #line 5284 "runtime.in" // real determinant(realarray2 *a); void gen_runtime476(stack *Stack) { realarray2 * a=vm::pop(Stack); #line 5285 "runtime.in" real *A=copyArray2C(a); size_t n=checkArray(a); real det=LUdecompose(A,n,NULL,false); size_t n1=n+1; for(size_t i=0; i < n; ++i) det *= A[i*n1]; delete[] A; {Stack->push(det); return;} } #line 5299 "runtime.in" // realarray* *(realarray2 *a, realarray *b); void gen_runtime477(stack *Stack) { realarray * b=vm::pop(Stack); realarray2 * a=vm::pop(Stack); #line 5300 "runtime.in" size_t n=checkArray(a); size_t m=checkArray(b); array *c=new array(n); real *B=copyArrayC(b); for(size_t i=0; i < n; ++i) { array *ai=read(a,i); if(checkArray(ai) != m) error(incommensurate); real sum=0.0; for(size_t j=0; j < m; ++j) sum += read(ai,j)*B[j]; (*c)[i]=sum; } delete[] B; {Stack->push(c); return;} } #line 5317 "runtime.in" // realarray* *(realarray *a, realarray2 *b); void gen_runtime478(stack *Stack) { realarray2 * b=vm::pop(Stack); realarray * a=vm::pop(Stack); #line 5318 "runtime.in" size_t n=checkArray(a); if(n != checkArray(b)) error(incommensurate); real *A=copyArrayC(a); array **B=new array*[n]; array *bk=read(b,0); B[0]=bk; size_t m=bk->size(); for(size_t k=1; k < n; k++) { array *bk=read(b,k); if(bk->size() != m) error(incommensurate); B[k]=bk; } array *c=new array(m); for(size_t i=0; i < m; ++i) { real sum=0.0; for(size_t k=0; k < n; ++k) sum += A[k]*read(B[k],i); (*c)[i]=sum; } delete[] B; delete[] A; {Stack->push(c); return;} } #line 5345 "runtime.in" // realarray2* *(realarray2 *a, realarray2 *b); void gen_runtime479(stack *Stack) { realarray2 * b=vm::pop(Stack); realarray2 * a=vm::pop(Stack); #line 5346 "runtime.in" size_t n=checkArray(a); size_t nb=checkArray(b); size_t na0=n == 0 ? 0 : checkArray(read(a,0)); if(na0 != nb) error(incommensurate); size_t nb0=nb == 0 ? 0 : checkArray(read(b,0)); array *c=new array(n); real *A=copyArray2C(a,false); real *B=copyArray2C(b,false); for(size_t i=0; i < n; ++i) { real *Ai=A+i*nb; array *ci=new array(nb0); (*c)[i]=ci; for(size_t j=0; j < nb0; ++j) { real sum=0.0; size_t kj=j; for(size_t k=0; k < nb; ++k, kj += nb0) sum += Ai[k]*B[kj]; (*ci)[j]=sum; } } delete[] B; delete[] A; {Stack->push(c); return;} } #line 5380 "runtime.in" // triple *(realarray2 *t, triple v); void gen_runtime480(stack *Stack) { triple v=vm::pop(Stack); realarray2 * t=vm::pop(Stack); #line 5381 "runtime.in" {Stack->push(*t*v); return;} } #line 5385 "runtime.in" // pair project(triple v, realarray2 *t); void gen_runtime481(stack *Stack) { realarray2 * t=vm::pop(Stack); triple v=vm::pop(Stack); #line 5386 "runtime.in" size_t n=checkArray(t); if(n != 4) error(incommensurate); array *t0=read(t,0); array *t1=read(t,1); array *t3=read(t,3); if(checkArray(t0) != 4 || checkArray(t1) != 4 || checkArray(t3) != 4) error(incommensurate); real x=v.getx(); real y=v.gety(); real z=v.getz(); real f=read(t3,0)*x+read(t3,1)*y+read(t3,2)*z+ read(t3,3); if(f == 0.0) dividebyzero(); f=1.0/f; {Stack->push(pair((read(t0,0)*x+read(t0,1)*y+read(t0,2)*z+ read(t0,3))*f, (read(t1,0)*x+read(t1,1)*y+read(t1,2)*z+ read(t1,3))*f)); return;} } // Compute the dot product of vectors a and b. #line 5411 "runtime.in" // real dot(realarray *a, realarray *b); void gen_runtime482(stack *Stack) { realarray * b=vm::pop(Stack); realarray * a=vm::pop(Stack); #line 5412 "runtime.in" size_t n=checkArrays(a,b); real sum=0.0; for(size_t i=0; i < n; ++i) sum += read(a,i)*read(b,i); {Stack->push(sum); return;} } // Solve the problem L\inv f, where f is an n vector and L is the n x n matrix // // [ b[0] c[0] a[0] ] // [ a[1] b[1] c[1] ] // [ a[2] b[2] c[2] ] // [ ... ] // [ c[n-1] a[n-1] b[n-1] ] #line 5427 "runtime.in" // realarray* tridiagonal(realarray *a, realarray *b, realarray *c, realarray *f); void gen_runtime483(stack *Stack) { realarray * f=vm::pop(Stack); realarray * c=vm::pop(Stack); realarray * b=vm::pop(Stack); realarray * a=vm::pop(Stack); #line 5428 "runtime.in" size_t n=checkArrays(a,b); checkEqual(n,checkArray(c)); checkEqual(n,checkArray(f)); array *up=new array(n); array& u=*up; if(n == 0) {Stack->push(up); return;} // Special case: zero Dirichlet boundary conditions if(read(a,0) == 0.0 && read(c,n-1) == 0.0) { real temp=read(b,0); if(temp == 0.0) dividebyzero(); temp=1.0/temp; real *work=new real[n]; u[0]=read(f,0)*temp; work[0]=-read(c,0)*temp; for(size_t i=1; i < n; i++) { real temp=(read(b,i)+read(a,i)*work[i-1]); if(temp == 0.0) {delete[] work; dividebyzero();} temp=1.0/temp; u[i]=(read(f,i)-read(a,i)*read(u,i-1))*temp; work[i]=-read(c,i)*temp; } for(size_t i=n-1; i >= 1; i--) u[i-1]=read(u,i-1)+work[i-1]*read(u,i); delete[] work; {Stack->push(up); return;} } real binv=read(b,0); if(binv == 0.0) dividebyzero(); binv=1.0/binv; if(n == 1) {u[0]=read(f,0)*binv; {Stack->push(up); return;}} if(n == 2) { real factor=(read(b,0)*read(b,1)- read(a,0)*read(c,1)); if(factor== 0.0) dividebyzero(); factor=1.0/factor; real temp=(read(b,0)*read(f,1)- read(c,1)*read(f,0))*factor; u[0]=(read(b,1)*read(f,0)- read(a,0)*read(f,1))*factor; u[1]=temp; {Stack->push(up); return;} } real *gamma=new real[n-2]; real *delta=new real[n-2]; gamma[0]=read(c,0)*binv; delta[0]=read(a,0)*binv; u[0]=read(f,0)*binv; real beta=read(c,n-1); real fn=read(f,n-1)-beta*read(u,0); real alpha=read(b,n-1)-beta*delta[0]; for(size_t i=1; i <= n-3; i++) { real alphainv=read(b,i)-read(a,i)*gamma[i-1]; if(alphainv == 0.0) {delete[] gamma; delete[] delta; dividebyzero();} alphainv=1.0/alphainv; beta *= -gamma[i-1]; gamma[i]=read(c,i)*alphainv; u[i]=(read(f,i)-read(a,i)*read(u,i-1))*alphainv; fn -= beta*read(u,i); delta[i]=-read(a,i)*delta[i-1]*alphainv; alpha -= beta*delta[i]; } real alphainv=read(b,n-2)-read(a,n-2)*gamma[n-3]; if(alphainv == 0.0) {delete[] gamma; delete[] delta; dividebyzero();} alphainv=1.0/alphainv; u[n-2]=(read(f,n-2)-read(a,n-2)*read(u,n-3)) *alphainv; beta=read(a,n-1)-beta*gamma[n-3]; real dnm1=(read(c,n-2)-read(a,n-2)*delta[n-3])*alphainv; real temp=alpha-beta*dnm1; if(temp == 0.0) {delete[] gamma; delete[] delta; dividebyzero();} u[n-1]=temp=(fn-beta*read(u,n-2))/temp; u[n-2]=read(u,n-2)-dnm1*temp; for(size_t i=n-2; i >= 1; i--) u[i-1]=read(u,i-1)-gamma[i-1]*read(u,i)-delta[i-1]*temp; delete[] delta; delete[] gamma; {Stack->push(up); return;} } // Root solve by Newton-Raphson #line 5525 "runtime.in" // real newton(Int iterations=100, callableReal *f, callableReal *fprime, real x, bool verbose=false); void gen_runtime484(stack *Stack) { bool verbose=vm::pop(Stack,false); real x=vm::pop(Stack); callableReal * fprime=vm::pop(Stack); callableReal * f=vm::pop(Stack); Int iterations=vm::pop(Stack,100); #line 5527 "runtime.in" static const real fuzz=1000.0*DBL_EPSILON; Int i=0; size_t oldPrec=0; if(verbose) oldPrec=cout.precision(DBL_DIG); real diff=DBL_MAX; real lastdiff; do { real x0=x; Stack->push(x); fprime->call(Stack); real dfdx=pop(Stack); if(dfdx == 0.0) { x=DBL_MAX; break; } Stack->push(x); f->call(Stack); real fx=pop(Stack); x -= fx/dfdx; lastdiff=diff; if(verbose) cout << "Newton-Raphson: " << x << endl; diff=fabs(x-x0); if(++i == iterations) { x=DBL_MAX; break; } } while (diff != 0.0 && (diff < lastdiff || diff > fuzz*fabs(x))); if(verbose) cout.precision(oldPrec); {Stack->push(x); return;} } // Root solve by Newton-Raphson bisection // cf. routine rtsafe (Press et al., Numerical Recipes, 1991). #line 5573 "runtime.in" // real newton(Int iterations=100, callableReal *f, callableReal *fprime, real x1, real x2, bool verbose=false); void gen_runtime485(stack *Stack) { bool verbose=vm::pop(Stack,false); real x2=vm::pop(Stack); real x1=vm::pop(Stack); callableReal * fprime=vm::pop(Stack); callableReal * f=vm::pop(Stack); Int iterations=vm::pop(Stack,100); #line 5575 "runtime.in" static const real fuzz=1000.0*DBL_EPSILON; size_t oldPrec=0; if(verbose) oldPrec=cout.precision(DBL_DIG); Stack->push(x1); f->call(Stack); real f1=pop(Stack); if(f1 == 0.0) {Stack->push(x1); return;} Stack->push(x2); f->call(Stack); real f2=pop(Stack); if(f2 == 0.0) {Stack->push(x2); return;} if((f1 > 0.0 && f2 > 0.0) || (f1 < 0.0 && f2 < 0.0)) { ostringstream buf; buf << "root not bracketed, f(x1)=" << f1 << ", f(x2)=" << f2 << endl; error(buf); } real x=0.5*(x1+x2); real dxold=fabs(x2-x1); if(f1 > 0.0) { real temp=x1; x1=x2; x2=temp; } if(verbose) cout << "midpoint: " << x << endl; real dx=dxold; Stack->push(x); f->call(Stack); real y=pop(Stack); Stack->push(x); fprime->call(Stack); real dy=pop(Stack); Int j; for(j=0; j < iterations; j++) { if(((x-x2)*dy-y)*((x-x1)*dy-y) >= 0.0 || fabs(2.0*y) > fabs(dxold*dy)) { dxold=dx; dx=0.5*(x2-x1); x=x1+dx; if(verbose) cout << "bisection: " << x << endl; if(x1 == x) {Stack->push(x); return;} } else { dxold=dx; dx=y/dy; real temp=x; x -= dx; if(verbose) cout << "Newton-Raphson: " << x << endl; if(temp == x) {Stack->push(x); return;} } if(fabs(dx) < fuzz*fabs(x)) {Stack->push(x); return;} Stack->push(x); f->call(Stack); y=pop(Stack); Stack->push(x); fprime->call(Stack); dy=pop(Stack); if(y < 0.0) x1=x; else x2=x; } if(verbose) cout.precision(oldPrec); {Stack->push((j == iterations) ? DBL_MAX : x); return;} } #line 5653 "runtime.in" // real simpson(callableReal *f, real a, real b, real acc=DBL_EPSILON, real dxmax=0); void gen_runtime486(stack *Stack) { real dxmax=vm::pop(Stack,0); real acc=vm::pop(Stack,DBL_EPSILON); real b=vm::pop(Stack); real a=vm::pop(Stack); callableReal * f=vm::pop(Stack); #line 5655 "runtime.in" real integral; if(dxmax == 0) dxmax=b-a; Func=f; FuncStack=Stack; if(!simpson(integral,wrapFunction,a,b,acc,dxmax)) error("nesting capacity exceeded in simpson"); {Stack->push(integral); return;} } // Compute the fast Fourier transform of a pair array #line 5666 "runtime.in" void pairArrayFFT(stack *Stack) { Int sign=vm::pop(Stack,1); pairarray * a=vm::pop(Stack); #line 5667 "runtime.in" unsigned n=(unsigned) checkArray(a); #ifdef HAVE_LIBFFTW3 array *c=new array(n); if(n) { Complex *f=FFTWComplex(n); fft1d Forward(n,intcast(sign),f); for(size_t i=0; i < n; i++) { pair z=read(a,i); f[i]=Complex(z.getx(),z.gety()); } Forward.fft(f); for(size_t i=0; i < n; i++) { Complex z=f[i]; (*c)[i]=pair(z.real(),z.imag()); } FFTWdelete(f); } #else unused(&n); unused(&sign); array *c=new array(0); #endif // HAVE_LIBFFTW3 {Stack->push(c); return;} } #line 5695 "runtime.in" // Intarray2* triangulate(pairarray *z); void gen_runtime488(stack *Stack) { pairarray * z=vm::pop(Stack); #line 5696 "runtime.in" size_t nv=checkArray(z); // Call robust version of Gilles Dumoulin's port of Paul Bourke's // triangulation code. XYZ *pxyz=new XYZ[nv+3]; ITRIANGLE *V=new ITRIANGLE[4*nv]; for(size_t i=0; i < nv; ++i) { pair w=read(z,i); pxyz[i].p[0]=w.getx(); pxyz[i].p[1]=w.gety(); pxyz[i].i=(Int) i; } Int ntri; Triangulate((Int) nv,pxyz,V,ntri,true,false); size_t nt=(size_t) ntri; array *t=new array(nt); for(size_t i=0; i < nt; ++i) { array *ti=new array(3); (*t)[i]=ti; ITRIANGLE *Vi=V+i; (*ti)[0]=pxyz[Vi->p1].i; (*ti)[1]=pxyz[Vi->p2].i; (*ti)[2]=pxyz[Vi->p3].i; } delete[] V; delete[] pxyz; {Stack->push(t); return;} } // File operations #line 5732 "runtime.in" // bool ==(file *a, file *b); void gen_runtime489(stack *Stack) { file * b=vm::pop(Stack); file * a=vm::pop(Stack); #line 5733 "runtime.in" {Stack->push(a == b); return;} } #line 5738 "runtime.in" // bool !=(file *a, file *b); void gen_runtime490(stack *Stack) { file * b=vm::pop(Stack); file * a=vm::pop(Stack); #line 5739 "runtime.in" {Stack->push(a != b); return;} } #line 5743 "runtime.in" void nullFile(stack *Stack) { #line 5744 "runtime.in" {Stack->push(&camp::nullfile); return;} } #line 5748 "runtime.in" // file* input(string name, bool check=true, string comment=commentchar); void gen_runtime492(stack *Stack) { string comment=vm::pop(Stack,commentchar); bool check=vm::pop(Stack,true); string name=vm::pop(Stack); #line 5749 "runtime.in" char c=comment.empty() ? (char) 0 : comment[0]; file *f=new ifile(name,c,check); f->open(); {Stack->push(f); return;} } #line 5756 "runtime.in" // file* output(string name, bool update=false, string comment=commentchar); void gen_runtime493(stack *Stack) { string comment=vm::pop(Stack,commentchar); bool update=vm::pop(Stack,false); string name=vm::pop(Stack); #line 5757 "runtime.in" file *f; if(update) { char c=comment.empty() ? (char) 0 : comment[0]; f=new iofile(name,c); } else f=new ofile(name); f->open(); if(update) f->seek(0,false); {Stack->push(f); return;} } #line 5768 "runtime.in" // file* xinput(string name, bool check=true); void gen_runtime494(stack *Stack) { bool check=vm::pop(Stack,true); string name=vm::pop(Stack); #line 5769 "runtime.in" #ifdef HAVE_RPC_RPC_H file *f=new ixfile(name,check); f->open(); {Stack->push(f); return;} #else ostringstream buf; buf << name << ": XDR read support not enabled"; error(buf); unused(&check); // Suppress unused variable warning #endif } #line 5782 "runtime.in" // file* xoutput(string name, bool update=false); void gen_runtime495(stack *Stack) { bool update=vm::pop(Stack,false); string name=vm::pop(Stack); #line 5783 "runtime.in" #ifdef HAVE_RPC_RPC_H file *f; if(update) f=new ioxfile(name); else f=new oxfile(name); f->open(); if(update) f->seek(0,false); {Stack->push(f); return;} #else ostringstream buf; buf << name << ": XDR write support not enabled"; error(buf); unused(&update); // Suppress unused variable warning #endif } #line 5800 "runtime.in" // file* binput(string name, bool check=true); void gen_runtime496(stack *Stack) { bool check=vm::pop(Stack,true); string name=vm::pop(Stack); #line 5801 "runtime.in" file *f=new ibfile(name,check); f->open(); {Stack->push(f); return;} } #line 5807 "runtime.in" // file* boutput(string name, bool update=false); void gen_runtime497(stack *Stack) { bool update=vm::pop(Stack,false); string name=vm::pop(Stack); #line 5808 "runtime.in" file *f; if(update) f=new iobfile(name); else f=new obfile(name); f->open(); if(update) f->seek(0,false); {Stack->push(f); return;} } #line 5817 "runtime.in" // bool eof(file *f); void gen_runtime498(stack *Stack) { file * f=vm::pop(Stack); #line 5818 "runtime.in" {Stack->push(f->eof()); return;} } #line 5822 "runtime.in" // bool eol(file *f); void gen_runtime499(stack *Stack) { file * f=vm::pop(Stack); #line 5823 "runtime.in" {Stack->push(f->eol()); return;} } #line 5827 "runtime.in" // bool error(file *f); void gen_runtime500(stack *Stack) { file * f=vm::pop(Stack); #line 5828 "runtime.in" {Stack->push(f->error()); return;} } #line 5832 "runtime.in" // void clear(file *f); void gen_runtime501(stack *Stack) { file * f=vm::pop(Stack); #line 5833 "runtime.in" f->clear(); } #line 5837 "runtime.in" // void close(file *f); void gen_runtime502(stack *Stack) { file * f=vm::pop(Stack); #line 5838 "runtime.in" f->close(); } #line 5842 "runtime.in" // Int precision(file *f=NULL, Int digits=0); void gen_runtime503(stack *Stack) { Int digits=vm::pop(Stack,0); file * f=vm::pop(Stack,NULL); #line 5843 "runtime.in" if(f == 0) f=&camp::Stdout; {Stack->push(f->precision(digits)); return;} } #line 5848 "runtime.in" // void flush(file *f); void gen_runtime504(stack *Stack) { file * f=vm::pop(Stack); #line 5849 "runtime.in" f->flush(); } #line 5853 "runtime.in" // string getc(file *f); void gen_runtime505(stack *Stack) { file * f=vm::pop(Stack); #line 5854 "runtime.in" char c=0; if(f->isOpen()) f->read(c); static char str[1]; str[0]=c; {Stack->push(string(str)); return;} } #line 5862 "runtime.in" // Int tell(file *f); void gen_runtime506(stack *Stack) { file * f=vm::pop(Stack); #line 5863 "runtime.in" {Stack->push(f->tell()); return;} } #line 5867 "runtime.in" // void seek(file *f, Int pos); void gen_runtime507(stack *Stack) { Int pos=vm::pop(Stack); file * f=vm::pop(Stack); #line 5868 "runtime.in" f->seek(pos,pos >= 0); } #line 5872 "runtime.in" // void seekeof(file *f); void gen_runtime508(stack *Stack) { file * f=vm::pop(Stack); #line 5873 "runtime.in" f->seek(0,false); } #line 5877 "runtime.in" void namePart(stack *Stack) { file f=vm::pop(Stack); #line 5878 "runtime.in" {Stack->push(f.filename()); return;} } #line 5882 "runtime.in" void modePart(stack *Stack) { file f=vm::pop(Stack); #line 5883 "runtime.in" {Stack->push(f.FileMode()); return;} } // Set file dimensions #line 5888 "runtime.in" void dimensionSetHelper(stack *Stack) { file * f=vm::pop(Stack); Int nz=vm::pop(Stack,-1); Int ny=vm::pop(Stack,-1); Int nx=vm::pop(Stack,-1); #line 5889 "runtime.in" f->dimension(nx,ny,nz); {Stack->push(f); return;} } #line 5894 "runtime.in" void dimensionSet(stack *Stack) { file * f=vm::pop(Stack); #line 5895 "runtime.in" {Stack->push(new thunk(new bfunc(dimensionSetHelper),f)); return;} } #line 5899 "runtime.in" void dimensionPart(stack *Stack) { file f=vm::pop(Stack); #line 5900 "runtime.in" array *a=new array(3); (*a)[0]=f.Nx(); (*a)[1]=f.Ny(); (*a)[2]=f.Nz(); {Stack->push(a); return;} } // Set file f to read arrays in line-at-a-time mode #line 5909 "runtime.in" void lineSetHelper(stack *Stack) { file * f=vm::pop(Stack); bool b=vm::pop(Stack,true); #line 5910 "runtime.in" f->LineMode(b); {Stack->push(f); return;} } #line 5915 "runtime.in" void lineSet(stack *Stack) { file * f=vm::pop(Stack); #line 5916 "runtime.in" {Stack->push(new thunk(new bfunc(lineSetHelper),f)); return;} } #line 5920 "runtime.in" void linePart(stack *Stack) { file f=vm::pop(Stack); #line 5921 "runtime.in" {Stack->push(f.LineMode()); return;} } // Set file to read comma-separated values #line 5926 "runtime.in" void csvSetHelper(stack *Stack) { file * f=vm::pop(Stack); bool b=vm::pop(Stack,true); #line 5927 "runtime.in" f->CSVMode(b); {Stack->push(f); return;} } #line 5932 "runtime.in" void csvSet(stack *Stack) { file * f=vm::pop(Stack); #line 5933 "runtime.in" {Stack->push(new thunk(new bfunc(csvSetHelper),f)); return;} } #line 5937 "runtime.in" void csvPart(stack *Stack) { file f=vm::pop(Stack); #line 5938 "runtime.in" {Stack->push(f.CSVMode()); return;} } // Set file to read whitespace-separated values #line 5943 "runtime.in" void wordSetHelper(stack *Stack) { file * f=vm::pop(Stack); bool b=vm::pop(Stack,true); #line 5944 "runtime.in" f->WordMode(b); {Stack->push(f); return;} } #line 5949 "runtime.in" void wordSet(stack *Stack) { file * f=vm::pop(Stack); #line 5950 "runtime.in" {Stack->push(new thunk(new bfunc(wordSetHelper),f)); return;} } #line 5954 "runtime.in" void wordPart(stack *Stack) { file f=vm::pop(Stack); #line 5955 "runtime.in" {Stack->push(f.WordMode()); return;} } // Set file to read/write single precision real XDR values. #line 5960 "runtime.in" void singlerealSetHelper(stack *Stack) { file * f=vm::pop(Stack); bool b=vm::pop(Stack,true); #line 5961 "runtime.in" f->SingleReal(b); {Stack->push(f); return;} } #line 5966 "runtime.in" void singlerealSet(stack *Stack) { file * f=vm::pop(Stack); #line 5967 "runtime.in" {Stack->push(new thunk(new bfunc(singlerealSetHelper),f)); return;} } #line 5971 "runtime.in" void singlerealPart(stack *Stack) { file f=vm::pop(Stack); #line 5972 "runtime.in" {Stack->push(f.SingleReal()); return;} } // Set file to read/write single precision int XDR values. #line 5977 "runtime.in" void singleintSetHelper(stack *Stack) { file * f=vm::pop(Stack); bool b=vm::pop(Stack,true); #line 5978 "runtime.in" f->SingleInt(b); {Stack->push(f); return;} } #line 5983 "runtime.in" void singleintSet(stack *Stack) { file * f=vm::pop(Stack); #line 5984 "runtime.in" {Stack->push(new thunk(new bfunc(singleintSetHelper),f)); return;} } #line 5988 "runtime.in" void singleintPart(stack *Stack) { file f=vm::pop(Stack); #line 5989 "runtime.in" {Stack->push(f.SingleInt()); return;} } // Set file to read/write signed int XDR values. #line 5994 "runtime.in" void signedintSetHelper(stack *Stack) { file * f=vm::pop(Stack); bool b=vm::pop(Stack,true); #line 5995 "runtime.in" f->SignedInt(b); {Stack->push(f); return;} } #line 6000 "runtime.in" void signedintSet(stack *Stack) { file * f=vm::pop(Stack); #line 6001 "runtime.in" {Stack->push(new thunk(new bfunc(signedintSetHelper),f)); return;} } #line 6005 "runtime.in" void signedintPart(stack *Stack) { file f=vm::pop(Stack); #line 6006 "runtime.in" {Stack->push(f.SignedInt()); return;} } // Set file to read an arrayi (i int sizes followed by an i-dimensional array) #line 6011 "runtime.in" void readSetHelper(stack *Stack) { file * f=vm::pop(Stack); Int i=vm::pop(Stack); #line 6012 "runtime.in" switch(i) { case 1: f->dimension(-2); break; case 2: f->dimension(-2,-2); break; case 3: f->dimension(-2,-2,-2); break; default: f->dimension(); } {Stack->push(f); return;} } #line 6033 "runtime.in" void readSet(stack *Stack) { file * f=vm::pop(Stack); #line 6034 "runtime.in" {Stack->push(new thunk(new bfunc(readSetHelper),f)); return;} } // Return the last n lines of the history named name. #line 6039 "runtime.in" // stringarray* history(string name, Int n=1); void gen_runtime534(stack *Stack) { Int n=vm::pop(Stack,1); string name=vm::pop(Stack); #line 6040 "runtime.in" #if defined(HAVE_LIBREADLINE) && defined(HAVE_LIBCURSES) bool newhistory=historyMap.find(name) == historyMap.end(); string filename; if(newhistory) { filename=historyfilename(name); std::ifstream exists(filename.c_str()); if(!exists) {Stack->push(new array(0)); return;} } store_history(&history_save); HISTORY_STATE& history=historyMap[name].state; history_set_history_state(&history); if(newhistory) read_history(filename.c_str()); array *a=get_history(n); store_history(&history); history_set_history_state(&history_save); {Stack->push(a); return;} #else unused(&n); {Stack->push(new array(0)); return;} #endif } // Return the last n lines of the interactive history. #line 6072 "runtime.in" // stringarray* history(Int n=0); void gen_runtime535(stack *Stack) { Int n=vm::pop(Stack,0); #line 6073 "runtime.in" #if defined(HAVE_LIBREADLINE) && defined(HAVE_LIBCURSES) {Stack->push(get_history(n)); return;} #else unused(&n); {Stack->push(new array(0)); return;} #endif } // Prompt for a string using prompt, the GNU readline library, and a // local history named name. #line 6084 "runtime.in" // string readline(string prompt=emptystring, string name=emptystring, bool tabcompletion=false); void gen_runtime536(stack *Stack) { bool tabcompletion=vm::pop(Stack,false); string name=vm::pop(Stack,emptystring); string prompt=vm::pop(Stack,emptystring); #line 6086 "runtime.in" if(!(isatty(STDIN_FILENO) || getSetting("interactive"))) {Stack->push(emptystring); return;} #if defined(HAVE_LIBREADLINE) && defined(HAVE_LIBCURSES) init_readline(tabcompletion); store_history(&history_save); bool newhistory=historyMap.find(name) == historyMap.end(); historyState& h=historyMap[name]; HISTORY_STATE& history=h.state; history_set_history_state(&history); if(newhistory) read_history(historyfilename(name).c_str()); static char *line=NULL; /* Return the memory to the free pool if the buffer has already been allocated. */ if(line) { free(line); line=NULL; } /* Get a line from the user. */ line=readline(prompt.c_str()); if(!line) cout << endl; history_set_history_state(&history_save); {Stack->push(line ? string(line) : emptystring); return;} #else cout << prompt; string s; getline(cin,s); unused(&tabcompletion); // Avoid unused variable warning message. {Stack->push(s); return;} #endif } // Save a string in a local history named name. // If store=true, store the local history in the file historyfilename(name). #line 6128 "runtime.in" // void saveline(string name, string value, bool store=true); void gen_runtime537(stack *Stack) { bool store=vm::pop(Stack,true); string value=vm::pop(Stack); string name=vm::pop(Stack); #line 6129 "runtime.in" #if defined(HAVE_LIBREADLINE) && defined(HAVE_LIBCURSES) store_history(&history_save); bool newhistory=historyMap.find(name) == historyMap.end(); historyState& h=historyMap[name]; h.store=store; HISTORY_STATE& history=h.state; history_set_history_state(&history); if(newhistory) read_history(historyfilename(name).c_str()); if(value != "") { add_history(value.c_str()); if(store) { std::ofstream hout(historyfilename(name).c_str(),std::ios::app); hout << value << endl; } } store_history(&history); history_set_history_state(&history_save); #else unused(&store); #endif } } // namespace run namespace trans { void gen_runtime_venv(venv &ve) { #line 1097 "runtime.in" REGISTER_BLTIN(run::IntZero,"IntZero"); #line 1105 "runtime.in" REGISTER_BLTIN(run::realZero,"realZero"); #line 1110 "runtime.in" REGISTER_BLTIN(run::boolFalse,"boolFalse"); #line 1115 "runtime.in" REGISTER_BLTIN(run::pushNullArray,"pushNullArray"); #line 1120 "runtime.in" REGISTER_BLTIN(run::pushNullRecord,"pushNullRecord"); #line 1125 "runtime.in" REGISTER_BLTIN(run::pushNullFunction,"pushNullFunction"); #line 1130 "runtime.in" REGISTER_BLTIN(run::pushDefault,"pushDefault"); #line 1140 "runtime.in" REGISTER_BLTIN(run::isDefault,"isDefault"); #line 1147 "runtime.in" addFunc(ve, run::gen_runtime8, primBoolean(), "!", formal(primBoolean(), "b", false, false)); #line 1155 "runtime.in" REGISTER_BLTIN(run::boolMemEq,"boolMemEq"); #line 1160 "runtime.in" REGISTER_BLTIN(run::boolMemNeq,"boolMemNeq"); #line 1165 "runtime.in" REGISTER_BLTIN(run::boolFuncEq,"boolFuncEq"); #line 1170 "runtime.in" REGISTER_BLTIN(run::boolFuncNeq,"boolFuncNeq"); #line 1175 "runtime.in" addFunc(ve, run::gen_runtime13, primInt(), "AND", formal(primInt(), "a", false, false), formal(primInt(), "b", false, false)); #line 1183 "runtime.in" addFunc(ve, run::gen_runtime14, primInt(), "OR", formal(primInt(), "a", false, false), formal(primInt(), "b", false, false)); #line 1188 "runtime.in" addFunc(ve, run::gen_runtime15, primInt(), "XOR", formal(primInt(), "a", false, false), formal(primInt(), "b", false, false)); #line 1193 "runtime.in" addFunc(ve, run::gen_runtime16, primInt(), "NOT", formal(primInt(), "a", false, false)); #line 1198 "runtime.in" REGISTER_BLTIN(run::pairToGuide,"pairToGuide"); #line 1206 "runtime.in" REGISTER_BLTIN(run::pathToGuide,"pathToGuide"); #line 1211 "runtime.in" REGISTER_BLTIN(run::guideToPath,"guideToPath"); #line 1216 "runtime.in" REGISTER_BLTIN(run::newPicture,"newPicture"); #line 1224 "runtime.in" addFunc(ve, run::gen_runtime21, primBoolean(), "empty", formal(primPicture(), "f", false, false)); #line 1229 "runtime.in" addFunc(ve, run::gen_runtime22, primVoid(), "erase", formal(primPicture(), "f", false, false)); #line 1234 "runtime.in" addFunc(ve, run::gen_runtime23, primPair(), "min", formal(primPicture(), "f", false, false)); #line 1239 "runtime.in" addFunc(ve, run::gen_runtime24, primPair(), "max", formal(primPicture(), "f", false, false)); #line 1244 "runtime.in" addFunc(ve, run::gen_runtime25, primVoid(), "label", formal(primPicture(), "f", false, false), formal(primString(), "s", false, false), formal(primString(), "size", false, false), formal(primTransform(), "t", false, false), formal(primPair(), "position", false, false), formal(primPair(), "align", false, false), formal(primPen(), "p", false, false)); #line 1250 "runtime.in" addFunc(ve, run::gen_runtime26, primBoolean(), "labels", formal(primPicture(), "f", false, false)); #line 1255 "runtime.in" addFunc(ve, run::gen_runtime27, realArray(), "texsize", formal(primString(), "s", false, false), formal(primPen(), "p", true, false)); #line 1275 "runtime.in" addFunc(ve, run::gen_runtime28, pathArray() , "_texpath", formal(primString(), "s", false, false), formal(primPen(), "p", true, false)); #line 1373 "runtime.in" addFunc(ve, run::gen_runtime29, pathArray() , "textpath", formal(primString(), "s", false, false), formal(primPen(), "p", true, false)); #line 1444 "runtime.in" addFunc(ve, run::gen_runtime30, pathArray() , "_strokepath", formal(primPath(), "g", false, false), formal(primPen(), "p", true, false)); #line 1469 "runtime.in" addFunc(ve, run::gen_runtime31, primVoid(), "_draw", formal(primPicture(), "f", false, false), formal(primPath(), "g", false, false), formal(primPen(), "p", false, false)); #line 1474 "runtime.in" addFunc(ve, run::gen_runtime32, primVoid(), "fill", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primPen(), "p", true, false), formal(primBoolean(), "copy", true, false)); #line 1480 "runtime.in" addFunc(ve, run::gen_runtime33, primVoid(), "latticeshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(penArray2() , "p", false, false), formal(primBoolean(), "copy", true, false)); #line 1487 "runtime.in" addFunc(ve, run::gen_runtime34, primVoid(), "axialshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "pena", false, false), formal(primPair(), "a", false, false), formal(primPen(), "penb", false, false), formal(primPair(), "b", false, false), formal(primBoolean(), "copy", true, false)); #line 1494 "runtime.in" addFunc(ve, run::gen_runtime35, primVoid(), "radialshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "pena", false, false), formal(primPair(), "a", false, false), formal(primReal(), "ra", false, false), formal(primPen(), "penb", false, false), formal(primPair(), "b", false, false), formal(primReal(), "rb", false, false), formal(primBoolean(), "copy", true, false)); #line 1501 "runtime.in" addFunc(ve, run::gen_runtime36, primVoid(), "gouraudshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(penArray() , "p", false, false), formal(pairArray(), "z", false, false), formal(IntArray(), "edges", false, false), formal(primBoolean(), "copy", true, false)); #line 1512 "runtime.in" addFunc(ve, run::gen_runtime37, primVoid(), "gouraudshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(penArray() , "p", false, false), formal(IntArray(), "edges", false, false), formal(primBoolean(), "copy", true, false)); #line 1536 "runtime.in" addFunc(ve, run::gen_runtime38, primVoid(), "tensorshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(penArray2() , "p", false, false), formal(pathArray() , "b", true, false), formal(pairArray2(), "z", true, false), formal(primBoolean(), "copy", true, false)); #line 1551 "runtime.in" addFunc(ve, run::gen_runtime39, primVoid(), "functionshade", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(primString() , "shader", true, false), formal(primBoolean(), "copy", true, false)); #line 1559 "runtime.in" addFunc(ve, run::gen_runtime40, primVoid(), "clip", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(primBoolean(), "copy", true, false)); #line 1569 "runtime.in" addFunc(ve, run::gen_runtime41, primVoid(), "beginclip", formal(primPicture(), "f", false, false), formal(pathArray() , "g", false, false), formal(primBoolean(), "stroke", true, false), formal(primPen(), "fillrule", true, false), formal(primBoolean(), "copy", true, false)); #line 1576 "runtime.in" addFunc(ve, run::gen_runtime42, primVoid(), "endclip", formal(primPicture(), "f", false, false)); #line 1581 "runtime.in" addFunc(ve, run::gen_runtime43, primVoid(), "gsave", formal(primPicture(), "f", false, false)); #line 1586 "runtime.in" addFunc(ve, run::gen_runtime44, primVoid(), "grestore", formal(primPicture(), "f", false, false)); #line 1591 "runtime.in" addFunc(ve, run::gen_runtime45, primVoid(), "begingroup", formal(primPicture(), "f", false, false)); #line 1596 "runtime.in" addFunc(ve, run::gen_runtime46, primVoid(), "endgroup", formal(primPicture(), "f", false, false)); #line 1601 "runtime.in" addFunc(ve, run::gen_runtime47, primVoid(), "add", formal(primPicture(), "dest", false, false), formal(primPicture(), "src", false, false)); #line 1606 "runtime.in" addFunc(ve, run::gen_runtime48, primVoid(), "prepend", formal(primPicture(), "dest", false, false), formal(primPicture(), "src", false, false)); #line 1611 "runtime.in" addFunc(ve, run::gen_runtime49, primVoid(), "postscript", formal(primPicture(), "f", false, false), formal(primString() , "s", false, false)); #line 1616 "runtime.in" addFunc(ve, run::gen_runtime50, primVoid(), "tex", formal(primPicture(), "f", false, false), formal(primString() , "s", false, false)); #line 1621 "runtime.in" addFunc(ve, run::gen_runtime51, primVoid(), "postscript", formal(primPicture(), "f", false, false), formal(primString() , "s", false, false), formal(primPair(), "min", false, false), formal(primPair(), "max", false, false)); #line 1626 "runtime.in" addFunc(ve, run::gen_runtime52, primVoid(), "tex", formal(primPicture(), "f", false, false), formal(primString() , "s", false, false), formal(primPair(), "min", false, false), formal(primPair(), "max", false, false)); #line 1631 "runtime.in" addFunc(ve, run::gen_runtime53, primVoid(), "texpreamble", formal(primString() , "s", false, false)); #line 1639 "runtime.in" addFunc(ve, run::gen_runtime54, primVoid(), "deletepreamble"); #line 1646 "runtime.in" addFunc(ve, run::gen_runtime55, primVoid(), "_labelpath", formal(primPicture(), "f", false, false), formal(primString() , "s", false, false), formal(primString() , "size", false, false), formal(primPath(), "g", false, false), formal(primString() , "justify", false, false), formal(primPair(), "offset", false, false), formal(primPen(), "p", false, false)); #line 1652 "runtime.in" addFunc(ve, run::gen_runtime56, primVoid(), "texreset"); #line 1660 "runtime.in" addFunc(ve, run::gen_runtime57, primVoid(), "layer", formal(primPicture(), "f", false, false)); #line 1665 "runtime.in" addFunc(ve, run::gen_runtime58, primVoid(), "newpage", formal(primPicture(), "f", false, false)); #line 1670 "runtime.in" addFunc(ve, run::gen_runtime59, primVoid(), "_image", formal(primPicture(), "f", false, false), formal(realArray2(), "data", false, false), formal(primPair(), "initial", false, false), formal(primPair(), "final", false, false), formal(penArray() , "palette", true, false), formal(primTransform(), "t", true, false), formal(primBoolean(), "copy", true, false), formal(primBoolean(), "antialias", true, false)); #line 1680 "runtime.in" addFunc(ve, run::gen_runtime60, primVoid(), "_image", formal(primPicture(), "f", false, false), formal(penArray2() , "data", false, false), formal(primPair(), "initial", false, false), formal(primPair(), "final", false, false), formal(primTransform(), "t", true, false), formal(primBoolean(), "copy", true, false), formal(primBoolean(), "antialias", true, false)); #line 1687 "runtime.in" addFunc(ve, run::gen_runtime61, primString() , "nativeformat"); #line 1692 "runtime.in" addFunc(ve, run::gen_runtime62, primBoolean(), "latex"); #line 1697 "runtime.in" addFunc(ve, run::gen_runtime63, primBoolean(), "pdf"); #line 1702 "runtime.in" addFunc(ve, run::gen_runtime64, primVoid(), "shipout", formal(primString() , "prefix", true, false), formal(primPicture(), "f", false, false), formal(primPicture(), "preamble", true, false), formal(primString() , "format", true, false), formal(primBoolean(), "wait", true, false), formal(primBoolean(), "view", true, false), formal(transformFunction(), "xform", false, false)); #line 1748 "runtime.in" addFunc(ve, run::gen_runtime65, primVoid(), "shipout3", formal(primString() , "prefix", false, false), formal(primPicture(), "f", false, false), formal(primString() , "format", true, false), formal(primReal(), "width", false, false), formal(primReal(), "height", false, false), formal(primReal(), "angle", false, false), formal(primReal(), "zoom", false, false), formal(primTriple(), "m", false, false), formal(primTriple(), "m", false, false), formal(primPair(), "shift", false, false), formal(realArray2(), "t", false, false), formal(realArray(), "background", false, false), formal(tripleArray(), "lights", false, false), formal(realArray2(), "diffuse", false, false), formal(realArray2(), "ambient", false, false), formal(realArray2(), "specular", false, false), formal(primBoolean(), "viewportlighting", false, false), formal(primBoolean(), "view", true, false)); #line 1766 "runtime.in" addFunc(ve, run::gen_runtime66, primVoid(), "shipout3", formal(primString() , "prefix", false, false), formal(primPicture(), "f", false, false)); #line 1771 "runtime.in" addFunc(ve, run::gen_runtime67, primVoid(), "deconstruct", formal(primPicture(), "f", false, false), formal(primPicture(), "preamble", true, false), formal(primReal(), "magnification", true, false), formal(transformFunction(), "xform", false, false)); #line 1894 "runtime.in" addFunc(ve, run::gen_runtime68, primVoid(), "purge", formal(primInt(), "divisor", true, false)); #line 1899 "runtime.in" REGISTER_BLTIN(run::newPen,"newPen"); #line 1907 "runtime.in" addFunc(ve, run::gen_runtime70, primBoolean(), "==", formal(primPen(), "a", false, false), formal(primPen(), "b", false, false)); #line 1912 "runtime.in" addFunc(ve, run::gen_runtime71, primBoolean(), "!=", formal(primPen(), "a", false, false), formal(primPen(), "b", false, false)); #line 1917 "runtime.in" addFunc(ve, run::gen_runtime72, primPen(), "+", formal(primPen(), "a", false, false), formal(primPen(), "b", false, false)); #line 1922 "runtime.in" addFunc(ve, run::gen_runtime73, primPen(), "*", formal(primReal(), "a", false, false), formal(primPen(), "b", false, false)); #line 1927 "runtime.in" addFunc(ve, run::gen_runtime74, primPen(), "*", formal(primPen(), "a", false, false), formal(primReal(), "b", false, false)); #line 1932 "runtime.in" addFunc(ve, run::gen_runtime75, primPair(), "max", formal(primPen(), "p", false, false)); #line 1937 "runtime.in" addFunc(ve, run::gen_runtime76, primPair(), "min", formal(primPen(), "p", false, false)); #line 1942 "runtime.in" addFunc(ve, run::gen_runtime77, primVoid(), "resetdefaultpen"); #line 1948 "runtime.in" addFunc(ve, run::gen_runtime78, primVoid(), "defaultpen", formal(primPen(), "p", false, false)); #line 1953 "runtime.in" addFunc(ve, run::gen_runtime79, primPen(), "defaultpen"); #line 1958 "runtime.in" addFunc(ve, run::gen_runtime80, primBoolean(), "invisible", formal(primPen(), "p", false, false)); #line 1963 "runtime.in" addFunc(ve, run::gen_runtime81, primPen(), "invisible"); #line 1968 "runtime.in" addFunc(ve, run::gen_runtime82, primPen(), "gray", formal(primPen(), "p", false, false)); #line 1974 "runtime.in" addFunc(ve, run::gen_runtime83, primPen(), "rgb", formal(primPen(), "p", false, false)); #line 1980 "runtime.in" addFunc(ve, run::gen_runtime84, primPen(), "cmyk", formal(primPen(), "p", false, false)); #line 1986 "runtime.in" addFunc(ve, run::gen_runtime85, primPen(), "interp", formal(primPen(), "a", false, false), formal(primPen(), "b", false, false), formal(primReal(), "t", false, false)); #line 1991 "runtime.in" addFunc(ve, run::gen_runtime86, primPen(), "rgb", formal(primReal(), "r", false, false), formal(primReal(), "g", false, false), formal(primReal(), "b", false, false)); #line 1996 "runtime.in" addFunc(ve, run::gen_runtime87, primPen(), "cmyk", formal(primReal(), "c", false, false), formal(primReal(), "m", false, false), formal(primReal(), "y", false, false), formal(primReal(), "k", false, false)); #line 2001 "runtime.in" addFunc(ve, run::gen_runtime88, primPen(), "gray", formal(primReal(), "gray", false, false)); #line 2006 "runtime.in" addFunc(ve, run::gen_runtime89, realArray(), "colors", formal(primPen(), "p", false, false)); #line 2034 "runtime.in" addFunc(ve, run::gen_runtime90, primString() , "colorspace", formal(primPen(), "p", false, false)); #line 2041 "runtime.in" addFunc(ve, run::gen_runtime91, primPen(), "pattern", formal(primString(), "s", false, false)); #line 2046 "runtime.in" addFunc(ve, run::gen_runtime92, primString() , "pattern", formal(primPen(), "p", false, false)); #line 2051 "runtime.in" addFunc(ve, run::gen_runtime93, primPen(), "fillrule", formal(primInt(), "n", false, false)); #line 2056 "runtime.in" addFunc(ve, run::gen_runtime94, primInt(), "fillrule", formal(primPen(), "p", false, false)); #line 2061 "runtime.in" addFunc(ve, run::gen_runtime95, primPen(), "opacity", formal(primReal(), "opacity", true, false), formal(primString() , "blend", true, false)); #line 2071 "runtime.in" addFunc(ve, run::gen_runtime96, primReal(), "opacity", formal(primPen(), "p", false, false)); #line 2076 "runtime.in" addFunc(ve, run::gen_runtime97, primString() , "blend", formal(primPen(), "p", false, false)); #line 2081 "runtime.in" addFunc(ve, run::gen_runtime98, primPen(), "linetype", formal(primString(), "s", false, false), formal(primReal(), "offset", true, false), formal(primBoolean(), "scale", true, false), formal(primBoolean(), "adjust", true, false)); #line 2086 "runtime.in" addFunc(ve, run::gen_runtime99, primString() , "linetype", formal(primPen(), "p", true, false)); #line 2091 "runtime.in" addFunc(ve, run::gen_runtime100, primReal(), "offset", formal(primPen(), "p", false, false)); #line 2096 "runtime.in" addFunc(ve, run::gen_runtime101, primBoolean(), "scale", formal(primPen(), "p", false, false)); #line 2101 "runtime.in" addFunc(ve, run::gen_runtime102, primBoolean(), "adjust", formal(primPen(), "p", false, false)); #line 2106 "runtime.in" addFunc(ve, run::gen_runtime103, primPen(), "adjust", formal(primPen(), "p", false, false), formal(primReal(), "arclength", false, false), formal(primBoolean(), "cyclic", false, false)); #line 2111 "runtime.in" addFunc(ve, run::gen_runtime104, primPen(), "linecap", formal(primInt(), "n", false, false)); #line 2116 "runtime.in" addFunc(ve, run::gen_runtime105, primInt(), "linecap", formal(primPen(), "p", true, false)); #line 2121 "runtime.in" addFunc(ve, run::gen_runtime106, primPen(), "linejoin", formal(primInt(), "n", false, false)); #line 2126 "runtime.in" addFunc(ve, run::gen_runtime107, primInt(), "linejoin", formal(primPen(), "p", true, false)); #line 2131 "runtime.in" addFunc(ve, run::gen_runtime108, primPen(), "miterlimit", formal(primReal(), "x", false, false)); #line 2136 "runtime.in" addFunc(ve, run::gen_runtime109, primReal(), "miterlimit", formal(primPen(), "p", true, false)); #line 2141 "runtime.in" addFunc(ve, run::gen_runtime110, primPen(), "linewidth", formal(primReal(), "x", false, false)); #line 2146 "runtime.in" addFunc(ve, run::gen_runtime111, primReal(), "linewidth", formal(primPen(), "p", true, false)); #line 2151 "runtime.in" addFunc(ve, run::gen_runtime112, primPen(), "fontcommand", formal(primString(), "s", false, false)); #line 2156 "runtime.in" addFunc(ve, run::gen_runtime113, primString() , "font", formal(primPen(), "p", true, false)); #line 2161 "runtime.in" addFunc(ve, run::gen_runtime114, primPen(), "fontsize", formal(primReal(), "size", false, false), formal(primReal(), "lineskip", false, false)); #line 2167 "runtime.in" addFunc(ve, run::gen_runtime115, primReal(), "fontsize", formal(primPen(), "p", true, false)); #line 2172 "runtime.in" addFunc(ve, run::gen_runtime116, primReal(), "lineskip", formal(primPen(), "p", true, false)); #line 2177 "runtime.in" addFunc(ve, run::gen_runtime117, primPen(), "overwrite", formal(primInt(), "n", false, false)); #line 2183 "runtime.in" addFunc(ve, run::gen_runtime118, primInt(), "overwrite", formal(primPen(), "p", true, false)); #line 2188 "runtime.in" addFunc(ve, run::gen_runtime119, primPen(), "basealign", formal(primInt(), "n", false, false)); #line 2193 "runtime.in" addFunc(ve, run::gen_runtime120, primInt(), "basealign", formal(primPen(), "p", true, false)); #line 2198 "runtime.in" addFunc(ve, run::gen_runtime121, primTransform(), "transform", formal(primPen(), "p", false, false)); #line 2203 "runtime.in" addFunc(ve, run::gen_runtime122, primPath(), "nib", formal(primPen(), "p", false, false)); #line 2208 "runtime.in" addFunc(ve, run::gen_runtime123, primPen(), "makepen", formal(primPath(), "p", false, false)); #line 2213 "runtime.in" addFunc(ve, run::gen_runtime124, primPen(), "colorless", formal(primPen(), "p", false, false)); #line 2219 "runtime.in" addFunc(ve, run::gen_runtime125, primBoolean(), "interactive"); #line 2226 "runtime.in" addFunc(ve, run::gen_runtime126, primBoolean(), "uptodate"); #line 2231 "runtime.in" addFunc(ve, run::gen_runtime127, primInt(), "system", formal(stringArray(), "s", false, false)); #line 2245 "runtime.in" addFunc(ve, run::gen_runtime128, primBoolean(), "view"); #line 2250 "runtime.in" addFunc(ve, run::gen_runtime129, primString() , "asydir"); #line 2255 "runtime.in" addFunc(ve, run::gen_runtime130, primString() , "locale", formal(primString() , "s", true, false)); #line 2261 "runtime.in" addFunc(ve, run::gen_runtime131, primVoid(), "abort", formal(primString() , "s", true, false)); #line 2267 "runtime.in" addFunc(ve, run::gen_runtime132, primVoid(), "exit"); #line 2272 "runtime.in" addFunc(ve, run::gen_runtime133, primVoid(), "assert", formal(primBoolean(), "b", false, false), formal(primString() , "s", true, false)); #line 2283 "runtime.in" addFunc(ve, run::gen_runtime134, primVoid(), "sleep", formal(primInt(), "seconds", false, false)); #line 2289 "runtime.in" addFunc(ve, run::gen_runtime135, primVoid(), "usleep", formal(primInt(), "microseconds", false, false)); #line 2295 "runtime.in" addFunc(ve, run::gen_runtime136, primVoid(), "_eval", formal(primString(), "s", false, false), formal(primBoolean(), "embedded", false, false), formal(primBoolean(), "interactivewrite", true, false)); #line 2308 "runtime.in" addFunc(ve, run::gen_runtime137, primVoid(), "_eval", formal(primCode(), "s", false, false), formal(primBoolean(), "embedded", false, false)); #line 2324 "runtime.in" addFunc(ve, run::gen_runtime138, primString() , "location"); #line 2330 "runtime.in" REGISTER_BLTIN(run::loadModule,"loadModule"); #line 2336 "runtime.in" addFunc(ve, run::gen_runtime140, primString() , "cd", formal(primString() , "s", true, false)); #line 2342 "runtime.in" addFunc(ve, run::gen_runtime141, primVoid(), "list", formal(primString(), "s", false, false), formal(primBoolean(), "imports", true, false)); #line 2351 "runtime.in" REGISTER_BLTIN(run::nullPath,"nullPath"); #line 2359 "runtime.in" addFunc(ve, run::gen_runtime143, primBoolean(), "==", formal(primPath(), "a", false, false), formal(primPath(), "b", false, false)); #line 2364 "runtime.in" addFunc(ve, run::gen_runtime144, primBoolean(), "!=", formal(primPath(), "a", false, false), formal(primPath(), "b", false, false)); #line 2369 "runtime.in" addFunc(ve, run::gen_runtime145, primPair(), "point", formal(primPath(), "p", false, false), formal(primInt(), "t", false, false)); #line 2374 "runtime.in" addFunc(ve, run::gen_runtime146, primPair(), "point", formal(primPath(), "p", false, false), formal(primReal(), "t", false, false)); #line 2379 "runtime.in" addFunc(ve, run::gen_runtime147, primPair(), "precontrol", formal(primPath(), "p", false, false), formal(primInt(), "t", false, false)); #line 2384 "runtime.in" addFunc(ve, run::gen_runtime148, primPair(), "precontrol", formal(primPath(), "p", false, false), formal(primReal(), "t", false, false)); #line 2389 "runtime.in" addFunc(ve, run::gen_runtime149, primPair(), "postcontrol", formal(primPath(), "p", false, false), formal(primInt(), "t", false, false)); #line 2394 "runtime.in" addFunc(ve, run::gen_runtime150, primPair(), "postcontrol", formal(primPath(), "p", false, false), formal(primReal(), "t", false, false)); #line 2399 "runtime.in" addFunc(ve, run::gen_runtime151, primPair(), "dir", formal(primPath(), "p", false, false), formal(primInt(), "t", false, false), formal(primInt(), "sign", true, false), formal(primBoolean(), "normalize", true, false)); #line 2404 "runtime.in" addFunc(ve, run::gen_runtime152, primPair(), "dir", formal(primPath(), "p", false, false), formal(primReal(), "t", false, false), formal(primBoolean(), "normalize", true, false)); #line 2409 "runtime.in" addFunc(ve, run::gen_runtime153, primPair(), "accel", formal(primPath(), "p", false, false), formal(primInt(), "t", false, false), formal(primInt(), "sign", true, false)); #line 2414 "runtime.in" addFunc(ve, run::gen_runtime154, primPair(), "accel", formal(primPath(), "p", false, false), formal(primReal(), "t", false, false)); #line 2419 "runtime.in" addFunc(ve, run::gen_runtime155, primReal(), "radius", formal(primPath(), "p", false, false), formal(primReal(), "t", false, false)); #line 2431 "runtime.in" addFunc(ve, run::gen_runtime156, primPath(), "reverse", formal(primPath(), "p", false, false)); #line 2436 "runtime.in" addFunc(ve, run::gen_runtime157, primPath(), "subpath", formal(primPath(), "p", false, false), formal(primInt(), "a", false, false), formal(primInt(), "b", false, false)); #line 2441 "runtime.in" addFunc(ve, run::gen_runtime158, primPath(), "subpath", formal(primPath(), "p", false, false), formal(primReal(), "a", false, false), formal(primReal(), "b", false, false)); #line 2446 "runtime.in" addFunc(ve, run::gen_runtime159, primPath(), "nurb", formal(primPair(), "z0", false, false), formal(primPair(), "z1", false, false), formal(primPair(), "z2", false, false), formal(primPair(), "z3", false, false), formal(primReal(), "w0", false, false), formal(primReal(), "w1", false, false), formal(primReal(), "w2", false, false), formal(primReal(), "w3", false, false), formal(primInt(), "m", false, false)); #line 2452 "runtime.in" addFunc(ve, run::gen_runtime160, primInt(), "length", formal(primPath(), "p", false, false)); #line 2457 "runtime.in" addFunc(ve, run::gen_runtime161, primBoolean(), "cyclic", formal(primPath(), "p", false, false)); #line 2462 "runtime.in" addFunc(ve, run::gen_runtime162, primBoolean(), "straight", formal(primPath(), "p", false, false), formal(primInt(), "t", false, false)); #line 2467 "runtime.in" addFunc(ve, run::gen_runtime163, primPath(), "unstraighten", formal(primPath(), "p", false, false)); #line 2472 "runtime.in" addFunc(ve, run::gen_runtime164, primBoolean(), "piecewisestraight", formal(primPath(), "p", false, false)); #line 2477 "runtime.in" addFunc(ve, run::gen_runtime165, primReal(), "arclength", formal(primPath(), "p", false, false)); #line 2482 "runtime.in" addFunc(ve, run::gen_runtime166, primReal(), "arctime", formal(primPath(), "p", false, false), formal(primReal(), "dval", false, false)); #line 2487 "runtime.in" addFunc(ve, run::gen_runtime167, primReal(), "dirtime", formal(primPath(), "p", false, false), formal(primPair(), "z", false, false)); #line 2492 "runtime.in" addFunc(ve, run::gen_runtime168, realArray(), "intersect", formal(primPath(), "p", false, false), formal(primPath(), "q", false, false), formal(primReal(), "fuzz", true, false)); #line 2509 "runtime.in" addFunc(ve, run::gen_runtime169, realArray2(), "intersections", formal(primPath(), "p", false, false), formal(primPath(), "q", false, false), formal(primReal(), "fuzz", true, false)); #line 2540 "runtime.in" addFunc(ve, run::gen_runtime170, realArray(), "intersections", formal(primPath(), "p", false, false), formal(primPair(), "a", false, true), formal(primPair(), "b", false, true), formal(primReal(), "fuzz", true, false)); #line 2555 "runtime.in" addFunc(ve, run::gen_runtime171, primPair(), "extension", formal(primPair(), "p", false, false), formal(primPair(), "q", false, false), formal(primPair(), "p", false, false), formal(primPair(), "q", false, false)); #line 2566 "runtime.in" addFunc(ve, run::gen_runtime172, primInt(), "size", formal(primPath(), "p", false, false)); #line 2571 "runtime.in" addFunc(ve, run::gen_runtime173, primPath(), "&", formal(primPath(), "p", false, false), formal(primPath(), "q", false, false)); #line 2576 "runtime.in" addFunc(ve, run::gen_runtime174, primPair(), "min", formal(primPath(), "p", false, false)); #line 2581 "runtime.in" addFunc(ve, run::gen_runtime175, primPair(), "max", formal(primPath(), "p", false, false)); #line 2586 "runtime.in" addFunc(ve, run::gen_runtime176, realArray(), "mintimes", formal(primPath(), "p", false, false)); #line 2595 "runtime.in" addFunc(ve, run::gen_runtime177, realArray(), "maxtimes", formal(primPath(), "p", false, false)); #line 2604 "runtime.in" addFunc(ve, run::gen_runtime178, primReal(), "relativedistance", formal(primReal(), "theta", false, false), formal(primReal(), "phi", false, false), formal(primReal(), "t", false, false), formal(primBoolean(), "atleast", false, false)); #line 2609 "runtime.in" addFunc(ve, run::gen_runtime179, primInt(), "windingnumber", formal(pathArray() , "p", false, false), formal(primPair(), "z", false, false)); #line 2614 "runtime.in" addFunc(ve, run::gen_runtime180, primBoolean(), "inside", formal(pathArray() , "g", false, true), formal(primPair(), "z", false, false), formal(primPen(), "fillrule", true, false)); #line 2619 "runtime.in" addFunc(ve, run::gen_runtime181, primBoolean(), "inside", formal(primPath(), "g", false, false), formal(primPair(), "z", false, false), formal(primPen(), "fillrule", true, false)); #line 2624 "runtime.in" addFunc(ve, run::gen_runtime182, primReal(), "side", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false), formal(primPair(), "c", false, false)); #line 2631 "runtime.in" addFunc(ve, run::gen_runtime183, primReal(), "incircle", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false), formal(primPair(), "c", false, false), formal(primPair(), "d", false, false)); #line 2639 "runtime.in" addFunc(ve, run::gen_runtime184, primPath3(), "path3", formal(tripleArray(), "pre", false, false), formal(tripleArray(), "point", false, false), formal(tripleArray(), "post", false, false), formal(booleanArray(), "straight", false, false), formal(primBoolean(), "cyclic", false, false)); #line 2659 "runtime.in" REGISTER_BLTIN(run::nullPath3,"nullPath3"); #line 2664 "runtime.in" addFunc(ve, run::gen_runtime186, primBoolean(), "==", formal(primPath3(), "a", false, false), formal(primPath3(), "b", false, false)); #line 2669 "runtime.in" addFunc(ve, run::gen_runtime187, primBoolean(), "!=", formal(primPath3(), "a", false, false), formal(primPath3(), "b", false, false)); #line 2674 "runtime.in" addFunc(ve, run::gen_runtime188, primTriple(), "point", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false)); #line 2679 "runtime.in" addFunc(ve, run::gen_runtime189, primTriple(), "point", formal(primPath3(), "p", false, false), formal(primReal(), "t", false, false)); #line 2684 "runtime.in" addFunc(ve, run::gen_runtime190, primTriple(), "precontrol", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false)); #line 2689 "runtime.in" addFunc(ve, run::gen_runtime191, primTriple(), "precontrol", formal(primPath3(), "p", false, false), formal(primReal(), "t", false, false)); #line 2694 "runtime.in" addFunc(ve, run::gen_runtime192, primTriple(), "postcontrol", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false)); #line 2699 "runtime.in" addFunc(ve, run::gen_runtime193, primTriple(), "postcontrol", formal(primPath3(), "p", false, false), formal(primReal(), "t", false, false)); #line 2704 "runtime.in" addFunc(ve, run::gen_runtime194, primTriple(), "dir", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false), formal(primInt(), "sign", true, false), formal(primBoolean(), "normalize", true, false)); #line 2709 "runtime.in" addFunc(ve, run::gen_runtime195, primTriple(), "dir", formal(primPath3(), "p", false, false), formal(primReal(), "t", false, false), formal(primBoolean(), "normalize", true, false)); #line 2714 "runtime.in" addFunc(ve, run::gen_runtime196, primTriple(), "accel", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false), formal(primInt(), "sign", true, false)); #line 2719 "runtime.in" addFunc(ve, run::gen_runtime197, primTriple(), "accel", formal(primPath3(), "p", false, false), formal(primReal(), "t", false, false)); #line 2724 "runtime.in" addFunc(ve, run::gen_runtime198, primReal(), "radius", formal(primPath3(), "p", false, false), formal(primReal(), "t", false, false)); #line 2736 "runtime.in" addFunc(ve, run::gen_runtime199, primReal(), "radius", formal(primTriple(), "z0", false, false), formal(primTriple(), "c0", false, false), formal(primTriple(), "c1", false, false), formal(primTriple(), "z1", false, false), formal(primReal(), "t", false, false)); #line 2748 "runtime.in" addFunc(ve, run::gen_runtime200, primPath3(), "reverse", formal(primPath3(), "p", false, false)); #line 2753 "runtime.in" addFunc(ve, run::gen_runtime201, primPath3(), "subpath", formal(primPath3(), "p", false, false), formal(primInt(), "a", false, false), formal(primInt(), "b", false, false)); #line 2758 "runtime.in" addFunc(ve, run::gen_runtime202, primPath3(), "subpath", formal(primPath3(), "p", false, false), formal(primReal(), "a", false, false), formal(primReal(), "b", false, false)); #line 2763 "runtime.in" addFunc(ve, run::gen_runtime203, primInt(), "length", formal(primPath3(), "p", false, false)); #line 2768 "runtime.in" addFunc(ve, run::gen_runtime204, primBoolean(), "cyclic", formal(primPath3(), "p", false, false)); #line 2773 "runtime.in" addFunc(ve, run::gen_runtime205, primBoolean(), "straight", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false)); #line 2778 "runtime.in" addFunc(ve, run::gen_runtime206, primTriple(), "perp", formal(primTriple(), "v", false, false), formal(primTriple(), "u", false, false)); #line 2784 "runtime.in" addFunc(ve, run::gen_runtime207, primReal(), "straightness", formal(primPath3(), "p", false, false), formal(primInt(), "t", false, false)); #line 2795 "runtime.in" addFunc(ve, run::gen_runtime208, primReal(), "straightness", formal(primTriple(), "z0", false, false), formal(primTriple(), "c0", false, false), formal(primTriple(), "c1", false, false), formal(primTriple(), "z1", false, false)); #line 2803 "runtime.in" addFunc(ve, run::gen_runtime209, primBoolean(), "piecewisestraight", formal(primPath3(), "p", false, false)); #line 2808 "runtime.in" addFunc(ve, run::gen_runtime210, primReal(), "arclength", formal(primPath3(), "p", false, false)); #line 2813 "runtime.in" addFunc(ve, run::gen_runtime211, primReal(), "arctime", formal(primPath3(), "p", false, false), formal(primReal(), "dval", false, false)); #line 2818 "runtime.in" addFunc(ve, run::gen_runtime212, realArray(), "intersect", formal(primPath3(), "p", false, false), formal(primPath3(), "q", false, false), formal(primReal(), "fuzz", true, false)); #line 2836 "runtime.in" addFunc(ve, run::gen_runtime213, realArray2(), "intersections", formal(primPath3(), "p", false, false), formal(primPath3(), "q", false, false), formal(primReal(), "fuzz", true, false)); #line 2869 "runtime.in" addFunc(ve, run::gen_runtime214, realArray2(), "intersections", formal(primPath3(), "p", false, false), formal(tripleArray2(), "p", false, false), formal(primReal(), "fuzz", true, false)); #line 2889 "runtime.in" addFunc(ve, run::gen_runtime215, primInt(), "size", formal(primPath3(), "p", false, false)); #line 2894 "runtime.in" addFunc(ve, run::gen_runtime216, primPath3(), "&", formal(primPath3(), "p", false, false), formal(primPath3(), "q", false, false)); #line 2899 "runtime.in" addFunc(ve, run::gen_runtime217, primTriple(), "min", formal(primPath3(), "p", false, false)); #line 2904 "runtime.in" addFunc(ve, run::gen_runtime218, primTriple(), "max", formal(primPath3(), "p", false, false)); #line 2909 "runtime.in" addFunc(ve, run::gen_runtime219, realArray(), "mintimes", formal(primPath3(), "p", false, false)); #line 2919 "runtime.in" addFunc(ve, run::gen_runtime220, realArray(), "maxtimes", formal(primPath3(), "p", false, false)); #line 2929 "runtime.in" addFunc(ve, run::gen_runtime221, primPath3(), "*", formal(realArray2(), "t", false, false), formal(primPath3(), "g", false, false)); #line 2934 "runtime.in" REGISTER_BLTIN(run::nullGuide,"nullGuide"); #line 2942 "runtime.in" REGISTER_BLTIN(run::dotsGuide,"dotsGuide"); #line 2952 "runtime.in" REGISTER_BLTIN(run::dashesGuide,"dashesGuide"); #line 2979 "runtime.in" REGISTER_BLTIN(run::newCycleToken,"newCycleToken"); #line 2984 "runtime.in" addFunc(ve, run::gen_runtime226, primGuide(), "operator cast", formal(primCycleToken(), "tok", false, false)); #line 2991 "runtime.in" addFunc(ve, run::gen_runtime227, primGuide(), "operator spec", formal(primPair(), "z", false, false), formal(primInt(), "p", false, false)); #line 2999 "runtime.in" addFunc(ve, run::gen_runtime228, primCurlSpecifier(), "operator curl", formal(primReal(), "gamma", false, false), formal(primInt(), "p", false, false)); #line 3005 "runtime.in" REGISTER_BLTIN(run::curlSpecifierValuePart,"curlSpecifierValuePart"); #line 3010 "runtime.in" REGISTER_BLTIN(run::curlSpecifierSidePart,"curlSpecifierSidePart"); #line 3015 "runtime.in" addFunc(ve, run::gen_runtime231, primGuide(), "operator cast", formal(primCurlSpecifier(), "spec", false, false)); #line 3020 "runtime.in" addFunc(ve, run::gen_runtime232, primTensionSpecifier(), "operator tension", formal(primReal(), "tout", false, false), formal(primReal(), "tin", false, false), formal(primBoolean(), "atleast", false, false)); #line 3025 "runtime.in" REGISTER_BLTIN(run::tensionSpecifierOutPart,"tensionSpecifierOutPart"); #line 3030 "runtime.in" REGISTER_BLTIN(run::tensionSpecifierInPart,"tensionSpecifierInPart"); #line 3035 "runtime.in" REGISTER_BLTIN(run::tensionSpecifierAtleastPart,"tensionSpecifierAtleastPart"); #line 3040 "runtime.in" addFunc(ve, run::gen_runtime236, primGuide(), "operator cast", formal(primTensionSpecifier(), "t", false, false)); #line 3045 "runtime.in" addFunc(ve, run::gen_runtime237, primGuide(), "operator controls", formal(primPair(), "zout", false, false), formal(primPair(), "zin", false, false)); #line 3050 "runtime.in" addFunc(ve, run::gen_runtime238, primInt(), "size", formal(primGuide(), "g", false, false)); #line 3057 "runtime.in" addFunc(ve, run::gen_runtime239, primInt(), "length", formal(primGuide(), "g", false, false)); #line 3064 "runtime.in" addFunc(ve, run::gen_runtime240, primBoolean(), "cyclic", formal(primGuide(), "g", false, false)); #line 3071 "runtime.in" addFunc(ve, run::gen_runtime241, primPair(), "point", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false)); #line 3078 "runtime.in" addFunc(ve, run::gen_runtime242, pairArray(), "dirSpecifier", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false)); #line 3090 "runtime.in" addFunc(ve, run::gen_runtime243, pairArray(), "controlSpecifier", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false)); #line 3107 "runtime.in" addFunc(ve, run::gen_runtime244, primTensionSpecifier(), "tensionSpecifier", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false)); #line 3117 "runtime.in" addFunc(ve, run::gen_runtime245, realArray(), "curlSpecifier", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false)); #line 3131 "runtime.in" addFunc(ve, run::gen_runtime246, primGuide(), "reverse", formal(primGuide(), "g", false, false)); #line 3185 "runtime.in" addFunc(ve, run::gen_runtime247, primVoid(), "_draw", formal(primPicture(), "f", false, false), formal(primPath3(), "g", false, false), formal(primPen(), "p", false, false)); #line 3194 "runtime.in" addFunc(ve, run::gen_runtime248, primVoid(), "draw", formal(primPicture(), "f", false, false), formal(tripleArray2(), "g", false, false), formal(primBoolean(), "straight", false, false), formal(penArray() , "p", false, false), formal(primReal(), "opacity", false, false), formal(primReal(), "shininess", false, false), formal(primReal(), "prcshininess", false, false), formal(primReal(), "granularity", false, false), formal(primTriple(), "normal", false, false), formal(primBoolean(), "lighton", false, false), formal(penArray() , "colors", false, false)); #line 3202 "runtime.in" addFunc(ve, run::gen_runtime249, primTriple(), "min3", formal(primPicture(), "f", false, false)); #line 3207 "runtime.in" addFunc(ve, run::gen_runtime250, primTriple(), "max3", formal(primPicture(), "f", false, false)); #line 3212 "runtime.in" addFunc(ve, run::gen_runtime251, primPair(), "minratio", formal(primPicture(), "f", false, false)); #line 3217 "runtime.in" addFunc(ve, run::gen_runtime252, primPair(), "maxratio", formal(primPicture(), "f", false, false)); #line 3222 "runtime.in" addFunc(ve, run::gen_runtime253, primTriple(), "minbezier", formal(tripleArray2(), "p", false, false), formal(primTriple(), "b", false, false)); #line 3232 "runtime.in" addFunc(ve, run::gen_runtime254, primTriple(), "maxbezier", formal(tripleArray2(), "p", false, false), formal(primTriple(), "b", false, false)); #line 3242 "runtime.in" addFunc(ve, run::gen_runtime255, primPair(), "minratio", formal(tripleArray2(), "p", false, false), formal(primPair(), "b", false, false)); #line 3252 "runtime.in" addFunc(ve, run::gen_runtime256, primPair(), "maxratio", formal(tripleArray2(), "p", false, false), formal(primPair(), "b", false, false)); #line 3262 "runtime.in" addFunc(ve, run::gen_runtime257, primPair(), "minratio", formal(primPath3(), "g", false, false)); #line 3267 "runtime.in" addFunc(ve, run::gen_runtime258, primPair(), "maxratio", formal(primPath3(), "g", false, false)); #line 3272 "runtime.in" addFunc(ve, run::gen_runtime259, primReal(), "norm", formal(realArray(), "a", false, false)); #line 3283 "runtime.in" addFunc(ve, run::gen_runtime260, primReal(), "norm", formal(realArray2(), "a", false, false)); #line 3298 "runtime.in" addFunc(ve, run::gen_runtime261, primReal(), "norm", formal(tripleArray2(), "a", false, false)); #line 3313 "runtime.in" addFunc(ve, run::gen_runtime262, primReal(), "change2", formal(tripleArray2(), "a", false, false)); #line 3335 "runtime.in" addFunc(ve, run::gen_runtime263, primBoolean(), "is3D", formal(primPicture(), "f", false, false)); #line 3340 "runtime.in" addFunc(ve, run::gen_runtime264, primPair(), "bezier", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false), formal(primPair(), "c", false, false), formal(primPair(), "d", false, false), formal(primReal(), "t", false, false)); #line 3347 "runtime.in" addFunc(ve, run::gen_runtime265, primPair(), "bezierP", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false), formal(primPair(), "c", false, false), formal(primPair(), "d", false, false), formal(primReal(), "t", false, false)); #line 3352 "runtime.in" addFunc(ve, run::gen_runtime266, primPair(), "bezierPP", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false), formal(primPair(), "c", false, false), formal(primPair(), "d", false, false), formal(primReal(), "t", false, false)); #line 3357 "runtime.in" addFunc(ve, run::gen_runtime267, primPair(), "bezierPPP", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false), formal(primPair(), "c", false, false), formal(primPair(), "d", false, false)); #line 3362 "runtime.in" addFunc(ve, run::gen_runtime268, primTriple(), "bezier", formal(primTriple(), "a", false, false), formal(primTriple(), "b", false, false), formal(primTriple(), "c", false, false), formal(primTriple(), "d", false, false), formal(primReal(), "t", false, false)); #line 3369 "runtime.in" addFunc(ve, run::gen_runtime269, primTriple(), "bezierP", formal(primTriple(), "a", false, false), formal(primTriple(), "b", false, false), formal(primTriple(), "c", false, false), formal(primTriple(), "d", false, false), formal(primReal(), "t", false, false)); #line 3374 "runtime.in" addFunc(ve, run::gen_runtime270, primTriple(), "bezierPP", formal(primTriple(), "a", false, false), formal(primTriple(), "b", false, false), formal(primTriple(), "c", false, false), formal(primTriple(), "d", false, false), formal(primReal(), "t", false, false)); #line 3379 "runtime.in" addFunc(ve, run::gen_runtime271, primTriple(), "bezierPPP", formal(primTriple(), "a", false, false), formal(primTriple(), "b", false, false), formal(primTriple(), "c", false, false), formal(primTriple(), "d", false, false)); #line 3384 "runtime.in" REGISTER_BLTIN(run::emptyString,"emptyString"); #line 3392 "runtime.in" addFunc(ve, run::gen_runtime273, primInt(), "length", formal(primString(), "s", false, false)); #line 3397 "runtime.in" addFunc(ve, run::gen_runtime274, primInt(), "find", formal(primString(), "s", false, false), formal(primString() , "t", false, false), formal(primInt(), "pos", true, false)); #line 3403 "runtime.in" addFunc(ve, run::gen_runtime275, primInt(), "rfind", formal(primString(), "s", false, false), formal(primString() , "t", false, false), formal(primInt(), "pos", true, false)); #line 3409 "runtime.in" addFunc(ve, run::gen_runtime276, primString() , "reverse", formal(primString() , "s", false, false)); #line 3415 "runtime.in" addFunc(ve, run::gen_runtime277, primString() , "insert", formal(primString() , "s", false, false), formal(primInt(), "pos", false, false), formal(primString() , "t", false, false)); #line 3422 "runtime.in" addFunc(ve, run::gen_runtime278, primString() , "substr", formal(primString(), "s", false, false), formal(primInt(), "pos", false, false), formal(primInt(), "n", true, false)); #line 3429 "runtime.in" addFunc(ve, run::gen_runtime279, primString() , "erase", formal(primString() , "s", false, false), formal(primInt(), "pos", false, false), formal(primInt(), "n", false, false)); #line 3436 "runtime.in" addFunc(ve, run::gen_runtime280, primString() , "downcase", formal(primString() , "s", false, false)); #line 3442 "runtime.in" addFunc(ve, run::gen_runtime281, primString() , "upcase", formal(primString() , "s", false, false)); #line 3448 "runtime.in" addFunc(ve, run::gen_runtime282, primString() , "replace", formal(primString(), "s", false, false), formal(stringArray2(), "translate", false, false)); #line 3475 "runtime.in" addFunc(ve, run::gen_runtime283, primString() , "format", formal(primString(), "format", false, false), formal(primInt(), "x", false, false)); #line 3490 "runtime.in" addFunc(ve, run::gen_runtime284, primString() , "format", formal(primString(), "format", false, false), formal(primReal(), "x", false, false), formal(primString() , "locale", true, false)); #line 3615 "runtime.in" addFunc(ve, run::gen_runtime285, primInt(), "hex", formal(primString() , "s", false, false)); #line 3626 "runtime.in" addFunc(ve, run::gen_runtime286, primString() , "string", formal(primInt(), "x", false, false)); #line 3633 "runtime.in" addFunc(ve, run::gen_runtime287, primString() , "string", formal(primReal(), "x", false, false), formal(primInt(), "digits", true, false)); #line 3641 "runtime.in" addFunc(ve, run::gen_runtime288, primString() , "time", formal(primString() , "format", true, false)); #line 3652 "runtime.in" addFunc(ve, run::gen_runtime289, primString() , "time", formal(primInt(), "seconds", false, false), formal(primString() , "format", true, false)); #line 3665 "runtime.in" addFunc(ve, run::gen_runtime290, primInt(), "seconds", formal(primString() , "t", true, false), formal(primString() , "format", true, false)); #line 3677 "runtime.in" addFunc(ve, run::gen_runtime291, realArray(), "_cputime"); #line 3691 "runtime.in" addFunc(ve, run::gen_runtime292, primReal(), "^", formal(primReal(), "x", false, false), formal(primInt(), "y", false, false)); #line 3699 "runtime.in" addFunc(ve, run::gen_runtime293, primPair(), "^", formal(primPair(), "z", false, false), formal(primInt(), "y", false, false)); #line 3704 "runtime.in" addFunc(ve, run::gen_runtime294, primInt(), "quotient", formal(primInt(), "x", false, false), formal(primInt(), "y", false, false)); #line 3712 "runtime.in" addFunc(ve, run::gen_runtime295, primInt(), "abs", formal(primInt(), "x", false, false)); #line 3717 "runtime.in" addFunc(ve, run::gen_runtime296, primInt(), "sgn", formal(primReal(), "x", false, false)); #line 3722 "runtime.in" addFunc(ve, run::gen_runtime297, primInt(), "rand"); #line 3727 "runtime.in" addFunc(ve, run::gen_runtime298, primVoid(), "srand", formal(primInt(), "seed", false, false)); #line 3732 "runtime.in" addFunc(ve, run::gen_runtime299, primReal(), "unitrand"); #line 3738 "runtime.in" addFunc(ve, run::gen_runtime300, primInt(), "ceil", formal(primReal(), "x", false, false)); #line 3743 "runtime.in" addFunc(ve, run::gen_runtime301, primInt(), "floor", formal(primReal(), "x", false, false)); #line 3748 "runtime.in" addFunc(ve, run::gen_runtime302, primInt(), "round", formal(primReal(), "x", false, false)); #line 3754 "runtime.in" addFunc(ve, run::gen_runtime303, primInt(), "Ceil", formal(primReal(), "x", false, false)); #line 3759 "runtime.in" addFunc(ve, run::gen_runtime304, primInt(), "Floor", formal(primReal(), "x", false, false)); #line 3764 "runtime.in" addFunc(ve, run::gen_runtime305, primInt(), "Round", formal(primReal(), "x", false, false)); #line 3769 "runtime.in" addFunc(ve, run::gen_runtime306, primReal(), "fmod", formal(primReal(), "x", false, false), formal(primReal(), "y", false, false)); #line 3775 "runtime.in" addFunc(ve, run::gen_runtime307, primReal(), "atan2", formal(primReal(), "y", false, false), formal(primReal(), "x", false, false)); #line 3780 "runtime.in" addFunc(ve, run::gen_runtime308, primReal(), "hypot", formal(primReal(), "x", false, false), formal(primReal(), "y", false, false)); #line 3785 "runtime.in" addFunc(ve, run::gen_runtime309, primReal(), "remainder", formal(primReal(), "x", false, false), formal(primReal(), "y", false, false)); #line 3790 "runtime.in" addFunc(ve, run::gen_runtime310, primReal(), "J", formal(primInt(), "n", false, false), formal(primReal(), "x", false, false)); #line 3795 "runtime.in" addFunc(ve, run::gen_runtime311, primReal(), "Y", formal(primInt(), "n", false, false), formal(primReal(), "x", false, false)); #line 3800 "runtime.in" addFunc(ve, run::gen_runtime312, primReal(), "erf", formal(primReal(), "x", false, false)); #line 3805 "runtime.in" addFunc(ve, run::gen_runtime313, primReal(), "erfc", formal(primReal(), "x", false, false)); #line 3810 "runtime.in" addFunc(ve, run::gen_runtime314, primInt(), "factorial", formal(primInt(), "n", false, false)); #line 3815 "runtime.in" addFunc(ve, run::gen_runtime315, primInt(), "choose", formal(primInt(), "n", false, false), formal(primInt(), "k", false, false)); #line 3826 "runtime.in" addFunc(ve, run::gen_runtime316, primReal(), "gamma", formal(primReal(), "x", false, false)); #line 3836 "runtime.in" addFunc(ve, run::gen_runtime317, primPair(), "gamma", formal(primPair(), "z", false, true)); #line 3842 "runtime.in" addFunc(ve, run::gen_runtime318, realArray(), "quadraticroots", formal(primReal(), "a", false, false), formal(primReal(), "b", false, false), formal(primReal(), "c", false, false)); #line 3851 "runtime.in" addFunc(ve, run::gen_runtime319, pairArray(), "quadraticroots", formal(primPair(), "a", false, true), formal(primPair(), "b", false, true), formal(primPair(), "c", false, true)); #line 3860 "runtime.in" addFunc(ve, run::gen_runtime320, realArray(), "cubicroots", formal(primReal(), "a", false, false), formal(primReal(), "b", false, false), formal(primReal(), "c", false, false), formal(primReal(), "d", false, false)); #line 3870 "runtime.in" addFunc(ve, run::gen_runtime321, primBoolean(), "==", formal(primTransform(), "a", false, false), formal(primTransform(), "b", false, false)); #line 3878 "runtime.in" addFunc(ve, run::gen_runtime322, primBoolean(), "!=", formal(primTransform(), "a", false, false), formal(primTransform(), "b", false, false)); #line 3883 "runtime.in" addFunc(ve, run::gen_runtime323, primTransform(), "+", formal(primTransform(), "a", false, false), formal(primTransform(), "b", false, false)); #line 3888 "runtime.in" addFunc(ve, run::gen_runtime324, primTransform(), "*", formal(primTransform(), "a", false, false), formal(primTransform(), "b", false, false)); #line 3893 "runtime.in" addFunc(ve, run::gen_runtime325, primPair(), "*", formal(primTransform(), "t", false, false), formal(primPair(), "z", false, false)); #line 3898 "runtime.in" addFunc(ve, run::gen_runtime326, primPath(), "*", formal(primTransform(), "t", false, false), formal(primPath(), "g", false, false)); #line 3903 "runtime.in" addFunc(ve, run::gen_runtime327, primPen(), "*", formal(primTransform(), "t", false, false), formal(primPen(), "p", false, false)); #line 3908 "runtime.in" addFunc(ve, run::gen_runtime328, primPicture(), "*", formal(primTransform(), "t", false, false), formal(primPicture(), "f", false, false)); #line 3913 "runtime.in" addFunc(ve, run::gen_runtime329, primPicture(), "*", formal(realArray2(), "t", false, false), formal(primPicture(), "f", false, false)); #line 3918 "runtime.in" addFunc(ve, run::gen_runtime330, primTransform(), "^", formal(primTransform(), "t", false, false), formal(primInt(), "n", false, false)); #line 3929 "runtime.in" REGISTER_BLTIN(run::transformXPart,"transformXPart"); #line 3934 "runtime.in" REGISTER_BLTIN(run::transformYPart,"transformYPart"); #line 3939 "runtime.in" REGISTER_BLTIN(run::transformXXPart,"transformXXPart"); #line 3944 "runtime.in" REGISTER_BLTIN(run::transformXYPart,"transformXYPart"); #line 3949 "runtime.in" REGISTER_BLTIN(run::transformYXPart,"transformYXPart"); #line 3954 "runtime.in" REGISTER_BLTIN(run::transformYYPart,"transformYYPart"); #line 3959 "runtime.in" REGISTER_BLTIN(run::real6ToTransform,"real6ToTransform"); #line 3965 "runtime.in" addFunc(ve, run::gen_runtime338, primTransform(), "shift", formal(primTransform(), "t", false, false)); #line 3970 "runtime.in" addFunc(ve, run::gen_runtime339, primTransform(), "shiftless", formal(primTransform(), "t", false, false)); #line 3975 "runtime.in" addFunc(ve, run::transformIdentity, primTransform(), "identity"); #line 3980 "runtime.in" addFunc(ve, run::gen_runtime341, primTransform(), "inverse", formal(primTransform(), "t", false, false)); #line 3985 "runtime.in" addFunc(ve, run::gen_runtime342, primTransform(), "shift", formal(primPair(), "z", false, false)); #line 3990 "runtime.in" addFunc(ve, run::gen_runtime343, primTransform(), "shift", formal(primReal(), "x", false, false), formal(primReal(), "y", false, false)); #line 3995 "runtime.in" addFunc(ve, run::gen_runtime344, primTransform(), "xscale", formal(primReal(), "x", false, false)); #line 4000 "runtime.in" addFunc(ve, run::gen_runtime345, primTransform(), "yscale", formal(primReal(), "y", false, false)); #line 4005 "runtime.in" addFunc(ve, run::gen_runtime346, primTransform(), "scale", formal(primReal(), "x", false, false)); #line 4010 "runtime.in" addFunc(ve, run::gen_runtime347, primTransform(), "scale", formal(primReal(), "x", false, false), formal(primReal(), "y", false, false)); #line 4015 "runtime.in" addFunc(ve, run::gen_runtime348, primTransform(), "slant", formal(primReal(), "s", false, false)); #line 4020 "runtime.in" addFunc(ve, run::gen_runtime349, primTransform(), "rotate", formal(primReal(), "angle", false, false), formal(primPair(), "z", true, false)); #line 4025 "runtime.in" addFunc(ve, run::gen_runtime350, primTransform(), "reflect", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false)); #line 4030 "runtime.in" REGISTER_BLTIN(run::pairZero,"pairZero"); #line 4038 "runtime.in" REGISTER_BLTIN(run::realRealToPair,"realRealToPair"); #line 4043 "runtime.in" REGISTER_BLTIN(run::pairNegate,"pairNegate"); #line 4048 "runtime.in" addFunc(ve, run::pairXPart, primReal(), "xpart", formal(primPair(), "z", false, false)); #line 4053 "runtime.in" addFunc(ve, run::pairYPart, primReal(), "ypart", formal(primPair(), "z", false, false)); #line 4058 "runtime.in" addFunc(ve, run::gen_runtime356, primReal(), "length", formal(primPair(), "z", false, false)); #line 4063 "runtime.in" addFunc(ve, run::gen_runtime357, primReal(), "abs", formal(primPair(), "z", false, false)); #line 4068 "runtime.in" addFunc(ve, run::gen_runtime358, primPair(), "sqrt", formal(primPair(), "z", false, true)); #line 4073 "runtime.in" addFunc(ve, run::gen_runtime359, primReal(), "angle", formal(primPair(), "z", false, false), formal(primBoolean(), "warn", true, false)); #line 4080 "runtime.in" addFunc(ve, run::gen_runtime360, primReal(), "degrees", formal(primPair(), "z", false, false), formal(primBoolean(), "warn", true, false)); #line 4087 "runtime.in" addFunc(ve, run::gen_runtime361, primReal(), "radians", formal(primReal(), "degrees", false, false)); #line 4093 "runtime.in" addFunc(ve, run::gen_runtime362, primReal(), "degrees", formal(primReal(), "radians", false, false)); #line 4099 "runtime.in" addFunc(ve, run::gen_runtime363, primReal(), "Degrees", formal(primReal(), "radians", false, false)); #line 4105 "runtime.in" addFunc(ve, run::gen_runtime364, primReal(), "Sin", formal(primReal(), "deg", false, false)); #line 4110 "runtime.in" addFunc(ve, run::gen_runtime365, primReal(), "Cos", formal(primReal(), "deg", false, false)); #line 4115 "runtime.in" addFunc(ve, run::gen_runtime366, primReal(), "Tan", formal(primReal(), "deg", false, false)); #line 4120 "runtime.in" addFunc(ve, run::gen_runtime367, primReal(), "aSin", formal(primReal(), "x", false, false)); #line 4125 "runtime.in" addFunc(ve, run::gen_runtime368, primReal(), "aCos", formal(primReal(), "x", false, false)); #line 4130 "runtime.in" addFunc(ve, run::gen_runtime369, primReal(), "aTan", formal(primReal(), "x", false, false)); #line 4135 "runtime.in" addFunc(ve, run::gen_runtime370, primPair(), "unit", formal(primPair(), "z", false, false)); #line 4140 "runtime.in" addFunc(ve, run::gen_runtime371, primPair(), "dir", formal(primReal(), "degrees", false, false)); #line 4145 "runtime.in" addFunc(ve, run::gen_runtime372, primPair(), "dir", formal(primPair(), "z", false, true)); #line 4150 "runtime.in" addFunc(ve, run::gen_runtime373, primPair(), "expi", formal(primReal(), "angle", false, false)); #line 4155 "runtime.in" addFunc(ve, run::gen_runtime374, primPair(), "exp", formal(primPair(), "z", false, true)); #line 4160 "runtime.in" addFunc(ve, run::gen_runtime375, primPair(), "log", formal(primPair(), "z", false, true)); #line 4165 "runtime.in" addFunc(ve, run::gen_runtime376, primPair(), "sin", formal(primPair(), "z", false, true)); #line 4170 "runtime.in" addFunc(ve, run::gen_runtime377, primPair(), "cos", formal(primPair(), "z", false, true)); #line 4175 "runtime.in" addFunc(ve, run::gen_runtime378, primPair(), "conj", formal(primPair(), "z", false, false)); #line 4180 "runtime.in" addFunc(ve, run::gen_runtime379, primPair(), "realmult", formal(primPair(), "z", false, false), formal(primPair(), "w", false, false)); #line 4185 "runtime.in" addFunc(ve, run::gen_runtime380, primTriple(), "realmult", formal(primTriple(), "u", false, false), formal(primTriple(), "v", false, false)); #line 4190 "runtime.in" addFunc(ve, run::gen_runtime381, primReal(), "dot", formal(primPair(), "z", false, true), formal(primPair(), "w", false, true)); #line 4196 "runtime.in" REGISTER_BLTIN(run::tripleZero,"tripleZero"); #line 4205 "runtime.in" REGISTER_BLTIN(run::realRealRealToTriple,"realRealRealToTriple"); #line 4210 "runtime.in" addFunc(ve, run::tripleXPart, primReal(), "xpart", formal(primTriple(), "v", false, false)); #line 4215 "runtime.in" addFunc(ve, run::tripleYPart, primReal(), "ypart", formal(primTriple(), "v", false, false)); #line 4220 "runtime.in" addFunc(ve, run::tripleZPart, primReal(), "zpart", formal(primTriple(), "v", false, false)); #line 4225 "runtime.in" addFunc(ve, run::gen_runtime387, primTriple(), "*", formal(primReal(), "x", false, false), formal(primTriple(), "v", false, false)); #line 4230 "runtime.in" addFunc(ve, run::gen_runtime388, primTriple(), "*", formal(primTriple(), "v", false, false), formal(primReal(), "x", false, false)); #line 4235 "runtime.in" addFunc(ve, run::gen_runtime389, primTriple(), "/", formal(primTriple(), "v", false, false), formal(primReal(), "x", false, false)); #line 4240 "runtime.in" addFunc(ve, run::gen_runtime390, primReal(), "length", formal(primTriple(), "v", false, false)); #line 4245 "runtime.in" addFunc(ve, run::gen_runtime391, primReal(), "abs", formal(primTriple(), "v", false, false)); #line 4250 "runtime.in" addFunc(ve, run::gen_runtime392, primReal(), "polar", formal(primTriple(), "v", false, false), formal(primBoolean(), "warn", true, false)); #line 4256 "runtime.in" addFunc(ve, run::gen_runtime393, primReal(), "azimuth", formal(primTriple(), "v", false, false), formal(primBoolean(), "warn", true, false)); #line 4262 "runtime.in" addFunc(ve, run::gen_runtime394, primReal(), "colatitude", formal(primTriple(), "v", false, false), formal(primBoolean(), "warn", true, false)); #line 4268 "runtime.in" addFunc(ve, run::gen_runtime395, primReal(), "latitude", formal(primTriple(), "v", false, false), formal(primBoolean(), "warn", true, false)); #line 4274 "runtime.in" addFunc(ve, run::gen_runtime396, primReal(), "longitude", formal(primTriple(), "v", false, false), formal(primBoolean(), "warn", true, false)); #line 4281 "runtime.in" addFunc(ve, run::gen_runtime397, primTriple(), "unit", formal(primTriple(), "v", false, false)); #line 4286 "runtime.in" addFunc(ve, run::gen_runtime398, primReal(), "dot", formal(primTriple(), "u", false, false), formal(primTriple(), "v", false, false)); #line 4291 "runtime.in" addFunc(ve, run::gen_runtime399, primTriple(), "cross", formal(primTriple(), "u", false, false), formal(primTriple(), "v", false, false)); #line 4296 "runtime.in" addFunc(ve, run::gen_runtime400, primTriple(), "dir", formal(primTriple(), "z", false, true)); #line 4301 "runtime.in" addFunc(ve, run::gen_runtime401, primTriple(), "expi", formal(primReal(), "polar", false, false), formal(primReal(), "azimuth", false, false)); #line 4306 "runtime.in" addFunc(ve, run::gen_runtime402, primTriple(), "dir", formal(primReal(), "colatitude", false, false), formal(primReal(), "longitude", false, false)); #line 4311 "runtime.in" addFunc(ve, run::gen_runtime403, primVoid(), "atupdate", formal(voidFunction(), "f", false, false)); #line 4319 "runtime.in" addFunc(ve, run::gen_runtime404, voidFunction(), "atupdate"); #line 4324 "runtime.in" addFunc(ve, run::gen_runtime405, primVoid(), "atexit", formal(voidFunction(), "f", false, false)); #line 4329 "runtime.in" addFunc(ve, run::gen_runtime406, voidFunction(), "atexit"); #line 4334 "runtime.in" addFunc(ve, run::gen_runtime407, primVoid(), "atbreakpoint", formal(breakpointFunction(), "f", false, false)); #line 4339 "runtime.in" addFunc(ve, run::gen_runtime408, primVoid(), "breakpoint", formal(primCode(), "s", true, false)); #line 4344 "runtime.in" addFunc(ve, run::gen_runtime409, primString() , "locatefile", formal(primString() , "file", false, false)); #line 4349 "runtime.in" addFunc(ve, run::gen_runtime410, primVoid(), "stop", formal(primString() , "file", false, false), formal(primInt(), "line", false, false), formal(primCode(), "s", true, false)); #line 4357 "runtime.in" addFunc(ve, run::gen_runtime411, primVoid(), "breakpoints"); #line 4363 "runtime.in" addFunc(ve, run::gen_runtime412, primVoid(), "clear", formal(primString() , "file", false, false), formal(primInt(), "line", false, false)); #line 4369 "runtime.in" addFunc(ve, run::gen_runtime413, primVoid(), "clear"); #line 4374 "runtime.in" addFunc(ve, run::gen_runtime414, primVoid(), "warn", formal(primString() , "s", false, false)); #line 4379 "runtime.in" addFunc(ve, run::gen_runtime415, primVoid(), "nowarn", formal(primString() , "s", false, false)); #line 4384 "runtime.in" addFunc(ve, run::gen_runtime416, primVoid(), "warning", formal(primString() , "s", false, false), formal(primString() , "t", false, false), formal(primBoolean(), "position", true, false)); #line 4392 "runtime.in" addFunc(ve, run::gen_runtime417, primString() , "stripdirectory", formal(primString(), "s", false, false)); #line 4398 "runtime.in" addFunc(ve, run::gen_runtime418, primString() , "stripfile", formal(primString(), "s", false, false)); #line 4404 "runtime.in" addFunc(ve, run::gen_runtime419, primString() , "stripextension", formal(primString(), "s", false, false)); #line 4410 "runtime.in" addFunc(ve, run::gen_runtime420, primInt(), "convert", formal(primString() , "args", true, false), formal(primString() , "file", true, false), formal(primString() , "format", true, false)); #line 4429 "runtime.in" addFunc(ve, run::gen_runtime421, primInt(), "animate", formal(primString() , "args", true, false), formal(primString() , "file", true, false), formal(primString() , "format", true, false)); #line 4446 "runtime.in" addFunc(ve, run::gen_runtime422, primInt(), "delete", formal(primString(), "s", false, false)); #line 4456 "runtime.in" addFunc(ve, run::gen_runtime423, primInt(), "rename", formal(primString(), "from", false, false), formal(primString(), "to", false, false)); #line 4467 "runtime.in" REGISTER_BLTIN(run::emptyArray,"emptyArray"); #line 4476 "runtime.in" REGISTER_BLTIN(run::newDeepArray,"newDeepArray"); #line 4498 "runtime.in" REGISTER_BLTIN(run::newInitializedArray,"newInitializedArray"); #line 4513 "runtime.in" REGISTER_BLTIN(run::newAppendedArray,"newAppendedArray"); #line 4529 "runtime.in" REGISTER_BLTIN(run::newDuplicateArray,"newDuplicateArray"); #line 4539 "runtime.in" REGISTER_BLTIN(run::arrayRead,"arrayRead"); #line 4551 "runtime.in" REGISTER_BLTIN(run::arraySliceRead,"arraySliceRead"); #line 4558 "runtime.in" REGISTER_BLTIN(run::arraySliceReadToEnd,"arraySliceReadToEnd"); #line 4566 "runtime.in" REGISTER_BLTIN(run::arrayArrayRead,"arrayArrayRead"); #line 4575 "runtime.in" REGISTER_BLTIN(run::arrayWrite,"arrayWrite"); #line 4591 "runtime.in" REGISTER_BLTIN(run::arraySliceWrite,"arraySliceWrite"); #line 4599 "runtime.in" REGISTER_BLTIN(run::arraySliceWriteToEnd,"arraySliceWriteToEnd"); #line 4607 "runtime.in" REGISTER_BLTIN(run::arrayLength,"arrayLength"); #line 4613 "runtime.in" REGISTER_BLTIN(run::arrayKeys,"arrayKeys"); #line 4628 "runtime.in" REGISTER_BLTIN(run::arrayCyclicFlag,"arrayCyclicFlag"); #line 4635 "runtime.in" REGISTER_BLTIN(run::arraySetCyclicFlag,"arraySetCyclicFlag"); #line 4642 "runtime.in" REGISTER_BLTIN(run::arrayInitializedHelper,"arrayInitializedHelper"); #line 4653 "runtime.in" REGISTER_BLTIN(run::arrayInitialized,"arrayInitialized"); #line 4659 "runtime.in" REGISTER_BLTIN(run::arrayCyclicHelper,"arrayCyclicHelper"); #line 4666 "runtime.in" REGISTER_BLTIN(run::arrayCyclic,"arrayCyclic"); #line 4672 "runtime.in" REGISTER_BLTIN(run::arrayPushHelper,"arrayPushHelper"); #line 4680 "runtime.in" REGISTER_BLTIN(run::arrayPush,"arrayPush"); #line 4686 "runtime.in" REGISTER_BLTIN(run::arrayAppendHelper,"arrayAppendHelper"); #line 4695 "runtime.in" REGISTER_BLTIN(run::arrayAppend,"arrayAppend"); #line 4701 "runtime.in" REGISTER_BLTIN(run::arrayPopHelper,"arrayPopHelper"); #line 4710 "runtime.in" REGISTER_BLTIN(run::arrayPop,"arrayPop"); #line 4716 "runtime.in" REGISTER_BLTIN(run::arrayInsertHelper,"arrayInsertHelper"); #line 4727 "runtime.in" REGISTER_BLTIN(run::arrayInsert,"arrayInsert"); #line 4733 "runtime.in" REGISTER_BLTIN(run::arrayDelete,"arrayDelete"); #line 4739 "runtime.in" REGISTER_BLTIN(run::arrayAlias,"arrayAlias"); #line 4744 "runtime.in" REGISTER_BLTIN(run::arrayIntArray,"arrayIntArray"); #line 4762 "runtime.in" addFunc(ve, run::gen_runtime455, IntArray(), "complement", formal(IntArray(), "a", false, false), formal(primInt(), "n", false, false)); #line 4781 "runtime.in" REGISTER_BLTIN(run::arraySequence,"arraySequence"); #line 4794 "runtime.in" addFunc(ve, run::gen_runtime457, IntArray(), "sequence", formal(primInt(), "n", false, false)); #line 4805 "runtime.in" REGISTER_BLTIN(run::arrayFunction,"arrayFunction"); #line 4818 "runtime.in" REGISTER_BLTIN(run::arraySort,"arraySort"); #line 4827 "runtime.in" addFunc(ve, run::gen_runtime460, primBoolean(), "all", formal(booleanArray(), "a", false, false)); #line 4836 "runtime.in" addFunc(ve, run::gen_runtime461, booleanArray(), "!", formal(booleanArray(), "a", false, false)); #line 4845 "runtime.in" addFunc(ve, run::gen_runtime462, primInt(), "sum", formal(booleanArray(), "a", false, false)); #line 4854 "runtime.in" REGISTER_BLTIN(run::arrayCopy,"arrayCopy"); #line 4859 "runtime.in" REGISTER_BLTIN(run::arrayConcat,"arrayConcat"); #line 4887 "runtime.in" REGISTER_BLTIN(run::array2Copy,"array2Copy"); #line 4892 "runtime.in" REGISTER_BLTIN(run::array3Copy,"array3Copy"); #line 4897 "runtime.in" REGISTER_BLTIN(run::array2Transpose,"array2Transpose"); #line 4921 "runtime.in" REGISTER_BLTIN(run::array3Transpose,"array3Transpose"); #line 5008 "runtime.in" addFunc(ve, run::gen_runtime469, primInt(), "find", formal(booleanArray(), "a", false, false), formal(primInt(), "n", true, false)); #line 5027 "runtime.in" REGISTER_BLTIN(run::arrayConditional,"arrayConditional"); #line 5053 "runtime.in" addFunc(ve, run::gen_runtime471, realArray2(), "identity", formal(primInt(), "n", false, false)); #line 5059 "runtime.in" REGISTER_BLTIN(run::diagonal,"diagonal"); #line 5076 "runtime.in" addFunc(ve, run::gen_runtime473, realArray2(), "inverse", formal(realArray2(), "a", false, false)); #line 5168 "runtime.in" addFunc(ve, run::gen_runtime474, realArray(), "solve", formal(realArray2(), "a", false, false), formal(realArray(), "b", false, false), formal(primBoolean(), "warn", true, false)); #line 5219 "runtime.in" addFunc(ve, run::gen_runtime475, realArray2(), "solve", formal(realArray2(), "a", false, false), formal(realArray2(), "b", false, false), formal(primBoolean(), "warn", true, false)); #line 5283 "runtime.in" addFunc(ve, run::gen_runtime476, primReal(), "determinant", formal(realArray2(), "a", false, false)); #line 5299 "runtime.in" addFunc(ve, run::gen_runtime477, realArray(), "*", formal(realArray2(), "a", false, false), formal(realArray(), "b", false, false)); #line 5317 "runtime.in" addFunc(ve, run::gen_runtime478, realArray(), "*", formal(realArray(), "a", false, false), formal(realArray2(), "b", false, false)); #line 5345 "runtime.in" addFunc(ve, run::gen_runtime479, realArray2(), "*", formal(realArray2(), "a", false, false), formal(realArray2(), "b", false, false)); #line 5380 "runtime.in" addFunc(ve, run::gen_runtime480, primTriple(), "*", formal(realArray2(), "t", false, false), formal(primTriple(), "v", false, false)); #line 5385 "runtime.in" addFunc(ve, run::gen_runtime481, primPair(), "project", formal(primTriple(), "v", false, false), formal(realArray2(), "t", false, false)); #line 5410 "runtime.in" addFunc(ve, run::gen_runtime482, primReal(), "dot", formal(realArray(), "a", false, false), formal(realArray(), "b", false, false)); #line 5420 "runtime.in" addFunc(ve, run::gen_runtime483, realArray(), "tridiagonal", formal(realArray(), "a", false, false), formal(realArray(), "b", false, false), formal(realArray(), "c", false, false), formal(realArray(), "f", false, false)); #line 5524 "runtime.in" addFunc(ve, run::gen_runtime484, primReal(), "newton", formal(primInt(), "iterations", true, false), formal(realRealFunction(), "f", false, false), formal(realRealFunction(), "fprime", false, false), formal(primReal(), "x", false, false), formal(primBoolean(), "verbose", true, false)); #line 5571 "runtime.in" addFunc(ve, run::gen_runtime485, primReal(), "newton", formal(primInt(), "iterations", true, false), formal(realRealFunction(), "f", false, false), formal(realRealFunction(), "fprime", false, false), formal(primReal(), "x1", false, false), formal(primReal(), "x2", false, false), formal(primBoolean(), "verbose", true, false)); #line 5653 "runtime.in" addFunc(ve, run::gen_runtime486, primReal(), "simpson", formal(realRealFunction(), "f", false, false), formal(primReal(), "a", false, false), formal(primReal(), "b", false, false), formal(primReal(), "acc", true, false), formal(primReal(), "dxmax", true, false)); #line 5665 "runtime.in" REGISTER_BLTIN(run::pairArrayFFT,"pairArrayFFT"); #line 5695 "runtime.in" addFunc(ve, run::gen_runtime488, IntArray2(), "triangulate", formal(pairArray(), "z", false, false)); #line 5730 "runtime.in" addFunc(ve, run::gen_runtime489, primBoolean(), "==", formal(primFile(), "a", false, false), formal(primFile(), "b", false, false)); #line 5738 "runtime.in" addFunc(ve, run::gen_runtime490, primBoolean(), "!=", formal(primFile(), "a", false, false), formal(primFile(), "b", false, false)); #line 5743 "runtime.in" REGISTER_BLTIN(run::nullFile,"nullFile"); #line 5748 "runtime.in" addFunc(ve, run::gen_runtime492, primFile(), "input", formal(primString() , "name", false, false), formal(primBoolean(), "check", true, false), formal(primString() , "comment", true, false)); #line 5756 "runtime.in" addFunc(ve, run::gen_runtime493, primFile(), "output", formal(primString() , "name", false, false), formal(primBoolean(), "update", true, false), formal(primString() , "comment", true, false)); #line 5768 "runtime.in" addFunc(ve, run::gen_runtime494, primFile(), "xinput", formal(primString() , "name", false, false), formal(primBoolean(), "check", true, false)); #line 5782 "runtime.in" addFunc(ve, run::gen_runtime495, primFile(), "xoutput", formal(primString() , "name", false, false), formal(primBoolean(), "update", true, false)); #line 5800 "runtime.in" addFunc(ve, run::gen_runtime496, primFile(), "binput", formal(primString() , "name", false, false), formal(primBoolean(), "check", true, false)); #line 5807 "runtime.in" addFunc(ve, run::gen_runtime497, primFile(), "boutput", formal(primString() , "name", false, false), formal(primBoolean(), "update", true, false)); #line 5817 "runtime.in" addFunc(ve, run::gen_runtime498, primBoolean(), "eof", formal(primFile(), "f", false, false)); #line 5822 "runtime.in" addFunc(ve, run::gen_runtime499, primBoolean(), "eol", formal(primFile(), "f", false, false)); #line 5827 "runtime.in" addFunc(ve, run::gen_runtime500, primBoolean(), "error", formal(primFile(), "f", false, false)); #line 5832 "runtime.in" addFunc(ve, run::gen_runtime501, primVoid(), "clear", formal(primFile(), "f", false, false)); #line 5837 "runtime.in" addFunc(ve, run::gen_runtime502, primVoid(), "close", formal(primFile(), "f", false, false)); #line 5842 "runtime.in" addFunc(ve, run::gen_runtime503, primInt(), "precision", formal(primFile(), "f", true, false), formal(primInt(), "digits", true, false)); #line 5848 "runtime.in" addFunc(ve, run::gen_runtime504, primVoid(), "flush", formal(primFile(), "f", false, false)); #line 5853 "runtime.in" addFunc(ve, run::gen_runtime505, primString() , "getc", formal(primFile(), "f", false, false)); #line 5862 "runtime.in" addFunc(ve, run::gen_runtime506, primInt(), "tell", formal(primFile(), "f", false, false)); #line 5867 "runtime.in" addFunc(ve, run::gen_runtime507, primVoid(), "seek", formal(primFile(), "f", false, false), formal(primInt(), "pos", false, false)); #line 5872 "runtime.in" addFunc(ve, run::gen_runtime508, primVoid(), "seekeof", formal(primFile(), "f", false, false)); #line 5877 "runtime.in" REGISTER_BLTIN(run::namePart,"namePart"); #line 5882 "runtime.in" REGISTER_BLTIN(run::modePart,"modePart"); #line 5887 "runtime.in" REGISTER_BLTIN(run::dimensionSetHelper,"dimensionSetHelper"); #line 5894 "runtime.in" REGISTER_BLTIN(run::dimensionSet,"dimensionSet"); #line 5899 "runtime.in" REGISTER_BLTIN(run::dimensionPart,"dimensionPart"); #line 5908 "runtime.in" REGISTER_BLTIN(run::lineSetHelper,"lineSetHelper"); #line 5915 "runtime.in" REGISTER_BLTIN(run::lineSet,"lineSet"); #line 5920 "runtime.in" REGISTER_BLTIN(run::linePart,"linePart"); #line 5925 "runtime.in" REGISTER_BLTIN(run::csvSetHelper,"csvSetHelper"); #line 5932 "runtime.in" REGISTER_BLTIN(run::csvSet,"csvSet"); #line 5937 "runtime.in" REGISTER_BLTIN(run::csvPart,"csvPart"); #line 5942 "runtime.in" REGISTER_BLTIN(run::wordSetHelper,"wordSetHelper"); #line 5949 "runtime.in" REGISTER_BLTIN(run::wordSet,"wordSet"); #line 5954 "runtime.in" REGISTER_BLTIN(run::wordPart,"wordPart"); #line 5959 "runtime.in" REGISTER_BLTIN(run::singlerealSetHelper,"singlerealSetHelper"); #line 5966 "runtime.in" REGISTER_BLTIN(run::singlerealSet,"singlerealSet"); #line 5971 "runtime.in" REGISTER_BLTIN(run::singlerealPart,"singlerealPart"); #line 5976 "runtime.in" REGISTER_BLTIN(run::singleintSetHelper,"singleintSetHelper"); #line 5983 "runtime.in" REGISTER_BLTIN(run::singleintSet,"singleintSet"); #line 5988 "runtime.in" REGISTER_BLTIN(run::singleintPart,"singleintPart"); #line 5993 "runtime.in" REGISTER_BLTIN(run::signedintSetHelper,"signedintSetHelper"); #line 6000 "runtime.in" REGISTER_BLTIN(run::signedintSet,"signedintSet"); #line 6005 "runtime.in" REGISTER_BLTIN(run::signedintPart,"signedintPart"); #line 6010 "runtime.in" REGISTER_BLTIN(run::readSetHelper,"readSetHelper"); #line 6033 "runtime.in" REGISTER_BLTIN(run::readSet,"readSet"); #line 6038 "runtime.in" addFunc(ve, run::gen_runtime534, stringArray(), "history", formal(primString() , "name", false, false), formal(primInt(), "n", true, false)); #line 6071 "runtime.in" addFunc(ve, run::gen_runtime535, stringArray(), "history", formal(primInt(), "n", true, false)); #line 6082 "runtime.in" addFunc(ve, run::gen_runtime536, primString() , "readline", formal(primString() , "prompt", true, false), formal(primString() , "name", true, false), formal(primBoolean(), "tabcompletion", true, false)); #line 6126 "runtime.in" addFunc(ve, run::gen_runtime537, primVoid(), "saveline", formal(primString() , "name", false, false), formal(primString() , "value", false, false), formal(primBoolean(), "store", true, false)); } } // namespace trans