home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / modes / sh-mode.el < prev    next >
Encoding:
Text File  |  1992-11-25  |  6.0 KB  |  208 lines
  1. ; Path: hal.com!decwrl!sdd.hp.com!usc!cs.utexas.edu!uunet!ogicse!das-news.harvard.edu!cantaloupe.srv.cs.cmu.edu!crabapple.srv.cs.cmu.edu!andrew.cmu.edu!ts49+
  2. ; From: strong+@CMU.EDU (Thomas W. Strong, Jr.)
  3. ; Newsgroups: gnu.emacs.sources
  4. ; Subject: sh-mode.el
  5. ; Date: 15 Nov 92 18:28:42 GMT
  6. ; Article-I.D.: andrew.Qf1mBui00VpdM8mzYs
  7. ; Organization: Pittsburgh Supercomputing Center, Carnegie Mellon, Pittsburgh, PA
  8. ; 
  9. ; Here's a beginning of sh-mode.el.  Any comments or suggestions for
  10. ; improvements would be appreciated
  11. ; 
  12. ; -------------- cut here -------------------
  13. ;;; sh-mode.el
  14. ;;
  15. ;;; LCD Archive Entry:
  16. ;;; sh-mode|Thomas W. Strong, Jr.|strong+@cmu.edu|
  17. ;;; Beginning of an sh mode.|
  18. ;;; 92-11-15||~/modes/sh-mode.el.Z|
  19. ;;; 
  20. ;;; hacked out of forth.el from the tile-forth package
  21. ;;;
  22. ;;; comments/complaints/flames to strong+@cmu.edu
  23. ;;;
  24.  
  25. (defvar sh-mode-positives
  26.   " for case while else elif if \) ) "
  27.   "Contains all words which will cause the indent-level to be incremented
  28. on the next line.
  29. OBS! All words in sh-mode-positives must be surrounded by spaces.")
  30.  
  31. (defvar sh-mode-negatives
  32.   " fi else elif done esac \;\; ;; "
  33.   "Contains all words which will cause the indent-level to be decremented
  34. on the current line.
  35. OBS! All words in sh-mode-negatives must be surrounded by spaces.")
  36.  
  37. (defvar sh-mode-zeroes
  38.   " #!/bin/sh "
  39.   "Contains all words which causes the indent to go to zero")
  40.  
  41. (defvar sh-mode-abbrev-table nil
  42.   "Abbrev table in use in sh-mode buffers.")
  43.  
  44. (define-abbrev-table 'sh-mode-abbrev-table ())
  45.  
  46. (defvar sh-mode-map nil
  47.   "Keymap used in sh mode.")
  48.  
  49. (if (not sh-mode-map)
  50.     (setq sh-mode-map (make-sparse-keymap)))
  51.  
  52. (define-key sh-mode-map "\t" 'sh-indent-command)
  53. (define-key sh-mode-map "\C-m" 'reindent-then-newline-and-indent)
  54.  
  55. (defvar sh-mode-syntax-table nil
  56.   "Syntax table in use in sh-mode buffers.")
  57.  
  58. (defvar sh-indent-level 2
  59.   "*Indentation of sh statements.")
  60.  
  61. (defun sh-mode-variables ()
  62.   (setq local-abbrev-table sh-mode-abbrev-table)
  63.   (make-local-variable 'indent-line-function)
  64.   (setq indent-line-function 'sh-indent-line)
  65.   (make-local-variable 'require-final-newline)
  66.   (setq require-final-newline t)
  67.   (make-local-variable 'parse-sexp-ignore-comments)
  68.   (setq parse-sexp-ignore-comments t))
  69.   
  70. (defun sh-mode ()
  71.   "Major mode for editing sh scripts.
  72. \\[sh-indent-command] properly indents subexpressions of multi-line
  73. if, while, foreach, and switch statements, taking nesting into account.
  74. Caveats:
  75. The file must start with '#!/bin/sh' for the indentation to start properly.
  76. Extra spaces should be inserted to make sure the indentation algorithm can
  77. figure out what is a keyword, string, etc.  For example, write
  78.     if ($foo == \"bar\")
  79. not
  80.     if($foo==\"bar\")
  81. or later lines may get indented wrong.  (Many lines like this are also
  82. illegal sh code, so this shouldn't cramp your style.)
  83.  
  84. The variable sh-indent-level controls the amount of indentation.
  85. \\{sh-mode-map}"
  86.   (interactive)
  87.   (kill-all-local-variables)
  88.   (use-local-map sh-mode-map)
  89.   (setq mode-name "sh")
  90.   (setq major-mode 'sh-mode)
  91.   (sh-mode-variables)
  92.   (run-hooks 'sh-mode-hook))
  93.  
  94. (defun sh-current-indentation ()
  95.   (save-excursion
  96.     (beginning-of-line)
  97.     (back-to-indentation)
  98.     (current-column)))
  99.  
  100. (defun sh-delete-indentation ()
  101.   (let
  102.       ((b nil)
  103.        (m nil))
  104.     (save-excursion
  105.       (beginning-of-line)
  106.       (setq b (point))
  107.       (back-to-indentation)
  108.       (setq m (point)))
  109.     (delete-region b m)))
  110.  
  111. (defun sh-indent-line (&optional flag)
  112.   "Correct indentation of the current sh line."
  113.   (let
  114.       ((x (sh-calculate-indent)))
  115.     (sh-indent-to x)))
  116.   
  117. (defun sh-indent-command ()
  118.   (interactive)
  119.   (sh-indent-line t))
  120.  
  121. (defun sh-indent-to (x)
  122.   (let
  123.       ((p nil))
  124.     (setq p (- (current-column) (sh-current-indentation)))
  125.     (sh-delete-indentation)
  126.     (beginning-of-line)
  127.     (indent-to x)
  128.     (if (> p 0) (forward-char p))))
  129.  
  130. ;;Calculate indent
  131. (defun sh-calculate-indent ()
  132.   (let ((w1 nil)
  133.     (indent 0)
  134.     (centre 0))
  135.     (save-excursion
  136.       (beginning-of-line)
  137.       (skip-chars-backward " \t\n")
  138.       (beginning-of-line)
  139.       (back-to-indentation)
  140.       (setq indent (current-column))
  141.       (setq centre indent)
  142.       (setq indent (+ indent (sh-sum-line-indentation))))
  143.     (save-excursion
  144.       (beginning-of-line)
  145.       (back-to-indentation)
  146.       (let ((p (point)))
  147.     (skip-chars-forward "^ \t\n")
  148.     (setq w1 (buffer-substring p (point)))))
  149.     (if (> (- indent centre) sh-indent-level)
  150.     (setq indent (+ centre sh-indent-level)))
  151.     (if (> (- centre indent) sh-indent-level)
  152.     (setq indent (- centre sh-indent-level)))
  153.     (if (< indent 0) (setq indent 0))
  154.     (setq indent (- indent
  155.             (if (string-match 
  156.              (regexp-quote (concat " " w1 " "))
  157.              sh-mode-negatives)
  158.             sh-indent-level 0)))
  159.     (if (string-match (regexp-quote (concat " " w1 " ")) sh-mode-zeroes)
  160.     (setq indent 0))
  161.     indent))
  162.  
  163. (defun sh-sum-line-indentation ()
  164.   "Add up the positive and negative weights of all words on the current line."
  165.   (let ((b (point))
  166.     (e nil)
  167.     (sum 0)
  168.     (w nil)
  169.     (t1 nil)
  170.     (t2 nil)
  171.     (first t))
  172.     (end-of-line) (setq e (point))
  173.     (goto-char b)
  174.     (while (< (point) e)
  175.       (setq w (sh-next-word))
  176.       (setq t1 (string-match (regexp-quote (concat " " w " "))
  177.                  sh-mode-positives))
  178.       (setq t2 (string-match (regexp-quote (concat " " w " "))
  179.                  sh-mode-negatives))
  180.       (if (and t1 t2)
  181.       (setq sum (+ sum sh-indent-level)))
  182.       (if t1
  183.       (setq sum (+ sum sh-indent-level)))
  184.       (if (and t2 (not first))
  185.       (setq sum (- sum sh-indent-level)))
  186.       (skip-chars-forward " \t")
  187.       (setq first nil))
  188.     sum))
  189.  
  190. (defun sh-next-word ()
  191.   "Return the next sh-word. Skip anything enclosed in double quotes."
  192.   (let ((w1 nil))
  193.     (while (not w1)
  194.       (skip-chars-forward " \t\n")
  195.       (if (not (looking-at "\""))
  196.       (let ((p (point)))
  197.         (skip-chars-forward "^ \t\n")
  198.         (setq w1 (buffer-substring p (point))))
  199.     (skip-chars-forward "^\"")
  200.     (forward-char 1)))
  201.     w1))
  202.  
  203. -------------- cut here -------------------
  204.  
  205.  
  206.  -----------------------------------------------------------------
  207.   Tom Strong              N3NBB              ts49+@andrew.cmu.edu
  208.