#include <idc.idc>
static main() { auto inpt_count,i,ord,addr,name,purged,file,fd; file = AskFile(1,"*.idt","select idt save file"); fd = fopen(file,"w"); inpt_count = GetEntryPointQty(); fprintf(fd,"Name = %s \n",GetInputFile()); fprintf(fd,"inpt_count = %x \n",inpt_count); for(i=0;i<inpt_count;i++) { ord = GetEntryOrdinal(i); if(ord == 0) continue; addr = GetEntryPoint(ord); if(ord == addr) { continue; } name = Name(addr); fprintf(fd,"%d Name = %s \n",ord,name); purged = GetFunctionAttr(addr,FUNCATTR_ARGSIZE); if(purged > 0) { fprintf(fd,"pascal = %d ",purged); } fprintf(fd,"\n"); } }
|