[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Towards a large file mode, slowness

From: Andreas Röhler
Subject: Towards a large file mode, slowness
Date: Wed, 2 Jul 2008 14:14:02 +0200
User-agent: KMail/1.9.6 (enterprise 20070904.708012)


dealing with large files, exceeding emacs capabilities,
idea is to use `sed' to deliver subsequent chunks.

This seems possible if the files structur is line-separated, 
if no single line exceeds max volume.

For example that way:

sed -n '111,130p' ein.txt

In the real program below the range is given by var
`ltm-start-line' and

(+ ltm-start-line ltm-line-step)

If I call `sed' from within an Emacs-Shell, its quite
fast regardless of the files volume.

Using `shell-command-to-string' or `call-process' as
the program below, it's slowed down

Any ideas how to avoid this?


Andreas Röhler

;;; large-text-mode.el --- Loads large line-separated files 

;; Copyright (C) 2008  Andreas Roehler

;; Author: vorname nachname <address@hidden>
;; Keywords: wp

;; This file 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 3, or (at your option)
;; any later version.

;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Commentary:


;;; Code:

;; sed -n '111,130p' ein.txt

(require 'ffap)

(setq ltm-line-step 2)
(setq ltm-start-line 1)
(defvar ltm-file nil)

(defun ltm-find-file (&optional ltm-start-line ltm-file)
  (interactive "p")
  (let* ((file (cond (ltm-file ltm-file)
                     ((featurep 'ffap)
                     (read-from-minibuffer "File: ")))
         (buffer (file-name-nondirectory file)))
    (ltm-find-file-intern file buffer (concat "sed -n "(number-to-string 
ltm-start-line)"," (number-to-string (+ ltm-start-line ltm-line-step))"p ")))
  (setq ltm-start-line ltm-start-line)
  (setq ltm-file ltm-file))

(defun ltm-find-file-intern (file buffer sedcommand)
  (set-buffer (get-buffer-create buffer))
  (switch-to-buffer buffer)
 ;; Two alternatives
 ;; (call-process "/bin/bash" file buffer t "-c" sedcommand) 
  (insert (shell-command-to-string  (concat sedcommand file)))

(defun ltm-next ()
  " "
  (setq ltm-start-line (+ ltm-start-line ltm-line-step))
  (ltm-find-file ltm-start-line ltm-file))

(provide 'large-text-mode)
;;; large-text-mode.el ends here

reply via email to

[Prev in Thread] Current Thread [Next in Thread]