asy 2.16 sources

git-svn-id: svn://tug.org/texlive/trunk@26734 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 201 insertions, 233 deletions

diff --git a/Build/source/utils/asymptote/runfile.cc b/Build/source/utils/asymptote/runfile.cc
index 776a131647c..98303cf52f3 100644
--- a/Build/source/utils/asymptote/runfile.cc
+++ b/Build/source/utils/asymptote/runfile.cc
@@ -112,177 +112,153 @@ void nullFile(stack *Stack)
 }
 
 #line 43 "runfile.in"
-// file* input(string name, bool check=true, string comment=commentchar);
+// file* input(string name=emptystring, bool check=true,            string comment=commentchar, string mode=emptystring);
 void gen_runfile3(stack *Stack)
 {
+  string mode=vm::pop<string>(Stack,emptystring);
   string comment=vm::pop<string>(Stack,commentchar);
   bool check=vm::pop<bool>(Stack,true);
-  string name=vm::pop<string>(Stack);
-#line 44 "runfile.in"
-  char c=comment.empty() ? (char) 0 : comment[0];
-  file *f=new ifile(name,c,check);
-  f->open();
-  {Stack->push<file*>(f); return;}
-}
-
-#line 51 "runfile.in"
-// file* output(string name, bool update=false, string comment=commentchar);
-void gen_runfile4(stack *Stack)
-{
-  string comment=vm::pop<string>(Stack,commentchar);
-  bool update=vm::pop<bool>(Stack,false);
-  string name=vm::pop<string>(Stack);
-#line 52 "runfile.in"
+  string name=vm::pop<string>(Stack,emptystring);
+#line 45 "runfile.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<file*>(f); return;}
-}
-
-#line 63 "runfile.in"
-// file* xinput(string name, bool check=true);
-void gen_runfile5(stack *Stack)
-{
-  bool check=vm::pop<bool>(Stack,true);
-  string name=vm::pop<string>(Stack);
-#line 64 "runfile.in"
+  if(mode == "binary") {
+    f=new ibfile(name,check);
+  } else if(mode == "xdr") {
 #ifdef HAVE_RPC_RPC_H
-  file *f=new ixfile(name,check);
-  f->open();
-  {Stack->push<file*>(f); return;}
+    f=new ixfile(name,check);    
 #else  
   ostringstream buf;
   buf << name << ": XDR read support not enabled";
   error(buf);
-  unused(&check); // Suppress unused variable warning
-#endif
-}
-
-#line 77 "runfile.in"
-// file* xoutput(string name, bool update=false);
-void gen_runfile6(stack *Stack)
-{
-  bool update=vm::pop<bool>(Stack,false);
-  string name=vm::pop<string>(Stack);
-#line 78 "runfile.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<file*>(f); return;}
-#else  
-  ostringstream buf;
-  buf << name << ": XDR write support not enabled";
-  error(buf);
-  unused(&update); // Suppress unused variable warning
 #endif
-}
-
-#line 95 "runfile.in"
-// file* binput(string name, bool check=true);
-void gen_runfile7(stack *Stack)
-{
-  bool check=vm::pop<bool>(Stack,true);
-  string name=vm::pop<string>(Stack);
-#line 96 "runfile.in"
-  file *f=new ibfile(name,check);
+  } else if(mode == "") {
+    char c=comment.empty() ? (char) 0 : comment[0];
+    f=new ifile(name,c,check);
+  } else {
+    f=NULL;
+    ostringstream buf;
+    buf << name << ": invalid file mode '" << mode << "'";
+    error(buf);
+  }
+  
   f->open();
   {Stack->push<file*>(f); return;}
 }
 
