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
|
(load "./commonrc")
(define-module (ice-9 ls) :use-module (ice-9 common-list)
:use-module (ice-9 string-fun))
(define gnetlist-keymap
'(("n" . generate-netlist)
("e" . generate-entity)))
; All keys in the global-keymap *must* be unique
(define global-keymap
'(("Escape" . cancel)
("a" . add-keymap)
("b" . add-box-hotkey)
("c" . edit-copy-hotkey)
("d" . edit-delete)
("e" . edit-keymap)
("f" . file-keymap)
("g" . gnetlist-keymap)
("h" . help-keymap)
("i" . add-component)
("j" . no-action)
("k" . no-action)
("l" . add-line-hotkey)
("m" . edit-move-hotkey)
("n" . add-net-hotkey)
("o" . options-keymap)
("p" . page-keymap)
("q" . no-action)
("r" . view-redraw)
("s" . edit-select)
("t" . attributes-keymap)
("u" . add-bus-hotkey)
("v" . view-keymap)
("w" . view-zoom-box-hotkey)
("x" . view-pan-hotkey)
("y" . buffer-keymap)
("z" . view-zoom-in-hotkey)
("period" . repeat-last-command)
("comma" . misc-misc)
("equal" . misc-misc2)
("Shift plus" . misc-misc3)
("Delete" . edit-delete)
("Shift greater" . page-next)
("Shift less" . page-prev)
("Alt q" . file-quit)
("Shift H" . hierarchy-keymap)
("Shift U" . edit-undo)
("Shift R" . edit-redo)
("Shift Z" . view-zoom-out-hotkey)))
(set! current-keymap global-keymap)
(attribute-promotion "enabled")
(promote-invisible "enabled")
(keep-invisible "enabled")
(enforce-hierarchy "disabled")
(attribute-name "port_object")
(attribute-name "port_type")
(attribute-name "port_mode")
(attribute-name "entity")
(attribute-name "architecture")
(load (string-append examples-path "/../../../gschem/scheme/generate_netlist.scm"))
(define vhdl-path (string-append examples-path "/vhdl/new-vhdl"))
(display "loaded local gschemrc\n")
|
