Mercurial > hg > xemacs-beta

comparison lisp/efs/efs-mvs.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents 7e54bd776075
children
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
1 ;; -*-Emacs-Lisp-*- 1 ;; -*-Emacs-Lisp-*-
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; 3 ;;
4 ;; File: efs-mvs.el 4 ;; File: efs-mvs.el
5 ;; Release: $efs release: 1.15 $ 5 ;; Release: $efs release: 1.15 $
6 ;; Version: $Revision: 1.4 $ 6 ;; Version: #Revision: 1.4 $
7 ;; RCS: 7 ;; RCS:
8 ;; Description: MVS support for efs 8 ;; Description: MVS support for efs
9 ;; Author: Sandy Rutherford <sandy@math.ubc.ca, sandy@itp.ethz.ch> 9 ;; Author: Sandy Rutherford <sandy@math.ubc.ca, sandy@itp.ethz.ch>
10 ;; Created: Sat Nov 14 02:04:54 1992 10 ;; Created: Sat Nov 14 02:04:54 1992
11 ;; Modified: Sun Nov 27 18:37:54 1994 by sandy on gandalf 11 ;; Modified: Sun Nov 27 18:37:54 1994 by sandy on gandalf
24 (require 'efs) 24 (require 'efs)
25 25
26 (defconst efs-mvs-version 26 (defconst efs-mvs-version
27 (concat (substring "$efs release: 1.15 $" 14 -2) 27 (concat (substring "$efs release: 1.15 $" 14 -2)
28 "/" 28 "/"
29 (substring "$Revision: 1.4 $" 11 -2))) 29 (substring "#Revision: 1.4 $" 11 -2)))
30 30
31 ;; What's the MVS character set for valid partitioned data sets? 31 ;; What's the MVS character set for valid partitioned data sets?
32 ;; I'll guess [-A-Z0-9_$+] 32 ;; I'll guess [-A-Z0-9_$+]
33 33
34 ;; The top level directory in MVS contains partitioned data sets. 34 ;; The top level directory in MVS contains partitioned data sets.