From 1866fd21dc3dde22ea0d787ef486bbcb99e1dcb3 Mon Sep 17 00:00:00 2001 From: antirez Date: Sun, 5 Nov 2006 00:26:57 +0000 Subject: {*} as alias for {expand} like in recent Tcl 8.5 versions --- jim.c | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'jim.c') diff --git a/jim.c b/jim.c index 0fdc1a5..894251d 100644 --- a/jim.c +++ b/jim.c @@ -2,7 +2,7 @@ * Copyright 2005 Salvatore Sanfilippo * Copyright 2005 Clemens Hintze * - * $Id: jim.c,v 1.167 2006/11/02 22:38:56 antirez Exp $ + * $Id: jim.c,v 1.168 2006/11/05 00:26:57 antirez Exp $ * * Licensed under the Apache License, Version 2.0 (the "License"); * you may not use this file except in compliance with the License. @@ -2700,7 +2700,8 @@ int SetScriptFromAny(Jim_Interp *interp, struct Jim_Obj *objPtr) if (token[end].type == JIM_TT_STR && token[end+1].type != JIM_TT_SEP && token[end+1].type != JIM_TT_EOL && - !strcmp(token[end].objPtr->bytes, "expand")) + (!strcmp(token[end].objPtr->bytes, "expand") || + !strcmp(token[end].objPtr->bytes, "*"))) expand++; } if (token[end].type == JIM_TT_SEP) @@ -2729,7 +2730,8 @@ int SetScriptFromAny(Jim_Interp *interp, struct Jim_Obj *objPtr) tokens = 0; continue; } else if (tokens == 0 && token[i].type == JIM_TT_STR && - !strcmp(token[i].objPtr->bytes, "expand")) + (!strcmp(token[i].objPtr->bytes, "expand") || + !strcmp(token[i].objPtr->bytes, "*"))) { expand++; } @@ -11730,7 +11732,7 @@ int Jim_InteractivePrompt(Jim_Interp *interp) "Copyright (c) 2005 Salvatore Sanfilippo\n", JIM_VERSION / 100, JIM_VERSION % 100); fprintf(interp->stdout, - "CVS ID: $Id: jim.c,v 1.167 2006/11/02 22:38:56 antirez Exp $\n"); + "CVS ID: $Id: jim.c,v 1.168 2006/11/05 00:26:57 antirez Exp $\n"); Jim_SetVariableStrWithStr(interp, "jim_interactive", "1"); while (1) { char buf[1024]; -- cgit v1.1