aboutsummaryrefslogtreecommitdiff
path: root/distamp.ha
blob: 9c7de55db7ebf17dbecafb05e452f07484632b02 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
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
92
93
94
95
96
97
98
99
100
101
use fmt;
use time;
use os;
use strconv;
use strings;
use getopt;

type parseerror = !strconv::error;

export fn main() void = {
	const cmd = getopt::parse(os::args,
		"discord relative timestamp generator",
		('d', "days", "Number of days"),
		('w', "weeks", "Number of weeks"),
		"m[:s]",
	);
	defer getopt::finish(&cmd);

	let days: time::duration = 0;
	let weeks: time::duration = 0;
	for (let opt .. cmd.opts) {
		switch (opt.0) {
		case 'w' =>
			weeks = match (toweeks(opt.1)) {
			case let i: time::duration =>
				yield i;
			case let e: strconv::error =>
				fmt::fatal(strconv::strerror(e));
			};
		case 'd' =>
			days = match (todays(opt.1)) {
			case let d: time::duration =>
				yield d;
			case let e: parseerror =>
				fmt::fatal(strerror(e));
			};
		case => abort();
		};
	};

	if (len(cmd.args) > 1) {
		os::exit(os::status::FAILURE);
	};

	let li = match (parsemainargs(cmd.args)) {
	case let i: time::instant =>
		yield i;
	case let e: parseerror =>
		fmt::fatal(strerror(e));
	};

	li = time::add(li, days);
	li = time::add(li, weeks);

	fmt::printfln("<t:{}:R>", time::unix(li))!;
};

fn parsemainargs(args: []str) (time::instant | parseerror) = {
	return if (len(args) == 1) {
		let timestr = args[0];
		let i = time::now(time::clock::REALTIME);
		let spl = strings::split(timestr, ":");
		defer free(spl);

		yield if (len(spl) > 2) {
			fmt::fatal("Duration format: m or m:s");
		} else {
			yield parsetime(i, spl)?;
		};
	} else {
		yield time::now(time::clock::REALTIME);
	};
};

fn strerror(e: parseerror) str = {
	return strconv::strerror(e);
};

fn parsetime(clk: time::instant, spl: []str) (time::instant | parseerror) = {
	return if (len(spl) == 2) {
		let m = strconv::stoi64(spl[0])?;
		let s = strconv::stoi64(spl[1])?;
		let d = (m * time::MINUTE) + (s * time::SECOND);
		yield time::add(clk, d);
	} else {
		let m = strconv::stoi64(spl[0])?;
		let d = m * time::MINUTE;
		yield time::add(clk, d);
	};

};

fn todays(days: str) (time::duration | parseerror) = {
	let d = strconv::stoi(days)?;
	return d * 24 * time::HOUR;
};

fn toweeks(weeks: str) (time::duration | parseerror) = {
	let d = strconv::stoi(weeks)?;
	return d * 7 * 24 * time::HOUR;
};