-#line 102 "runfile.in"
-// file* boutput(string name, bool update=false);
-void gen_runfile8(stack *Stack)
+#line 71 "runfile.in"
+// file* output(string name=emptystring, bool update=false,             string comment=commentchar, string mode=emptystring);
+void gen_runfile4(stack *Stack)
 {
+  string mode=vm::pop<string>(Stack,emptystring);
+  string comment=vm::pop<string>(Stack,commentchar);
   bool update=vm::pop<bool>(Stack,false);
-  string name=vm::pop<string>(Stack);
-#line 103 "runfile.in"
+  string name=vm::pop<string>(Stack,emptystring);
+#line 73 "runfile.in"
   file *f;
-  if(update) f=new iobfile(name);
-  else f=new obfile(name);
+  if(mode == "pipe") {
+    f=new opipe(name);
+  } else if(mode == "binary") {
+    if(update) f=new iobfile(name);
+    else f=new obfile(name);
+  } else if(mode == "xdr") {
+#ifdef HAVE_RPC_RPC_H
+    if(update)
+      f=new ioxfile(name);
+    else f=new oxfile(name);
+#else  
+    ostringstream buf;
+    buf << name << ": XDR write support not enabled";
+    error(buf);
+#endif
+  } else if(mode == "") {
+    if(update) {
+      char c=comment.empty() ? (char) 0 : comment[0];
+      f=new iofile(name,c);
+    } else f=new ofile(name);
+  } else {
+    f=NULL;
+    ostringstream buf;
+    buf << name << ": invalid file mode '" << mode << "'";
+    error(buf);
+  }
+  
   f->open();
   if(update) f->seek(0,false);
+  
   {Stack->push<file*>(f); return;}
 }
 
-#line 112 "runfile.in"
+#line 108 "runfile.in"
 // bool eof(file *f);
-void gen_runfile9(stack *Stack)
+void gen_runfile5(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
-#line 113 "runfile.in"
+#line 109 "runfile.in"
   {Stack->push<bool>(f->eof()); return;}
 }
 
-#line 117 "runfile.in"
+#line 113 "runfile.in"
 // bool eol(file *f);
-void gen_runfile10(stack *Stack)
+void gen_runfile6(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
-#line 118 "runfile.in"
+#line 114 "runfile.in"
   {Stack->push<bool>(f->eol()); return;}
 }
 
-#line 122 "runfile.in"
+#line 118 "runfile.in"
 // bool error(file *f);
-void gen_runfile11(stack *Stack)
+void gen_runfile7(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
-#line 123 "runfile.in"
+#line 119 "runfile.in"
   {Stack->push<bool>(f->error()); return;}
 }
 
-#line 127 "runfile.in"
+#line 123 "runfile.in"
 // void clear(file *f);
-void gen_runfile12(stack *Stack)
+void gen_runfile8(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
-#line 128 "runfile.in"
+#line 124 "runfile.in"
   f->clear();
 }
 
-#line 132 "runfile.in"
+#line 128 "runfile.in"
 // void close(file *f);
-void gen_runfile13(stack *Stack)
+void gen_runfile9(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
-#line 133 "runfile.in"
+#line 129 "runfile.in"
   f->close();
 }
 
-#line 137 "runfile.in"
+#line 133 "runfile.in"
 // Int precision(file *f=NULL, Int digits=0);
-void gen_runfile14(stack *Stack)
+void gen_runfile10(stack *Stack)
 {
   Int digits=vm::pop<Int>(Stack,0);
   file * f=vm::pop<file *>(Stack,NULL);
-#line 138 "runfile.in"
+#line 134 "runfile.in"
   if(f == 0) f=&camp::Stdout;
   {Stack->push<Int>(f->precision(digits)); return;}
 }
 
-#line 143 "runfile.in"
+#line 139 "runfile.in"
 // void flush(file *f);
-void gen_runfile15(stack *Stack)
+void gen_runfile11(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
-#line 144 "runfile.in"
+#line 140 "runfile.in"
   f->flush();
 }
 
-#line 148 "runfile.in"
+#line 144 "runfile.in"
 // string getc(file *f);
-void gen_runfile16(stack *Stack)
+void gen_runfile12(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
-#line 149 "runfile.in"
+#line 145 "runfile.in"
   char c=0;
   if(f->isOpen()) f->read(c);
   static char str[1];
@@ -290,76 +266,76 @@ void gen_runfile16(stack *Stack)
   {Stack->push<string>(string(str)); return;}
 }
 
-#line 157 "runfile.in"
+#line 153 "runfile.in"
 // Int tell(file *f);
-void gen_runfile17(stack *Stack)
+void gen_runfile13(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
-#line 158 "runfile.in"
+#line 154 "runfile.in"
   {Stack->push<Int>(f->tell()); return;}
 }
 
-#line 162 "runfile.in"
+#line 158 "runfile.in"
 // void seek(file *f, Int pos);
