jim license cleanup

git-svn-id: svn://svn.berlios.de/openocd/trunk@851 b42882b7-edfa-0310-969c-e2dbd0fdcd60
__archive__
oharboe 2008-07-21 16:13:11 +00:00
parent 265e4e121a
commit 25b0e4e0d5
2 changed files with 82 additions and 34 deletions

View File

@ -1,23 +1,43 @@
/* Jim - A small embeddable Tcl interpreter /* Jim - A small embeddable Tcl interpreter
*
* Copyright 2005 Salvatore Sanfilippo <antirez@invece.org> * Copyright 2005 Salvatore Sanfilippo <antirez@invece.org>
* Copyright 2005 Clemens Hintze <c.hintze@gmx.net> * Copyright 2005 Clemens Hintze <c.hintze@gmx.net>
* Copyright 2005 patthoyts - Pat Thoyts <patthoyts@users.sf.net>
* Copyright 2008 oharboe - Øyvind Harboe - oyvind.harboe@zylin.com
* Copyright 2008 Andrew Lunn <andrew@lunn.ch>
* Copyright 2008 Duane Ellis <openocd@duaneellis.com>
* Copyright 2008 Uwe Klein <uklein@klein-messgeraete.de>
* *
* Licensed under the Apache License, Version 2.0 (the "License"); * The FreeBSD license
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
* *
* http://www.apache.org/licenses/LICENSE-2.0 * Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* *
* A copy of the license is also included in the source distribution * 1. Redistributions of source code must retain the above copyright
* of Jim, as a TXT file name called LICENSE. * notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above
* copyright notice, this list of conditions and the following
* disclaimer in the documentation and/or other materials
* provided with the distribution.
* *
* Unless required by applicable law or agreed to in writing, software * THIS SOFTWARE IS PROVIDED BY THE JIM TCL PROJECT ``AS IS'' AND ANY
* distributed under the License is distributed on an "AS IS" BASIS, * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
* See the License for the specific language governing permissions and * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
* limitations under the License. * JIM TCL PROJECT OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
*/ * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
* STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*
* The views and conclusions contained in the software and documentation
* are those of the authors and should not be interpreted as representing
* official policies, either expressed or implied, of the Jim Tcl Project.
**/
#define __JIM_CORE__ #define __JIM_CORE__
#define JIM_OPTIMIZATION /* comment to avoid optimizations and reduce size */ #define JIM_OPTIMIZATION /* comment to avoid optimizations and reduce size */
@ -8956,6 +8976,13 @@ int Jim_SubstObj(Jim_Interp *interp, Jim_Obj *substObjPtr,
Jim_AppendObj(interp, resObjPtr, objPtr); Jim_AppendObj(interp, resObjPtr, objPtr);
Jim_DecrRefCount(interp, objPtr); Jim_DecrRefCount(interp, objPtr);
break; break;
case JIM_TT_DICTSUGAR:
objPtr = Jim_ExpandDictSugar(interp, token[i].objPtr);
if (!objPtr) {
retcode = JIM_ERR;
goto err;
}
break;
case JIM_TT_CMD: case JIM_TT_CMD:
if (Jim_EvalObj(interp, token[i].objPtr) != JIM_OK) if (Jim_EvalObj(interp, token[i].objPtr) != JIM_OK)
goto err; goto err;

View File

@ -1,22 +1,43 @@
/* Jim - A small embeddable Tcl interpreter /* Jim - A small embeddable Tcl interpreter
*
* Copyright 2005 Salvatore Sanfilippo <antirez@invece.org> * Copyright 2005 Salvatore Sanfilippo <antirez@invece.org>
* Copyright 2005 Clemens Hintze <c.hintze@gmx.net> * Copyright 2005 Clemens Hintze <c.hintze@gmx.net>
* Copyright 2005 patthoyts - Pat Thoyts <patthoyts@users.sf.net>
* Copyright 2008 oharboe - Øyvind Harboe - soyvind.harboe@zylin.com
* Copyright 2008 Andrew Lunn <andrew@lunn.ch>
* Copyright 2008 Duane Ellis <openocd@duaneellis.com>
* Copyright 2008 Uwe Klein <uklein@klein-messgeraete.de>
* *
* Licensed under the Apache License, Version 2.0 (the "License"); * The FreeBSD license
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
* *
* http://www.apache.org/licenses/LICENSE-2.0 * Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* *
* A copy of the license is also included in the source distribution * 1. Redistributions of source code must retain the above copyright
* of Jim, as a TXT file name called LICENSE. * notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above
* copyright notice, this list of conditions and the following
* disclaimer in the documentation and/or other materials
* provided with the distribution.
* *
* Unless required by applicable law or agreed to in writing, software * THIS SOFTWARE IS PROVIDED BY THE JIM TCL PROJECT ``AS IS'' AND ANY
* distributed under the License is distributed on an "AS IS" BASIS, * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
* See the License for the specific language governing permissions and * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
* limitations under the License. * JIM TCL PROJECT OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
*/ * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
* STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*
* The views and conclusions contained in the software and documentation
* are those of the authors and should not be interpreted as representing
* official policies, either expressed or implied, of the Jim Tcl Project.
**/
#ifndef __JIM__H #ifndef __JIM__H
#define __JIM__H #define __JIM__H
@ -970,7 +991,7 @@ static void Jim_InitExtension(Jim_Interp *interp)
#ifdef JIM_EMBEDDED #ifdef JIM_EMBEDDED
Jim_Interp *ExportedJimCreateInterp(void); Jim_Interp *ExportedJimCreateInterp(void);
static inline void Jim_InitEmbedded(void) { static void Jim_InitEmbedded(void) {
Jim_Interp *i = ExportedJimCreateInterp(); Jim_Interp *i = ExportedJimCreateInterp();
Jim_InitExtension(i); Jim_InitExtension(i);
Jim_FreeInterp(i); Jim_FreeInterp(i);