Fossil

Check-in [fd00816d]
Login

Check-in [fd00816d]

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

Overview
Comment:Of course, the value of "::tcl::pkgconfig get engine" should be "TH1"
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-440-alt
Files: files | file ages | folders
SHA1: fd00816d95413a144aa89123373cf993c40b2cfc
User & Date: jan.nijtmans 2016-01-20 22:41:32.603
Context
2016-01-26
10:22
Alternative TIP #440 implementation, based on TIP #59 ... (check-in: 2ba6587c user: jan.nijtmans tags: tip-440-alt)
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)
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/th_lang.c.
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
  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







|







1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
  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, "TH1" , -1);
  return TH_OK;
}

/*
** TH Syntax:
**
**   package require Tcl