/* The more command. Still rather primitive. Begun by Mobydick, 6-18-94. */ int do_command (string str) { if (!str) return 0 ; if (!absolute_path(str)) { str = previous_object()->query_cwd() + str ; } /* Clear out any ., .., or ~ in the string. */ str = resolve_path(str) ; if (file_exists(str)<1) { fail_msg ("No such file: "+str+"\n") ; return 0 ; } if (!previous_object()->valid_read(str)) { write ("Permission denied to read "+str+"\n") ; return 1 ; } write (":: "+str+" ::\n") ; previous_object()->more_file(str) ; return 1 ; }