Mercurial > hg > xemacs-beta

comparison lisp/efs/efs-mpe.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 8fc7fe29b841
children
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
1 ;; -*-Emacs-Lisp-*- 1 ;; -*-Emacs-Lisp-*-
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; 3 ;;
4 ;; File: efs-mpe.el 4 ;; File: efs-mpe.el
5 ;; Release: $efs release: 1.15 $ 5 ;; Release: $efs release: 1.15 $
6 ;; Version: $Revision: 1.1 $ 6 ;; Version: #Revision: 1.8 $
7 ;; RCS: 7 ;; RCS:
8 ;; Description: MPE (HP3000) support for efs. 8 ;; Description: MPE (HP3000) support for efs.
9 ;; Author: (Corny de Souza) cdesouza@hpbbn.bbn.hp.com 9 ;; Author: (Corny de Souza) cdesouza@hpbbn.bbn.hp.com
10 ;; Created: Fri Jan 15 12:58:29 1993 10 ;; Created: Fri Jan 15 12:58:29 1993
11 ;; Modified: Sun Nov 27 18:36:13 1994 by sandy on gandalf 11 ;; Modified: Sun Nov 27 18:36:13 1994 by sandy on gandalf
123 ;;; Internal Variables 123 ;;; Internal Variables
124 124
125 (defconst efs-mpe-version 125 (defconst efs-mpe-version
126 (concat (substring "$efs release: 1.15 $" 14 -2) 126 (concat (substring "$efs release: 1.15 $" 14 -2)
127 "/" 127 "/"
128 (substring "$Revision: 1.1 $" 11 -2))) 128 (substring "#Revision: 1.8 $" 11 -2)))
129 129
130 ;;; Support for build parameters 130 ;;; Support for build parameters
131 131
132 (defun efs-mpe-get-buildparms (path) 132 (defun efs-mpe-get-buildparms (path)
133 ;; Gets the mpe buildparms for PATH. PATH should be in efs syntax. 133 ;; Gets the mpe buildparms for PATH. PATH should be in efs syntax.