Fossil

Differences From Artifact [9b05851f81]:

• File src/th_lang.c — part of check-in [fbc9e292ec] at 2016-01-20 22:33:13 on branch tip-440-alt — How about the TIP #59 way of TIP #440? "::tcl::pkgconfig get engine" -> "core" (user: jan.nijtmans size: 30270)

To Artifact [e04dbc49d3]:

• File src/th_lang.c — part of check-in [fd00816d95] at 2016-01-20 22:41:32 on branch tip-440-alt — Of course, the value of "::tcl::pkgconfig get engine" should be "TH1" (user: jan.nijtmans size: 30269)

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