// Petrarch
// Merentha Lib 1.0
// <cat>

varargs int command(string fname) {
    string str;

    if(!fname) return notify_fail("Syntax: cat <file>\n");
    if(fname[0..0]!="/") fname=this_player()->query_cwd()+fname;
    if (sizeof(fname) < 0) return notify_fail("File does not exist.\n");

    message("command", read_file(fname), this_player());

    return 1;
}

string help() {
    return "Syntax: cat <file>\n\nDisplays the content of file <file> on your screen.\n\nSee also: tail, head, more";
}