-void gen_runfile18(stack *Stack)
+void gen_runfile14(stack *Stack)
 {
   Int pos=vm::pop<Int>(Stack);
   file * f=vm::pop<file *>(Stack);
-#line 163 "runfile.in"
+#line 159 "runfile.in"
   f->seek(pos,pos >= 0);
 }
 
-#line 167 "runfile.in"
+#line 163 "runfile.in"
 // void seekeof(file *f);
-void gen_runfile19(stack *Stack)
+void gen_runfile15(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
-#line 168 "runfile.in"
+#line 164 "runfile.in"
   f->seek(0,false);
 }
 
-#line 172 "runfile.in"
+#line 168 "runfile.in"
 void namePart(stack *Stack)
 {
   file f=vm::pop<file>(Stack);
-#line 173 "runfile.in"
+#line 169 "runfile.in"
   {Stack->push<string>(f.filename()); return;}
 }
 
-#line 177 "runfile.in"
+#line 173 "runfile.in"
 void modePart(stack *Stack)
 {
   file f=vm::pop<file>(Stack);
-#line 178 "runfile.in"
+#line 174 "runfile.in"
   {Stack->push<string>(f.FileMode()); return;}
 }
 
 // Set file dimensions
-#line 183 "runfile.in"
+#line 179 "runfile.in"
 void dimensionSetHelper(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
   Int nz=vm::pop<Int>(Stack,-1);
   Int ny=vm::pop<Int>(Stack,-1);
   Int nx=vm::pop<Int>(Stack,-1);
-#line 184 "runfile.in"
+#line 180 "runfile.in"
   f->dimension(nx,ny,nz);
   {Stack->push<file*>(f); return;}
 }
 
-#line 189 "runfile.in"
+#line 185 "runfile.in"
 void dimensionSet(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
-#line 190 "runfile.in"
+#line 186 "runfile.in"
   {Stack->push<callable*>(new thunk(new bfunc(dimensionSetHelper),f)); return;}
 }
 
-#line 194 "runfile.in"
+#line 190 "runfile.in"
 void dimensionPart(stack *Stack)
 {
   file f=vm::pop<file>(Stack);
-#line 195 "runfile.in"
+#line 191 "runfile.in"
   array *a=new array(3);
   (*a)[0]=f.Nx();
   (*a)[1]=f.Ny();
@@ -368,174 +344,174 @@ void dimensionPart(stack *Stack)
 }
 
 // Set file f to read arrays in line-at-a-time mode
-#line 204 "runfile.in"
+#line 200 "runfile.in"
 void lineSetHelper(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
   bool b=vm::pop<bool>(Stack,true);
-#line 205 "runfile.in"
+#line 201 "runfile.in"
   f->LineMode(b);
   {Stack->push<file*>(f); return;}
 }
 
-#line 210 "runfile.in"
+#line 206 "runfile.in"
 void lineSet(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
-#line 211 "runfile.in"
+#line 207 "runfile.in"
   {Stack->push<callable*>(new thunk(new bfunc(lineSetHelper),f)); return;}
 }
 
-#line 215 "runfile.in"
+#line 211 "runfile.in"
 void linePart(stack *Stack)
 {
   file f=vm::pop<file>(Stack);
-#line 216 "runfile.in"
+#line 212 "runfile.in"
   {Stack->push<bool>(f.LineMode()); return;}
 }
 
 // Set file to read comma-separated values
-#line 221 "runfile.in"
+#line 217 "runfile.in"
 void csvSetHelper(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
   bool b=vm::pop<bool>(Stack,true);
-#line 222 "runfile.in"
+#line 218 "runfile.in"
   f->CSVMode(b);
   {Stack->push<file*>(f); return;}
 }
 
-#line 227 "runfile.in"
+#line 223 "runfile.in"
 void csvSet(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
-#line 228 "runfile.in"
+#line 224 "runfile.in"
   {Stack->push<callable*>(new thunk(new bfunc(csvSetHelper),f)); return;}
 }
 
-#line 232 "runfile.in"
+#line 228 "runfile.in"
 void csvPart(stack *Stack)
 {
   file f=vm::pop<file>(Stack);
-#line 233 "runfile.in"
+#line 229 "runfile.in"
   {Stack->push<bool>(f.CSVMode()); return;}
 }
 
 // Set file to read whitespace-separated values
