.# 0 _jed_secure_mode.ý3 Shell not availableþ % error/c* 8 Shell_Last_Shell_Command+ + Null_String°8 Shell_Last_Shell_Command* , Shell_Prompt+" $ °, Shell_Prompt,* # cmd+* % cfile $ file+/ _jed_shell.cmd_°$ file* & tmpdir+ý+ SYS$SCRATCHþ & getenv °& tmpdir & tmpdir $ NULLA.* SYS$LOGIN:°& tmpdir/cý & tmpdir $ fileþ & dircat°$ fileý- vms_shell.comþ 2 expand_jedlib_file°% cfileý % cfileþ & strlen.ý< Unable to open vms_shell.comþ % error/bý4 starting process ...þ % flushýý2 @%s/output=%s "%s" % cfile $ file # cmdþ ' sprintfþ & systemPý $ fileþ + insert_filePý $ fileþ + delete_filey- run_shell_cmd,* # dir $ file $ name % flags+ + getbuf_infoPP°# dirPý # dirþ 2 change_default_dir.ý0 Unable to chdir!þ % error/cý. *shell-output*þ ' pop2buf , erase_buffer + getbuf_info°% flags°$ nameP°$ fileý $ file # dir $ name % flagsþ + setbuf_info‚7 shell_set_output_buffer,* # cmd ( same_buf+* & status+ ( same_buf. 7 shell_set_output_buffer/b ) push_spotý # cmdþ - run_shell_cmd°& status ( pop_spotý / Exit Status: %d & statusþ ( vmessage†1 shell_perform_cmd,* # cmd # dir+* ( same_buf+% -9999ý% -9999þ / prefix_argumentB°( same_buf & _NARGS.°# cmd/. + getbuf_infoPP°# dirPýý/ (%s) Shell Cmd: # dirþ ' sprintf 8 Shell_Last_Shell_Commandþ ) read_mini°# cmdý # cmdþ & strlen.w/b # cmd°8 Shell_Last_Shell_Command/dýý" %s # cmdþ ' sprintf ( same_bufþ 1 shell_perform_cmd†, do_shell_cmd,* # dir # buf+' *shell*°# bufý # bufþ ( keymap_p.ý # bufþ + make_keymapý+ shell_input" ^M # bufþ ) definekey/b + getbuf_infoPP°# dirPý # dirþ 2 change_default_dir.ý0 Unable to chdir!þ % error/cý # bufþ ' pop2bufý # bufþ * use_keymapý* \n(%s)\n%s # dir , Shell_Promptþ ' vinsert + getbuf_infoý# 256J# 163OFþ + setbuf_infoý/ shell_mode_hookþ . run_mode_hooks†% shell,* # cmd+* $ argv # dir # buf $ flag # pwd+# pwd°# pwd* $ cmd1+ý # cmd" þ + strcompress°$ cmd1 + getbuf_info°$ flag°# buf°# dirPý # cmd! 0" 32þ / extract_element°$ argv $ argv. # pwdx3 $ argv/.% clearx3 , erase_buffer # pwd/.$ exitx3ý! 0þ 8 set_buffer_modified_flagý # bufþ & delbuf + Null_String/." cdx3ý $ cmd1! 1" 32þ / extract_element°$ argv $ argv $ NULLA." ~/°$ argv/cý $ argvþ / expand_filename°$ argvý $ argvþ 2 change_default_dir.ý2 Unable to chdir!\nþ & insert/.ý + Null_String $ argv # buf $ flagþ + setbuf_info/d # pwd/.# jedx! exD3ý $ cmd1! 1" 32þ / extract_element°$ argv $ argv $ NULLB.ýýý # dir $ argvþ & dircatþ / expand_filenameþ ) find_fileP/c + Null_String/. # cmd/jy- shell_builtin,* # cmd # dir # tmp+ # bolý , Shell_Promptþ * skip_chars * skip_white - push_mark_eol ) bufsubstr°# cmd # eob # bolý , Shell_Promptþ * skip_chars * skip_whiteý # cmdþ * looking_at.ý # cmdþ & insert/b # eol ' newlineý! 0þ & updateý # cmdþ & strlen.ý # cmdþ - shell_builtin°# cmdý # cmdþ & strlen.ý! 0þ & updatew/b + getbuf_infoPP°# dirPý # dirþ 2 change_default_dir.ý0 Unable to chdir!þ % error/cý # cmd# pwdþ & strcmp.ý6 sys$login:_jed_shell_.þ - make_tmp_file°# tmp* $ file+ý- vms_shell.comþ 2 expand_jedlib_file°$ fileý $ fileþ & strlen.ý< Unable to find vms_shell.comþ % error/býý1 @%s/output= %s %s $ file # tmp # cmdþ ' sprintfþ & systemPý # tmpþ + insert_filePý # tmpþ + delete_fileP/cý* \n(%s)\n%s # dir , Shell_Promptþ ' vinsert/. $ bolp. ' newline/bý , Shell_Promptþ & insert/dý! 0þ 8 set_buffer_modified_flagy+ shell_input