//
//      This script exports all functions to a lib file
//

#include <idc.idc>

static main() {
  auto ea,x,s,f;

  s = AskFile(1,"*.lib","Choose a lib file for output...");
  f = fopen(s,"w");
  if (f) {  
	for ( ea=NextFunction(0); ea != BADADDR; ea=NextFunction(ea) ) {
	        //if (substr(GetFunctionName(ea),0,3)!="sub_") 
			fprintf(f,"%08lX %s\n",ea,GetFunctionName(ea));
  	}
     Message("All done\n");
  } else Message("Can't create file...\n");
 fclose(f);
}