debuggers: import openocd-0.7.0
Initial check-in of openocd-0.7.0 as it can be downloaded from http://sourceforge.net/projects/openocd/files/openocd/0.7.0/ Any modifications will follow. Change-Id: I6949beaefd589e046395ea0cb80f4e1ab1654d55
This commit is contained in:
48
debuggers/openocd/jimtcl/make-load-static-exts.tcl
Normal file
48
debuggers/openocd/jimtcl/make-load-static-exts.tcl
Normal file
@ -0,0 +1,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 \}
|
||||
Reference in New Issue
Block a user