libft.golem


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

isalpha c {
	return (or (and (moreeq c 'A')
	                (lesseq c 'Z'))
	           (and (moreeq c 'a')
	                (lesseq c 'z')));
}

isdigit c {
	return (and (moreeq c '0')
	            (lesseq c '9'));
}

isalnum c {
	return (or (isalpha c) (isdigit c));
}

isascii c {
	return (and (moreeq c 0) (lesseq c 127));
}

isprint c {
	return (and (moreeq c ' ') (lesseq c '~'));
}

strlen s {
	let size;
	size = 0;
	while [s size] {
		size = (add size 1);
	}
	return size;
}

memset s c n {
	while (more n 0) {
		n = (sub n 1);
		[s n] = c;
	}
	return s;
}

bzero s n {
	(memset s 0 n);
}

memcpy dest src n {
	while (more n 0) {
		n = (sub n 1);
		[dest n] = [src n];
	}
	return dest;
}

memmove dest src n {
	if (less dest src) {
		let i;
		i = 0;
		while (less i n) {
			[dest i] = [src i];
			i = (add i 1);
		}
	} else {
		(memcpy dest src n);
	}
	return dest;
}