DataMuseum.dk

top - metrics - download

    Length: 4010 (0xfaa)
    Types: TextFile
    Names: ».ada-init«

└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
    └─⟦dbcd4071d⟧ »./gnu-ada-1.05.tar.Z« 
        └─⟦999713de5⟧ 
            └─⟦this⟧ ».ada-init« 

TextFile

;;;;;;;;;;;;;;;;;;;;;;;;;; -*- Mode: Emacs-Lisp -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;
;; .ada-init --- Sample .emacs file with ada stuff in it
;; Author          : Lynn Slater
;; Created On      : Tue Sep  6 13:08:37 1988
;; Last Modified By: Lynn Slater
;; Last Modified On: Tue Oct 18 07:06:34 1988
;; Update Count    : 12
;; Status          : General Public Release 1.05
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; History 		
;; 8-Sep-1988		Lynn Slater	
;;    added the autoloads, add to load-path, the auto-mode-alist, and the
;;    load of header.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Add the Ada support directory onto your load path
;;    Make this check safe for multiple evaluations
;;    even if it requires a little fiddling.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun add-to-load-path (dirname)
  "Adds DIR to the load path provided it is not already there"
  (interactive)
  (let ((private-load-path-name (expand-file-name dirname)))
    (if (not
	 ;; Below is the equivilent to the member function
	 (let ((found nil) 
	       (t-list load-path))
	   (while (and (not found) t-list)
	     (if (equal (car t-list) private-load-path-name)
		 (setq found t-list))
	     (setq t-list (cdr t-list)))
	   found));; end logical member fcn
	(setq load-path (cons private-load-path-name load-path))
      )))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; CHANGE THE FOLLOWING LINE!
(add-to-load-path "~lrs/emacs")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq auto-mode-alist			; invoke ada-mode on
      (cons '("\\.a$" . ada-mode)	; *.a files
	    (cons '("\\.a~$" . ada-mode)
		  auto-mode-alist)))

(autoload 'ada-mode "electric-ada"
  "Mode for ada programs"
	  t)

(require 'header)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; If you are an ada user, you may want to set up some of the following:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'elec-ada)                      ;; loads all the ada stuff
(setq dired-ada-mode t)                  ;; dired's will be in Ada mode

;; Include or Change the below only if the values shown are not the ones
;; you need.

;; (setq dired-ada-main-program-name "") ;; Name of main language unit last
;; 				         ;; used to link with a.ld. 
;; (setq ada-link-ld-options "" )        ;; Options to a.ld when linking.
;; (setq ada-compile-options "-v")       ;; Options to ada when compiling.
;; (setq ada-make-options "")            ;; Options to a.make
;; (setq ada-link-unix-options "")       ;; Options to Unix loader when linking
;; (setq ada-ls-options "-v")            ;; Options passed to a.ls.
;; (setq ada-du-options "-e -f -i")      ;; Options passed to a.du.
;; (setq ada-tags-options "-t")          ;; Options passed to a.tags.
;; (setq ada-tags-files "*.a")           ;; Files passed to a.tags.
;; (setq ada-run-options "")             ;; Options passed to run programs.
;; (setq ada-run-program "")             ;; Name of the program to run
;; (setq ada-spec-suffix "-a.a")         ;; Suffix presumed to exist on all
;; 				         ;;    Ada specification files. 
;; (setq ada-body-suffix "-b.a")         ;; Suffix of body files.
;;
;; If you expect to be using the BNF templates alot, uncomment the following
;;   (load "ada-templ" t t)  ;; loads the ada bnf
;; If you want the 'smart' templates bound to a sequence easier to type
;;    than "C-ct", uncomment the following
;;   (define-key ada-mode-map "\C-t" ada-template-map)
;;
;; For special operations
;;   (setq ada-mode-hook '(<list of your functions>'))
;;
;; Change the below if needed:
;;   Name of the directory containing  the online ada language reference.
;;   This directory is expected to contain the files TAGS and index.doc.1
;;   (setq ada-online-manual-directory "/tools/ada-source/ansi-lrm")