-#line 238 "runfile.in"
+#line 234 "runfile.in"
 void wordSetHelper(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
   bool b=vm::pop<bool>(Stack,true);
-#line 239 "runfile.in"
+#line 235 "runfile.in"
   f->WordMode(b);
   {Stack->push<file*>(f); return;}
 }
 
-#line 244 "runfile.in"
+#line 240 "runfile.in"
 void wordSet(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
-#line 245 "runfile.in"
+#line 241 "runfile.in"
   {Stack->push<callable*>(new thunk(new bfunc(wordSetHelper),f)); return;}
 }
 
-#line 249 "runfile.in"
+#line 245 "runfile.in"
 void wordPart(stack *Stack)
 {
   file f=vm::pop<file>(Stack);
-#line 250 "runfile.in"
+#line 246 "runfile.in"
   {Stack->push<bool>(f.WordMode()); return;}
 }
 
 // Set file to read/write single precision real XDR values.
-#line 255 "runfile.in"
+#line 251 "runfile.in"
 void singlerealSetHelper(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
   bool b=vm::pop<bool>(Stack,true);
-#line 256 "runfile.in"
+#line 252 "runfile.in"
   f->SingleReal(b);
   {Stack->push<file*>(f); return;}
 }
 
-#line 261 "runfile.in"
+#line 257 "runfile.in"
 void singlerealSet(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
-#line 262 "runfile.in"
+#line 258 "runfile.in"
   {Stack->push<callable*>(new thunk(new bfunc(singlerealSetHelper),f)); return;}
 }
 
-#line 266 "runfile.in"
+#line 262 "runfile.in"
 void singlerealPart(stack *Stack)
 {
   file f=vm::pop<file>(Stack);
-#line 267 "runfile.in"
+#line 263 "runfile.in"
   {Stack->push<bool>(f.SingleReal()); return;}
 }
 
 // Set file to read/write single precision int XDR values.
-#line 272 "runfile.in"
+#line 268 "runfile.in"
 void singleintSetHelper(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
   bool b=vm::pop<bool>(Stack,true);
-#line 273 "runfile.in"
+#line 269 "runfile.in"
   f->SingleInt(b);
   {Stack->push<file*>(f); return;}
 }
 
-#line 278 "runfile.in"
+#line 274 "runfile.in"
 void singleintSet(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
-#line 279 "runfile.in"
+#line 275 "runfile.in"
   {Stack->push<callable*>(new thunk(new bfunc(singleintSetHelper),f)); return;}
 }
 
-#line 283 "runfile.in"
+#line 279 "runfile.in"
 void singleintPart(stack *Stack)
 {
   file f=vm::pop<file>(Stack);
-#line 284 "runfile.in"
+#line 280 "runfile.in"
   {Stack->push<bool>(f.SingleInt()); return;}
 }
 
 // Set file to read/write signed int XDR values.
-#line 289 "runfile.in"
+#line 285 "runfile.in"
 void signedintSetHelper(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
   bool b=vm::pop<bool>(Stack,true);
-#line 290 "runfile.in"
+#line 286 "runfile.in"
   f->SignedInt(b);
   {Stack->push<file*>(f); return;}
 }
 
-#line 295 "runfile.in"
+#line 291 "runfile.in"
 void signedintSet(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
-#line 296 "runfile.in"
+#line 292 "runfile.in"
   {Stack->push<callable*>(new thunk(new bfunc(signedintSetHelper),f)); return;}
 }
 
-#line 300 "runfile.in"
+#line 296 "runfile.in"
 void signedintPart(stack *Stack)
 {
   file f=vm::pop<file>(Stack);
-#line 301 "runfile.in"
+#line 297 "runfile.in"
   {Stack->push<bool>(f.SignedInt()); return;}
 }
 
 // Set file to read an arrayi (i int sizes followed by an i-dimensional array)
