Differences From Artifact [40134d47ce213400]:
- File
jim.c
- 2005-03-03 15:30:47 - part of checkin [55e05753ac] on branch trunk - Made exporting of symbols to the API less error prone with JIM_REGISTER_API and JIM_GET_API macros. (user: antirez
To Artifact [c885aae54a7948b0]:
- File
jim.c
- 2005-03-03 15:36:41 - part of checkin [86988106c8] on branch trunk - [string repeat] implemented. (user: antirez
8096 8096 if (argc != 5) {
8097 8097 Jim_WrongNumArgs(interp, 2, argv, "string first last");
8098 8098 return JIM_ERR;
8099 8099 }
8100 8100 objPtr = Jim_StringRangeObj(interp, argv[2], argv[3], argv[4]);
8101 8101 if (objPtr == NULL)
8102 8102 return JIM_ERR;
8103 + Jim_SetResult(interp, objPtr);
8104 + return JIM_OK;
8105 + } else if (Jim_CompareStringImmediate(interp, argv[1], "repeat")) {
8106 + Jim_Obj *objPtr;
8107 + jim_wide count;
8108 +
8109 + if (argc != 4) {
8110 + Jim_WrongNumArgs(interp, 2, argv, "string count");
8111 + return JIM_ERR;
8112 + }
8113 + if (Jim_GetWide(interp, argv[3], &count) != JIM_OK)
8114 + return JIM_ERR;
8115 + objPtr = Jim_NewStringObj(interp, "", 0);
8116 + while (count--) {
8117 + Jim_AppendObj(interp, objPtr, argv[2]);
8118 + }
8103 8119 Jim_SetResult(interp, objPtr);
8104 8120 return JIM_OK;
8105 8121 } else {
8106 8122 Jim_SetResult(interp, Jim_NewEmptyStringObj(interp));
8107 8123 Jim_AppendStrings(interp, Jim_GetResult(interp),
8108 8124 "bad option \"", Jim_GetString(argv[1], NULL), "\":",
8109 8125 " must be length, compare, match, equal, range",