Skip to content

Pathname of current executable. #3

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
ebezault wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Pathname of current executable. #3

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
79 changes: 79 additions & 0 deletions Src/library/base/elks/support/execution_environment.e
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -102,6 +102,30 @@ feature -- Access
result_not_void: Result /= Void
end

current_executable_pathname: STRING
-- Pathname of current executable
local
l_count, l_nbytes: INTEGER
l_managed: MANAGED_POINTER
once
l_count := 250
create l_managed.make (l_count)
l_nbytes := eif_current_executable_pathname_ptr (l_managed.item, l_count)
if l_nbytes > l_count then
l_count := l_nbytes
l_managed.resize (l_count)
l_nbytes := eif_current_executable_pathname_ptr (l_managed.item, l_count)
end
if l_nbytes > 0 and l_nbytes <= l_count then
create Result.make_from_c (l_managed.item)
else
Result := ""
end
ensure
instance_free: class
result_not_void: Result /= Void
end

default_shell: STRING_32
-- Default shell
once
Expand Down Expand Up @@ -680,6 +704,61 @@ feature {NONE} -- External
instance_free: class
end

eif_current_executable_pathname_ptr (a_ptr: POINTER; a_count: INTEGER): INTEGER
-- Store directory name corresponding to the pathname of current executable in `a_ptr' with `a_count' bytes.
-- If there is a need for more bytes than `a_count', or if `a_ptr' is the default_pointer,
-- nothing is done with `a_ptr'.
-- We always return the number of bytes required including the null-terminating character.
-- (See https://stackoverflow.com/questions/1023306/finding-current-executables-path-without-proc-self-exe)
external
"C inline use <eif_system.h>, <string.h>"
alias
"[
#ifdef EIF_WINDOWS
char *exePath;
if (_get_pgmptr(&exePath) != 0)
exePath = "";
#elif EIF_OS == EIF_OS_DARWIN
/* MacOS X < 10.4 */
char exePath[PATH_MAX];
uint32_t len = sizeof(exePath);
if (_NSGetExecutablePath(exePath, &len) != 0) {
exePath[0] = '\0'; // buffer too small (!)
} else {
// resolve symlinks, ., .. if possible
char *canonicalPath = realpath(exePath, NULL);
if (canonicalPath != NULL) {
strncpy(exePath,canonicalPath,len);
free(canonicalPath);
}
}
#elif EIF_OS == EIF_OS_FREEBSD
char exePath[2048];
int mib[4]; mib[0] = CTL_KERN; mib[1] = KERN_PROC; mib[2] = KERN_PROC_PATHNAME; mib[3] = -1;
size_t len = sizeof(exePath);
if (sysctl(mib, 4, exePath, &len, NULL, 0) != 0)
exePath[0] = '\0';
#elif defined(EIF_SOLARIS)
char exePath[PATH_MAX];
if (realpath(getexecname(), exePath) == NULL)
exePath[0] = '\0';
#else
/* Linux */
char exePath[PATH_MAX];
size_t len = readlink("/proc/self/exe", exePath, sizeof(exePath));
if (len == -1 || len == sizeof(exePath))
len = 0;
exePath[len] = '\0';
#endif
EIF_INTEGER l_result = strlen(exePath) + 1;
if (l_result <= $a_count)
strcpy($a_ptr, exePath);
return l_result;
]"
ensure
instance_free: class
end

note
copyright: "Copyright (c) 1984-2020, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
Expand Down