// Petrarch // Merentha Lib 1.0 // <head> varargs int command(string fname) { string str; int i; if(!fname) return notify_fail("Syntax: head <file>\n"); if(fname[0..0]!="/") fname=this_player()->query_cwd()+fname; if (sizeof(fname) < 0) return notify_fail("File does not exist.\n"); if(!i=this_player()->getenv("LINES")) i=20; message("command", implode(explode(read_file(fname), "\n")[0..i],"\n"), this_player()); return 1; } string help() { return "Syntax: head <file>\n\nDisplays the first 18 or so lines of the given file you specify.\n\nSee also: tail, cat, more"; }