view lisp/cdl.el @ 14461:4fe9540be594

(modifiers, modifier_key_support_tested, modifiers_recorded): New variables. (EMACS_LCONTROL, EMACS_RCONTROL, EMACS_LMENU, EMACS_RMENU): New macros. (test_modifier_support, record_keydown, record_keyup, modifier_set, construct_modifiers): New functions. (win32_wnd_proc): Monitor modifier keyup and keydown messages. Map window modifiers into console modifiers to unify input. (x_create_frame): Use the FixedSys font as the default font. (x_to_win32_font): For now, always use ANSI_CHARSET.

+
鐃緒申;;; cdl.el --- Common Data Language (CDL) utility functions for Gnu Emacs
+
鐃緒申
+
鐃緒申;; Copyright (C) 1993 Free Software Foundation, Inc.
+
鐃緒申
+
鐃緒申;; Author: [e-mail] (Ata Etemadi)
+
鐃緒申;; Keywords: data
+
鐃緒申
+
鐃緒申;; This file is part of GNU Emacs.
+
鐃緒申
+
鐃緒申;; GNU Emacs 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 2, or (at your option)
+
鐃緒申;; any later version.
+
鐃緒申
+
鐃緒申;; GNU Emacs is distributed in the hope that it will be useful,
+
鐃緒申;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+
鐃緒申;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+
鐃緒申;; 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., 59 Temple Place - Suite 330,
+
鐃緒申;; Boston, MA 02111-1307, USA.
+
鐃緒申
+
鐃緒申;;; Code:
+
鐃緒申
+
鐃緒申(defun cdl-get-file (filename)
+
鐃緒申  "Run file through ncdump and insert result into buffer after point."
+
鐃緒申  (interactive "fCDF file: ")
+
鐃緒申  (message "ncdump in progress...")
+
鐃緒申  (let ((start (point)))
+
鐃緒申    (call-process  "ncdump" nil t nil (expand-file-name filename))
+
鐃緒申    (goto-char start))
+
鐃緒申  (message "ncdump in progress...done"))
+
鐃緒申
+
鐃緒申(defun cdl-put-region (filename start end)
+
鐃緒申  "Run region through ncgen and write results into a file."
+
鐃緒申  (interactive "FNew CDF file: \nr")
+
鐃緒申  (message "ncgen in progress...")
+
鐃緒申  (call-process-region start end "ncgen"
+
鐃緒申		       nil nil nil "-o" (expand-file-name filename))
+
鐃緒申  (message "ncgen in progress...done"))
+
鐃緒申
+
鐃緒申;;; cdl.el ends here.