File: zif.inc

package info (click to toggle)
pcb 20140316-3
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 22,212 kB
  • ctags: 16,012
  • sloc: ansic: 123,955; sh: 7,306; yacc: 5,087; pascal: 4,118; makefile: 1,559; perl: 552; lex: 438; awk: 157; lisp: 86; tcl: 63; xml: 20
file content (17 lines) | stat: -rw-r--r-- 478 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
define(`PKG_ZIF',
	`define(`NUMPINS', `$4')
	define(`CENTER', eval(NUMPINS*19))
Element(0x00 "$1" "`$2'" "$3" 100 CENTER 0 100 0x00)
(

define(`X', 0)
define(`count', 1)
forloop(`i', 1, NUMPINS,
	`PAD(X, 12, X, 97, 24, count)' `define(`count', incr(count))'
	`define(`X', eval(X+39))'
)
PAD(-124, -41, -124, -151, 82, eval(NUMPINS+1))
PAD(eval(X+124-39), -41, eval(X+124-39), -151, 82, eval(NUMPINS+2))
)')

# -------------------------------------------------------------------