x_rename.il

Allegro常用skill

/*
################################################################################                                                                    
#                      Command: x_rename                                       #
#                   Skill File: x_rename.il                                    #
#                  How To Load: Command> (load("x_rename.il"))                #
#               How To Execute: Command>  x_rename 			       #
#               Write by Rock.guo@2008.06.12                                   #
#               E-Mail:[e-mail]                                         #
################################################################################
*/
axlCmdRegister( "x_rename" 'x_rename)
defun( x_rename ()
let((r_port rs_port r_line r_list)
prog(()	
if( axlOKToProceed() then
		when( !axlUIYesNo("Do you run rename command ?") 
		axlShellPost("rename param")
		return(nil)
		)
		deleteFile("rename.swp") 
		when( !isFile("rename.log") 
			axlUIConfirm("Cann't find rename.log!") 
			return(nil)
		) 
		r_port = infile("rename.log")
		rs_port = outfile("rename.swp")
		when( r_port
			while( gets(r_line r_port)
				when( and((index(r_line "OLD ") != nil) (index(r_line "NEW ") != nil))
					r_list = parseString( r_line " \n")
					when( length(r_list) != 4 
						axlUIConfirm(sprintf(nil "Error in line: %L" r_list))
						close(rs_port)
						close(r_port)
						return(nil)
					)
					fprintf( rs_port "%s    %s\n" nth(1 r_list) nth(3 r_list))
				)
			)
		)
		close(rs_port)
		close(r_port)
		axlUIConfirm("Rename.swp Created Successful!")
		axlUIWExpose(axlUIViewFileCreate("rename.swp" "View rename.swp" nil))
	else
		axlUIConfirm("Finish current command first!")
))))