Fossil

Check-in [9633f6ac]
Login

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:9633f6ac947119b165a0754e6e497a4c9e80bcbc
User & Date: jan.nijtmans 2016-01-26 14:12:46
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to src/th_lang.c.

945
946
947
948
949
950
951















952
953
954
955
956
957
958
....
1103
1104
1105
1106
1107
1108
1109

1110
1111
1112
1113
1114
1115
1116
  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;
................................................................................
  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);
}

/*







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







 







>







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
....
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
  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;
................................................................................
  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);
}

/*