root/lang/elisp/pdicv-mode/trunk/nt-macros.el

;;; nt-macros.el --- useful (at least for NT) macros
;;
;; Copyright (C) 2005-2009 naoya_t. All Rights Reserved.
;;
;; Author: naoya_t <naoya.t@aqua.plala.or.jp>
;; Maintainer: naoya_t <naoya.t@aqua.plala.or.jp>
;; Primary distribution site:
;;Â  Â http://lambdarepos.svnrepository.com/svn/share/lang/elisp/pdicv-mode/trunk
;;
;; Created: 16 Feb 2005 (formerly nt-utils.el)
;; Last modified: 15 Dec 2005
;; Version: 1.0
;; Keywords: ++ -- ->

(provide 'nt-macros)

;;; Commentary:

; (++ VAR)
;   - ���R ��ͤ���
;     (setq VAR (1+ VAR)) ï¿½Î¥Þ¥ï¿½ï¿½í¡£

; (-- VAR)
;   - ���R ��ͤ򣱸��餹��
;     (setq VAR (1- VAR)) ï¿½Î¥Þ¥ï¿½ï¿½í¡£

; (string< S1 S2)
; (string> S1 S2)
; (string<= S1 S2)
; (string>= S1 S2)
;   - (string< S1 S2) ����ؿ��


;;; Code:
(defmacro ++ (var)
  "increment the specified variable"
  `(setq ,var (1+ ,var)))

(defmacro -- (var)
  "decrement the specified variable"
  `(setq ,var (1- ,var)))

(defmacro += (var num)
  `(setq ,var (+ ,var ,num)))

(defmacro -= (var num)
  `(setq ,var (- ,var ,num)))

(defmacro *= (var num)
  `(setq ,var (* ,var ,num)))

;(defmacro /= (var num)
;Â  `(setq ,var (/ ,var ,num)))

(defmacro != (a b)
  "/="
  `(not (= ,a ,b)))

(defmacro <<= (var num)
  `(setq ,var (lsh ,var ,num)))

(defmacro >>= (var num)
  `(setq ,var (lsh ,var (- ,num))))

(defmacro cdr= (list-var)
  `(setq ,list-var (cdr ,list-var)))

(defmacro concat= (str-var str)
  `(setq ,str-var (concat ,str-var ,str)))

;;
(defmacro -> (array key)
  ""
  `(cdr (assoc ,key ,array)))

;;
(defmacro string> (s1 s2)
  "string>"
  `(string< ,s2 ,s1))

(defmacro string<= (s1 s2)
  "string<="
  `(not (string< ,s2 ,s1)))

(defmacro string>= (s1 s2)
  "string>="
  `(not (string< ,s1 ,s2)))

;;; nt-macros.el ends here