Geek Gadgets 1/ADE-1.bin/ade-dist/emacs-19.28-src.tgz/tar.out/fsf/emacs/site-lisp/cc-compat.el

Lisp/Scheme | 1996-09-28 | 5KB | 156 lines

;;; cc-compat.el --- cc-mode compatibility with c-mode.el confusion

;; Author: 1994 Barry A. Warsaw, Century Computing, Inc. <[e-mail]>
;; Maintainer:    [e-mail]
;; Created:       August 1994
;; Version:       1.2
;; Last Modified: 1994/08/10 17:54:53
;; Keywords: C++ C Objective-C cc-mode

;; Copyright (C) 1994 Barry A. Warsaw

;; This file is not part of GNU Emacs.

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2 of the License, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to the Free Software
;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

;;; Commentary:
;;
;; Boring old c-mode.el (BOCM) is confusion and brain melt. cc-mode.el
;; is clarity of thought and purity of chi. If you are still unwilling
;; to accept enlightenment, this might help, or it may prolong your
;; agony.
;;
;; To use, add the following to your c-mode-hook:
;;
;; (require 'cc-compat)
;; (c-set-style "BOCM")

;; LCD Archive Entry:
;; cc-compat|Barry A. Warsaw|[e-mail]
;; |cc-mode compatibility with c-mode.el confusion
;; |1994/08/10 17:54:53|1.2|

;;; Code:


;; In case c-mode.el isn't loaded
(defvar c-indent-level 2
  "*Indentation of C statements with respect to containing block.")
(defvar c-brace-imaginary-offset 0
  "*Imagined indentation of a C open brace that actually follows a statement.")
(defvar c-brace-offset 0
  "*Extra indentation for braces, compared with other text in same context.")
(defvar c-argdecl-indent 5
  "*Indentation level of declarations of C function arguments.")
(defvar c-label-offset -2
  "*Offset of C label lines and case statements relative to usual indentation.")
(defvar c-continued-statement-offset 2
  "*Extra indent for lines not starting new statements.")
(defvar c-continued-brace-offset 0
  "*Extra indent for substatements that start with open-braces.
This is in addition to c-continued-statement-offset.")



;; these offsets are taken by brute force testing c-mode.el, since
;; there's no logic to what it does.
(let* ((offsets
    '((defun-block-intro     . cc-block-intro-offset)
      (statement-block-intro . cc-block-intro-offset)
      (defun-open            . 0)
      (class-open            . 0)
      (inline-open           . c-brace-offset)
      (block-open            . c-brace-offset)
      (block-close           . cc-block-close-offset)
      (brace-list-open       . c-brace-offset)
      (substatement-open     . cc-substatement-open-offset)
      (substatement          . c-continued-statement-offset)
      (knr-argdecl-intro     . c-argdecl-indent)
      (case-label            . c-label-offset)
      (access-label          . c-label-offset)
      (label                 . c-label-offset)
      )))
  (if (assoc "BOCM" c-style-alist)
      (setcdr (assoc "BOCM" c-style-alist)
          (list (cons 'c-offsets-alist offsets)))
    (setq c-style-alist
      (cons (list "BOCM" (cons 'c-offsets-alist offsets))
        c-style-alist)))
  )

(defun cc-block-intro-offset (langelem)
  ;; taken directly from calculate-c-indent confusion
  (save-excursion
    (c-backward-syntactic-ws)
    (if (= (preceding-char) ?{)
    (forward-char -1)
      (goto-char (cdr langelem)))
    (let* ((curcol (save-excursion
             (goto-char (cdr langelem))
             (current-column)))
      (bocm-lossage
       ;; If no previous statement, indent it relative to line
       ;; brace is on.  For open brace in column zero, don't let
       ;; statement start there too.  If c-indent-level is zero,
       ;; use c-brace-offset + c-continued-statement-offset
       ;; instead.  For open-braces not the first thing in a line,
       ;; add in c-brace-imaginary-offset.
       (+ (if (and (bolp) (zerop c-indent-level))
          (+ c-brace-offset c-continued-statement-offset)
        c-indent-level)
          ;; Move back over whitespace before the openbrace.  If
          ;; openbrace is not first nonwhite thing on the line,
          ;; add the c-brace-imaginary-offset.
          (progn (skip-chars-backward " \t")
             (if (bolp) 0 c-brace-imaginary-offset))
          ;; If the openbrace is preceded by a parenthesized exp,
          ;; move to the beginning of that; possibly a different
          ;; line
          (progn
        (if (eq (preceding-char) ?\))
            (forward-sexp -1))
        ;; Get initial indentation of the line we are on.
        (current-indentation)))))
      (- bocm-lossage curcol))))


(defun cc-block-close-offset (langelem)
  (save-excursion
    (let* ((here (point))
       bracep
       (curcol (progn
             (goto-char (cdr langelem))
             (current-column)))
       (bocm-lossage (progn
               (goto-char (cdr langelem))
               (if (= (following-char) ?{)
                   (setq bracep t)
                 (goto-char here)
                 (beginning-of-line)
                 (backward-up-list 1)
                 (forward-char 1)
                 (c-forward-syntactic-ws))
               (current-column))))
      (- bocm-lossage curcol
     (if bracep 0 c-indent-level)))))


(defun cc-substatement-open-offset (langelem)
  (+ c-continued-statement-offset c-continued-brace-offset))


(provide 'cc-compat)
;;; cc-compat.el ends here