missing NULL terminator in set_config_x
[geda-gaf.git] / gnetlist-legacy / examples / vams / gschemrc
blob88c7f1f384eefba7c6e4c604dc0bff2b94532c09
1 (load "./commonrc")
2 (load (string-append examples-path "/../../../gschem/scheme/generate_netlist.scm"))
4 (define-action (&generate-netlist
5                 #:name       "Generate Netlist"
6                 #:label      "Generate Netlist"
7                 #:menu-label "Generate _Netlist")
8   (generate-netlist))
10 (define-action (&generate-entity
11                 #:name       "Generate Entity"
12                 #:label      "Generate Entity"
13                 #:menu-label "Generate Entit_y")
14   (generate-entity))
16 (set! tools-menu
17       (append! tools-menu
18                `((,&generate-netlist
19                   ,&generate-entity))))
21 (global-set-key "G N" &generate-netlist)
22 (global-set-key "G E" &generate-entity)
24 (attribute-promotion "enabled")
25 (promote-invisible "enabled")
26 (keep-invisible "enabled")
27 (enforce-hierarchy "disabled")
29 (attribute-name "port_object")
30 (attribute-name "port_type")
31 (attribute-name "port_mode")
32 (attribute-name "entity")
33 (attribute-name "architecture")
35 (define vhdl-path (string-append examples-path "/vhdl/new-vhdl"))
37 (display "loaded local gschemrc\n")