root/lang/elisp/pdicv-mode/trunk/nt-file.el @ 67

;;; nt-file.el --- file-related functions
;;
;; Copyright (C) 2005 Naoya TOZUKA. All Rights Reserved.
;;
;; Author: Naoya TOZUKA <pdicviewer@gmail.com>
;; Maintainer: Naoya TOZUKA <pdicviewer@gmail.com>
;; Primary distribution site: http://pdicviewer.naochan.com/el/
;;
;; Created: 16 Feb 2005 (formerly nt-utils)
;; Last modified: 15 Dec 2005
;; Version: 1.0
;; Keywords: read-from-file

(provide 'nt-file)

;;; Commentary:

; (read-from-file FNAME FROM LENGTH)
;   - �ե�����NAME �Ρ��Ƭ�������FROM  ����     LENGTH �Х������߼���ʸ������֤���

; (scan-latest-version PATHNAME-FMT MIN MAX)
;   - �ե����ޥå�PATHNAME-FMT �ǻ�ꤵ�줿�ѥ�̾�Υե���������;     �С�������椬 MIN �ʾ�AX �ʲ���ϰ���Ǥ������������
;     (�) (scan-latest-version "EIJIRO%d.DIC" 50 100)
;   - ���Ĥ������� nil �����

;;; Code:
(defun nt:read-from-file (filename read-from read-length)
  "read a part of file"
  (save-current-buffer
    (let ((buffer-name (generate-new-buffer-name "*read-from-file*"))
          (my-buffer nil))
      (generate-new-buffer buffer-name)
      (set-buffer buffer-name)
      (insert-file-contents-literally filename nil read-from (+ read-from read-length) nil)
                                        ;    (setq buffer-read-only t)
      (setq my-buffer (buffer-substring 1 (+ 1 read-length)))
      (kill-buffer buffer-name)
      my-buffer
      ) ; let
    ) ; save-current-buffer
  )

(defun nt:scan-latest-version (filename-format min max)
  (catch 'scan-latest-version
    (let ((version max))
      (while (>= version min)
        (let ((file (format filename-format version)))
          (if (file-readable-p file) (throw 'scan-latest-version (list file version))
            (setq version (1- version))
            );fi
          );let
        );wend
      nil
      );let
    );caught
  )

;;; nt-file.el ends here