Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Improve some comments. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
dda5d11d98bfdc1febe618f5039ae58c |
| User & Date: | mistachkin 2016-01-18 17:48:37.760 |
Context
|
2016-01-18
| ||
| 22:34 | Improved error message when a received artifact has an incorrect hash. ... (check-in: 4c8e6d91 user: drh tags: trunk) | |
| 17:48 | Improve some comments. ... (check-in: dda5d11d user: mistachkin tags: trunk) | |
| 17:41 | Add the 'array exists' and 'array names' sub-commands to TH1. Add tcl_platform(engine) and tcl_platform(platform) to TH1. ... (check-in: ea7813da user: mistachkin tags: trunk) | |
Changes
Changes to src/th.c.
| ︙ | ︙ | |||
2904 2905 2906 2907 2908 2909 2910 | } /* ** Appends all currently registered command names to the specified list ** and returns TH_OK upon success. Any other return value indicates an ** error. */ | | > > > > | > > > > | 2904 2905 2906 2907 2908 2909 2910 2911 2912 2913 2914 2915 2916 2917 2918 2919 2920 2921 2922 2923 2924 2925 2926 2927 2928 2929 2930 2931 2932 2933 2934 2935 2936 2937 2938 2939 2940 2941 2942 2943 |
}
/*
** Appends all currently registered command names to the specified list
** and returns TH_OK upon success. Any other return value indicates an
** error.
*/
int Th_ListAppendCommands(
Th_Interp *interp, /* Interpreter context */
char **pzList, /* OUT: List of command names */
int *pnList /* OUT: Number of command names */
){
Th_InterpAndList *p = (Th_InterpAndList *)Th_Malloc(
interp, sizeof(Th_InterpAndList)
);
p->interp = interp;
p->pzList = pzList;
p->pnList = pnList;
Th_HashIterate(interp, interp->paCmd, thListAppendHashKey, p);
Th_Free(interp, p);
return TH_OK;
}
/*
** Appends all variable names for the current frame to the specified list
** and returns TH_OK upon success. Any other return value indicates an
** error. If the current frame cannot be obtained, TH_ERROR is returned.
*/
int Th_ListAppendVariables(
Th_Interp *interp, /* Interpreter context */
char **pzList, /* OUT: List of variable names */
int *pnList /* OUT: Number of variable names */
){
Th_Frame *pFrame = getFrame(interp, 0);
if( pFrame ){
Th_InterpAndList *p = (Th_InterpAndList *)Th_Malloc(
interp, sizeof(Th_InterpAndList)
);
p->interp = interp;
p->pzList = pzList;
|
| ︙ | ︙ | |||
2944 2945 2946 2947 2948 2949 2950 | /* ** Appends all array element names for the specified array variable to the ** specified list and returns TH_OK upon success. Any other return value ** indicates an error. */ int Th_ListAppendArray( | | | 2952 2953 2954 2955 2956 2957 2958 2959 2960 2961 2962 2963 2964 2965 2966 |
/*
** Appends all array element names for the specified array variable to the
** specified list and returns TH_OK upon success. Any other return value
** indicates an error.
*/
int Th_ListAppendArray(
Th_Interp *interp, /* Interpreter context */
const char *zVar, /* Pointer to variable name */
int nVar, /* Number of bytes at nVar */
char **pzList, /* OUT: List of array element names */
int *pnList /* OUT: Number of array element names */
){
Th_Variable *pValue = thFindValue(interp, zVar, nVar, 0, 1, 1, 0);
if( pValue && !pValue->zData && pValue->pHash ){
|
| ︙ | ︙ |