/* /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");
}
