Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!sh.wide!tsbgw!tiswd-gw!tis2!tci20!zic
From: zic@tci.toshiba.CO.JP (Nobuyoshi Kamei)
Newsgroups: fj.editor.emacs
Subject: hideif.el; if defined ...
Message-ID: <ZIC.93May24140008@tcii0.tci.toshiba.CO.JP>
Date: 24 May 93 05:00:08 GMT
Sender: news@tci.toshiba.co.jp
Reply-To: zic@tci.toshiba.CO.JP
Distribution: fj
Organization: Toshiba CAE Systems, Inc.
Lines: 105
Nntp-Posting-Host: tcii0
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:3756
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=3756&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.


    Emacs 18.55$B!A(B18.59$B$G$N(B hideif.el

    hideif.el $B$O!"(BCPP$B$N(Bifdef$B$G!">r7o$K9g$o$J$$ItJ,$r1#$7$F$/$l$k$b$N$G$9$,!"(B
$BITET9g$r8+$D$1$^$7$?!#(B


    ANSI-CPP $B$G$O!"(B

    #if defined $B%7%s%\%k(B

$B$H$$$&=q<0$r5v$7$F$$$^$9$,!"(Bhideif.el $B$G$O!"(B

    #if defined($B%7%s%\%k(B)

$B$H$$$&$h$&$K!"I,$:3g8L$,$"$k$3$H$r2>Dj$7$F$$$^$9!#(B

    #if defined $B%7%s%\%k(B

$B$,2r<a$G$-$k$h$&$K$9$Y$-$@$H;W$$$^$9!#(B
    $B$=$N$h$&$K2~B$$5$l$?(B hideif.el $B$d!"$=$l0J>e$N2~NI$r2C$($?HG$O(B
$BB8:_$9$k$N$G$7$g$&$+(B?$B$"$k$J$i$P!"F~<j$7$?$$$H9M$($k$N$G!"(B
$B$I$J$?$+65$($F2<$5$$!#(B

    $B$H$j$"$($:!";d$O<!$N$h$&$K=$@5$7$F;HMQ$7$F$$$^$9!#(B

--- hideif.el.~1~Thu Jul 20 10:01:16 1989
+++ hideif.elFri May 21 14:12:12 1993
@@ -442,8 +442,14 @@
     ))
 
 (defun hif-factor ()
+;   >>ZIC NK1993052150    {
+;  "Parse a factor of the form
+;       factor : '!' factor | '(' expr ')' | 'defined(' id ')' | id."
+;   >>ZIC NK1993052150    }
+;   <<ZIC NK1993052150    {
   "Parse a factor of the form
-       factor : '!' factor | '(' expr ')' | 'defined(' id ')' | id."
+       factor : '!' factor | '(' expr ')' | 'defined' id | id."
+;   <<ZIC NK1993052150    }
   (cond
     ((eq token 'not)
      (hif-nexttoken)
@@ -458,19 +464,43 @@
  result)))
 
     ((eq token 'hif-defined)
-     (hif-nexttoken)
-     (if (not (eq token 'lparen))
- (error "Error: expected \"(\" after \"define\""))
-     (hif-nexttoken)
-     (let ((ident token))
-       (if (memq token '(or and not hif-defined lparen rparen))
-   (error "Error: unexpected token: %s" token))
-       (hif-nexttoken)
-       (if (not (eq token 'rparen))
-   (error "Error: expected \")\" after identifier"))
+;   >>ZIC NK1993052150    {
+;     (hif-nexttoken)
+;     (if (not (eq token 'lparen))
+; (error "Error: expected \"(\" after \"define\""))
+;     (hif-nexttoken)
+;     (let ((ident token))
+;       (if (memq token '(or and not hif-defined lparen rparen))
+;   (error "Error: unexpected token: %s" token))
+;       (hif-nexttoken)
+;       (if (not (eq token 'rparen))
+;   (error "Error: expected \")\" after identifier"))
+;       (hif-nexttoken)
+;       (` (hif-defined (quote (, ident))))
+;     )
+;   >>ZIC NK1993052150    }
+;   <<ZIC NK1993052150    {
+     (let   (is_lparen)
        (hif-nexttoken)
-       (` (hif-defined (quote (, ident))))
-       ))
+       (if (eq token 'lparen)
+   (progn
+     (setq    is_lparent)
+     (hif-nexttoken)
+     ))
+       (let ((ident token))
+ (if (memq token '(or and not hif-defined lparen rparen))
+     (error "Error: unexpected token: %s" token))
+ (if is_lparen
+     (progn
+       (hif-nexttoken)
+       (if (not (eq token 'rparen))
+   (error "Error: expected \")\" after identifier"))
+       ))
+ (hif-nexttoken)
+ (` (hif-defined (quote (, ident))))
+ ))
+;   <<ZIC NK1993052150    }
+       )
 
     (t ; identifier
       (let ((ident token))
---
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
$B550f!!?.5A(BE-mail: zic@tci.toshiba.co.jp
    $BEl<G(BCAE$B%7%9%F%`%:(B($B3t(B) $B%7%9%F%`5;=QIt(B $B4pK\%7%9%F%`C4Ev%0%k!<%W(B
7N1HVR/430MHzPhone: (044) 246-0367
