path: root/Build/source/utils/asymptote/runtime.cc

/***** 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"
#include "array.h"
#include "triple.h"
#include "callable.h"

using vm::stack;
using vm::error;
using vm::array;
using vm::callable;
using types::formal;
using types::function;
using camp::triple;

#define PRIMITIVE(name,Name,asyName) using types::prim##Name;
#include <primitives.h>
#undef PRIMITIVE

typedef double real;

void unused(void *);

namespace run {
array *copyArray(array *a);
array *copyArray2(array *a);
array *copyArray3(array *a);

double *copyArrayC(const array *a, size_t dim=0);
double *copyArray2C(const array *a, bool square=true, size_t dim2=0);

triple *copyTripleArrayC(const array *a, size_t dim=0);
triple *copyTripleArray2C(const array *a, bool square=true, size_t dim2=0);
double *copyTripleArray2Components(array *a, bool square=true, size_t dim2=0);
}

function *realRealFunction();

// 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;
}

#define CURRENTPEN processData().currentpen

#line 55 "runtime.in"
#include <cfloat>
#include <iostream>
#include <fstream>
#include <time.h>
#include <sys/times.h>
#include <locale.h>
  
#include "angle.h"
#include "pair.h"
#include "triple.h"
#include "transform.h"
#include "path.h"
#include "path3.h"
#include "pen.h"
#include "drawpath.h"
#include "guide.h"
#include "picture.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"
   
#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 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 <primitives.h>
#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 *realRealFunction()
{
  return new function(primReal(),primReal());
}

function *realTripleFunction()
{
  return new function(primReal(),primTriple());
}

const size_t camp::ColorComponents[]={0,0,1,3,4,0};

namespace vm {
}

namespace run {
  
const char *arrayempty="cannot take min or max of empty array";
const char *noruntime="no runtime environment for embedded eval";

void writestring(stack *s)
{
  callable *suffix=pop<callable *>(s,NULL);
  string S=pop<string>(s);
  vm::item it=pop(s);
  bool defaultfile=isdefault(it);
  camp::file *f=defaultfile ? &camp::Stdout : vm::get<camp::file*>(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();
  }
}

default_t def;
string emptystring;
pair zero;

}

static string defaulttransparency=string("Compatible");

void unused(void *)
{
}

// Autogenerated routines:



namespace run {

// Initializers
#line 210 "runtime.in"
void IntZero(stack *Stack)
{
#line 211 "runtime.in"
  {Stack->push<Int>(0); return;}
}

#line 216 "runtime.in"
void realZero(stack *Stack)
{
#line 217 "runtime.in"
  {Stack->push<real>(0.0); return;}
}

#line 221 "runtime.in"
void boolFalse(stack *Stack)
{
#line 222 "runtime.in"
  {Stack->push<bool>(false); return;}
}

#line 226 "runtime.in"
void pushNullArray(stack *Stack)
{
#line 227 "runtime.in"
  {Stack->push<array*>(0); return;}
}

#line 231 "runtime.in"
void pushNullRecord(stack *Stack)
{
#line 232 "runtime.in"
  {Stack->push<frame*>(0); return;}
}

#line 236 "runtime.in"
void pushNullFunction(stack *Stack)
{
#line 237 "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 246 "runtime.in"
void pushDefault(stack *Stack)
{
#line 247 "runtime.in"
  {Stack->push(def); return;}
}


// Test if the value on the stack is the default value token.
#line 253 "runtime.in"
void isDefault(stack *Stack)
{
  item i=vm::pop(Stack);
#line 254 "runtime.in"
  {Stack->push<bool>(isdefault(i)); return;}
}


// Casts
#line 260 "runtime.in"
void pairToGuide(stack *Stack)
{
  pair z=vm::pop<pair>(Stack);
#line 261 "runtime.in"
  {Stack->push<guide*>(new pairguide(z)); return;}
}

#line 266 "runtime.in"
void pathToGuide(stack *Stack)
{
  path p=vm::pop<path>(Stack);
#line 267 "runtime.in"
  {Stack->push<guide*>(new pathguide(p)); return;}
}

#line 271 "runtime.in"
void guideToPath(stack *Stack)
{
  guide * g=vm::pop<guide *>(Stack);
#line 272 "runtime.in"
  {Stack->push<path>(g->solve()); return;}
}


// Pen operations
#line 278 "runtime.in"
void newPen(stack *Stack)
{
#line 279 "runtime.in"
  {Stack->push<pen>(pen()); return;}
}

#line 284 "runtime.in"
// bool ==(pen a, pen b);
void gen_runtime12(stack *Stack)
{
  pen b=vm::pop<pen>(Stack);
  pen a=vm::pop<pen>(Stack);
#line 285 "runtime.in"
  {Stack->push<bool>(a == b); return;}
}

#line 289 "runtime.in"
// bool !=(pen a, pen b);
void gen_runtime13(stack *Stack)
{
  pen b=vm::pop<pen>(Stack);
  pen a=vm::pop<pen>(Stack);
#line 290 "runtime.in"
  {Stack->push<bool>(a != b); return;}
}

#line 294 "runtime.in"
// pen +(pen a, pen b);
void gen_runtime14(stack *Stack)
{
  pen b=vm::pop<pen>(Stack);
  pen a=vm::pop<pen>(Stack);
#line 295 "runtime.in"
  {Stack->push<pen>(a+b); return;}
}

#line 299 "runtime.in"
// pen *(real a, pen b);
void gen_runtime15(stack *Stack)
{
  pen b=vm::pop<pen>(Stack);
  real a=vm::pop<real>(Stack);
#line 300 "runtime.in"
  {Stack->push<pen>(a*b); return;}
}

#line 304 "runtime.in"
// pen *(pen a, real b);
void gen_runtime16(stack *Stack)
{
  real b=vm::pop<real>(Stack);
  pen a=vm::pop<pen>(Stack);
#line 305 "runtime.in"
  {Stack->push<pen>(b*a); return;}
}

#line 309 "runtime.in"
// pair max(pen p);
void gen_runtime17(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
#line 310 "runtime.in"
  {Stack->push<pair>(p.bounds().Max()); return;}
}

#line 314 "runtime.in"
// pair min(pen p);
void gen_runtime18(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
#line 315 "runtime.in"
  {Stack->push<pair>(p.bounds().Min()); return;}
}

// Reset the meaning of pen default attributes.
#line 320 "runtime.in"
// void resetdefaultpen();
void gen_runtime19(stack *)
{
#line 321 "runtime.in"
  processData().defaultpen=camp::pen::initialpen();
}

#line 325 "runtime.in"
// void defaultpen(pen p);
void gen_runtime20(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
#line 326 "runtime.in"
  processData().defaultpen=pen(resolvepen,p);
}

#line 330 "runtime.in"
// pen defaultpen();
void gen_runtime21(stack *Stack)
{
#line 331 "runtime.in"
  {Stack->push<pen>(processData().defaultpen); return;}
}

#line 335 "runtime.in"
// bool invisible(pen p);
void gen_runtime22(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
#line 336 "runtime.in"
  {Stack->push<bool>(p.invisible()); return;}
}

#line 340 "runtime.in"
// pen invisible();
void gen_runtime23(stack *Stack)
{
#line 341 "runtime.in"
  {Stack->push<pen>(pen(invisiblepen)); return;}
}

#line 345 "runtime.in"
// pen gray(pen p);
void gen_runtime24(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
#line 346 "runtime.in"
  p.togrey();
  {Stack->push<pen>(p); return;}
}

#line 351 "runtime.in"
// pen rgb(pen p);
void gen_runtime25(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
#line 352 "runtime.in"
  p.torgb();
  {Stack->push<pen>(p); return;}
}

#line 357 "runtime.in"
// pen cmyk(pen p);
void gen_runtime26(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
#line 358 "runtime.in"
  p.tocmyk();
  {Stack->push<pen>(p); return;}
}

#line 363 "runtime.in"
// pen interp(pen a, pen b, real t);
void gen_runtime27(stack *Stack)
{
  real t=vm::pop<real>(Stack);
  pen b=vm::pop<pen>(Stack);
  pen a=vm::pop<pen>(Stack);
#line 364 "runtime.in"
  {Stack->push<pen>(interpolate(a,b,t)); return;}
}

#line 368 "runtime.in"
// pen rgb(real r, real g, real b);
void gen_runtime28(stack *Stack)
{
  real b=vm::pop<real>(Stack);
  real g=vm::pop<real>(Stack);
  real r=vm::pop<real>(Stack);
#line 369 "runtime.in"
  {Stack->push<pen>(pen(r,g,b)); return;}
}

#line 373 "runtime.in"
// pen cmyk(real c, real m, real y, real k);
void gen_runtime29(stack *Stack)
{
  real k=vm::pop<real>(Stack);
  real y=vm::pop<real>(Stack);
  real m=vm::pop<real>(Stack);
  real c=vm::pop<real>(Stack);
#line 374 "runtime.in"
  {Stack->push<pen>(pen(c,m,y,k)); return;}  
}

#line 378 "runtime.in"
// pen gray(real gray);
void gen_runtime30(stack *Stack)
{
  real gray=vm::pop<real>(Stack);
#line 379 "runtime.in"
  {Stack->push<pen>(pen(gray)); return;}
}

#line 383 "runtime.in"
// realarray* colors(pen p);
void gen_runtime31(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
#line 384 "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<realarray*>(a); return;}
}

#line 411 "runtime.in"
// string colorspace(pen p);
void gen_runtime32(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
#line 412 "runtime.in"
  string s=ColorDeviceSuffix[p.colorspace()];
  std::transform(s.begin(),s.end(),s.begin(),tolower);
  {Stack->push<string>(s); return;}
}

#line 418 "runtime.in"
// pen pattern(string *s);
void gen_runtime33(stack *Stack)
{
  string * s=vm::pop<string *>(Stack);
#line 419 "runtime.in"
  {Stack->push<pen>(pen(setpattern,*s)); return;}
}

#line 423 "runtime.in"
// string pattern(pen p);
void gen_runtime34(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
#line 424 "runtime.in"
  {Stack->push<string>(p.fillpattern()); return;}  
}

#line 428 "runtime.in"
// pen fillrule(Int n);
void gen_runtime35(stack *Stack)
{
  Int n=vm::pop<Int>(Stack);
#line 429 "runtime.in"
  {Stack->push<pen>(pen(n >= 0 && n < nFill ? (FillRule) n : DEFFILL)); return;}
}

#line 433 "runtime.in"
// Int fillrule(pen p);
void gen_runtime36(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
#line 434 "runtime.in"
  {Stack->push<Int>(p.Fillrule()); return;}  
}

#line 438 "runtime.in"
// pen opacity(real opacity=1.0, string blend=defaulttransparency);
void gen_runtime37(stack *Stack)
{
  string blend=vm::pop<string>(Stack,defaulttransparency);
  real opacity=vm::pop<real>(Stack,1.0);
#line 439 "runtime.in"
  for(Int i=0; i < nBlendMode; ++i)
    if(blend == BlendMode[i]) {Stack->push<pen>(pen(Transparency(blend,opacity))); return;}

  ostringstream buf;
  buf << "Unknown blend mode: " << "'" << blend << "'";
  error(buf);
}

#line 448 "runtime.in"
// real opacity(pen p);
void gen_runtime38(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
#line 449 "runtime.in"
  {Stack->push<real>(p.opacity()); return;}
}

#line 453 "runtime.in"
// string blend(pen p);
void gen_runtime39(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
#line 454 "runtime.in"
  {Stack->push<string>(p.blend()); return;}
}

#line 458 "runtime.in"
// pen linetype(string *s, real offset=0, bool scale=true, bool adjust=true);
void gen_runtime40(stack *Stack)
{
  bool adjust=vm::pop<bool>(Stack,true);
  bool scale=vm::pop<bool>(Stack,true);
  real offset=vm::pop<real>(Stack,0);
  string * s=vm::pop<string *>(Stack);
#line 459 "runtime.in"
  {Stack->push<pen>(pen(LineType(*s,offset,scale,adjust))); return;} 
}

#line 463 "runtime.in"
// string linetype(pen p=CURRENTPEN);
void gen_runtime41(stack *Stack)
{
  pen p=vm::pop<pen>(Stack,CURRENTPEN);
#line 464 "runtime.in"
  {Stack->push<string>(p.stroke()); return;}  
}

#line 468 "runtime.in"
// real offset(pen p);
void gen_runtime42(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
#line 469 "runtime.in"
  {Stack->push<real>(p.linetype().offset); return;}
}

#line 473 "runtime.in"
// bool scale(pen p);
void gen_runtime43(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
#line 474 "runtime.in"
  {Stack->push<bool>(p.linetype().scale); return;}
}

#line 478 "runtime.in"
// bool adjust(pen p);
void gen_runtime44(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
#line 479 "runtime.in"
  {Stack->push<bool>(p.linetype().adjust); return;}
}

#line 483 "runtime.in"
// pen adjust(pen p, real arclength, bool cyclic);
void gen_runtime45(stack *Stack)
{
  bool cyclic=vm::pop<bool>(Stack);
  real arclength=vm::pop<real>(Stack);
  pen p=vm::pop<pen>(Stack);
#line 484 "runtime.in"
  {Stack->push<pen>(adjustdash(p,arclength,cyclic)); return;}
}

#line 488 "runtime.in"
// pen linecap(Int n);
void gen_runtime46(stack *Stack)
{
  Int n=vm::pop<Int>(Stack);
#line 489 "runtime.in"
  {Stack->push<pen>(pen(setlinecap,n >= 0 && n < nCap ? n : DEFCAP)); return;}
}

#line 493 "runtime.in"
// Int linecap(pen p=CURRENTPEN);
void gen_runtime47(stack *Stack)
{
  pen p=vm::pop<pen>(Stack,CURRENTPEN);
#line 494 "runtime.in"
  {Stack->push<Int>(p.cap()); return;}  
}

#line 498 "runtime.in"
// pen linejoin(Int n);
void gen_runtime48(stack *Stack)
{
  Int n=vm::pop<Int>(Stack);
#line 499 "runtime.in"
  {Stack->push<pen>(pen(setlinejoin,n >= 0 && n < nJoin ? n : DEFJOIN)); return;}
}

#line 503 "runtime.in"
// Int linejoin(pen p=CURRENTPEN);
void gen_runtime49(stack *Stack)
{
  pen p=vm::pop<pen>(Stack,CURRENTPEN);
#line 504 "runtime.in"
  {Stack->push<Int>(p.join()); return;}  
}

#line 508 "runtime.in"
// pen miterlimit(real x);
void gen_runtime50(stack *Stack)
{
  real x=vm::pop<real>(Stack);
#line 509 "runtime.in"
  {Stack->push<pen>(pen(setmiterlimit,x >= 1.0 ? x : DEFJOIN)); return;}
}

#line 513 "runtime.in"
// real miterlimit(pen p=CURRENTPEN);
void gen_runtime51(stack *Stack)
{
  pen p=vm::pop<pen>(Stack,CURRENTPEN);
#line 514 "runtime.in"
  {Stack->push<real>(p.miter()); return;}  
}

#line 518 "runtime.in"
// pen linewidth(real x);
void gen_runtime52(stack *Stack)
{
  real x=vm::pop<real>(Stack);
#line 519 "runtime.in"
  {Stack->push<pen>(pen(setlinewidth,x >= 0.0 ? x : DEFWIDTH)); return;}
}

#line 523 "runtime.in"
// real linewidth(pen p=CURRENTPEN);
void gen_runtime53(stack *Stack)
{
  pen p=vm::pop<pen>(Stack,CURRENTPEN);
#line 524 "runtime.in"
  {Stack->push<real>(p.width()); return;}  
}

#line 528 "runtime.in"
// pen fontcommand(string *s);
void gen_runtime54(stack *Stack)
{
  string * s=vm::pop<string *>(Stack);
#line 529 "runtime.in"
  {Stack->push<pen>(pen(setfont,*s)); return;}
}

#line 533 "runtime.in"
// string font(pen p=CURRENTPEN);
void gen_runtime55(stack *Stack)
{
  pen p=vm::pop<pen>(Stack,CURRENTPEN);
#line 534 "runtime.in"
  {Stack->push<string>(p.Font()); return;}
}

#line 538 "runtime.in"
// pen fontsize(real size, real lineskip);
void gen_runtime56(stack *Stack)
{
  real lineskip=vm::pop<real>(Stack);
  real size=vm::pop<real>(Stack);
#line 539 "runtime.in"
  {Stack->push<pen>(pen(setfontsize,size > 0.0 ? size : 0.0,
             lineskip > 0.0 ? lineskip : 0.0)); return;}
}

#line 544 "runtime.in"
// real fontsize(pen p=CURRENTPEN);
void gen_runtime57(stack *Stack)
{
  pen p=vm::pop<pen>(Stack,CURRENTPEN);
#line 545 "runtime.in"
  {Stack->push<real>(p.size()); return;}
}

#line 549 "runtime.in"
// real lineskip(pen p=CURRENTPEN);
void gen_runtime58(stack *Stack)
{
  pen p=vm::pop<pen>(Stack,CURRENTPEN);
#line 550 "runtime.in"
  {Stack->push<real>(p.Lineskip()); return;}  
}

#line 554 "runtime.in"
// pen overwrite(Int n);
void gen_runtime59(stack *Stack)
{
  Int n=vm::pop<Int>(Stack);
#line 555 "runtime.in"
  {Stack->push<pen>(pen(setoverwrite,n >= 0 && n < nOverwrite ? (overwrite_t) n :
             DEFWRITE)); return;}
}

#line 560 "runtime.in"
// Int overwrite(pen p=CURRENTPEN);
void gen_runtime60(stack *Stack)
{
  pen p=vm::pop<pen>(Stack,CURRENTPEN);
#line 561 "runtime.in"
  {Stack->push<Int>(p.Overwrite()); return;}  
}

#line 565 "runtime.in"
// pen basealign(Int n);
void gen_runtime61(stack *Stack)
{
  Int n=vm::pop<Int>(Stack);
#line 566 "runtime.in"
  {Stack->push<pen>(pen(n >= 0 && n < nBaseLine ? (BaseLine) n : DEFBASE)); return;}
}

#line 570 "runtime.in"
// Int basealign(pen p=CURRENTPEN);
void gen_runtime62(stack *Stack)
{
  pen p=vm::pop<pen>(Stack,CURRENTPEN);
#line 571 "runtime.in"
  {Stack->push<Int>(p.Baseline()); return;}
}

#line 575 "runtime.in"
// transform transform(pen p);
void gen_runtime63(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
#line 576 "runtime.in"
  {Stack->push<transform>(p.getTransform()); return;}
}

#line 580 "runtime.in"
// path nib(pen p);
void gen_runtime64(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
#line 581 "runtime.in"
  {Stack->push<path>(p.Path()); return;}
}

#line 585 "runtime.in"
// pen makepen(path p);
void gen_runtime65(stack *Stack)
{
  path p=vm::pop<path>(Stack);
#line 586 "runtime.in"
  {Stack->push<pen>(pen(p)); return;}
}

#line 590 "runtime.in"
// pen colorless(pen p);
void gen_runtime66(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
#line 591 "runtime.in"
  p.colorless();
  {Stack->push<pen>(p); return;}
}

// Interactive mode
#line 597 "runtime.in"
// bool interactive();
void gen_runtime67(stack *Stack)
{
#line 598 "runtime.in"
  {Stack->push<bool>(interact::interactive); return;}
}

#line 603 "runtime.in"
// bool uptodate();
void gen_runtime68(stack *Stack)
{
#line 604 "runtime.in"
  {Stack->push<bool>(interact::uptodate); return;}
}


// System commands
#line 610 "runtime.in"
// Int system(stringarray *s);
void gen_runtime69(stack *Stack)
{
  stringarray * s=vm::pop<stringarray *>(Stack);
#line 611 "runtime.in"
  if(safe) error("system() call disabled; override with option -nosafe");
  size_t size=checkArray(s);
  if(size == 0) {Stack->push<Int>(0); return;}
  mem::vector<string> cmd;
  for(size_t i=0; i < size; ++i)
    cmd.push_back(read<string>(s,i));
  {Stack->push<Int>(System(cmd)); return;}
}

#line 622 "runtime.in"
// bool view();
void gen_runtime70(stack *Stack)
{
#line 623 "runtime.in"
  {Stack->push<bool>(view()); return;}
}

#line 627 "runtime.in"
// string asydir();
void gen_runtime71(stack *Stack)
{
#line 628 "runtime.in"
  {Stack->push<string>(systemDir); return;}
}

#line 632 "runtime.in"
// string locale(string s=emptystring);
void gen_runtime72(stack *Stack)
{
  string s=vm::pop<string>(Stack,emptystring);
#line 633 "runtime.in"
  char *L=setlocale(LC_ALL,s.empty() ? NULL : s.c_str());
  {Stack->push<string>(L != NULL ? string(L) : ""); return;}
}

#line 638 "runtime.in"
// void abort(string s=emptystring);
void gen_runtime73(stack *Stack)
{
  string s=vm::pop<string>(Stack,emptystring);
#line 639 "runtime.in"
  if(s.empty()) throw handled_error();
  error(s.c_str());
}

#line 644 "runtime.in"
// void exit();
void gen_runtime74(stack *)
{
#line 645 "runtime.in"
  throw quit();
}

#line 649 "runtime.in"
// void assert(bool b, string s=emptystring);
void gen_runtime75(stack *Stack)
{
  string s=vm::pop<string>(Stack,emptystring);
  bool b=vm::pop<bool>(Stack);
#line 650 "runtime.in"
  flush(cout);
  if(!b) {
    ostringstream buf;
    buf << "assert FAILED";
    if(s != "") buf << ": " << s;
    error(buf);
  }
}

#line 660 "runtime.in"
// void sleep(Int seconds);
void gen_runtime76(stack *Stack)
{
  Int seconds=vm::pop<Int>(Stack);
#line 661 "runtime.in"
  if(seconds <= 0) return;      
  sleep(seconds);
}

#line 666 "runtime.in"
// void usleep(Int microseconds);
void gen_runtime77(stack *Stack)
{
  Int microseconds=vm::pop<Int>(Stack);
#line 667 "runtime.in"
  if(microseconds <= 0) return; 
  usleep((unsigned long) microseconds); 
}

#line 672 "runtime.in"
// void _eval(string *s, bool embedded, bool interactiveWrite=false);
void gen_runtime78(stack *Stack)
{
  bool interactiveWrite=vm::pop<bool>(Stack,false);
  bool embedded=vm::pop<bool>(Stack);
  string * s=vm::pop<string *>(Stack);
#line 673 "runtime.in"
  if(embedded) {
    trans::coenv *e=Stack->getEnvironment();
    vm::interactiveStack *is=dynamic_cast<vm::interactiveStack *>(Stack);
    if(e && is)
      runStringEmbedded(*s, *e, *is);
    else
      error(noruntime);
  } else
    runString(*s,interactiveWrite);
}

#line 685 "runtime.in"
// void _eval(runnable *s, bool embedded);
void gen_runtime79(stack *Stack)
{
  bool embedded=vm::pop<bool>(Stack);
  runnable * s=vm::pop<runnable *>(Stack);
#line 686 "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<vm::interactiveStack *>(Stack);
    if(e && is)
      runCodeEmbedded(ast, *e, *is);
    else
      error(noruntime);
  } else
    runCode(ast);
}

#line 701 "runtime.in"
// string location();
void gen_runtime80(stack *Stack)
{
#line 702 "runtime.in"
  ostringstream buf;
  buf << getPos();
  {Stack->push<string>(buf.str()); return;}
}

// Wrapper for the stack::load() method.
#line 708 "runtime.in"
void loadModule(stack *Stack)
{
  string * index=vm::pop<string *>(Stack);
#line 709 "runtime.in"
  Stack->load(*index);
}

#line 713 "runtime.in"
// string cd(string s=emptystring);
void gen_runtime82(stack *Stack)
{
  string s=vm::pop<string>(Stack,emptystring);
#line 714 "runtime.in"
  if(!s.empty() && !globalwrite()) writeDisabled();
  {Stack->push<string>(setPath(s.c_str())); return;}
}

#line 719 "runtime.in"
// void list(string *s, bool imports=false);
void gen_runtime83(stack *Stack)
{
  bool imports=vm::pop<bool>(Stack,false);
  string * s=vm::pop<string *>(Stack);
#line 720 "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);
}


// Guide operations
#line 730 "runtime.in"
void nullGuide(stack *Stack)
{
#line 731 "runtime.in"
  {Stack->push<guide*>(new pathguide(path())); return;}
}

#line 736 "runtime.in"
void dotsGuide(stack *Stack)
{
  guidearray * a=vm::pop<guidearray *>(Stack);
#line 737 "runtime.in"
  guidevector v;
  size_t size=checkArray(a);
  for (size_t i=0; i < size; ++i)
    v.push_back(a->read<guide*>(i));

  {Stack->push<guide*>(new multiguide(v)); return;}
}

#line 746 "runtime.in"
void dashesGuide(stack *Stack)
{
  guidearray * a=vm::pop<guidearray *>(Stack);
#line 747 "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<guide*>(0));

  if (n==1) {
    v.push_back(&curlout);
    v.push_back(&curlin);
  }
  else
    for (size_t i=1; i<n; ++i) {
      v.push_back(&curlout);
      v.push_back(&curlin);
      v.push_back(a->read<guide*>(i));
    }

  {Stack->push<guide*>(new multiguide(v)); return;}
}

#line 773 "runtime.in"
void newCycleToken(stack *Stack)
{
#line 774 "runtime.in"
  {Stack->push<cycleToken>(cycleToken()); return;}
}

#line 778 "runtime.in"
// guide* operator cast(cycleToken tok);
void gen_runtime88(stack *Stack)
{
  cycleToken tok=vm::pop<cycleToken>(Stack);
#line 779 "runtime.in"
// Avoid unused variable warning messages.
  unused(&tok);
  {Stack->push<guide*>(new cycletokguide()); return;}
}

#line 785 "runtime.in"
// guide* operator spec(pair z, Int p);
void gen_runtime89(stack *Stack)
{
  Int p=vm::pop<Int>(Stack);
  pair z=vm::pop<pair>(Stack);
#line 786 "runtime.in"
  camp::side d=(camp::side) p;
  camp::dirSpec *sp=new camp::dirSpec(z);

  {Stack->push<guide*>(new specguide(sp,d)); return;}
}

#line 793 "runtime.in"
// curlSpecifier operator curl(real gamma, Int p);
void gen_runtime90(stack *Stack)
{
  Int p=vm::pop<Int>(Stack);
  real gamma=vm::pop<real>(Stack);
#line 794 "runtime.in"
  camp::side s=(camp::side) p;
  {Stack->push<curlSpecifier>(curlSpecifier(gamma,s)); return;}
}

#line 799 "runtime.in"
void curlSpecifierValuePart(stack *Stack)
{
  curlSpecifier spec=vm::pop<curlSpecifier>(Stack);
#line 800 "runtime.in"
  {Stack->push<real>(spec.getValue()); return;}
}

#line 804 "runtime.in"
void curlSpecifierSidePart(stack *Stack)
{
  curlSpecifier spec=vm::pop<curlSpecifier>(Stack);
#line 805 "runtime.in"
  {Stack->push<Int>(spec.getSide()); return;}
}

#line 809 "runtime.in"
// guide* operator cast(curlSpecifier spec);
void gen_runtime93(stack *Stack)
{
  curlSpecifier spec=vm::pop<curlSpecifier>(Stack);
#line 810 "runtime.in"
  {Stack->push<guide*>(new specguide(spec)); return;}
}

#line 814 "runtime.in"
// tensionSpecifier operator tension(real tout, real tin, bool atleast);
void gen_runtime94(stack *Stack)
{
  bool atleast=vm::pop<bool>(Stack);
  real tin=vm::pop<real>(Stack);
  real tout=vm::pop<real>(Stack);
#line 815 "runtime.in"
  {Stack->push<tensionSpecifier>(tensionSpecifier(tout, tin, atleast)); return;}
}

#line 819 "runtime.in"
void tensionSpecifierOutPart(stack *Stack)
{
  tensionSpecifier t=vm::pop<tensionSpecifier>(Stack);
#line 820 "runtime.in"
  {Stack->push<real>(t.getOut()); return;}
}

#line 824 "runtime.in"
void tensionSpecifierInPart(stack *Stack)
{
  tensionSpecifier t=vm::pop<tensionSpecifier>(Stack);
#line 825 "runtime.in"
  {Stack->push<real>(t.getIn()); return;}
}

#line 829 "runtime.in"
void tensionSpecifierAtleastPart(stack *Stack)
{
  tensionSpecifier t=vm::pop<tensionSpecifier>(Stack);
#line 830 "runtime.in"
  {Stack->push<bool>(t.getAtleast()); return;}
}

#line 834 "runtime.in"
// guide* operator cast(tensionSpecifier t);
void gen_runtime98(stack *Stack)
{
  tensionSpecifier t=vm::pop<tensionSpecifier>(Stack);
#line 835 "runtime.in"
  {Stack->push<guide*>(new tensionguide(t)); return;}
}

#line 839 "runtime.in"
// guide* operator controls(pair zout, pair zin);
void gen_runtime99(stack *Stack)
{
  pair zin=vm::pop<pair>(Stack);
  pair zout=vm::pop<pair>(Stack);
#line 840 "runtime.in"
  {Stack->push<guide*>(new controlguide(zout, zin)); return;}
}

#line 844 "runtime.in"
// Int size(guide *g);
void gen_runtime100(stack *Stack)
{
  guide * g=vm::pop<guide *>(Stack);
#line 845 "runtime.in"
  flatguide f;
  g->flatten(f,false);
  {Stack->push<Int>(f.size()); return;}
}

#line 851 "runtime.in"
// Int length(guide *g);
void gen_runtime101(stack *Stack)
{
  guide * g=vm::pop<guide *>(Stack);
#line 852 "runtime.in"
  flatguide f;
  g->flatten(f,false);
  {Stack->push<Int>(g->cyclic() ? f.size() : f.size()-1); return;}
}

#line 858 "runtime.in"
// bool cyclic(guide *g);
void gen_runtime102(stack *Stack)
{
  guide * g=vm::pop<guide *>(Stack);
#line 859 "runtime.in"
  flatguide f;
  g->flatten(f,false);
  {Stack->push<bool>(g->cyclic()); return;}
}

#line 865 "runtime.in"
// pair point(guide *g, Int t);
void gen_runtime103(stack *Stack)
{
  Int t=vm::pop<Int>(Stack);
  guide * g=vm::pop<guide *>(Stack);
#line 866 "runtime.in"
  flatguide f;
  g->flatten(f,false);
  {Stack->push<pair>(f.Nodes(adjustedIndex(t,f.size(),g->cyclic())).z); return;}
}

#line 872 "runtime.in"
// pairarray* dirSpecifier(guide *g, Int t);
void gen_runtime104(stack *Stack)
{
  Int t=vm::pop<Int>(Stack);
  guide * g=vm::pop<guide *>(Stack);
#line 873 "runtime.in"
  flatguide f;
  g->flatten(f,false);
  Int n=f.size();
  if(!g->cyclic() && (t < 0 || t >= n-1)) {Stack->push<pairarray*>(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<pairarray*>(c); return;}
}

#line 884 "runtime.in"
// pairarray* controlSpecifier(guide *g, Int t);
void gen_runtime105(stack *Stack)
{
  Int t=vm::pop<Int>(Stack);
  guide * g=vm::pop<guide *>(Stack);
#line 885 "runtime.in"
  flatguide f;
  g->flatten(f,false);
  Int n=f.size();
  if(!g->cyclic() && (t < 0 || t >= n-1)) {Stack->push<pairarray*>(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<pairarray*>(c); return;}
  } else {Stack->push<pairarray*>(new array(0)); return;}
}

#line 901 "runtime.in"
// tensionSpecifier tensionSpecifier(guide *g, Int t);
void gen_runtime106(stack *Stack)
{
  Int t=vm::pop<Int>(Stack);
  guide * g=vm::pop<guide *>(Stack);
#line 902 "runtime.in"
  flatguide f;
  g->flatten(f,false);
  Int n=f.size();
  if(!g->cyclic() && (t < 0 || t >= n-1)) {Stack->push<tensionSpecifier>(tensionSpecifier(1.0,1.0,false)); return;}
  knot curr=f.Nodes(t);
  {Stack->push<tensionSpecifier>(tensionSpecifier(curr.tout.val,f.Nodes(t+1).tin.val,curr.tout.atleast)); return;}
}

#line 911 "runtime.in"
// realarray* curlSpecifier(guide *g, Int t);
void gen_runtime107(stack *Stack)
{
  Int t=vm::pop<Int>(Stack);
  guide * g=vm::pop<guide *>(Stack);
#line 912 "runtime.in"
  flatguide f;
  g->flatten(f,false);
  Int n=f.size();
  if(!g->cyclic() && (t < 0 || t >= n-1)) {Stack->push<realarray*>(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<realarray*>(c); return;}
}

#line 925 "runtime.in"
// guide* reverse(guide *g);
void gen_runtime108(stack *Stack)
{
  guide * g=vm::pop<guide *>(Stack);
#line 926 "runtime.in"
  flatguide f;
  g->flatten(f,false);
  if(f.precyclic())
    {Stack->push<guide*>(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<guide*>(new multiguide(v)); return;}
}

#line 980 "runtime.in"
// realarray* _cputime();
void gen_runtime109(stack *Stack)
{
#line 981 "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<realarray*>(t); return;}
}


// Transforms
#line 996 "runtime.in"
// bool ==(transform a, transform b);
void gen_runtime110(stack *Stack)
{
  transform b=vm::pop<transform>(Stack);
  transform a=vm::pop<transform>(Stack);
#line 997 "runtime.in"
  {Stack->push<bool>(a == b); return;}
}

#line 1002 "runtime.in"
// bool !=(transform a, transform b);
void gen_runtime111(stack *Stack)
{
  transform b=vm::pop<transform>(Stack);
  transform a=vm::pop<transform>(Stack);
#line 1003 "runtime.in"
  {Stack->push<bool>(a != b); return;}
}

#line 1007 "runtime.in"
// transform +(transform a, transform b);
void gen_runtime112(stack *Stack)
{
  transform b=vm::pop<transform>(Stack);
  transform a=vm::pop<transform>(Stack);
#line 1008 "runtime.in"
  {Stack->push<transform>(a+b); return;}
}

#line 1012 "runtime.in"
// transform *(transform a, transform b);
void gen_runtime113(stack *Stack)
{
  transform b=vm::pop<transform>(Stack);
  transform a=vm::pop<transform>(Stack);
#line 1013 "runtime.in"
  {Stack->push<transform>(a*b); return;}
}

#line 1017 "runtime.in"
// pair *(transform t, pair z);
void gen_runtime114(stack *Stack)
{
  pair z=vm::pop<pair>(Stack);
  transform t=vm::pop<transform>(Stack);
#line 1018 "runtime.in"
  {Stack->push<pair>(t*z); return;}
}

#line 1022 "runtime.in"
// path *(transform t, path g);
void gen_runtime115(stack *Stack)
{
  path g=vm::pop<path>(Stack);
  transform t=vm::pop<transform>(Stack);
#line 1023 "runtime.in"
  {Stack->push<path>(transformed(t,g)); return;}
}

#line 1027 "runtime.in"
// pen *(transform t, pen p);
void gen_runtime116(stack *Stack)
{
  pen p=vm::pop<pen>(Stack);
  transform t=vm::pop<transform>(Stack);
#line 1028 "runtime.in"
  {Stack->push<pen>(transformed(t,p)); return;}
}

#line 1032 "runtime.in"
// picture* *(transform t, picture *f);
void gen_runtime117(stack *Stack)
{
  picture * f=vm::pop<picture *>(Stack);
  transform t=vm::pop<transform>(Stack);
#line 1033 "runtime.in"
  {Stack->push<picture*>(transformed(t,f)); return;}
}

#line 1037 "runtime.in"
// picture* *(realarray2 *t, picture *f);
void gen_runtime118(stack *Stack)
{
  picture * f=vm::pop<picture *>(Stack);
  realarray2 * t=vm::pop<realarray2 *>(Stack);
#line 1038 "runtime.in"
  {Stack->push<picture*>(transformed(*t,f)); return;}
}

#line 1042 "runtime.in"
// transform ^(transform t, Int n);
void gen_runtime119(stack *Stack)
{
  Int n=vm::pop<Int>(Stack);
  transform t=vm::pop<transform>(Stack);
#line 1043 "runtime.in"
  transform T;
  if(n < 0) {
    n=-n;
    t=inverse(t);
  }
  for(Int i=0; i < n; i++) T=T*t;
  {Stack->push<transform>(T); return;}
}

#line 1053 "runtime.in"
void transformXPart(stack *Stack)
{
  transform t=vm::pop<transform>(Stack);
#line 1054 "runtime.in"
  {Stack->push<real>(t.getx()); return;}
}

#line 1058 "runtime.in"
void transformYPart(stack *Stack)
{
  transform t=vm::pop<transform>(Stack);
#line 1059 "runtime.in"
  {Stack->push<real>(t.gety()); return;}
}

#line 1063 "runtime.in"
void transformXXPart(stack *Stack)
{
  transform t=vm::pop<transform>(Stack);
#line 1064 "runtime.in"
  {Stack->push<real>(t.getxx()); return;}
}

#line 1068 "runtime.in"
void transformXYPart(stack *Stack)
{
  transform t=vm::pop<transform>(Stack);
#line 1069 "runtime.in"
  {Stack->push<real>(t.getxy()); return;}
}

#line 1073 "runtime.in"
void transformYXPart(stack *Stack)
{
  transform t=vm::pop<transform>(Stack);
#line 1074 "runtime.in"
  {Stack->push<real>(t.getyx()); return;}
}

#line 1078 "runtime.in"
void transformYYPart(stack *Stack)
{
  transform t=vm::pop<transform>(Stack);
#line 1079 "runtime.in"
  {Stack->push<real>(t.getyy()); return;}
}

#line 1083 "runtime.in"
void real6ToTransform(stack *Stack)
{
  real yy=vm::pop<real>(Stack);
  real yx=vm::pop<real>(Stack);
  real xy=vm::pop<real>(Stack);
  real xx=vm::pop<real>(Stack);
  real y=vm::pop<real>(Stack);
  real x=vm::pop<real>(Stack);
#line 1085 "runtime.in"
  {Stack->push<transform>(transform(x,y,xx,xy,yx,yy)); return;}
}

#line 1089 "runtime.in"
// transform shift(transform t);
void gen_runtime127(stack *Stack)
{
  transform t=vm::pop<transform>(Stack);
#line 1090 "runtime.in"
  {Stack->push<transform>(transform(t.getx(),t.gety(),0,0,0,0)); return;}
}

#line 1094 "runtime.in"
// transform shiftless(transform t);
void gen_runtime128(stack *Stack)
{
  transform t=vm::pop<transform>(Stack);
#line 1095 "runtime.in"
  {Stack->push<transform>(transform(0,0,t.getxx(),t.getxy(),t.getyx(),t.getyy())); return;}
}

#line 1099 "runtime.in"
// transform identity();
void transformIdentity(stack *Stack)
{
#line 1100 "runtime.in"
  {Stack->push<transform>(identity); return;}
}

#line 1104 "runtime.in"
// transform inverse(transform t);
void gen_runtime130(stack *Stack)
{
  transform t=vm::pop<transform>(Stack);
#line 1105 "runtime.in"
  {Stack->push<transform>(inverse(t)); return;}
}

#line 1109 "runtime.in"
// transform shift(pair z);
void gen_runtime131(stack *Stack)
{
  pair z=vm::pop<pair>(Stack);
#line 1110 "runtime.in"
  {Stack->push<transform>(shift(z)); return;}
}

#line 1114 "runtime.in"
// transform shift(real x, real y);
void gen_runtime132(stack *Stack)
{
  real y=vm::pop<real>(Stack);
  real x=vm::pop<real>(Stack);
#line 1115 "runtime.in"
  {Stack->push<transform>(shift(pair(x,y))); return;}
}

#line 1119 "runtime.in"
// transform xscale(real x);
void gen_runtime133(stack *Stack)
{
  real x=vm::pop<real>(Stack);
#line 1120 "runtime.in"
  {Stack->push<transform>(xscale(x)); return;}
}

#line 1124 "runtime.in"
// transform yscale(real y);
void gen_runtime134(stack *Stack)
{
  real y=vm::pop<real>(Stack);
#line 1125 "runtime.in"
  {Stack->push<transform>(yscale(y)); return;}
}

#line 1129 "runtime.in"
// transform scale(real x);
void gen_runtime135(stack *Stack)
{
  real x=vm::pop<real>(Stack);
#line 1130 "runtime.in"
  {Stack->push<transform>(scale(x)); return;}
}

#line 1134 "runtime.in"
// transform scale(real x, real y);
void gen_runtime136(stack *Stack)
{
  real y=vm::pop<real>(Stack);
  real x=vm::pop<real>(Stack);
#line 1135 "runtime.in"
  {Stack->push<transform>(xscale(x)*yscale(y)); return;}
}

#line 1139 "runtime.in"
// transform slant(real s);
void gen_runtime137(stack *Stack)
{
  real s=vm::pop<real>(Stack);
#line 1140 "runtime.in"
  {Stack->push<transform>(slant(s)); return;}
}

#line 1144 "runtime.in"
// transform rotate(real angle, pair z=0);
void gen_runtime138(stack *Stack)
{
  pair z=vm::pop<pair>(Stack,0);
  real angle=vm::pop<real>(Stack);
#line 1145 "runtime.in"
  {Stack->push<transform>(rotatearound(z,radians(angle))); return;}
}

#line 1149 "runtime.in"
// transform reflect(pair a, pair b);
void gen_runtime139(stack *Stack)
{
  pair b=vm::pop<pair>(Stack);
  pair a=vm::pop<pair>(Stack);
#line 1150 "runtime.in"
  {Stack->push<transform>(reflectabout(a,b)); return;}
}

} // namespace run

namespace trans {

void gen_runtime_venv(venv &ve)
{
#line 208 "runtime.in"
  REGISTER_BLTIN(run::IntZero,"IntZero");
#line 216 "runtime.in"
  REGISTER_BLTIN(run::realZero,"realZero");
#line 221 "runtime.in"
  REGISTER_BLTIN(run::boolFalse,"boolFalse");
#line 226 "runtime.in"
  REGISTER_BLTIN(run::pushNullArray,"pushNullArray");
#line 231 "runtime.in"
  REGISTER_BLTIN(run::pushNullRecord,"pushNullRecord");
#line 236 "runtime.in"
  REGISTER_BLTIN(run::pushNullFunction,"pushNullFunction");
#line 241 "runtime.in"
  REGISTER_BLTIN(run::pushDefault,"pushDefault");
#line 251 "runtime.in"
  REGISTER_BLTIN(run::isDefault,"isDefault");
#line 258 "runtime.in"
  REGISTER_BLTIN(run::pairToGuide,"pairToGuide");
#line 266 "runtime.in"
  REGISTER_BLTIN(run::pathToGuide,"pathToGuide");
#line 271 "runtime.in"
  REGISTER_BLTIN(run::guideToPath,"guideToPath");
#line 276 "runtime.in"
  REGISTER_BLTIN(run::newPen,"newPen");
#line 284 "runtime.in"
  addFunc(ve, run::gen_runtime12, primBoolean(), "==", formal(primPen(), "a", false, false), formal(primPen(), "b", false, false));
#line 289 "runtime.in"
  addFunc(ve, run::gen_runtime13, primBoolean(), "!=", formal(primPen(), "a", false, false), formal(primPen(), "b", false, false));
#line 294 "runtime.in"
  addFunc(ve, run::gen_runtime14, primPen(), "+", formal(primPen(), "a", false, false), formal(primPen(), "b", false, false));
#line 299 "runtime.in"
  addFunc(ve, run::gen_runtime15, primPen(), "*", formal(primReal(), "a", false, false), formal(primPen(), "b", false, false));
#line 304 "runtime.in"
  addFunc(ve, run::gen_runtime16, primPen(), "*", formal(primPen(), "a", false, false), formal(primReal(), "b", false, false));
#line 309 "runtime.in"
  addFunc(ve, run::gen_runtime17, primPair(), "max", formal(primPen(), "p", false, false));
#line 314 "runtime.in"
  addFunc(ve, run::gen_runtime18, primPair(), "min", formal(primPen(), "p", false, false));
#line 319 "runtime.in"
  addFunc(ve, run::gen_runtime19, primVoid(), "resetdefaultpen");
#line 325 "runtime.in"
  addFunc(ve, run::gen_runtime20, primVoid(), "defaultpen", formal(primPen(), "p", false, false));
#line 330 "runtime.in"
  addFunc(ve, run::gen_runtime21, primPen(), "defaultpen");
#line 335 "runtime.in"
  addFunc(ve, run::gen_runtime22, primBoolean(), "invisible", formal(primPen(), "p", false, false));
#line 340 "runtime.in"
  addFunc(ve, run::gen_runtime23, primPen(), "invisible");
#line 345 "runtime.in"
  addFunc(ve, run::gen_runtime24, primPen(), "gray", formal(primPen(), "p", false, false));
#line 351 "runtime.in"
  addFunc(ve, run::gen_runtime25, primPen(), "rgb", formal(primPen(), "p", false, false));
#line 357 "runtime.in"
  addFunc(ve, run::gen_runtime26, primPen(), "cmyk", formal(primPen(), "p", false, false));
#line 363 "runtime.in"
  addFunc(ve, run::gen_runtime27, primPen(), "interp", formal(primPen(), "a", false, false), formal(primPen(), "b", false, false), formal(primReal(), "t", false, false));
#line 368 "runtime.in"
  addFunc(ve, run::gen_runtime28, primPen(), "rgb", formal(primReal(), "r", false, false), formal(primReal(), "g", false, false), formal(primReal(), "b", false, false));
#line 373 "runtime.in"
  addFunc(ve, run::gen_runtime29, primPen(), "cmyk", formal(primReal(), "c", false, false), formal(primReal(), "m", false, false), formal(primReal(), "y", false, false), formal(primReal(), "k", false, false));
#line 378 "runtime.in"
  addFunc(ve, run::gen_runtime30, primPen(), "gray", formal(primReal(), "gray", false, false));
#line 383 "runtime.in"
  addFunc(ve, run::gen_runtime31, realArray(), "colors", formal(primPen(), "p", false, false));
#line 411 "runtime.in"
  addFunc(ve, run::gen_runtime32, primString() , "colorspace", formal(primPen(), "p", false, false));
#line 418 "runtime.in"
  addFunc(ve, run::gen_runtime33, primPen(), "pattern", formal(primString(), "s", false, false));
#line 423 "runtime.in"
  addFunc(ve, run::gen_runtime34, primString() , "pattern", formal(primPen(), "p", false, false));
#line 428 "runtime.in"
  addFunc(ve, run::gen_runtime35, primPen(), "fillrule", formal(primInt(), "n", false, false));
#line 433 "runtime.in"
  addFunc(ve, run::gen_runtime36, primInt(), "fillrule", formal(primPen(), "p", false, false));
#line 438 "runtime.in"
  addFunc(ve, run::gen_runtime37, primPen(), "opacity", formal(primReal(), "opacity", true, false), formal(primString() , "blend", true, false));
#line 448 "runtime.in"
  addFunc(ve, run::gen_runtime38, primReal(), "opacity", formal(primPen(), "p", false, false));
#line 453 "runtime.in"
  addFunc(ve, run::gen_runtime39, primString() , "blend", formal(primPen(), "p", false, false));
#line 458 "runtime.in"
  addFunc(ve, run::gen_runtime40, primPen(), "linetype", formal(primString(), "s", false, false), formal(primReal(), "offset", true, false), formal(primBoolean(), "scale", true, false), formal(primBoolean(), "adjust", true, false));
#line 463 "runtime.in"
  addFunc(ve, run::gen_runtime41, primString() , "linetype", formal(primPen(), "p", true, false));
#line 468 "runtime.in"
  addFunc(ve, run::gen_runtime42, primReal(), "offset", formal(primPen(), "p", false, false));
#line 473 "runtime.in"
  addFunc(ve, run::gen_runtime43, primBoolean(), "scale", formal(primPen(), "p", false, false));
#line 478 "runtime.in"
  addFunc(ve, run::gen_runtime44, primBoolean(), "adjust", formal(primPen(), "p", false, false));
#line 483 "runtime.in"
  addFunc(ve, run::gen_runtime45, primPen(), "adjust", formal(primPen(), "p", false, false), formal(primReal(), "arclength", false, false), formal(primBoolean(), "cyclic", false, false));
#line 488 "runtime.in"
  addFunc(ve, run::gen_runtime46, primPen(), "linecap", formal(primInt(), "n", false, false));
#line 493 "runtime.in"
  addFunc(ve, run::gen_runtime47, primInt(), "linecap", formal(primPen(), "p", true, false));
#line 498 "runtime.in"
  addFunc(ve, run::gen_runtime48, primPen(), "linejoin", formal(primInt(), "n", false, false));
#line 503 "runtime.in"
  addFunc(ve, run::gen_runtime49, primInt(), "linejoin", formal(primPen(), "p", true, false));
#line 508 "runtime.in"
  addFunc(ve, run::gen_runtime50, primPen(), "miterlimit", formal(primReal(), "x", false, false));
#line 513 "runtime.in"
  addFunc(ve, run::gen_runtime51, primReal(), "miterlimit", formal(primPen(), "p", true, false));
#line 518 "runtime.in"
  addFunc(ve, run::gen_runtime52, primPen(), "linewidth", formal(primReal(), "x", false, false));
#line 523 "runtime.in"
  addFunc(ve, run::gen_runtime53, primReal(), "linewidth", formal(primPen(), "p", true, false));
#line 528 "runtime.in"
  addFunc(ve, run::gen_runtime54, primPen(), "fontcommand", formal(primString(), "s", false, false));
#line 533 "runtime.in"
  addFunc(ve, run::gen_runtime55, primString() , "font", formal(primPen(), "p", true, false));
#line 538 "runtime.in"
  addFunc(ve, run::gen_runtime56, primPen(), "fontsize", formal(primReal(), "size", false, false), formal(primReal(), "lineskip", false, false));
#line 544 "runtime.in"
  addFunc(ve, run::gen_runtime57, primReal(), "fontsize", formal(primPen(), "p", true, false));
#line 549 "runtime.in"
  addFunc(ve, run::gen_runtime58, primReal(), "lineskip", formal(primPen(), "p", true, false));
#line 554 "runtime.in"
  addFunc(ve, run::gen_runtime59, primPen(), "overwrite", formal(primInt(), "n", false, false));
#line 560 "runtime.in"
  addFunc(ve, run::gen_runtime60, primInt(), "overwrite", formal(primPen(), "p", true, false));
#line 565 "runtime.in"
  addFunc(ve, run::gen_runtime61, primPen(), "basealign", formal(primInt(), "n", false, false));
#line 570 "runtime.in"
  addFunc(ve, run::gen_runtime62, primInt(), "basealign", formal(primPen(), "p", true, false));
#line 575 "runtime.in"
  addFunc(ve, run::gen_runtime63, primTransform(), "transform", formal(primPen(), "p", false, false));
#line 580 "runtime.in"
  addFunc(ve, run::gen_runtime64, primPath(), "nib", formal(primPen(), "p", false, false));
#line 585 "runtime.in"
  addFunc(ve, run::gen_runtime65, primPen(), "makepen", formal(primPath(), "p", false, false));
#line 590 "runtime.in"
  addFunc(ve, run::gen_runtime66, primPen(), "colorless", formal(primPen(), "p", false, false));
#line 596 "runtime.in"
  addFunc(ve, run::gen_runtime67, primBoolean(), "interactive");
#line 603 "runtime.in"
  addFunc(ve, run::gen_runtime68, primBoolean(), "uptodate");
#line 608 "runtime.in"
  addFunc(ve, run::gen_runtime69, primInt(), "system", formal(stringArray(), "s", false, false));
#line 622 "runtime.in"
  addFunc(ve, run::gen_runtime70, primBoolean(), "view");
#line 627 "runtime.in"
  addFunc(ve, run::gen_runtime71, primString() , "asydir");
#line 632 "runtime.in"
  addFunc(ve, run::gen_runtime72, primString() , "locale", formal(primString() , "s", true, false));
#line 638 "runtime.in"
  addFunc(ve, run::gen_runtime73, primVoid(), "abort", formal(primString() , "s", true, false));
#line 644 "runtime.in"
  addFunc(ve, run::gen_runtime74, primVoid(), "exit");
#line 649 "runtime.in"
  addFunc(ve, run::gen_runtime75, primVoid(), "assert", formal(primBoolean(), "b", false, false), formal(primString() , "s", true, false));
#line 660 "runtime.in"
  addFunc(ve, run::gen_runtime76, primVoid(), "sleep", formal(primInt(), "seconds", false, false));
#line 666 "runtime.in"
  addFunc(ve, run::gen_runtime77, primVoid(), "usleep", formal(primInt(), "microseconds", false, false));
#line 672 "runtime.in"
  addFunc(ve, run::gen_runtime78, primVoid(), "_eval", formal(primString(), "s", false, false), formal(primBoolean(), "embedded", false, false), formal(primBoolean(), "interactivewrite", true, false));
#line 685 "runtime.in"
  addFunc(ve, run::gen_runtime79, primVoid(), "_eval", formal(primCode(), "s", false, false), formal(primBoolean(), "embedded", false, false));
#line 701 "runtime.in"
  addFunc(ve, run::gen_runtime80, primString() , "location");
#line 707 "runtime.in"
  REGISTER_BLTIN(run::loadModule,"loadModule");
#line 713 "runtime.in"
  addFunc(ve, run::gen_runtime82, primString() , "cd", formal(primString() , "s", true, false));
#line 719 "runtime.in"
  addFunc(ve, run::gen_runtime83, primVoid(), "list", formal(primString(), "s", false, false), formal(primBoolean(), "imports", true, false));
#line 728 "runtime.in"
  REGISTER_BLTIN(run::nullGuide,"nullGuide");
#line 736 "runtime.in"
  REGISTER_BLTIN(run::dotsGuide,"dotsGuide");
#line 746 "runtime.in"
  REGISTER_BLTIN(run::dashesGuide,"dashesGuide");
#line 773 "runtime.in"
  REGISTER_BLTIN(run::newCycleToken,"newCycleToken");
#line 778 "runtime.in"
  addFunc(ve, run::gen_runtime88, primGuide(), "operator cast", formal(primCycleToken(), "tok", false, false));
#line 785 "runtime.in"
  addFunc(ve, run::gen_runtime89, primGuide(), "operator spec", formal(primPair(), "z", false, false), formal(primInt(), "p", false, false));
#line 793 "runtime.in"
  addFunc(ve, run::gen_runtime90, primCurlSpecifier(), "operator curl", formal(primReal(), "gamma", false, false), formal(primInt(), "p", false, false));
#line 799 "runtime.in"
  REGISTER_BLTIN(run::curlSpecifierValuePart,"curlSpecifierValuePart");
#line 804 "runtime.in"
  REGISTER_BLTIN(run::curlSpecifierSidePart,"curlSpecifierSidePart");
#line 809 "runtime.in"
  addFunc(ve, run::gen_runtime93, primGuide(), "operator cast", formal(primCurlSpecifier(), "spec", false, false));
#line 814 "runtime.in"
  addFunc(ve, run::gen_runtime94, primTensionSpecifier(), "operator tension", formal(primReal(), "tout", false, false), formal(primReal(), "tin", false, false), formal(primBoolean(), "atleast", false, false));
#line 819 "runtime.in"
  REGISTER_BLTIN(run::tensionSpecifierOutPart,"tensionSpecifierOutPart");
#line 824 "runtime.in"
  REGISTER_BLTIN(run::tensionSpecifierInPart,"tensionSpecifierInPart");
#line 829 "runtime.in"
  REGISTER_BLTIN(run::tensionSpecifierAtleastPart,"tensionSpecifierAtleastPart");
#line 834 "runtime.in"
  addFunc(ve, run::gen_runtime98, primGuide(), "operator cast", formal(primTensionSpecifier(), "t", false, false));
#line 839 "runtime.in"
  addFunc(ve, run::gen_runtime99, primGuide(), "operator controls", formal(primPair(), "zout", false, false), formal(primPair(), "zin", false, false));
#line 844 "runtime.in"
  addFunc(ve, run::gen_runtime100, primInt(), "size", formal(primGuide(), "g", false, false));
#line 851 "runtime.in"
  addFunc(ve, run::gen_runtime101, primInt(), "length", formal(primGuide(), "g", false, false));
#line 858 "runtime.in"
  addFunc(ve, run::gen_runtime102, primBoolean(), "cyclic", formal(primGuide(), "g", false, false));
#line 865 "runtime.in"
  addFunc(ve, run::gen_runtime103, primPair(), "point", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false));
#line 872 "runtime.in"
  addFunc(ve, run::gen_runtime104, pairArray(), "dirSpecifier", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false));
#line 884 "runtime.in"
  addFunc(ve, run::gen_runtime105, pairArray(), "controlSpecifier", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false));
#line 901 "runtime.in"
  addFunc(ve, run::gen_runtime106, primTensionSpecifier(), "tensionSpecifier", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false));
#line 911 "runtime.in"
  addFunc(ve, run::gen_runtime107, realArray(), "curlSpecifier", formal(primGuide(), "g", false, false), formal(primInt(), "t", false, false));
#line 925 "runtime.in"
  addFunc(ve, run::gen_runtime108, primGuide(), "reverse", formal(primGuide(), "g", false, false));
#line 980 "runtime.in"
  addFunc(ve, run::gen_runtime109, realArray(), "_cputime");
#line 994 "runtime.in"
  addFunc(ve, run::gen_runtime110, primBoolean(), "==", formal(primTransform(), "a", false, false), formal(primTransform(), "b", false, false));
#line 1002 "runtime.in"
  addFunc(ve, run::gen_runtime111, primBoolean(), "!=", formal(primTransform(), "a", false, false), formal(primTransform(), "b", false, false));
#line 1007 "runtime.in"
  addFunc(ve, run::gen_runtime112, primTransform(), "+", formal(primTransform(), "a", false, false), formal(primTransform(), "b", false, false));
#line 1012 "runtime.in"
  addFunc(ve, run::gen_runtime113, primTransform(), "*", formal(primTransform(), "a", false, false), formal(primTransform(), "b", false, false));
#line 1017 "runtime.in"
  addFunc(ve, run::gen_runtime114, primPair(), "*", formal(primTransform(), "t", false, false), formal(primPair(), "z", false, false));
#line 1022 "runtime.in"
  addFunc(ve, run::gen_runtime115, primPath(), "*", formal(primTransform(), "t", false, false), formal(primPath(), "g", false, false));
#line 1027 "runtime.in"
  addFunc(ve, run::gen_runtime116, primPen(), "*", formal(primTransform(), "t", false, false), formal(primPen(), "p", false, false));
#line 1032 "runtime.in"
  addFunc(ve, run::gen_runtime117, primPicture(), "*", formal(primTransform(), "t", false, false), formal(primPicture(), "f", false, false));
#line 1037 "runtime.in"
  addFunc(ve, run::gen_runtime118, primPicture(), "*", formal(realArray2(), "t", false, false), formal(primPicture(), "f", false, false));
#line 1042 "runtime.in"
  addFunc(ve, run::gen_runtime119, primTransform(), "^", formal(primTransform(), "t", false, false), formal(primInt(), "n", false, false));
#line 1053 "runtime.in"
  REGISTER_BLTIN(run::transformXPart,"transformXPart");
#line 1058 "runtime.in"
  REGISTER_BLTIN(run::transformYPart,"transformYPart");
#line 1063 "runtime.in"
  REGISTER_BLTIN(run::transformXXPart,"transformXXPart");
#line 1068 "runtime.in"
  REGISTER_BLTIN(run::transformXYPart,"transformXYPart");
#line 1073 "runtime.in"
  REGISTER_BLTIN(run::transformYXPart,"transformYXPart");
#line 1078 "runtime.in"
  REGISTER_BLTIN(run::transformYYPart,"transformYYPart");
#line 1083 "runtime.in"
  REGISTER_BLTIN(run::real6ToTransform,"real6ToTransform");
#line 1089 "runtime.in"
  addFunc(ve, run::gen_runtime127, primTransform(), "shift", formal(primTransform(), "t", false, false));
#line 1094 "runtime.in"
  addFunc(ve, run::gen_runtime128, primTransform(), "shiftless", formal(primTransform(), "t", false, false));
#line 1099 "runtime.in"
  addFunc(ve, run::transformIdentity, primTransform(), "identity");
#line 1104 "runtime.in"
  addFunc(ve, run::gen_runtime130, primTransform(), "inverse", formal(primTransform(), "t", false, false));
#line 1109 "runtime.in"
  addFunc(ve, run::gen_runtime131, primTransform(), "shift", formal(primPair(), "z", false, false));
#line 1114 "runtime.in"
  addFunc(ve, run::gen_runtime132, primTransform(), "shift", formal(primReal(), "x", false, false), formal(primReal(), "y", false, false));
#line 1119 "runtime.in"
  addFunc(ve, run::gen_runtime133, primTransform(), "xscale", formal(primReal(), "x", false, false));
#line 1124 "runtime.in"
  addFunc(ve, run::gen_runtime134, primTransform(), "yscale", formal(primReal(), "y", false, false));
#line 1129 "runtime.in"
  addFunc(ve, run::gen_runtime135, primTransform(), "scale", formal(primReal(), "x", false, false));
#line 1134 "runtime.in"
  addFunc(ve, run::gen_runtime136, primTransform(), "scale", formal(primReal(), "x", false, false), formal(primReal(), "y", false, false));
#line 1139 "runtime.in"
  addFunc(ve, run::gen_runtime137, primTransform(), "slant", formal(primReal(), "s", false, false));
#line 1144 "runtime.in"
  addFunc(ve, run::gen_runtime138, primTransform(), "rotate", formal(primReal(), "angle", false, false), formal(primPair(), "z", true, false));
#line 1149 "runtime.in"
  addFunc(ve, run::gen_runtime139, primTransform(), "reflect", formal(primPair(), "a", false, false), formal(primPair(), "b", false, false));
}

} // namespace trans