File: CloneEnv.h

package info (click to toggle)
storm-lang 0.7.3-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 51,984 kB
  • sloc: ansic: 261,420; cpp: 140,270; sh: 14,877; perl: 9,846; python: 2,525; lisp: 2,504; asm: 860; makefile: 678; pascal: 70; java: 52; xml: 37; awk: 12
file content (71 lines) | stat: -rw-r--r-- 1,658 bytes parent folder | download
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
69
70
71
#pragma once
#include "Object.h"
#include "Map.h"
#include "Utils/Templates.h"

namespace storm {
	STORM_PKG(core);

	/**
	 * Remember objects copied during a clone.
	 *
	 * TODO: We can maybe increase performance by inlining the implementation from Map and ripping
	 * out any Handles.
	 */
	class CloneEnv : public Object {
		STORM_CLASS;
	public:
		STORM_CTOR CloneEnv();

		// If 'o' was cloned before, get the clone of it. Otherwise returns null.
		Object *cloned(Object *o);

		// Tell us that 'o' is cloned into 'to'.
		void cloned(Object *o, Object *to);

		// Storm interface.
		Object *STORM_FN get(Object *o);
		MAYBE(Object *) STORM_FN at(Object *o);

	private:
		// Keep track of the cloned objects. Note: we're letting this map act as if it contained TObjects.
		Map<Object *, Object *> *data;
	};


	/**
	 * Clone an object.
	 */
	template <class T>
	T *clone(const T *obj) {
		return (T *)runtime::cloneObject((RootObject *)obj);
	}

	template <class T>
	T *clone(const T *obj, CloneEnv *env) {
		return (T *)runtime::cloneObjectEnv((RootObject *)obj, env);
	}


	/**
	 * Make a cloned variand of a variable in C++. Useful when implementing deepCopy()
	 */
	template <class T>
	void cloned(T *&obj, CloneEnv *env) {
		obj = clone(obj, env);
	}

	template <class T>
	void cloned(T &value, CloneEnv *env) {
		value.deepCopy(env);
	}

	inline void cloned(Bool v, CloneEnv *e) {}
	inline void cloned(Byte v, CloneEnv *e) {}
	inline void cloned(Int v, CloneEnv *e) {}
	inline void cloned(Nat v, CloneEnv *e) {}
	inline void cloned(Long v, CloneEnv *e) {}
	inline void cloned(Word v, CloneEnv *e) {}
	inline void cloned(Float v, CloneEnv *e) {}

}