1 | #pragma once |
---|

2 | |
---|

3 | #include <stdbool.h> |
---|

4 | #include <stdint.h> |
---|

5 | |
---|

6 | struct gcpointer_t |
---|

7 | { |
---|

8 | intptr_t ptr; |
---|

9 | struct gcpointer_t* next; |
---|

10 | }; |
---|

11 | |
---|

12 | void gcpointer_ctor(gcpointer_t* this); |
---|

13 | void gcpointer_ctor(gcpointer_t* this, void* address); |
---|

14 | void gcpointer_ctor(gcpointer_t* this, gcpointer_t* other); |
---|

15 | void gcpointer_dtor(gcpointer_t* this); |
---|

16 | gcpointer_t* gcpointer_assign(gcpointer_t* this, gcpointer_t* rhs); |
---|

17 | |
---|

18 | //Logical operators |
---|

19 | bool gcpointer_equal(gcpointer_t* this, gcpointer_t* rhs); |
---|

20 | bool gcpointer_not_equal(gcpointer_t* this, gcpointer_t* rhs); |
---|

21 | bool gcpointer_null(gcpointer_t* this); |
---|

22 | |
---|

23 | forall(otype T) |
---|

24 | struct gcpointer |
---|

25 | { |
---|

26 | gcpointer_t internal; |
---|

27 | }; |
---|

28 | |
---|

29 | forall(otype T) |
---|

30 | static inline void ctor(gcpointer(T)* this) |
---|

31 | { |
---|

32 | gcpointer_ctor(&this->internal); |
---|

33 | } |
---|

34 | |
---|

35 | // forall(otype T) |
---|

36 | // static inline void ctor(gcpointer(T)* this, int null) |
---|

37 | // { |
---|

38 | // gcpointer_ctor(&this->internal, NULL); |
---|

39 | // } |
---|

40 | |
---|

41 | forall(otype T) |
---|

42 | static inline void ctor(gcpointer(T)* this, void* address) |
---|

43 | { |
---|

44 | gcpointer_ctor(&this->internal, address); |
---|

45 | } |
---|

46 | |
---|

47 | forall(otype T) |
---|

48 | static inline void ctor(gcpointer(T)* this, gcpointer(T)* other) |
---|

49 | { |
---|

50 | gcpointer_ctor(&this->internal, other); |
---|

51 | } |
---|

52 | |
---|

53 | forall(otype T) |
---|

54 | static inline void dtor(gcpointer(T)* this) |
---|

55 | { |
---|

56 | gcpointer_dtor(&this->internal); |
---|

57 | } |
---|

58 | |
---|

59 | forall(otype T) |
---|

60 | static inline gcpointer(T)* ?=?(gcpointer(T)* this, gcpointer(T)* rhs) |
---|

61 | { |
---|

62 | gcpointer_assign(&this->internal, &rhs->internal); |
---|

63 | return this; |
---|

64 | } |
---|

65 | |
---|

66 | forall(otype T) |
---|

67 | static inline T *?(gcpointer(T) this) |
---|

68 | { |
---|

69 | return *(T*)this.internal.ptr; |
---|

70 | } |
---|

71 | |
---|

72 | //Logical operators |
---|

73 | forall(otype T) |
---|

74 | static inline int ?!=?(gcpointer(T) this, gcpointer(T) rhs) |
---|

75 | { |
---|

76 | return this.internal.ptr != rhs.internal.ptr; |
---|

77 | } |
---|

78 | |
---|

79 | forall(otype T) |
---|

80 | static inline int ?==?(gcpointer(T) this, gcpointer(T) rhs) |
---|

81 | { |
---|

82 | return !(this == rhs); |
---|

83 | } |
---|

84 | |
---|

85 | forall(otype T) |
---|

86 | extern struct gcpointer(T) 0; |
---|