Get a list of variables in a given expression

Hi Andrew,

I doing this for sorting the the multiple lines of expression based on the usage/position of variables.

So far I don't have any complicated variable naming in my application, so I solved my problem at this moment.

Please see the snapshot of my code. I know this one still need some improvement as what you have said before to become fully functional.

procedure(sgGetVar(expr)
  let((varList propName propNameAssoc propOn propOnAssoc (propL 0) (propLAssoc 0) (propCtr 0) (propCtrAssoc 0))
 
    foreach(x flattenList(linereadstring(expr))

      ;for obj~>prop, gets how many getSGq are there
      if(x=='getSGq then
        propOn=t
        propL=propL+1
      )
      ;count only symbol but not a function when propOn==t.
      if(symbolp(x) && !fboundp(x) && propOn then
        unless(propName propName=x)
        propCtr=propCtr+1
      )
      ; for obj->prop, gets how many getq are there
      if(x=='getq then
        propOnAssoc=t
        propLAssoc=propLAssoc+1
      )
      ;count only symbol but not a function if propAssoc==t.
      if(symbolp(x) && !fboundp(x) && propOnAssoc then
        unless(propNameAssoc propNameAssoc=x)
        propCtrAssoc=propCtrAssoc+1
      )
      ;; gets variable name if symbol but not function, and propOn=nil and propOnAssoc=nil

      if(symbolp(x) && !fboundp(x) && !propOn && !propOnAssoc varList=cons(symbolToString(x) varList))

      ;;; adding the object name (with prop) if getSGq's total==propL+1
      if(propCtr==propL+1 then
       varList=cons(symbolToString(propName) varList)
       propName=nil propOn=nil propL=0 propCtr=0
      )
      ;adding the object name (with assoc) if getq's total== propLAssoc+1
      if(propCtrAssoc==propLAssoc+1 then
       varList=cons(symbolToString(propNameAssoc) varList)
       propNameAssoc=nil propOnAssoc=nil propLAssoc=0 propCtrAssoc=0
      )

    )
    varList
  )
)

Hi Andrew,

I doing this for sorting the the multiple lines of expression based on the usage/position of variables.

So far I don't have any complicated variable naming in my application, so I solved my problem at this moment.

Please see the snapshot of my code. I know this one still need some improvement as what you have said before to become fully functional.

procedure(sgGetVar(expr)
  let((varList propName propNameAssoc propOn propOnAssoc (propL 0) (propLAssoc 0) (propCtr 0) (propCtrAssoc 0))
 
    foreach(x flattenList(linereadstring(expr))

      ;for obj~>prop, gets how many getSGq are there
      if(x=='getSGq then
        propOn=t
        propL=propL+1
      )
      ;count only symbol but not a function when propOn==t.
      if(symbolp(x) && !fboundp(x) && propOn then
        unless(propName propName=x)
        propCtr=propCtr+1
      )
      ; for obj->prop, gets how many getq are there
      if(x=='getq then
        propOnAssoc=t
        propLAssoc=propLAssoc+1
      )
      ;count only symbol but not a function if propAssoc==t.
      if(symbolp(x) && !fboundp(x) && propOnAssoc then
        unless(propNameAssoc propNameAssoc=x)
        propCtrAssoc=propCtrAssoc+1
      )
      ;; gets variable name if symbol but not function, and propOn=nil and propOnAssoc=nil

      if(symbolp(x) && !fboundp(x) && !propOn && !propOnAssoc varList=cons(symbolToString(x) varList))

      ;;; adding the object name (with prop) if getSGq's total==propL+1
      if(propCtr==propL+1 then
       varList=cons(symbolToString(propName) varList)
       propName=nil propOn=nil propL=0 propCtr=0
      )
      ;adding the object name (with assoc) if getq's total== propLAssoc+1
      if(propCtrAssoc==propLAssoc+1 then
       varList=cons(symbolToString(propNameAssoc) varList)
       propNameAssoc=nil propOnAssoc=nil propLAssoc=0 propCtrAssoc=0
      )

    )
    varList
  )
)