File: BSUtils.cpp

package info (click to toggle)
storm-lang 0.7.4-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 52,004 kB
  • sloc: ansic: 261,462; cpp: 140,405; sh: 14,891; perl: 9,846; python: 2,525; lisp: 2,504; asm: 860; makefile: 678; pascal: 70; java: 52; xml: 37; awk: 12
file content (68 lines) | stat: -rw-r--r-- 1,930 bytes parent folder | download | duplicates (4)
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
61
62
63
64
65
66
67
68
#include "stdafx.h"
#include "BSUtils.h"
#include "Exception.h"
#include "Type.h"

namespace storm {
	namespace syntax {

		using namespace bs;

		Expr *callMember(Scope scope, Str *name, Expr *me) {
			return callMember(scope, name, me, null);
		}

		Expr *callMember(Scope scope, Str *name, Expr *me, Expr *param) {
			Value type = me->result().type();
			if (type == Value())
				throw new (name) InternalError(S("Can not call members of 'void'."));

			Actuals *actual = new (me) Actuals();
			Array<Value> *params = new (me) Array<Value>();
			params->push(thisPtr(type.type));
			actual->add(me);
			if (param) {
				params->push(param->result().type());
				actual->add(param);
			}

			SimplePart *part = new (me) SimplePart(name, params);
			Named *found = type.type->find(part, scope);
			Function *toCall = as<Function>(found);
			if (!toCall)
				throw new (name) InternalError(TO_S(name, part << S(" was not found!")));

			return new (me) FnCall(me->pos, scope, toCall, actual);
		}

		Expr *callMember(const SrcPos &pos, Scope scope, Str *name, Expr *me) {
			return callMember(pos, scope, name, me, null);
		}

		Expr *callMember(const SrcPos &pos, Scope scope, Str *name, Expr *me, Expr *param) {
			try {
				return callMember(scope, name, me, param);
			} catch (const InternalError *e) {
				throw new (e) SyntaxError(pos, e->message());
			}
		}

		Expr *callMember(Scope scope, const wchar *name, Expr *me) {
			return callMember(scope, name, me, null);
		}

		Expr *callMember(Scope scope, const wchar *name, Expr *me, Expr *param) {
			return callMember(scope, new (me) Str(name), me, param);
		}

		Expr *callMember(const SrcPos &pos, Scope scope, const wchar *name, Expr *me) {
			return callMember(pos, scope, name, me, null);
		}

		Expr *callMember(const SrcPos &pos, Scope scope, const wchar *name, Expr *me, Expr *param) {
			return callMember(pos, scope, new (me) Str(name), me, param);
		}


	}
}