1
2
3
4
5
6
7
8
9
10
11
12
13
..
40
41
42
43
44
45
46
47
48
49
50
51
52
53
..
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
..
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
(* [ʞ] src/janet-rsrc.gcd vi:ft=d
* ~ lexi hale <lexi@hale.su>
* 🄯 AGPLv3
* ? implement the saving and loading of janet scripts
*)
use "util.h";
use <assert.h>;
use "janet-lang.h";
use {
static gd_packedStringArray
janetExts(void) {
gd_packedStringArray r = {};
................................................................................
|| gdu_symEq(&type, "JanetScriptImage");
};
impl _get_resource_type(string path) -> string {
const char* str = "";
switch (janetKind(&path)) {
case janetFileImage: str="JanetScriptImage"; break;
case janetFileText: str="JanetScriptText"; break;
}
return gdu_str(str);
};
use {
static inline gd_variant
vFromErr(int64_t err) {
gd_variant v;
................................................................................
};
impl _load
( string path;
string origPath;
bool subThreads;
int cacheMode;
) -> variant {
switch (janetKind(&path)) {
case janetFileImage: {
auto s = gdjn_class_JanetScriptImage_new();
return vFromObj(gdu_cast(s->self, "Resource"));
};
case janetFileText: {
auto s = gdjn_class_JanetScriptText_new();
return vFromObj(gdu_cast(s->self, "Resource"));
};
default: {
return vFromErr(gd_Error_errFileUnrecognized);
};
}
};
};
class JanetScriptSaver is ResourceFormatSaver {
use {
static inline bool
................................................................................
|| _gdu_objIs(res, JanetScriptText);
}
};
impl _get_recognized_extensions() -> packed-string-array {
return janetExts();
};
impl _recognize(ref Resource res) -> bool {
return gdjn_isJanet(res);
};
impl _save(ref Resource res, string path, int flags) -> int {
gd_refCounted_reference(res);
assert(gdjn_isJanet(res));
gd_string path_mine;
_t(string).copy(&path_mine, (void const*[]) {&path});
auto fd = gd_fileAccess_open(path,
gd_FileAccess_ModeFlags_write);
gd_refCounted_reference(fd);
if (_gdu_objIs(res, JanetScriptText)) {
auto asText = gdu_cast(res, "JanetScriptText");
gd_string src = gd_script_getSourceCode(asText);
gd_fileAccess_storeString(fd, src);
_t(string).dtor(&src);
auto data = gdjn_class_JanetScriptText_data(res);
} else if (_gdu_objIs(res, JanetScriptImage)) {
auto asImg = gdu_cast(res, "JanetScriptImage");
auto data = gdjn_class_JanetScriptImage_data(res);
};
gd_fileAccess_close(fd);
_t(string).dtor(&path_mine);
gd_refCounted_unreference(fd);
gd_refCounted_unreference(res);
};
};
|
|
>
>
>
>
>
>
>
>
>
>
>
>
|
>
>
>
|
>
>
>
>
>
>
>
|
<
<
>
>
>
>
>
>
|
<
<
|
|
|
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
..
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
..
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
...
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
(* [ʞ] src/janet-rsrc.gcd vi:ft=d
* ~ lexi hale <lexi@hale.su>
* 🄯 AGPLv3
* ? implement the saving and loading of janet scripts
*)
use "util-gd.h";
use <assert.h>;
use "janet-lang.h";
use {
static gd_packedStringArray
janetExts(void) {
gd_packedStringArray r = {};
................................................................................
|| gdu_symEq(&type, "JanetScriptImage");
};
impl _get_resource_type(string path) -> string {
const char* str = "";
switch (janetKind(&path)) {
case janetFileImage: str="JanetScriptImage"; break;
case janetFileText: str="JanetScriptText"; break;
default: break;
}
return gdu_str(str);
};
use {
static inline gd_variant
vFromErr(int64_t err) {
gd_variant v;
................................................................................
};
impl _load
( string path;
string origPath;
bool subThreads;
int cacheMode;
) -> variant {
(* yes it's a bit hinky using hardwired static dispatch here
* but ye gods, at least it spares us from having to use the
* horrible gdscript ptrcall mechanism *)
GDExtensionObjectPtr obj = nullptr;
auto cpath = _gdu_string_stackp(&path);
gd_string path_mine = gdu_str_sz(cpath.v, cpath.sz);
auto fd = gd_fileAccess_open(path_mine,
gd_FileAccess_ModeFlags_read);
// auto cpath = _gdu_string_stackp(&path_mine);
printf("janet: loading from file %zu %s\n", cpath.sz, cpath.v);
/* gd_refCounted_reference(fd); */
switch (janetKind(&path)) {
case janetFileImage: {
auto s = gdjn_class_JanetScriptImage_new();
gdjn_class_JanetScript_method__set_path(&s->super, path_mine, false);
gdjn_class_JanetScriptImage_method__reload(s, false);
obj = s -> self;
break;
};
case janetFileText: {
auto s = gdjn_class_JanetScriptText_new();
gdjn_class_JanetScript_method__set_path(&s->super, path_mine, false);
auto text = gd_fileAccess_getAsText(fd, false);
gdjn_class_JanetScriptText_method__set_source_code
(s, text);
_t(string).dtor(&text);
obj = s -> self;
break;
};
default: break;
}
gd_fileAccess_close(fd);
_t(string).dtor(&path_mine);
/* gd_refCounted_unreference(fd); */
if (obj) return vFromObj(gdu_cast(obj, "Resource"));
else return vFromErr(gd_Error_errFileUnrecognized);
};
};
class JanetScriptSaver is ResourceFormatSaver {
use {
static inline bool
................................................................................
|| _gdu_objIs(res, JanetScriptText);
}
};
impl _get_recognized_extensions() -> packed-string-array {
return janetExts();
};
impl _recognize(ref Resource res) -> bool {
printf("checking against res %p\n", res);
return gdjn_isJanet(res);
};
impl _save(ref Resource res, string path, int flags) -> int {
gd_refCounted_reference(res);
assert(gdjn_isJanet(res));
gd_string path_mine = gdu_string_dup(&path);
auto fd = gd_fileAccess_open(path,
gd_FileAccess_ModeFlags_write);
gd_refCounted_reference(fd);
if (_gdu_objIs(res, JanetScriptText)) {
auto asText = gdu_cast(res, "JanetScriptText");
gd_string src = gd_script_getSourceCode(asText);
gd_fileAccess_storeString(fd, src);
_t(string).dtor(&src);
} else if (_gdu_objIs(res, JanetScriptImage)) {
// auto asImg = gdu_cast(res, "JanetScriptImage");
// auto data = gdjn_class_JanetScriptImage_data(res);
};
// gd_fileAccess_close(fd);
_t(string).dtor(&path_mine);
printf("number of surviving saver refs: %zu\n", gd_refCounted_getReferenceCount(gdu_cast(me -> self, "RefCounted")));
gd_refCounted_unreference(fd);
gd_refCounted_unreference(res);
return gd_Error_ok;
};
};
|