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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<link rel="stylesheet" media="screen" type="text/css" href="./style.css" />
<link rel="stylesheet" media="screen" type="text/css" href="./design.css" />
<link rel="stylesheet" media="print" type="text/css" href="./print.css" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</head>
<body>
<div class="dokuwiki export">
<p>
<em>Translations of this page are also available in the following languages:</em> <a href="geda-guile_scripting.ru.html" class="wikilink1" title="geda-guile_scripting.ru.html">Русский</a>.
</p>
<h2 class="sectionedit1"><a name="guile_scripting" id="guile_scripting">Guile scripting</a></h2>
<div class="level2">
<p>
gEDA/gaf uses <a href="http://www.gnu.org/s/guile/" class="urlextern" title="http://www.gnu.org/s/guile/" rel="nofollow">Guile Scheme</a> to provide Scheme scripting capabilities, and all of the features of Guile are available to use. The <em>Guile Reference Manual</em> is available as an Info manual (<code>info guile</code> on most systems), or <a href="http://www.gnu.org/software/guile/docs/docs.html" class="urlextern" title="http://www.gnu.org/software/guile/docs/docs.html" rel="nofollow">on the Guile website</a>.
</p>
<p>
A collection of modules is provided for accessing and modifying gEDA objects and pages, called the gEDA Scheme <acronym title="Application Programming Interface">API</acronym>. The <em>gEDA Scheme Reference Manual</em> is also available as an Info manual (<code>info geda-scheme</code>).
</p>
</div>
<!-- EDIT1 SECTION "Guile scripting" [118-733] -->
<h3 class="sectionedit2"><a name="tutorials" id="tutorials">Tutorials</a></h3>
<div class="level3">
<ul>
<li class="level1"><div class="li"> <a href="geda-gnetlist_scheme_tutorial.html" class="wikilink1" title="geda-gnetlist_scheme_tutorial.html">Scripting a gnetlist backend in scheme</a> (John Doty)</div>
</li>
</ul>
<p>
See also the <a href="geda-gschem_ug-extensions.html" class="wikilink1" title="geda-gschem_ug-extensions.html">Extending gschem</a> section of the <em><a href="geda-gschem_ug.html" class="wikilink1" title="geda-gschem_ug.html">gEDA gschem User Guide</a></em>, and <a href="geda-gnetlist_ug.html#scheme_backend_api" class="wikilink1" title="geda-gnetlist_ug.html">Scheme Backend API</a> section of the <em><a href="geda-gnetlist_ug.html" class="wikilink1" title="geda-gnetlist_ug.html">gEDA gnetlist User Guide</a></em>.
</p>
</div>
<!-- EDIT2 SECTION "Tutorials" [734-1091] -->
<h3 class="sectionedit3"><a name="reference_documents" id="reference_documents">Reference documents</a></h3>
<div class="level3">
<ul>
<li class="level1"><div class="li"> <a href="geda-gnetlist_scheme_primitives.html" class="wikilink1" title="geda-gnetlist_scheme_primitives.html">gnetlist Scheme primitives</a></div>
</li>
</ul>
</div>
<!-- EDIT3 SECTION "Reference documents" [1092-1157] -->
<h3 class="sectionedit4"><a name="scripting_examples" id="scripting_examples">Scripting examples</a></h3>
<div class="level3">
<p>
You can download each script example and load it in <strong>gschem</strong>:
</p>
<ul>
<li class="level1"><div class="li"> just hit <kbd>:</kbd> and enter <pre class="code lisp"><span class="br0">(</span>load <span class="st0">"filename.scm"</span><span class="br0">)</span></pre>
</div>
</li>
<li class="level1"><div class="li"> then hit <kbd>Enter</kbd></div>
</li>
</ul>
</div>
<h4><a name="removing_objects_with_specific_properties" id="removing_objects_with_specific_properties">Removing objects with specific properties</a></h4>
<div class="level4">
<p>
For instance, let's remove all objects which are circles or arcs
with zero radius:
</p>
<dl class="file">
<dt><a href="_export/code/geda:guile_scripting?codeblock=1" title="Download Snippet" class="mediafile mf_scm">remove-objects.scm</a></dt>
<dd><pre class="code file lisp"><span class="br0">(</span>use-modules <span class="br0">(</span>geda page<span class="br0">)</span><span class="br0">)</span>
<span class="co1">; Checks if the OBJECT is a circle or an arc with zero radius</span>
<span class="br0">(</span>define <span class="br0">(</span>zero-radius-object? object<span class="br0">)</span>
<span class="br0">(</span><span class="kw1">or</span>
<span class="br0">(</span><span class="kw1">and</span> <span class="br0">(</span>circle? object<span class="br0">)</span> <span class="br0">(</span><span class="sy0">=</span> <span class="br0">(</span>circle-radius object<span class="br0">)</span> <span class="nu0">0</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span><span class="kw1">and</span> <span class="br0">(</span>arc? object<span class="br0">)</span> <span class="br0">(</span><span class="sy0">=</span> <span class="br0">(</span>arc-radius object<span class="br0">)</span> <span class="nu0">0</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span><span class="kw1">apply</span> page-<span class="kw1">remove</span><span class="sy0">!</span> <span class="br0">(</span>active-page<span class="br0">)</span>
<span class="br0">(</span>filter
zero-radius-object?
<span class="br0">(</span>page-contents <span class="br0">(</span>active-page<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span></pre>
</dd></dl>
<p>
Let's suppose we have a component with a known attribute to
remove, then we have to detach and remove all its attributes, too.
The function below does exactly this.
</p>
<dl class="file">
<dt><a href="_export/code/geda:guile_scripting?codeblock=2" title="Download Snippet" class="mediafile mf_scm">remove-components-with-attribs.scm</a></dt>
<dd><pre class="code file lisp"><span class="br0">(</span>use-modules <span class="br0">(</span>geda page<span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>use-modules <span class="br0">(</span>geda object<span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>use-modules <span class="br0">(</span>geda attrib<span class="br0">)</span><span class="br0">)</span>
<span class="co1">; Removes all components having the attrib NAME=VALUE from PAGE</span>
<span class="br0">(</span>define <span class="br0">(</span>delete-components-by-attrib<span class="sy0">!</span> page <span class="kw1">name</span> <span class="kw1">value</span><span class="br0">)</span>
<span class="br0">(</span>for-each
<span class="br0">(</span><span class="kw1">lambda</span> <span class="br0">(</span>obj<span class="br0">)</span>
<span class="br0">(</span><span class="kw1">if</span> <span class="br0">(</span>component? obj<span class="br0">)</span>
<span class="br0">(</span>for-each
<span class="br0">(</span><span class="kw1">lambda</span> <span class="br0">(</span>attr<span class="br0">)</span>
<span class="br0">(</span><span class="kw1">and</span>
<span class="br0">(</span>string<span class="sy0">=</span>? <span class="br0">(</span>attrib-<span class="kw1">name</span> attr<span class="br0">)</span> <span class="kw1">name</span><span class="br0">)</span>
<span class="br0">(</span>string<span class="sy0">=</span>? <span class="br0">(</span>attrib-<span class="kw1">value</span> attr<span class="br0">)</span> <span class="kw1">value</span><span class="br0">)</span>
<span class="br0">(</span><span class="kw1">let</span> <span class="br0">(</span><span class="br0">(</span>attached-attribs <span class="br0">(</span>object-attribs obj<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span><span class="kw1">apply</span> detach-attribs<span class="sy0">!</span> obj attached-attribs<span class="br0">)</span>
<span class="br0">(</span><span class="kw1">apply</span> page-<span class="kw1">remove</span><span class="sy0">!</span> page obj attached-attribs<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>object-attribs obj<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>page-contents page<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span></pre>
</dd></dl>
<p>
After loading the file, hit <kbd>:</kbd> and enter, for example,
</p>
<pre class="code lisp"><span class="br0">(</span>delete-components-by-attrib<span class="sy0">!</span> <span class="br0">(</span>active-page<span class="br0">)</span> <span class="st0">"refdes"</span> <span class="st0">"R1"</span><span class="br0">)</span></pre>
</div>
<h4><a name="procedures_for_input-output" id="procedures_for_input-output">Procedures for input-output</a></h4>
<div class="level4">
<p>
The following script defines two procedures that can be used in
<strong>gaf shell</strong> batch scripts:
</p>
<ul>
<li class="level1"><div class="li"> <code>schematic-file→page</code></div>
</li>
<li class="level1"><div class="li"> <code>page→schematic-file</code></div>
</li>
</ul>
<dl class="file">
<dt><a href="_export/code/geda:guile_scripting?codeblock=4" title="Download Snippet" class="mediafile mf_scm">geda-io.scm</a></dt>
<dd><pre class="code file lisp"><span class="br0">(</span>use-modules <span class="br0">(</span>ice-<span class="nu0">9</span> lineio<span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>use-modules <span class="br0">(</span>geda page<span class="br0">)</span><span class="br0">)</span>
<span class="co1">; Input/output procedures</span>
<span class="co1">; reads FILE and outputs string</span>
<span class="br0">(</span>define <span class="br0">(</span>file-<span class="sy0">></span>string file<span class="br0">)</span>
<span class="br0">(</span><span class="kw1">let</span>* <span class="br0">(</span><span class="br0">(</span>port <span class="br0">(</span>make-line-buffering-input-port <span class="br0">(</span>open-file file <span class="st0">"r"</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span><span class="kw1">do</span> <span class="br0">(</span><span class="br0">(</span>line <span class="st0">""</span> <span class="br0">(</span>read-string port<span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>s <span class="st0">""</span> <span class="br0">(</span>string-<span class="kw1">append</span> s line<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span><span class="br0">(</span>eof-object? line<span class="br0">)</span> <span class="co1">; test</span>
<span class="br0">(</span>close-port port<span class="br0">)</span> <span class="co1">; expression(s) to evaluate in the end</span>
s<span class="br0">)</span> <span class="co1">; return value</span>
<span class="co1">; empty body</span>
<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="co1">; reads schematic FILE and outputs PAGE object</span>
<span class="br0">(</span>define <span class="br0">(</span>schematic-file-<span class="sy0">></span>page file<span class="br0">)</span>
<span class="br0">(</span>string-<span class="sy0">></span>page file <span class="br0">(</span>file-<span class="sy0">></span>string file<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="co1">; saves schematic PAGE to FILE</span>
<span class="br0">(</span>define <span class="br0">(</span>page-<span class="sy0">></span>schematic-file page file<span class="br0">)</span>
<span class="br0">(</span>with-output-to-file file
<span class="br0">(</span><span class="kw1">lambda</span> <span class="br0">(</span><span class="br0">)</span> <span class="br0">(</span>display <span class="br0">(</span>page-<span class="sy0">></span>string page<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span></pre>
</dd></dl>
</div>
<h4><a name="copy_move_and_rotate_objects" id="copy_move_and_rotate_objects">Copy, move, and rotate objects</a></h4>
<div class="level4">
<dl class="file">
<dt><a href="_export/code/geda:guile_scripting?codeblock=5" title="Download Snippet" class="mediafile mf_scm">move-and-rotate.scm</a></dt>
<dd><pre class="code file lisp"><span class="co1">; Scripting example by vzh per request of Kai-Martin Knaak :-)</span>
<span class="co1">; Use at your own risk.</span>
<span class="co1">; The main procedure here is</span>
<span class="co1">; multiple-copy-move-and-rotate-selection which can be abbreviated</span>
<span class="co1">; as mcmars.</span>
<span class="co1">; Usage:</span>
<span class="co1">; launch gschem so it can use this script, e.g.</span>
<span class="co1">; gschem -s move-and-rotate.scm</span>
<span class="co1">; select objects in gschem, then hit ':' (semicolon) and type</span>
<span class="co1">; (mcmars '(1000 . 500) 90 10)</span>
<span class="co1">; hit <Enter></span>
<span class="co1">; Enjoy!</span>
<span class="br0">(</span>use-modules <span class="br0">(</span>gschem selection<span class="br0">)</span><span class="br0">)</span>
<span class="co1">; align coords by ALIGN</span>
<span class="br0">(</span>define <span class="br0">(</span>ceiling-coords vector align<span class="br0">)</span>
<span class="br0">(</span><span class="kw1">cons</span>
<span class="br0">(</span>* <span class="br0">(</span>ceiling-quotient <span class="br0">(</span><span class="kw1">car</span> vector<span class="br0">)</span> align<span class="br0">)</span> align<span class="br0">)</span>
<span class="br0">(</span>* <span class="br0">(</span>ceiling-quotient <span class="br0">(</span><span class="kw1">cdr</span> vector<span class="br0">)</span> align<span class="br0">)</span> align<span class="br0">)</span>
<span class="br0">)</span><span class="br0">)</span>
<span class="co1">; Get minimum X and minimum Y of two pairs of coords</span>
<span class="br0">(</span>define <span class="br0">(</span>min-coords coord1 coord2<span class="br0">)</span>
<span class="br0">(</span><span class="kw1">let</span> <span class="br0">(</span><span class="br0">(</span>x <span class="br0">(</span><span class="kw1">min</span> <span class="br0">(</span><span class="kw1">car</span> coord1<span class="br0">)</span> <span class="br0">(</span><span class="kw1">car</span> coord2<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>y <span class="br0">(</span><span class="kw1">min</span> <span class="br0">(</span><span class="kw1">cdr</span> coord1<span class="br0">)</span> <span class="br0">(</span><span class="kw1">cdr</span> coord2<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="co1">; return value</span>
<span class="br0">(</span><span class="kw1">cons</span> x y<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="co1">; Copy, move and rotate current selection. The selected objects</span>
<span class="co1">; are first copied, then translated by VECTOR and finally rotated</span>
<span class="co1">; by ANGLE about center which is calculated as rounded by 100</span>
<span class="co1">; lower left coordinate of all objects in selection.</span>
<span class="co1">; If no objects are selected, opens gschem message dialog with</span>
<span class="co1">; warning.</span>
<span class="co1">; Returns the copied objects.</span>
<span class="br0">(</span>define <span class="br0">(</span>copy-move-and-rotate-selection vector angle<span class="br0">)</span>
<span class="br0">(</span><span class="kw1">let</span> <span class="br0">(</span><span class="br0">(</span>objects <span class="br0">(</span>page-selection <span class="br0">(</span>active-page<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span><span class="kw1">if</span> <span class="br0">(</span><span class="kw1">null</span>? objects<span class="br0">)</span>
<span class="br0">(</span>gschem-msg <span class="st0">"Select something first!"</span><span class="br0">)</span>
<span class="co1">; else</span>
<span class="br0">(</span><span class="kw1">let</span>* <span class="br0">(</span><span class="br0">(</span>copied-objects <span class="br0">(</span>map copy-object objects<span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>translated-objects <span class="br0">(</span><span class="kw1">apply</span> translate-objects<span class="sy0">!</span> vector copied-objects<span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>bounds <span class="br0">(</span><span class="kw1">apply</span> object-bounds translated-objects<span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>rotation-center <span class="br0">(</span>ceiling-coords <span class="br0">(</span>min-coords <span class="br0">(</span><span class="kw1">car</span> bounds<span class="br0">)</span> <span class="br0">(</span><span class="kw1">cdr</span> bounds<span class="br0">)</span><span class="br0">)</span> <span class="nu0">100</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>rotated-objects <span class="br0">(</span><span class="kw1">apply</span> rotate-objects<span class="sy0">!</span> rotation-center angle translated-objects<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span><span class="kw1">apply</span> page-<span class="kw1">append</span><span class="sy0">!</span> <span class="br0">(</span>active-page<span class="br0">)</span> rotated-objects<span class="br0">)</span>
rotated-objects<span class="br0">)</span>
<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="co1">; Multiply VECTOR which must be a pair by NUMBER</span>
<span class="br0">(</span>define <span class="br0">(</span>multiply-vector-by vector number<span class="br0">)</span>
<span class="br0">(</span><span class="kw1">cons</span> <span class="br0">(</span>* number <span class="br0">(</span><span class="kw1">car</span> vector<span class="br0">)</span><span class="br0">)</span> <span class="br0">(</span>* number <span class="br0">(</span><span class="kw1">cdr</span> vector<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="co1">; Copy, move and rotate current selection NUMBER times. Applies</span>
<span class="co1">; the copy-move-and-rotate-selection procedure multiple times</span>
<span class="co1">; increasing every time vector and angle by given values of VECTOR</span>
<span class="co1">; and ANGLE.</span>
<span class="co1">; If no objects are selected, opens gschem message dialog with</span>
<span class="co1">; warning.</span>
<span class="co1">; Return value is unspecified.</span>
<span class="br0">(</span>define <span class="br0">(</span>multiple-copy-move-and-rotate-selection vector angle num<span class="br0">)</span>
<span class="br0">(</span><span class="kw1">if</span> <span class="br0">(</span><span class="kw1">null</span>? <span class="br0">(</span>page-selection <span class="br0">(</span>active-page<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>gschem-msg <span class="st0">"Select something first!"</span><span class="br0">)</span>
<span class="co1">; else</span>
<span class="br0">(</span><span class="kw1">do</span> <span class="br0">(</span><span class="br0">(</span>i num <span class="br0">(</span><span class="nu0">1</span>- i<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span><span class="br0">(</span><span class="sy0">=</span> i <span class="nu0">0</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>copy-move-and-rotate-selection
<span class="br0">(</span>multiply-vector-by vector i<span class="br0">)</span> <span class="br0">(</span>* angle i<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">)</span><span class="br0">)</span>
<span class="co1">; Abbreviated name for the multiple-copy-move-and-rotate-selection</span>
<span class="co1">; procedure</span>
<span class="br0">(</span>define mcmars multiple-copy-move-and-rotate-selection<span class="br0">)</span></pre>
</dd></dl>
</div>
<h4><a name="group_attribute_editing" id="group_attribute_editing">Group attribute editing</a></h4>
<div class="level4">
<p>
Let's suppose you have selected several resistors' refdeses and
want to rename them at once, e.g., if they were copy from another
place.
</p>
<dl class="file">
<dt><a href="_export/code/geda:guile_scripting?codeblock=6" title="Download Snippet" class="mediafile mf_">set-selected-attribs-value</a></dt>
<dd><pre class="code file lisp"><span class="br0">(</span>use-modules <span class="br0">(</span>gschem selection<span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>define <span class="br0">(</span>set-selected-attribs-<span class="kw1">value</span><span class="sy0">!</span> <span class="kw1">value</span><span class="br0">)</span>
<span class="br0">(</span>for-each
<span class="br0">(</span><span class="kw1">lambda</span> <span class="br0">(</span>attrib<span class="br0">)</span>
<span class="br0">(</span>set-attrib-<span class="kw1">value</span><span class="sy0">!</span> attrib <span class="kw1">value</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>page-selection <span class="br0">(</span>active-page<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span></pre>
</dd></dl>
<p>
Usage of the procedure in <strong>gschem</strong>:
</p>
<pre class="code lisp"><span class="br0">(</span>set-selected-attribs-<span class="kw1">value</span><span class="sy0">!</span> <span class="st0">"R100.?"</span><span class="br0">)</span></pre>
<p>
Now, after renumbering them using <kbd>T</kbd> <kbd>U</kbd>, you
copy them all and want to rename those copied resistors appending a suffix:
</p>
<dl class="file">
<dt><a href="_export/code/geda:guile_scripting?codeblock=8" title="Download Snippet" class="mediafile mf_scm">append-selected-attribs-suffix.scm</a></dt>
<dd><pre class="code file lisp"><span class="br0">(</span>use-modules <span class="br0">(</span>gschem selection<span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>define <span class="br0">(</span>append-selected-attribs-suffix<span class="sy0">!</span> suffix<span class="br0">)</span>
<span class="br0">(</span>for-each
<span class="br0">(</span><span class="kw1">lambda</span> <span class="br0">(</span>attrib<span class="br0">)</span>
<span class="br0">(</span>set-attrib-<span class="kw1">value</span><span class="sy0">!</span>
attrib
<span class="br0">(</span>string-<span class="kw1">append</span> <span class="br0">(</span>attrib-<span class="kw1">value</span> attrib<span class="br0">)</span> suffix<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>page-selection <span class="br0">(</span>active-page<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span></pre>
</dd></dl>
<p>
Usage of the procedure in <strong>gschem</strong>:
</p>
<pre class="code lisp"><span class="br0">(</span>append-selected-attribs-suffix<span class="sy0">!</span> <span class="st0">"-top"</span><span class="br0">)</span></pre>
<p>
Now, let's rename some other attributes by adding a prefix:
</p>
<dl class="file">
<dt><a href="_export/code/geda:guile_scripting?codeblock=10" title="Download Snippet" class="mediafile mf_scm">append-selected-attribs-prefix.scm</a></dt>
<dd><pre class="code file lisp"><span class="br0">(</span>use-modules <span class="br0">(</span>gschem selection<span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>define <span class="br0">(</span>append-selected-attribs-prefix<span class="sy0">!</span> prefix<span class="br0">)</span>
<span class="br0">(</span>for-each
<span class="br0">(</span><span class="kw1">lambda</span> <span class="br0">(</span>object<span class="br0">)</span>
<span class="br0">(</span><span class="kw1">and</span> <span class="br0">(</span>attribute? object<span class="br0">)</span>
<span class="br0">(</span>set-attrib-<span class="kw1">value</span><span class="sy0">!</span>
object
<span class="br0">(</span>string-<span class="kw1">append</span> prefix <span class="br0">(</span>attrib-<span class="kw1">value</span> object<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>page-selection <span class="br0">(</span>active-page<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span></pre>
</dd></dl>
<p>
Usage of the procedure in <strong>gschem</strong>:
</p>
<pre class="code lisp"><span class="br0">(</span>append-selected-attribs-prefix<span class="sy0">!</span> <span class="st0">"A1."</span><span class="br0">)</span></pre>
<p>
Let's replace first letters of selected attribs with prefix:
</p>
<dl class="file">
<dt><a href="_export/code/geda:guile_scripting?codeblock=12" title="Download Snippet" class="mediafile mf_scm">append-selected-attribs-prefix.scm</a></dt>
<dd><pre class="code file lisp"><span class="br0">(</span>use-modules <span class="br0">(</span>gschem selection<span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>define <span class="br0">(</span>replace-selected-attribs-prefix<span class="sy0">!</span> prefix<span class="br0">)</span>
<span class="br0">(</span>for-each
<span class="br0">(</span><span class="kw1">lambda</span> <span class="br0">(</span>object<span class="br0">)</span>
<span class="br0">(</span><span class="kw1">and</span> <span class="br0">(</span>attribute? object<span class="br0">)</span>
<span class="br0">(</span>set-attrib-<span class="kw1">value</span><span class="sy0">!</span>
object
<span class="br0">(</span>string-<span class="kw1">append</span>
prefix
<span class="br0">(</span>string-copy <span class="br0">(</span>attrib-<span class="kw1">value</span> object<span class="br0">)</span> <span class="nu0">1</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>page-selection <span class="br0">(</span>active-page<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span></pre>
</dd></dl>
<p>
Usage of the procedure in <strong>gschem</strong>:
</p>
<pre class="code lisp"><span class="br0">(</span>replace-selected-attribs-prefix<span class="sy0">!</span> <span class="st0">"C"</span><span class="br0">)</span></pre>
<p>
Let's rename selected <code>netname=</code> attributes increasing them by a
fixed number:
</p>
<dl class="file">
<dt><a href="_export/code/geda:guile_scripting?codeblock=14" title="Download Snippet" class="mediafile mf_scm">add-selected-attribs-number.scm</a></dt>
<dd><pre class="code file lisp"><span class="br0">(</span>use-modules <span class="br0">(</span>gschem selection<span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>define <span class="br0">(</span>add-selected-attribs-number<span class="sy0">!</span> number<span class="br0">)</span>
<span class="br0">(</span>for-each
<span class="br0">(</span><span class="kw1">lambda</span> <span class="br0">(</span>object<span class="br0">)</span>
<span class="br0">(</span><span class="kw1">and</span> <span class="br0">(</span>attribute? object<span class="br0">)</span>
<span class="br0">(</span>set-attrib-<span class="kw1">value</span><span class="sy0">!</span>
object
<span class="br0">(</span>number-<span class="sy0">></span>string
<span class="br0">(</span>+ <span class="br0">(</span>string-<span class="sy0">></span>number <span class="br0">(</span>attrib-<span class="kw1">value</span> object<span class="br0">)</span><span class="br0">)</span> number<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>page-selection <span class="br0">(</span>active-page<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span></pre>
</dd></dl>
<p>
Usage of the procedure in <strong>gschem</strong>:
</p>
<pre class="code lisp"><span class="br0">(</span>add-selected-attribs-number<span class="sy0">!</span> <span class="nu0">100</span><span class="br0">)</span></pre>
<p>
We could set any function instead of ”+” on the net number in this procedure.
For instance:
</p>
<dl class="file">
<dt><a href="_export/code/geda:guile_scripting?codeblock=16" title="Download Snippet" class="mediafile mf_scm">use-another-func.scm</a></dt>
<dd><pre class="code file lisp"><span class="br0">(</span>use-modules <span class="br0">(</span>gschem selection<span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>define <span class="br0">(</span>use-another-func<span class="sy0">!</span> func<span class="br0">)</span>
<span class="br0">(</span>for-each
<span class="br0">(</span><span class="kw1">lambda</span> <span class="br0">(</span>object<span class="br0">)</span>
<span class="br0">(</span><span class="kw1">and</span> <span class="br0">(</span>attribute? object<span class="br0">)</span>
<span class="br0">(</span>set-attrib-<span class="kw1">value</span><span class="sy0">!</span>
object
<span class="br0">(</span>number-<span class="sy0">></span>string
<span class="br0">(</span>func <span class="br0">(</span>string-<span class="sy0">></span>number <span class="br0">(</span>attrib-<span class="kw1">value</span> object<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>page-selection <span class="br0">(</span>active-page<span class="br0">)</span><span class="br0">)</span><span class="br0">)</span><span class="br0">)</span></pre>
</dd></dl>
<p>
Usage of the procedure in <strong>gschem</strong>:
</p>
<pre class="code lisp"><span class="br0">(</span>use-another-func<span class="sy0">!</span> -<span class="br0">)</span>
<span class="br0">(</span>define <span class="br0">(</span>multiply-by-<span class="nu0">2</span> x<span class="br0">)</span>
<span class="br0">(</span>* <span class="nu0">2</span> x<span class="br0">)</span><span class="br0">)</span>
<span class="br0">(</span>use-another-func<span class="sy0">!</span> multiply-by-<span class="nu0">2</span><span class="br0">)</span></pre>
</div>
<!-- EDIT4 SECTION "Scripting examples" [1158-] --></div>
</body>
</html>
|
