0000: 23 20 67 65 6e 53 74 75 62 73 2e 74 63 6c 20 2d # genStubs.tcl -
0010: 2d 0a 23 0a 23 09 54 68 69 73 20 73 63 72 69 70 -.#.#.This scrip
0020: 74 20 67 65 6e 65 72 61 74 65 73 20 61 20 73 65 t generates a se
0030: 74 20 6f 66 20 73 74 75 62 20 66 69 6c 65 73 20 t of stub files
0040: 66 6f 72 20 61 20 67 69 76 65 6e 0a 23 09 69 6e for a given.#.in
0050: 74 65 72 66 61 63 65 2e 0a 23 0a 23 0a 23 20 43 terface..#.#.# C
0060: 6f 70 79 72 69 67 68 74 20 c2 a9 20 31 39 39 38 opyright © 1998
0070: 2d 31 39 39 39 20 53 63 72 69 70 74 69 63 73 20 -1999 Scriptics
0080: 43 6f 72 70 6f 72 61 74 69 6f 6e 2e 0a 23 20 43 Corporation..# C
0090: 6f 70 79 72 69 67 68 74 20 c2 a9 20 32 30 30 37 opyright © 2007
00a0: 20 44 61 6e 69 65 6c 20 41 2e 20 53 74 65 66 66 Daniel A. Steff
00b0: 65 6e 20 3c 64 61 73 40 75 73 65 72 73 2e 73 6f en <[email protected]
00c0: 75 72 63 65 66 6f 72 67 65 2e 6e 65 74 3e 0a 23 urceforge.net>.#
00d0: 0a 23 20 53 65 65 20 74 68 65 20 66 69 6c 65 20 .# See the file
00e0: 22 6c 69 63 65 6e 73 65 2e 74 65 72 6d 73 22 20 "license.terms"
00f0: 66 6f 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 for information
0100: 6f 6e 20 75 73 61 67 65 20 61 6e 64 20 72 65 64 on usage and red
0110: 69 73 74 72 69 62 75 74 69 6f 6e 0a 23 20 6f 66 istribution.# of
0120: 20 74 68 69 73 20 66 69 6c 65 2c 20 61 6e 64 20 this file, and
0130: 66 6f 72 20 61 20 44 49 53 43 4c 41 49 4d 45 52 for a DISCLAIMER
0140: 20 4f 46 20 41 4c 4c 20 57 41 52 52 41 4e 54 49 OF ALL WARRANTI
0150: 45 53 2e 0a 0a 6e 61 6d 65 73 70 61 63 65 20 65 ES...namespace e
0160: 76 61 6c 20 67 65 6e 53 74 75 62 73 20 7b 0a 20 val genStubs {.
0170: 20 20 20 23 20 6c 69 62 72 61 72 79 4e 61 6d 65 # libraryName
0180: 20 2d 2d 0a 20 20 20 20 23 0a 20 20 20 20 23 09 --. #. #.
0190: 54 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 The name of the
01a0: 65 6e 74 69 72 65 20 6c 69 62 72 61 72 79 2e 20 entire library.
01b0: 20 54 68 69 73 20 76 61 6c 75 65 20 69 73 20 75 This value is u
01c0: 73 65 64 20 74 6f 20 63 6f 6d 70 75 74 65 0a 20 sed to compute.
01d0: 20 20 20 23 09 74 68 65 20 55 53 45 5f 2a 5f 53 #.the USE_*_S
01e0: 54 55 42 53 20 6d 61 63 72 6f 20 61 6e 64 20 74 TUBS macro and t
01f0: 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 69 he name of the i
0200: 6e 69 74 20 66 69 6c 65 2e 0a 0a 20 20 20 20 76 nit file... v
0210: 61 72 69 61 62 6c 65 20 6c 69 62 72 61 72 79 4e ariable libraryN
0220: 61 6d 65 20 22 55 4e 4b 4e 4f 57 4e 22 0a 0a 20 ame "UNKNOWN"..
0230: 20 20 20 23 20 69 6e 74 65 72 66 61 63 65 73 20 # interfaces
0240: 2d 2d 0a 20 20 20 20 23 0a 20 20 20 20 23 09 41 --. #. #.A
0250: 6e 20 61 72 72 61 79 20 69 6e 64 65 78 65 64 20 n array indexed
0260: 62 79 20 69 6e 74 65 72 66 61 63 65 20 6e 61 6d by interface nam
0270: 65 20 74 68 61 74 20 69 73 20 75 73 65 64 20 74 e that is used t
0280: 6f 20 6d 61 69 6e 74 61 69 6e 0a 20 20 20 20 23 o maintain. #
0290: 20 20 20 74 68 65 20 73 65 74 20 6f 66 20 76 61 the set of va
02a0: 6c 69 64 20 69 6e 74 65 72 66 61 63 65 73 2e 20 lid interfaces.
02b0: 20 54 68 65 20 76 61 6c 75 65 20 69 73 20 65 6d The value is em
02c0: 70 74 79 2e 0a 0a 20 20 20 20 61 72 72 61 79 20 pty... array
02d0: 73 65 74 20 69 6e 74 65 72 66 61 63 65 73 20 7b set interfaces {
02e0: 7d 0a 0a 20 20 20 20 23 20 63 75 72 4e 61 6d 65 }.. # curName
02f0: 20 2d 2d 0a 20 20 20 20 23 0a 20 20 20 20 23 09 --. #. #.
0300: 54 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 The name of the
0310: 69 6e 74 65 72 66 61 63 65 20 63 75 72 72 65 6e interface curren
0320: 74 6c 79 20 62 65 69 6e 67 20 64 65 66 69 6e 65 tly being define
0330: 64 2e 0a 0a 20 20 20 20 76 61 72 69 61 62 6c 65 d... variable
0340: 20 63 75 72 4e 61 6d 65 20 22 55 4e 4b 4e 4f 57 curName "UNKNOW
0350: 4e 22 0a 0a 20 20 20 20 23 20 73 63 73 70 65 63 N".. # scspec
0360: 20 2d 2d 0a 20 20 20 20 23 0a 20 20 20 20 23 09 --. #. #.
0370: 53 74 6f 72 61 67 65 20 63 6c 61 73 73 20 73 70 Storage class sp
0380: 65 63 69 66 69 65 72 20 66 6f 72 20 65 78 74 65 ecifier for exte
0390: 72 6e 61 6c 20 66 75 6e 63 74 69 6f 6e 20 64 65 rnal function de
03a0: 63 6c 61 72 61 74 69 6f 6e 73 2e 0a 20 20 20 20 clarations..
03b0: 23 09 4e 6f 72 6d 61 6c 6c 79 20 22 45 58 54 45 #.Normally "EXTE
03c0: 52 4e 22 2c 20 6d 61 79 20 62 65 20 73 65 74 20 RN", may be set
03d0: 74 6f 20 73 6f 6d 65 74 68 69 6e 67 20 6c 69 6b to something lik
03e0: 65 20 58 59 5a 41 50 49 0a 20 20 20 20 23 0a 20 e XYZAPI. #.
03f0: 20 20 20 76 61 72 69 61 62 6c 65 20 73 63 73 70 variable scsp
0400: 65 63 20 22 45 58 54 45 52 4e 22 0a 0a 20 20 20 ec "EXTERN"..
0410: 20 23 20 65 70 6f 63 68 2c 20 72 65 76 69 73 69 # epoch, revisi
0420: 6f 6e 20 2d 2d 0a 20 20 20 20 23 0a 20 20 20 20 on --. #.
0430: 23 09 54 68 65 20 65 70 6f 63 68 20 61 6e 64 20 #.The epoch and
0440: 72 65 76 69 73 69 6f 6e 20 6e 75 6d 62 65 72 73 revision numbers
0450: 20 6f 66 20 74 68 65 20 69 6e 74 65 72 66 61 63 of the interfac
0460: 65 20 63 75 72 72 65 6e 74 6c 79 20 62 65 69 6e e currently bein
0470: 67 20 64 65 66 69 6e 65 64 2e 0a 20 20 20 20 23 g defined.. #
0480: 20 20 20 28 40 40 40 54 4f 44 4f 3a 20 73 68 6f (@@@TODO: sho
0490: 75 6c 64 20 62 65 20 61 6e 20 61 72 72 61 79 20 uld be an array
04a0: 6d 61 70 70 69 6e 67 20 69 6e 74 65 72 66 61 63 mapping interfac
04b0: 65 20 6e 61 6d 65 73 20 2d 3e 20 6e 75 6d 62 65 e names -> numbe
04c0: 72 73 29 0a 20 20 20 20 23 0a 0a 20 20 20 20 76 rs). #.. v
04d0: 61 72 69 61 62 6c 65 20 65 70 6f 63 68 20 7b 7d ariable epoch {}
04e0: 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 72 65 . variable re
04f0: 76 69 73 69 6f 6e 20 30 0a 0a 20 20 20 20 23 20 vision 0.. #
0500: 68 6f 6f 6b 73 20 2d 2d 0a 20 20 20 20 23 0a 20 hooks --. #.
0510: 20 20 20 23 09 41 6e 20 61 72 72 61 79 20 69 6e #.An array in
0520: 64 65 78 65 64 20 62 79 20 69 6e 74 65 72 66 61 dexed by interfa
0530: 63 65 20 6e 61 6d 65 20 74 68 61 74 20 63 6f 6e ce name that con
0540: 74 61 69 6e 73 20 74 68 65 20 73 65 74 20 6f 66 tains the set of
0550: 0a 20 20 20 20 23 09 73 75 62 69 6e 74 65 72 66 . #.subinterf
0560: 61 63 65 73 20 74 68 61 74 20 73 68 6f 75 6c 64 aces that should
0570: 20 62 65 20 64 65 66 69 6e 65 64 20 66 6f 72 20 be defined for
0580: 61 20 67 69 76 65 6e 20 69 6e 74 65 72 66 61 63 a given interfac
0590: 65 2e 0a 0a 20 20 20 20 61 72 72 61 79 20 73 65 e... array se
05a0: 74 20 68 6f 6f 6b 73 20 7b 7d 0a 0a 20 20 20 20 t hooks {}..
05b0: 23 20 73 74 75 62 73 20 2d 2d 0a 20 20 20 20 23 # stubs --. #
05c0: 0a 20 20 20 20 23 09 54 68 69 73 20 74 68 72 65 . #.This thre
05d0: 65 20 64 69 6d 65 6e 73 69 6f 6e 61 6c 20 61 72 e dimensional ar
05e0: 72 61 79 20 69 73 20 69 6e 64 65 78 65 64 20 66 ray is indexed f
05f0: 69 72 73 74 20 62 79 20 69 6e 74 65 72 66 61 63 irst by interfac
0600: 65 20 6e 61 6d 65 2c 0a 20 20 20 20 23 09 73 65 e name,. #.se
0610: 63 6f 6e 64 20 62 79 20 70 6c 61 74 66 6f 72 6d cond by platform
0620: 20 6e 61 6d 65 2c 20 61 6e 64 20 74 68 69 72 64 name, and third
0630: 20 62 79 20 61 20 6e 75 6d 65 72 69 63 20 6f 66 by a numeric of
0640: 66 73 65 74 20 6f 72 20 74 68 65 0a 20 20 20 20 fset or the.
0650: 23 09 63 6f 6e 73 74 61 6e 74 20 22 6c 61 73 74 #.constant "last
0660: 4e 75 6d 22 2e 20 20 54 68 65 20 6c 61 73 74 4e Num". The lastN
0670: 75 6d 20 65 6e 74 72 79 20 63 6f 6e 74 61 69 6e um entry contain
0680: 73 20 74 68 65 20 6c 61 72 67 65 73 74 0a 20 20 s the largest.
0690: 20 20 23 09 6e 75 6d 65 72 69 63 20 6f 66 66 73 #.numeric offs
06a0: 65 74 20 75 73 65 64 20 66 6f 72 20 61 20 67 69 et used for a gi
06b0: 76 65 6e 20 69 6e 74 65 72 66 61 63 65 2f 70 6c ven interface/pl
06c0: 61 74 66 6f 72 6d 20 63 6f 6d 62 6f 2e 20 20 45 atform combo. E
06d0: 61 63 68 0a 20 20 20 20 23 09 6e 75 6d 65 72 69 ach. #.numeri
06e0: 63 20 6f 66 66 73 65 74 20 63 6f 6e 74 61 69 6e c offset contain
06f0: 73 20 74 68 65 20 43 20 66 75 6e 63 74 69 6f 6e s the C function
0700: 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 74 specification t
0710: 68 61 74 0a 20 20 20 20 23 09 73 68 6f 75 6c 64 hat. #.should
0720: 20 62 65 20 75 73 65 64 20 66 6f 72 20 74 68 65 be used for the
0730: 20 67 69 76 65 6e 20 65 6e 74 72 79 20 69 6e 20 given entry in
0740: 74 68 65 20 73 74 75 62 20 74 61 62 6c 65 2e 20 the stub table.
0750: 20 54 68 65 20 73 70 65 63 0a 20 20 20 20 23 09 The spec. #.
0760: 63 6f 6e 73 69 73 74 73 20 6f 66 20 61 20 6c 69 consists of a li
0770: 73 74 20 69 6e 20 74 68 65 20 66 6f 72 6d 20 72 st in the form r
0780: 65 74 75 72 6e 65 64 20 62 79 20 70 61 72 73 65 eturned by parse
0790: 44 65 63 6c 2e 0a 0a 20 20 20 20 61 72 72 61 79 Decl... array
07a0: 20 73 65 74 20 73 74 75 62 73 20 7b 7d 0a 0a 20 set stubs {}..
07b0: 20 20 20 23 20 6f 75 74 44 69 72 20 2d 2d 0a 20 # outDir --.
07c0: 20 20 20 23 0a 20 20 20 20 23 09 54 68 65 20 64 #. #.The d
07d0: 69 72 65 63 74 6f 72 79 20 77 68 65 72 65 20 74 irectory where t
07e0: 68 65 20 67 65 6e 65 72 61 74 65 64 20 66 69 6c he generated fil
07f0: 65 73 20 73 68 6f 75 6c 64 20 62 65 20 70 6c 61 es should be pla
0800: 63 65 64 2e 0a 0a 20 20 20 20 76 61 72 69 61 62 ced... variab
0810: 6c 65 20 6f 75 74 44 69 72 20 2e 0a 7d 0a 0a 23 le outDir ..}..#
0820: 20 67 65 6e 53 74 75 62 73 3a 3a 6c 69 62 72 61 genStubs::libra
0830: 72 79 20 2d 2d 0a 23 0a 23 09 54 68 69 73 20 66 ry --.#.#.This f
0840: 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 20 unction is used
0850: 69 6e 20 74 68 65 20 64 65 63 6c 61 72 61 74 69 in the declarati
0860: 6f 6e 73 20 66 69 6c 65 20 74 6f 20 73 65 74 20 ons file to set
0870: 74 68 65 20 6e 61 6d 65 0a 23 09 6f 66 20 74 68 the name.#.of th
0880: 65 20 6c 69 62 72 61 72 79 20 74 68 61 74 20 74 e library that t
0890: 68 65 20 69 6e 74 65 72 66 61 63 65 73 20 61 72 he interfaces ar
08a0: 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 e associated wit
08b0: 68 20 28 65 2e 67 2e 20 22 74 63 6c 22 29 2e 0a h (e.g. "tcl")..
08c0: 23 09 54 68 69 73 20 76 61 6c 75 65 20 77 69 6c #.This value wil
08d0: 6c 20 62 65 20 75 73 65 64 20 74 6f 20 64 65 66 l be used to def
08e0: 69 6e 65 20 74 68 65 20 69 6e 6c 69 6e 65 20 63 ine the inline c
08f0: 6f 6e 64 69 74 69 6f 6e 61 6c 20 6d 61 63 72 6f onditional macro
0900: 2e 0a 23 0a 23 20 41 72 67 75 6d 65 6e 74 73 3a ..#.# Arguments:
0910: 0a 23 09 6e 61 6d 65 09 54 68 65 20 6c 69 62 72 .#.name.The libr
0920: 61 72 79 20 6e 61 6d 65 2e 0a 23 0a 23 20 52 65 ary name..#.# Re
0930: 73 75 6c 74 73 3a 0a 23 09 4e 6f 6e 65 2e 0a 0a sults:.#.None...
0940: 70 72 6f 63 20 67 65 6e 53 74 75 62 73 3a 3a 6c proc genStubs::l
0950: 69 62 72 61 72 79 20 7b 6e 61 6d 65 7d 20 7b 0a ibrary {name} {.
0960: 20 20 20 20 76 61 72 69 61 62 6c 65 20 6c 69 62 variable lib
0970: 72 61 72 79 4e 61 6d 65 20 24 6e 61 6d 65 0a 7d raryName $name.}
0980: 0a 0a 23 20 67 65 6e 53 74 75 62 73 3a 3a 69 6e ..# genStubs::in
0990: 74 65 72 66 61 63 65 20 2d 2d 0a 23 0a 23 09 54 terface --.#.#.T
09a0: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 his function is
09b0: 75 73 65 64 20 69 6e 20 74 68 65 20 64 65 63 6c used in the decl
09c0: 61 72 61 74 69 6f 6e 73 20 66 69 6c 65 20 74 6f arations file to
09d0: 20 73 65 74 20 74 68 65 20 6e 61 6d 65 0a 23 09 set the name.#.
09e0: 6f 66 20 74 68 65 20 69 6e 74 65 72 66 61 63 65 of the interface
09f0: 20 63 75 72 72 65 6e 74 6c 79 20 62 65 69 6e 67 currently being
0a00: 20 64 65 66 69 6e 65 64 2e 0a 23 0a 23 20 41 72 defined..#.# Ar
0a10: 67 75 6d 65 6e 74 73 3a 0a 23 09 6e 61 6d 65 09 guments:.#.name.
0a20: 54 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 The name of the
0a30: 69 6e 74 65 72 66 61 63 65 2e 0a 23 0a 23 20 52 interface..#.# R
0a40: 65 73 75 6c 74 73 3a 0a 23 09 4e 6f 6e 65 2e 0a esults:.#.None..
0a50: 0a 70 72 6f 63 20 67 65 6e 53 74 75 62 73 3a 3a .proc genStubs::
0a60: 69 6e 74 65 72 66 61 63 65 20 7b 6e 61 6d 65 7d interface {name}
0a70: 20 7b 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 {. variable
0a80: 63 75 72 4e 61 6d 65 20 24 6e 61 6d 65 0a 20 20 curName $name.
0a90: 20 20 76 61 72 69 61 62 6c 65 20 69 6e 74 65 72 variable inter
0aa0: 66 61 63 65 73 0a 0a 20 20 20 20 73 65 74 20 69 faces.. set i
0ab0: 6e 74 65 72 66 61 63 65 73 28 24 6e 61 6d 65 29 nterfaces($name)
0ac0: 20 7b 7d 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d {}. return.}
0ad0: 0a 0a 23 20 67 65 6e 53 74 75 62 73 3a 3a 73 63 ..# genStubs::sc
0ae0: 73 70 65 63 20 2d 2d 0a 23 0a 23 09 44 65 66 69 spec --.#.#.Defi
0af0: 6e 65 20 74 68 65 20 73 74 6f 72 61 67 65 20 63 ne the storage c
0b00: 6c 61 73 73 20 6d 61 63 72 6f 20 75 73 65 64 20 lass macro used
0b10: 66 6f 72 20 65 78 74 65 72 6e 61 6c 20 66 75 6e for external fun
0b20: 63 74 69 6f 6e 20 64 65 63 6c 61 72 61 74 69 6f ction declaratio
0b30: 6e 73 2e 0a 23 09 54 79 70 69 63 61 6c 6c 79 2c ns..#.Typically,
0b40: 20 74 68 69 73 20 77 69 6c 6c 20 62 65 20 61 20 this will be a
0b50: 6d 61 63 72 6f 20 6c 69 6b 65 20 58 59 5a 41 50 macro like XYZAP
0b60: 49 20 6f 72 20 45 58 54 45 52 4e 20 74 68 61 74 I or EXTERN that
0b70: 0a 23 09 65 78 70 61 6e 64 73 20 74 6f 20 65 69 .#.expands to ei
0b80: 74 68 65 72 20 44 4c 4c 49 4d 50 4f 52 54 20 6f ther DLLIMPORT o
0b90: 72 20 44 4c 4c 45 58 50 4f 52 54 2c 20 64 65 70 r DLLEXPORT, dep
0ba0: 65 6e 64 69 6e 67 20 6f 6e 20 77 68 65 74 68 65 ending on whethe
0bb0: 72 0a 23 09 2d 44 42 55 49 4c 44 5f 58 59 5a 20 r.#.-DBUILD_XYZ
0bc0: 68 61 73 20 62 65 65 6e 20 73 65 74 2e 0a 23 0a has been set..#.
0bd0: 70 72 6f 63 20 67 65 6e 53 74 75 62 73 3a 3a 73 proc genStubs::s
0be0: 63 73 70 65 63 20 7b 76 61 6c 75 65 7d 20 7b 0a cspec {value} {.
0bf0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 73 63 73 variable scs
0c00: 70 65 63 20 24 76 61 6c 75 65 0a 7d 0a 0a 23 20 pec $value.}..#
0c10: 67 65 6e 53 74 75 62 73 3a 3a 65 70 6f 63 68 20 genStubs::epoch
0c20: 2d 2d 0a 23 0a 23 09 44 65 66 69 6e 65 20 74 68 --.#.#.Define th
0c30: 65 20 65 70 6f 63 68 20 6e 75 6d 62 65 72 20 66 e epoch number f
0c40: 6f 72 20 74 68 69 73 20 6c 69 62 72 61 72 79 2e or this library.
0c50: 20 20 54 68 65 20 65 70 6f 63 68 0a 23 09 73 68 The epoch.#.sh
0c60: 6f 75 6c 64 20 62 65 20 69 6e 63 72 65 6d 65 6d ould be incremem
0c70: 65 6e 74 65 64 20 77 68 65 6e 20 61 20 72 65 6c ented when a rel
0c80: 65 61 73 65 20 69 73 20 6d 61 64 65 20 74 68 61 ease is made tha
0c90: 74 0a 23 09 63 6f 6e 74 61 69 6e 73 20 69 6e 63 t.#.contains inc
0ca0: 6f 6d 70 61 74 69 62 6c 65 20 63 68 61 6e 67 65 ompatible change
0cb0: 73 20 74 6f 20 74 68 65 20 70 75 62 6c 69 63 20 s to the public
0cc0: 41 50 49 2e 0a 23 0a 70 72 6f 63 20 67 65 6e 53 API..#.proc genS
0cd0: 74 75 62 73 3a 3a 65 70 6f 63 68 20 7b 76 61 6c tubs::epoch {val
0ce0: 75 65 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 ue} {. variab
0cf0: 6c 65 20 65 70 6f 63 68 20 24 76 61 6c 75 65 0a le epoch $value.
0d00: 7d 0a 0a 23 20 67 65 6e 53 74 75 62 73 3a 3a 68 }..# genStubs::h
0d10: 6f 6f 6b 73 20 2d 2d 0a 23 0a 23 09 54 68 69 73 ooks --.#.#.This
0d20: 20 66 75 6e 63 74 69 6f 6e 20 64 65 66 69 6e 65 function define
0d30: 73 20 74 68 65 20 73 75 62 69 6e 74 65 72 66 61 s the subinterfa
0d40: 63 65 20 68 6f 6f 6b 73 20 66 6f 72 20 74 68 65 ce hooks for the
0d50: 20 63 75 72 72 65 6e 74 0a 23 09 69 6e 74 65 72 current.#.inter
0d60: 66 61 63 65 2e 0a 23 0a 23 20 41 72 67 75 6d 65 face..#.# Argume
0d70: 6e 74 73 3a 0a 23 09 6e 61 6d 65 73 09 54 68 65 nts:.#.names.The
0d80: 20 6f 72 64 65 72 65 64 20 6c 69 73 74 20 6f 66 ordered list of
0d90: 20 69 6e 74 65 72 66 61 63 65 73 20 74 68 61 74 interfaces that
0da0: 20 61 72 65 20 72 65 61 63 68 61 62 6c 65 20 74 are reachable t
0db0: 68 72 6f 75 67 68 20 74 68 65 0a 23 09 09 68 6f hrough the.#..ho
0dc0: 6f 6b 20 76 65 63 74 6f 72 2e 0a 23 0a 23 20 52 ok vector..#.# R
0dd0: 65 73 75 6c 74 73 3a 0a 23 09 4e 6f 6e 65 2e 0a esults:.#.None..
0de0: 0a 70 72 6f 63 20 67 65 6e 53 74 75 62 73 3a 3a .proc genStubs::
0df0: 68 6f 6f 6b 73 20 7b 6e 61 6d 65 73 7d 20 7b 0a hooks {names} {.
0e00: 20 20 20 20 76 61 72 69 61 62 6c 65 20 63 75 72 variable cur
0e10: 4e 61 6d 65 0a 20 20 20 20 76 61 72 69 61 62 6c Name. variabl
0e20: 65 20 68 6f 6f 6b 73 0a 0a 20 20 20 20 73 65 74 e hooks.. set
0e30: 20 68 6f 6f 6b 73 28 24 63 75 72 4e 61 6d 65 29 hooks($curName)
0e40: 20 24 6e 61 6d 65 73 0a 20 20 20 20 72 65 74 75 $names. retu
0e50: 72 6e 0a 7d 0a 0a 23 20 67 65 6e 53 74 75 62 73 rn.}..# genStubs
0e60: 3a 3a 64 65 63 6c 61 72 65 20 2d 2d 0a 23 0a 23 ::declare --.#.#
0e70: 09 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 .This function i
0e80: 73 20 75 73 65 64 20 69 6e 20 74 68 65 20 64 65 s used in the de
0e90: 63 6c 61 72 61 74 69 6f 6e 73 20 66 69 6c 65 20 clarations file
0ea0: 74 6f 20 64 65 63 6c 61 72 65 20 61 20 6e 65 77 to declare a new
0eb0: 0a 23 09 69 6e 74 65 72 66 61 63 65 20 65 6e 74 .#.interface ent
0ec0: 72 79 2e 0a 23 0a 23 20 41 72 67 75 6d 65 6e 74 ry..#.# Argument
0ed0: 73 3a 0a 23 09 69 6e 64 65 78 09 09 54 68 65 20 s:.#.index..The
0ee0: 69 6e 64 65 78 20 6e 75 6d 62 65 72 20 6f 66 20 index number of
0ef0: 74 68 65 20 69 6e 74 65 72 66 61 63 65 2e 0a 23 the interface..#
0f00: 09 70 6c 61 74 66 6f 72 6d 09 54 68 65 20 70 6c .platform.The pl
0f10: 61 74 66 6f 72 6d 20 74 68 65 20 69 6e 74 65 72 atform the inter
0f20: 66 61 63 65 20 62 65 6c 6f 6e 67 73 20 74 6f 2e face belongs to.
0f30: 20 20 53 68 6f 75 6c 64 20 62 65 20 6f 6e 65 0a Should be one.
0f40: 23 09 09 09 6f 66 20 67 65 6e 65 72 69 63 2c 20 #...of generic,
0f50: 77 69 6e 2c 20 75 6e 69 78 2c 20 6f 72 20 6d 61 win, unix, or ma
0f60: 63 6f 73 78 20 6f 72 20 61 71 75 61 20 6f 72 20 cosx or aqua or
0f70: 78 31 31 2e 0a 23 09 64 65 63 6c 09 09 54 68 65 x11..#.decl..The
0f80: 20 43 20 66 75 6e 63 74 69 6f 6e 20 64 65 63 6c C function decl
0f90: 61 72 61 74 69 6f 6e 2c 20 6f 72 20 7b 7d 20 66 aration, or {} f
0fa0: 6f 72 20 61 6e 20 75 6e 64 65 66 69 6e 65 64 0a or an undefined.
0fb0: 23 09 09 09 65 6e 74 72 79 2e 0a 23 0a 23 20 52 #...entry..#.# R
0fc0: 65 73 75 6c 74 73 3a 0a 23 09 4e 6f 6e 65 2e 0a esults:.#.None..
0fd0: 0a 70 72 6f 63 20 67 65 6e 53 74 75 62 73 3a 3a .proc genStubs::
0fe0: 64 65 63 6c 61 72 65 20 7b 61 72 67 73 7d 20 7b declare {args} {
0ff0: 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 73 74 . variable st
1000: 75 62 73 0a 20 20 20 20 76 61 72 69 61 62 6c 65 ubs. variable
1010: 20 63 75 72 4e 61 6d 65 0a 20 20 20 20 76 61 72 curName. var
1020: 69 61 62 6c 65 20 72 65 76 69 73 69 6f 6e 0a 0a iable revision..
1030: 20 20 20 20 69 6e 63 72 20 72 65 76 69 73 69 6f incr revisio
1040: 6e 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 n. if {[lleng
1050: 74 68 20 24 61 72 67 73 5d 20 3d 3d 20 32 7d 20 th $args] == 2}
1060: 7b 0a 09 6c 61 73 73 69 67 6e 20 24 61 72 67 73 {..lassign $args
1070: 20 69 6e 64 65 78 20 64 65 63 6c 0a 09 73 65 74 index decl..set
1080: 20 70 6c 61 74 66 6f 72 6d 4c 69 73 74 20 67 65 platformList ge
1090: 6e 65 72 69 63 0a 20 20 20 20 7d 20 65 6c 73 65 neric. } else
10a0: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72 if {[llength $ar
10b0: 67 73 5d 20 3d 3d 20 33 7d 20 7b 0a 09 6c 61 73 gs] == 3} {..las
10c0: 73 69 67 6e 20 24 61 72 67 73 20 69 6e 64 65 78 sign $args index
10d0: 20 70 6c 61 74 66 6f 72 6d 4c 69 73 74 20 64 65 platformList de
10e0: 63 6c 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a cl. } else {.
10f0: 09 70 75 74 73 20 73 74 64 65 72 72 20 22 77 72 .puts stderr "wr
1100: 6f 6e 67 20 23 20 61 72 67 73 3a 20 64 65 63 6c ong # args: decl
1110: 61 72 65 20 24 61 72 67 73 22 0a 09 72 65 74 75 are $args"..retu
1120: 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 rn. }.. #
1130: 43 68 65 63 6b 20 66 6f 72 20 64 75 70 6c 69 63 Check for duplic
1140: 61 74 65 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 ate declarations
1150: 2c 20 74 68 65 6e 20 61 64 64 20 74 68 65 20 64 , then add the d
1160: 65 63 6c 61 72 61 74 69 6f 6e 20 61 6e 64 0a 20 eclaration and.
1170: 20 20 20 23 20 62 75 6d 70 20 74 68 65 20 6c 61 # bump the la
1180: 73 74 4e 75 6d 20 63 6f 75 6e 74 65 72 20 69 66 stNum counter if
1190: 20 6e 65 63 65 73 73 61 72 79 2e 0a 0a 20 20 20 necessary...
11a0: 20 66 6f 72 65 61 63 68 20 70 6c 61 74 66 6f 72 foreach platfor
11b0: 6d 20 24 70 6c 61 74 66 6f 72 6d 4c 69 73 74 20 m $platformList
11c0: 7b 0a 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 {..if {[info exi
11d0: 73 74 73 20 73 74 75 62 73 28 24 63 75 72 4e 61 sts stubs($curNa
11e0: 6d 65 2c 24 70 6c 61 74 66 6f 72 6d 2c 24 69 6e me,$platform,$in
11f0: 64 65 78 29 5d 7d 20 7b 0a 09 20 20 20 20 70 75 dex)]} {.. pu
1200: 74 73 20 73 74 64 65 72 72 20 22 44 75 70 6c 69 ts stderr "Dupli
1210: 63 61 74 65 20 65 6e 74 72 79 3a 20 64 65 63 6c cate entry: decl
1220: 61 72 65 20 24 61 72 67 73 22 0a 09 7d 0a 20 20 are $args"..}.
1230: 20 20 7d 0a 20 20 20 20 72 65 67 73 75 62 20 2d }. regsub -
1240: 61 6c 6c 20 22 5c 5b 20 5c 74 5c 6e 5c 5d 2b 22 all "\[ \t\n\]+"
1250: 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 64 [string trim $d
1260: 65 63 6c 5d 20 22 20 22 20 64 65 63 6c 0a 20 20 ecl] " " decl.
1270: 20 20 73 65 74 20 64 65 63 6c 20 5b 70 61 72 73 set decl [pars
1280: 65 44 65 63 6c 20 24 64 65 63 6c 5d 0a 0a 20 20 eDecl $decl]..
1290: 20 20 69 66 20 7b 28 5b 6c 69 6e 64 65 78 20 24 if {([lindex $
12a0: 70 6c 61 74 66 6f 72 6d 4c 69 73 74 20 30 5d 20 platformList 0]
12b0: 65 71 20 22 64 65 70 72 65 63 61 74 65 64 22 29 eq "deprecated")
12c0: 7d 20 7b 0a 09 73 65 74 20 73 74 75 62 73 28 24 } {..set stubs($
12d0: 63 75 72 4e 61 6d 65 2c 64 65 70 72 65 63 61 74 curName,deprecat
12e0: 65 64 2c 24 69 6e 64 65 78 29 20 5b 6c 69 6e 64 ed,$index) [lind
12f0: 65 78 20 24 70 6c 61 74 66 6f 72 6d 4c 69 73 74 ex $platformList
1300: 20 31 5d 0a 09 73 65 74 20 73 74 75 62 73 28 24 1]..set stubs($
1310: 63 75 72 4e 61 6d 65 2c 67 65 6e 65 72 69 63 2c curName,generic,
1320: 24 69 6e 64 65 78 29 20 24 64 65 63 6c 0a 09 69 $index) $decl..i
1330: 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 f {![info exists
1340: 20 73 74 75 62 73 28 24 63 75 72 4e 61 6d 65 2c stubs($curName,
1350: 67 65 6e 65 72 69 63 2c 6c 61 73 74 4e 75 6d 29 generic,lastNum)
1360: 5d 20 5c 0a 09 09 7c 7c 20 28 24 69 6e 64 65 78 ] \...|| ($index
1370: 20 3e 20 24 73 74 75 62 73 28 24 63 75 72 4e 61 > $stubs($curNa
1380: 6d 65 2c 67 65 6e 65 72 69 63 2c 6c 61 73 74 4e me,generic,lastN
1390: 75 6d 29 29 7d 20 7b 0a 09 20 20 20 20 73 65 74 um))} {.. set
13a0: 20 73 74 75 62 73 28 24 63 75 72 4e 61 6d 65 2c stubs($curName,
13b0: 67 65 6e 65 72 69 63 2c 6c 61 73 74 4e 75 6d 29 generic,lastNum)
13c0: 20 24 69 6e 64 65 78 0a 09 7d 0a 20 20 20 20 7d $index..}. }
13d0: 20 65 6c 73 65 69 66 20 7b 28 5b 6c 69 6e 64 65 elseif {([linde
13e0: 78 20 24 70 6c 61 74 66 6f 72 6d 4c 69 73 74 20 x $platformList
13f0: 30 5d 20 65 71 20 22 6e 6f 73 74 75 62 22 29 7d 0] eq "nostub")}
1400: 20 7b 0a 09 73 65 74 20 73 74 75 62 73 28 24 63 {..set stubs($c
1410: 75 72 4e 61 6d 65 2c 6e 6f 73 74 75 62 2c 24 69 urName,nostub,$i
1420: 6e 64 65 78 29 20 5b 6c 69 6e 64 65 78 20 24 70 ndex) [lindex $p
1430: 6c 61 74 66 6f 72 6d 4c 69 73 74 20 31 5d 0a 09 latformList 1]..
1440: 73 65 74 20 73 74 75 62 73 28 24 63 75 72 4e 61 set stubs($curNa
1450: 6d 65 2c 67 65 6e 65 72 69 63 2c 24 69 6e 64 65 me,generic,$inde
1460: 78 29 20 24 64 65 63 6c 0a 09 69 66 20 7b 21 5b x) $decl..if {![
1470: 69 6e 66 6f 20 65 78 69 73 74 73 20 73 74 75 62 info exists stub
1480: 73 28 24 63 75 72 4e 61 6d 65 2c 67 65 6e 65 72 s($curName,gener
1490: 69 63 2c 6c 61 73 74 4e 75 6d 29 5d 20 5c 0a 09 ic,lastNum)] \..
14a0: 09 7c 7c 20 28 24 69 6e 64 65 78 20 3e 20 24 73 .|| ($index > $s
14b0: 74 75 62 73 28 24 63 75 72 4e 61 6d 65 2c 67 65 tubs($curName,ge
14c0: 6e 65 72 69 63 2c 6c 61 73 74 4e 75 6d 29 29 7d neric,lastNum))}
14d0: 20 7b 0a 09 20 20 20 20 73 65 74 20 73 74 75 62 {.. set stub
14e0: 73 28 24 63 75 72 4e 61 6d 65 2c 67 65 6e 65 72 s($curName,gener
14f0: 69 63 2c 6c 61 73 74 4e 75 6d 29 20 24 69 6e 64 ic,lastNum) $ind
1500: 65 78 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65 ex..}. } else
1510: 20 7b 0a 09 66 6f 72 65 61 63 68 20 70 6c 61 74 {..foreach plat
1520: 66 6f 72 6d 20 24 70 6c 61 74 66 6f 72 6d 4c 69 form $platformLi
1530: 73 74 20 7b 0a 09 20 20 20 20 69 66 20 7b 24 64 st {.. if {$d
1540: 65 63 6c 20 6e 65 20 22 22 7d 20 7b 0a 09 09 73 ecl ne ""} {...s
1550: 65 74 20 73 74 75 62 73 28 24 63 75 72 4e 61 6d et stubs($curNam
1560: 65 2c 24 70 6c 61 74 66 6f 72 6d 2c 24 69 6e 64 e,$platform,$ind
1570: 65 78 29 20 24 64 65 63 6c 0a 09 09 20 20 20 20 ex) $decl...
1580: 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 if {![info exist
1590: 73 20 73 74 75 62 73 28 24 63 75 72 4e 61 6d 65 s stubs($curName
15a0: 2c 24 70 6c 61 74 66 6f 72 6d 2c 6c 61 73 74 4e ,$platform,lastN
15b0: 75 6d 29 5d 20 5c 0a 09 09 09 20 20 20 20 7c 7c um)] \.... ||
15c0: 20 28 24 69 6e 64 65 78 20 3e 20 24 73 74 75 62 ($index > $stub
15d0: 73 28 24 63 75 72 4e 61 6d 65 2c 24 70 6c 61 74 s($curName,$plat
15e0: 66 6f 72 6d 2c 6c 61 73 74 4e 75 6d 29 29 7d 20 form,lastNum))}
15f0: 7b 0a 09 09 09 73 65 74 20 73 74 75 62 73 28 24 {....set stubs($
1600: 63 75 72 4e 61 6d 65 2c 24 70 6c 61 74 66 6f 72 curName,$platfor
1610: 6d 2c 6c 61 73 74 4e 75 6d 29 20 24 69 6e 64 65 m,lastNum) $inde
1620: 78 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 7d 0a x...}.. }..}.
1630: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e }. return
1640: 0a 7d 0a 0a 23 20 67 65 6e 53 74 75 62 73 3a 3a .}..# genStubs::
1650: 65 78 70 6f 72 74 20 2d 2d 0a 23 0a 23 09 54 68 export --.#.#.Th
1660: 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 is function is u
1670: 73 65 64 20 69 6e 20 74 68 65 20 64 65 63 6c 61 sed in the decla
1680: 72 61 74 69 6f 6e 73 20 66 69 6c 65 20 74 6f 20 rations file to
1690: 64 65 63 6c 61 72 65 20 61 20 73 79 6d 62 6f 6c declare a symbol
16a0: 0a 23 09 74 68 61 74 20 69 73 20 65 78 70 6f 72 .#.that is expor
16b0: 74 65 64 20 66 72 6f 6d 20 74 68 65 20 6c 69 62 ted from the lib
16c0: 72 61 72 79 20 62 75 74 20 69 73 20 6e 6f 74 20 rary but is not
16d0: 69 6e 20 74 68 65 20 73 74 75 62 73 20 74 61 62 in the stubs tab
16e0: 6c 65 2e 0a 23 0a 23 20 41 72 67 75 6d 65 6e 74 le..#.# Argument
16f0: 73 3a 0a 23 09 64 65 63 6c 09 09 54 68 65 20 43 s:.#.decl..The C
1700: 20 66 75 6e 63 74 69 6f 6e 20 64 65 63 6c 61 72 function declar
1710: 61 74 69 6f 6e 2c 20 6f 72 20 7b 7d 20 66 6f 72 ation, or {} for
1720: 20 61 6e 20 75 6e 64 65 66 69 6e 65 64 0a 23 09 an undefined.#.
1730: 09 09 65 6e 74 72 79 2e 0a 23 0a 23 20 52 65 73 ..entry..#.# Res
1740: 75 6c 74 73 3a 0a 23 09 4e 6f 6e 65 2e 0a 0a 70 ults:.#.None...p
1750: 72 6f 63 20 67 65 6e 53 74 75 62 73 3a 3a 65 78 roc genStubs::ex
1760: 70 6f 72 74 20 7b 61 72 67 73 7d 20 7b 0a 20 20 port {args} {.
1770: 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 if {[llength $
1780: 61 72 67 73 5d 20 21 3d 20 31 7d 20 7b 0a 09 70 args] != 1} {..p
1790: 75 74 73 20 73 74 64 65 72 72 20 22 77 72 6f 6e uts stderr "wron
17a0: 67 20 23 20 61 72 67 73 3a 20 65 78 70 6f 72 74 g # args: export
17b0: 20 24 61 72 67 73 22 0a 20 20 20 20 7d 0a 20 20 $args". }.
17c0: 20 20 72 65 74 75 72 6e 0a 7d 0a 0a 23 20 67 65 return.}..# ge
17d0: 6e 53 74 75 62 73 3a 3a 72 65 77 72 69 74 65 46 nStubs::rewriteF
17e0: 69 6c 65 20 2d 2d 0a 23 0a 23 09 54 68 69 73 20 ile --.#.#.This
17f0: 66 75 6e 63 74 69 6f 6e 20 72 65 70 6c 61 63 65 function replace
1800: 73 20 74 68 65 20 6d 61 63 68 69 6e 65 20 67 65 s the machine ge
1810: 6e 65 72 61 74 65 64 20 70 6f 72 74 69 6f 6e 20 nerated portion
1820: 6f 66 20 74 68 65 0a 23 09 73 70 65 63 69 66 69 of the.#.specifi
1830: 65 64 20 66 69 6c 65 20 77 69 74 68 20 6e 65 77 ed file with new
1840: 20 63 6f 6e 74 65 6e 74 73 2e 20 20 49 74 20 6c contents. It l
1850: 6f 6f 6b 73 20 66 6f 72 20 74 68 65 20 21 42 45 ooks for the !BE
1860: 47 49 4e 21 20 61 6e 64 0a 23 09 21 45 4e 44 21 GIN! and.#.!END!
1870: 20 63 6f 6d 6d 65 6e 74 73 20 74 6f 20 64 65 74 comments to det
1880: 65 72 6d 69 6e 65 20 77 68 65 72 65 20 74 6f 20 ermine where to
1890: 70 6c 61 63 65 20 74 68 65 20 6e 65 77 20 74 65 place the new te
18a0: 78 74 2e 0a 23 0a 23 20 41 72 67 75 6d 65 6e 74 xt..#.# Argument
18b0: 73 3a 0a 23 09 66 69 6c 65 09 54 68 65 20 6e 61 s:.#.file.The na
18c0: 6d 65 20 6f 66 20 74 68 65 20 66 69 6c 65 20 74 me of the file t
18d0: 6f 20 6d 6f 64 69 66 79 2e 0a 23 09 74 65 78 74 o modify..#.text
18e0: 09 54 68 65 20 6e 65 77 20 74 65 78 74 20 74 6f .The new text to
18f0: 20 70 6c 61 63 65 20 69 6e 20 74 68 65 20 66 69 place in the fi
1900: 6c 65 2e 0a 23 0a 23 20 52 65 73 75 6c 74 73 3a le..#.# Results:
1910: 0a 23 09 4e 6f 6e 65 2e 0a 0a 70 72 6f 63 20 67 .#.None...proc g
1920: 65 6e 53 74 75 62 73 3a 3a 72 65 77 72 69 74 65 enStubs::rewrite
1930: 46 69 6c 65 20 7b 66 69 6c 65 20 74 65 78 74 7d File {file text}
1940: 20 7b 0a 20 20 20 20 69 66 20 7b 21 5b 66 69 6c {. if {![fil
1950: 65 20 65 78 69 73 74 73 20 24 66 69 6c 65 5d 7d e exists $file]}
1960: 20 7b 0a 09 70 75 74 73 20 73 74 64 65 72 72 20 {..puts stderr
1970: 22 43 61 6e 6e 6f 74 20 66 69 6e 64 20 66 69 6c "Cannot find fil
1980: 65 3a 20 24 66 69 6c 65 22 0a 09 72 65 74 75 72 e: $file"..retur
1990: 6e 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 74 20 n. }. set
19a0: 69 6e 20 5b 6f 70 65 6e 20 24 7b 66 69 6c 65 7d in [open ${file}
19b0: 20 72 5d 0a 20 20 20 20 66 63 6f 6e 66 69 67 75 r]. fconfigu
19c0: 72 65 20 24 69 6e 20 2d 65 6f 66 63 68 61 72 20 re $in -eofchar
19d0: 22 5c 78 31 41 20 7b 7d 22 20 2d 65 6e 63 6f 64 "\x1A {}" -encod
19e0: 69 6e 67 20 75 74 66 2d 38 0a 20 20 20 20 73 65 ing utf-8. se
19f0: 74 20 6f 75 74 20 5b 6f 70 65 6e 20 24 7b 66 69 t out [open ${fi
1a00: 6c 65 7d 2e 6e 65 77 20 77 5d 0a 20 20 20 20 66 le}.new w]. f
1a10: 63 6f 6e 66 69 67 75 72 65 20 24 6f 75 74 20 2d configure $out -
1a20: 74 72 61 6e 73 6c 61 74 69 6f 6e 20 6c 66 20 2d translation lf -
1a30: 65 6e 63 6f 64 69 6e 67 20 75 74 66 2d 38 0a 0a encoding utf-8..
1a40: 20 20 20 20 77 68 69 6c 65 20 7b 21 5b 65 6f 66 while {![eof
1a50: 20 24 69 6e 5d 7d 20 7b 0a 09 73 65 74 20 6c 69 $in]} {..set li
1a60: 6e 65 20 5b 67 65 74 73 20 24 69 6e 5d 0a 09 69 ne [gets $in]..i
1a70: 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 f {[string match
1a80: 20 22 2a 21 42 45 47 49 4e 21 2a 22 20 24 6c 69 "*!BEGIN!*" $li
1a90: 6e 65 5d 7d 20 7b 0a 09 20 20 20 20 62 72 65 61 ne]} {.. brea
1aa0: 6b 0a 09 7d 0a 09 70 75 74 73 20 24 6f 75 74 20 k..}..puts $out
1ab0: 24 6c 69 6e 65 0a 20 20 20 20 7d 0a 20 20 20 20 $line. }.
1ac0: 70 75 74 73 20 24 6f 75 74 20 22 2f 2a 20 21 42 puts $out "/* !B
1ad0: 45 47 49 4e 21 3a 20 44 6f 20 6e 6f 74 20 65 64 EGIN!: Do not ed
1ae0: 69 74 20 62 65 6c 6f 77 20 74 68 69 73 20 6c 69 it below this li
1af0: 6e 65 2e 20 2a 2f 22 0a 20 20 20 20 70 75 74 73 ne. */". puts
1b00: 20 24 6f 75 74 20 24 74 65 78 74 0a 20 20 20 20 $out $text.
1b10: 77 68 69 6c 65 20 7b 21 5b 65 6f 66 20 24 69 6e while {![eof $in
1b20: 5d 7d 20 7b 0a 09 73 65 74 20 6c 69 6e 65 20 5b ]} {..set line [
1b30: 67 65 74 73 20 24 69 6e 5d 0a 09 69 66 20 7b 5b gets $in]..if {[
1b40: 73 74 72 69 6e 67 20 6d 61 74 63 68 20 22 2a 21 string match "*!
1b50: 45 4e 44 21 2a 22 20 24 6c 69 6e 65 5d 7d 20 7b END!*" $line]} {
1b60: 0a 09 20 20 20 20 62 72 65 61 6b 0a 09 7d 0a 20 .. break..}.
1b70: 20 20 20 7d 0a 20 20 20 20 70 75 74 73 20 24 6f }. puts $o
1b80: 75 74 20 22 2f 2a 20 21 45 4e 44 21 3a 20 44 6f ut "/* !END!: Do
1b90: 20 6e 6f 74 20 65 64 69 74 20 61 62 6f 76 65 20 not edit above
1ba0: 74 68 69 73 20 6c 69 6e 65 2e 20 2a 2f 22 0a 20 this line. */".
1bb0: 20 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 puts -nonewli
1bc0: 6e 65 20 24 6f 75 74 20 5b 72 65 61 64 20 24 69 ne $out [read $i
1bd0: 6e 5d 0a 20 20 20 20 63 6c 6f 73 65 20 24 69 6e n]. close $in
1be0: 0a 20 20 20 20 63 6c 6f 73 65 20 24 6f 75 74 0a . close $out.
1bf0: 20 20 20 20 66 69 6c 65 20 72 65 6e 61 6d 65 20 file rename
1c00: 2d 66 6f 72 63 65 20 24 7b 66 69 6c 65 7d 2e 6e -force ${file}.n
1c10: 65 77 20 24 7b 66 69 6c 65 7d 0a 20 20 20 20 72 ew ${file}. r
1c20: 65 74 75 72 6e 0a 7d 0a 0a 23 20 67 65 6e 53 74 eturn.}..# genSt
1c30: 75 62 73 3a 3a 61 64 64 50 6c 61 74 66 6f 72 6d ubs::addPlatform
1c40: 47 75 61 72 64 20 2d 2d 0a 23 0a 23 09 57 72 61 Guard --.#.#.Wra
1c50: 70 20 61 20 73 74 72 69 6e 67 20 69 6e 73 69 64 p a string insid
1c60: 65 20 61 20 70 6c 61 74 66 6f 72 6d 20 23 69 66 e a platform #if
1c70: 64 65 66 2e 0a 23 0a 23 20 41 72 67 75 6d 65 6e def..#.# Argumen
1c80: 74 73 3a 0a 23 09 70 6c 61 74 09 50 6c 61 74 66 ts:.#.plat.Platf
1c90: 6f 72 6d 20 74 6f 20 74 65 73 74 2e 0a 23 0a 23 orm to test..#.#
1ca0: 20 52 65 73 75 6c 74 73 3a 0a 23 09 52 65 74 75 Results:.#.Retu
1cb0: 72 6e 73 20 74 68 65 20 6f 72 69 67 69 6e 61 6c rns the original
1cc0: 20 74 65 78 74 20 69 6e 73 69 64 65 20 61 6e 20 text inside an
1cd0: 61 70 70 72 6f 70 72 69 61 74 65 20 23 69 66 64 appropriate #ifd
1ce0: 65 66 2e 0a 0a 70 72 6f 63 20 67 65 6e 53 74 75 ef...proc genStu
1cf0: 62 73 3a 3a 61 64 64 50 6c 61 74 66 6f 72 6d 47 bs::addPlatformG
1d00: 75 61 72 64 20 7b 70 6c 61 74 20 69 66 74 78 74 uard {plat iftxt
1d10: 20 7b 65 6c 74 78 74 20 7b 7d 7d 20 7b 77 69 74 {eltxt {}} {wit
1d20: 68 43 79 67 77 69 6e 20 30 7d 7d 20 7b 0a 20 20 hCygwin 0}} {.
1d30: 20 20 73 65 74 20 74 65 78 74 20 22 22 0a 20 20 set text "".
1d40: 20 20 73 77 69 74 63 68 20 24 70 6c 61 74 20 7b switch $plat {
1d50: 0a 09 77 69 6e 20 7b 0a 09 20 20 20 20 61 70 70 ..win {.. app
1d60: 65 6e 64 20 74 65 78 74 20 22 23 69 66 20 64 65 end text "#if de
1d70: 66 69 6e 65 64 28 5f 57 49 4e 33 32 29 22 0a 09 fined(_WIN32)"..
1d80: 20 20 20 20 69 66 20 7b 24 77 69 74 68 43 79 67 if {$withCyg
1d90: 77 69 6e 7d 20 7b 0a 09 09 61 70 70 65 6e 64 20 win} {...append
1da0: 74 65 78 74 20 22 20 7c 7c 20 64 65 66 69 6e 65 text " || define
1db0: 64 28 5f 5f 43 59 47 57 49 4e 5f 5f 29 22 0a 09 d(__CYGWIN__)"..
1dc0: 20 20 20 20 7d 0a 09 20 20 20 20 61 70 70 65 6e }.. appen
1dd0: 64 20 74 65 78 74 20 22 20 2f 2a 20 57 49 4e 20 d text " /* WIN
1de0: 2a 2f 5c 6e 24 7b 69 66 74 78 74 7d 22 0a 09 20 */\n${iftxt}"..
1df0: 20 20 20 69 66 20 7b 24 65 6c 74 78 74 20 6e 65 if {$eltxt ne
1e00: 20 22 22 7d 20 7b 0a 09 09 61 70 70 65 6e 64 20 ""} {...append
1e10: 74 65 78 74 20 22 23 65 6c 73 65 20 2f 2a 20 57 text "#else /* W
1e20: 49 4e 20 2a 2f 5c 6e 24 7b 65 6c 74 78 74 7d 22 IN */\n${eltxt}"
1e30: 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 61 70 70 .. }.. app
1e40: 65 6e 64 20 74 65 78 74 20 22 23 65 6e 64 69 66 end text "#endif
1e50: 20 2f 2a 20 57 49 4e 20 2a 2f 5c 6e 22 0a 09 7d /* WIN */\n"..}
1e60: 0a 09 75 6e 69 78 20 7b 0a 09 20 20 20 20 61 70 ..unix {.. ap
1e70: 70 65 6e 64 20 74 65 78 74 20 22 23 69 66 20 21 pend text "#if !
1e80: 64 65 66 69 6e 65 64 28 5f 57 49 4e 33 32 29 22 defined(_WIN32)"
1e90: 0a 09 20 20 20 20 69 66 20 7b 24 77 69 74 68 43 .. if {$withC
1ea0: 79 67 77 69 6e 7d 20 7b 0a 09 09 61 70 70 65 6e ygwin} {...appen
1eb0: 64 20 74 65 78 74 20 22 20 26 26 20 21 64 65 66 d text " && !def
1ec0: 69 6e 65 64 28 5f 5f 43 59 47 57 49 4e 5f 5f 29 ined(__CYGWIN__)
1ed0: 22 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 61 70 ".. }.. ap
1ee0: 70 65 6e 64 20 74 65 78 74 20 22 20 26 26 20 21 pend text " && !
1ef0: 64 65 66 69 6e 65 64 28 4d 41 43 5f 4f 53 58 5f defined(MAC_OSX_
1f00: 54 43 4c 29 5c 0a 09 09 20 20 20 20 2f 2a 20 55 TCL)\... /* U
1f10: 4e 49 58 20 2a 2f 5c 6e 24 7b 69 66 74 78 74 7d NIX */\n${iftxt}
1f20: 22 0a 09 20 20 20 20 69 66 20 7b 24 65 6c 74 78 ".. if {$eltx
1f30: 74 20 6e 65 20 22 22 7d 20 7b 0a 09 09 61 70 70 t ne ""} {...app
1f40: 65 6e 64 20 74 65 78 74 20 22 23 65 6c 73 65 20 end text "#else
1f50: 2f 2a 20 55 4e 49 58 20 2a 2f 5c 6e 24 7b 65 6c /* UNIX */\n${el
1f60: 74 78 74 7d 22 0a 09 20 20 20 20 7d 0a 09 20 20 txt}".. }..
1f70: 20 20 61 70 70 65 6e 64 20 74 65 78 74 20 22 23 append text "#
1f80: 65 6e 64 69 66 20 2f 2a 20 55 4e 49 58 20 2a 2f endif /* UNIX */
1f90: 5c 6e 22 0a 09 7d 0a 09 6d 61 63 6f 73 78 20 7b \n"..}..macosx {
1fa0: 0a 09 20 20 20 20 61 70 70 65 6e 64 20 74 65 78 .. append tex
1fb0: 74 20 22 23 69 66 64 65 66 20 4d 41 43 5f 4f 53 t "#ifdef MAC_OS
1fc0: 58 5f 54 43 4c 20 2f 2a 20 4d 41 43 4f 53 58 20 X_TCL /* MACOSX
1fd0: 2a 2f 5c 6e 24 7b 69 66 74 78 74 7d 22 0a 09 20 */\n${iftxt}"..
1fe0: 20 20 20 69 66 20 7b 24 65 6c 74 78 74 20 6e 65 if {$eltxt ne
1ff0: 20 22 22 7d 20 7b 0a 09 09 61 70 70 65 6e 64 20 ""} {...append
2000: 74 65 78 74 20 22 23 65 6c 73 65 20 2f 2a 20 4d text "#else /* M
2010: 41 43 4f 53 58 20 2a 2f 5c 6e 24 7b 65 6c 74 78 ACOSX */\n${eltx
2020: 74 7d 22 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 t}".. }..
2030: 61 70 70 65 6e 64 20 74 65 78 74 20 22 23 65 6e append text "#en
2040: 64 69 66 20 2f 2a 20 4d 41 43 4f 53 58 20 2a 2f dif /* MACOSX */
2050: 5c 6e 22 0a 09 7d 0a 09 61 71 75 61 20 7b 0a 09 \n"..}..aqua {..
2060: 20 20 20 20 61 70 70 65 6e 64 20 74 65 78 74 20 append text
2070: 22 23 69 66 64 65 66 20 4d 41 43 5f 4f 53 58 5f "#ifdef MAC_OSX_
2080: 54 4b 20 2f 2a 20 41 51 55 41 20 2a 2f 5c 6e 24 TK /* AQUA */\n$
2090: 7b 69 66 74 78 74 7d 22 0a 09 20 20 20 20 69 66 {iftxt}".. if
20a0: 20 7b 24 65 6c 74 78 74 20 6e 65 20 22 22 7d 20 {$eltxt ne ""}
20b0: 7b 0a 09 09 61 70 70 65 6e 64 20 74 65 78 74 20 {...append text
20c0: 22 23 65 6c 73 65 20 2f 2a 20 41 51 55 41 20 2a "#else /* AQUA *
20d0: 2f 5c 6e 24 7b 65 6c 74 78 74 7d 22 0a 09 20 20 /\n${eltxt}"..
20e0: 20 20 7d 0a 09 20 20 20 20 61 70 70 65 6e 64 20 }.. append
20f0: 74 65 78 74 20 22 23 65 6e 64 69 66 20 2f 2a 20 text "#endif /*
2100: 41 51 55 41 20 2a 2f 5c 6e 22 0a 09 7d 0a 09 78 AQUA */\n"..}..x
2110: 31 31 20 7b 0a 09 20 20 20 20 61 70 70 65 6e 64 11 {.. append
2120: 20 74 65 78 74 20 22 23 69 66 20 21 28 64 65 66 text "#if !(def
2130: 69 6e 65 64 28 5f 57 49 4e 33 32 29 22 0a 09 20 ined(_WIN32)"..
2140: 20 20 20 69 66 20 7b 24 77 69 74 68 43 79 67 77 if {$withCygw
2150: 69 6e 7d 20 7b 0a 09 09 61 70 70 65 6e 64 20 74 in} {...append t
2160: 65 78 74 20 22 20 7c 7c 20 64 65 66 69 6e 65 64 ext " || defined
2170: 28 5f 5f 43 59 47 57 49 4e 5f 5f 29 22 0a 09 20 (__CYGWIN__)"..
2180: 20 20 20 7d 0a 09 20 20 20 20 61 70 70 65 6e 64 }.. append
2190: 20 74 65 78 74 20 22 20 7c 7c 20 64 65 66 69 6e text " || defin
21a0: 65 64 28 4d 41 43 5f 4f 53 58 5f 54 4b 29 29 5c ed(MAC_OSX_TK))\
21b0: 0a 09 09 20 20 20 20 2f 2a 20 58 31 31 20 2a 2f ... /* X11 */
21c0: 5c 6e 24 7b 69 66 74 78 74 7d 22 0a 09 20 20 20 \n${iftxt}"..
21d0: 20 69 66 20 7b 24 65 6c 74 78 74 20 6e 65 20 22 if {$eltxt ne "
21e0: 22 7d 20 7b 0a 09 09 61 70 70 65 6e 64 20 74 65 "} {...append te
21f0: 78 74 20 22 23 65 6c 73 65 20 2f 2a 20 58 31 31 xt "#else /* X11
2200: 20 2a 2f 5c 6e 24 7b 65 6c 74 78 74 7d 22 0a 09 */\n${eltxt}"..
2210: 20 20 20 20 7d 0a 09 20 20 20 20 61 70 70 65 6e }.. appen
2220: 64 20 74 65 78 74 20 22 23 65 6e 64 69 66 20 2f d text "#endif /
2230: 2a 20 58 31 31 20 2a 2f 5c 6e 22 0a 09 7d 0a 09 * X11 */\n"..}..
2240: 64 65 66 61 75 6c 74 20 7b 0a 09 20 20 20 20 61 default {.. a
2250: 70 70 65 6e 64 20 74 65 78 74 20 22 24 7b 69 66 ppend text "${if
2260: 74 78 74 7d 24 7b 65 6c 74 78 74 7d 22 0a 09 7d txt}${eltxt}"..}
2270: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
2280: 6e 20 24 74 65 78 74 0a 7d 0a 0a 23 20 67 65 6e n $text.}..# gen
2290: 53 74 75 62 73 3a 3a 65 6d 69 74 53 6c 6f 74 73 Stubs::emitSlots
22a0: 20 2d 2d 0a 23 0a 23 09 47 65 6e 65 72 61 74 65 --.#.#.Generate
22b0: 20 74 68 65 20 73 74 75 62 20 74 61 62 6c 65 20 the stub table
22c0: 73 6c 6f 74 73 20 66 6f 72 20 74 68 65 20 67 69 slots for the gi
22d0: 76 65 6e 20 69 6e 74 65 72 66 61 63 65 2e 20 20 ven interface.
22e0: 49 66 20 74 68 65 72 65 0a 23 09 61 72 65 20 6e If there.#.are n
22f0: 6f 20 67 65 6e 65 72 69 63 20 73 6c 6f 74 73 2c o generic slots,
2300: 20 74 68 65 6e 20 6f 6e 65 20 74 61 62 6c 65 20 then one table
2310: 69 73 20 67 65 6e 65 72 61 74 65 64 20 66 6f 72 is generated for
2320: 20 65 61 63 68 0a 23 09 70 6c 61 74 66 6f 72 6d each.#.platform
2330: 2c 20 6f 74 68 65 72 77 69 73 65 20 6f 6e 65 20 , otherwise one
2340: 74 61 62 6c 65 20 69 73 20 67 65 6e 65 72 61 74 table is generat
2350: 65 64 20 66 6f 72 20 61 6c 6c 20 70 6c 61 74 66 ed for all platf
2360: 6f 72 6d 73 2e 0a 23 0a 23 20 41 72 67 75 6d 65 orms..#.# Argume
2370: 6e 74 73 3a 0a 23 09 6e 61 6d 65 09 54 68 65 20 nts:.#.name.The
2380: 6e 61 6d 65 20 6f 66 20 74 68 65 20 69 6e 74 65 name of the inte
2390: 72 66 61 63 65 20 62 65 69 6e 67 20 65 6d 69 74 rface being emit
23a0: 74 65 64 2e 0a 23 09 74 65 78 74 56 61 72 09 54 ted..#.textVar.T
23b0: 68 65 20 76 61 72 69 61 62 6c 65 20 74 6f 20 75 he variable to u
23c0: 73 65 20 66 6f 72 20 6f 75 74 70 75 74 2e 0a 23 se for output..#
23d0: 0a 23 20 52 65 73 75 6c 74 73 3a 0a 23 09 4e 6f .# Results:.#.No
23e0: 6e 65 2e 0a 0a 70 72 6f 63 20 67 65 6e 53 74 75 ne...proc genStu
23f0: 62 73 3a 3a 65 6d 69 74 53 6c 6f 74 73 20 7b 6e bs::emitSlots {n
2400: 61 6d 65 20 74 65 78 74 56 61 72 7d 20 7b 0a 20 ame textVar} {.
2410: 20 20 20 75 70 76 61 72 20 24 74 65 78 74 56 61 upvar $textVa
2420: 72 20 74 65 78 74 0a 0a 20 20 20 20 66 6f 72 41 r text.. forA
2430: 6c 6c 53 74 75 62 73 20 24 6e 61 6d 65 20 6d 61 llStubs $name ma
2440: 6b 65 53 6c 6f 74 20 31 20 74 65 78 74 20 7b 22 keSlot 1 text {"
2450: 20 20 20 20 76 6f 69 64 20 28 2a 72 65 73 65 72 void (*reser
2460: 76 65 64 24 69 29 28 76 6f 69 64 29 3b 5c 6e 22 ved$i)(void);\n"
2470: 7d 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d 0a 0a }. return.}..
2480: 23 20 67 65 6e 53 74 75 62 73 3a 3a 70 61 72 73 # genStubs::pars
2490: 65 44 65 63 6c 20 2d 2d 0a 23 0a 23 09 50 61 72 eDecl --.#.#.Par
24a0: 73 65 20 61 20 43 20 66 75 6e 63 74 69 6f 6e 20 se a C function
24b0: 64 65 63 6c 61 72 61 74 69 6f 6e 20 69 6e 74 6f declaration into
24c0: 20 69 74 73 20 63 6f 6d 70 6f 6e 65 6e 74 20 70 its component p
24d0: 61 72 74 73 2e 0a 23 0a 23 20 41 72 67 75 6d 65 arts..#.# Argume
24e0: 6e 74 73 3a 0a 23 09 64 65 63 6c 09 54 68 65 20 nts:.#.decl.The
24f0: 66 75 6e 63 74 69 6f 6e 20 64 65 63 6c 61 72 61 function declara
2500: 74 69 6f 6e 2e 0a 23 0a 23 20 52 65 73 75 6c 74 tion..#.# Result
2510: 73 3a 0a 23 09 52 65 74 75 72 6e 73 20 61 20 6c s:.#.Returns a l
2520: 69 73 74 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 ist of the form
2530: 7b 72 65 74 75 72 6e 54 79 70 65 20 6e 61 6d 65 {returnType name
2540: 20 61 72 67 73 7d 2e 20 20 54 68 65 20 61 72 67 args}. The arg
2550: 73 0a 23 09 65 6c 65 6d 65 6e 74 20 63 6f 6e 73 s.#.element cons
2560: 69 73 74 73 20 6f 66 20 61 20 6c 69 73 74 20 6f ists of a list o
2570: 66 20 74 79 70 65 2f 6e 61 6d 65 20 70 61 69 72 f type/name pair
2580: 73 2c 20 6f 72 20 61 20 73 69 6e 67 6c 65 0a 23 s, or a single.#
2590: 09 65 6c 65 6d 65 6e 74 20 22 76 6f 69 64 22 2e .element "void".
25a0: 20 20 49 66 20 74 68 65 20 66 75 6e 63 74 69 6f If the functio
25b0: 6e 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 69 73 n declaration is
25c0: 20 6d 61 6c 66 6f 72 6d 65 64 0a 23 09 74 68 65 malformed.#.the
25d0: 6e 20 61 6e 20 65 72 72 6f 72 20 69 73 20 64 69 n an error is di
25e0: 73 70 6c 61 79 65 64 20 61 6e 64 20 74 68 65 20 splayed and the
25f0: 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 return value is
2600: 7b 7d 2e 0a 0a 70 72 6f 63 20 67 65 6e 53 74 75 {}...proc genStu
2610: 62 73 3a 3a 70 61 72 73 65 44 65 63 6c 20 7b 64 bs::parseDecl {d
2620: 65 63 6c 7d 20 7b 0a 20 20 20 20 69 66 20 7b 21 ecl} {. if {!
2630: 5b 72 65 67 65 78 70 20 7b 5e 28 2e 2a 29 5c 28 [regexp {^(.*)\(
2640: 28 2e 2a 29 5c 29 24 7d 20 24 64 65 63 6c 20 61 (.*)\)$} $decl a
2650: 6c 6c 20 70 72 65 66 69 78 20 61 72 67 73 5d 7d ll prefix args]}
2660: 20 7b 0a 09 73 65 74 20 70 72 65 66 69 78 20 24 {..set prefix $
2670: 64 65 63 6c 0a 09 73 65 74 20 61 72 67 73 20 7b decl..set args {
2680: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 74 20 }. }. set
2690: 70 72 65 66 69 78 20 5b 73 74 72 69 6e 67 20 74 prefix [string t
26a0: 72 69 6d 20 24 70 72 65 66 69 78 5d 0a 20 20 20 rim $prefix].
26b0: 20 69 66 20 7b 21 5b 72 65 67 65 78 70 20 7b 5e if {![regexp {^
26c0: 28 2e 2b 5b 20 5d 5b 2a 5d 2a 29 28 5b 5e 20 2a (.+[ ][*]*)([^ *
26d0: 5d 2b 29 24 7d 20 24 70 72 65 66 69 78 20 61 6c ]+)$} $prefix al
26e0: 6c 20 72 74 79 70 65 20 66 6e 61 6d 65 5d 7d 20 l rtype fname]}
26f0: 7b 0a 09 70 75 74 73 20 73 74 64 65 72 72 20 22 {..puts stderr "
2700: 42 61 64 20 72 65 74 75 72 6e 20 74 79 70 65 3a Bad return type:
2710: 20 24 64 65 63 6c 22 0a 09 72 65 74 75 72 6e 0a $decl"..return.
2720: 20 20 20 20 7d 0a 20 20 20 20 73 65 74 20 72 74 }. set rt
2730: 79 70 65 20 5b 73 74 72 69 6e 67 20 74 72 69 6d ype [string trim
2740: 20 24 72 74 79 70 65 5d 0a 20 20 20 20 69 66 20 $rtype]. if
2750: 7b 24 61 72 67 73 20 65 71 20 22 22 7d 20 7b 0a {$args eq ""} {.
2760: 09 72 65 74 75 72 6e 20 5b 6c 69 73 74 20 24 72 .return [list $r
2770: 74 79 70 65 20 24 66 6e 61 6d 65 20 7b 7d 5d 0a type $fname {}].
2780: 20 20 20 20 7d 0a 20 20 20 20 66 6f 72 65 61 63 }. foreac
2790: 68 20 61 72 67 20 5b 73 70 6c 69 74 20 24 61 72 h arg [split $ar
27a0: 67 73 20 2c 5d 20 7b 0a 09 6c 61 70 70 65 6e 64 gs ,] {..lappend
27b0: 20 61 72 67 4c 69 73 74 20 5b 73 74 72 69 6e 67 argList [string
27c0: 20 74 72 69 6d 20 24 61 72 67 5d 0a 20 20 20 20 trim $arg].
27d0: 7d 0a 20 20 20 20 69 66 20 7b 21 5b 73 74 72 69 }. if {![stri
27e0: 6e 67 20 63 6f 6d 70 61 72 65 20 5b 6c 69 6e 64 ng compare [lind
27f0: 65 78 20 24 61 72 67 4c 69 73 74 20 65 6e 64 5d ex $argList end]
2800: 20 22 2e 2e 2e 22 5d 7d 20 7b 0a 09 73 65 74 20 "..."]} {..set
2810: 61 72 67 73 20 54 43 4c 5f 56 41 52 41 52 47 53 args TCL_VARARGS
2820: 0a 09 66 6f 72 65 61 63 68 20 61 72 67 20 5b 6c ..foreach arg [l
2830: 72 61 6e 67 65 20 24 61 72 67 4c 69 73 74 20 30 range $argList 0
2840: 20 65 6e 64 2d 31 5d 20 7b 0a 09 20 20 20 20 73 end-1] {.. s
2850: 65 74 20 61 72 67 49 6e 66 6f 20 5b 70 61 72 73 et argInfo [pars
2860: 65 41 72 67 20 24 61 72 67 5d 0a 09 20 20 20 20 eArg $arg]..
2870: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72 if {[llength $ar
2880: 67 49 6e 66 6f 5d 20 3d 3d 20 32 20 7c 7c 20 5b gInfo] == 2 || [
2890: 6c 6c 65 6e 67 74 68 20 24 61 72 67 49 6e 66 6f llength $argInfo
28a0: 5d 20 3d 3d 20 33 7d 20 7b 0a 09 09 6c 61 70 70 ] == 3} {...lapp
28b0: 65 6e 64 20 61 72 67 73 20 24 61 72 67 49 6e 66 end args $argInf
28c0: 6f 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a o.. } else {.
28d0: 09 09 70 75 74 73 20 73 74 64 65 72 72 20 22 42 ..puts stderr "B
28e0: 61 64 20 61 72 67 75 6d 65 6e 74 3a 20 27 24 61 ad argument: '$a
28f0: 72 67 27 20 69 6e 20 27 24 64 65 63 6c 27 22 0a rg' in '$decl'".
2900: 09 09 72 65 74 75 72 6e 0a 09 20 20 20 20 7d 0a ..return.. }.
2910: 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a .}. } else {.
2920: 09 73 65 74 20 61 72 67 73 20 7b 7d 0a 09 66 6f .set args {}..fo
2930: 72 65 61 63 68 20 61 72 67 20 24 61 72 67 4c 69 reach arg $argLi
2940: 73 74 20 7b 0a 09 20 20 20 20 73 65 74 20 61 72 st {.. set ar
2950: 67 49 6e 66 6f 20 5b 70 61 72 73 65 41 72 67 20 gInfo [parseArg
2960: 24 61 72 67 5d 0a 09 20 20 20 20 69 66 20 7b 21 $arg].. if {!
2970: 5b 73 74 72 69 6e 67 20 63 6f 6d 70 61 72 65 20 [string compare
2980: 24 61 72 67 49 6e 66 6f 20 22 76 6f 69 64 22 5d $argInfo "void"]
2990: 7d 20 7b 0a 09 09 6c 61 70 70 65 6e 64 20 61 72 } {...lappend ar
29a0: 67 73 20 22 76 6f 69 64 22 0a 09 09 62 72 65 61 gs "void"...brea
29b0: 6b 0a 09 20 20 20 20 7d 20 65 6c 73 65 69 66 20 k.. } elseif
29c0: 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 49 6e {[llength $argIn
29d0: 66 6f 5d 20 3d 3d 20 32 20 7c 7c 20 5b 6c 6c 65 fo] == 2 || [lle
29e0: 6e 67 74 68 20 24 61 72 67 49 6e 66 6f 5d 20 3d ngth $argInfo] =
29f0: 3d 20 33 7d 20 7b 0a 09 09 6c 61 70 70 65 6e 64 = 3} {...lappend
2a00: 20 61 72 67 73 20 24 61 72 67 49 6e 66 6f 0a 09 args $argInfo..
2a10: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 70 } else {...p
2a20: 75 74 73 20 73 74 64 65 72 72 20 22 42 61 64 20 uts stderr "Bad
2a30: 61 72 67 75 6d 65 6e 74 3a 20 27 24 61 72 67 27 argument: '$arg'
2a40: 20 69 6e 20 27 24 64 65 63 6c 27 22 0a 09 09 72 in '$decl'"...r
2a50: 65 74 75 72 6e 0a 09 20 20 20 20 7d 0a 09 7d 0a eturn.. }..}.
2a60: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e }. return
2a70: 20 5b 6c 69 73 74 20 24 72 74 79 70 65 20 24 66 [list $rtype $f
2a80: 6e 61 6d 65 20 24 61 72 67 73 5d 0a 7d 0a 0a 23 name $args].}..#
2a90: 20 67 65 6e 53 74 75 62 73 3a 3a 70 61 72 73 65 genStubs::parse
2aa0: 41 72 67 20 2d 2d 0a 23 0a 23 09 54 68 69 73 20 Arg --.#.#.This
2ab0: 66 75 6e 63 74 69 6f 6e 20 70 61 72 73 65 73 20 function parses
2ac0: 61 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 75 6d a function argum
2ad0: 65 6e 74 20 69 6e 74 6f 20 61 20 74 79 70 65 20 ent into a type
2ae0: 61 6e 64 20 6e 61 6d 65 2e 0a 23 0a 23 20 41 72 and name..#.# Ar
2af0: 67 75 6d 65 6e 74 73 3a 0a 23 09 61 72 67 09 54 guments:.#.arg.T
2b00: 68 65 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 70 he argument to p
2b10: 61 72 73 65 2e 0a 23 0a 23 20 52 65 73 75 6c 74 arse..#.# Result
2b20: 73 3a 0a 23 09 52 65 74 75 72 6e 73 20 61 20 6c s:.#.Returns a l
2b30: 69 73 74 20 6f 66 20 74 79 70 65 20 61 6e 64 20 ist of type and
2b40: 6e 61 6d 65 20 77 69 74 68 20 61 6e 20 6f 70 74 name with an opt
2b50: 69 6f 6e 61 6c 20 74 68 69 72 64 20 61 72 72 61 ional third arra
2b60: 79 0a 23 09 69 6e 64 69 63 61 74 6f 72 2e 20 20 y.#.indicator.
2b70: 49 66 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 If the argument
2b80: 69 73 20 6d 61 6c 66 6f 72 6d 65 64 2c 20 72 65 is malformed, re
2b90: 74 75 72 6e 73 20 22 22 2e 0a 0a 70 72 6f 63 20 turns ""...proc
2ba0: 67 65 6e 53 74 75 62 73 3a 3a 70 61 72 73 65 41 genStubs::parseA
2bb0: 72 67 20 7b 61 72 67 7d 20 7b 0a 20 20 20 20 69 rg {arg} {. i
2bc0: 66 20 7b 21 5b 72 65 67 65 78 70 20 7b 5e 28 2e f {![regexp {^(.
2bd0: 2b 5b 20 5d 5b 2a 5d 2a 29 28 5b 5e 5d 5b 20 2a +[ ][*]*)([^][ *
2be0: 5d 2b 29 28 5c 5b 5c 5d 29 3f 24 7d 20 24 61 72 ]+)(\[\])?$} $ar
2bf0: 67 20 61 6c 6c 20 74 79 70 65 20 6e 61 6d 65 20 g all type name
2c00: 61 72 72 61 79 5d 7d 20 7b 0a 09 69 66 20 7b 24 array]} {..if {$
2c10: 61 72 67 20 65 71 20 22 76 6f 69 64 22 7d 20 7b arg eq "void"} {
2c20: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 24 61 72 .. return $ar
2c30: 67 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 g..} else {..
2c40: 20 72 65 74 75 72 6e 0a 09 7d 0a 20 20 20 20 7d return..}. }
2c50: 0a 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 20 . set result
2c60: 5b 6c 69 73 74 20 5b 73 74 72 69 6e 67 20 74 72 [list [string tr
2c70: 69 6d 20 24 74 79 70 65 5d 20 24 6e 61 6d 65 5d im $type] $name]
2c80: 0a 20 20 20 20 69 66 20 7b 24 61 72 72 61 79 20 . if {$array
2c90: 6e 65 20 22 22 7d 20 7b 0a 09 6c 61 70 70 65 6e ne ""} {..lappen
2ca0: 64 20 72 65 73 75 6c 74 20 24 61 72 72 61 79 0a d result $array.
2cb0: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e }. return
2cc0: 20 24 72 65 73 75 6c 74 0a 7d 0a 0a 23 20 67 65 $result.}..# ge
2cd0: 6e 53 74 75 62 73 3a 3a 6d 61 6b 65 44 65 63 6c nStubs::makeDecl
2ce0: 20 2d 2d 0a 23 0a 23 09 47 65 6e 65 72 61 74 65 --.#.#.Generate
2cf0: 20 74 68 65 20 70 72 6f 74 6f 74 79 70 65 20 66 the prototype f
2d00: 6f 72 20 61 20 66 75 6e 63 74 69 6f 6e 2e 0a 23 or a function..#
2d10: 0a 23 20 41 72 67 75 6d 65 6e 74 73 3a 0a 23 09 .# Arguments:.#.
2d20: 6e 61 6d 65 09 54 68 65 20 69 6e 74 65 72 66 61 name.The interfa
2d30: 63 65 20 6e 61 6d 65 2e 0a 23 09 64 65 63 6c 09 ce name..#.decl.
2d40: 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 64 65 63 The function dec
2d50: 6c 61 72 61 74 69 6f 6e 2e 0a 23 09 69 6e 64 65 laration..#.inde
2d60: 78 09 54 68 65 20 73 6c 6f 74 20 69 6e 64 65 78 x.The slot index
2d70: 20 66 6f 72 20 74 68 69 73 20 66 75 6e 63 74 69 for this functi
2d80: 6f 6e 2e 0a 23 0a 23 20 52 65 73 75 6c 74 73 3a on..#.# Results:
2d90: 0a 23 09 52 65 74 75 72 6e 73 20 74 68 65 20 66 .#.Returns the f
2da0: 6f 72 6d 61 74 74 65 64 20 64 65 63 6c 61 72 61 ormatted declara
2db0: 74 69 6f 6e 20 73 74 72 69 6e 67 2e 0a 0a 70 72 tion string...pr
2dc0: 6f 63 20 67 65 6e 53 74 75 62 73 3a 3a 6d 61 6b oc genStubs::mak
2dd0: 65 44 65 63 6c 20 7b 6e 61 6d 65 20 64 65 63 6c eDecl {name decl
2de0: 20 69 6e 64 65 78 7d 20 7b 0a 20 20 20 20 76 61 index} {. va
2df0: 72 69 61 62 6c 65 20 73 63 73 70 65 63 0a 20 20 riable scspec.
2e00: 20 20 76 61 72 69 61 62 6c 65 20 73 74 75 62 73 variable stubs
2e10: 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6c 69 . variable li
2e20: 62 72 61 72 79 4e 61 6d 65 0a 20 20 20 20 6c 61 braryName. la
2e30: 73 73 69 67 6e 20 24 64 65 63 6c 20 72 74 79 70 ssign $decl rtyp
2e40: 65 20 66 6e 61 6d 65 20 61 72 67 73 0a 0a 20 20 e fname args..
2e50: 20 20 61 70 70 65 6e 64 20 74 65 78 74 20 22 2f append text "/
2e60: 2a 20 24 69 6e 64 65 78 20 2a 2f 5c 6e 22 0a 20 * $index */\n".
2e70: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 if {[info exi
2e80: 73 74 73 20 73 74 75 62 73 28 24 6e 61 6d 65 2c sts stubs($name,
2e90: 64 65 70 72 65 63 61 74 65 64 2c 24 69 6e 64 65 deprecated,$inde
2ea0: 78 29 5d 7d 20 7b 0a 09 61 70 70 65 6e 64 20 74 x)]} {..append t
2eb0: 65 78 74 20 22 5b 73 74 72 69 6e 67 20 74 6f 75 ext "[string tou
2ec0: 70 70 65 72 20 24 6c 69 62 72 61 72 79 4e 61 6d pper $libraryNam
2ed0: 65 5d 5f 44 45 50 52 45 43 41 54 45 44 28 5c 22 e]_DEPRECATED(\"
2ee0: 24 73 74 75 62 73 28 24 6e 61 6d 65 2c 64 65 70 $stubs($name,dep
2ef0: 72 65 63 61 74 65 64 2c 24 69 6e 64 65 78 29 5c recated,$index)\
2f00: 22 29 5c 6e 22 0a 09 73 65 74 20 6c 69 6e 65 20 ")\n"..set line
2f10: 22 24 72 74 79 70 65 22 0a 20 20 20 20 7d 20 65 "$rtype". } e
2f20: 6c 73 65 69 66 20 7b 5b 73 74 72 69 6e 67 20 72 lseif {[string r
2f30: 61 6e 67 65 20 24 72 74 79 70 65 20 65 6e 64 2d ange $rtype end-
2f40: 35 20 65 6e 64 5d 20 65 71 20 22 4d 50 5f 57 55 5 end] eq "MP_WU
2f50: 52 22 7d 20 7b 0a 09 73 65 74 20 6c 69 6e 65 20 R"} {..set line
2f60: 22 24 73 63 73 70 65 63 20 5b 73 74 72 69 6e 67 "$scspec [string
2f70: 20 74 72 69 6d 20 5b 73 74 72 69 6e 67 20 72 61 trim [string ra
2f80: 6e 67 65 20 24 72 74 79 70 65 20 30 20 65 6e 64 nge $rtype 0 end
2f90: 2d 36 5d 5d 22 0a 20 20 20 20 7d 20 65 6c 73 65 -6]]". } else
2fa0: 20 7b 0a 09 73 65 74 20 6c 69 6e 65 20 22 24 73 {..set line "$s
2fb0: 63 73 70 65 63 20 24 72 74 79 70 65 22 0a 20 20 cspec $rtype".
2fc0: 20 20 7d 0a 20 20 20 20 73 65 74 20 63 6f 75 6e }. set coun
2fd0: 74 20 5b 65 78 70 72 20 7b 32 20 2d 20 28 5b 73 t [expr {2 - ([s
2fe0: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 6c 69 tring length $li
2ff0: 6e 65 5d 20 2f 20 38 29 7d 5d 0a 20 20 20 20 69 ne] / 8)}]. i
3000: 66 20 7b 24 63 6f 75 6e 74 20 3e 3d 20 30 7d 20 f {$count >= 0}
3010: 7b 0a 09 61 70 70 65 6e 64 20 6c 69 6e 65 20 5b {..append line [
3020: 73 74 72 69 6e 67 20 72 61 6e 67 65 20 22 5c 74 string range "\t
3030: 5c 74 5c 74 22 20 30 20 24 63 6f 75 6e 74 5d 0a \t\t" 0 $count].
3040: 20 20 20 20 7d 0a 20 20 20 20 73 65 74 20 70 61 }. set pa
3050: 64 20 5b 65 78 70 72 20 7b 32 34 20 2d 20 5b 73 d [expr {24 - [s
3060: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 6c 69 tring length $li
3070: 6e 65 5d 7d 5d 0a 20 20 20 20 69 66 20 7b 24 70 ne]}]. if {$p
3080: 61 64 20 3c 3d 20 30 7d 20 7b 0a 09 61 70 70 65 ad <= 0} {..appe
3090: 6e 64 20 6c 69 6e 65 20 22 20 22 0a 09 73 65 74 nd line " "..set
30a0: 20 70 61 64 20 30 0a 20 20 20 20 7d 0a 20 20 20 pad 0. }.
30b0: 20 69 66 20 7b 24 61 72 67 73 20 65 71 20 22 22 if {$args eq ""
30c0: 7d 20 7b 0a 09 61 70 70 65 6e 64 20 6c 69 6e 65 } {..append line
30d0: 20 24 66 6e 61 6d 65 0a 09 61 70 70 65 6e 64 20 $fname..append
30e0: 74 65 78 74 20 24 6c 69 6e 65 0a 09 61 70 70 65 text $line..appe
30f0: 6e 64 20 74 65 78 74 20 22 3b 5c 6e 22 0a 09 72 nd text ";\n"..r
3100: 65 74 75 72 6e 20 24 74 65 78 74 0a 20 20 20 20 eturn $text.
3110: 7d 0a 20 20 20 20 61 70 70 65 6e 64 20 6c 69 6e }. append lin
3120: 65 20 24 66 6e 61 6d 65 0a 0a 20 20 20 20 73 65 e $fname.. se
3130: 74 20 61 72 67 31 20 5b 6c 69 6e 64 65 78 20 24 t arg1 [lindex $
3140: 61 72 67 73 20 30 5d 0a 20 20 20 20 73 77 69 74 args 0]. swit
3150: 63 68 20 2d 65 78 61 63 74 20 24 61 72 67 31 20 ch -exact $arg1
3160: 7b 0a 09 76 6f 69 64 20 7b 0a 09 20 20 20 20 61 {..void {.. a
3170: 70 70 65 6e 64 20 6c 69 6e 65 20 22 28 76 6f 69 ppend line "(voi
3180: 64 29 22 0a 09 7d 0a 09 54 43 4c 5f 56 41 52 41 d)"..}..TCL_VARA
3190: 52 47 53 20 7b 0a 09 20 20 20 20 73 65 74 20 73 RGS {.. set s
31a0: 65 70 20 22 28 22 0a 09 20 20 20 20 66 6f 72 65 ep "(".. fore
31b0: 61 63 68 20 61 72 67 20 5b 6c 72 61 6e 67 65 20 ach arg [lrange
31c0: 24 61 72 67 73 20 31 20 65 6e 64 5d 20 7b 0a 09 $args 1 end] {..
31d0: 09 61 70 70 65 6e 64 20 6c 69 6e 65 20 24 73 65 .append line $se
31e0: 70 0a 09 09 73 65 74 20 6e 65 78 74 20 7b 7d 0a p...set next {}.
31f0: 09 09 61 70 70 65 6e 64 20 6e 65 78 74 20 5b 6c ..append next [l
3200: 69 6e 64 65 78 20 24 61 72 67 20 30 5d 0a 09 09 index $arg 0]...
3210: 69 66 20 7b 5b 73 74 72 69 6e 67 20 69 6e 64 65 if {[string inde
3220: 78 20 24 6e 65 78 74 20 65 6e 64 5d 20 6e 65 20 x $next end] ne
3230: 22 2a 22 7d 20 7b 0a 09 09 20 20 20 20 61 70 70 "*"} {... app
3240: 65 6e 64 20 6e 65 78 74 20 22 20 22 0a 09 09 7d end next " "...}
3250: 0a 09 09 61 70 70 65 6e 64 20 6e 65 78 74 20 5b ...append next [
3260: 6c 69 6e 64 65 78 20 24 61 72 67 20 31 5d 20 5b lindex $arg 1] [
3270: 6c 69 6e 64 65 78 20 24 61 72 67 20 32 5d 0a 09 lindex $arg 2]..
3280: 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e .if {[string len
3290: 67 74 68 20 24 6c 69 6e 65 5d 20 2b 20 5b 73 74 gth $line] + [st
32a0: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 6e 65 78 ring length $nex
32b0: 74 5d 20 5c 0a 09 09 09 2b 20 24 70 61 64 20 3e t] \....+ $pad >
32c0: 20 37 36 7d 20 7b 0a 09 09 20 20 20 20 61 70 70 76} {... app
32d0: 65 6e 64 20 74 65 78 74 20 5b 73 74 72 69 6e 67 end text [string
32e0: 20 74 72 69 6d 72 69 67 68 74 20 24 6c 69 6e 65 trimright $line
32f0: 5d 20 5c 6e 0a 09 09 20 20 20 20 73 65 74 20 6c ] \n... set l
3300: 69 6e 65 20 22 5c 74 5c 74 5c 74 5c 74 22 0a 09 ine "\t\t\t\t"..
3310: 09 20 20 20 20 73 65 74 20 70 61 64 20 32 38 0a . set pad 28.
3320: 09 09 7d 0a 09 09 61 70 70 65 6e 64 20 6c 69 6e ..}...append lin
3330: 65 20 24 6e 65 78 74 0a 09 09 73 65 74 20 73 65 e $next...set se
3340: 70 20 22 2c 20 22 0a 09 20 20 20 20 7d 0a 09 20 p ", ".. }..
3350: 20 20 20 61 70 70 65 6e 64 20 6c 69 6e 65 20 22 append line "
3360: 2c 20 2e 2e 2e 29 22 0a 09 20 20 20 20 69 66 20 , ...)".. if
3370: 7b 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20 65 {[lindex $args e
3380: 6e 64 5d 20 65 71 20 22 7b 63 6f 6e 73 74 20 63 nd] eq "{const c
3390: 68 61 72 20 2a 7d 20 66 6f 72 6d 61 74 22 7d 20 har *} format"}
33a0: 7b 0a 09 09 61 70 70 65 6e 64 20 6c 69 6e 65 20 {...append line
33b0: 22 20 54 43 4c 5f 46 4f 52 4d 41 54 5f 50 52 49 " TCL_FORMAT_PRI
33c0: 4e 54 46 28 22 20 5b 65 78 70 72 20 7b 5b 6c 6c NTF(" [expr {[ll
33d0: 65 6e 67 74 68 20 24 61 72 67 73 5d 20 2d 20 31 ength $args] - 1
33e0: 7d 5d 20 22 2c 20 22 20 5b 6c 6c 65 6e 67 74 68 }] ", " [llength
33f0: 20 24 61 72 67 73 5d 20 22 29 22 0a 09 20 20 20 $args] ")"..
3400: 20 7d 0a 09 7d 0a 09 64 65 66 61 75 6c 74 20 7b }..}..default {
3410: 0a 09 20 20 20 20 73 65 74 20 73 65 70 20 22 28 .. set sep "(
3420: 22 0a 09 20 20 20 20 66 6f 72 65 61 63 68 20 61 ".. foreach a
3430: 72 67 20 24 61 72 67 73 20 7b 0a 09 09 61 70 70 rg $args {...app
3440: 65 6e 64 20 6c 69 6e 65 20 24 73 65 70 0a 09 09 end line $sep...
3450: 73 65 74 20 6e 65 78 74 20 7b 7d 0a 09 09 61 70 set next {}...ap
3460: 70 65 6e 64 20 6e 65 78 74 20 5b 6c 69 6e 64 65 pend next [linde
3470: 78 20 24 61 72 67 20 30 5d 0a 09 09 69 66 20 7b x $arg 0]...if {
3480: 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24 6e [string index $n
3490: 65 78 74 20 65 6e 64 5d 20 6e 65 20 22 2a 22 7d ext end] ne "*"}
34a0: 20 7b 0a 09 09 20 20 20 20 61 70 70 65 6e 64 20 {... append
34b0: 6e 65 78 74 20 22 20 22 0a 09 09 7d 0a 09 09 61 next " "...}...a
34c0: 70 70 65 6e 64 20 6e 65 78 74 20 5b 6c 69 6e 64 ppend next [lind
34d0: 65 78 20 24 61 72 67 20 31 5d 20 5b 6c 69 6e 64 ex $arg 1] [lind
34e0: 65 78 20 24 61 72 67 20 32 5d 0a 09 09 69 66 20 ex $arg 2]...if
34f0: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 {[string length
3500: 24 6c 69 6e 65 5d 20 2b 20 5b 73 74 72 69 6e 67 $line] + [string
3510: 20 6c 65 6e 67 74 68 20 24 6e 65 78 74 5d 20 5c length $next] \
3520: 0a 09 09 09 2b 20 24 70 61 64 20 3e 20 37 36 7d ....+ $pad > 76}
3530: 20 7b 0a 09 09 20 20 20 20 61 70 70 65 6e 64 20 {... append
3540: 74 65 78 74 20 5b 73 74 72 69 6e 67 20 74 72 69 text [string tri
3550: 6d 72 69 67 68 74 20 24 6c 69 6e 65 5d 20 5c 6e mright $line] \n
3560: 0a 09 09 20 20 20 20 73 65 74 20 6c 69 6e 65 20 ... set line
3570: 22 5c 74 5c 74 5c 74 5c 74 22 0a 09 09 20 20 20 "\t\t\t\t"...
3580: 20 73 65 74 20 70 61 64 20 32 38 0a 09 09 7d 0a set pad 28...}.
3590: 09 09 61 70 70 65 6e 64 20 6c 69 6e 65 20 24 6e ..append line $n
35a0: 65 78 74 0a 09 09 73 65 74 20 73 65 70 20 22 2c ext...set sep ",
35b0: 20 22 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 61 ".. }.. a
35c0: 70 70 65 6e 64 20 6c 69 6e 65 20 22 29 22 0a 09 ppend line ")"..
35d0: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 7b }. }. if {
35e0: 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 72 [string range $r
35f0: 74 79 70 65 20 65 6e 64 2d 35 20 65 6e 64 5d 20 type end-5 end]
3600: 65 71 20 22 4d 50 5f 57 55 52 22 7d 20 7b 0a 09 eq "MP_WUR"} {..
3610: 61 70 70 65 6e 64 20 6c 69 6e 65 20 22 20 4d 50 append line " MP
3620: 5f 57 55 52 22 0a 20 20 20 20 7d 0a 20 20 20 20 _WUR". }.
3630: 72 65 74 75 72 6e 20 22 24 74 65 78 74 24 6c 69 return "$text$li
3640: 6e 65 3b 5c 6e 22 0a 7d 0a 0a 23 20 67 65 6e 53 ne;\n".}..# genS
3650: 74 75 62 73 3a 3a 6d 61 6b 65 4d 61 63 72 6f 20 tubs::makeMacro
3660: 2d 2d 0a 23 0a 23 09 47 65 6e 65 72 61 74 65 20 --.#.#.Generate
3670: 74 68 65 20 69 6e 6c 69 6e 65 20 6d 61 63 72 6f the inline macro
3680: 20 66 6f 72 20 61 20 66 75 6e 63 74 69 6f 6e 2e for a function.
3690: 0a 23 0a 23 20 41 72 67 75 6d 65 6e 74 73 3a 0a .#.# Arguments:.
36a0: 23 09 6e 61 6d 65 09 54 68 65 20 69 6e 74 65 72 #.name.The inter
36b0: 66 61 63 65 20 6e 61 6d 65 2e 0a 23 09 64 65 63 face name..#.dec
36c0: 6c 09 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 64 l.The function d
36d0: 65 63 6c 61 72 61 74 69 6f 6e 2e 0a 23 09 69 6e eclaration..#.in
36e0: 64 65 78 09 54 68 65 20 73 6c 6f 74 20 69 6e 64 dex.The slot ind
36f0: 65 78 20 66 6f 72 20 74 68 69 73 20 66 75 6e 63 ex for this func
3700: 74 69 6f 6e 2e 0a 23 0a 23 20 52 65 73 75 6c 74 tion..#.# Result
3710: 73 3a 0a 23 09 52 65 74 75 72 6e 73 20 74 68 65 s:.#.Returns the
3720: 20 66 6f 72 6d 61 74 74 65 64 20 6d 61 63 72 6f formatted macro
3730: 20 64 65 66 69 6e 69 74 69 6f 6e 2e 0a 0a 70 72 definition...pr
3740: 6f 63 20 67 65 6e 53 74 75 62 73 3a 3a 6d 61 6b oc genStubs::mak
3750: 65 4d 61 63 72 6f 20 7b 6e 61 6d 65 20 64 65 63 eMacro {name dec
3760: 6c 20 69 6e 64 65 78 7d 20 7b 0a 20 20 20 20 6c l index} {. l
3770: 61 73 73 69 67 6e 20 24 64 65 63 6c 20 72 74 79 assign $decl rty
3780: 70 65 20 66 6e 61 6d 65 20 61 72 67 73 0a 0a 20 pe fname args..
3790: 20 20 20 73 65 74 20 6c 66 6e 61 6d 65 20 5b 73 set lfname [s
37a0: 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 5b 73 tring tolower [s
37b0: 74 72 69 6e 67 20 69 6e 64 65 78 20 24 66 6e 61 tring index $fna
37c0: 6d 65 20 30 5d 5d 0a 20 20 20 20 61 70 70 65 6e me 0]]. appen
37d0: 64 20 6c 66 6e 61 6d 65 20 5b 73 74 72 69 6e 67 d lfname [string
37e0: 20 72 61 6e 67 65 20 24 66 6e 61 6d 65 20 31 20 range $fname 1
37f0: 65 6e 64 5d 0a 0a 20 20 20 20 73 65 74 20 74 65 end].. set te
3800: 78 74 20 22 23 64 65 66 69 6e 65 20 24 66 6e 61 xt "#define $fna
3810: 6d 65 20 5c 5c 5c 6e 5c 74 28 22 0a 20 20 20 20 me \\\n\t(".
3820: 69 66 20 7b 24 61 72 67 73 20 65 71 20 22 22 7d if {$args eq ""}
3830: 20 7b 0a 09 61 70 70 65 6e 64 20 74 65 78 74 20 {..append text
3840: 22 2a 22 0a 20 20 20 20 7d 0a 20 20 20 20 61 70 "*". }. ap
3850: 70 65 6e 64 20 74 65 78 74 20 22 24 7b 6e 61 6d pend text "${nam
3860: 65 7d 53 74 75 62 73 50 74 72 2d 3e 24 6c 66 6e e}StubsPtr->$lfn
3870: 61 6d 65 29 22 0a 20 20 20 20 61 70 70 65 6e 64 ame)". append
3880: 20 74 65 78 74 20 22 20 2f 2a 20 24 69 6e 64 65 text " /* $inde
3890: 78 20 2a 2f 5c 6e 22 0a 20 20 20 20 72 65 74 75 x */\n". retu
38a0: 72 6e 20 24 74 65 78 74 0a 7d 0a 0a 23 20 67 65 rn $text.}..# ge
38b0: 6e 53 74 75 62 73 3a 3a 6d 61 6b 65 53 6c 6f 74 nStubs::makeSlot
38c0: 20 2d 2d 0a 23 0a 23 09 47 65 6e 65 72 61 74 65 --.#.#.Generate
38d0: 20 74 68 65 20 73 74 75 62 20 74 61 62 6c 65 20 the stub table
38e0: 65 6e 74 72 79 20 66 6f 72 20 61 20 66 75 6e 63 entry for a func
38f0: 74 69 6f 6e 2e 0a 23 0a 23 20 41 72 67 75 6d 65 tion..#.# Argume
3900: 6e 74 73 3a 0a 23 09 6e 61 6d 65 09 54 68 65 20 nts:.#.name.The
3910: 69 6e 74 65 72 66 61 63 65 20 6e 61 6d 65 2e 0a interface name..
3920: 23 09 64 65 63 6c 09 54 68 65 20 66 75 6e 63 74 #.decl.The funct
3930: 69 6f 6e 20 64 65 63 6c 61 72 61 74 69 6f 6e 2e ion declaration.
3940: 0a 23 09 69 6e 64 65 78 09 54 68 65 20 73 6c 6f .#.index.The slo
3950: 74 20 69 6e 64 65 78 20 66 6f 72 20 74 68 69 73 t index for this
3960: 20 66 75 6e 63 74 69 6f 6e 2e 0a 23 0a 23 20 52 function..#.# R
3970: 65 73 75 6c 74 73 3a 0a 23 09 52 65 74 75 72 6e esults:.#.Return
3980: 73 20 74 68 65 20 66 6f 72 6d 61 74 74 65 64 20 s the formatted
3990: 74 61 62 6c 65 20 65 6e 74 72 79 2e 0a 0a 70 72 table entry...pr
39a0: 6f 63 20 67 65 6e 53 74 75 62 73 3a 3a 6d 61 6b oc genStubs::mak
39b0: 65 53 6c 6f 74 20 7b 6e 61 6d 65 20 64 65 63 6c eSlot {name decl
39c0: 20 69 6e 64 65 78 7d 20 7b 0a 20 20 20 20 6c 61 index} {. la
39d0: 73 73 69 67 6e 20 24 64 65 63 6c 20 72 74 79 70 ssign $decl rtyp
39e0: 65 20 66 6e 61 6d 65 20 61 72 67 73 0a 20 20 20 e fname args.
39f0: 20 76 61 72 69 61 62 6c 65 20 73 74 75 62 73 0a variable stubs.
3a00: 0a 20 20 20 20 73 65 74 20 6c 66 6e 61 6d 65 20 . set lfname
3a10: 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 [string tolower
3a20: 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24 66 [string index $f
3a30: 6e 61 6d 65 20 30 5d 5d 0a 20 20 20 20 61 70 70 name 0]]. app
3a40: 65 6e 64 20 6c 66 6e 61 6d 65 20 5b 73 74 72 69 end lfname [stri
3a50: 6e 67 20 72 61 6e 67 65 20 24 66 6e 61 6d 65 20 ng range $fname
3a60: 31 20 65 6e 64 5d 0a 0a 20 20 20 20 73 65 74 20 1 end].. set
3a70: 74 65 78 74 20 22 20 20 20 20 22 0a 20 20 20 20 text " ".
3a80: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 if {[info exists
3a90: 20 73 74 75 62 73 28 24 6e 61 6d 65 2c 64 65 70 stubs($name,dep
3aa0: 72 65 63 61 74 65 64 2c 24 69 6e 64 65 78 29 5d recated,$index)]
3ab0: 7d 20 7b 0a 09 61 70 70 65 6e 64 20 74 65 78 74 } {..append text
3ac0: 20 22 54 43 4c 5f 44 45 50 52 45 43 41 54 45 44 "TCL_DEPRECATED
3ad0: 5f 41 50 49 28 5c 22 24 73 74 75 62 73 28 24 6e _API(\"$stubs($n
3ae0: 61 6d 65 2c 64 65 70 72 65 63 61 74 65 64 2c 24 ame,deprecated,$
3af0: 69 6e 64 65 78 29 5c 22 29 20 22 0a 20 20 20 20 index)\") ".
3b00: 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e 66 6f 20 } elseif {[info
3b10: 65 78 69 73 74 73 20 73 74 75 62 73 28 24 6e 61 exists stubs($na
3b20: 6d 65 2c 6e 6f 73 74 75 62 2c 24 69 6e 64 65 78 me,nostub,$index
3b30: 29 5d 7d 20 7b 0a 09 61 70 70 65 6e 64 20 74 65 )]} {..append te
3b40: 78 74 20 22 54 43 4c 5f 44 45 50 52 45 43 41 54 xt "TCL_DEPRECAT
3b50: 45 44 5f 41 50 49 28 5c 22 24 73 74 75 62 73 28 ED_API(\"$stubs(
3b60: 24 6e 61 6d 65 2c 6e 6f 73 74 75 62 2c 24 69 6e $name,nostub,$in
3b70: 64 65 78 29 5c 22 29 20 22 0a 20 20 20 20 7d 0a dex)\") ". }.
3b80: 20 20 20 20 69 66 20 7b 24 61 72 67 73 20 65 71 if {$args eq
3b90: 20 22 22 7d 20 7b 0a 09 61 70 70 65 6e 64 20 74 ""} {..append t
3ba0: 65 78 74 20 24 72 74 79 70 65 20 22 20 2a 22 20 ext $rtype " *"
3bb0: 24 6c 66 6e 61 6d 65 20 22 3b 20 2f 2a 20 24 69 $lfname "; /* $i
3bc0: 6e 64 65 78 20 2a 2f 5c 6e 22 0a 09 72 65 74 75 ndex */\n"..retu
3bd0: 72 6e 20 24 74 65 78 74 0a 20 20 20 20 7d 0a 20 rn $text. }.
3be0: 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 72 if {[string r
3bf0: 61 6e 67 65 20 24 72 74 79 70 65 20 65 6e 64 2d ange $rtype end-
3c00: 38 20 65 6e 64 5d 20 65 71 20 22 5f 5f 73 74 64 8 end] eq "__std
3c10: 63 61 6c 6c 22 7d 20 7b 0a 09 61 70 70 65 6e 64 call"} {..append
3c20: 20 74 65 78 74 20 5b 73 74 72 69 6e 67 20 74 72 text [string tr
3c30: 69 6d 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 im [string range
3c40: 20 24 72 74 79 70 65 20 30 20 65 6e 64 2d 39 5d $rtype 0 end-9]
3c50: 5d 20 22 20 28 5f 5f 73 74 64 63 61 6c 6c 20 2a ] " (__stdcall *
3c60: 22 20 24 6c 66 6e 61 6d 65 20 22 29 20 22 0a 20 " $lfname ") ".
3c70: 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 73 74 } elseif {[st
3c80: 72 69 6e 67 20 72 61 6e 67 65 20 24 72 74 79 70 ring range $rtyp
3c90: 65 20 30 20 31 31 5d 20 65 71 20 22 54 43 4c 5f e 0 11] eq "TCL_
3ca0: 4e 4f 52 45 54 55 52 4e 22 7d 20 7b 0a 09 61 70 NORETURN"} {..ap
3cb0: 70 65 6e 64 20 74 65 78 74 20 22 54 43 4c 5f 4e pend text "TCL_N
3cc0: 4f 52 45 54 55 52 4e 31 20 22 20 5b 73 74 72 69 ORETURN1 " [stri
3cd0: 6e 67 20 74 72 69 6d 20 5b 73 74 72 69 6e 67 20 ng trim [string
3ce0: 72 61 6e 67 65 20 24 72 74 79 70 65 20 31 32 20 range $rtype 12
3cf0: 65 6e 64 5d 5d 20 22 20 28 2a 22 20 24 6c 66 6e end]] " (*" $lfn
3d00: 61 6d 65 20 22 29 20 22 0a 20 20 20 20 7d 20 65 ame ") ". } e
3d10: 6c 73 65 69 66 20 7b 5b 73 74 72 69 6e 67 20 72 lseif {[string r
3d20: 61 6e 67 65 20 24 72 74 79 70 65 20 65 6e 64 2d ange $rtype end-
3d30: 35 20 65 6e 64 5d 20 65 71 20 22 4d 50 5f 57 55 5 end] eq "MP_WU
3d40: 52 22 7d 20 7b 0a 09 61 70 70 65 6e 64 20 74 65 R"} {..append te
3d50: 78 74 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 xt [string trim
3d60: 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 72 [string range $r
3d70: 74 79 70 65 20 30 20 65 6e 64 2d 36 5d 5d 20 22 type 0 end-6]] "
3d80: 20 28 2a 22 20 24 6c 66 6e 61 6d 65 20 22 29 20 (*" $lfname ")
3d90: 22 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ". } else {..
3da0: 61 70 70 65 6e 64 20 74 65 78 74 20 24 72 74 79 append text $rty
3db0: 70 65 20 22 20 28 2a 22 20 24 6c 66 6e 61 6d 65 pe " (*" $lfname
3dc0: 20 22 29 20 22 0a 20 20 20 20 7d 0a 20 20 20 20 ") ". }.
3dd0: 73 65 74 20 61 72 67 31 20 5b 6c 69 6e 64 65 78 set arg1 [lindex
3de0: 20 24 61 72 67 73 20 30 5d 0a 20 20 20 20 73 77 $args 0]. sw
3df0: 69 74 63 68 20 2d 65 78 61 63 74 20 24 61 72 67 itch -exact $arg
3e00: 31 20 7b 0a 09 76 6f 69 64 20 7b 0a 09 20 20 20 1 {..void {..
3e10: 20 61 70 70 65 6e 64 20 74 65 78 74 20 22 28 76 append text "(v
3e20: 6f 69 64 29 22 0a 09 7d 0a 09 54 43 4c 5f 56 41 oid)"..}..TCL_VA
3e30: 52 41 52 47 53 20 7b 0a 09 20 20 20 20 73 65 74 RARGS {.. set
3e40: 20 73 65 70 20 22 28 22 0a 09 20 20 20 20 66 6f sep "(".. fo
3e50: 72 65 61 63 68 20 61 72 67 20 5b 6c 72 61 6e 67 reach arg [lrang
3e60: 65 20 24 61 72 67 73 20 31 20 65 6e 64 5d 20 7b e $args 1 end] {
3e70: 0a 09 09 61 70 70 65 6e 64 20 74 65 78 74 20 24 ...append text $
3e80: 73 65 70 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 sep [lindex $arg
3e90: 20 30 5d 0a 09 09 69 66 20 7b 5b 73 74 72 69 6e 0]...if {[strin
3ea0: 67 20 69 6e 64 65 78 20 24 74 65 78 74 20 65 6e g index $text en
3eb0: 64 5d 20 6e 65 20 22 2a 22 7d 20 7b 0a 09 09 20 d] ne "*"} {...
3ec0: 20 20 20 61 70 70 65 6e 64 20 74 65 78 74 20 22 append text "
3ed0: 20 22 0a 09 09 7d 0a 09 09 61 70 70 65 6e 64 20 "...}...append
3ee0: 74 65 78 74 20 5b 6c 69 6e 64 65 78 20 24 61 72 text [lindex $ar
3ef0: 67 20 31 5d 20 5b 6c 69 6e 64 65 78 20 24 61 72 g 1] [lindex $ar
3f00: 67 20 32 5d 0a 09 09 73 65 74 20 73 65 70 20 22 g 2]...set sep "
3f10: 2c 20 22 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 , ".. }..
3f20: 61 70 70 65 6e 64 20 74 65 78 74 20 22 2c 20 2e append text ", .
3f30: 2e 2e 29 22 0a 09 20 20 20 20 69 66 20 7b 5b 6c ..)".. if {[l
3f40: 69 6e 64 65 78 20 24 61 72 67 73 20 65 6e 64 5d index $args end]
3f50: 20 65 71 20 22 7b 63 6f 6e 73 74 20 63 68 61 72 eq "{const char
3f60: 20 2a 7d 20 66 6f 72 6d 61 74 22 7d 20 7b 0a 09 *} format"} {..
3f70: 09 61 70 70 65 6e 64 20 74 65 78 74 20 22 20 54 .append text " T
3f80: 43 4c 5f 46 4f 52 4d 41 54 5f 50 52 49 4e 54 46 CL_FORMAT_PRINTF
3f90: 28 22 20 5b 65 78 70 72 20 7b 5b 6c 6c 65 6e 67 (" [expr {[lleng
3fa0: 74 68 20 24 61 72 67 73 5d 20 2d 20 31 7d 5d 20 th $args] - 1}]
3fb0: 22 2c 20 22 20 5b 6c 6c 65 6e 67 74 68 20 24 61 ", " [llength $a
3fc0: 72 67 73 5d 20 22 29 22 0a 09 20 20 20 20 7d 0a rgs] ")".. }.
3fd0: 09 7d 0a 09 64 65 66 61 75 6c 74 20 7b 0a 09 20 .}..default {..
3fe0: 20 20 20 73 65 74 20 73 65 70 20 22 28 22 0a 09 set sep "("..
3ff0: 20 20 20 20 66 6f 72 65 61 63 68 20 61 72 67 20 foreach arg
4000: 24 61 72 67 73 20 7b 0a 09 09 61 70 70 65 6e 64 $args {...append
4010: 20 74 65 78 74 20 24 73 65 70 20 5b 6c 69 6e 64 text $sep [lind
4020: 65 78 20 24 61 72 67 20 30 5d 0a 09 09 69 66 20 ex $arg 0]...if
4030: 7b 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24 {[string index $
4040: 74 65 78 74 20 65 6e 64 5d 20 6e 65 20 22 2a 22 text end] ne "*"
4050: 7d 20 7b 0a 09 09 20 20 20 20 61 70 70 65 6e 64 } {... append
4060: 20 74 65 78 74 20 22 20 22 0a 09 09 7d 0a 09 09 text " "...}...
4070: 61 70 70 65 6e 64 20 74 65 78 74 20 5b 6c 69 6e append text [lin
4080: 64 65 78 20 24 61 72 67 20 31 5d 20 5b 6c 69 6e dex $arg 1] [lin
4090: 64 65 78 20 24 61 72 67 20 32 5d 0a 09 09 73 65 dex $arg 2]...se
40a0: 74 20 73 65 70 20 22 2c 20 22 0a 09 20 20 20 20 t sep ", "..
40b0: 7d 0a 09 20 20 20 20 61 70 70 65 6e 64 20 74 65 }.. append te
40c0: 78 74 20 22 29 22 0a 09 7d 0a 20 20 20 20 7d 0a xt ")"..}. }.
40d0: 0a 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 . if {[string
40e0: 20 72 61 6e 67 65 20 24 72 74 79 70 65 20 65 6e range $rtype en
40f0: 64 2d 35 20 65 6e 64 5d 20 65 71 20 22 4d 50 5f d-5 end] eq "MP_
4100: 57 55 52 22 7d 20 7b 0a 09 61 70 70 65 6e 64 20 WUR"} {..append
4110: 74 65 78 74 20 22 20 4d 50 5f 57 55 52 22 0a 20 text " MP_WUR".
4120: 20 20 20 7d 0a 20 20 20 20 61 70 70 65 6e 64 20 }. append
4130: 74 65 78 74 20 22 3b 20 2f 2a 20 24 69 6e 64 65 text "; /* $inde
4140: 78 20 2a 2f 5c 6e 22 0a 20 20 20 20 72 65 74 75 x */\n". retu
4150: 72 6e 20 24 74 65 78 74 0a 7d 0a 0a 23 20 67 65 rn $text.}..# ge
4160: 6e 53 74 75 62 73 3a 3a 6d 61 6b 65 49 6e 69 74 nStubs::makeInit
4170: 20 2d 2d 0a 23 0a 23 09 47 65 6e 65 72 61 74 65 --.#.#.Generate
4180: 20 74 68 65 20 70 72 6f 74 6f 74 79 70 65 20 66 the prototype f
4190: 6f 72 20 61 20 66 75 6e 63 74 69 6f 6e 2e 0a 23 or a function..#
41a0: 0a 23 20 41 72 67 75 6d 65 6e 74 73 3a 0a 23 09 .# Arguments:.#.
41b0: 6e 61 6d 65 09 54 68 65 20 69 6e 74 65 72 66 61 name.The interfa
41c0: 63 65 20 6e 61 6d 65 2e 0a 23 09 64 65 63 6c 09 ce name..#.decl.
41d0: 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 64 65 63 The function dec
41e0: 6c 61 72 61 74 69 6f 6e 2e 0a 23 09 69 6e 64 65 laration..#.inde
41f0: 78 09 54 68 65 20 73 6c 6f 74 20 69 6e 64 65 78 x.The slot index
4200: 20 66 6f 72 20 74 68 69 73 20 66 75 6e 63 74 69 for this functi
4210: 6f 6e 2e 0a 23 0a 23 20 52 65 73 75 6c 74 73 3a on..#.# Results:
4220: 0a 23 09 52 65 74 75 72 6e 73 20 74 68 65 20 66 .#.Returns the f
4230: 6f 72 6d 61 74 74 65 64 20 64 65 63 6c 61 72 61 ormatted declara
4240: 74 69 6f 6e 20 73 74 72 69 6e 67 2e 0a 0a 70 72 tion string...pr
4250: 6f 63 20 67 65 6e 53 74 75 62 73 3a 3a 6d 61 6b oc genStubs::mak
4260: 65 49 6e 69 74 20 7b 6e 61 6d 65 20 64 65 63 6c eInit {name decl
4270: 20 69 6e 64 65 78 7d 20 7b 0a 20 20 20 20 69 66 index} {. if
4280: 20 7b 5b 6c 69 6e 64 65 78 20 24 64 65 63 6c 20 {[lindex $decl
4290: 32 5d 20 65 71 20 22 22 7d 20 7b 0a 09 61 70 70 2] eq ""} {..app
42a0: 65 6e 64 20 74 65 78 74 20 22 20 20 20 20 26 22 end text " &"
42b0: 20 5b 6c 69 6e 64 65 78 20 24 64 65 63 6c 20 31 [lindex $decl 1
42c0: 5d 20 22 2c 20 2f 2a 20 22 20 24 69 6e 64 65 78 ] ", /* " $index
42d0: 20 22 20 2a 2f 5c 6e 22 0a 20 20 20 20 7d 20 65 " */\n". } e
42e0: 6c 73 65 20 7b 0a 09 61 70 70 65 6e 64 20 74 65 lse {..append te
42f0: 78 74 20 22 20 20 20 20 22 20 5b 6c 69 6e 64 65 xt " " [linde
4300: 78 20 24 64 65 63 6c 20 31 5d 20 22 2c 20 2f 2a x $decl 1] ", /*
4310: 20 22 20 24 69 6e 64 65 78 20 22 20 2a 2f 5c 6e " $index " */\n
4320: 22 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 ". }. retu
4330: 72 6e 20 24 74 65 78 74 0a 7d 0a 0a 23 20 67 65 rn $text.}..# ge
4340: 6e 53 74 75 62 73 3a 3a 66 6f 72 41 6c 6c 53 74 nStubs::forAllSt
4350: 75 62 73 20 2d 2d 0a 23 0a 23 09 54 68 69 73 20 ubs --.#.#.This
4360: 66 75 6e 63 74 69 6f 6e 20 69 74 65 72 61 74 65 function iterate
4370: 73 20 6f 76 65 72 20 61 6c 6c 20 6f 66 20 74 68 s over all of th
4380: 65 20 70 6c 61 74 66 6f 72 6d 73 20 61 6e 64 20 e platforms and
4390: 69 6e 76 6f 6b 65 73 0a 23 09 61 20 63 61 6c 6c invokes.#.a call
43a0: 62 61 63 6b 20 66 6f 72 20 65 61 63 68 20 73 6c back for each sl
43b0: 6f 74 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 ot. The result
43c0: 6f 66 20 74 68 65 20 63 61 6c 6c 62 61 63 6b 20 of the callback
43d0: 69 73 20 74 68 65 6e 0a 23 09 70 6c 61 63 65 64 is then.#.placed
43e0: 20 69 6e 73 69 64 65 20 61 70 70 72 6f 70 72 69 inside appropri
43f0: 61 74 65 20 70 6c 61 74 66 6f 72 6d 20 67 75 61 ate platform gua
4400: 72 64 73 2e 0a 23 0a 23 20 41 72 67 75 6d 65 6e rds..#.# Argumen
4410: 74 73 3a 0a 23 09 6e 61 6d 65 09 09 54 68 65 20 ts:.#.name..The
4420: 69 6e 74 65 72 66 61 63 65 20 6e 61 6d 65 2e 0a interface name..
4430: 23 09 73 6c 6f 74 50 72 6f 63 09 54 68 65 20 70 #.slotProc.The p
4440: 72 6f 63 20 74 6f 20 69 6e 76 6f 6b 65 20 74 6f roc to invoke to
4450: 20 68 61 6e 64 6c 65 20 74 68 65 20 73 6c 6f 74 handle the slot
4460: 2e 20 20 49 74 20 77 69 6c 6c 0a 23 09 09 09 68 . It will.#...h
4470: 61 76 65 20 74 68 65 20 69 6e 74 65 72 66 61 63 ave the interfac
4480: 65 20 6e 61 6d 65 2c 20 74 68 65 20 64 65 63 6c e name, the decl
4490: 61 72 61 74 69 6f 6e 2c 20 20 61 6e 64 0a 23 09 aration, and.#.
44a0: 09 09 74 68 65 20 69 6e 64 65 78 20 61 70 70 65 ..the index appe
44b0: 6e 64 65 64 2e 0a 23 09 6f 6e 41 6c 6c 09 09 49 nded..#.onAll..I
44c0: 66 20 31 2c 20 65 6d 69 74 20 74 68 65 20 73 6b f 1, emit the sk
44d0: 69 70 20 73 74 72 69 6e 67 20 65 76 65 6e 20 69 ip string even i
44e0: 66 20 74 68 65 72 65 20 61 72 65 0a 23 09 09 09 f there are.#...
44f0: 64 65 66 69 6e 69 74 69 6f 6e 73 20 66 6f 72 20 definitions for
4500: 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 70 6c 61 74 one or more plat
4510: 66 6f 72 6d 73 2e 0a 23 09 74 65 78 74 56 61 72 forms..#.textVar
4520: 09 09 54 68 65 20 76 61 72 69 61 62 6c 65 20 74 ..The variable t
4530: 6f 20 75 73 65 20 66 6f 72 20 6f 75 74 70 75 74 o use for output
4540: 2e 0a 23 09 73 6b 69 70 53 74 72 69 6e 67 09 54 ..#.skipString.T
4550: 68 65 20 73 74 72 69 6e 67 20 74 6f 20 65 6d 69 he string to emi
4560: 74 20 69 66 20 61 20 73 6c 6f 74 20 69 73 20 73 t if a slot is s
4570: 6b 69 70 70 65 64 2e 20 20 54 68 69 73 0a 23 09 kipped. This.#.
4580: 09 09 73 74 72 69 6e 67 20 77 69 6c 6c 20 62 65 ..string will be
4590: 20 73 75 62 73 74 27 65 64 20 69 6e 20 74 68 65 subst'ed in the
45a0: 20 6c 6f 6f 70 20 73 6f 20 22 24 69 22 20 63 61 loop so "$i" ca
45b0: 6e 0a 23 09 09 09 62 65 20 75 73 65 64 20 74 6f n.#...be used to
45c0: 20 73 75 62 73 74 69 74 75 74 65 20 74 68 65 20 substitute the
45d0: 69 6e 64 65 78 20 76 61 6c 75 65 2e 0a 23 0a 23 index value..#.#
45e0: 20 52 65 73 75 6c 74 73 3a 0a 23 09 4e 6f 6e 65 Results:.#.None
45f0: 2e 0a 0a 70 72 6f 63 20 67 65 6e 53 74 75 62 73 ...proc genStubs
4600: 3a 3a 66 6f 72 41 6c 6c 53 74 75 62 73 20 7b 6e ::forAllStubs {n
4610: 61 6d 65 20 73 6c 6f 74 50 72 6f 63 20 6f 6e 41 ame slotProc onA
4620: 6c 6c 20 74 65 78 74 56 61 72 0a 09 7b 73 6b 69 ll textVar..{ski
4630: 70 53 74 72 69 6e 67 20 7b 22 2f 2a 20 53 6c 6f pString {"/* Slo
4640: 74 20 24 69 20 69 73 20 72 65 73 65 72 76 65 64 t $i is reserved
4650: 20 2a 2f 5c 6e 22 7d 7d 7d 20 7b 0a 20 20 20 20 */\n"}}} {.
4660: 76 61 72 69 61 62 6c 65 20 73 74 75 62 73 0a 20 variable stubs.
4670: 20 20 20 75 70 76 61 72 20 24 74 65 78 74 56 61 upvar $textVa
4680: 72 20 74 65 78 74 0a 0a 20 20 20 20 73 65 74 20 r text.. set
4690: 70 6c 61 74 73 20 5b 61 72 72 61 79 20 6e 61 6d plats [array nam
46a0: 65 73 20 73 74 75 62 73 20 24 6e 61 6d 65 2c 2a es stubs $name,*
46b0: 2c 6c 61 73 74 4e 75 6d 5d 0a 20 20 20 20 69 66 ,lastNum]. if
46c0: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 73 {[info exists s
46d0: 74 75 62 73 28 24 6e 61 6d 65 2c 67 65 6e 65 72 tubs($name,gener
46e0: 69 63 2c 6c 61 73 74 4e 75 6d 29 5d 7d 20 7b 0a ic,lastNum)]} {.
46f0: 09 23 20 45 6d 69 74 20 69 6e 74 65 67 72 61 74 .# Emit integrat
4700: 65 64 20 73 74 75 62 73 20 62 6c 6f 63 6b 0a 09 ed stubs block..
4710: 73 65 74 20 6c 61 73 74 4e 75 6d 20 2d 31 0a 09 set lastNum -1..
4720: 66 6f 72 65 61 63 68 20 70 6c 61 74 20 5b 61 72 foreach plat [ar
4730: 72 61 79 20 6e 61 6d 65 73 20 73 74 75 62 73 20 ray names stubs
4740: 24 6e 61 6d 65 2c 2a 2c 6c 61 73 74 4e 75 6d 5d $name,*,lastNum]
4750: 20 7b 0a 09 20 20 20 20 69 66 20 7b 24 73 74 75 {.. if {$stu
4760: 62 73 28 24 70 6c 61 74 29 20 3e 20 24 6c 61 73 bs($plat) > $las
4770: 74 4e 75 6d 7d 20 7b 0a 09 09 73 65 74 20 6c 61 tNum} {...set la
4780: 73 74 4e 75 6d 20 24 73 74 75 62 73 28 24 70 6c stNum $stubs($pl
4790: 61 74 29 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 66 at).. }..}..f
47a0: 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 or {set i 0} {$i
47b0: 20 3c 3d 20 24 6c 61 73 74 4e 75 6d 7d 20 7b 69 <= $lastNum} {i
47c0: 6e 63 72 20 69 7d 20 7b 0a 09 20 20 20 20 73 65 ncr i} {.. se
47d0: 74 20 73 6c 6f 74 73 20 5b 61 72 72 61 79 20 6e t slots [array n
47e0: 61 6d 65 73 20 73 74 75 62 73 20 24 6e 61 6d 65 ames stubs $name
47f0: 2c 2a 2c 24 69 5d 0a 09 20 20 20 20 73 65 74 20 ,*,$i].. set
4800: 65 6d 69 74 20 30 0a 09 20 20 20 20 69 66 20 7b emit 0.. if {
4810: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 73 74 75 [info exists stu
4820: 62 73 28 24 6e 61 6d 65 2c 64 65 70 72 65 63 61 bs($name,depreca
4830: 74 65 64 2c 24 69 29 5d 7d 20 7b 0a 09 09 61 70 ted,$i)]} {...ap
4840: 70 65 6e 64 20 74 65 78 74 20 5b 24 73 6c 6f 74 pend text [$slot
4850: 50 72 6f 63 20 24 6e 61 6d 65 20 24 73 74 75 62 Proc $name $stub
4860: 73 28 24 6e 61 6d 65 2c 67 65 6e 65 72 69 63 2c s($name,generic,
4870: 24 69 29 20 24 69 5d 0a 09 09 73 65 74 20 65 6d $i) $i]...set em
4880: 69 74 20 31 0a 09 20 20 20 20 7d 20 65 6c 73 65 it 1.. } else
4890: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 if {[info exists
48a0: 20 73 74 75 62 73 28 24 6e 61 6d 65 2c 6e 6f 73 stubs($name,nos
48b0: 74 75 62 2c 24 69 29 5d 7d 20 7b 0a 09 09 61 70 tub,$i)]} {...ap
48c0: 70 65 6e 64 20 74 65 78 74 20 5b 24 73 6c 6f 74 pend text [$slot
48d0: 50 72 6f 63 20 24 6e 61 6d 65 20 24 73 74 75 62 Proc $name $stub
48e0: 73 28 24 6e 61 6d 65 2c 67 65 6e 65 72 69 63 2c s($name,generic,
48f0: 24 69 29 20 24 69 5d 0a 09 09 73 65 74 20 65 6d $i) $i]...set em
4900: 69 74 20 31 0a 09 20 20 20 20 7d 20 65 6c 73 65 it 1.. } else
4910: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 if {[info exists
4920: 20 73 74 75 62 73 28 24 6e 61 6d 65 2c 67 65 6e stubs($name,gen
4930: 65 72 69 63 2c 24 69 29 5d 7d 20 7b 0a 09 09 69 eric,$i)]} {...i
4940: 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 73 6c 6f f {[llength $slo
4950: 74 73 5d 20 3e 20 31 7d 20 7b 0a 09 09 20 20 20 ts] > 1} {...
4960: 20 70 75 74 73 20 73 74 64 65 72 72 20 22 63 6f puts stderr "co
4970: 6e 66 6c 69 63 74 69 6e 67 20 67 65 6e 65 72 69 nflicting generi
4980: 63 20 61 6e 64 20 70 6c 61 74 66 6f 72 6d 20 65 c and platform e
4990: 6e 74 72 69 65 73 3a 5c 0a 09 09 09 20 20 20 20 ntries:\....
49a0: 24 6e 61 6d 65 20 24 69 22 0a 09 09 7d 0a 09 09 $name $i"...}...
49b0: 61 70 70 65 6e 64 20 74 65 78 74 20 5b 24 73 6c append text [$sl
49c0: 6f 74 50 72 6f 63 20 24 6e 61 6d 65 20 24 73 74 otProc $name $st
49d0: 75 62 73 28 24 6e 61 6d 65 2c 67 65 6e 65 72 69 ubs($name,generi
49e0: 63 2c 24 69 29 20 24 69 5d 0a 09 09 73 65 74 20 c,$i) $i]...set
49f0: 65 6d 69 74 20 31 0a 09 20 20 20 20 7d 20 65 6c emit 1.. } el
4a00: 73 65 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 seif {[llength $
4a10: 73 6c 6f 74 73 5d 20 3e 20 30 7d 20 7b 0a 09 09 slots] > 0} {...
4a20: 61 72 72 61 79 20 73 65 74 20 73 6c 6f 74 20 7b array set slot {
4a30: 75 6e 69 78 20 30 20 78 31 31 20 30 20 77 69 6e unix 0 x11 0 win
4a40: 20 30 20 6d 61 63 6f 73 78 20 30 20 61 71 75 61 0 macosx 0 aqua
4a50: 20 30 7d 0a 09 09 66 6f 72 65 61 63 68 20 73 20 0}...foreach s
4a60: 24 73 6c 6f 74 73 20 7b 0a 09 09 20 20 20 20 73 $slots {... s
4a70: 65 74 20 73 6c 6f 74 28 5b 6c 69 6e 64 65 78 20 et slot([lindex
4a80: 5b 73 70 6c 69 74 20 24 73 20 2c 5d 20 31 5d 29 [split $s ,] 1])
4a90: 20 31 0a 09 09 7d 0a 09 09 23 20 22 61 71 75 61 1...}...# "aqua
4aa0: 22 2c 20 22 6d 61 63 6f 73 78 22 20 61 6e 64 20 ", "macosx" and
4ab0: 22 78 31 31 22 20 61 72 65 20 73 70 65 63 69 61 "x11" are specia
4ac0: 6c 20 63 61 73 65 73 3a 0a 09 09 23 20 22 6d 61 l cases:...# "ma
4ad0: 63 6f 73 78 22 20 69 6d 70 6c 69 65 73 20 22 75 cosx" implies "u
4ae0: 6e 69 78 22 2c 20 22 61 71 75 61 22 20 69 6d 70 nix", "aqua" imp
4af0: 6c 69 65 73 20 22 6d 61 63 6f 73 78 22 20 61 6e lies "macosx" an
4b00: 64 20 22 78 31 31 22 0a 09 09 23 20 69 6d 70 6c d "x11"...# impl
4b10: 69 65 73 20 22 75 6e 69 78 22 2c 20 73 6f 20 77 ies "unix", so w
4b20: 65 20 6e 65 65 64 20 74 6f 20 62 65 20 63 61 72 e need to be car
4b30: 65 66 75 6c 20 6e 6f 74 20 74 6f 20 65 6d 69 74 eful not to emit
4b40: 0a 09 09 23 20 64 75 70 6c 69 63 61 74 65 20 73 ...# duplicate s
4b50: 74 75 62 73 20 65 6e 74 72 69 65 73 3a 0a 09 09 tubs entries:...
4b60: 69 66 20 7b 28 24 73 6c 6f 74 28 75 6e 69 78 29 if {($slot(unix)
4b70: 20 26 26 20 24 73 6c 6f 74 28 6d 61 63 6f 73 78 && $slot(macosx
4b80: 29 29 20 7c 7c 20 28 0a 09 09 09 28 24 73 6c 6f )) || (....($slo
4b90: 74 28 75 6e 69 78 29 20 7c 7c 20 24 73 6c 6f 74 t(unix) || $slot
4ba0: 28 6d 61 63 6f 73 78 29 29 20 26 26 0a 09 09 09 (macosx)) &&....
4bb0: 28 24 73 6c 6f 74 28 78 31 31 29 20 20 7c 7c 20 ($slot(x11) ||
4bc0: 24 73 6c 6f 74 28 61 71 75 61 29 29 29 7d 20 7b $slot(aqua)))} {
4bd0: 0a 09 09 20 20 20 20 70 75 74 73 20 73 74 64 65 ... puts stde
4be0: 72 72 20 22 63 6f 6e 66 6c 69 63 74 69 6e 67 20 rr "conflicting
4bf0: 70 6c 61 74 66 6f 72 6d 20 65 6e 74 72 69 65 73 platform entries
4c00: 3a 20 24 6e 61 6d 65 20 24 69 22 0a 09 09 7d 0a : $name $i"...}.
4c10: 09 09 23 23 20 75 6e 69 78 20 23 23 0a 09 09 73 ..## unix ##...s
4c20: 65 74 20 74 65 6d 70 20 7b 7d 0a 09 09 73 65 74 et temp {}...set
4c30: 20 70 6c 61 74 20 75 6e 69 78 0a 09 09 69 66 20 plat unix...if
4c40: 7b 21 24 73 6c 6f 74 28 61 71 75 61 29 20 26 26 {!$slot(aqua) &&
4c50: 20 21 24 73 6c 6f 74 28 78 31 31 29 7d 20 7b 0a !$slot(x11)} {.
4c60: 09 09 20 20 20 20 69 66 20 7b 24 73 6c 6f 74 28 .. if {$slot(
4c70: 24 70 6c 61 74 29 7d 20 7b 0a 09 09 09 61 70 70 $plat)} {....app
4c80: 65 6e 64 20 74 65 6d 70 20 5b 24 73 6c 6f 74 50 end temp [$slotP
4c90: 72 6f 63 20 24 6e 61 6d 65 20 24 73 74 75 62 73 roc $name $stubs
4ca0: 28 24 6e 61 6d 65 2c 24 70 6c 61 74 2c 24 69 29 ($name,$plat,$i)
4cb0: 20 24 69 5d 0a 09 09 20 20 20 20 7d 20 65 6c 73 $i]... } els
4cc0: 65 69 66 20 7b 24 6f 6e 41 6c 6c 7d 20 7b 0a 09 eif {$onAll} {..
4cd0: 09 09 65 76 61 6c 20 7b 61 70 70 65 6e 64 20 74 ..eval {append t
4ce0: 65 6d 70 7d 20 24 73 6b 69 70 53 74 72 69 6e 67 emp} $skipString
4cf0: 0a 09 09 20 20 20 20 7d 0a 09 09 7d 0a 09 09 69 ... }...}...i
4d00: 66 20 7b 24 74 65 6d 70 20 6e 65 20 22 22 7d 20 f {$temp ne ""}
4d10: 7b 0a 09 09 20 20 20 20 61 70 70 65 6e 64 20 74 {... append t
4d20: 65 78 74 20 5b 61 64 64 50 6c 61 74 66 6f 72 6d ext [addPlatform
4d30: 47 75 61 72 64 20 24 70 6c 61 74 20 24 74 65 6d Guard $plat $tem
4d40: 70 5d 0a 09 09 20 20 20 20 73 65 74 20 65 6d 69 p]... set emi
4d50: 74 20 31 0a 09 09 7d 0a 09 09 23 23 20 78 31 31 t 1...}...## x11
4d60: 20 23 23 0a 09 09 73 65 74 20 74 65 6d 70 20 7b ##...set temp {
4d70: 7d 0a 09 09 73 65 74 20 70 6c 61 74 20 78 31 31 }...set plat x11
4d80: 0a 09 09 69 66 20 7b 21 24 73 6c 6f 74 28 75 6e ...if {!$slot(un
4d90: 69 78 29 20 26 26 20 21 24 73 6c 6f 74 28 6d 61 ix) && !$slot(ma
4da0: 63 6f 73 78 29 7d 20 7b 0a 09 09 20 20 20 20 69 cosx)} {... i
4db0: 66 20 7b 24 73 6c 6f 74 28 24 70 6c 61 74 29 7d f {$slot($plat)}
4dc0: 20 7b 0a 09 09 09 61 70 70 65 6e 64 20 74 65 6d {....append tem
4dd0: 70 20 5b 24 73 6c 6f 74 50 72 6f 63 20 24 6e 61 p [$slotProc $na
4de0: 6d 65 20 24 73 74 75 62 73 28 24 6e 61 6d 65 2c me $stubs($name,
4df0: 24 70 6c 61 74 2c 24 69 29 20 24 69 5d 0a 09 09 $plat,$i) $i]...
4e00: 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 24 6f } elseif {$o
4e10: 6e 41 6c 6c 7d 20 7b 0a 09 09 09 65 76 61 6c 20 nAll} {....eval
4e20: 7b 61 70 70 65 6e 64 20 74 65 6d 70 7d 20 24 73 {append temp} $s
4e30: 6b 69 70 53 74 72 69 6e 67 0a 09 09 20 20 20 20 kipString...
4e40: 7d 0a 09 09 7d 0a 09 09 69 66 20 7b 24 74 65 6d }...}...if {$tem
4e50: 70 20 6e 65 20 22 22 7d 20 7b 0a 09 09 20 20 20 p ne ""} {...
4e60: 20 61 70 70 65 6e 64 20 74 65 78 74 20 5b 61 64 append text [ad
4e70: 64 50 6c 61 74 66 6f 72 6d 47 75 61 72 64 20 24 dPlatformGuard $
4e80: 70 6c 61 74 20 24 74 65 6d 70 5d 0a 09 09 20 20 plat $temp]...
4e90: 20 20 73 65 74 20 65 6d 69 74 20 31 0a 09 09 7d set emit 1...}
4ea0: 0a 09 09 23 23 20 77 69 6e 20 23 23 0a 09 09 73 ...## win ##...s
4eb0: 65 74 20 74 65 6d 70 20 7b 7d 0a 09 09 73 65 74 et temp {}...set
4ec0: 20 70 6c 61 74 20 77 69 6e 0a 09 09 69 66 20 7b plat win...if {
4ed0: 24 73 6c 6f 74 28 24 70 6c 61 74 29 7d 20 7b 0a $slot($plat)} {.
4ee0: 09 09 20 20 20 20 61 70 70 65 6e 64 20 74 65 6d .. append tem
4ef0: 70 20 5b 24 73 6c 6f 74 50 72 6f 63 20 24 6e 61 p [$slotProc $na
4f00: 6d 65 20 24 73 74 75 62 73 28 24 6e 61 6d 65 2c me $stubs($name,
4f10: 24 70 6c 61 74 2c 24 69 29 20 24 69 5d 0a 09 09 $plat,$i) $i]...
4f20: 7d 20 65 6c 73 65 69 66 20 7b 24 6f 6e 41 6c 6c } elseif {$onAll
4f30: 7d 20 7b 0a 09 09 20 20 20 20 65 76 61 6c 20 7b } {... eval {
4f40: 61 70 70 65 6e 64 20 74 65 6d 70 7d 20 24 73 6b append temp} $sk
4f50: 69 70 53 74 72 69 6e 67 0a 09 09 7d 0a 09 09 69 ipString...}...i
4f60: 66 20 7b 24 74 65 6d 70 20 6e 65 20 22 22 7d 20 f {$temp ne ""}
4f70: 7b 0a 09 09 20 20 20 20 61 70 70 65 6e 64 20 74 {... append t
4f80: 65 78 74 20 5b 61 64 64 50 6c 61 74 66 6f 72 6d ext [addPlatform
4f90: 47 75 61 72 64 20 24 70 6c 61 74 20 24 74 65 6d Guard $plat $tem
4fa0: 70 5d 0a 09 09 20 20 20 20 73 65 74 20 65 6d 69 p]... set emi
4fb0: 74 20 31 0a 09 09 7d 0a 09 09 23 23 20 6d 61 63 t 1...}...## mac
4fc0: 6f 73 78 20 23 23 0a 09 09 73 65 74 20 74 65 6d osx ##...set tem
4fd0: 70 20 7b 7d 0a 09 09 73 65 74 20 70 6c 61 74 20 p {}...set plat
4fe0: 6d 61 63 6f 73 78 0a 09 09 69 66 20 7b 21 24 73 macosx...if {!$s
4ff0: 6c 6f 74 28 61 71 75 61 29 20 26 26 20 21 24 73 lot(aqua) && !$s
5000: 6c 6f 74 28 78 31 31 29 7d 20 7b 0a 09 09 20 20 lot(x11)} {...
5010: 20 20 69 66 20 7b 24 73 6c 6f 74 28 24 70 6c 61 if {$slot($pla
5020: 74 29 7d 20 7b 0a 09 09 09 61 70 70 65 6e 64 20 t)} {....append
5030: 74 65 6d 70 20 5b 24 73 6c 6f 74 50 72 6f 63 20 temp [$slotProc
5040: 24 6e 61 6d 65 20 24 73 74 75 62 73 28 24 6e 61 $name $stubs($na
5050: 6d 65 2c 24 70 6c 61 74 2c 24 69 29 20 24 69 5d me,$plat,$i) $i]
5060: 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 69 66 20 ... } elseif
5070: 7b 24 73 6c 6f 74 28 75 6e 69 78 29 7d 20 7b 0a {$slot(unix)} {.
5080: 09 09 09 61 70 70 65 6e 64 20 74 65 6d 70 20 5b ...append temp [
5090: 24 73 6c 6f 74 50 72 6f 63 20 24 6e 61 6d 65 20 $slotProc $name
50a0: 24 73 74 75 62 73 28 24 6e 61 6d 65 2c 75 6e 69 $stubs($name,uni
50b0: 78 2c 24 69 29 20 24 69 5d 0a 09 09 20 20 20 20 x,$i) $i]...
50c0: 7d 20 65 6c 73 65 69 66 20 7b 24 6f 6e 41 6c 6c } elseif {$onAll
50d0: 7d 20 7b 0a 09 09 09 65 76 61 6c 20 7b 61 70 70 } {....eval {app
50e0: 65 6e 64 20 74 65 6d 70 7d 20 24 73 6b 69 70 53 end temp} $skipS
50f0: 74 72 69 6e 67 0a 09 09 20 20 20 20 7d 0a 09 09 tring... }...
5100: 7d 0a 09 09 69 66 20 7b 24 74 65 6d 70 20 6e 65 }...if {$temp ne
5110: 20 22 22 7d 20 7b 0a 09 09 20 20 20 20 61 70 70 ""} {... app
5120: 65 6e 64 20 74 65 78 74 20 5b 61 64 64 50 6c 61 end text [addPla
5130: 74 66 6f 72 6d 47 75 61 72 64 20 24 70 6c 61 74 tformGuard $plat
5140: 20 24 74 65 6d 70 5d 0a 09 09 20 20 20 20 73 65 $temp]... se
5150: 74 20 65 6d 69 74 20 31 0a 09 09 7d 0a 09 09 23 t emit 1...}...#
5160: 23 20 61 71 75 61 20 23 23 0a 09 09 73 65 74 20 # aqua ##...set
5170: 74 65 6d 70 20 7b 7d 0a 09 09 73 65 74 20 70 6c temp {}...set pl
5180: 61 74 20 61 71 75 61 0a 09 09 69 66 20 7b 21 24 at aqua...if {!$
5190: 73 6c 6f 74 28 75 6e 69 78 29 20 26 26 20 21 24 slot(unix) && !$
51a0: 73 6c 6f 74 28 6d 61 63 6f 73 78 29 7d 20 7b 0a slot(macosx)} {.
51b0: 09 09 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e .. if {[strin
51c0: 67 20 72 61 6e 67 65 20 24 73 6b 69 70 53 74 72 g range $skipStr
51d0: 69 6e 67 20 31 20 32 5d 20 6e 65 20 22 2f 2a 22 ing 1 2] ne "/*"
51e0: 7d 20 7b 0a 09 09 09 23 20 67 65 6e 53 74 75 62 } {....# genStub
51f0: 73 2e 74 63 6c 20 70 72 65 76 69 6f 75 73 6c 79 s.tcl previously
5200: 20 68 61 64 20 61 20 62 75 67 20 68 65 72 65 20 had a bug here
5210: 63 61 75 73 69 6e 67 20 69 74 20 74 6f 0a 09 09 causing it to...
5220: 09 23 20 65 72 72 6f 6e 65 6f 75 73 6c 79 20 67 .# erroneously g
5230: 65 6e 65 72 61 74 65 20 62 6f 74 68 20 61 20 75 enerate both a u
5240: 6e 69 78 20 65 6e 74 72 79 20 61 6e 64 20 61 6e nix entry and an
5250: 20 61 71 75 61 0a 09 09 09 23 20 65 6e 74 72 79 aqua....# entry
5260: 20 66 6f 72 20 61 20 67 69 76 65 6e 20 73 74 75 for a given stu
5270: 62 73 20 74 61 62 6c 65 20 73 6c 6f 74 2e 20 54 bs table slot. T
5280: 6f 20 70 72 65 73 65 72 76 65 0a 09 09 09 23 20 o preserve....#
5290: 62 61 63 6b 77 61 72 64 73 20 63 6f 6d 70 61 74 backwards compat
52a0: 69 62 69 6c 69 74 79 2c 20 67 65 6e 65 72 61 74 ibility, generat
52b0: 65 20 61 20 64 75 6d 6d 79 20 73 74 75 62 73 20 e a dummy stubs
52c0: 65 6e 74 72 79 0a 09 09 09 23 20 62 65 66 6f 72 entry....# befor
52d0: 65 20 65 76 65 72 79 20 61 71 75 61 20 65 6e 74 e every aqua ent
52e0: 72 79 20 28 6e 6f 74 65 20 74 68 61 74 20 74 68 ry (note that th
52f0: 69 73 20 62 72 65 61 6b 73 20 74 68 65 0a 09 09 is breaks the...
5300: 09 23 20 63 6f 72 72 65 73 70 6f 6e 64 65 6e 63 .# correspondenc
5310: 65 20 62 65 74 77 65 65 6e 20 65 6d 69 74 74 65 e between emitte
5320: 64 20 65 6e 74 72 79 20 6e 75 6d 62 65 72 20 61 d entry number a
5330: 6e 64 0a 09 09 09 23 20 61 63 74 75 61 6c 20 70 nd....# actual p
5340: 6f 73 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 65 osition of the e
5350: 6e 74 72 79 20 69 6e 20 74 68 65 20 73 74 75 62 ntry in the stub
5360: 73 20 74 61 62 6c 65 2c 20 65 2e 67 2e 0a 09 09 s table, e.g....
5370: 09 23 20 54 6b 49 6e 74 53 74 75 62 73 20 65 6e .# TkIntStubs en
5380: 74 72 79 20 31 31 33 20 66 6f 72 20 61 71 75 61 try 113 for aqua
5390: 20 69 73 20 69 6e 20 66 61 63 74 20 61 74 20 70 is in fact at p
53a0: 6f 73 69 74 69 6f 6e 0a 09 09 09 23 20 31 31 34 osition....# 114
53b0: 20 69 6e 20 74 68 65 20 74 61 62 6c 65 2c 20 65 in the table, e
53c0: 6e 74 72 79 20 31 31 34 20 61 74 20 70 6f 73 69 ntry 114 at posi
53d0: 74 69 6f 6e 20 31 31 36 20 65 74 63 29 2e 0a 09 tion 116 etc)...
53e0: 09 09 65 76 61 6c 20 7b 61 70 70 65 6e 64 20 74 ..eval {append t
53f0: 65 6d 70 7d 20 24 73 6b 69 70 53 74 72 69 6e 67 emp} $skipString
5400: 0a 09 09 09 73 65 74 20 74 65 6d 70 20 22 23 20 ....set temp "#
5410: 69 66 20 54 43 4c 5f 4d 41 4a 4f 52 5f 56 45 52 if TCL_MAJOR_VER
5420: 53 49 4f 4e 20 3c 20 39 5c 6e 5b 73 74 72 69 6e SION < 9\n[strin
5430: 67 20 72 61 6e 67 65 20 24 74 65 6d 70 20 30 20 g range $temp 0
5440: 65 6e 64 2d 31 5d 20 2f 2a 5c 0a 09 09 09 09 44 end-1] /*\.....D
5450: 75 6d 6d 79 20 65 6e 74 72 79 20 66 6f 72 20 73 ummy entry for s
5460: 74 75 62 73 20 74 61 62 6c 65 20 62 61 63 6b 77 tubs table backw
5470: 61 72 64 73 5c 0a 09 09 09 09 63 6f 6d 70 61 74 ards\.....compat
5480: 69 62 69 6c 69 74 79 20 2a 2f 5c 6e 23 20 65 6e ibility */\n# en
5490: 64 69 66 20 2f 2a 20 54 43 4c 5f 4d 41 4a 4f 52 dif /* TCL_MAJOR
54a0: 5f 56 45 52 53 49 4f 4e 20 3c 20 39 20 2a 2f 5c _VERSION < 9 */\
54b0: 6e 22 0a 09 09 20 20 20 20 7d 0a 09 09 20 20 20 n"... }...
54c0: 20 69 66 20 7b 24 73 6c 6f 74 28 24 70 6c 61 74 if {$slot($plat
54d0: 29 7d 20 7b 0a 09 09 09 61 70 70 65 6e 64 20 74 )} {....append t
54e0: 65 6d 70 20 5b 24 73 6c 6f 74 50 72 6f 63 20 24 emp [$slotProc $
54f0: 6e 61 6d 65 20 24 73 74 75 62 73 28 24 6e 61 6d name $stubs($nam
5500: 65 2c 24 70 6c 61 74 2c 24 69 29 20 24 69 5d 0a e,$plat,$i) $i].
5510: 09 09 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b .. } elseif {
5520: 24 6f 6e 41 6c 6c 7d 20 7b 0a 09 09 09 65 76 61 $onAll} {....eva
5530: 6c 20 7b 61 70 70 65 6e 64 20 74 65 6d 70 7d 20 l {append temp}
5540: 24 73 6b 69 70 53 74 72 69 6e 67 0a 09 09 20 20 $skipString...
5550: 20 20 7d 0a 09 09 7d 0a 09 09 69 66 20 7b 24 74 }...}...if {$t
5560: 65 6d 70 20 6e 65 20 22 22 7d 20 7b 0a 09 09 20 emp ne ""} {...
5570: 20 20 20 61 70 70 65 6e 64 20 74 65 78 74 20 5b append text [
5580: 61 64 64 50 6c 61 74 66 6f 72 6d 47 75 61 72 64 addPlatformGuard
5590: 20 24 70 6c 61 74 20 24 74 65 6d 70 5d 0a 09 09 $plat $temp]...
55a0: 20 20 20 20 73 65 74 20 65 6d 69 74 20 31 0a 09 set emit 1..
55b0: 09 7d 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 69 .}.. }.. i
55c0: 66 20 7b 21 24 65 6d 69 74 7d 20 7b 0a 09 09 65 f {!$emit} {...e
55d0: 76 61 6c 20 7b 61 70 70 65 6e 64 20 74 65 78 74 val {append text
55e0: 7d 20 24 73 6b 69 70 53 74 72 69 6e 67 0a 09 20 } $skipString..
55f0: 20 20 20 7d 0a 09 7d 0a 20 20 20 20 7d 20 65 6c }..}. } el
5600: 73 65 20 7b 0a 09 23 20 45 6d 69 74 20 73 65 70 se {..# Emit sep
5610: 61 72 61 74 65 20 73 74 75 62 73 20 62 6c 6f 63 arate stubs bloc
5620: 6b 73 20 70 65 72 20 70 6c 61 74 66 6f 72 6d 0a ks per platform.
5630: 09 61 72 72 61 79 20 73 65 74 20 62 6c 6f 63 6b .array set block
5640: 20 7b 75 6e 69 78 20 30 20 78 31 31 20 30 20 77 {unix 0 x11 0 w
5650: 69 6e 20 30 20 6d 61 63 6f 73 78 20 30 20 61 71 in 0 macosx 0 aq
5660: 75 61 20 30 7d 0a 09 66 6f 72 65 61 63 68 20 73 ua 0}..foreach s
5670: 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 73 74 [array names st
5680: 75 62 73 20 24 6e 61 6d 65 2c 2a 2c 6c 61 73 74 ubs $name,*,last
5690: 4e 75 6d 5d 20 7b 0a 09 20 20 20 20 73 65 74 20 Num] {.. set
56a0: 62 6c 6f 63 6b 28 5b 6c 69 6e 64 65 78 20 5b 73 block([lindex [s
56b0: 70 6c 69 74 20 24 73 20 2c 5d 20 31 5d 29 20 31 plit $s ,] 1]) 1
56c0: 0a 09 7d 0a 09 23 23 20 75 6e 69 78 20 23 23 0a ..}..## unix ##.
56d0: 09 69 66 20 7b 24 62 6c 6f 63 6b 28 75 6e 69 78 .if {$block(unix
56e0: 29 20 26 26 20 21 24 62 6c 6f 63 6b 28 78 31 31 ) && !$block(x11
56f0: 29 7d 20 7b 0a 09 20 20 20 20 73 65 74 20 74 65 )} {.. set te
5700: 6d 70 20 7b 7d 0a 09 20 20 20 20 73 65 74 20 70 mp {}.. set p
5710: 6c 61 74 20 75 6e 69 78 0a 09 20 20 20 20 73 65 lat unix.. se
5720: 74 20 6c 61 73 74 4e 75 6d 20 24 73 74 75 62 73 t lastNum $stubs
5730: 28 24 6e 61 6d 65 2c 24 70 6c 61 74 2c 6c 61 73 ($name,$plat,las
5740: 74 4e 75 6d 29 0a 09 20 20 20 20 66 6f 72 20 7b tNum).. for {
5750: 73 65 74 20 69 20 30 7d 20 7b 24 69 20 3c 3d 20 set i 0} {$i <=
5760: 24 6c 61 73 74 4e 75 6d 7d 20 7b 69 6e 63 72 20 $lastNum} {incr
5770: 69 7d 20 7b 0a 09 09 69 66 20 7b 5b 69 6e 66 6f i} {...if {[info
5780: 20 65 78 69 73 74 73 20 73 74 75 62 73 28 24 6e exists stubs($n
5790: 61 6d 65 2c 24 70 6c 61 74 2c 24 69 29 5d 7d 20 ame,$plat,$i)]}
57a0: 7b 0a 09 09 20 20 20 20 61 70 70 65 6e 64 20 74 {... append t
57b0: 65 6d 70 20 5b 24 73 6c 6f 74 50 72 6f 63 20 24 emp [$slotProc $
57c0: 6e 61 6d 65 20 24 73 74 75 62 73 28 24 6e 61 6d name $stubs($nam
57d0: 65 2c 24 70 6c 61 74 2c 24 69 29 20 24 69 5d 0a e,$plat,$i) $i].
57e0: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20 20 ..} else {...
57f0: 20 65 76 61 6c 20 7b 61 70 70 65 6e 64 20 74 65 eval {append te
5800: 6d 70 7d 20 24 73 6b 69 70 53 74 72 69 6e 67 0a mp} $skipString.
5810: 09 09 7d 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 ..}.. }..
5820: 61 70 70 65 6e 64 20 74 65 78 74 20 5b 61 64 64 append text [add
5830: 50 6c 61 74 66 6f 72 6d 47 75 61 72 64 20 24 70 PlatformGuard $p
5840: 6c 61 74 20 24 74 65 6d 70 20 7b 7d 20 74 72 75 lat $temp {} tru
5850: 65 5d 0a 09 7d 0a 09 23 23 20 77 69 6e 20 23 23 e]..}..## win ##
5860: 0a 09 69 66 20 7b 24 62 6c 6f 63 6b 28 77 69 6e ..if {$block(win
5870: 29 7d 20 7b 0a 09 20 20 20 20 73 65 74 20 74 65 )} {.. set te
5880: 6d 70 20 7b 7d 0a 09 20 20 20 20 73 65 74 20 70 mp {}.. set p
5890: 6c 61 74 20 77 69 6e 0a 09 20 20 20 20 73 65 74 lat win.. set
58a0: 20 6c 61 73 74 4e 75 6d 20 24 73 74 75 62 73 28 lastNum $stubs(
58b0: 24 6e 61 6d 65 2c 24 70 6c 61 74 2c 6c 61 73 74 $name,$plat,last
58c0: 4e 75 6d 29 0a 09 20 20 20 20 66 6f 72 20 7b 73 Num).. for {s
58d0: 65 74 20 69 20 30 7d 20 7b 24 69 20 3c 3d 20 24 et i 0} {$i <= $
58e0: 6c 61 73 74 4e 75 6d 7d 20 7b 69 6e 63 72 20 69 lastNum} {incr i
58f0: 7d 20 7b 0a 09 09 69 66 20 7b 5b 69 6e 66 6f 20 } {...if {[info
5900: 65 78 69 73 74 73 20 73 74 75 62 73 28 24 6e 61 exists stubs($na
5910: 6d 65 2c 24 70 6c 61 74 2c 24 69 29 5d 7d 20 7b me,$plat,$i)]} {
5920: 0a 09 09 20 20 20 20 61 70 70 65 6e 64 20 74 65 ... append te
5930: 6d 70 20 5b 24 73 6c 6f 74 50 72 6f 63 20 24 6e mp [$slotProc $n
5940: 61 6d 65 20 24 73 74 75 62 73 28 24 6e 61 6d 65 ame $stubs($name
5950: 2c 24 70 6c 61 74 2c 24 69 29 20 24 69 5d 0a 09 ,$plat,$i) $i]..
5960: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20 20 20 .} else {...
5970: 65 76 61 6c 20 7b 61 70 70 65 6e 64 20 74 65 6d eval {append tem
5980: 70 7d 20 24 73 6b 69 70 53 74 72 69 6e 67 0a 09 p} $skipString..
5990: 09 7d 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 61 .}.. }.. a
59a0: 70 70 65 6e 64 20 74 65 78 74 20 5b 61 64 64 50 ppend text [addP
59b0: 6c 61 74 66 6f 72 6d 47 75 61 72 64 20 24 70 6c latformGuard $pl
59c0: 61 74 20 24 74 65 6d 70 20 7b 7d 20 74 72 75 65 at $temp {} true
59d0: 5d 0a 09 7d 0a 09 23 23 20 6d 61 63 6f 73 78 20 ]..}..## macosx
59e0: 23 23 0a 09 69 66 20 7b 28 24 62 6c 6f 63 6b 28 ##..if {($block(
59f0: 75 6e 69 78 29 20 7c 7c 20 24 62 6c 6f 63 6b 28 unix) || $block(
5a00: 6d 61 63 6f 73 78 29 29 20 26 26 20 21 24 62 6c macosx)) && !$bl
5a10: 6f 63 6b 28 61 71 75 61 29 20 26 26 20 21 24 62 ock(aqua) && !$b
5a20: 6c 6f 63 6b 28 78 31 31 29 7d 20 7b 0a 09 20 20 lock(x11)} {..
5a30: 20 20 73 65 74 20 74 65 6d 70 20 7b 7d 0a 09 20 set temp {}..
5a40: 20 20 20 73 65 74 20 6c 61 73 74 4e 75 6d 20 2d set lastNum -
5a50: 31 0a 09 20 20 20 20 66 6f 72 65 61 63 68 20 70 1.. foreach p
5a60: 6c 61 74 20 7b 75 6e 69 78 20 6d 61 63 6f 73 78 lat {unix macosx
5a70: 7d 20 7b 0a 09 09 69 66 20 7b 24 62 6c 6f 63 6b } {...if {$block
5a80: 28 24 70 6c 61 74 29 7d 20 7b 0a 09 09 20 20 20 ($plat)} {...
5a90: 20 73 65 74 20 6c 61 73 74 4e 75 6d 20 5b 65 78 set lastNum [ex
5aa0: 70 72 20 7b 24 6c 61 73 74 4e 75 6d 20 3e 20 24 pr {$lastNum > $
5ab0: 73 74 75 62 73 28 24 6e 61 6d 65 2c 24 70 6c 61 stubs($name,$pla
5ac0: 74 2c 6c 61 73 74 4e 75 6d 29 0a 09 09 09 20 20 t,lastNum)....
5ad0: 20 20 3f 20 24 6c 61 73 74 4e 75 6d 20 3a 20 24 ? $lastNum : $
5ae0: 73 74 75 62 73 28 24 6e 61 6d 65 2c 24 70 6c 61 stubs($name,$pla
5af0: 74 2c 6c 61 73 74 4e 75 6d 29 7d 5d 0a 09 09 7d t,lastNum)}]...}
5b00: 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 66 6f 72 .. }.. for
5b10: 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 20 3c {set i 0} {$i <
5b20: 3d 20 24 6c 61 73 74 4e 75 6d 7d 20 7b 69 6e 63 = $lastNum} {inc
5b30: 72 20 69 7d 20 7b 0a 09 09 73 65 74 20 65 6d 69 r i} {...set emi
5b40: 74 20 30 0a 09 09 66 6f 72 65 61 63 68 20 70 6c t 0...foreach pl
5b50: 61 74 20 7b 75 6e 69 78 20 6d 61 63 6f 73 78 7d at {unix macosx}
5b60: 20 7b 0a 09 09 20 20 20 20 69 66 20 7b 5b 69 6e {... if {[in
5b70: 66 6f 20 65 78 69 73 74 73 20 73 74 75 62 73 28 fo exists stubs(
5b80: 24 6e 61 6d 65 2c 24 70 6c 61 74 2c 24 69 29 5d $name,$plat,$i)]
5b90: 7d 20 7b 0a 09 09 09 61 70 70 65 6e 64 20 74 65 } {....append te
5ba0: 6d 70 20 5b 24 73 6c 6f 74 50 72 6f 63 20 24 6e mp [$slotProc $n
5bb0: 61 6d 65 20 24 73 74 75 62 73 28 24 6e 61 6d 65 ame $stubs($name
5bc0: 2c 24 70 6c 61 74 2c 24 69 29 20 24 69 5d 0a 09 ,$plat,$i) $i]..
5bd0: 09 09 73 65 74 20 65 6d 69 74 20 31 0a 09 09 09 ..set emit 1....
5be0: 62 72 65 61 6b 0a 09 09 20 20 20 20 7d 0a 09 09 break... }...
5bf0: 7d 0a 09 09 69 66 20 7b 21 24 65 6d 69 74 7d 20 }...if {!$emit}
5c00: 7b 0a 09 09 20 20 20 20 65 76 61 6c 20 7b 61 70 {... eval {ap
5c10: 70 65 6e 64 20 74 65 6d 70 7d 20 24 73 6b 69 70 pend temp} $skip
5c20: 53 74 72 69 6e 67 0a 09 09 7d 0a 09 20 20 20 20 String...}..
5c30: 7d 0a 09 20 20 20 20 61 70 70 65 6e 64 20 74 65 }.. append te
5c40: 78 74 20 5b 61 64 64 50 6c 61 74 66 6f 72 6d 47 xt [addPlatformG
5c50: 75 61 72 64 20 6d 61 63 6f 73 78 20 24 74 65 6d uard macosx $tem
5c60: 70 5d 0a 09 7d 0a 09 23 23 20 61 71 75 61 20 23 p]..}..## aqua #
5c70: 23 0a 09 69 66 20 7b 24 62 6c 6f 63 6b 28 61 71 #..if {$block(aq
5c80: 75 61 29 7d 20 7b 0a 09 20 20 20 20 73 65 74 20 ua)} {.. set
5c90: 74 65 6d 70 20 7b 7d 0a 09 20 20 20 20 73 65 74 temp {}.. set
5ca0: 20 6c 61 73 74 4e 75 6d 20 2d 31 0a 09 20 20 20 lastNum -1..
5cb0: 20 66 6f 72 65 61 63 68 20 70 6c 61 74 20 7b 75 foreach plat {u
5cc0: 6e 69 78 20 6d 61 63 6f 73 78 20 61 71 75 61 7d nix macosx aqua}
5cd0: 20 7b 0a 09 09 69 66 20 7b 24 62 6c 6f 63 6b 28 {...if {$block(
5ce0: 24 70 6c 61 74 29 7d 20 7b 0a 09 09 20 20 20 20 $plat)} {...
5cf0: 73 65 74 20 6c 61 73 74 4e 75 6d 20 5b 65 78 70 set lastNum [exp
5d00: 72 20 7b 24 6c 61 73 74 4e 75 6d 20 3e 20 24 73 r {$lastNum > $s
5d10: 74 75 62 73 28 24 6e 61 6d 65 2c 24 70 6c 61 74 tubs($name,$plat
5d20: 2c 6c 61 73 74 4e 75 6d 29 0a 09 09 09 20 20 20 ,lastNum)....
5d30: 20 3f 20 24 6c 61 73 74 4e 75 6d 20 3a 20 24 73 ? $lastNum : $s
5d40: 74 75 62 73 28 24 6e 61 6d 65 2c 24 70 6c 61 74 tubs($name,$plat
5d50: 2c 6c 61 73 74 4e 75 6d 29 7d 5d 0a 09 09 7d 0a ,lastNum)}]...}.
5d60: 09 20 20 20 20 7d 0a 09 20 20 20 20 66 6f 72 20 . }.. for
5d70: 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 20 3c 3d {set i 0} {$i <=
5d80: 20 24 6c 61 73 74 4e 75 6d 7d 20 7b 69 6e 63 72 $lastNum} {incr
5d90: 20 69 7d 20 7b 0a 09 09 73 65 74 20 65 6d 69 74 i} {...set emit
5da0: 20 30 0a 09 09 66 6f 72 65 61 63 68 20 70 6c 61 0...foreach pla
5db0: 74 20 7b 75 6e 69 78 20 6d 61 63 6f 73 78 20 61 t {unix macosx a
5dc0: 71 75 61 7d 20 7b 0a 09 09 20 20 20 20 69 66 20 qua} {... if
5dd0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 73 74 {[info exists st
5de0: 75 62 73 28 24 6e 61 6d 65 2c 24 70 6c 61 74 2c ubs($name,$plat,
5df0: 24 69 29 5d 7d 20 7b 0a 09 09 09 61 70 70 65 6e $i)]} {....appen
5e00: 64 20 74 65 6d 70 20 5b 24 73 6c 6f 74 50 72 6f d temp [$slotPro
5e10: 63 20 24 6e 61 6d 65 20 24 73 74 75 62 73 28 24 c $name $stubs($
5e20: 6e 61 6d 65 2c 24 70 6c 61 74 2c 24 69 29 20 24 name,$plat,$i) $
5e30: 69 5d 0a 09 09 09 73 65 74 20 65 6d 69 74 20 31 i]....set emit 1
5e40: 0a 09 09 09 62 72 65 61 6b 0a 09 09 20 20 20 20 ....break...
5e50: 7d 0a 09 09 7d 0a 09 09 69 66 20 7b 21 24 65 6d }...}...if {!$em
5e60: 69 74 7d 20 7b 0a 09 09 20 20 20 20 65 76 61 6c it} {... eval
5e70: 20 7b 61 70 70 65 6e 64 20 74 65 6d 70 7d 20 24 {append temp} $
5e80: 73 6b 69 70 53 74 72 69 6e 67 0a 09 09 7d 0a 09 skipString...}..
5e90: 20 20 20 20 7d 0a 09 20 20 20 20 61 70 70 65 6e }.. appen
5ea0: 64 20 74 65 78 74 20 5b 61 64 64 50 6c 61 74 66 d text [addPlatf
5eb0: 6f 72 6d 47 75 61 72 64 20 61 71 75 61 20 24 74 ormGuard aqua $t
5ec0: 65 6d 70 5d 0a 09 7d 0a 09 23 23 20 78 31 31 20 emp]..}..## x11
5ed0: 23 23 0a 09 69 66 20 7b 24 62 6c 6f 63 6b 28 78 ##..if {$block(x
5ee0: 31 31 29 7d 20 7b 0a 09 20 20 20 20 73 65 74 20 11)} {.. set
5ef0: 74 65 6d 70 20 7b 7d 0a 09 20 20 20 20 73 65 74 temp {}.. set
5f00: 20 6c 61 73 74 4e 75 6d 20 2d 31 0a 09 20 20 20 lastNum -1..
5f10: 20 66 6f 72 65 61 63 68 20 70 6c 61 74 20 7b 75 foreach plat {u
5f20: 6e 69 78 20 6d 61 63 6f 73 78 20 78 31 31 7d 20 nix macosx x11}
5f30: 7b 0a 09 09 69 66 20 7b 24 62 6c 6f 63 6b 28 24 {...if {$block($
5f40: 70 6c 61 74 29 7d 20 7b 0a 09 09 20 20 20 20 73 plat)} {... s
5f50: 65 74 20 6c 61 73 74 4e 75 6d 20 5b 65 78 70 72 et lastNum [expr
5f60: 20 7b 24 6c 61 73 74 4e 75 6d 20 3e 20 24 73 74 {$lastNum > $st
5f70: 75 62 73 28 24 6e 61 6d 65 2c 24 70 6c 61 74 2c ubs($name,$plat,
5f80: 6c 61 73 74 4e 75 6d 29 0a 09 09 09 20 20 20 20 lastNum)....
5f90: 3f 20 24 6c 61 73 74 4e 75 6d 20 3a 20 24 73 74 ? $lastNum : $st
5fa0: 75 62 73 28 24 6e 61 6d 65 2c 24 70 6c 61 74 2c ubs($name,$plat,
5fb0: 6c 61 73 74 4e 75 6d 29 7d 5d 0a 09 09 7d 0a 09 lastNum)}]...}..
5fc0: 20 20 20 20 7d 0a 09 20 20 20 20 66 6f 72 20 7b }.. for {
5fd0: 73 65 74 20 69 20 30 7d 20 7b 24 69 20 3c 3d 20 set i 0} {$i <=
5fe0: 24 6c 61 73 74 4e 75 6d 7d 20 7b 69 6e 63 72 20 $lastNum} {incr
5ff0: 69 7d 20 7b 0a 09 09 73 65 74 20 65 6d 69 74 20 i} {...set emit
6000: 30 0a 09 09 66 6f 72 65 61 63 68 20 70 6c 61 74 0...foreach plat
6010: 20 7b 75 6e 69 78 20 6d 61 63 6f 73 78 20 78 31 {unix macosx x1
6020: 31 7d 20 7b 0a 09 09 20 20 20 20 69 66 20 7b 5b 1} {... if {[
6030: 69 6e 66 6f 20 65 78 69 73 74 73 20 73 74 75 62 info exists stub
6040: 73 28 24 6e 61 6d 65 2c 24 70 6c 61 74 2c 24 69 s($name,$plat,$i
6050: 29 5d 7d 20 7b 0a 09 09 09 69 66 20 7b 24 70 6c )]} {....if {$pl
6060: 61 74 20 6e 65 20 22 6d 61 63 6f 73 78 22 7d 20 at ne "macosx"}
6070: 7b 0a 09 09 09 20 20 20 20 61 70 70 65 6e 64 20 {.... append
6080: 74 65 6d 70 20 5b 24 73 6c 6f 74 50 72 6f 63 20 temp [$slotProc
6090: 24 6e 61 6d 65 20 5c 0a 09 09 09 09 20 20 20 20 $name \.....
60a0: 24 73 74 75 62 73 28 24 6e 61 6d 65 2c 24 70 6c $stubs($name,$pl
60b0: 61 74 2c 24 69 29 20 24 69 5d 0a 09 09 09 7d 20 at,$i) $i]....}
60c0: 65 6c 73 65 20 7b 0a 09 09 09 20 20 20 20 65 76 else {.... ev
60d0: 61 6c 20 7b 73 65 74 20 65 74 78 74 7d 20 24 73 al {set etxt} $s
60e0: 6b 69 70 53 74 72 69 6e 67 0a 09 09 09 20 20 20 kipString....
60f0: 20 61 70 70 65 6e 64 20 74 65 6d 70 20 5b 61 64 append temp [ad
6100: 64 50 6c 61 74 66 6f 72 6d 47 75 61 72 64 20 24 dPlatformGuard $
6110: 70 6c 61 74 20 5b 24 73 6c 6f 74 50 72 6f 63 20 plat [$slotProc
6120: 5c 0a 09 09 09 09 20 20 20 20 24 6e 61 6d 65 20 \..... $name
6130: 24 73 74 75 62 73 28 24 6e 61 6d 65 2c 24 70 6c $stubs($name,$pl
6140: 61 74 2c 24 69 29 20 24 69 5d 20 24 65 74 78 74 at,$i) $i] $etxt
6150: 20 74 72 75 65 5d 0a 09 09 09 7d 0a 09 09 09 73 true]....}....s
6160: 65 74 20 65 6d 69 74 20 31 0a 09 09 09 62 72 65 et emit 1....bre
6170: 61 6b 0a 09 09 20 20 20 20 7d 0a 09 09 7d 0a 09 ak... }...}..
6180: 09 69 66 20 7b 21 24 65 6d 69 74 7d 20 7b 0a 09 .if {!$emit} {..
6190: 09 20 20 20 20 65 76 61 6c 20 7b 61 70 70 65 6e . eval {appen
61a0: 64 20 74 65 6d 70 7d 20 24 73 6b 69 70 53 74 72 d temp} $skipStr
61b0: 69 6e 67 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 ing...}.. }..
61c0: 20 20 20 20 61 70 70 65 6e 64 20 74 65 78 74 20 append text
61d0: 5b 61 64 64 50 6c 61 74 66 6f 72 6d 47 75 61 72 [addPlatformGuar
61e0: 64 20 78 31 31 20 24 74 65 6d 70 20 7b 7d 20 74 d x11 $temp {} t
61f0: 72 75 65 5d 0a 09 7d 0a 20 20 20 20 7d 0a 7d 0a rue]..}. }.}.
6200: 0a 23 20 67 65 6e 53 74 75 62 73 3a 3a 65 6d 69 .# genStubs::emi
6210: 74 44 65 63 6c 61 72 61 74 69 6f 6e 73 20 2d 2d tDeclarations --
6220: 0a 23 0a 23 09 54 68 69 73 20 66 75 6e 63 74 69 .#.#.This functi
6230: 6f 6e 20 65 6d 69 74 73 20 74 68 65 20 66 75 6e on emits the fun
6240: 63 74 69 6f 6e 20 64 65 63 6c 61 72 61 74 69 6f ction declaratio
6250: 6e 73 20 66 6f 72 20 74 68 69 73 20 69 6e 74 65 ns for this inte
6260: 72 66 61 63 65 2e 0a 23 0a 23 20 41 72 67 75 6d rface..#.# Argum
6270: 65 6e 74 73 3a 0a 23 09 6e 61 6d 65 09 54 68 65 ents:.#.name.The
6280: 20 69 6e 74 65 72 66 61 63 65 20 6e 61 6d 65 2e interface name.
6290: 0a 23 09 74 65 78 74 56 61 72 09 54 68 65 20 76 .#.textVar.The v
62a0: 61 72 69 61 62 6c 65 20 74 6f 20 75 73 65 20 66 ariable to use f
62b0: 6f 72 20 6f 75 74 70 75 74 2e 0a 23 0a 23 20 52 or output..#.# R
62c0: 65 73 75 6c 74 73 3a 0a 23 09 4e 6f 6e 65 2e 0a esults:.#.None..
62d0: 0a 70 72 6f 63 20 67 65 6e 53 74 75 62 73 3a 3a .proc genStubs::
62e0: 65 6d 69 74 44 65 63 6c 61 72 61 74 69 6f 6e 73 emitDeclarations
62f0: 20 7b 6e 61 6d 65 20 74 65 78 74 56 61 72 7d 20 {name textVar}
6300: 7b 0a 20 20 20 20 75 70 76 61 72 20 24 74 65 78 {. upvar $tex
6310: 74 56 61 72 20 74 65 78 74 0a 0a 20 20 20 20 61 tVar text.. a
6320: 70 70 65 6e 64 20 74 65 78 74 20 22 5c 6e 2f 2a ppend text "\n/*
6330: 5c 6e 20 2a 20 45 78 70 6f 72 74 65 64 20 66 75 \n * Exported fu
6340: 6e 63 74 69 6f 6e 20 64 65 63 6c 61 72 61 74 69 nction declarati
6350: 6f 6e 73 3a 5c 6e 20 2a 2f 5c 6e 5c 6e 22 0a 20 ons:\n */\n\n".
6360: 20 20 20 66 6f 72 41 6c 6c 53 74 75 62 73 20 24 forAllStubs $
6370: 6e 61 6d 65 20 6d 61 6b 65 44 65 63 6c 20 30 20 name makeDecl 0
6380: 74 65 78 74 0a 20 20 20 20 72 65 74 75 72 6e 0a text. return.
6390: 7d 0a 0a 23 20 67 65 6e 53 74 75 62 73 3a 3a 65 }..# genStubs::e
63a0: 6d 69 74 4d 61 63 72 6f 73 20 2d 2d 0a 23 0a 23 mitMacros --.#.#
63b0: 09 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 65 .This function e
63c0: 6d 69 74 73 20 74 68 65 20 69 6e 6c 69 6e 65 20 mits the inline
63d0: 6d 61 63 72 6f 73 20 66 6f 72 20 61 6e 20 69 6e macros for an in
63e0: 74 65 72 66 61 63 65 2e 0a 23 0a 23 20 41 72 67 terface..#.# Arg
63f0: 75 6d 65 6e 74 73 3a 0a 23 09 6e 61 6d 65 09 54 uments:.#.name.T
6400: 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 69 he name of the i
6410: 6e 74 65 72 66 61 63 65 20 62 65 69 6e 67 20 65 nterface being e
6420: 6d 69 74 74 65 64 2e 0a 23 09 74 65 78 74 56 61 mitted..#.textVa
6430: 72 09 54 68 65 20 76 61 72 69 61 62 6c 65 20 74 r.The variable t
6440: 6f 20 75 73 65 20 66 6f 72 20 6f 75 74 70 75 74 o use for output
6450: 2e 0a 23 0a 23 20 52 65 73 75 6c 74 73 3a 0a 23 ..#.# Results:.#
6460: 09 4e 6f 6e 65 2e 0a 0a 70 72 6f 63 20 67 65 6e .None...proc gen
6470: 53 74 75 62 73 3a 3a 65 6d 69 74 4d 61 63 72 6f Stubs::emitMacro
6480: 73 20 7b 6e 61 6d 65 20 74 65 78 74 56 61 72 7d s {name textVar}
6490: 20 7b 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 {. variable
64a0: 6c 69 62 72 61 72 79 4e 61 6d 65 0a 20 20 20 20 libraryName.
64b0: 75 70 76 61 72 20 24 74 65 78 74 56 61 72 20 74 upvar $textVar t
64c0: 65 78 74 0a 0a 20 20 20 20 73 65 74 20 75 70 4e ext.. set upN
64d0: 61 6d 65 20 5b 73 74 72 69 6e 67 20 74 6f 75 70 ame [string toup
64e0: 70 65 72 20 24 6c 69 62 72 61 72 79 4e 61 6d 65 per $libraryName
64f0: 5d 0a 20 20 20 20 61 70 70 65 6e 64 20 74 65 78 ]. append tex
6500: 74 20 22 5c 6e 23 69 66 20 64 65 66 69 6e 65 64 t "\n#if defined
6510: 28 55 53 45 5f 24 7b 75 70 4e 61 6d 65 7d 5f 53 (USE_${upName}_S
6520: 54 55 42 53 29 5c 6e 22 0a 20 20 20 20 61 70 70 TUBS)\n". app
6530: 65 6e 64 20 74 65 78 74 20 22 5c 6e 2f 2a 5c 6e end text "\n/*\n
6540: 20 2a 20 49 6e 6c 69 6e 65 20 66 75 6e 63 74 69 * Inline functi
6550: 6f 6e 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 3a on declarations:
6560: 5c 6e 20 2a 2f 5c 6e 5c 6e 22 0a 0a 20 20 20 20 \n */\n\n"..
6570: 66 6f 72 41 6c 6c 53 74 75 62 73 20 24 6e 61 6d forAllStubs $nam
6580: 65 20 6d 61 6b 65 4d 61 63 72 6f 20 30 20 74 65 e makeMacro 0 te
6590: 78 74 0a 0a 20 20 20 20 61 70 70 65 6e 64 20 74 xt.. append t
65a0: 65 78 74 20 22 5c 6e 23 65 6e 64 69 66 20 2f 2a ext "\n#endif /*
65b0: 20 64 65 66 69 6e 65 64 28 55 53 45 5f 24 7b 75 defined(USE_${u
65c0: 70 4e 61 6d 65 7d 5f 53 54 55 42 53 29 20 2a 2f pName}_STUBS) */
65d0: 5c 6e 22 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d \n". return.}
65e0: 0a 0a 23 20 67 65 6e 53 74 75 62 73 3a 3a 65 6d ..# genStubs::em
65f0: 69 74 48 65 61 64 65 72 20 2d 2d 0a 23 0a 23 09 itHeader --.#.#.
6600: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 65 6d This function em
6610: 69 74 73 20 74 68 65 20 62 6f 64 79 20 6f 66 20 its the body of
6620: 74 68 65 20 3c 6e 61 6d 65 3e 44 65 63 6c 73 2e the <name>Decls.
6630: 68 20 66 69 6c 65 20 66 6f 72 0a 23 09 74 68 65 h file for.#.the
6640: 20 73 70 65 63 69 66 69 65 64 20 69 6e 74 65 72 specified inter
6650: 66 61 63 65 2e 0a 23 0a 23 20 41 72 67 75 6d 65 face..#.# Argume
6660: 6e 74 73 3a 0a 23 09 6e 61 6d 65 09 54 68 65 20 nts:.#.name.The
6670: 6e 61 6d 65 20 6f 66 20 74 68 65 20 69 6e 74 65 name of the inte
6680: 72 66 61 63 65 20 62 65 69 6e 67 20 65 6d 69 74 rface being emit
6690: 74 65 64 2e 0a 23 0a 23 20 52 65 73 75 6c 74 73 ted..#.# Results
66a0: 3a 0a 23 09 4e 6f 6e 65 2e 0a 0a 70 72 6f 63 20 :.#.None...proc
66b0: 67 65 6e 53 74 75 62 73 3a 3a 65 6d 69 74 48 65 genStubs::emitHe
66c0: 61 64 65 72 20 7b 6e 61 6d 65 7d 20 7b 0a 20 20 ader {name} {.
66d0: 20 20 76 61 72 69 61 62 6c 65 20 6f 75 74 44 69 variable outDi
66e0: 72 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 68 r. variable h
66f0: 6f 6f 6b 73 0a 20 20 20 20 76 61 72 69 61 62 6c ooks. variabl
6700: 65 20 65 70 6f 63 68 0a 20 20 20 20 76 61 72 69 e epoch. vari
6710: 61 62 6c 65 20 72 65 76 69 73 69 6f 6e 0a 0a 20 able revision..
6720: 20 20 20 73 65 74 20 63 61 70 4e 61 6d 65 20 5b set capName [
6730: 73 74 72 69 6e 67 20 74 6f 75 70 70 65 72 20 5b string toupper [
6740: 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24 6e 61 string index $na
6750: 6d 65 20 30 5d 5d 0a 20 20 20 20 61 70 70 65 6e me 0]]. appen
6760: 64 20 63 61 70 4e 61 6d 65 20 5b 73 74 72 69 6e d capName [strin
6770: 67 20 72 61 6e 67 65 20 24 6e 61 6d 65 20 31 20 g range $name 1
6780: 65 6e 64 5d 0a 0a 20 20 20 20 69 66 20 7b 24 65 end].. if {$e
6790: 70 6f 63 68 20 6e 65 20 22 22 7d 20 7b 0a 09 73 poch ne ""} {..s
67a0: 65 74 20 43 41 50 4e 61 6d 65 20 5b 73 74 72 69 et CAPName [stri
67b0: 6e 67 20 74 6f 75 70 70 65 72 20 24 6e 61 6d 65 ng toupper $name
67c0: 5d 0a 09 61 70 70 65 6e 64 20 74 65 78 74 20 22 ]..append text "
67d0: 5c 6e 22 0a 09 61 70 70 65 6e 64 20 74 65 78 74 \n"..append text
67e0: 20 22 23 64 65 66 69 6e 65 20 24 7b 43 41 50 4e "#define ${CAPN
67f0: 61 6d 65 7d 5f 53 54 55 42 53 5f 45 50 4f 43 48 ame}_STUBS_EPOCH
6800: 20 24 65 70 6f 63 68 5c 6e 22 0a 09 61 70 70 65 $epoch\n"..appe
6810: 6e 64 20 74 65 78 74 20 22 23 64 65 66 69 6e 65 nd text "#define
6820: 20 24 7b 43 41 50 4e 61 6d 65 7d 5f 53 54 55 42 ${CAPName}_STUB
6830: 53 5f 52 45 56 49 53 49 4f 4e 20 24 72 65 76 69 S_REVISION $revi
6840: 73 69 6f 6e 5c 6e 22 0a 20 20 20 20 7d 0a 0a 20 sion\n". }..
6850: 20 20 20 61 70 70 65 6e 64 20 74 65 78 74 20 22 append text "
6860: 5c 6e 23 69 66 64 65 66 20 5f 5f 63 70 6c 75 73 \n#ifdef __cplus
6870: 70 6c 75 73 5c 6e 65 78 74 65 72 6e 20 5c 22 43 plus\nextern \"C
6880: 5c 22 20 7b 5c 6e 23 65 6e 64 69 66 5c 6e 22 0a \" {\n#endif\n".
6890: 0a 20 20 20 20 65 6d 69 74 44 65 63 6c 61 72 61 . emitDeclara
68a0: 74 69 6f 6e 73 20 24 6e 61 6d 65 20 74 65 78 74 tions $name text
68b0: 0a 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 .. if {[info
68c0: 65 78 69 73 74 73 20 68 6f 6f 6b 73 28 24 6e 61 exists hooks($na
68d0: 6d 65 29 5d 7d 20 7b 0a 09 61 70 70 65 6e 64 20 me)]} {..append
68e0: 74 65 78 74 20 22 5c 6e 74 79 70 65 64 65 66 20 text "\ntypedef
68f0: 73 74 72 75 63 74 20 7b 5c 6e 22 0a 09 66 6f 72 struct {\n"..for
6900: 65 61 63 68 20 68 6f 6f 6b 20 24 68 6f 6f 6b 73 each hook $hooks
6910: 28 24 6e 61 6d 65 29 20 7b 0a 09 20 20 20 20 73 ($name) {.. s
6920: 65 74 20 63 61 70 48 6f 6f 6b 20 5b 73 74 72 69 et capHook [stri
6930: 6e 67 20 74 6f 75 70 70 65 72 20 5b 73 74 72 69 ng toupper [stri
6940: 6e 67 20 69 6e 64 65 78 20 24 68 6f 6f 6b 20 30 ng index $hook 0
6950: 5d 5d 0a 09 20 20 20 20 61 70 70 65 6e 64 20 63 ]].. append c
6960: 61 70 48 6f 6f 6b 20 5b 73 74 72 69 6e 67 20 72 apHook [string r
6970: 61 6e 67 65 20 24 68 6f 6f 6b 20 31 20 65 6e 64 ange $hook 1 end
6980: 5d 0a 09 20 20 20 20 61 70 70 65 6e 64 20 74 65 ].. append te
6990: 78 74 20 22 20 20 20 20 63 6f 6e 73 74 20 73 74 xt " const st
69a0: 72 75 63 74 20 24 7b 63 61 70 48 6f 6f 6b 7d 53 ruct ${capHook}S
69b0: 74 75 62 73 20 2a 24 7b 68 6f 6f 6b 7d 53 74 75 tubs *${hook}Stu
69c0: 62 73 3b 5c 6e 22 0a 09 7d 0a 09 61 70 70 65 6e bs;\n"..}..appen
69d0: 64 20 74 65 78 74 20 22 7d 20 24 7b 63 61 70 4e d text "} ${capN
69e0: 61 6d 65 7d 53 74 75 62 48 6f 6f 6b 73 3b 5c 6e ame}StubHooks;\n
69f0: 22 0a 20 20 20 20 7d 0a 20 20 20 20 61 70 70 65 ". }. appe
6a00: 6e 64 20 74 65 78 74 20 22 5c 6e 74 79 70 65 64 nd text "\ntyped
6a10: 65 66 20 73 74 72 75 63 74 20 24 7b 63 61 70 4e ef struct ${capN
6a20: 61 6d 65 7d 53 74 75 62 73 20 7b 5c 6e 22 0a 20 ame}Stubs {\n".
6a30: 20 20 20 61 70 70 65 6e 64 20 74 65 78 74 20 22 append text "
6a40: 20 20 20 20 69 6e 74 20 6d 61 67 69 63 3b 5c 6e int magic;\n
6a50: 22 0a 20 20 20 20 69 66 20 7b 24 65 70 6f 63 68 ". if {$epoch
6a60: 20 6e 65 20 22 22 7d 20 7b 0a 09 61 70 70 65 6e ne ""} {..appen
6a70: 64 20 74 65 78 74 20 22 20 20 20 20 69 6e 74 20 d text " int
6a80: 65 70 6f 63 68 3b 5c 6e 22 0a 09 61 70 70 65 6e epoch;\n"..appen
6a90: 64 20 74 65 78 74 20 22 20 20 20 20 69 6e 74 20 d text " int
6aa0: 72 65 76 69 73 69 6f 6e 3b 5c 6e 22 0a 20 20 20 revision;\n".
6ab0: 20 7d 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f }. if {[info
6ac0: 20 65 78 69 73 74 73 20 68 6f 6f 6b 73 28 24 6e exists hooks($n
6ad0: 61 6d 65 29 5d 7d 20 7b 0a 09 61 70 70 65 6e 64 ame)]} {..append
6ae0: 20 74 65 78 74 20 22 20 20 20 20 63 6f 6e 73 74 text " const
6af0: 20 24 7b 63 61 70 4e 61 6d 65 7d 53 74 75 62 48 ${capName}StubH
6b00: 6f 6f 6b 73 20 2a 68 6f 6f 6b 73 3b 5c 6e 5c 6e ooks *hooks;\n\n
6b10: 22 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ". } else {..
6b20: 61 70 70 65 6e 64 20 74 65 78 74 20 22 20 20 20 append text "
6b30: 20 76 6f 69 64 20 2a 68 6f 6f 6b 73 3b 5c 6e 5c void *hooks;\n\
6b40: 6e 22 0a 20 20 20 20 7d 0a 0a 20 20 20 20 65 6d n". }.. em
6b50: 69 74 53 6c 6f 74 73 20 24 6e 61 6d 65 20 74 65 itSlots $name te
6b60: 78 74 0a 0a 20 20 20 20 61 70 70 65 6e 64 20 74 xt.. append t
6b70: 65 78 74 20 22 7d 20 24 7b 63 61 70 4e 61 6d 65 ext "} ${capName
6b80: 7d 53 74 75 62 73 3b 5c 6e 5c 6e 22 0a 0a 20 20 }Stubs;\n\n"..
6b90: 20 20 61 70 70 65 6e 64 20 74 65 78 74 20 22 65 append text "e
6ba0: 78 74 65 72 6e 20 63 6f 6e 73 74 20 24 7b 63 61 xtern const ${ca
6bb0: 70 4e 61 6d 65 7d 53 74 75 62 73 20 2a 24 7b 6e pName}Stubs *${n
6bc0: 61 6d 65 7d 53 74 75 62 73 50 74 72 3b 5c 6e 5c ame}StubsPtr;\n\
6bd0: 6e 22 0a 20 20 20 20 61 70 70 65 6e 64 20 74 65 n". append te
6be0: 78 74 20 22 23 69 66 64 65 66 20 5f 5f 63 70 6c xt "#ifdef __cpl
6bf0: 75 73 70 6c 75 73 5c 6e 7d 5c 6e 23 65 6e 64 69 usplus\n}\n#endi
6c00: 66 5c 6e 22 0a 0a 20 20 20 20 65 6d 69 74 4d 61 f\n".. emitMa
6c10: 63 72 6f 73 20 24 6e 61 6d 65 20 74 65 78 74 0a cros $name text.
6c20: 0a 20 20 20 20 72 65 77 72 69 74 65 46 69 6c 65 . rewriteFile
6c30: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 6f 75 74 [file join $out
6c40: 44 69 72 20 24 7b 6e 61 6d 65 7d 44 65 63 6c 73 Dir ${name}Decls
6c50: 2e 68 5d 20 24 74 65 78 74 0a 20 20 20 20 72 65 .h] $text. re
6c60: 74 75 72 6e 0a 7d 0a 0a 23 20 67 65 6e 53 74 75 turn.}..# genStu
6c70: 62 73 3a 3a 65 6d 69 74 49 6e 69 74 20 2d 2d 0a bs::emitInit --.
6c80: 23 0a 23 09 47 65 6e 65 72 61 74 65 20 74 68 65 #.#.Generate the
6c90: 20 74 61 62 6c 65 20 69 6e 69 74 69 61 6c 69 7a table initializ
6ca0: 65 72 73 20 66 6f 72 20 61 6e 20 69 6e 74 65 72 ers for an inter
6cb0: 66 61 63 65 2e 0a 23 0a 23 20 41 72 67 75 6d 65 face..#.# Argume
6cc0: 6e 74 73 3a 0a 23 09 6e 61 6d 65 09 09 54 68 65 nts:.#.name..The
6cd0: 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 69 6e 74 name of the int
6ce0: 65 72 66 61 63 65 20 74 6f 20 69 6e 69 74 69 61 erface to initia
6cf0: 6c 69 7a 65 2e 0a 23 09 74 65 78 74 56 61 72 09 lize..#.textVar.
6d00: 09 54 68 65 20 76 61 72 69 61 62 6c 65 20 74 6f .The variable to
6d10: 20 75 73 65 20 66 6f 72 20 6f 75 74 70 75 74 2e use for output.
6d20: 0a 23 0a 23 20 52 65 73 75 6c 74 73 3a 0a 23 09 .#.# Results:.#.
6d30: 52 65 74 75 72 6e 73 20 74 68 65 20 66 6f 72 6d Returns the form
6d40: 61 74 74 65 64 20 6f 75 74 70 75 74 2e 0a 0a 70 atted output...p
6d50: 72 6f 63 20 67 65 6e 53 74 75 62 73 3a 3a 65 6d roc genStubs::em
6d60: 69 74 49 6e 69 74 20 7b 6e 61 6d 65 20 74 65 78 itInit {name tex
6d70: 74 56 61 72 7d 20 7b 0a 20 20 20 20 76 61 72 69 tVar} {. vari
6d80: 61 62 6c 65 20 68 6f 6f 6b 73 0a 20 20 20 20 76 able hooks. v
6d90: 61 72 69 61 62 6c 65 20 69 6e 74 65 72 66 61 63 ariable interfac
6da0: 65 73 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 es. variable
6db0: 65 70 6f 63 68 0a 20 20 20 20 75 70 76 61 72 20 epoch. upvar
6dc0: 24 74 65 78 74 56 61 72 20 74 65 78 74 0a 20 20 $textVar text.
6dd0: 20 20 73 65 74 20 72 6f 6f 74 20 31 0a 0a 20 20 set root 1..
6de0: 20 20 73 65 74 20 63 61 70 4e 61 6d 65 20 5b 73 set capName [s
6df0: 74 72 69 6e 67 20 74 6f 75 70 70 65 72 20 5b 73 tring toupper [s
6e00: 74 72 69 6e 67 20 69 6e 64 65 78 20 24 6e 61 6d tring index $nam
6e10: 65 20 30 5d 5d 0a 20 20 20 20 61 70 70 65 6e 64 e 0]]. append
6e20: 20 63 61 70 4e 61 6d 65 20 5b 73 74 72 69 6e 67 capName [string
6e30: 20 72 61 6e 67 65 20 24 6e 61 6d 65 20 31 20 65 range $name 1 e
6e40: 6e 64 5d 0a 0a 20 20 20 20 69 66 20 7b 5b 69 6e nd].. if {[in
6e50: 66 6f 20 65 78 69 73 74 73 20 68 6f 6f 6b 73 28 fo exists hooks(
6e60: 24 6e 61 6d 65 29 5d 7d 20 7b 0a 09 61 70 70 65 $name)]} {..appe
6e70: 6e 64 20 74 65 78 74 20 22 5c 6e 73 74 61 74 69 nd text "\nstati
6e80: 63 20 63 6f 6e 73 74 20 24 7b 63 61 70 4e 61 6d c const ${capNam
6e90: 65 7d 53 74 75 62 48 6f 6f 6b 73 20 24 7b 6e 61 e}StubHooks ${na
6ea0: 6d 65 7d 53 74 75 62 48 6f 6f 6b 73 20 3d 20 5c me}StubHooks = \
6eb0: 7b 5c 6e 22 0a 09 73 65 74 20 73 65 70 20 22 20 {\n"..set sep "
6ec0: 20 20 20 22 0a 09 66 6f 72 65 61 63 68 20 73 75 "..foreach su
6ed0: 62 20 24 68 6f 6f 6b 73 28 24 6e 61 6d 65 29 20 b $hooks($name)
6ee0: 7b 0a 09 20 20 20 20 61 70 70 65 6e 64 20 74 65 {.. append te
6ef0: 78 74 20 24 73 65 70 20 22 26 24 7b 73 75 62 7d xt $sep "&${sub}
6f00: 53 74 75 62 73 22 0a 09 20 20 20 20 73 65 74 20 Stubs".. set
6f10: 73 65 70 20 22 2c 5c 6e 20 20 20 20 22 0a 09 7d sep ",\n "..}
6f20: 0a 09 61 70 70 65 6e 64 20 74 65 78 74 20 22 5c ..append text "\
6f30: 6e 5c 7d 3b 5c 6e 22 0a 20 20 20 20 7d 0a 20 20 n\};\n". }.
6f40: 20 20 66 6f 72 65 61 63 68 20 69 6e 74 66 20 5b foreach intf [
6f50: 61 72 72 61 79 20 6e 61 6d 65 73 20 69 6e 74 65 array names inte
6f60: 72 66 61 63 65 73 5d 20 7b 0a 09 69 66 20 7b 5b rfaces] {..if {[
6f70: 69 6e 66 6f 20 65 78 69 73 74 73 20 68 6f 6f 6b info exists hook
6f80: 73 28 24 69 6e 74 66 29 5d 7d 20 7b 0a 09 20 20 s($intf)]} {..
6f90: 20 20 69 66 20 7b 24 6e 61 6d 65 20 69 6e 20 24 if {$name in $
6fa0: 68 6f 6f 6b 73 28 24 69 6e 74 66 29 7d 20 7b 0a hooks($intf)} {.
6fb0: 09 09 73 65 74 20 72 6f 6f 74 20 30 0a 09 09 62 ..set root 0...b
6fc0: 72 65 61 6b 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 reak.. }..}.
6fd0: 20 20 20 7d 0a 0a 20 20 20 20 61 70 70 65 6e 64 }.. append
6fe0: 20 74 65 78 74 20 22 5c 6e 22 0a 20 20 20 20 69 text "\n". i
6ff0: 66 20 7b 21 24 72 6f 6f 74 7d 20 7b 0a 09 61 70 f {!$root} {..ap
7000: 70 65 6e 64 20 74 65 78 74 20 22 73 74 61 74 69 pend text "stati
7010: 63 20 22 0a 20 20 20 20 7d 0a 20 20 20 20 61 70 c ". }. ap
7020: 70 65 6e 64 20 74 65 78 74 20 22 63 6f 6e 73 74 pend text "const
7030: 20 24 7b 63 61 70 4e 61 6d 65 7d 53 74 75 62 73 ${capName}Stubs
7040: 20 24 7b 6e 61 6d 65 7d 53 74 75 62 73 20 3d 20 ${name}Stubs =
7050: 5c 7b 5c 6e 20 20 20 20 54 43 4c 5f 53 54 55 42 \{\n TCL_STUB
7060: 5f 4d 41 47 49 43 2c 5c 6e 22 0a 20 20 20 20 69 _MAGIC,\n". i
7070: 66 20 7b 24 65 70 6f 63 68 20 6e 65 20 22 22 7d f {$epoch ne ""}
7080: 20 7b 0a 09 73 65 74 20 43 41 50 4e 61 6d 65 20 {..set CAPName
7090: 5b 73 74 72 69 6e 67 20 74 6f 75 70 70 65 72 20 [string toupper
70a0: 24 6e 61 6d 65 5d 0a 09 61 70 70 65 6e 64 20 74 $name]..append t
70b0: 65 78 74 20 22 20 20 20 20 24 7b 43 41 50 4e 61 ext " ${CAPNa
70c0: 6d 65 7d 5f 53 54 55 42 53 5f 45 50 4f 43 48 2c me}_STUBS_EPOCH,
70d0: 5c 6e 22 0a 09 61 70 70 65 6e 64 20 74 65 78 74 \n"..append text
70e0: 20 22 20 20 20 20 24 7b 43 41 50 4e 61 6d 65 7d " ${CAPName}
70f0: 5f 53 54 55 42 53 5f 52 45 56 49 53 49 4f 4e 2c _STUBS_REVISION,
7100: 5c 6e 22 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 \n". }. if
7110: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 68 {[info exists h
7120: 6f 6f 6b 73 28 24 6e 61 6d 65 29 5d 7d 20 7b 0a ooks($name)]} {.
7130: 09 61 70 70 65 6e 64 20 74 65 78 74 20 22 20 20 .append text "
7140: 20 20 26 24 7b 6e 61 6d 65 7d 53 74 75 62 48 6f &${name}StubHo
7150: 6f 6b 73 2c 5c 6e 22 0a 20 20 20 20 7d 20 65 6c oks,\n". } el
7160: 73 65 20 7b 0a 09 61 70 70 65 6e 64 20 74 65 78 se {..append tex
7170: 74 20 22 20 20 20 20 30 2c 5c 6e 22 0a 20 20 20 t " 0,\n".
7180: 20 7d 0a 0a 20 20 20 20 66 6f 72 41 6c 6c 53 74 }.. forAllSt
7190: 75 62 73 20 24 6e 61 6d 65 20 6d 61 6b 65 49 6e ubs $name makeIn
71a0: 69 74 20 31 20 74 65 78 74 20 7b 22 20 20 20 20 it 1 text {"
71b0: 30 2c 20 2f 2a 20 24 69 20 2a 2f 5c 6e 22 7d 0a 0, /* $i */\n"}.
71c0: 0a 20 20 20 20 61 70 70 65 6e 64 20 74 65 78 74 . append text
71d0: 20 22 5c 7d 3b 5c 6e 22 0a 20 20 20 20 72 65 74 "\};\n". ret
71e0: 75 72 6e 0a 7d 0a 0a 23 20 67 65 6e 53 74 75 62 urn.}..# genStub
71f0: 73 3a 3a 65 6d 69 74 49 6e 69 74 73 20 2d 2d 0a s::emitInits --.
7200: 23 0a 23 09 54 68 69 73 20 66 75 6e 63 74 69 6f #.#.This functio
7210: 6e 20 65 6d 69 74 73 20 74 68 65 20 62 6f 64 79 n emits the body
7220: 20 6f 66 20 74 68 65 20 3c 6e 61 6d 65 3e 53 74 of the <name>St
7230: 75 62 49 6e 69 74 2e 63 20 66 69 6c 65 20 66 6f ubInit.c file fo
7240: 72 0a 23 09 74 68 65 20 73 70 65 63 69 66 69 65 r.#.the specifie
7250: 64 20 69 6e 74 65 72 66 61 63 65 2e 0a 23 0a 23 d interface..#.#
7260: 20 41 72 67 75 6d 65 6e 74 73 3a 0a 23 09 6e 61 Arguments:.#.na
7270: 6d 65 09 54 68 65 20 6e 61 6d 65 20 6f 66 20 74 me.The name of t
7280: 68 65 20 69 6e 74 65 72 66 61 63 65 20 62 65 69 he interface bei
7290: 6e 67 20 65 6d 69 74 74 65 64 2e 0a 23 0a 23 20 ng emitted..#.#
72a0: 52 65 73 75 6c 74 73 3a 0a 23 09 4e 6f 6e 65 2e Results:.#.None.
72b0: 0a 0a 70 72 6f 63 20 67 65 6e 53 74 75 62 73 3a ..proc genStubs:
72c0: 3a 65 6d 69 74 49 6e 69 74 73 20 7b 7d 20 7b 0a :emitInits {} {.
72d0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 68 6f 6f variable hoo
72e0: 6b 73 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 ks. variable
72f0: 6f 75 74 44 69 72 0a 20 20 20 20 76 61 72 69 61 outDir. varia
7300: 62 6c 65 20 6c 69 62 72 61 72 79 4e 61 6d 65 0a ble libraryName.
7310: 20 20 20 20 76 61 72 69 61 62 6c 65 20 69 6e 74 variable int
7320: 65 72 66 61 63 65 73 0a 0a 20 20 20 20 23 20 41 erfaces.. # A
7330: 73 73 75 6d 69 6e 67 20 74 68 61 74 20 64 65 70 ssuming that dep
7340: 65 6e 64 65 6e 63 69 65 73 20 6f 6e 6c 79 20 67 endencies only g
7350: 6f 20 6f 6e 65 20 6c 65 76 65 6c 20 64 65 65 70 o one level deep
7360: 2c 20 77 65 20 6e 65 65 64 20 74 6f 20 65 6d 69 , we need to emi
7370: 74 0a 20 20 20 20 23 20 61 6c 6c 20 6f 66 20 74 t. # all of t
7380: 68 65 20 6c 65 61 76 65 73 20 66 69 72 73 74 20 he leaves first
7390: 74 6f 20 61 76 6f 69 64 20 6e 65 65 64 69 6e 67 to avoid needing
73a0: 20 66 6f 72 77 61 72 64 20 64 65 63 6c 61 72 61 forward declara
73b0: 74 69 6f 6e 73 2e 0a 0a 20 20 20 20 73 65 74 20 tions... set
73c0: 6c 65 61 76 65 73 20 7b 7d 0a 20 20 20 20 73 65 leaves {}. se
73d0: 74 20 72 6f 6f 74 73 20 7b 7d 0a 20 20 20 20 66 t roots {}. f
73e0: 6f 72 65 61 63 68 20 6e 61 6d 65 20 5b 6c 73 6f oreach name [lso
73f0: 72 74 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 rt [array names
7400: 69 6e 74 65 72 66 61 63 65 73 5d 5d 20 7b 0a 09 interfaces]] {..
7410: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 if {[info exists
7420: 20 68 6f 6f 6b 73 28 24 6e 61 6d 65 29 5d 7d 20 hooks($name)]}
7430: 7b 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 20 72 {.. lappend r
7440: 6f 6f 74 73 20 24 6e 61 6d 65 0a 09 7d 20 65 6c oots $name..} el
7450: 73 65 20 7b 0a 09 20 20 20 20 6c 61 70 70 65 6e se {.. lappen
7460: 64 20 6c 65 61 76 65 73 20 24 6e 61 6d 65 0a 09 d leaves $name..
7470: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 66 6f 72 65 }. }. fore
7480: 61 63 68 20 6e 61 6d 65 20 24 6c 65 61 76 65 73 ach name $leaves
7490: 20 7b 0a 09 65 6d 69 74 49 6e 69 74 20 24 6e 61 {..emitInit $na
74a0: 6d 65 20 74 65 78 74 0a 20 20 20 20 7d 0a 20 20 me text. }.
74b0: 20 20 66 6f 72 65 61 63 68 20 6e 61 6d 65 20 24 foreach name $
74c0: 72 6f 6f 74 73 20 7b 0a 09 65 6d 69 74 49 6e 69 roots {..emitIni
74d0: 74 20 24 6e 61 6d 65 20 74 65 78 74 0a 20 20 20 t $name text.
74e0: 20 7d 0a 0a 20 20 20 20 72 65 77 72 69 74 65 46 }.. rewriteF
74f0: 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 ile [file join $
7500: 6f 75 74 44 69 72 20 24 7b 6c 69 62 72 61 72 79 outDir ${library
7510: 4e 61 6d 65 7d 53 74 75 62 49 6e 69 74 2e 63 5d Name}StubInit.c]
7520: 20 24 74 65 78 74 0a 7d 0a 0a 23 20 67 65 6e 53 $text.}..# genS
7530: 74 75 62 73 3a 3a 69 6e 69 74 20 2d 2d 0a 23 0a tubs::init --.#.
7540: 23 09 54 68 69 73 20 69 73 20 74 68 65 20 6d 61 #.This is the ma
7550: 69 6e 20 65 6e 74 72 79 20 70 6f 69 6e 74 2e 0a in entry point..
7560: 23 0a 23 20 41 72 67 75 6d 65 6e 74 73 3a 0a 23 #.# Arguments:.#
7570: 09 4e 6f 6e 65 2e 0a 23 0a 23 20 52 65 73 75 6c .None..#.# Resul
7580: 74 73 3a 0a 23 09 4e 6f 6e 65 2e 0a 0a 70 72 6f ts:.#.None...pro
7590: 63 20 67 65 6e 53 74 75 62 73 3a 3a 69 6e 69 74 c genStubs::init
75a0: 20 7b 7d 20 7b 0a 20 20 20 20 67 6c 6f 62 61 6c {} {. global
75b0: 20 61 72 67 76 20 61 72 67 76 30 0a 20 20 20 20 argv argv0.
75c0: 76 61 72 69 61 62 6c 65 20 6f 75 74 44 69 72 0a variable outDir.
75d0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 69 6e 74 variable int
75e0: 65 72 66 61 63 65 73 0a 0a 20 20 20 20 69 66 20 erfaces.. if
75f0: 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 76 5d {[llength $argv]
7600: 20 3c 20 32 7d 20 7b 0a 09 70 75 74 73 20 73 74 < 2} {..puts st
7610: 64 65 72 72 20 22 75 73 61 67 65 3a 20 24 61 72 derr "usage: $ar
7620: 67 76 30 20 6f 75 74 44 69 72 20 64 65 63 6c 46 gv0 outDir declF
7630: 69 6c 65 20 3f 64 65 63 6c 46 69 6c 65 2e 2e 2e ile ?declFile...
7640: 3f 22 0a 09 65 78 69 74 20 31 0a 20 20 20 20 7d ?"..exit 1. }
7650: 0a 0a 20 20 20 20 73 65 74 20 6f 75 74 44 69 72 .. set outDir
7660: 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 76 20 30 [lindex $argv 0
7670: 5d 0a 0a 20 20 20 20 66 6f 72 65 61 63 68 20 66 ].. foreach f
7680: 69 6c 65 20 5b 6c 72 61 6e 67 65 20 24 61 72 67 ile [lrange $arg
7690: 76 20 31 20 65 6e 64 5d 20 7b 0a 09 73 6f 75 72 v 1 end] {..sour
76a0: 63 65 20 2d 65 6e 63 6f 64 69 6e 67 20 75 74 66 ce -encoding utf
76b0: 2d 38 20 24 66 69 6c 65 0a 20 20 20 20 7d 0a 0a -8 $file. }..
76c0: 20 20 20 20 66 6f 72 65 61 63 68 20 6e 61 6d 65 foreach name
76d0: 20 5b 6c 73 6f 72 74 20 5b 61 72 72 61 79 20 6e [lsort [array n
76e0: 61 6d 65 73 20 69 6e 74 65 72 66 61 63 65 73 5d ames interfaces]
76f0: 5d 20 7b 0a 09 70 75 74 73 20 22 45 6d 69 74 74 ] {..puts "Emitt
7700: 69 6e 67 20 24 6e 61 6d 65 22 0a 09 65 6d 69 74 ing $name"..emit
7710: 48 65 61 64 65 72 20 24 6e 61 6d 65 0a 20 20 20 Header $name.
7720: 20 7d 0a 0a 20 20 20 20 65 6d 69 74 49 6e 69 74 }.. emitInit
7730: 73 0a 7d 0a 0a 23 20 6c 61 73 73 69 67 6e 20 2d s.}..# lassign -
7740: 2d 0a 23 0a 23 09 54 68 69 73 20 66 75 6e 63 74 -.#.#.This funct
7750: 69 6f 6e 20 65 6d 75 6c 61 74 65 73 20 74 68 65 ion emulates the
7760: 20 54 63 6c 58 20 6c 61 73 73 69 67 6e 20 63 6f TclX lassign co
7770: 6d 6d 61 6e 64 2e 0a 23 0a 23 20 41 72 67 75 6d mmand..#.# Argum
7780: 65 6e 74 73 3a 0a 23 09 76 61 6c 75 65 4c 69 73 ents:.#.valueLis
7790: 74 09 41 20 6c 69 73 74 20 63 6f 6e 74 61 69 6e t.A list contain
77a0: 69 6e 67 20 74 68 65 20 76 61 6c 75 65 73 20 74 ing the values t
77b0: 6f 20 62 65 20 61 73 73 69 67 6e 65 64 2e 0a 23 o be assigned..#
77c0: 09 61 72 67 73 09 09 54 68 65 20 6c 69 73 74 20 .args..The list
77d0: 6f 66 20 76 61 72 69 61 62 6c 65 73 20 74 6f 20 of variables to
77e0: 62 65 20 61 73 73 69 67 6e 65 64 2e 0a 23 0a 23 be assigned..#.#
77f0: 20 52 65 73 75 6c 74 73 3a 0a 23 09 52 65 74 75 Results:.#.Retu
7800: 72 6e 73 20 61 6e 79 20 76 61 6c 75 65 73 20 74 rns any values t
7810: 68 61 74 20 77 65 72 65 20 6e 6f 74 20 61 73 73 hat were not ass
7820: 69 67 6e 65 64 20 74 6f 20 76 61 72 69 61 62 6c igned to variabl
7830: 65 73 2e 0a 0a 69 66 20 7b 5b 6e 61 6d 65 73 70 es...if {[namesp
7840: 61 63 65 20 77 68 69 63 68 20 6c 61 73 73 69 67 ace which lassig
7850: 6e 5d 20 6e 65 20 22 22 7d 20 7b 0a 20 20 20 20 n] ne ""} {.
7860: 70 72 6f 63 20 6c 61 73 73 69 67 6e 20 7b 76 61 proc lassign {va
7870: 6c 75 65 4c 69 73 74 20 61 72 67 73 7d 20 7b 0a lueList args} {.
7880: 09 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 .if {[llength $a
7890: 72 67 73 5d 20 3d 3d 20 30 7d 20 7b 0a 09 20 20 rgs] == 0} {..
78a0: 20 20 65 72 72 6f 72 20 22 77 72 6f 6e 67 20 23 error "wrong #
78b0: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 args: should be
78c0: 20 5c 22 6c 61 73 73 69 67 6e 20 6c 69 73 74 20 \"lassign list
78d0: 76 61 72 4e 61 6d 65 20 3f 76 61 72 4e 61 6d 65 varName ?varName
78e0: 20 2e 2e 2e 3f 5c 22 22 0a 09 7d 0a 09 75 70 6c ...?\""..}..upl
78f0: 65 76 65 6c 20 5b 6c 69 73 74 20 66 6f 72 65 61 evel [list forea
7900: 63 68 20 24 61 72 67 73 20 24 76 61 6c 75 65 4c ch $args $valueL
7910: 69 73 74 20 7b 62 72 65 61 6b 7d 5d 0a 09 72 65 ist {break}]..re
7920: 74 75 72 6e 20 5b 6c 72 61 6e 67 65 20 24 76 61 turn [lrange $va
7930: 6c 75 65 4c 69 73 74 20 5b 6c 6c 65 6e 67 74 68 lueList [llength
7940: 20 24 61 72 67 73 5d 20 65 6e 64 5d 0a 20 20 20 $args] end].
7950: 20 7d 0a 7d 0a 0a 67 65 6e 53 74 75 62 73 3a 3a }.}..genStubs::
7960: 69 6e 69 74 0a init.
