Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Get all procedure names in a project
Message
From
06/01/2009 17:01:01
James Blackburn
Qualty Design Systems, Inc.
Kuna, Idaho, United States
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01371489
Message ID:
01371514
Views:
19
>>How about this
>>
>>LOCAL laproclist[1],lavcxlist[1], lnRes, lnx
>>aaa= _vfp.ActiveProject
>>	
>>FOR lnx = 1 TO aaa.Files.Count 
>>	dd=aaa.Files.Item[lnx]
>>	DO CASE
>>	CASE dd.type = "V"
>>		lnRes = AVCXCLASSES(lavcxlist,JUSTFNAME(dd.name))
>>		*// Process here 
                  *// lavcxlist[xxx,1] is the class name plus method ie myclass.mymethod.
                  *// lavcxlist[xxx,2]  is the line number the class.method starts. 
                  *// you can use  EDITSOURCE to go directly to the code. 
                  EDITSOURCE("myprgname.prg",lavcxlist[xxx,2],GETWORDNUM(lavcxlist[xxx,1],2,"."))
>
>                                        *Yes, I was thinking along these lines, but we need to extract the methods' names here... 
>
>>	CASE dd.type = "P"		
>>		lnRes = APROCINFO(laproclist,JUSTFNAME(dd.name))
>>		*// Process here 
>>	OTHERWISE
>>
>>	ENDCASE
>>NEXT 
>>
>>
>>
>>>>>We had, well, let's just say, a questionable procedure name popup on a client's PC as part of an error message. We now need a way to find all the procedure/function names in our system and review them. Any reasonably easy way to do that?
>>>>
>>>>Take a look at APROCINFO function to see if it helps you
>>>
>>>That was cool, but I need to traverse the entire project and files.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform