Fossil

Check-in [fbc9e292]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:How about the TIP #59 way of TIP #440? "::tcl::pkgconfig get engine" -> "core"
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-440-alt
Files: files | file ages | folders
SHA1:fbc9e292ec5740778d438cb38085bdbc8a302d3d
User & Date: jan.nijtmans 2016-01-20 22:33:13
Context
2016-01-20
22:41
Of course, the value of "::tcl::pkgconfig get engine" should be "TH1" check-in: fd00816d user: jan.nijtmans tags: tip-440-alt
22:33
How about the TIP #59 way of TIP #440? "::tcl::pkgconfig get engine" -> "core" check-in: fbc9e292 user: jan.nijtmans tags: tip-440-alt
13:04
(experiment) Implement "package require Tcl" according to the alternative TIP #440 implementation. check-in: 6bb2308f user: jan.nijtmans tags: tip-440-alt
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to src/th_lang.c.

1169
1170
1171
1172
1173
1174
1175







































1176
1177
1178
1179
1180
1181
1182
....
1308
1309
1310
1311
1312
1313
1314


1315
1316
1317
1318
1319
1320
1321
){
  static const Th_SubCommand aSub[] = {
    { "require", package_require_command },
    { 0, 0 }
  };
  return Th_CallSubCommand(interp, ctx, argc, argv, argl, aSub);
}








































/*
** Convert the script level frame specification (used by the commands
** [uplevel] and [upvar]) in (zFrame, nFrame) to an integer frame as
** used by Th_LinkVar() and Th_Eval(). If successful, write the integer
** frame level to *piFrame and return TH_OK. Otherwise, return TH_ERROR
** and leave an error message in the interpreter result.
................................................................................

    {"breakpoint", breakpoint_command, 0},

    {"return",   return_command, 0},
    {"break",    simple_command, (void *)TH_BREAK},
    {"continue", simple_command, (void *)TH_CONTINUE},
    {"error",    simple_command, (void *)TH_ERROR},



    {0, 0, 0}
  };
  size_t i;

  /* Add the language commands. */
  for(i=0; i<(sizeof(aCommand)/sizeof(aCommand[0])); i++){







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>







 







>
>







1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
....
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
){
  static const Th_SubCommand aSub[] = {
    { "require", package_require_command },
    { 0, 0 }
  };
  return Th_CallSubCommand(interp, ctx, argc, argv, argl, aSub);
}

/*
** TH Syntax:
**
**   package require Tcl
*/
static int pkgconfig_get_command(
  Th_Interp *interp,
  void *ctx,
  int argc,
  const char **argv,
  int *argl
){
  if( strcmp(argv[2], "engine") ){
      Th_ErrorMessage(interp, "key not known", argv[2], argl[2]);
      return TH_ERROR;
  }
  Th_SetResult(interp, "core" , -1);
  return TH_OK;
}

/*
** TH Syntax:
**
**   package require Tcl
*/
static int pkgconfig_command(
  Th_Interp *interp,
  void *ctx,
  int argc,
  const char **argv,
  int *argl
){
  static const Th_SubCommand aSub[] = {
    { "get", pkgconfig_get_command },
    { 0, 0 }
  };
  return Th_CallSubCommand(interp, ctx, argc, argv, argl, aSub);
}

/*
** Convert the script level frame specification (used by the commands
** [uplevel] and [upvar]) in (zFrame, nFrame) to an integer frame as
** used by Th_LinkVar() and Th_Eval(). If successful, write the integer
** frame level to *piFrame and return TH_OK. Otherwise, return TH_ERROR
** and leave an error message in the interpreter result.
................................................................................

    {"breakpoint", breakpoint_command, 0},

    {"return",   return_command, 0},
    {"break",    simple_command, (void *)TH_BREAK},
    {"continue", simple_command, (void *)TH_CONTINUE},
    {"error",    simple_command, (void *)TH_ERROR},

    {"::tcl::pkgconfig",   pkgconfig_command,  0},

    {0, 0, 0}
  };
  size_t i;

  /* Add the language commands. */
  for(i=0; i<(sizeof(aCommand)/sizeof(aCommand[0])); i++){