knh_String_t* knh_getPropertyNULL(Ctx *ctx, knh_bytes_t key)
{
if(knh_bytes_startsWith(key, STEXT("env."))) {
knh_cwb_t cwbbuf, *cwb = knh_cwb_open(ctx, &cwbbuf);
knh_cwb_nzenvkey(ctx, cwb, knh_bytes_last(key, 4));
char *v = knh_getenv(knh_cwb_tochar(ctx, cwb));
knh_cwb_close(cwb);
if(v == NULL) return NULL;
return new_S(ctx, B(v));
}
return (knh_String_t*)knh_DictMap_getNULL(ctx, DP(ctx->sys)->props, key);
}
kString* knh_getPropertyNULL(CTX, kbytes_t key)
{
if(knh_bytes_startsWith_(key, STEXT("env."))) {
CWB_t cwbbuf, *cwb = CWB_open(_ctx, &cwbbuf);
CWB_nzenvkey(_ctx, cwb, knh_bytes_last(key, 4));
char *v = knh_getenv(CWB_totext(_ctx, cwb));
CWB_close(_ctx, cwb);
if(v == NULL) return NULL;
return new_kString(v, knh_strlen(v), SPOL_ASCII|SPOL_POOL);
}
return (kString*)knh_DictMap_getNULL(_ctx, ctx->share->props, key);
}
static kcontext_t* new_hcontext(CTX ctx0)
{
kcontext_t *ctx;
static volatile size_t ctxid_counter = 0;
if(ctx0 == NULL) {
ctxid_counter = 0;
ctx = (kcontext_t*)malloc(sizeof(kcontext_t));
knh_bzero(ctx, sizeof(kcontext_t));
}
else {
KNH_ASSERT_CTX0(ctx0);
ctx = (kcontext_t*)KNH_MALLOC(ctx0, sizeof(kcontext_t));
knh_bzero(ctx, sizeof(kcontext_t));
}
ctx->flag = 0;
ctx->ctxid = ctxid_counter;
ctxid_counter++;
// ctx->freeObjectList = NULL;
// ctx->freeMemoryList = NULL;
ctx->parent = ctx;
ctx->api2 = getapi2();
{
kuintptr_t i = 0, ch;
kuint_t t = knh_rand();
ch = t % 26;
ctx->trace[i] = 'A' + ch;
for(i = 1; i < 9; i++) {
t = t / 36;
if (t == 0) t = knh_rand();
ch = t % 36;
ctx->trace[i] = (ch < 10) ? '0' + ch : 'A' + (ch - 10);
}
}
ctx->seq = 0;
ctx->ctxobjNC = NULL;
if(ctx0 == NULL) {
const char *ptrace = knh_getenv(K_DEOS_TRACE);
if(ptrace == NULL) {
ptrace = "$(setenv " K_DEOS_TRACE ")";
}
KNH_NTRACE2(ctx, "konoha:newtrace", K_NOTICE, KNH_LDATA(
LOG_s("parent", ptrace)
#if defined(K_USING_POSIX_)
, LOG_u("ppid", getppid())
#endif /* !defined(K_USING_POSIX_) */
));
}
else {
KNH_NTRACE2(ctx, "konoha:newtrace", K_NOTICE, KNH_LDATA(LOG_s("parent", ctx0->trace), LOG_u("seq", ctx0->seq)));
}
return ctx;
}
const char *knh_getSystemEncoding(void)
{
const char *enc = knh_getenv("KONOHAENC");
if(enc != NULL) {
return enc;
}
#if defined(K_OSENCODING)
return K_OSENCODING;
#elif defined(HAVE_LOCALCHARSET_H)
return (char*)knh_locale_charset();
#else
// char *enc = knh_getenv("LC_CTYPE");
// if(enc != NULL) {
// return (char*)enc;
// }
return K_ENCODING;
#endif
}
void knh_System_initPath(CTX)
{
CWB_t cwbbuf, *cwb = CWB_open(_ctx, &cwbbuf);
kDictMap *sysprops = ctx->share->props;
kbytes_t home = {{NULL}, 0}, user = {{NULL}, 0};
// current working directory
knh_buff_addospath(_ctx, cwb->ba, cwb->pos, 0, STEXT("."));
KSETv(ctx->share->rootks->path, new_Path(_ctx, knh_buff_newRealPathString(_ctx, cwb->ba, cwb->pos)));
home.text = (const char*)knh_getenv("KONOHAHOME");
#if defined(K_KONOHAHOME)
if(home.text == NULL) {
home.text = K_KONOHAHOME;
}
#endif
if(home.text != NULL) {
home.len = knh_strlen(home.text);
SETPROP("konoha.home.path", new_T(home.text));
}
#if defined(K_USING_WINDOWS_)
{
char buf[K_PATHMAX];
int bufsiz = K_PATHMAX;
HMODULE h = LoadLibrary(NULL);
GetModuleshortnameA(h, buf, bufsiz);
CWB_clear(cwb, 0);
knh_buff_addospath(_ctx, cwb->ba, cwb->pos, 0, B(buf));
SETPROP("konoha.bin.path", knh_buff_newRealPathString(_ctx, cwb->ba, cwb->pos));
if(home.text == NULL) {
kString *s;
CWB_clear(cwb, 0);
knh_buff_addpath(_ctx, cwb->ba, cwb->pos, 0, B(buf));
knh_buff_trim(_ctx, cwb->ba, cwb->pos, '\\');
knh_buff_trim(_ctx, cwb->ba, cwb->pos, '\\');
knh_buff_addospath(_ctx, cwb->ba, cwb->pos, 1/*isSep*/, STEXT("konoha"));
s = CWB_newString(_ctx, cwb, 0);
SETPROP("konoha.home.path", s);
home = S_tobytes(s);
}
}
#elif defined(K_USING_LINUX_)
// @url(http://shinh.skr.jp/binary/b2con.html)
// http://doc.trolltech.com/3.3/qapplication.html#applicationDirPath
{
char buf[K_PATHMAX];
int bufsiz = K_PATHMAX;
ssize_t size = readlink("/proc/self/exe", buf, bufsiz);
CWB_clear(cwb, 0);
knh_buff_addospath(_ctx, cwb->ba, cwb->pos, 0, new_bytes2(buf, size));
SETPROP("konoha.bin.path", knh_buff_newRealPathString(_ctx, cwb->ba, cwb->pos));
if(home.text == NULL) {
kString *s;
CWB_clear(cwb, 0);
knh_buff_addpath(_ctx, cwb->ba, cwb->pos, 0, new_bytes2(buf, size));
knh_buff_trim(_ctx, cwb->ba, cwb->pos, '/');
knh_buff_trim(_ctx, cwb->ba, cwb->pos, '/');
knh_buff_addpath(_ctx, cwb->ba, cwb->pos, 1/*isSep*/, STEXT("konoha"));
s = CWB_newString(_ctx, cwb, 0);
SETPROP("konoha.home.path", s);
home = S_tobytes(s);
}
}
#elif defined(K_USING_MACOSX_)
{
kString *binpath;
CWB_clear(cwb, 0);
knh_buff_addospath(_ctx, cwb->ba, cwb->pos, 0, B(_dyld_get_image_name(0)));
binpath = knh_buff_newRealPathString(_ctx, cwb->ba, cwb->pos);
SETPROP("konoha.bin.path", binpath);
if(home.text == NULL) {
CWB_clear(cwb, 0);
knh_buff_addpath(_ctx, cwb->ba, cwb->pos, 0, S_tobytes(binpath));
knh_buff_trim(_ctx, cwb->ba, cwb->pos, '/');
knh_buff_trim(_ctx, cwb->ba, cwb->pos, '/');
knh_buff_addpath(_ctx, cwb->ba, cwb->pos, 1/*isSep*/, STEXT("konoha"));
kString *s = CWB_newString(_ctx, cwb, 0);
SETPROP("konoha.home.path", s);
home = S_tobytes(s);
}
}
#else
home = STEXT("/opt/konoha");
SETPROP("konoha.home.path", new_T("/opt/konoha"));
#endif
DBG_ASSERT(home.utext != NULL);
/* $konoha.package.path {$konoha.home.path}/package */
CWB_clear(cwb, 0);
knh_buff_addpath(_ctx, cwb->ba, cwb->pos, 0, home);
knh_buff_addpath(_ctx, cwb->ba, cwb->pos, 1/*sep*/, STEXT("package"));
knh_buff_addpath(_ctx, cwb->ba, cwb->pos, 1/*sep*/, STEXT(LIBK_VERSION));
SETPROP("konoha.package.path", CWB_newString(_ctx, cwb, 0));
/* $konoha.script.path {$konoha.home.path}/script */
knh_buff_addpath(_ctx, cwb->ba, cwb->pos, 0, home);
knh_buff_addpath(_ctx, cwb->ba, cwb->pos, 1/*sep*/, STEXT("script"));
knh_buff_addpath(_ctx, cwb->ba, cwb->pos, 1/*sep*/, STEXT(LIBK_VERSION));
SETPROP("konoha.script.path", CWB_newString(_ctx, cwb, 0));
#if defined(K_USING_WINDOWS_)
user.text = knh_getenv("USERPROFILE");
#else
user.text = knh_getenv("HOME");
#endif
if(user.text != NULL) {
/* $user.path */
user.len = knh_strlen(user.text);
knh_buff_addpath(_ctx, cwb->ba, cwb->pos, 0, user);
knh_buff_addpath(_ctx, cwb->ba, cwb->pos, 1, STEXT(K_KONOHAFOLDER));
SETPROP("user.path", CWB_newString(_ctx, cwb, 0));
knh_buff_addospath(_ctx, cwb->ba, cwb->pos, 0, user);
knh_buff_addospath(_ctx, cwb->ba, cwb->pos, 1, STEXT(K_KONOHAFOLDER));
knh_buff_mkdir(_ctx, cwb->ba, cwb->pos);
CWB_clear(cwb, 0);
knh_buff_addospath(_ctx, cwb->ba, cwb->pos, 0, user);
knh_buff_addospath(_ctx, cwb->ba, cwb->pos, 1/*sep*/, STEXT(K_KONOHAFOLDER));
knh_buff_addospath(_ctx, cwb->ba, cwb->pos, 1/*sep*/, STEXT("package"));
knh_buff_addospath(_ctx, cwb->ba, cwb->pos, 1/*sep*/, STEXT(LIBK_VERSION));
SETPROP("user.package.path", CWB_newString(_ctx, cwb, 0));
}
CWB_close(_ctx, cwb);
}
void knh_System_initPath(CTX ctx, knh_System_t *o)
{
knh_DictMap_t *sysprops = DP(o)->props;
knh_path_t phbuf, *ph = knh_path_open(ctx, NULL, ".", &phbuf);
knh_bytes_t home = {{NULL}, 0}, user = {{NULL}, 0};
// current working directory
knh_ospath(ctx, ph);
KNH_SETv(ctx, ctx->share->rootns->rpath, knh_path_newString(ctx, ph, 0));
home.text = (const char*)knh_getenv("KONOHAHOME");
#if defined(K_KONOHAHOME)
if(home.text == NULL) {
home.text = K_KONOHAHOME;
}
#endif
if(home.text != NULL) {
home.len = knh_strlen(home.text);
SETPROP("konoha.home.path", new_T(home.text));
}
#if defined(K_USING_WINDOWS)
{
char buf[FILEPATH_BUFSIZ];
int bufsiz = FILEPATH_BUFSIZ;
HMODULE h = LoadLibrary(NULL);
GetModuleFileNameA(h, buf, bufsiz);
ph = knh_path_open_(ctx, NULL, B(buf), &phbuf);
SETPROP("konoha.bin.path", knh_path_newString(ctx, ph, 0));
if(homepath == NULL) {
knh_String_t *s;
GetModuleFileNameA(h, buf, bufsiz);
knh_path_reduce(ctx, ph, '/');
s = knh_path_newString(ctx, ph);
SETPROP("konoha.home.path", UPCAST(s));
home = S_tobytes(shome);
}
}
#elif defined(K_USING_LINUX_)
// @url(http://shinh.skr.jp/binary/b2con.html)
// http://doc.trolltech.com/3.3/qapplication.html#applicationDirPath
{
char buf[FILEPATH_BUFSIZ];
int bufsiz = FILEPATH_BUFSIZ;
size_t size = readlink("/proc/self/exe", buf, bufsiz);
ph = knh_path_open_(ctx, NULL, new_bytes2(buf, size), &phbuf);
SETPROP("konoha.bin.path", knh_path_newString(ctx, ph, 0));
if(home.text == NULL) {
knh_String_t *s;
knh_path_reduce(ctx, ph, '/');
knh_path_reduce(ctx, ph, '/');
knh_path_append(ctx, ph, 1/*isSep*/, "konoha");
s = knh_path_newString(ctx, ph, 0/*hasScheme*/);
SETPROP("konoha.home.path", UPCAST(s));
home = S_tobytes(s);
}
}
#elif defined(K_USING_MACOSX_)
ph = knh_path_open(ctx, NULL, _dyld_get_image_name(0), &phbuf);
knh_ospath(ctx, ph);
SETPROP("konoha.bin.path", knh_path_newString(ctx, ph, 0/*hasScheme*/));
if(home.text == NULL) {
knh_String_t *s;
knh_path_reduce(ctx, ph, '/');
knh_path_reduce(ctx, ph, '/');
knh_path_append(ctx, ph, 1/*isSep*/, "konoha");
s = knh_path_newString(ctx, ph, 0/*hasScheme*/);
SETPROP("konoha.home.path", UPCAST(s));
home = S_tobytes(s);
}
#else
home = STEXT("/opt/konoha");
SETPROP("konoha.home.path", new_T("/opt/konoha"));
#endif
DBG_ASSERT(home.utext != NULL);
/* $konoha.package.path {$konoha.home.path}/package */
knh_path_reset(ctx, ph, NULL, home);
knh_path_append(ctx, ph, 1/*sep*/, "package");
knh_path_append(ctx, ph, 1/*sep*/, LIBK_VERSION);
SETPROP("konoha.package.path", knh_path_newString(ctx, ph, 0/*hasScheme*/));
/* $konoha.script.path {$konoha.home.path}/script */
knh_path_reset(ctx, ph, NULL, home);
knh_path_append(ctx, ph, 1/*sep*/, "script");
knh_path_append(ctx, ph, 1/*sep*/, LIBK_VERSION);
SETPROP("konoha.script.path", knh_path_newString(ctx, ph, 0/*hasScheme*/));
#if defined(K_USING_WINDOWS)
user.text = knh_getenv("USERPROFILE");
#else
user.text = knh_getenv("HOME");
#endif
if(user.text != NULL) {
/* $user.path */
user.len = knh_strlen(user.text);
knh_path_reset(ctx, ph, NULL, user);
knh_path_append(ctx, ph, 1/*sep*/, K_KONOHAFOLDER);
SETPROP("user.path", knh_path_newString(ctx, ph, 0));
knh_ospath(ctx, ph);
knh_path_mkdir(ctx, ph);
knh_path_reset(ctx, ph, NULL, user); /* user.package.path */
knh_path_append(ctx, ph, 1/*sep*/, K_KONOHAFOLDER);
knh_path_append(ctx, ph, 1/*sep*/, "package");
knh_path_append(ctx, ph, 1/*sep*/, LIBK_VERSION);
SETPROP("user.package.path", knh_path_newString(ctx, ph, 0));
}
knh_path_close(ctx, ph);
}
