Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Redo TIP #440 alternative - again - now using the "info runtime" command. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | tip-440-alt |
| Files: | files | file ages | folders |
| SHA1: |
9633f6ac947119b165a0754e6e497a4c |
| User & Date: | jan.nijtmans 2016-01-26 14:12:46.192 |
Context
|
2016-01-26
| ||
| 14:12 | Redo TIP #440 alternative - again - now using the "info runtime" command. ... (Closed-Leaf check-in: 9633f6ac user: jan.nijtmans tags: tip-440-alt) | |
| 13:18 | Fix a comment with wrong parameters description ... (check-in: 12cf825f user: baruch tags: trunk) | |
| 10:22 | Alternative TIP #440 implementation, based on TIP #59 ... (check-in: 2ba6587c user: jan.nijtmans tags: tip-440-alt) | |
Changes
Changes to src/th_lang.c.
| ︙ | ︙ | |||
945 946 947 948 949 950 951 952 953 954 955 956 957 958 |
Th_SetResult(interp, zElem, nElem);
if( zElem ) Th_Free(interp, zElem);
return TH_OK;
}
/*
** TH Syntax:
**
** info vars
*/
static int info_vars_command(
Th_Interp *interp, void *ctx, int argc, const char **argv, int *argl
){
int rc;
| > > > > > > > > > > > > > > > | 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 |
Th_SetResult(interp, zElem, nElem);
if( zElem ) Th_Free(interp, zElem);
return TH_OK;
}
/*
** TH Syntax:
**
** info runtime
*/
static int info_runtime_command(
Th_Interp *interp, void *ctx, int argc, const char **argv, int *argl
){
if( argc!=2 ){
return Th_WrongNumArgs(interp, "info runtime");
}
Th_SetResult(interp, "TH1", -1);
return TH_OK;
}
/*
** TH Syntax:
**
** info vars
*/
static int info_vars_command(
Th_Interp *interp, void *ctx, int argc, const char **argv, int *argl
){
int rc;
|
| ︙ | ︙ | |||
1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 |
int argc,
const char **argv,
int *argl
){
static const Th_SubCommand aSub[] = {
{ "commands", info_commands_command },
{ "exists", info_exists_command },
{ "vars", info_vars_command },
{ 0, 0 }
};
return Th_CallSubCommand(interp, ctx, argc, argv, argl, aSub);
}
/*
| > | 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 |
int argc,
const char **argv,
int *argl
){
static const Th_SubCommand aSub[] = {
{ "commands", info_commands_command },
{ "exists", info_exists_command },
{ "runtime", info_runtime_command },
{ "vars", info_vars_command },
{ 0, 0 }
};
return Th_CallSubCommand(interp, ctx, argc, argv, argl, aSub);
}
/*
|
| ︙ | ︙ |