Fossil

Check-in [1a3f326b]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix comment.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tclPlatform
Files: files | file ages | folders
SHA1: 1a3f326b3a6406e2e582ab9c86c2f09392204474
User & Date: mistachkin 2016-01-18 02:22:01
Context
2016-01-18
03:05
Update change log. Closed-Leaf check-in: 042dac53 user: mistachkin tags: tclPlatform
02:22
Fix comment. check-in: 1a3f326b user: mistachkin tags: tclPlatform
02:21
Add the 'array exists' and 'array names' sub-commands to TH1. check-in: fd4ada4a user: mistachkin tags: tclPlatform
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to src/th.c.

2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
    return TH_ERROR;
  }
}

/*
** 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.  If the current frame cannot be obtained, TH_ERROR
** is returned.
*/
int Th_ListAppendArray(
  Th_Interp *interp,
  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 */







|
<







2941
2942
2943
2944
2945
2946
2947
2948

2949
2950
2951
2952
2953
2954
2955
    return TH_ERROR;
  }
}

/*
** 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,
  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 */