summaryrefslogtreecommitdiff
path: root/Build/source/utils/asymptote/runfile.cc
diff options
context:
space:
mode:
authorDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
committerDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
commitc6101f91d071883b48b1b4b51e5eba0f36d9a78d (patch)
tree1bf7f5a881d7a4f5c5bf59d0b2821943dd822372 /Build/source/utils/asymptote/runfile.cc
parent07ee7222e389b0777456b427a55c22d0e6ffd267 (diff)
French translation for tlmgr updated
git-svn-id: svn://tug.org/texlive/trunk@57912 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/utils/asymptote/runfile.cc')
-rw-r--r--Build/source/utils/asymptote/runfile.cc688
1 files changed, 0 insertions, 688 deletions
diff --git a/Build/source/utils/asymptote/runfile.cc b/Build/source/utils/asymptote/runfile.cc
deleted file mode 100644
index 72ead073b2c..00000000000
--- a/Build/source/utils/asymptote/runfile.cc
+++ /dev/null
@@ -1,688 +0,0 @@
-/***** 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 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"
-#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
-
-typedef double real;
-
-void unused(void *);
-
-namespace run {
-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"
-
-#ifdef __CYGWIN__
- extern "C" int mkstemp(char *c);
-#endif
-
-using namespace camp;
-using namespace settings;
-using namespace vm;
-
-string commentchar="#";
-
-// Autogenerated routines:
-
-
-
-#ifndef NOSYM
-#include "runfile.symbols.h"
-
-#endif
-namespace run {
-#line 28 "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 29 "runfile.in"
- {Stack->push<bool>(a == b); return;}
-}
-
-#line 33 "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 34 "runfile.in"
- {Stack->push<bool>(a != b); return;}
-}
-
-#line 38 "runfile.in"
-void nullFile(stack *Stack)
-{
-#line 39 "runfile.in"
- {Stack->push<file*>(&camp::nullfile); return;}
-}
-
-#line 43 "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 45 "runfile.in"
- file *f=NULL;
- if(mode == "binary") {
- f=new ibfile(name,check);
- } else if(mode == "xdr") {
-#ifdef HAVE_RPC_RPC_H
- f=new ixfile(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 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 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,emptystring);
-#line 73 "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_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 108 "runfile.in"
-// bool eof(file *f);
-void gen_runfile5(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
-#line 109 "runfile.in"
- {Stack->push<bool>(f->eof()); return;}
-}
-
-#line 113 "runfile.in"
-// bool eol(file *f);
-void gen_runfile6(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
-#line 114 "runfile.in"
- {Stack->push<bool>(f->eol()); return;}
-}
-
-#line 118 "runfile.in"
-// bool error(file *f);
-void gen_runfile7(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
-#line 119 "runfile.in"
- {Stack->push<bool>(f->error()); return;}
-}
-
-#line 123 "runfile.in"
-// void clear(file *f);
-void gen_runfile8(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
-#line 124 "runfile.in"
- f->clear();
-}
-
-#line 128 "runfile.in"
-// void close(file *f);
-void gen_runfile9(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
-#line 129 "runfile.in"
- f->close();
-}
-
-#line 133 "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 134 "runfile.in"
- if(f == 0) f=&camp::Stdout;
- {Stack->push<Int>(f->precision(digits)); return;}
-}
-
-#line 139 "runfile.in"
-// void flush(file *f);
-void gen_runfile11(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
-#line 140 "runfile.in"
- f->flush();
-}
-
-#line 144 "runfile.in"
-// string getc(file *f);
-void gen_runfile12(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
-#line 145 "runfile.in"
- char c=0;
- if(f->isOpen()) f->read(c);
- {Stack->push<string>(string(1,c)); return;}
-}
-
-#line 151 "runfile.in"
-// Int tell(file *f);
-void gen_runfile13(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
-#line 152 "runfile.in"
- {Stack->push<Int>(f->tell()); return;}
-}
-
-#line 156 "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 157 "runfile.in"
- f->seek(pos,pos >= 0);
-}
-
-#line 161 "runfile.in"
-// void seekeof(file *f);
-void gen_runfile15(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
-#line 162 "runfile.in"
- f->seek(0,false);
-}
-
-#line 166 "runfile.in"
-void namePart(stack *Stack)
-{
- file f=vm::pop<file>(Stack);
-#line 167 "runfile.in"
- {Stack->push<string>(f.filename()); return;}
-}
-
-#line 171 "runfile.in"
-void modePart(stack *Stack)
-{
- file f=vm::pop<file>(Stack);
-#line 172 "runfile.in"
- {Stack->push<string>(f.FileMode()); return;}
-}
-
-// Set file dimensions
-#line 177 "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 178 "runfile.in"
- f->dimension(nx,ny,nz);
- {Stack->push<file*>(f); return;}
-}
-
-#line 183 "runfile.in"
-void dimensionSet(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
-#line 184 "runfile.in"
- {Stack->push<callable*>(new thunk(new bfunc(dimensionSetHelper),f)); return;}
-}
-
-#line 188 "runfile.in"
-void dimensionPart(stack *Stack)
-{
- file f=vm::pop<file>(Stack);
-#line 189 "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 198 "runfile.in"
-void lineSetHelper(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
- bool b=vm::pop<bool>(Stack,true);
-#line 199 "runfile.in"
- f->LineMode(b);
- {Stack->push<file*>(f); return;}
-}
-
-#line 204 "runfile.in"
-void lineSet(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
-#line 205 "runfile.in"
- {Stack->push<callable*>(new thunk(new bfunc(lineSetHelper),f)); return;}
-}
-
-#line 209 "runfile.in"
-void linePart(stack *Stack)
-{
- file f=vm::pop<file>(Stack);
-#line 210 "runfile.in"
- {Stack->push<bool>(f.LineMode()); return;}
-}
-
-// Set file to read comma-separated values
-#line 215 "runfile.in"
-void csvSetHelper(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
- bool b=vm::pop<bool>(Stack,true);
-#line 216 "runfile.in"
- f->CSVMode(b);
- {Stack->push<file*>(f); return;}
-}
-
-#line 221 "runfile.in"
-void csvSet(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
-#line 222 "runfile.in"
- {Stack->push<callable*>(new thunk(new bfunc(csvSetHelper),f)); return;}
-}
-
-#line 226 "runfile.in"
-void csvPart(stack *Stack)
-{
- file f=vm::pop<file>(Stack);
-#line 227 "runfile.in"
- {Stack->push<bool>(f.CSVMode()); return;}
-}
-
-// Set file to read whitespace-separated values
-#line 232 "runfile.in"
-void wordSetHelper(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
- bool b=vm::pop<bool>(Stack,true);
-#line 233 "runfile.in"
- f->WordMode(b);
- {Stack->push<file*>(f); return;}
-}
-
-#line 238 "runfile.in"
-void wordSet(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
-#line 239 "runfile.in"
- {Stack->push<callable*>(new thunk(new bfunc(wordSetHelper),f)); return;}
-}
-
-#line 243 "runfile.in"
-void wordPart(stack *Stack)
-{
- file f=vm::pop<file>(Stack);
-#line 244 "runfile.in"
- {Stack->push<bool>(f.WordMode()); return;}
-}
-
-// Set file to read/write single precision real XDR values.
-#line 249 "runfile.in"
-void singlerealSetHelper(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
- bool b=vm::pop<bool>(Stack,true);
-#line 250 "runfile.in"
- f->SingleReal(b);
- {Stack->push<file*>(f); return;}
-}
-
-#line 255 "runfile.in"
-void singlerealSet(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
-#line 256 "runfile.in"
- {Stack->push<callable*>(new thunk(new bfunc(singlerealSetHelper),f)); return;}
-}
-
-#line 260 "runfile.in"
-void singlerealPart(stack *Stack)
-{
- file f=vm::pop<file>(Stack);
-#line 261 "runfile.in"
- {Stack->push<bool>(f.SingleReal()); return;}
-}
-
-// Set file to read/write single precision int XDR values.
-#line 266 "runfile.in"
-void singleintSetHelper(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
- bool b=vm::pop<bool>(Stack,true);
-#line 267 "runfile.in"
- f->SingleInt(b);
- {Stack->push<file*>(f); return;}
-}
-
-#line 272 "runfile.in"
-void singleintSet(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
-#line 273 "runfile.in"
- {Stack->push<callable*>(new thunk(new bfunc(singleintSetHelper),f)); return;}
-}
-
-#line 277 "runfile.in"
-void singleintPart(stack *Stack)
-{
- file f=vm::pop<file>(Stack);
-#line 278 "runfile.in"
- {Stack->push<bool>(f.SingleInt()); return;}
-}
-
-// Set file to read/write signed int XDR values.
-#line 283 "runfile.in"
-void signedintSetHelper(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
- bool b=vm::pop<bool>(Stack,true);
-#line 284 "runfile.in"
- f->SignedInt(b);
- {Stack->push<file*>(f); return;}
-}
-
-#line 289 "runfile.in"
-void signedintSet(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
-#line 290 "runfile.in"
- {Stack->push<callable*>(new thunk(new bfunc(signedintSetHelper),f)); return;}
-}
-
-#line 294 "runfile.in"
-void signedintPart(stack *Stack)
-{
- file f=vm::pop<file>(Stack);
-#line 295 "runfile.in"
- {Stack->push<bool>(f.SignedInt()); return;}
-}
-
-// Set file to read an arrayi (i int sizes followed by an i-dimensional array)
-#line 300 "runfile.in"
-void readSetHelper(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
- Int i=vm::pop<Int>(Stack);
-#line 301 "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 322 "runfile.in"
-void readSet(stack *Stack)
-{
- file * f=vm::pop<file *>(Stack);
-#line 323 "runfile.in"
- {Stack->push<callable*>(new thunk(new bfunc(readSetHelper),f)); return;}
-}
-
-// Delete file named s.
-#line 328 "runfile.in"
-// Int delete(string s);
-void gen_runfile41(stack *Stack)
-{
- string s=vm::pop<string>(Stack);
-#line 329 "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 338 "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 339 "runfile.in"
- from=outpath(from);
- to=outpath(to);
- Int rc=rename(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 349 "runfile.in"
-// string mktemp(string s);
-void gen_runfile43(stack *Stack)
-{
- string s=vm::pop<string>(Stack);
-#line 350 "runfile.in"
- char *S=StrdupMalloc(s+"XXXXXX");
- int fd=mkstemp(S);
- if(fd < 0) {
- ostringstream buf;
- buf << "Could not create unique temporary filename based on " << s;
- error(buf);
- }
- string T(S);
- free(S);
- {Stack->push<string>(T); return;}
-}
-
-} // namespace run
-
-namespace trans {
-
-void gen_runfile_venv(venv &ve)
-{
-#line 28 "runfile.in"
- addFunc(ve, run::gen_runfile0, primBoolean(), SYM_EQ, formal(primFile(), SYM(a), false, false), formal(primFile(), SYM(b), false, false));
-#line 33 "runfile.in"
- addFunc(ve, run::gen_runfile1, primBoolean(), SYM_NEQ, formal(primFile(), SYM(a), false, false), formal(primFile(), SYM(b), false, false));
-#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), 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 151 "runfile.in"
- addFunc(ve, run::gen_runfile13, primInt(), SYM(tell), formal(primFile(), SYM(f), false, false));
-#line 156 "runfile.in"
- addFunc(ve, run::gen_runfile14, primVoid(), SYM(seek), formal(primFile(), SYM(f), false, false), formal(primInt(), SYM(pos), false, false));
-#line 161 "runfile.in"
- addFunc(ve, run::gen_runfile15, primVoid(), SYM(seekeof), formal(primFile(), SYM(f), false, false));
-#line 166 "runfile.in"
- REGISTER_BLTIN(run::namePart,"namePart");
-#line 171 "runfile.in"
- REGISTER_BLTIN(run::modePart,"modePart");
-#line 176 "runfile.in"
- REGISTER_BLTIN(run::dimensionSetHelper,"dimensionSetHelper");
-#line 183 "runfile.in"
- REGISTER_BLTIN(run::dimensionSet,"dimensionSet");
-#line 188 "runfile.in"
- REGISTER_BLTIN(run::dimensionPart,"dimensionPart");
-#line 197 "runfile.in"
- REGISTER_BLTIN(run::lineSetHelper,"lineSetHelper");
-#line 204 "runfile.in"
- REGISTER_BLTIN(run::lineSet,"lineSet");
-#line 209 "runfile.in"
- REGISTER_BLTIN(run::linePart,"linePart");
-#line 214 "runfile.in"
- REGISTER_BLTIN(run::csvSetHelper,"csvSetHelper");
-#line 221 "runfile.in"
- REGISTER_BLTIN(run::csvSet,"csvSet");
-#line 226 "runfile.in"
- REGISTER_BLTIN(run::csvPart,"csvPart");
-#line 231 "runfile.in"
- REGISTER_BLTIN(run::wordSetHelper,"wordSetHelper");
-#line 238 "runfile.in"
- REGISTER_BLTIN(run::wordSet,"wordSet");
-#line 243 "runfile.in"
- REGISTER_BLTIN(run::wordPart,"wordPart");
-#line 248 "runfile.in"
- REGISTER_BLTIN(run::singlerealSetHelper,"singlerealSetHelper");
-#line 255 "runfile.in"
- REGISTER_BLTIN(run::singlerealSet,"singlerealSet");
-#line 260 "runfile.in"
- REGISTER_BLTIN(run::singlerealPart,"singlerealPart");
-#line 265 "runfile.in"
- REGISTER_BLTIN(run::singleintSetHelper,"singleintSetHelper");
-#line 272 "runfile.in"
- REGISTER_BLTIN(run::singleintSet,"singleintSet");
-#line 277 "runfile.in"
- REGISTER_BLTIN(run::singleintPart,"singleintPart");
-#line 282 "runfile.in"
- REGISTER_BLTIN(run::signedintSetHelper,"signedintSetHelper");
-#line 289 "runfile.in"
- REGISTER_BLTIN(run::signedintSet,"signedintSet");
-#line 294 "runfile.in"
- REGISTER_BLTIN(run::signedintPart,"signedintPart");
-#line 299 "runfile.in"
- REGISTER_BLTIN(run::readSetHelper,"readSetHelper");
-#line 322 "runfile.in"
- REGISTER_BLTIN(run::readSet,"readSet");
-#line 327 "runfile.in"
- addFunc(ve, run::gen_runfile41, primInt(), SYM(delete), formal(primString(), SYM(s), false, false));
-#line 337 "runfile.in"
- addFunc(ve, run::gen_runfile42, primInt(), SYM(rename), formal(primString(), SYM(from), false, false), formal(primString(), SYM(to), false, false));
-#line 348 "runfile.in"
- addFunc(ve, run::gen_runfile43, primString(), SYM(mktemp), formal(primString(), SYM(s), false, false));
-}
-
-} // namespace trans