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: |
fd00816d95413a144aa89123373cf993 |
| 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
Changes to src/th_lang.c.
| ︙ | ︙ | |||
1186 1187 1188 1189 1190 1191 1192 |
const char **argv,
int *argl
){
if( strcmp(argv[2], "engine") ){
Th_ErrorMessage(interp, "key not known", argv[2], argl[2]);
return TH_ERROR;
}
| | | 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
|
| ︙ | ︙ |