/***** Autogenerated from runfile.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 "./runfile.in"
/*****
* runfile.in
*
* Runtime functions for file operations.
*
*****/

#line 23 "./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"
#include "opsymbols.h"

using vm::stack;
using vm::error;
using vm::array;
using vm::read;
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

void unused(void *);

namespace run {
typedef double real;

array *copyArray(array *a);
array *copyArray2(array *a);
array *copyArray3(array *a);

double *copyTripleArray2Components(array *a, size_t &N,
                                  GCPlacement placement=NoGC);
triple *copyTripleArray2C(array *a, size_t &N,
                         GCPlacement placement=NoGC);
}

function *realRealFunction();

#define CURRENTPEN processData().currentpen

#line 10 "runfile.in"
#include "fileio.h"
#include "callable.h"
#include "triple.h"
#include "array.h"
#include "seconds.h"

#if defined(_WIN32)
#include <io.h>
#else
#include <unistd.h>
#endif

using namespace camp;
using namespace settings;
using namespace vm;

string commentchar="#";

// Autogenerated routines:



#ifndef NOSYM
#include "runfile.symbols.h"

#endif
namespace run {
#line 31 "./runfile.in"
// bool ==(file *a, file *b);
void gen_runfile0(stack *Stack)
{
 file * b=vm::pop<file *>(Stack);
 file * a=vm::pop<file *>(Stack);
#line 32 "./runfile.in"
 {Stack->push<bool>(a == b); return;}
}

#line 36 "./runfile.in"
// bool !=(file *a, file *b);
void gen_runfile1(stack *Stack)
{
 file * b=vm::pop<file *>(Stack);
 file * a=vm::pop<file *>(Stack);
#line 37 "./runfile.in"
 {Stack->push<bool>(a != b); return;}
}

#line 41 "./runfile.in"
void nullFile(stack *Stack)
{
#line 42 "./runfile.in"
 {Stack->push<file*>(&camp::nullfile); return;}
}

#line 46 "./runfile.in"
// 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,emptystring);
#line 48 "./runfile.in"
 file *f=NULL;
 if(mode == "binary")
   f=new ibfile(name,check);
 else if(mode == "xdr" || mode == "xdrgz") {
#ifdef HAVE_LIBTIRPC
   if(mode == "xdr")
     f=new ixfile(name,check);
   else if(mode == "xdrgz")
     f=new igzxfile(name,check);
#else
   ostringstream buf;
   buf << name << ": XDR read support not enabled";
   error(buf);
#endif
 } else if(mode == "") {
   char c=comment.empty() ? (char) 0 : comment[0];
   f=new camp::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 77 "./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,emptystring);
#line 79 "./runfile.in"
 file *f=NULL;
 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_LIBTIRPC
   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 114 "./runfile.in"
// bool eof(file *f);
void gen_runfile5(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
#line 115 "./runfile.in"
 {Stack->push<bool>(f->eof()); return;}
}

#line 119 "./runfile.in"
// bool eol(file *f);
void gen_runfile6(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
#line 120 "./runfile.in"
 {Stack->push<bool>(f->eol()); return;}
}

#line 124 "./runfile.in"
// bool error(file *f);
void gen_runfile7(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
#line 125 "./runfile.in"
 {Stack->push<bool>(f->error()); return;}
}

#line 129 "./runfile.in"
// void clear(file *f);
void gen_runfile8(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
#line 130 "./runfile.in"
 f->clear();
}

#line 134 "./runfile.in"
// void close(file *f);
void gen_runfile9(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
#line 135 "./runfile.in"
 f->close();
}

#line 139 "./runfile.in"
// Int precision(file *f=NULL, Int digits=0);
void gen_runfile10(stack *Stack)
{
 Int digits=vm::pop<Int>(Stack,0);
 file * f=vm::pop<file *>(Stack,NULL);
#line 140 "./runfile.in"
 if(f == 0) f=&camp::Stdout;
 {Stack->push<Int>(f->precision(digits)); return;}
}

#line 145 "./runfile.in"
// void flush(file *f);
void gen_runfile11(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
#line 146 "./runfile.in"
 f->flush();
}

#line 150 "./runfile.in"
// string getc(file *f);
void gen_runfile12(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
#line 151 "./runfile.in"
 char c=0;
 if(f->isOpen()) f->read(c);
 {Stack->push<string>(string(1,c)); return;}
}

#line 157 "./runfile.in"
// Int tell(file *f);
void gen_runfile13(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
#line 158 "./runfile.in"
 {Stack->push<Int>(f->tell()); return;}
}

#line 162 "./runfile.in"
// void seek(file *f, Int pos);
void gen_runfile14(stack *Stack)
{
 Int pos=vm::pop<Int>(Stack);
 file * f=vm::pop<file *>(Stack);
#line 163 "./runfile.in"
 f->seek(pos,pos >= 0);
}

#line 167 "./runfile.in"
// void seekeof(file *f);
void gen_runfile15(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
#line 168 "./runfile.in"
 f->seek(0,false);
}

#line 172 "./runfile.in"
void namePart(stack *Stack)
{
 file f=vm::pop<file>(Stack);
#line 173 "./runfile.in"
 {Stack->push<string>(f.filename()); return;}
}

#line 177 "./runfile.in"
void modePart(stack *Stack)
{
 file f=vm::pop<file>(Stack);
#line 178 "./runfile.in"
 {Stack->push<string>(f.FileMode()); return;}
}

// Set file dimensions
#line 183 "./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"
 f->dimension(nx,ny,nz);
 {Stack->push<file*>(f); return;}
}

#line 189 "./runfile.in"
void dimensionSet(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
#line 190 "./runfile.in"
 {Stack->push<callable*>(new thunk(new bfunc(dimensionSetHelper),f)); return;}
}

#line 194 "./runfile.in"
void dimensionPart(stack *Stack)
{
 file f=vm::pop<file>(Stack);
#line 195 "./runfile.in"
 array *a=new array(3);
 (*a)[0]=f.Nx();
 (*a)[1]=f.Ny();
 (*a)[2]=f.Nz();
 {Stack->push<array*>(a); return;}
}

// Set file f to read arrays in line-at-a-time mode
#line 204 "./runfile.in"
void lineSetHelper(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
 bool b=vm::pop<bool>(Stack,true);
#line 205 "./runfile.in"
 f->LineMode(b);
 {Stack->push<file*>(f); return;}
}

#line 210 "./runfile.in"
void lineSet(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
#line 211 "./runfile.in"
 {Stack->push<callable*>(new thunk(new bfunc(lineSetHelper),f)); return;}
}

#line 215 "./runfile.in"
void linePart(stack *Stack)
{
 file f=vm::pop<file>(Stack);
#line 216 "./runfile.in"
 {Stack->push<bool>(f.LineMode()); return;}
}

// Set file to read comma-separated values
#line 221 "./runfile.in"
void csvSetHelper(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
 bool b=vm::pop<bool>(Stack,true);
#line 222 "./runfile.in"
 f->CSVMode(b);
 {Stack->push<file*>(f); return;}
}

#line 227 "./runfile.in"
void csvSet(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
#line 228 "./runfile.in"
 {Stack->push<callable*>(new thunk(new bfunc(csvSetHelper),f)); return;}
}

#line 232 "./runfile.in"
void csvPart(stack *Stack)
{
 file f=vm::pop<file>(Stack);
#line 233 "./runfile.in"
 {Stack->push<bool>(f.CSVMode()); return;}
}

// Set file to read whitespace-separated values
#line 238 "./runfile.in"
void wordSetHelper(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
 bool b=vm::pop<bool>(Stack,true);
#line 239 "./runfile.in"
 f->WordMode(b);
 {Stack->push<file*>(f); return;}
}

#line 244 "./runfile.in"
void wordSet(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
#line 245 "./runfile.in"
 {Stack->push<callable*>(new thunk(new bfunc(wordSetHelper),f)); return;}
}

#line 249 "./runfile.in"
void wordPart(stack *Stack)
{
 file f=vm::pop<file>(Stack);
#line 250 "./runfile.in"
 {Stack->push<bool>(f.WordMode()); return;}
}

// Set file to read/write single precision real XDR values.
#line 255 "./runfile.in"
void singlerealSetHelper(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
 bool b=vm::pop<bool>(Stack,true);
#line 256 "./runfile.in"
 f->SingleReal(b);
 {Stack->push<file*>(f); return;}
}

#line 261 "./runfile.in"
void singlerealSet(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
#line 262 "./runfile.in"
 {Stack->push<callable*>(new thunk(new bfunc(singlerealSetHelper),f)); return;}
}

#line 266 "./runfile.in"
void singlerealPart(stack *Stack)
{
 file f=vm::pop<file>(Stack);
#line 267 "./runfile.in"
 {Stack->push<bool>(f.SingleReal()); return;}
}

// Set file to read/write single precision int XDR values.
#line 272 "./runfile.in"
void singleintSetHelper(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
 bool b=vm::pop<bool>(Stack,true);
#line 273 "./runfile.in"
 f->SingleInt(b);
 {Stack->push<file*>(f); return;}
}

#line 278 "./runfile.in"
void singleintSet(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
#line 279 "./runfile.in"
 {Stack->push<callable*>(new thunk(new bfunc(singleintSetHelper),f)); return;}
}

#line 283 "./runfile.in"
void singleintPart(stack *Stack)
{
 file f=vm::pop<file>(Stack);
#line 284 "./runfile.in"
 {Stack->push<bool>(f.SingleInt()); return;}
}

// Set file to read/write signed int XDR values.
#line 289 "./runfile.in"
void signedintSetHelper(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
 bool b=vm::pop<bool>(Stack,true);
#line 290 "./runfile.in"
 f->SignedInt(b);
 {Stack->push<file*>(f); return;}
}

#line 295 "./runfile.in"
void signedintSet(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
#line 296 "./runfile.in"
 {Stack->push<callable*>(new thunk(new bfunc(signedintSetHelper),f)); return;}
}

#line 300 "./runfile.in"
void signedintPart(stack *Stack)
{
 file f=vm::pop<file>(Stack);
#line 301 "./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"
void readSetHelper(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
 Int i=vm::pop<Int>(Stack);
#line 307 "./runfile.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<file*>(f); return;}
}

#line 328 "./runfile.in"
void readSet(stack *Stack)
{
 file * f=vm::pop<file *>(Stack);
#line 329 "./runfile.in"
 {Stack->push<callable*>(new thunk(new bfunc(readSetHelper),f)); return;}
}

// Delete file named s.
#line 334 "./runfile.in"
// Int delete(string s);
void gen_runfile41(stack *Stack)
{
 string s=vm::pop<string>(Stack);
#line 335 "./runfile.in"
 s=outpath(s);
 Int rc=unlink(s.c_str());
 if(rc == 0 && verbose > 0)
   cout << "Deleted " << s << endl;
 {Stack->push<Int>(rc); return;}
}

// Rename file "from" to file "to".
#line 344 "./runfile.in"
// Int rename(string from, string to);
void gen_runfile42(stack *Stack)
{
 string to=vm::pop<string>(Stack);
 string from=vm::pop<string>(Stack);
#line 345 "./runfile.in"
 from=outpath(from);
 to=outpath(to);
 Int rc=renameOverwrite(from.c_str(),to.c_str());
 if(rc == 0 && verbose > 0)
   cout << "Renamed " << from << " to " << to << endl;
 {Stack->push<Int>(rc); return;}
}

// Create a uniquely named temporary file.
#line 355 "./runfile.in"
// string mktemp(string s);
void gen_runfile43(stack *Stack)
{
 string s=vm::pop<string>(Stack);
#line 356 "./runfile.in"
 string baseTemplate=s+"XXXXXX";
 char *S=StrdupMalloc(baseTemplate);
 bool success=true;
#if defined(_WIN32)
 if (_mktemp_s(S,baseTemplate.length()+1) != 0)
 {
   success = false;
 }
 FILE* fp;
 if (success && (fopen_s(&fp,S,"w") != 0))
 {
   success = false;
 }
#else
 int fd=mkstemp(S);
 if (fd < 0)
 {
   success = false;
 }
#endif
 if(!success)
 {
   ostringstream buf;
   buf << "Could not create unique temporary filename based on " << s;
   error(buf);
 }
 string T(S);
 free(S);

#if defined(_WIN32)
 bool closeSuccess = fclose(fp) == 0;
#else
 bool closeSuccess = close(fd) == 0;
#endif

 if (!closeSuccess)
 {
   ostringstream buf;
   buf << "Could not finalize temporary file based on " << s;
   error(buf);
 }
 {Stack->push<string>(T); return;}
}

} // namespace run

namespace trans {

void gen_runfile_venv(venv &ve)
{
#line 31 "./runfile.in"
 addFunc(ve, run::gen_runfile0, primBoolean(), SYM_EQ, formal(primFile(), SYM(a), false, false), formal(primFile(), SYM(b), false, false));
#line 36 "./runfile.in"
 addFunc(ve, run::gen_runfile1, primBoolean(), SYM_NEQ, formal(primFile(), SYM(a), false, false), formal(primFile(), SYM(b), false, false));
#line 41 "./runfile.in"
 REGISTER_BLTIN(run::nullFile,"nullFile");
#line 46 "./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 77 "./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 114 "./runfile.in"
 addFunc(ve, run::gen_runfile5, primBoolean(), SYM(eof), formal(primFile(), SYM(f), false, false));
#line 119 "./runfile.in"
 addFunc(ve, run::gen_runfile6, primBoolean(), SYM(eol), formal(primFile(), SYM(f), false, false));
#line 124 "./runfile.in"
 addFunc(ve, run::gen_runfile7, primBoolean(), SYM(error), formal(primFile(), SYM(f), false, false));
#line 129 "./runfile.in"
 addFunc(ve, run::gen_runfile8, primVoid(), SYM(clear), formal(primFile(), SYM(f), false, false));
#line 134 "./runfile.in"
 addFunc(ve, run::gen_runfile9, primVoid(), SYM(close), formal(primFile(), SYM(f), false, false));
#line 139 "./runfile.in"
 addFunc(ve, run::gen_runfile10, primInt(), SYM(precision), formal(primFile(), SYM(f), true, false), formal(primInt(), SYM(digits), true, false));
#line 145 "./runfile.in"
 addFunc(ve, run::gen_runfile11, primVoid(), SYM(flush), formal(primFile(), SYM(f), false, false));
#line 150 "./runfile.in"
 addFunc(ve, run::gen_runfile12, primString(), SYM(getc), formal(primFile(), SYM(f), false, false));
#line 157 "./runfile.in"
 addFunc(ve, run::gen_runfile13, primInt(), SYM(tell), formal(primFile(), SYM(f), false, false));
#line 162 "./runfile.in"
 addFunc(ve, run::gen_runfile14, primVoid(), SYM(seek), formal(primFile(), SYM(f), false, false), formal(primInt(), SYM(pos), false, false));
#line 167 "./runfile.in"
 addFunc(ve, run::gen_runfile15, primVoid(), SYM(seekeof), formal(primFile(), SYM(f), false, false));
#line 172 "./runfile.in"
 REGISTER_BLTIN(run::namePart,"namePart");
#line 177 "./runfile.in"
 REGISTER_BLTIN(run::modePart,"modePart");
#line 182 "./runfile.in"
 REGISTER_BLTIN(run::dimensionSetHelper,"dimensionSetHelper");
#line 189 "./runfile.in"
 REGISTER_BLTIN(run::dimensionSet,"dimensionSet");
#line 194 "./runfile.in"
 REGISTER_BLTIN(run::dimensionPart,"dimensionPart");
#line 203 "./runfile.in"
 REGISTER_BLTIN(run::lineSetHelper,"lineSetHelper");
#line 210 "./runfile.in"
 REGISTER_BLTIN(run::lineSet,"lineSet");
#line 215 "./runfile.in"
 REGISTER_BLTIN(run::linePart,"linePart");
#line 220 "./runfile.in"
 REGISTER_BLTIN(run::csvSetHelper,"csvSetHelper");
#line 227 "./runfile.in"
 REGISTER_BLTIN(run::csvSet,"csvSet");
#line 232 "./runfile.in"
 REGISTER_BLTIN(run::csvPart,"csvPart");
#line 237 "./runfile.in"
 REGISTER_BLTIN(run::wordSetHelper,"wordSetHelper");
#line 244 "./runfile.in"
 REGISTER_BLTIN(run::wordSet,"wordSet");
#line 249 "./runfile.in"
 REGISTER_BLTIN(run::wordPart,"wordPart");
#line 254 "./runfile.in"
 REGISTER_BLTIN(run::singlerealSetHelper,"singlerealSetHelper");
#line 261 "./runfile.in"
 REGISTER_BLTIN(run::singlerealSet,"singlerealSet");
#line 266 "./runfile.in"
 REGISTER_BLTIN(run::singlerealPart,"singlerealPart");
#line 271 "./runfile.in"
 REGISTER_BLTIN(run::singleintSetHelper,"singleintSetHelper");
#line 278 "./runfile.in"
 REGISTER_BLTIN(run::singleintSet,"singleintSet");
#line 283 "./runfile.in"
 REGISTER_BLTIN(run::singleintPart,"singleintPart");
#line 288 "./runfile.in"
 REGISTER_BLTIN(run::signedintSetHelper,"signedintSetHelper");
#line 295 "./runfile.in"
 REGISTER_BLTIN(run::signedintSet,"signedintSet");
#line 300 "./runfile.in"
 REGISTER_BLTIN(run::signedintPart,"signedintPart");
#line 305 "./runfile.in"
 REGISTER_BLTIN(run::readSetHelper,"readSetHelper");
#line 328 "./runfile.in"
 REGISTER_BLTIN(run::readSet,"readSet");
#line 333 "./runfile.in"
 addFunc(ve, run::gen_runfile41, primInt(), SYM(delete), formal(primString(), SYM(s), false, false));
#line 343 "./runfile.in"
 addFunc(ve, run::gen_runfile42, primInt(), SYM(rename), formal(primString(), SYM(from), false, false), formal(primString(), SYM(to), false, false));
#line 354 "./runfile.in"
 addFunc(ve, run::gen_runfile43, primString(), SYM(mktemp), formal(primString(), SYM(s), false, false));
}

} // namespace trans

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.