blob: 2cc6cff27e193599fe770b455feb99a28d771856 (
plain) (
blame)
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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
/**
* mds — A micro-display server
* Copyright © 2014 Mattias Andrée (maandree@member.fsf.org)
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#include "mds-kbdc.h"
#include "globals.h"
#include "raw-data.h"
#include <libmdsserver/macros.h>
#include <stdio.h>
#include <errno.h>
/**
* Compile a keyboard layout file
*
* @param argc_ The number of elements in `argv_`
* @param argv_ The command line arguments
* @return Zero on and only one success
*/
int main(int argc_, char** argv_)
{
const char* pathname = argv_[1];
source_code_t source_code;
argc = argc_;
argv = argv_;
source_code_initialise(&source_code);
fail_if (read_source_lines(pathname, &source_code) < 0);
/*
information
language "LANGUAGE" # multiple is allowed
country "COUNTRY" # multiple is allowed
variant "VARIANT"
end information
include "some file"
function add/3
\add(\add(\1 \2) \3)
end function
function add/4
\add(\add(\1 \2 \3) \4)
end function
macro caps_affected/2
<letter \1> : "\1"
<shift letter \1> : "\2"
<caps letter \1> : "\2"
<caps shift letter \1> : "\1"
end macro
<altgr letter \\> : <dead letter ´>
<altgr shift letter \\> : "¬"
<altgr shift letter j> : <dead letter \u031B> # horn
assumption
have_range "a" "z"
have_range "A" "Z"
have_range "0" "9"
have_chars " !\"#$%&'()*+,-./:;<=>?@[\]^_`{|}~"
have <dead compose>
have <shift>
have <altgr>
have <alt>
have <ctrl>
end assumption
for "A" to "Z" as \1
<dead compose> "(" "\1" ")" : "\add(\u24B6 \sub(\1 "A"))"
end for
let \6 : { \and(\4 16) \and(\4 32) \and(\4 64) \and(\4 128) }
for 0 to 3 as \8
\set(\6 \8 \add(\rsh(\get(\6 \8) \8) \mul(2 \rsh(\get(\7 \8)))))
end for
if \equals(\and(\1 128))
let \2 : \or(\2 64)
end if
if \and(\1 128) ## a number is true iff it is not zero
let \2 : \or(\2 64)
end if
*/
source_code_destroy(&source_code);
return 0;
pfail:
xperror(*argv);
source_code_destroy(&source_code);
return 1;
}
|
