/* /secure/cmds/creator/lsed.c * from the Dead Souls LPC Library * an LPC scripted editor * created by Descartes of Borg 950407 */ #include <lib.h> inherit LIB_DAEMON; static void LsedFile(string file, string *cmds, int num_cmds); mixed cmd(string args) { string *files, *lines, *tmp; string total, script, pwd; int i, maxi, x; if( args == "" || !args ) return "Syntax: <lsed [script] [filelist]>"; if( (maxi = sizeof(files = explode(args, " "))) == 1 ) return "You must specify the name of a file to run the script on."; pwd = this_player()->query_cwd(); script = absolute_path( pwd, files[0] ); files = files[1..]; maxi--; for(i=0, tmp = ({}); i<maxi; i++) { files[i] = absolute_path(pwd, files[i]); tmp += wild_card(files[i]); } maxi = sizeof(files = tmp); if( !(total = read_file(script)) ) return "Failed to load script: "+script; x = sizeof(lines = explode(total, "\n")); for(i=0; i<maxi; i++){ int y; y = file_size(files[i]); if( y == -2 ) { message("system", "lsed: File " + files[i] + " is a directory.", this_player()); continue; } else if( y == -1 ) { message("system", "lsed: File " + files[i] + " does not exist.", this_player()); continue; } LsedFile(files[i], lines, x); } return 1; } static void LsedFile(string file, string *cmds, int num_cmds) { string ret; int i; ed_start(file, 0); if( query_ed_mode() == -1 ) { message("system", "lsed: Failed to read file " + file, this_player()); return; } for(i=0; i<num_cmds; i++) { ret = ed_cmd(cmds[i]); if( query_ed_mode() == -1 ) { message("system", "lsed: Script quit unexpectedly on line " + (i+1) + " for file " + file + " with message: " + ret, this_player()); return; } } ret = ed_cmd("x"); if( query_ed_mode() != -1 ) { ed_cmd("Q"); message("system", "lsed: permission denied for " + file, this_player()); return; } message("system", ret, this_player()); } string GetHelp() { return ("Syntax: lsed <script> <filelist>\n\n" "Allows you to perform editor commands on a file or set of files " "from a script. You simply write a script of editor commands " "and save it to a file. For example, say that you wanted to " "change set_item_functions() to SetItems() and " "set_search_function() to SetSearch() in every file in your home " "directory. You would write a script that looks like:\n\n" "s/set_item_functions/SetItems/g\n" "s/set_search_function/SetSearch/g\n\n" "save it as convert.lsed, and then at the command line type: " "\"lsed sconvert.lsed *\". Keep in mind that the MudOS " "driver will only let an execution thread run so long " "before automatically terminating it with a too long evaluation " "error, so avoid running lsed on a large number of files at " "once.\n" "See also: ed"); }