cvs commit: tcl-rivet/contrib rvt.vim two-mode-mode.el

[da...@apache.org]

davidw      2003/08/05 05:56:51

  Added:       contrib  rvt.vim two-mode-mode.el
  Log:
  * contrib/rvt.vim: Added contributed vim mode for editing Rivet files.
  
  * contrib/two-mode-mode.el: Added emacs mode for editing Rivet files.
  
  Revision  Changes    Path
  1.1                  tcl-rivet/contrib/rvt.vim
  
  Index: rvt.vim
  ===================================================================
  " RVT (mod_dtcl) syntax file.
  " Language:	Tcl + HTML
  " Maintainer:	Wojciech Kocjan <zo...@nowiny.net>
  " Filenames:	*.rvt
  
  if version < 600
    syntax clear
  elseif exists("b:current_syntax")
    finish
  endif
  
  if !exists("main_syntax")
    let main_syntax = 'rvt'
  endif
  
  if version < 600
    so <sfile>:p:h/html.vim
  else
    runtime! syntax/html.vim
    unlet b:current_syntax
  endif
  
  
  syntax include @tclTop syntax/tcl.vim
  
  syntax region rvtTcl keepend matchgroup=Delimiter start="<?" end="?>" contains=@tclTop
  
  let b:current_syntax = "rvt"
  
  if main_syntax == 'rvt'
    unlet main_syntax
  endif
  
  
  
  1.1                  tcl-rivet/contrib/two-mode-mode.el
  
  Index: two-mode-mode.el
  ===================================================================
  ;; two-mode-mode.el -- switches between tcl and sgml(html) modes
  ;; $Id: two-mode-mode.el,v 1.1 2003/08/05 12:56:51 davidw Exp $
  
  ;; two-mode-mode.el is Copyright (C) David Welton <da...@dedasys.com>
  ;; 1999-2001, Copyright (C) the Apache Software Foundation 2001-2003.
  
  ;; two-mode-mode.el may be distributed under the terms of the Apache
  ;; Software License, Version 1.1
  
  ;; These same concepts could be used to do a number of neat 2-mode
  ;; modes, for things like PHP, or anything else where you have a
  ;; couple of modes you'd like to use.
  
  ;; Use of 'psgml-mode' is highly recommended.  It is, of course, a
  ;; part of Debian GNU/Linux.
  
  ;; Modified by Marco Pantaleoni <pa...@elasticworld.org>
  ;; to allow execution of an hook on mode switching.
  ;; Also added a standard mode hook and some documentation strings.
  
  ;; Janko Heilgeist <ja...@heilgeist.com> and Stefan Schimanski
  ;; <1s...@gmx.de> submitted modifications that enable the use of
  ;; multiple modes, so I suppose that 'two-mode-mode' isn't strictly
  ;; accurate anymore.
  
  ;; configure these:
  (defvar default-mode (list "SGML" 'sgml-mode))
  (defvar second-modes (list
                        (list "C++" "<?php" "?>" 'c++-mode)
                        (list "Python" "<?python" "?>" 'python-mode)
  		      (list "Tcl" "<?" "?>" 'tcl-mode)
  		      ))
  ;; ----------------
  
  (defvar two-mode-update 0)
  (defvar two-mode-mode-idle-timer nil)
  (defvar two-mode-bool nil)
  (defvar two-mode-mode-delay (/ (float 1) (float 8)))
  
  ;; Two mode hook
  (defvar two-mode-hook nil
    "*Hook called by `two-mode'.")
  (setq two-mode-hook nil)
  
  ;; Mode switching hook
  (defvar two-mode-switch-hook nil
    "*Hook called upon mode switching.")
  (setq two-mode-switch-hook nil)
  
  (defun two-mode-mode-setup ()
    (make-local-hook 'post-command-hook)
    (add-hook 'post-command-hook 'two-mode-mode-need-update nil t)
    (make-local-variable 'minor-mode-alist)
    (make-local-variable 'two-mode-bool)
    (setq two-mode-bool t)
    (when two-mode-mode-idle-timer
      (cancel-timer two-mode-mode-idle-timer))
    (setq two-mode-mode-idle-timer (run-with-idle-timer two-mode-mode-delay t 'two-mode-mode-update-mode))
    (or (assq 'two-mode-bool minor-mode-alist)
        (setq minor-mode-alist
  	    (cons '(two-mode-bool " two-mode") minor-mode-alist))))
  
  (defun two-mode-mode-need-update ()
    (setq two-mode-update 1))
  
  (defun two-mode-change-mode (to-mode func)
    (if (string= to-mode mode-name)
        t
      (progn 
        (funcall func)
  
        ;; After the mode was set, we reread the "Local Variables" section.
        ;; We do need this for example in SGML-mode if "sgml-parent-document"
        ;; was set, or otherwise it will be reset to nil when sgml-mode is left.
        (hack-local-variables)
  
        (two-mode-mode-setup)
        (if two-mode-switch-hook
  	  (run-hooks 'two-mode-switch-hook))
        (if (eq font-lock-mode t)
  	  (font-lock-fontify-buffer))
        (turn-on-font-lock-if-enabled))))
  
  (defun two-mode-mode-update-mode ()
    (when (and two-mode-bool two-mode-update)
      (setq two-mode-update 0)
      (let ((mode-list second-modes)
  	  (flag 0))
        (while mode-list
  	(let ((mode (car mode-list))
  	      (lm -1)
  	      (rm -1))
  	  (save-excursion 
  	    (if (search-backward (cadr mode) nil t)
  		(setq lm (point))
  	      (setq lm -1)))
  	  (save-excursion
  	    (if (search-backward (caddr mode) nil t)
  		(setq rm (point))
  	      (setq rm -1)))
  	  (if (and (not (and (= lm -1) (= rm -1))) (>= lm rm))
  	      (progn
  		(setq flag 1)
  		(setq mode-list '())
  		(two-mode-change-mode (car mode) (cadddr mode)))))
  	(setq mode-list (cdr mode-list)))
        (if (= flag 0)
  	  (two-mode-change-mode (car default-mode) (cadr default-mode))))))
  
  (defun two-mode-mode ()
    "Turn on two-mode-mode"
    (interactive)
    (funcall (cadr default-mode))
    (two-mode-mode-setup)
    (if two-mode-hook
       (run-hooks 'two-mode-hook)))
  
  (provide 'two-mode-mode)
  
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: rivet-cvs-help@tcl.apache.org