home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / modes / fortran-misc.el < prev    next >
Encoding:
Text File  |  1992-10-28  |  7.0 KB  |  211 lines
  1. ;;; fortran-misc.el --- Routines than can be used with fortran mode.
  2.  
  3. ;;; Copyright (c) 1992 Free Software Foundation, Inc.
  4.  
  5. ;; Author: Various authors.
  6. ;; Maintainer:
  7. ;; Version
  8. ;; Keywords: languages
  9.  
  10. ;; This file is not part of GNU Emacs.
  11.  
  12. ;; GNU Emacs is free software; you can redistribute it and/or modify
  13. ;; it under the terms of the GNU General Public License as published by
  14. ;; the Free Software Foundation; either version 2, or (at your option)
  15. ;; any later version.
  16.  
  17. ;; GNU Emacs is distributed in the hope that it will be useful,
  18. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20. ;; GNU General Public License for more details.
  21.  
  22. ;; You should have received a copy of the GNU General Public License
  23. ;; along with GNU Emacs; see the file COPYING.  If not, write to
  24. ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  25.  
  26. ;;; Commentary:
  27.  
  28. ;;; This file contains various routines that may be useful with GNU emacs
  29. ;;; fortran mode, but just don't seem to fit in.
  30.  
  31. (defun fortran-fill-statement ()
  32.   "Fill a fortran statement up to `fill-column'."
  33.   (interactive)
  34.   (if (save-excursion
  35.     (beginning-of-line)
  36.     (or (looking-at "[ \t]*$")
  37.         (looking-at comment-line-start-skip)
  38.         (and comment-start-skip
  39.          (looking-at (concat "[ \t]*" comment-start-skip)))))
  40.       (fortran-indent-line)
  41.     (let ((opos (point)) (beg) (cfi))
  42.       (save-excursion
  43.     (fortran-next-statement)
  44.     (fortran-previous-statement)
  45.     (setq cfi (calculate-fortran-indent))
  46.     (setq beg (point)))
  47.       (save-excursion
  48.     (goto-char beg)
  49.     (save-excursion
  50.       ;;(beginning-of-line)
  51.       (if (or (not (= cfi (fortran-current-line-indentation)))
  52.           (and (re-search-forward "^[ \t]*[0-9]+" (+ (point) 4) t)
  53.                (not (fortran-line-number-indented-correctly-p))))
  54.           (fortran-indent-to-column cfi)))
  55.     (while (progn 
  56.          (forward-line 1)
  57.          (or (looking-at "     [^ 0\n]")
  58.              (looking-at "\t[1-9]")))
  59.       (delete-indentation)
  60.       (delete-char 2)
  61.       (delete-horizontal-space))
  62.     (fortran-previous-statement)
  63.     (if (> (save-excursion (end-of-line) (current-column)) fill-column)
  64.         (fortran-do-auto-fill)))
  65.       (if (< (point) opos) (goto-char opos))
  66.       (let ((cfi (calculate-fortran-indent)))
  67.     (if (< (current-column) cfi)
  68.       (move-to-column cfi))))))
  69.   
  70. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  71. ;;; The upcase/downcase and beautifier code is originally from Ralph Finch
  72. ;;; (rfinch@water.ca.gov).
  73. ;;;
  74. (defun fortran-downcase-subprogram ()
  75.   "Properly downcases the Fortran subprogram which contains point."
  76.   (interactive)
  77.   (save-excursion
  78.     (mark-fortran-subprogram)
  79.     (message "Downcasing subprogram...")
  80.     (fortran-downcase-region (point) (mark)))
  81.   (message "Downcasing subprogram...done."))
  82.  
  83. (defun fortran-downcase-region (start end)
  84.   "Downcase region, excluding comment lines and anything
  85. between quote marks."
  86.   (interactive "r")
  87.   (fortran-case-region start end nil))
  88.  
  89. (defun fortran-upcase-region (start end)
  90.   "Upcase region, excluding comment lines and anything
  91. between quote marks."
  92.   (interactive "r")
  93.   (fortran-case-region start end t))
  94.  
  95. (defun fortran-upcase-subprogram ()
  96.   "Properly upcases the Fortran subprogram which contains point."
  97.   (interactive)
  98.   (save-excursion
  99.     (mark-fortran-subprogram)
  100.     (message "Upcasing subprogram...")
  101.     (fortran-upcase-region (point) (mark)))
  102.   (message "Upcasing subprogram...done."))
  103.  
  104. (defun fortran-case-region (start end up)
  105.   "Upcase region if UP is t, downcase, if UP downcase region,
  106.  excluding comment lines and anything between quote marks."
  107.   (let* ((start-re-comment "^[cC*#]")
  108.      (end-re-comment "$")
  109.      (start-re-quote "'")
  110.      (end-re-quote "\\('\\|$\\)")
  111.      (start-re-dquote (char-to-string ?\"))
  112.      (end-re-dquote (concat "\\(" start-re-dquote "\\|$\\)"))
  113.      (strt) (fin))
  114.     (save-excursion
  115.       (save-restriction
  116.     (narrow-to-region start end)
  117.     (goto-char (point-min))
  118.     (if (inside-re start-re-comment end-re-comment)
  119.         (re-search-forward end-re-comment end 0))
  120.     (if (inside-re start-re-quote end-re-quote)
  121.         (re-search-forward end-re-quote end 0))
  122.     (if (inside-re start-re-dquote end-re-dquote)
  123.         (re-search-forward end-re-dquote end 0))
  124.     (setq strt (point))
  125.     (while (< (point) (point-max))
  126.       (re-search-forward
  127.        (concat "\\(" start-re-comment "\\|"
  128.            start-re-quote "\\|" start-re-dquote "\\)") end 0)
  129.       (setq fin (point))
  130.       (if up
  131.           (upcase-region strt fin)
  132.         (downcase-region strt fin))
  133.       (if (inside-re start-re-comment end-re-comment)
  134.           (re-search-forward end-re-comment end 0))
  135.       (if (inside-re start-re-quote end-re-quote)
  136.           (re-search-forward end-re-quote end 0))
  137.       (if (inside-re start-re-dquote end-re-dquote)
  138.           (re-search-forward end-re-dquote end 0))
  139.       (setq strt (point)))))))
  140.  
  141. (defun inside-re (start-re end-re)
  142.   "Returns t if inside a starting regexp and an ending regexp
  143. on the same line."
  144.   (interactive "s")
  145.   (let ((start-line) (end-line))
  146.     (save-excursion
  147.       (setq start-line (progn (beginning-of-line) (point)))
  148.       (setq end-line (progn (end-of-line) (point))))
  149.     (if (and (save-excursion
  150.            (re-search-backward start-re start-line t))
  151.          (save-excursion
  152.            (re-search-forward end-re end-line t)))
  153.     t
  154.       nil)))
  155.  
  156. ;;; Note: Just as with some other routines, fortran-beautify-line
  157. ;;;       assumes trailing blanks are not significant. Code may need
  158. ;;;       to be adjusted to comply with this.
  159.                        
  160.  
  161. (defun fortran-beautify-subprogram (&optional downit)
  162.   "Beautify Fortran subprogram:
  163. 1) Remove trailing blanks.
  164. 2) Replace all continuation characters with fortran-continuation-char.
  165. 3) Replace all empty comment lines with blank lines.
  166. 4) Replace all multiple blank lines with one blank line.
  167. 5) Indent.
  168. 6) With prefix arg, downcase the subprogram, avoiding comments and
  169. quoted strings."
  170.   (interactive "P")
  171.   (save-excursion
  172.     (mark-fortran-subprogram)
  173.     (message "Beautifying subprogram...")
  174.     (fortran-beautify-region (point) (mark) downit))
  175.   (message "Beautify subprogram...done."))
  176.  
  177. (defun fortran-beautify-region (start end &optional downit)
  178.   "Beautify region in a Fortran program:
  179. 1) Remove trailing blanks.
  180. 2) Replace all continuation characters with fortran-continuation-char.
  181. 3) Replace all empty comment lines with blank lines.
  182. 4) Replace all multiple blank lines with one blank line.
  183. 5) Indent.
  184. 6) With prefix arg, downcase the region, avoiding comments and
  185.  quoted strings."
  186.   (interactive "r\nP")
  187.   (save-excursion
  188.     (save-restriction
  189.       (let ((m1 (make-marker))
  190.         (m2 (make-marker)))
  191.     (set-marker m1 start)
  192.     (set-marker m2 end)
  193.     (indent-region start end nil)
  194.     (narrow-to-region m1 m2)
  195.     (goto-char (point-min))        ; trailing blanks
  196.     (perform-replace "[ \t]+$" "" nil t nil)
  197.     (goto-char (point-min))        ; continuation characters
  198.     (perform-replace (concat "^     [^ " fortran-continuation-string
  199.                  "]" )
  200.              (concat "     " fortran-continuation-string)
  201.              nil t nil)
  202.     (goto-char (point-min))        ; empty comments
  203.     (perform-replace "^[cC][ \t]*$" "" nil t nil)
  204.     (goto-char (point-min))        ; multiple blank lines
  205.     (perform-replace "\n\n\n+" "\n\n" nil t nil)
  206.     (if downit
  207.         (fortran-downcase-region (point-min) (point-max)))
  208.     )))
  209.  
  210. )
  211.