File: self_argv.ha

package info (click to toggle)
hare 0.26.0-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 7,352 kB
  • sloc: asm: 1,374; makefile: 123; sh: 117; lisp: 101
file content (22 lines) | stat: -rw-r--r-- 525 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
// SPDX-License-Identifier: MPL-2.0
// (c) Hare authors <https://harelang.org>

use errors;
use fs;
use io;
use os;
use os::exec;

// Fallback implementation of self() that performs path resolution on argv[0]
fn self_argv() (image | io::error | fs::error) = {
	const path = exec::lookup(os::args[0])?;
	const file = os::open(path)?;
	match (open(file)) {
	case let img: image =>
		return img;
	case let err: io::error =>
		return err;
	case errors::invalid =>
		abort("Running program image is not a valid ELF file");
	};
};