Exchange Forum > Beta Testing Forum
Vars function to find local variables
Vars function to find local variables

#1
Terry Cadd
Join Date:
09-10-2007
 I have been using Multi-Edit since my first programming job. It can be used to edit many different programming languages. However, it does not have the ability of tracking and showing your local variables. I wrote this function called Vars over a year ago, to help me get the list of required local variables in large AutoLISP programs. As you know after you add and delete parts of a long program your list of local variables may be incorrect and need to be revised. This function will also find variable names that you accidentally typed differently somewhere in the code, which as you know can be a headache to figure out why something isn't working as it should. Please check out the attached Vars function, and read the note and alert message in the top part code before running it.
 
Please let me know what you think, and if it's valuable for AutoLISP programmers.

Attachments  Vars.lsp  
Vars function to find local variables

#2
Cricket
Join Date:
08-30-2007
 Terry,
Ok, now I understand it. And it works fine. Can you please post an example with some code showing how to use the Vars function?
I was unsure of what to copy and paste into Notepad, and if it was going to mess up my program.
Vars function to find local variables

#3
Terry Cadd
Join Date:
09-10-2007
 Cricket,
Thanks for testing my code.
 
Here's a short function to demonstrate how to use the Vars function.
Select and copy the function below using Ctrl-C.
Run the Vars function and in the first Notepad window paste the code.
Code: 
(defun WordList (Str$ / List@ Num#)
  (while (setq Num# (vl-string-search " " Str$))
    (setq List@ (cons (substr Str$ 1 Num#) List@)
          Str$ (substr Str$ (+ Num# 2))
    );setq
  );while
  (reverse (cons Str$ List@))
);defun WordList
Edit the first line to only include arguments and global variables.
Do not include the current list of local variables.
Code: 
Str$
  (while (setq Num# (vl-string-search " " Str$))
    (setq List@ (cons (substr Str$ 1 Num#) List@)
          Str$ (substr Str$ (+ Num# 2))
    );setq
  );while
  (reverse (cons Str$ List@))
);defun WordList
Save and exit the first Notepad window.
The second Notepad window will open with the new list of local variables.
Code: 
List@ Num#
Copy the new list of local variables and exit Notepad.
You may then paste the new list of local variables below the current list to compare the differences.
Vars function to find local variables

#4
Adesu
Join Date:
10-03-2007
 Hi Terry,
I have a code for to find local variable, but very sorry I don't know who is the author, look at attach file.

Attachments  Check_variables.lsp    Check_variables.dcl  
Vars function to find local variables

#5
Terry Cadd
Join Date:
09-10-2007
 Adesu,
The Check Variables function is missing a few functions, but I was still able to tweak it to get it to run. It’s an interesting idea, but keep in mind that I’m mostly interested in getting the list of local variables to copy and paste into my code. The Check Variables function shows every occurrence of each variable and what line it was found on. This is too much information when all you need is just the list of local variables.