1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
#!/usr/bin/env tclsh
# Usage: make-load-static-exts extname ... >load-static-exts.c
# Creates load-static-exts.c based on the configured static extensions
# There are some dependencies on static extensions which require
# a certain load order. Do this by setting priorities and sorting.
array set pri {
stdlib 0
readdir 1
glob 2
oo 1
tree 2
pack 1
binary 2
}
foreach i $argv {
set p 1
if {[info exists pri($i)]} {
set p $pri($i)
}
lappend exts [list $p $i]
}
set exts [lsort $exts]
puts {
/* autogenerated - do not edit */
#include "jim.h"
#include "jimautoconf.h"
int Jim_InitStaticExtensions(Jim_Interp *interp)
}
puts \{
foreach e $exts {
set ext [lindex $e 1]
puts "\textern int Jim_${ext}Init(Jim_Interp *);"
}
foreach e $exts {
set ext [lindex $e 1]
puts "\tJim_${ext}Init(interp);"
}
puts "\treturn JIM_OK;"
puts \}
|
