Return to kepteditor.com CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55

Annotation of 43BSDReno/contrib/emacs-18.55/kepteditor.com, revision 1.1.1.1

1.1       root        1: $ verify = f$verify (0)
                      2: $ !
                      3: $ ! Kept_Editor.COM
                      4: $ ! Command file for use on VMS to spawn an Emacs process
                      5: $ ! that can be suspended with C-z and will not go away
                      6: $ ! when other programs are run.  This is the normal way
                      7: $ ! for users to invoke Emacs on VMS; the command "emacs"
                      8: $ ! is normally defined to execute this file.
                      9: $ ! That definition, and other definitions used by it, are done by `emacs.com'.
                     10: $ ! Users who want to use Emacs should have their `login.com' files
                     11: $ ! execute `emacs.com', which is to be found in this directory.
                     12: $ !
                     13: $ ! Joe Kelsey
                     14: $ ! FlexComm Corp.
                     15: $ !
                     16: $ ! September, 1985
                     17: $ !
                     18: $ ! Run or attach to an editor in a kept fork.
                     19: $ !
                     20: $ ! Modified by Marty Sasaki to define the job logical name
                     21: $ ! "EMACS_FILE_NAME" with the value of the filename on the command
                     22: $ ! line. Lisp code can then use the value of the logical to resume or
                     23: $ ! to start editing in that file.
                     24: $ !
                     25: $ !
                     26: $      edit            = ""
                     27: $      name            = p1 + " " + f$trnlnm ( "TT" ) - ":"
                     28: $      priv_list       = f$setprv ("NOWORLD, NOGROUP")
                     29: $      pid             = 0
                     30: $ 10$:
                     31: $      proc            = f$getjpi ( f$pid ( pid ), "PRCNAM")
                     32: $      if proc .eqs. name then -
                     33: $              goto attach
                     34: $      if pid .ne. 0 then -
                     35: $              goto 10$
                     36: $ spawn:
                     37: $      args            = p2 + " " + p3 + " " + p4 + " " + p5 + " " + -
                     38:                          p6 + " " + p7 + " " + p8
                     39: $      priv_list       = f$setprv ( priv_list )
                     40: $      write sys$error -
                     41: "[Spawning a new Kept ''P1']"
                     42: $      if p1 .nes. "TPU" then -
                     43: $              goto check_emacs
                     44: $      define/user     sys$input       sys$command
                     45: $      spawn   /process="''NAME'" -
                     46:                /nolog -
                     47:                edit/'p1' 'args'
                     48: $      goto quit
                     49: $ check_emacs:
                     50: $      if p1 .nes. "EMACS" then -
                     51: $              goto un_kempt
                     52: $      define/user     sys$input       sys$command
                     53: $      spawn   /process="''NAME'" -
                     54:                /nolog -
                     55:                runemacs 'args'
                     56: $      goto quit
                     57: $ un_kempt:
                     58: $ ! The editor is unruly - spawn a process and let the user deal with the
                     59: $ ! editor himself.
                     60: $      spawn   /process="''NAME'" -
                     61:                /nolog
                     62: $      goto quit
                     63: $ attach:
                     64: $      priv_list       = f$setprv ( priv_list )
                     65: $      message_status = f$environment("message")
                     66: $      set noon
                     67: $      set message /nofacility/noidentification/noseverity/notext
                     68: $      deassign/job emacs_file_name
                     69: $      set on
                     70: $      set message 'message_status
                     71: $      if p2 .eqs. "" then goto no_logical
                     72: $      temp = f$trnlnm("SYS$DISK") + f$directory() + p2
                     73: $      temp = f$edit(temp,"lowercase")
                     74: $      define/nolog/job emacs_file_name "''temp'"
                     75: $ no_logical:
                     76: $      write sys$error -
                     77: "[Attaching to process ''NAME']"
                     78: $      define/user     sys$input       sys$command
                     79: $      attach "''NAME'"
                     80: $ quit:
                     81: $      write sys$error -
                     82: "[Attached to DCL in directory ''F$TRNLNM("SYS$DISK")'''F$DIRECTORY()']"
                     83: $      if verify then -
                     84: $              set verify
                     85: $      exit

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.