Texas Instruments TI-89 Tip List page 333

ss&cc→ss
k+1→k
mid(g_str,k,1)→cc
if cc≥"A" and cc≤"Z"
char(ord(cc)+32)→cc
Endwhile
If cc≠"(" and ss≠"and" and ss≠"or" and ss≠"xor" then
For i,1,g_d
if ss=g_ll[i]
exit
Endfor
If i>g_d then
augment(g_ll,{ss})→g_ll
g_d+1→g_d
Endif
Endif
Endif
Endfor
g_ll
Endfunc
vardeb():
vardeb(c)
Func
Local cc
ord(c)→cc
If c≥"a" and c≤"z" then
Return true
Elseif cc≥128 and cc≤148 and cc≠140 then
Return true
Endif
False
EndFunc
varin():
varin(c)
Func
Local cc
ord(c)→cc
If c≥"a" and c≤"z" then
Return true
Elseif c≥"0" and c≤"9" then
Return true
Elseif cc≥128 and cc≤148 and cc≠140 then
Return true
Elseif c="_" then
Return true
Endif
False
EndFunc
Bhuvanesh' C version: varlist()
Bhuvanesh' version of this function is called VarList(), and differs functionally from exprvars() in that
the input argument can be passed as a string or an expression, and an optional input argument
excludes user functions from the variable list.
VarList(expr|string,{excludeFunctions})
7 - 44