-#line 306 "runfile.in"
+#line 302 "runfile.in"
 void readSetHelper(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
   Int i=vm::pop<Int>(Stack);
-#line 307 "runfile.in"
+#line 303 "runfile.in"
   switch(i) {
     case 1:
       f->dimension(-2);
@@ -556,21 +532,21 @@ void readSetHelper(stack *Stack)
   {Stack->push<file*>(f); return;}
 }
 
-#line 328 "runfile.in"
+#line 324 "runfile.in"
 void readSet(stack *Stack)
 {
   file * f=vm::pop<file *>(Stack);
-#line 329 "runfile.in"
+#line 325 "runfile.in"
   {Stack->push<callable*>(new thunk(new bfunc(readSetHelper),f)); return;}
 }
 
 // Delete file named s.
-#line 334 "runfile.in"
+#line 330 "runfile.in"
 // Int delete(string s);
-void gen_runfile45(stack *Stack)
+void gen_runfile41(stack *Stack)
 {
   string s=vm::pop<string>(Stack);
-#line 335 "runfile.in"
+#line 331 "runfile.in"
   s=outpath(s);
   Int rc=unlink(s.c_str());
   if(rc == 0 && verbose > 0) 
@@ -579,13 +555,13 @@ void gen_runfile45(stack *Stack)
 }
 
 // Rename file "from" to file "to".
-#line 344 "runfile.in"
+#line 340 "runfile.in"
 // Int rename(string from, string to);
-void gen_runfile46(stack *Stack)
+void gen_runfile42(stack *Stack)
 {
   string to=vm::pop<string>(Stack);
   string from=vm::pop<string>(Stack);
-#line 345 "runfile.in"
+#line 341 "runfile.in"
   from=outpath(from);
   to=outpath(to);
   Int rc=rename(from.c_str(),to.c_str());
@@ -595,12 +571,12 @@ void gen_runfile46(stack *Stack)
 }
 
 // Create a unique temporary file name.
-#line 355 "runfile.in"
+#line 351 "runfile.in"
 // string mktemp(string s);
-void gen_runfile47(stack *Stack)
+void gen_runfile43(stack *Stack)
 {
   string s=vm::pop<string>(Stack);
-#line 356 "runfile.in"
+#line 352 "runfile.in"
   char *S=Strdup(s+"XXXXXX");
   int fd=mkstemp(S);
   if(fd < 0) {
@@ -624,95 +600,87 @@ void gen_runfile_venv(venv &ve)
 #line 38 "runfile.in"
   REGISTER_BLTIN(run::nullFile,"nullFile");
 #line 43 "runfile.in"
-  addFunc(ve, run::gen_runfile3, primFile(), SYM(input), formal(primString() , SYM(name), false, false), formal(primBoolean(), SYM(check), true, false), formal(primString() , SYM(comment), true, false));
-#line 51 "runfile.in"
-  addFunc(ve, run::gen_runfile4, primFile(), SYM(output), formal(primString() , SYM(name), false, false), formal(primBoolean(), SYM(update), true, false), formal(primString() , SYM(comment), true, false));
-#line 63 "runfile.in"
-  addFunc(ve, run::gen_runfile5, primFile(), SYM(xinput), formal(primString() , SYM(name), false, false), formal(primBoolean(), SYM(check), true, false));
-#line 77 "runfile.in"
-  addFunc(ve, run::gen_runfile6, primFile(), SYM(xoutput), formal(primString() , SYM(name), false, false), formal(primBoolean(), SYM(update), true, false));
-#line 95 "runfile.in"
-  addFunc(ve, run::gen_runfile7, primFile(), SYM(binput), formal(primString() , SYM(name), false, false), formal(primBoolean(), SYM(check), true, false));
-#line 102 "runfile.in"
-  addFunc(ve, run::gen_runfile8, primFile(), SYM(boutput), formal(primString() , SYM(name), false, false), formal(primBoolean(), SYM(update), true, false));
-#line 112 "runfile.in"
-  addFunc(ve, run::gen_runfile9, primBoolean(), SYM(eof), formal(primFile(), SYM(f), false, false));
-#line 117 "runfile.in"
-  addFunc(ve, run::gen_runfile10, primBoolean(), SYM(eol), formal(primFile(), SYM(f), false, false));
-#line 122 "runfile.in"
-  addFunc(ve, run::gen_runfile11, primBoolean(), SYM(error), formal(primFile(), SYM(f), false, false));
-#line 127 "runfile.in"
-  addFunc(ve, run::gen_runfile12, primVoid(), SYM(clear), formal(primFile(), SYM(f), false, false));
-#line 132 "runfile.in"
-  addFunc(ve, run::gen_runfile13, primVoid(), SYM(close), formal(primFile(), SYM(f), false, false));
-#line 137 "runfile.in"
-  addFunc(ve, run::gen_runfile14, primInt(), SYM(precision), formal(primFile(), SYM(f), true, false), formal(primInt(), SYM(digits), true, false));
-#line 143 "runfile.in"
-  addFunc(ve, run::gen_runfile15, primVoid(), SYM(flush), formal(primFile(), SYM(f), false, false));
-#line 148 "runfile.in"
-  addFunc(ve, run::gen_runfile16, primString() , SYM(getc), formal(primFile(), SYM(f), false, false));
-#line 157 "runfile.in"
-  addFunc(ve, run::gen_runfile17, primInt(), SYM(tell), formal(primFile(), SYM(f), false, false));
-#line 162 "runfile.in"
-  addFunc(ve, run::gen_runfile18, primVoid(), SYM(seek), formal(primFile(), SYM(f), false, false), formal(primInt(), SYM(pos), false, false));
-#line 167 "runfile.in"
-  addFunc(ve, run::gen_runfile19, primVoid(), SYM(seekeof), formal(primFile(), SYM(f), false, false));
-#line 172 "runfile.in"
+  addFunc(ve, run::gen_runfile3, primFile(), SYM(input), formal(primString() , SYM(name), true, false), formal(primBoolean(), SYM(check), true, false), formal(primString() , SYM(comment), true, false), formal(primString() , SYM(mode), true, false));
+#line 71 "runfile.in"
+  addFunc(ve, run::gen_runfile4, primFile(), SYM(output), formal(primString() , SYM(name), true, false), formal(primBoolean(), SYM(update), true, false), formal(primString() , SYM(comment), true, false), formal(primString() , SYM(mode), true, false));
+#line 108 "runfile.in"
+  addFunc(ve, run::gen_runfile5, primBoolean(), SYM(eof), formal(primFile(), SYM(f), false, false));
+#line 113 "runfile.in"
+  addFunc(ve, run::gen_runfile6, primBoolean(), SYM(eol), formal(primFile(), SYM(f), false, false));
+#line 118 "runfile.in"
+  addFunc(ve, run::gen_runfile7, primBoolean(), SYM(error), formal(primFile(), SYM(f), false, false));
+#line 123 "runfile.in"
+  addFunc(ve, run::gen_runfile8, primVoid(), SYM(clear), formal(primFile(), SYM(f), false, false));
+#line 128 "runfile.in"
+  addFunc(ve, run::gen_runfile9, primVoid(), SYM(close), formal(primFile(), SYM(f), false, false));
+#line 133 "runfile.in"
+  addFunc(ve, run::gen_runfile10, primInt(), SYM(precision), formal(primFile(), SYM(f), true, false), formal(primInt(), SYM(digits), true, false));
+#line 139 "runfile.in"
+  addFunc(ve, run::gen_runfile11, primVoid(), SYM(flush), formal(primFile(), SYM(f), false, false));
+#line 144 "runfile.in"
+  addFunc(ve, run::gen_runfile12, primString() , SYM(getc), formal(primFile(), SYM(f), false, false));
+#line 153 "runfile.in"
+  addFunc(ve, run::gen_runfile13, primInt(), SYM(tell), formal(primFile(), SYM(f), false, false));
+#line 158 "runfile.in"
+  addFunc(ve, run::gen_runfile14, primVoid(), SYM(seek), formal(primFile(), SYM(f), false, false), formal(primInt(), SYM(pos), false, false));
+#line 163 "runfile.in"
+  addFunc(ve, run::gen_runfile15, primVoid(), SYM(seekeof), formal(primFile(), SYM(f), false, false));
+#line 168 "runfile.in"
   REGISTER_BLTIN(run::namePart,"namePart");
-#line 177 "runfile.in"
+#line 173 "runfile.in"
   REGISTER_BLTIN(run::modePart,"modePart");
-#line 182 "runfile.in"
+#line 178 "runfile.in"
   REGISTER_BLTIN(run::dimensionSetHelper,"dimensionSetHelper");
-#line 189 "runfile.in"
+#line 185 "runfile.in"
   REGISTER_BLTIN(run::dimensionSet,"dimensionSet");
-#line 194 "runfile.in"
+#line 190 "runfile.in"
   REGISTER_BLTIN(run::dimensionPart,"dimensionPart");
-#line 203 "runfile.in"
+#line 199 "runfile.in"
   REGISTER_BLTIN(run::lineSetHelper,"lineSetHelper");
-#line 210 "runfile.in"
+#line 206 "runfile.in"
   REGISTER_BLTIN(run::lineSet,"lineSet");
-#line 215 "runfile.in"
+#line 211 "runfile.in"
   REGISTER_BLTIN(run::linePart,"linePart");
-#line 220 "runfile.in"
+#line 216 "runfile.in"
   REGISTER_BLTIN(run::csvSetHelper,"csvSetHelper");
-#line 227 "runfile.in"
+#line 223 "runfile.in"
   REGISTER_BLTIN(run::csvSet,"csvSet");
-#line 232 "runfile.in"
+#line 228 "runfile.in"
   REGISTER_BLTIN(run::csvPart,"csvPart");
-#line 237 "runfile.in"
+#line 233 "runfile.in"
   REGISTER_BLTIN(run::wordSetHelper,"wordSetHelper");
-#line 244 "runfile.in"
+#line 240 "runfile.in"
   REGISTER_BLTIN(run::wordSet,"wordSet");
-#line 249 "runfile.in"
+#line 245 "runfile.in"
   REGISTER_BLTIN(run::wordPart,"wordPart");
-#line 254 "runfile.in"
+#line 250 "runfile.in"
   REGISTER_BLTIN(run::singlerealSetHelper,"singlerealSetHelper");
-#line 261 "runfile.in"
+#line 257 "runfile.in"
   REGISTER_BLTIN(run::singlerealSet,"singlerealSet");
-#line 266 "runfile.in"
+#line 262 "runfile.in"
   REGISTER_BLTIN(run::singlerealPart,"singlerealPart");
-#line 271 "runfile.in"
+#line 267 "runfile.in"
   REGISTER_BLTIN(run::singleintSetHelper,"singleintSetHelper");
-#line 278 "runfile.in"
+#line 274 "runfile.in"
   REGISTER_BLTIN(run::singleintSet,"singleintSet");
-#line 283 "runfile.in"
+#line 279 "runfile.in"
   REGISTER_BLTIN(run::singleintPart,"singleintPart");
-#line 288 "runfile.in"
+#line 284 "runfile.in"
   REGISTER_BLTIN(run::signedintSetHelper,"signedintSetHelper");
-#line 295 "runfile.in"
+#line 291 "runfile.in"
   REGISTER_BLTIN(run::signedintSet,"signedintSet");
-#line 300 "runfile.in"
+#line 296 "runfile.in"
   REGISTER_BLTIN(run::signedintPart,"signedintPart");
-#line 305 "runfile.in"
+#line 301 "runfile.in"
   REGISTER_BLTIN(run::readSetHelper,"readSetHelper");
-#line 328 "runfile.in"
+#line 324 "runfile.in"
   REGISTER_BLTIN(run::readSet,"readSet");
-#line 333 "runfile.in"
-  addFunc(ve, run::gen_runfile45, primInt(), SYM(delete), formal(primString() , SYM(s), false, false));
-#line 343 "runfile.in"
-  addFunc(ve, run::gen_runfile46, primInt(), SYM(rename), formal(primString() , SYM(from), false, false), formal(primString() , SYM(to), false, false));
-#line 354 "runfile.in"
-  addFunc(ve, run::gen_runfile47, primString() , SYM(mktemp), formal(primString() , SYM(s), false, false));
+#line 329 "runfile.in"
+  addFunc(ve, run::gen_runfile41, primInt(), SYM(delete), formal(primString() , SYM(s), false, false));
+#line 339 "runfile.in"
+  addFunc(ve, run::gen_runfile42, primInt(), SYM(rename), formal(primString() , SYM(from), false, false), formal(primString() , SYM(to), false, false));
+#line 350 "runfile.in"
+  addFunc(ve, run::gen_runfile43, primString() , SYM(mktemp), formal(primString() , SYM(s), false, false));
 }
 
 } // namespace trans