summaryrefslogtreecommitdiff
path: root/Build/source/utils/asymptote/builtin.h
blob: f29a97ccd409eaaf501556aff87876ae18ee9823 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
/*****
 * builtin.h
 * Tom Prince 2004/08/25
 *
 * Initialize builtins.
 *****/
#ifndef BUILTIN_H
#define BUILTIN_H

#include "vm.h"
#include "types.h"
#include "arrayop.h"

namespace trans {

class tenv;
class venv;

// The base environments for built-in types and functions
void base_tenv(tenv &);
void base_venv(venv &);

extern const types::formal noformal;
  
// Add a function with one or more default arguments.
void addFunc(venv &ve, vm::bltin f, types::ty *result, symbol name, 
             types::formal f1=noformal, types::formal f2=noformal,
             types::formal f3=noformal, types::formal f4=noformal,
             types::formal f5=noformal, types::formal f6=noformal,
             types::formal f7=noformal, types::formal f8=noformal,
             types::formal f9=noformal, types::formal fA=noformal,
             types::formal fB=noformal, types::formal fC=noformal,
             types::formal fD=noformal, types::formal fE=noformal,
             types::formal fF=noformal, types::formal fG=noformal,
             types::formal fH=noformal, types::formal fI=noformal);
  
// Adds standard functions for a newly added types.
void addArrayOps(venv &ve, types::array *t);
void addRecordOps(venv &ve, types::record *r);
void addFunctionOps(venv &ve, types::function *f);

#ifdef HAVE_LIBGSL
types::record *getGSLModule();
void GSLrngFree();
#endif
  
} //namespace trans

namespace run {
extern double infinity;

void single(vm::stack *Stack);
void arrayDeleteHelper(vm::stack *Stack);

// Used by to optimize conditional jumps.
extern const vm::bltin intLess;
extern const vm::bltin intGreater;
}

#endif //BUILTIN_H