home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume41 / defunc / part02 < prev    next >
Encoding:
Text File  |  1993-12-19  |  45.5 KB  |  1,436 lines
  1. Newsgroups: comp.sources.misc
  2. From: jinke@sparky.Phy.QueensU.CA (Ke Jin)
  3. Subject: v41i033:  defunc - C library package for runtime function constructing, Part02/02
  4. Message-ID: <1993Dec14.045908.9569@sparky.sterling.com>
  5. X-Md4-Signature: 5a7b0b657b83447e3cccd34fa6c1d26a
  6. Sender: kent@sparky.sterling.com (Kent Landfield)
  7. Organization: Sterling Software
  8. Date: Tue, 14 Dec 1993 04:59:08 GMT
  9. Approved: kent@sparky.sterling.com
  10.  
  11. Submitted-by: jinke@sparky.Phy.QueensU.CA (Ke Jin)
  12. Posting-number: Volume 41, Issue 33
  13. Archive-name: defunc/part02
  14. Environment: UNIX, yacc
  15.  
  16. #! /bin/sh
  17. # This is a shell archive.  Remove anything before this line, then feed it
  18. # into a shell via "sh file" or similar.  To overwrite existing files,
  19. # type "sh file -c".
  20. # Contents:  Makefile defunc.3.UU defunc.h demo.c dfcscan.h
  21. #   dfcsymtable.h dfctree.h dfopen.3.UU y.tab.c
  22. # Wrapped by kent@sparky on Mon Dec 13 22:36:50 1993
  23. PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:/usr/lbin:$PATH ; export PATH
  24. echo If this archive is complete, you will see the following message:
  25. echo '          "shar: End of archive 2 (of 2)."'
  26. if test -f 'Makefile' -a "${1}" != "-c" ; then 
  27.   echo shar: Will not clobber existing file \"'Makefile'\"
  28. else
  29.   echo shar: Extracting \"'Makefile'\" \(382 characters\)
  30.   sed "s/^X//" >'Makefile' <<'END_OF_FILE'
  31. X# for library file 
  32. XLIBDIR = /usr/lib 
  33. X
  34. X# for include file
  35. XINCDIR = /usr/include
  36. X
  37. XCFLAGS = -O
  38. XOBJS = defunc.o dfctree.o dfcsymtable.o y.tab.o
  39. X
  40. Xy.tab.c: dfcparse.y
  41. X    $(YACC.y) dfcparse.y
  42. X
  43. Xinstall: libdfc.a
  44. X    install libdfc.a $(LIBDIR)
  45. X    install defunc.h $(INCDIR)
  46. X    ranlib -t $(LIBDIR)/libdfc.a 
  47. X
  48. Xlibdfc.a: $(OBJS)
  49. X    $(AR) $(ARFLAGS) $@ $(OBJS)
  50. X    ranlib $@
  51. X
  52. Xclean:
  53. X    $(RM) $(OBJS) y.tab.c 
  54. END_OF_FILE
  55.   if test 382 -ne `wc -c <'Makefile'`; then
  56.     echo shar: \"'Makefile'\" unpacked with wrong size!
  57.   fi
  58.   # end of 'Makefile'
  59. fi
  60. if test -f 'defunc.3.UU' -a "${1}" != "-c" ; then 
  61.   echo shar: Will not clobber existing file \"'defunc.3.UU'\"
  62. else
  63.   echo shar: Extracting \"'defunc.3.UU'\" \(7305 characters\)
  64.   sed "s/^X//" >'defunc.3.UU' <<'END_OF_FILE'
  65. Xbegin 644 defunc.3
  66. XM"@H*1$5&54Y#*#,I(" @(" @(" @(" @("!#($Q)0E)!4ED@1E5.0U1)3TY3
  67. XM(" @(" @(" @(" @("!$14953D,H,RD*"@H*3D%-10H@(" @(%\(9%\(95\(
  68. XM9E\(=5\(;E\(8R M+2!A('!O<G1A8FQE($,@;&EB<F%R>2!P86-K86=E(&9O
  69. XM<B!R=6YT:6UE("!F=6YC=&EO;@H@(" @(&-O;G-T<G5C=&EN9RX*"D1%4T-2
  70. XM25!424]."B @(" @7PAD7PAE7PAF7PAU7PAN7PAC("A$>6YA;6EC("!%>'!R
  71. XM97-S:6)L92 @1G5N8W1I;VX@($-O;G-T<G5C=&EN9RD@(&ES("!A"B @(" @
  72. XM<&]R=&%B;&4@($,@(&QI8G)A<GD@<&%C:V%G92!F;W(@8V]N<W1R=6-T:6YG
  73. XM(&9U;F-T:6]N<R!F<F]M"B @(" @<G5N=&EM92!I;G!U='1E9"!E>'!R97-S
  74. XM:6]N<RX*"B @(" @7PAD7PAE7PAF7PAU7PAN7PAC("!L:6)R87)Y("!F=6YC
  75. XM=&EO;B @7PAD7PAF7PAO7PAP7PAE7PAN*"D@(&%C8V5P=',@(&%N("!E>'!R
  76. XM97-S:6]N"B @(" @<W1R:6YG(&%N9"P@;VX@<W5C8V5S<RP@<F5T=7)N<R!A
  77. XM(&9U;F-T:6]N('!O:6YT97(N(&4N9RX*"B @(" @(" @(" C:6YC;'5D92 \
  78. XM9&5F=6YC+F@^"@H@(" @(" @(" @9F]O*"D*(" @(" @(" @('L*(" @(" @
  79. XM(" @(" @("!D;W5B;&4@*"IF;F-T<'1R*2@I.PH@(" @(" @(" @(" @(" @
  80. XM+BXN+@H@(" @(" @(" @(" @(&9N8W1P='(@/2!D9F]P96XH(BAX*G@K>2IY
  81. XM*5XP+C4B*3L*(" @(" @(" @(" @(" @("XN+BX*(" @(" @(" @('T["@H@
  82. XM(" @(%1H92!F=6YC=&EO;B!D9F]P96XH*2 @:7,@(')E96YT97)A8FQE+B @
  83. XM5&AA=" @:7,L("!Y;W4@(&-A;@H@(" @(')E<&5A=&5D;'D@(&-A;&P@9&9O
  84. XM<&5N*"D@=VET:&]U="!W;W)R>2!A8F]U="!T:&4@;F5W(')E<W5L= H@(" @
  85. XM(&UA>2!O=F5R;&%P(&]R(&1A;6%G92!T:&4@;VQD(&]N92P@87,@(&QO;F<@
  86. XM(&%S("!Y;W4@(&%S<VEG;@H@(" @('1H96T@=&\@9&EF9F5R96YT(&QV86QU
  87. XM97,N(&4N9RX*"B @(" @(" @("!D;W5B;&4@*"IF;F-T<'1R,2DH*3L*(" @
  88. XM(" @(" @(&1O=6)L92 H*F9N8W1P='(R*2@I.PH@(" @(" @(" @("XN+@H@
  89. XM(" @(" @(" @9FYC='!T<C$@/2!D9F]P96XH(F5X<"@M>"IX*2(I.PH@(" @
  90. XM(" @(" @9FYC='!T<C(@/2!D9F]P96XH(F5X<"@M>"DJ<VEN*'@I(BD["B @
  91. XM(" @(" @(" @+BXN"@H@(" @(%1H96XL(&9N8W1P='(Q(&%N9"!F;F-T<'1R
  92. XM,B @=VEL;" @<&]I;G0@('1O("!T=V\@(&1I9F9E<F5N= H@(" @(&9U;F-T
  93. XM:6]N<RX*"B @(" @1G5N8W1I;VX@9&9O<&5N*"D@<&%R<V5S('1H92!E>'!R
  94. XM97-S:6]N(&)E('!A<W-E9" @8F%S960@(&]N"B @(" @=&]K96YS("!I=" @
  95. XM<F5C;V=N:7IE9"X@17AC97!T(&9O<B!N=6UE<FEC86P@<W1R:6YG(&-O;G-T
  96. XM86YT"B @(" @=&]K96YS*&DN92X@86YO;GEM;W5S(&-O;G-T86YT('1O:V5N
  97. XM<RD@86YD(#@@8G5I;&0@:6X@=&]K96YS"B @(" @(BLB+" @(BTB+" @(BHB
  98. XM+" B+R(L(")>(BP@(B@B+" B*2(L("(L(B!P;'5S(&$@<'-E=61O('1O:V5N
  99. XM"B @(" @(CTB+"!A;&P@;W1H97(@=&]K96YS(&%R92!E>'1E<FYA;"!T;VME
  100. XM;G,N("!%>'1E<FYA;" @=&]K96YS"B @(" @:6YC;'5D92 @87)G=6UE;G0@
  101. XM=&]K96YS+"!F=6YC=&EO;B!T;VME;G,@86YD(&YA;65D(&-O;G-T86YT"B @
  102. XM(" @=&]K96YS+B!4:&5Y(&%R92!S=&]R960@:6X@82!G;&]B86P@=&]K96X@
  103. XM=&%B;&4N(%1H97D@8V%N(&)E"B @(" @<V5T+W)E<V5T("!O<B @061D960O
  104. XM9&5L971E9" @<W1A=&EC86QL>2 @87,@=V5L;"!A<R!D>6YA;6DM"B @(" @
  105. XM8V%L;'DN(&4N9RX*"B @(" @(" @("!N86UE87)G=2@B<F4B+" B:6TB*3L*
  106. XM"B @(" @5&AI<R!W:6QL(')E<V5T(&%R9W5M96YT('1O:V5N<R!T;R B<F4B
  107. XM(&%N9" B:6TB*'1H92!D969A=6QT"B @(" @87)E(")X(B!A;F0@(GDB*2X*
  108. XM"@H*"F1E9G5N8R Q+C(@(" @(" @(" @($QA<W0@8VAA;F=E.B!$96,N(#$Y
  109. XM.3,@(" @(" @(" @(" @(" @(" @(" Q"@H*"@H*"D1%1E5.0R@S*2 @(" @
  110. XM(" @(" @(" @0R!,24)205)9($953D-424].4R @(" @(" @(" @(" @1$5&
  111. XM54Y#*#,I"@H*"B @(" @(" @("!N86UE9FYC="@B;&]G(BP@;&]G*3L*(" @
  112. XM(" @(" @(&YA;65F;F-T*")L;B(@+"!L;V<I.PH*(" @("!(97)E+"!T:&4@
  113. XM97AT97)N86P@9G5N8W1I;VX@;&]G*"D@(&AA<R @8F5E;B @861D960@('1O
  114. XM("!T:&4*(" @("!T;VME;B!L:7-T('=I=&@@,B!A;&EA<R!N86UE<R B;&]G
  115. XM(B!A;F0@(FQN(BX*"B @(" @(" @("!N86UE8VYS="@B<&DB+" R+C J87-I
  116. XM;B@Q+C I*3L*(" @(" @(" @(&YA;65C;G-T*")022(L(#(N,"IA<VEN*#$N
  117. XM,"DI.PH*(" @("!4:&ES('=I;&P@861D(&$@;F%M960@8V]N<W1A;G0@=&]K
  118. XM96X@=&\@=&AE(&QI<W0@=VET:" @86QI87,*(" @("!N86UE<R B<&DB(&%N
  119. XM9" B4$DB(&%N9"!V86QU92 S+C$T,34Y,C8N+BX@+@H*(" @(" @(" @(&-L
  120. XM<F-N<W0H(E!)(BD["@H@(" @(%1H:7,@=VEL;"!D96QE=&4@=&AE(&-O;G-T
  121. XM86YT('1O:V5N(" B4$DB("!F<F]M("!T:&4@(&=L;V)A; H@(" @('1O:V5N
  122. XM("!T86)L92X@($%F=&5R(&%N(&5X=&5R;F%L('1O:V5N(&AA<R!B965N('!U
  123. XM="!I;G1O('1H90H@(" @(&=L;V)A;"!T;VME;B!L:7-T+"!I="!C86X@8F4@
  124. XM=7-E9"!I;B!E>'!R97-S:6]N<R @<&%S<V5D("!T;PH@(" @(%\(9%\(9E\(
  125. XM;U\(<%\(95\(;B@I+B @92YG+B!!9G1E<B!Y;W4@<'5T('1H92!E>'!O;F5N
  126. XM=&EA;"!F=6YC=&EO;B!E>' H*0H@(" @(&EN=&\@=&]K96X@=&%B;&4@=VET
  127. XM: H*(" @(" @(" @(&YA;65F;F-T*")E>' B+"!E>' I.PH@(" @(" @(" @
  128. XM(" O*B!A9&0@97AP*"D@=&\@=&]K96X@=&%B;&4@<W1A=&EC86QL>2 J+PH*
  129. XM(" @("!4:&%N('EO=2!C86X@=7-E(&ET('1O(&-O;G-T<G5C="!A(&=A=7-S
  130. XM:6%N(&9U;F-T:6]N(&1Y;F%M:2T*(" @("!C86QL>2!A<PH*(" @(" @(" @
  131. XM(&1O=6)L92 H*F=A=7-S*2@I.PH@(" @(" @(" @("XN+@H@(" @(" @(" @
  132. XM9V%U<W,@/2!D9F]P96XH(F5X<"@M>"IX*2(I.PH*(" @("!!<F=U;65N="!T
  133. XM;VME;G,L(&YA;65D(&-O;G-T86YT('1O:V5N<R!A;F0@9'EN86UI8V%L;'D@
  134. XM(&-O;BT*(" @("!S=')U8W1E9" @9G5N8W1I;VYS("!C86X@8F4@<F5S970@
  135. XM;W(@861D960@=&\@=&AE('1O:V5N(&QI<W0*(" @("!D>6YA;6EC86QL>2X@
  136. XM5&AI<R!C86X@8F4@9&]N92!D:7)E8W1L>2!F<F]M("!T:&4@(&5X<')E<W-I
  137. XM;VX*(" @("!P87-S960@=&\@7PAD7PAF7PAO7PAP7PAE7PAN*"D@9G5N8W1I
  138. XM;VXN(&4N9RX*"B @(" @(" @("!F;F-T<'1R(#T@9&9O<&5N*")2:&\H<F4L
  139. XM(&EM*3TH<F4J<F4K:6TJ:6TI7C N-2(I.PH*(" @("!4:&ES('=I;&P@<F5S
  140. XM970@=&AE(&%R9W5M96YT('1O:V5N<R!T;R B<F4B(&%N9" B:6TB+"!R971U
  141. XM<FX*(" @("!A("!D=7!L97@@(&9U;F-T:6]N('!O:6YT97(@86YD(&%D9"!T
  142. XM:&ES(&9U;F-T:6]N('!O:6YT97(@=&\*(" @("!T:&4@9VQO8F%L('1O:V5N
  143. XM(&QI<W0@=VET:"!N86UE(")2:&\B+@H*(" @(" @(" @(&1F;W!E;B@B9V%U
  144. XM<W,H>"D]97AP*"UX*G@I(BD["@H@(" @(%1H:7,@<V5T<R!T:&4@9FER<W0@
  145. XM87)G=6UE;G0@=&]K96YS('1O(")X(B!A;F0@(#)N9" @;VYE("!T;PH@(" @
  146. XM(&YO;F4@86YD('!U="!T:&4@<F5T=7)N(&9U;F-T:6]N('!O:6YT97(@=&\@
  147. XM=&AE(&=L;V)A;"!T;VME;@H@(" @('1A8FQE('=I=&@@;F%M92 B9V%U<W,B
  148. XM('=H:6QE('1H92!R971U<FX@9G5N8W1I;VX@<&]I;G1E<B!I<PH@(" @(&YO
  149. XM="!A<W-I9VYE9"!T;R!A;GD@;'9A;'5E+B!.;W<L('1H92!T;VME;B B9V%U
  150. XM<W,B(&ES(')E8V]G+0H@(" @(&YI>F%B;&4@8GD@7PAD7PAE7PAF7PAU7PAN
  151. XM7PAC(&%N9"!Y;W4@8V%N(&EN('1U<FX@=7-E("!I=" @=&\@(&-O;G-T<G5C
  152. XM= H@(" @(&YE=R!F=6YC=&EO;BX@4W5C:"!A<PH*(" @(" @(" @(&1F;W!E
  153. XM;B@B9V%U<W,R9"AX+'DI/6=A=7-S*'@I*F=A=7-S*'DI(BD["@H*"@ID969U
  154. XM;F,@,2XR(" @(" @(" @("!,87-T(&-H86YG93H@1&5C+B Q.3DS(" @(" @
  155. XM(" @(" @(" @(" @(" @,@H*"@H*"@I$14953D,H,RD@(" @(" @(" @(" @
  156. XM($,@3$E"4D%262!&54Y#5$E/3E,@(" @(" @(" @(" @($1%1E5.0R@S*0H*
  157. XM"@H@(" @('=I;&P@<F5T=7)N(&$@,B!D:6UE;G-I;VX@9V%U<W-I86X@9G5N
  158. XM8W1I;VX@86YD("!P=70@(&ET("!T;PH@(" @('1O:V5N("!T86)L92 @=VET
  159. XM:" @;F%M92 B9V%U<W,R9"(N($EF('EO=2!D;VXG="!W86YT('1H:7,@,@H@
  160. XM(" @(&1I;65N<VEO;B!G875S<VEA;B!F=6YC=&EO;B!B92!P=71T960@:6YT
  161. XM;R!T:&4@('1O:V5N("!T86)L90H@(" @(&)U="!Y;W4@<W1I;&P@=V%N="!R
  162. XM97-E="!T:&4@87)G=6UE;G0@=&]K96YS+"!F;W(@97AA;7!L92!T;PH@(" @
  163. XM(")A(BP@(F(B+"!Y;W4@8V%N('5S90H*(" @(" @(" @(&9N8W1P='(@/2!D
  164. XM9F]P96XH(BAA+"!B*2 ](&=A=7-S*&$I*F=A=7-S*&(I(BD["@H@(" @(&]R
  165. XM"@H@(" @(" @(" @9FYC='!R=" ](&1F;W!E;B@B9V%U<W,H82P@8BD@/2!G
  166. XM875S<RAA*2IG875S<RAB*2(I.PH*(" @("!(97)E+"!F;F-T<'1R(&ES(&$@
  167. XM9G5N8W1I;VX@<&]I;G1E<B!T;R!A8V-E<'0@('1H92 @<F5T=7)N960*(" @
  168. XM("!V86QU92!F<F]M(%\(9%\(9E\(;U\(<%\(95\(;B@I+@H*(" @("!.86UE
  169. XM9"!C;VYS=&%N="!T;VME;G,@8V%N(&%L<V\@8F4@861D960@=&\@('1H92 @
  170. XM=&]K96X@(&QI<W0*(" @("!F<F]M(&5X<')E<W-I;VX@<&%S<V5D('1O(%\(
  171. XM9%\(9E\(;U\(<%\(95\(;B@I+B!E+F<N"@H@(" @(" @(" @9FYC='!T<B ]
  172. XM(&1F;W!E;B@B<&D@/2 T*F%T86XR*#$L,2DB*3L*"B @(" @5&AI<R!W:6QL
  173. XM(')E='5R;B!A(&-O;G-T86YT(&9U;F-T:6]N(&%N9"!A9&0@(&$@(&YA;65D
  174. XM("!C;VXM"B @(" @<W1A;G0@('1O:V5N("!T;R @=&AE('1O:V5N(&QI<W0@
  175. XM=VET:"!V86QU92 S+C$T,34Y,C8N+BX@86YD"B @(" @;F%M92 B<&DB+@H*
  176. XM4T5%($%,4T\*(" @("!D9F]P96XH,RD*"D%55$A/4@H@(" @($ME($II;@H@
  177. XM(" @(%!H>7-I8W,@1&5P87)T;65N= H@(" @(%%U965N)W,@56YI=F5R<VET
  178. XM>0H@(" @($MI;F=S=&]N+"!/;G1A<FEO"B @(" @0V%N861A($LW3" S3C8*
  179. XM(" @("!J:6YK94!S<&%R:WDN<&AY+G%U965N<W4N8V$*"D)51U,*(" @("!2
  180. XM97!O<G0@8G5G<R!O9B!?"&1?"&5?"&9?"'5?"&Y?"&,@;&EB<F%R>2!T;R!T
  181. XM:&4@875T:&]R(&)Y(&5M86EL+@H*"@H*"@H*"@H*"@H*"@H*"@ID969U;F,@
  182. XM,2XR(" @(" @(" @("!,87-T(&-H86YG93H@1&5C+B Q.3DS(" @(" @(" @
  183. X1(" @(" @(" @(" @,PH*"@IT
  184. X 
  185. Xend
  186. END_OF_FILE
  187.   if test 7305 -ne `wc -c <'defunc.3.UU'`; then
  188.     echo shar: \"'defunc.3.UU'\" unpacked with wrong size!
  189.   else
  190.     echo shar: Uudecoding \"'defunc.3'\" \(5282 characters\)
  191.     cat defunc.3.UU | uudecode
  192.     if test 5282 -ne `wc -c <'defunc.3'`; then
  193.       echo shar: \"'defunc.3'\" uudecoded with wrong size!
  194.     else
  195.       rm defunc.3.UU
  196.     fi
  197.   fi
  198.   # end of 'defunc.3.UU'
  199. fi
  200. if test -f 'defunc.h' -a "${1}" != "-c" ; then 
  201.   echo shar: Will not clobber existing file \"'defunc.h'\"
  202. else
  203.   echo shar: Extracting \"'defunc.h'\" \(3065 characters\)
  204.   sed "s/^X//" >'defunc.h' <<'END_OF_FILE'
  205. X/***************************************************************
  206. X *
  207. X *    Copyright (c) 1993  Ke Jin
  208. X *
  209. X *    Permission to use, copy, modify, and distribute
  210. X *    this software and its documentation without fee
  211. X *    is granted, provided that the author's name and
  212. X *    this copyright notice are retained.
  213. X *
  214. X * -------------------------------------------------------------
  215. X *
  216. X *     defunc.h -- public interface of defunc high level module
  217. X *
  218. X *
  219. X *     external function : namefnct();
  220. X *                         namecnst();
  221. X *                         nameargu();
  222. X *                         getarguname();
  223. X *                       
  224. X *                         clrfnct();
  225. X *                         clrfnctall();
  226. X *                         clrcnst();
  227. X *                         clrcnstall();
  228. X *
  229. X *                         matha2z();
  230. X *
  231. X *                         dfopen();
  232. X *                         dfclose();
  233. X *                         dfcloseall();
  234. X *
  235. X *     external variable : exparserror;
  236. X *
  237. X ***************************************************************/
  238. X
  239. X#ifndef _DEFUNC_H
  240. X#define _DEFUNC_H
  241. X
  242. X#ifndef NeedFunctionPrototypes
  243. X#if defined(__STDC__)||defined(__cplusplus)
  244. X#define NeedFunctionPrototypes 1 /* for ANSI */ 
  245. X#else
  246. X#define NeedFunctionPrototypes 0 /* for K&R  */
  247. X#endif  /* __STDC__ */
  248. X#endif  /* NeedFunctionPrototypes */
  249. X
  250. X#ifdef __cplusplus
  251. X  extern "C" {    /* for c++ */
  252. X#endif
  253. X
  254. X#if NeedFunctionPrototypes
  255. X  extern int    namefnct(char* name, double (*fnctptr)());
  256. X  extern int    namecnst(char* name, double const_expression);
  257. X  extern int    nameargu(char* name4arg1, char* name4arg2);
  258. X  extern char*  getarguname(int argidx);
  259. X  extern int    clrfnct(char* name);
  260. X  extern int    clrfnctall(void);
  261. X  extern int    clrcnst(char* name);
  262. X  extern int    clrcnstall(void);
  263. X
  264. X  extern double (*dfopen(char* exprbody))(double x, double y);
  265. X  extern int    dfclose(double (*fnctptr)());
  266. X  extern int    dfcloseall(void);  
  267. X
  268. X  extern int    matha2z(void);
  269. X
  270. X  extern char*  exparserror;
  271. X
  272. X#else  /* for K&R */
  273. X  extern int    namefnct();    /* set/delete alias name for function */
  274. X  extern int    namecnst();    /* set/delete alias name for constant */
  275. X  extern int    nameargu();    /* set symbol for function arguments  */
  276. X  extern char*  getarguname(); /* retrive argument names             */
  277. X  extern int    clrfnct();     /* clear a function token             */
  278. X  extern int    clrfnctall();  /* clear all function tokens          */
  279. X  extern int    clrcnst();     /* clear a constant token             */
  280. X  extern int    clrcnstall();  /* clear all constant tokens          */
  281. X
  282. X  extern double (*dfopen())();   /* open function of an expression */
  283. X  extern int    dfclose();       /* close a opened function        */
  284. X  extern int    dfcloseall();    /* close all opened functions     */ 
  285. X
  286. X  extern int    matha2z();       /* install math symtable          */
  287. X
  288. X  extern char*  exparserror;     /* point to a error message string */
  289. X#endif /* NeedFunctionPrototypes */
  290. X
  291. X#ifdef __cplusplus
  292. X  }    /* end for c++ */
  293. X#endif
  294. X
  295. X#endif /* _DEFUNC_H */
  296. END_OF_FILE
  297.   if test 3065 -ne `wc -c <'defunc.h'`; then
  298.     echo shar: \"'defunc.h'\" unpacked with wrong size!
  299.   fi
  300.   # end of 'defunc.h'
  301. fi
  302. if test -f 'demo.c' -a "${1}" != "-c" ; then 
  303.   echo shar: Will not clobber existing file \"'demo.c'\"
  304. else
  305.   echo shar: Extracting \"'demo.c'\" \(1324 characters\)
  306.   sed "s/^X//" >'demo.c' <<'END_OF_FILE'
  307. X/*********************************************************
  308. X *
  309. X *    example program of useing defunc (Ke Jin 1993)
  310. X *
  311. X *********************************************************/
  312. X#include <stdio.h>
  313. X#include <math.h>
  314. X#include <defunc.h>
  315. X
  316. Xint main()
  317. X{
  318. X    double (*fp)();
  319. X    char expr[128];
  320. X    double x;
  321. X
  322. X    matha2z(); /* portable functions in  math lib into token table */
  323. X
  324. X    printf("\n\tEnter a expression please.\n");
  325. X
  326. X    for(;;)
  327. X    {
  328. X       printf("\n\tinput > ");
  329. X       fgets(expr, 127, stdin);
  330. X       expr[strlen(expr)-1]='\0';   /* strip off the '\n' on end */
  331. X
  332. X       if(strncmp(expr, "quit", 4)==0||
  333. X      strncmp(expr, "exit", 4)==0)
  334. X       {
  335. X           printf("\n\t\t--------- Bye! ---------\n\n");
  336. X       return 0;
  337. X       }
  338. X
  339. X       fp = dfopen(expr);
  340. X       if(fp==0) {
  341. X       if(exparserror!=0) 
  342. X          printf("\t\t%s\n", exparserror);
  343. X           else
  344. X          printf("\t\tempty expression body\n");
  345. X       exparserror = 0;
  346. X
  347. X           printf("\n\t\tcurrent arguments are %s, %s\n",
  348. X               getarguname(1), getarguname(2));
  349. X
  350. X       continue;
  351. X       }
  352. X
  353. X       printf("\t\t%s\t\t%s\n", getarguname(1), expr);
  354. X       for(x=0.0;x<1.0;x=x+0.1)
  355. X       {
  356. X       printf("\t\t%f\t%f\n", x, fp(x,0));
  357. X       }
  358. X       printf("\n\t\tcurrent arguments are %s, %s\n", 
  359. X           getarguname(1), getarguname(2));
  360. X
  361. X       dfclose(fp);
  362. X    }
  363. X}
  364. END_OF_FILE
  365.   if test 1324 -ne `wc -c <'demo.c'`; then
  366.     echo shar: \"'demo.c'\" unpacked with wrong size!
  367.   fi
  368.   # end of 'demo.c'
  369. fi
  370. if test -f 'dfcscan.h' -a "${1}" != "-c" ; then 
  371.   echo shar: Will not clobber existing file \"'dfcscan.h'\"
  372. else
  373.   echo shar: Extracting \"'dfcscan.h'\" \(2758 characters\)
  374.   sed "s/^X//" >'dfcscan.h' <<'END_OF_FILE'
  375. X/****************************************************************
  376. X *
  377. X *    Copyright (c) 1993  Ke Jin
  378. X *
  379. X *    Permission to use, copy, modify, and distribute
  380. X *    this software and its documentation without fee
  381. X *    is granted, provided that the author's name and
  382. X *    this copyright notice are retained.
  383. X *
  384. X * -------------------------------------------------------------
  385. X *  
  386. X *   dfcscan.h --- the lexical scaner of defunc
  387. X *
  388. X *   private variable : yyexpr;
  389. X *                      yyexprlen;
  390. X *                      yytext;
  391. X *                      yypos;
  392. X *
  393. X *   private function : yylex();
  394. X *
  395. X ****************************************************************/
  396. X
  397. X#ifndef _DFCSCAN_H
  398. X#define _DFCSCAN_H
  399. X
  400. X#include <stdio.h>
  401. X#include <ctype.h>
  402. X#include <string.h>
  403. X#include "dfcsymtable.h"
  404. X
  405. X#ifdef __cplusplus
  406. X  extern "C" {    /* for c++ */
  407. X#endif
  408. X
  409. Xstatic char* yyexpr;
  410. Xstatic int   yyexprlen;
  411. Xstatic char* yytext; 
  412. Xstatic int   yypos;
  413. X
  414. X#if NeedFunctionPrototypes
  415. X  static int yylex(void)
  416. X#else
  417. X  static int yylex()
  418. X#endif
  419. X{
  420. X   char c;    
  421. X   int  i;
  422. X
  423. X   Symbol_record* ptr;
  424. X
  425. X   /* --- [ \t] do nothing --------------------------------- */
  426. X   for(;yypos<yyexprlen;yypos++)
  427. X   {
  428. X      c=yyexpr[yypos];
  429. X      if(c==' '||c=='\t') continue;
  430. X      break; 
  431. X   }
  432. X
  433. X   /* --- {number} return token CONST with value ----------- */ 
  434. X   if(c=='.'||isdigit(c))
  435. X   {
  436. X       sscanf(yyexpr+yypos, "%lf", &(yylval.value));
  437. X       for(;yypos<=yyexprlen;yypos++)
  438. X       {
  439. X       c=yyexpr[yypos];
  440. X       if(c=='.'||isdigit(c)) continue;
  441. X       break;
  442. X       }
  443. X       return CONST;
  444. X   }
  445. X
  446. X   /* --- {symbol} return token VAR or FNCT with fnctptr --- */
  447. X   if(isalpha(c))
  448. X   {
  449. X       yytext = (char*)malloc(sizeof(char)*(yyexprlen-yypos+1));
  450. X       if(yytext==0) 
  451. X       {
  452. X       perror("malloc for token text in module scaner");
  453. X       exit(1);
  454. X       }
  455. X
  456. X       for(i=0;yypos<=yyexprlen;yypos++, i++)
  457. X       {
  458. X       c=yyexpr[yypos];
  459. X       if(isalnum(c))
  460. X       {
  461. X           yytext[i]=c;
  462. X           continue;
  463. X           }
  464. X       yytext[i]='\0';
  465. X       break;
  466. X       }
  467. X
  468. X       ptr = (Symbol_record*)getsym(yytext);
  469. X       if(ptr==0) /* symbol not in table */
  470. X       {
  471. X       strncpy(yylval.name, yytext, 32);
  472. X       return SYM;
  473. X       }
  474. X
  475. X       switch (ptr->type)
  476. X       {
  477. X       case arg_symbol:
  478. X        yylval.argidx = ptr->content.argidx;
  479. X        return ARG;
  480. X           
  481. X       case fnct_symbol:
  482. X            yylval.fnctptr = ptr->content.fnctptr; 
  483. X            return FNCT;
  484. X
  485. X           case const_symbol:
  486. X            yylval.value = ptr->content.value; 
  487. X            return CONST;
  488. X       }
  489. X   }
  490. X
  491. X   /* ------ append a '\n' on end ----------------- */
  492. X   if(yypos==yyexprlen) return '\n';
  493. X
  494. X   yypos++;
  495. X   /* ------ return other characters -------------- */
  496. X   return c;
  497. X};
  498. X
  499. X#ifdef __cplusplus
  500. X  }    /* end for c++ */
  501. X#endif
  502. X
  503. X#endif /* _DFCSCAN_H */
  504. END_OF_FILE
  505.   if test 2758 -ne `wc -c <'dfcscan.h'`; then
  506.     echo shar: \"'dfcscan.h'\" unpacked with wrong size!
  507.   fi
  508.   # end of 'dfcscan.h'
  509. fi
  510. if test -f 'dfcsymtable.h' -a "${1}" != "-c" ; then 
  511.   echo shar: Will not clobber existing file \"'dfcsymtable.h'\"
  512. else
  513.   echo shar: Extracting \"'dfcsymtable.h'\" \(2790 characters\)
  514.   sed "s/^X//" >'dfcsymtable.h' <<'END_OF_FILE'
  515. X/*********************************************************
  516. X *
  517. X *    Copyright (c) 1993  Ke Jin
  518. X *
  519. X *    Permission to use, copy, modify, and distribute
  520. X *    this software and its documentation without fee
  521. X *    is granted, provided that the author's name and
  522. X *    this copyright notice are retained.
  523. X *
  524. X * -----------------------------------------------------
  525. X *
  526. X *    dfcsymtable.h -- interface of defunc symbol table
  527. X *    
  528. X *    struct definition : Symbol_record;
  529. X *
  530. X *    external function : getsym(); 
  531. X *                        getfnctname();
  532. X *                        getarguname();
  533. X *                        initargu();
  534. X *
  535. X *                        nameargu();
  536. X *                        namefnct();
  537. X *                        namecnst();
  538. X *                        clrfnct();
  539. X *                        clrfnctall();
  540. X *                        clrcnst();
  541. X *                        clrcnstall();
  542. X *                        
  543. X *                        matha2z();
  544. X *
  545. X *********************************************************/
  546. X
  547. X#ifndef _DFCSYMTABLE_H
  548. X#define _DFCSYMTABLE_H
  549. X
  550. X#ifndef NeedFunctionPrototypes
  551. X#if defined(__STDC__)||defined(__cplusplus)
  552. X#define NeedFunctionPrototypes 1
  553. X#else
  554. X#define NeedFunctionPrototypes 0
  555. X#endif  /* __STDC__ */
  556. X#endif  /* NeedFunctionPrototypes */
  557. X
  558. X#ifdef __cplusplus
  559. X  extern "C" {    /* for c++ */
  560. X#endif
  561. X
  562. Xtypedef enum {
  563. X    arg_symbol, const_symbol, fnct_symbol
  564. X} Symbol_type;
  565. X
  566. Xtypedef struct symbol_record
  567. X/* association between symbol and its content */ 
  568. X{
  569. X    char*        name;
  570. X    Symbol_type  type;
  571. X    union {
  572. X       int    argidx;
  573. X       double value;
  574. X       double (*fnctptr)();
  575. X    } content;
  576. X    struct symbol_record* next;
  577. X} Symbol_record;
  578. X
  579. X#if NeedFunctionPrototypes
  580. X   extern Symbol_record* getsym(char* name);
  581. X   extern char* getfnctname(double (*fnctptr)()); 
  582. X   extern char* getarguname(int argidx);
  583. X   extern int initargu(void);
  584. X
  585. X   extern int nameargu(char* name4arg1, char* name4arg2);
  586. X   extern int namefnct(char* name, double (*fnctptr)());
  587. X   extern int namecnst(char* name, double constexpress);
  588. X   extern int clrfnct(char* name);
  589. X   extern int clrfnctall(void);
  590. X   extern int clrcnst(char* name);
  591. X   extern int clrcnstall(void);
  592. X
  593. X   extern int matha2z(void);
  594. X#else
  595. X   extern Symbol_record* getsym();   /* searching symbol in sym_table */
  596. X   extern char* getfnctname();
  597. X   extern char* getarguname();
  598. X   extern int initargu();
  599. X
  600. X   extern int nameargu();
  601. X   extern int namefnct();            /* function alias name */
  602. X   extern int namecnst();            /* constant alias name */
  603. X   extern int clrfnct();
  604. X   extern int clrfnctall();
  605. X   extern int clrcnst();
  606. X   extern int clrcnstall();
  607. X
  608. X   extern int matha2z();
  609. X#endif /* NeedFunctionPrototypes */
  610. X
  611. X#ifdef __cplusplus
  612. X  }    /* end for c++ */
  613. X#endif
  614. X
  615. X#endif /* _DFCSYMTABLE_H */
  616. END_OF_FILE
  617.   if test 2790 -ne `wc -c <'dfcsymtable.h'`; then
  618.     echo shar: \"'dfcsymtable.h'\" unpacked with wrong size!
  619.   fi
  620.   # end of 'dfcsymtable.h'
  621. fi
  622. if test -f 'dfctree.h' -a "${1}" != "-c" ; then 
  623.   echo shar: Will not clobber existing file \"'dfctree.h'\"
  624. else
  625.   echo shar: Extracting \"'dfctree.h'\" \(1988 characters\)
  626.   sed "s/^X//" >'dfctree.h' <<'END_OF_FILE'
  627. X/*********************************************************
  628. X *
  629. X *    Copyright (c) 1993  Ke Jin
  630. X *
  631. X *    Permission to use, copy, modify, and distribute
  632. X *    this software and its documentation without fee
  633. X *    is granted, provided that the author's name and
  634. X *    this copyright notice are retained.
  635. X *
  636. X * -----------------------------------------------------
  637. X *
  638. X *    dfctree.h -- interface of defunc low level module
  639. X *
  640. X *    struct definition : Node
  641. X *
  642. X *    external function : exparse(); 
  643. X *              evaluate();
  644. X *                        getparsetree(); 
  645. X *                        reduce();
  646. X *
  647. X *********************************************************/
  648. X
  649. X#ifndef _DFCTREE_H
  650. X#define _DFCTREE_H
  651. X
  652. X#ifndef NeedFunctionPrototypes
  653. X#if defined(__STDC__)||defined(__cplusplus)
  654. X#define NeedFunctionPrototypes 1
  655. X#else 
  656. X#define NeedFunctionPrototypes 0
  657. X#endif  /* __STDC__ */
  658. X#endif  /* NeedFunctionPrototypes */
  659. X
  660. X#ifdef __cplusplus
  661. X  extern "C" {    /* for c++ */
  662. X#endif
  663. X
  664. Xtypedef enum { 
  665. X    const_node, 
  666. X    arg_node, 
  667. X
  668. X    unary_op_node,
  669. X    binary_op_node, 
  670. X
  671. X    simplex_fnct_node, 
  672. X    duplex_fnct_node,
  673. X    triplex_fnct_node,  /* not used in current version */
  674. X
  675. X    arg_fnct_node       /* not used in current version */
  676. X} Node_type;
  677. X
  678. Xtypedef enum {
  679. X    op_sum,
  680. X    op_sub,
  681. X    op_mul,
  682. X    op_div,
  683. X    op_neg
  684. X} op_idx;
  685. X
  686. Xtypedef struct {
  687. X    Node_type type;
  688. X    union {
  689. X       int    argidx;
  690. X       op_idx op;
  691. X       double value;
  692. X       double (*fnctptr)();
  693. X    } content;
  694. X    int left;
  695. X    int right;
  696. X} Node;
  697. X
  698. X#if NeedFunctionPrototypes /* ANSI */
  699. X   extern int    exparse(char* expression);
  700. X   extern double evaluate(Node* tree, int i, double x, double y);
  701. X   extern int    getparsetree(Node* buff);
  702. X   extern Node*  reduce(Node* tree, int i);
  703. X#else /* K&R */
  704. X   extern int    exparse();
  705. X   extern double evaluate();
  706. X   extern int    getparsetree();
  707. X   extern Node*  reduce();
  708. X#endif /* NeedFunctionPrototype */
  709. X
  710. X#ifdef __cplusplus
  711. X  }    /* end for c++ */
  712. X#endif
  713. X
  714. X#endif /* _DFCTREE_H */
  715. END_OF_FILE
  716.   if test 1988 -ne `wc -c <'dfctree.h'`; then
  717.     echo shar: \"'dfctree.h'\" unpacked with wrong size!
  718.   fi
  719.   # end of 'dfctree.h'
  720. fi
  721. if test -f 'dfopen.3.UU' -a "${1}" != "-c" ; then 
  722.   echo shar: Will not clobber existing file \"'dfopen.3.UU'\"
  723. else
  724.   echo shar: Extracting \"'dfopen.3.UU'\" \(6313 characters\)
  725.   sed "s/^X//" >'dfopen.3.UU' <<'END_OF_FILE'
  726. Xbegin 644 dfopen.3
  727. XM"@H*1$5&54Y#*#,I(" @(" @(" @(" @("!#($Q)0E)!4ED@1E5.0U1)3TY3
  728. XM(" @(" @(" @(" @("!$14953D,H,RD*"@H*3D%-10H@(" @(&1F;W!E;BP@
  729. XM9&9C;&]S92P@9&9C;&]S96%L;" M+2!D>6YA;6EC(&9U;F-T:6]N(&-O;G-T
  730. XM<G5C=&EN9PH@(" @(&%N9"!D96-O;G-T<G5C=&EN9RX*"E-93D]04TE3"B @
  731. XM(" @(VEN8VQU9&4@/&1E9G5N8RYH/@H*(" @("!D;W5B;&4@*"ID9F]P96XH
  732. XM8VAA<BH@97AP<F5S<VEO;BDI*&1O=6)L92!X+"!D;W5B;&4@>2D["@H@(" @
  733. XM(&EN=" @("!D9F-L;W-E*&1O=6)L92 H*F1C9FYC="DH*2D["B @(" @:6YT
  734. XM(" @(&1F8VQO<V5A;&PH=F]I9"D["@I$15-#4DE05$E/3@H@(" @(%\(9%\(
  735. XM9E\(;U\(<%\(95\(;B@I(&1Y;F%M:6-A;&QY(&-O;G-T<G5C=',@82!F=6YC
  736. XM=&EO;B!F<F]M("!A;B @97AP<F5S+0H@(" @('-I;VX@('-T<FEN9R!P87-S
  737. XM960@=&\@:70N(&5X<')E<W-I;VX@<W1R:6YG(&ES('5S=6%L;'D@8V]N+0H@
  738. XM(" @('-I<W1S(&]F(&YA;64@86YD(&%R9W5M96YT<R!S971T:6YG(&EN9F]R
  739. XM;6%T:6]N(&EN(&9R;VYT("!O9@H@(" @('1H92 @97AP<F5S<VEO;B @8F]D
  740. XM>2 @86YD("!S97!A<F%T92!W:71H(&ET(&)Y('!S975D;R!T;VME;@H@(" @
  741. XM("<])SH*"B @(" @(" @(" B;F%M92@@87)G,7-T+"!A<F<R;F0@*2 ](&)O
  742. XM9'DB"@H@(" @($]N('-U8V-E<W,L(%\(9%\(9E\(;U\(<%\(95\(;B@I('=I
  743. XM;&P@<F5T=7)N(&$@<&]I;G1E<B!A9&1R97-S:6YG("!T;R @80H@(" @(&=L
  744. XM;V)A;" @:&%N9&QE("!F=6YC=&EO;BX@("!4:&4@9VQO8F%L(&AA;F1L92!F
  745. XM=6YC=&EO;G,@:&%V90H@(" @('1H92!P<F]T;W1Y<&4@;V8*"B @(" @(" @
  746. XM("!D;W5B;&4@:&1L*&1O=6)L92!X+"!D;W5B;&4@>2D["@H@(" @($EF('1H
  747. XM92!N86UE('-T<FEN9R @:7,@(&$@(&QE9V%L("!T;VME;B @;F%M92AS=&%R
  748. XM=&EN9R @=VET: H@(" @(&%L<&AA8F5T:6,@8VAA<F%C=&5R(&%N9"!F;VQL
  749. XM;W=E9"!B>2!A;'!H86)E=&EC(&]R(&YU;65R:6-A; H@(" @(&-H87)A8W1E
  750. XM<G,I+"!T:&5N('1H92!C;VYS=')U8W1E9"!F=6YC=&EO;B!W:6QL(&)E('!U
  751. XM=" @:6YT;PH@(" @('1H92 @=&]K96X@=&%B;&4@875T;VUA=&EC86QL>2X@
  752. XM($EF('1H92 Q<W0@87)G=6UE;G0@;F%M92!I<PH@(" @(&$@;&5G86P@=&]K
  753. XM96X@;F%M92P@=&AE;B!T:&4@87)G=6UE;G0@('1O:V5N("!N86UE("!W:6QL
  754. XM("!B90H@(" @(')E<V5T("!T;R!I="@@=&AE(&1E9F%U;'0@87)E(")X(B!A
  755. XM;F0@(GDB*2X@3W1H97(@;W!T:6]N<R!O9@H@(" @(&5X<')E<W-I;VX@87)E
  756. XM.@H*(" @(" @(")B;V1Y(B @(" @(" @(" @(" @($]N;'D@<F5T=7)N('1H
  757. XM92!C;VYS=')U8W1E9"!F=6YC=&EO;BX*"B @(" @(" B*&%R9S%S="P@87)G
  758. XM,G-T*3TB("!297-E="!T:&4@87)G=6UE;G0@=&]K96X@;F%M97,@;VYL>2X*
  759. XM"B @(" @(" B;F%M92@I/6)O9'DB(" @(" @("!0=70@9G5N8W1I;VX@=&]K
  760. XM96X@:6YT;R!T86)L92X*"B @(" @(" B;F%M92 ](&)O9'DB(" @(" @("!0
  761. XM=70@8V]N<W1A;G0@=&]K96X@:6YT;R!T86)L92X*"B @(" @(" B7&YA;64H
  762. XM87)G,7-T+"!A<F<R;F0I/2(@($IU<W0@<F5S970@=&AE(&%R9W5M96YT('1O
  763. XM:V5N"B @(" @(" @(" @(" @(" @(" @(" @(" @("!N86UE<RX@5&AE(&YA
  764. XM;64@:7,@:6=N;W)E9"X*"B @(" @(" B7&YA;64H87)G,7-T+"!A<F<R;F0I
  765. XM/6)O9'DB("!297-E="!T:&4@87)G=6UE;G0@=&]K96X*(" @(" @(" @(" @
  766. XM(" @(" @(" @(" @(" @(&YA;65S(&%N9"!R971U<FX@=&AE(&-O;G-T<G5C
  767. XM=&5D"B @(" @(" @(" @(" @(" @(" @(" @(" @("!F=6YC=&EO;B!W:71H
  768. XM;W5T('!U="!I="!T;R!T:&4@=&]K96X*(" @(" @(" @(" @(" @(" @(" @
  769. XM(" @(" @('1A8FQE+@H*(" @("!/;B!E<G)O<B!O<B @=&AE("!E>'!R97-S
  770. XM:6]N("!S=')I;F<@(&1O97-N)W0@(&=E;F5R871I;F<@(&$*"@H*9&5F=6YC
  771. XM(#$N,B @(" @(" @(" @(" @3&%S="!C:&%N9V4Z(#$Y.3,@(" @(" @(" @
  772. XM(" @(" @(" @(" @(#$*"@H*"@H*1$5&54Y#*#,I(" @(" @(" @(" @("!#
  773. XM($Q)0E)!4ED@1E5.0U1)3TY3(" @(" @(" @(" @("!$14953D,H,RD*"@H*
  774. XM(" @("!F=6YC=&EO;BAE+F<N("!A;B @97AP<F5S<VEO;B @=VET:" @96UP
  775. XM='D@(&)O9'DI+" @7PAD7PAF7PAO7PAP7PAE7PAN*"D*(" @("!R971U<FYS
  776. XM(&$@;G5L;"!P;VEN=&5R+B!4:&5R92!A<F4@,S(@9VQO8F%L(&AA;F1L92!F
  777. XM=6YC=&EO;G,*(" @("!A=F%I;&%B;&4N(" @5&AU<RP@=VET:&EN(&]N92!P
  778. XM<F]C97-S+"!A<R!M86YY(&%S(#,R(&1Y;F%M:2T*(" @("!C86QL>2!C;VYS
  779. XM=')U8W1E9"!F=6YC=&EO;G,@87)E(&%L;&]W960@=&\@8V]E>&ES="X@5&AE
  780. XM(&AA;BT*(" @("!D;&4@(&9U;F-T:6]N<R @8V%N("!O;FQY("!B92 @9G)E
  781. XM960@('=I=&@@(%\(9%\(95\(9E\(=5\(;E\(8R @9G5N8VEO;G,*(" @("!?
  782. XM"&1?"&9?"&-?"&Q?"&]?"'-?"&4H*2!A;F0@7PAD7PAF7PAC7PAL7PAO7PAS
  783. XM7PAE7PAA7PAL7PAL*"D@;W(@96YD(&]F('1H92!P<F]C97-S+@H*(" @("!?
  784. XM"&1?"&9?"&-?"&Q?"&]?"'-?"&4H*2!W:6QL(&-L;W-E('1H92 @9'EN86UI
  785. XM8V%L;'D@(&-O;G-T<G5C=&5D("!F=6YC=&EO;@H@(" @('!A<W-E9" @=&\@
  786. XM(&ET+B @5&AI<R!W:6QL(&9R964@=&AE(&%S<V]C:6%T960@9VQO8F%L(&AA
  787. XM;F1L90H@(" @(&9U;F-T:6]N(&9O<B!R975S92X@3VX@<W5C8V5S<RP@7PAD
  788. XM7PAF7PAC7PAL7PAO7PAS7PAE*"D@<F5T=7)N("AI;G0I,"X@($EF"B @(" @
  789. XM=&AI<R @9G5N8W1I;VX@(&ES("!S=&EL;" @:6X@=&AE(&=L;V)A;"!T;VME
  790. XM;B!T86)L92!O<B!T:&ES"B @(" @9G5N8W1I;VX@(&ES("!N;W0@(')E='5R
  791. XM;F5D("!F<F]M("!A("!?"&1?"&9?"&]?"'!?"&5?"&XH*2 @8V%L;"P@("!T
  792. XM:&5N"B @(" @7PAD7PAF7PAC7PAL7PAO7PAS7PAE*"D@=VEL;"!N;W0@8VQO
  793. XM<V4@:70@86YD(')E='5R;B M,2X*"B @(" @7PAD7PAF7PAC7PAL7PAO7PAS
  794. XM7PAE7PAA7PAL7PAL*"D@9G)E92!A;&P@:&%N9&QE(&9U;F-T:6]N<R!W:&EC
  795. XM:"!A<F4@;F]T(&]N("!T:&4*(" @("!G;&]B86P@=&]K96X@=&%B;&4N($]N
  796. XM('-U8V-E<W,@8V%L;"P@7PAD7PAF7PAC7PAL7PAO7PAS7PAE7PAA7PAL7PAL
  797. XM*"D@<F5T=7)N('1H90H@(" @('1O=&%L(&YU;6)E<B!O9B!H86YD;&5S(&9R
  798. XM965D(&)Y(&ET+@H*4T5%($%,4T\*(" @("!?"&1?"&5?"&9?"'5?"&Y?"&,@
  799. XM("!A;F0@("!G971A<F=U;F%M92@S*2P@("!N86UE87)G=2@S*2P@("!N86UE
  800. XM9FYC="@S*2P*(" @("!N86UE8VYS="@S*2P@(" @8VQR9FYC="@S*2P@(" @
  801. XM8VQR9FYC=&%L;"@S*2P@(" @8VQR8VYS="@S*2P*(" @("!C;')C;G-T86QL
  802. XM*#,I"@I%6$%-4$Q%4PH@(" @(" @(" @9&]U8FQE("@J9FYC='!T<BDH*3L*
  803. XM(" @(" @(" @(&9N8W1P='(@/2!D9F]P96XH(E)H;RAR92P@:6TI(#T@*')E
  804. XM*G)E*VEM*FEM*5XP+C4B*3L*"B @(" @5&AI<R!W:6QL("!R971U<FX@(&$@
  805. XM(&AY<&]T96YU<R @9G5N8W1I;VXL("!C:&%N9V4@(&%R9W5M96YT"B @(" @
  806. XM=&]K96YS("!T;R @(G)E(B @86YD(" B:6TB("!A;F0@('!U=" @=&AE(')E
  807. XM='5R;F5D(&9U;F-T:6]N"B @(" @<&]I;G1E<B!I;G1O('1O:V5N('1A8FQE
  808. XM('=I=&@@;F%M92 B4FAO(BX*"B @(" @(" @("!D;W5B;&4@*"IF;F-T<'1R
  809. XM*2@I.PH@(" @(" @(" @9FYC='!T<B ](&1F;W!E;B@B<&D@/2 R*F%S:6XH
  810. XM,2DB*3L*"B @(" @5&AI<R!W:6QL(')E='5R;B!A(&-O;G-T86YT(&9U;F-T
  811. XM:6]N*')E='5R;B!V86QU<V4@:7,@82!C;VXM"B @(" @<W1A;G0@("TM(" S
  812. XM+C$T,34Y+BXN*2!A;F0@861D(&$@8V]N<W1A;G0@=&]K96X@=&\@=&AE('1O
  813. XM:V5N"B @(" @=&%B;&4@=VET:"!V86QU92 S+C$T,34Y+BXN(&%N9"!N86UE
  814. XM(")P:2(N("!!<R @=&AE(" G/2<@(&ES"B @(" @;VYL>2!A('!S975D;R!T
  815. XM;VME;BP@=&AU<R!T:&4@97AP<F5S<VEO;@H*(" @(" @(" @(")P:2 ](%!)
  816. XM(#T@,BIA<VEN*#$I(@H*(" @("!I<R!S=&EL;"!U;G)E8V]G;FEZ86)L92!B
  817. XM>2!T:&4@7PAD7PAE7PAF7PAU7PAN7PAC"@I!551(3U(*(" @("!+92!*:6X*
  818. XM(" @("!0:'ES:6-S($1E<&%R=&UE;G0*(" @("!1=65E;B=S(%5N:79E<G-I
  819. XM='D*(" @("!+:6YG<W1O;BP@3VYT87)I;PH@(" @($-A;F%D82!+-TP@,TXV
  820. XM"B @(" @:FEN:V5 <W!A<FMY+G!H>2YQ=65E;G-U+F-A"@H*"@H*9&5F=6YC
  821. XM(#$N,B @(" @(" @(" @(" @3&%S="!C:&%N9V4Z(#$Y.3,@(" @(" @(" @
  822. XM(" @(" @(" @(" @(#(*"@H*"@H*1$5&54Y#*#,I(" @(" @(" @(" @("!#
  823. XM($Q)0E)!4ED@1E5.0U1)3TY3(" @(" @(" @(" @("!$14953D,H,RD*"@H*
  824. XM0E5'4PH@(" @(%)E<&]R="!B=6=S(&]F(%\(9%\(95\(9E\(=5\(;E\(8R!L
  825. XM:6)R87)Y('1O('1H92!A=71H;W(@8GD@96UA:6PN"@H*"@H*"@H*"@H*"@H*
  826. XM"@H*"@H*"@H*"@H*"@H*"@H*"@H*"@H*"@H*"@H*"@H*"@H*"@H*9&5F=6YC
  827. XM(#$N,B @(" @(" @(" @(" @3&%S="!C:&%N9V4Z(#$Y.3,@(" @(" @(" @
  828. X2(" @(" @(" @(" @(#,*"@H*
  829. X 
  830. Xend
  831. END_OF_FILE
  832.   if test 6313 -ne `wc -c <'dfopen.3.UU'`; then
  833.     echo shar: \"'dfopen.3.UU'\" unpacked with wrong size!
  834.   else
  835.     echo shar: Uudecoding \"'dfopen.3'\" \(4563 characters\)
  836.     cat dfopen.3.UU | uudecode
  837.     if test 4563 -ne `wc -c <'dfopen.3'`; then
  838.       echo shar: \"'dfopen.3'\" uudecoded with wrong size!
  839.     else
  840.       rm dfopen.3.UU
  841.     fi
  842.   fi
  843.   # end of 'dfopen.3.UU'
  844. fi
  845. if test -f 'y.tab.c' -a "${1}" != "-c" ; then 
  846.   echo shar: Will not clobber existing file \"'y.tab.c'\"
  847. else
  848.   echo shar: Extracting \"'y.tab.c'\" \(14183 characters\)
  849.   sed "s/^X//" >'y.tab.c' <<'END_OF_FILE'
  850. X
  851. X# line 32 "dfcparse.y"
  852. X#include <stdio.h>
  853. X#include <malloc.h>
  854. X#include <math.h>
  855. X#include <string.h>
  856. X#include "dfctree.h"
  857. X#include "dfcsymtable.h"
  858. X
  859. Xchar*         exparserror;
  860. Xstatic char   ermsgbuff[128];
  861. Xstatic Node*  yyparsetree; 
  862. Xstatic int    yytreesize;
  863. Xstatic Node   newnode;
  864. X
  865. X#if NeedFunctionPrototypes
  866. X  int yyparse(void);
  867. X  static int yyreverse(void);
  868. X#else
  869. X  extern int yyparse();
  870. X  extern int yyreverse();
  871. X#endif
  872. X
  873. X#if NeedFunctionPrototypes
  874. X  static int addnode(Node *ptr)
  875. X#else
  876. X  static int addnode(ptr)
  877. X  Node *ptr;
  878. X#endif
  879. X{
  880. X    yytreesize++;
  881. X
  882. X    if(yytreesize==1)
  883. X    {
  884. X        yyparsetree = (Node*)malloc(sizeof(Node));
  885. X    }
  886. X    else
  887. X    {
  888. X        yyparsetree = (Node*)realloc((Node*)yyparsetree, 
  889. X                                 yytreesize*sizeof(Node));
  890. X    }
  891. X    if(yyparsetree==0)
  892. X    {
  893. X    perror("malloc/realloc in addnode()");
  894. X    exit(1);
  895. X    }
  896. X
  897. X    if(yyparsetree == 0) 
  898. X    {
  899. X        fprintf(stderr, "fail to allocate memory in add node\n");
  900. X        exit(1);
  901. X    }
  902. X
  903. X    /* yyparsetree[yytreesize-1] = *ptr; */
  904. X    memcpy(yyparsetree+yytreesize-1, ptr, sizeof(Node)); 
  905. X
  906. X    return yytreesize-1;
  907. X};
  908. X
  909. X
  910. X# line 91 "dfcparse.y"
  911. Xtypedef union  {
  912. X    int    nodeidx;
  913. X    int    argidx;
  914. X    double value;
  915. X    double (*fnctptr)();
  916. X    char   name[32];
  917. X} YYSTYPE;
  918. X# define CONST 257
  919. X# define ARG 258
  920. X# define FNCT 259
  921. X# define SYM 260
  922. X# define SIG 261
  923. X#define yyclearin yychar = -1
  924. X#define yyerrok yyerrflag = 0
  925. Xextern int yychar;
  926. Xextern short yyerrflag;
  927. X#ifndef YYMAXDEPTH
  928. X#define YYMAXDEPTH 150
  929. X#endif
  930. XYYSTYPE yylval, yyval;
  931. X# define YYERRCODE 256
  932. X
  933. X# line 231 "dfcparse.y"
  934. X /* --------------------------------------------------------- */
  935. X#include "dfcscan.h"
  936. X
  937. X#if NeedFunctionPrototype
  938. X  int yyinit(char* expr)
  939. X#else
  940. X  int yyinit(expr)
  941. X  char *expr; 
  942. X#endif
  943. X{
  944. X    initargu();
  945. X
  946. X    yyexpr = expr;
  947. X    yyexprlen = strlen(yyexpr);
  948. X    yypos = 0;
  949. X    yytreesize = 0;
  950. X
  951. X    return 0;
  952. X};
  953. X
  954. X#if NeedFunctionPrototypes
  955. X  static int yyreverse(void)
  956. X#else
  957. X  static int yyreverse()  
  958. X#endif
  959. X/* yyparse() use a LALR(1) bottom-up algorithem to construct the
  960. X   parse tree. Thus the result tree is upsetdown, i.e. the root
  961. X   is place on the end of the yyparsetree[]. yyreverse make it
  962. X   in right order, i.e. yyparsetree[0] be the root */
  963. X{
  964. X    int   i;
  965. X    Node* buff;
  966. X
  967. X    if(yytreesize==0) return 0;
  968. X
  969. X    buff = (Node*)malloc(sizeof(Node)*yytreesize);
  970. X    if(buff==0) 
  971. X    {
  972. X    perror("malloc in reverse()");
  973. X    exit(1);
  974. X    }
  975. X
  976. X    for(i=0; i<yytreesize; i++) /* reverse */
  977. X    {
  978. X    
  979. X     /* buff[i] = yyparsetree[yytreesize-1-i]; */
  980. X    memcpy(buff+i, yyparsetree+yytreesize-1-i, sizeof(Node));
  981. X    buff[i].left = yytreesize - 1 - buff[i].left;
  982. X    buff[i].right= yytreesize - 1 - buff[i].right;
  983. X
  984. X    }
  985. X
  986. X    for(i=0; i<yytreesize; i++) /* put it back */ 
  987. X    {
  988. X    yyparsetree[i] = buff[i];
  989. X    }
  990. X
  991. X    free(buff);
  992. X
  993. X    return yytreesize;
  994. X};
  995. X
  996. X#if NeedFunctionPrototypes
  997. X  int getparsetree(Node* buff)
  998. X#else
  999. X  int getparsetree(buff)
  1000. X  Node* buff;
  1001. X#endif
  1002. X/* copy the parse into buff */
  1003. X{
  1004. X    int i;
  1005. X
  1006. X    for(i=0; i<yytreesize; i++)
  1007. X    {
  1008. X    buff[i] = yyparsetree[i];
  1009. X    }
  1010. X
  1011. X    return yytreesize;
  1012. X};
  1013. X
  1014. X#if NeedFunctionPrototypes
  1015. X  static void yyerror(char* s)
  1016. X#else
  1017. X  static yyerror(s)
  1018. X  char *s;
  1019. X#endif
  1020. X{
  1021. X    exparserror=s;
  1022. X};
  1023. X
  1024. X#if NeedFunctionPrototypes
  1025. X  static int yywrap(void)
  1026. X#else
  1027. X  static int yywrap()
  1028. X#endif
  1029. X{
  1030. X   return 1;
  1031. X};
  1032. Xshort yyexca[] ={
  1033. X-1, 1,
  1034. X    0, -1,
  1035. X    -2, 0,
  1036. X    };
  1037. X# define YYNPROD 22
  1038. X# define YYLAST 251
  1039. Xshort yyact[]={
  1040. X
  1041. X   2,  12,  31,  19,  11,  12,  10,  13,  11,  22,
  1042. X  10,  39,  17,  15,  40,  16,  21,  18,  36,  17,
  1043. X  15,  37,  16,  17,  18,  42,  17,  15,  18,  16,
  1044. X  12,  18,  20,  11,   1,  10,   0,   0,   0,  17,
  1045. X  15,   0,  16,   0,  18,   0,  35,  17,  15,   3,
  1046. X  16,   0,  18,  34,  17,  15,  14,  16,   0,  18,
  1047. X   0,   0,   0,   0,  19,   0,   0,   0,   0,   0,
  1048. X   4,  19,   0,   0,   0,  19,   0,   0,  19,   0,
  1049. X   0,  23,  24,  25,   0,   0,  26,  27,  28,  29,
  1050. X  30,  19,  32,  33,   0,   0,   0,   0,   0,  19,
  1051. X   0,   0,   0,   0,   0,   0,  19,   0,  38,   0,
  1052. X   0,  41,   0,   0,   0,   0,   0,   0,   0,   0,
  1053. X   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,
  1054. X   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,
  1055. X   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,
  1056. X   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,
  1057. X   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,
  1058. X   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,
  1059. X   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,
  1060. X   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,
  1061. X   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,
  1062. X   0,   0,   0,   0,   0,   0,   0,   0,   6,   8,
  1063. X   9,   7,   6,   8,   9,   7,   0,   0,   0,   0,
  1064. X   0,   0,   0,   0,   0,   0,   0,   0,   0,   0,
  1065. X   0,   0,   0,   0,   0,   0,   5,   6,   8,   9,
  1066. X   7 };
  1067. Xshort yypact[]={
  1068. X
  1069. X -10,-1000,-1000,-1000,  -3,  22, -24,-1000,-1000, -31,
  1070. X -35, -35, -35,-1000,-1000, -35, -35, -35, -35, -35,
  1071. X-1000, -39, -35, -91, -91,  12, -19, -19, -91, -91,
  1072. X -91,-1000,   5, -23,-1000,-1000,-1000, -35, -30,-1000,
  1073. X -35, -16,-1000 };
  1074. Xshort yypgo[]={
  1075. X
  1076. X   0,  70,  34 };
  1077. Xshort yyr1[]={
  1078. X
  1079. X   0,   2,   2,   2,   2,   2,   1,   1,   1,   1,
  1080. X   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,
  1081. X   1,   1 };
  1082. Xshort yyr2[]={
  1083. X
  1084. X   0,   1,   1,   2,   2,   2,   1,   1,   3,   4,
  1085. X   1,   4,   6,   8,   3,   3,   3,   3,   2,   2,
  1086. X   3,   3 };
  1087. Xshort yychk[]={
  1088. X
  1089. X-1000,  -2,  10,  59,  -1, 256, 257, 260, 258, 259,
  1090. X  45,  43,  40,  10,  59,  43,  45,  42,  47,  94,
  1091. X  10,  40,  40,  -1,  -1,  -1,  -1,  -1,  -1,  -1,
  1092. X  -1,  41,  -1,  -1,  41,  41,  41,  44,  -1,  41,
  1093. X  44,  -1,  41 };
  1094. Xshort yydef[]={
  1095. X
  1096. X   0,  -2,   1,   2,   0,   0,   6,   7,  10,   0,
  1097. X   0,   0,   0,   3,   4,   0,   0,   0,   0,   0,
  1098. X   5,   0,   0,  18,  19,   0,  14,  15,  16,  17,
  1099. X  20,   8,   0,   0,  21,   9,  11,   0,   0,  12,
  1100. X   0,   0,  13 };
  1101. X#ifndef lint
  1102. Xstatic    char yaccpar_sccsid[] = "@(#)yaccpar 1.6 88/02/08 SMI"; /* from UCB 4.1 83/02/11 */
  1103. X#endif
  1104. X
  1105. X#
  1106. X# define YYFLAG -1000
  1107. X# define YYERROR goto yyerrlab
  1108. X# define YYACCEPT return(0)
  1109. X# define YYABORT return(1)
  1110. X
  1111. X/*    parser for yacc output    */
  1112. X
  1113. X#ifdef YYDEBUG
  1114. Xint yydebug = 0; /* 1 for debugging */
  1115. X#endif
  1116. XYYSTYPE yyv[YYMAXDEPTH]; /* where the values are stored */
  1117. Xint yychar = -1; /* current input token number */
  1118. Xint yynerrs = 0;  /* number of errors */
  1119. Xshort yyerrflag = 0;  /* error recovery flag */
  1120. X
  1121. Xyyparse() {
  1122. X
  1123. X    short yys[YYMAXDEPTH];
  1124. X    short yyj, yym;
  1125. X    register YYSTYPE *yypvt;
  1126. X    register short yystate, *yyps, yyn;
  1127. X    register YYSTYPE *yypv;
  1128. X    register short *yyxi;
  1129. X
  1130. X    yystate = 0;
  1131. X    yychar = -1;
  1132. X    yynerrs = 0;
  1133. X    yyerrflag = 0;
  1134. X    yyps= &yys[-1];
  1135. X    yypv= &yyv[-1];
  1136. X
  1137. X yystack:    /* put a state and value onto the stack */
  1138. X
  1139. X#ifdef YYDEBUG
  1140. X    if( yydebug  ) printf( "state %d, char 0%o\n", yystate, yychar );
  1141. X#endif
  1142. X        if( ++yyps>= &yys[YYMAXDEPTH] ) { yyerror( "yacc stack overflow" ); return(1); }
  1143. X        *yyps = yystate;
  1144. X        ++yypv;
  1145. X        *yypv = yyval;
  1146. X
  1147. X yynewstate:
  1148. X
  1149. X    yyn = yypact[yystate];
  1150. X
  1151. X    if( yyn<= YYFLAG ) goto yydefault; /* simple state */
  1152. X
  1153. X    if( yychar<0 ) if( (yychar=yylex())<0 ) yychar=0;
  1154. X    if( (yyn += yychar)<0 || yyn >= YYLAST ) goto yydefault;
  1155. X
  1156. X    if( yychk[ yyn=yyact[ yyn ] ] == yychar ){ /* valid shift */
  1157. X        yychar = -1;
  1158. X        yyval = yylval;
  1159. X        yystate = yyn;
  1160. X        if( yyerrflag > 0 ) --yyerrflag;
  1161. X        goto yystack;
  1162. X        }
  1163. X
  1164. X yydefault:
  1165. X    /* default state action */
  1166. X
  1167. X    if( (yyn=yydef[yystate]) == -2 ) {
  1168. X        if( yychar<0 ) if( (yychar=yylex())<0 ) yychar = 0;
  1169. X        /* look through exception table */
  1170. X
  1171. X        for( yyxi=yyexca; (*yyxi!= (-1)) || (yyxi[1]!=yystate) ; yyxi += 2 ) ; /* VOID */
  1172. X
  1173. X        while( *(yyxi+=2) >= 0 ){
  1174. X            if( *yyxi == yychar ) break;
  1175. X            }
  1176. X        if( (yyn = yyxi[1]) < 0 ) return(0);   /* accept */
  1177. X        }
  1178. X
  1179. X    if( yyn == 0 ){ /* error */
  1180. X        /* error ... attempt to resume parsing */
  1181. X
  1182. X        switch( yyerrflag ){
  1183. X
  1184. X        case 0:   /* brand new error */
  1185. X
  1186. X            yyerror( "syntax error" );
  1187. X        yyerrlab:
  1188. X            ++yynerrs;
  1189. X
  1190. X        case 1:
  1191. X        case 2: /* incompletely recovered error ... try again */
  1192. X
  1193. X            yyerrflag = 3;
  1194. X
  1195. X            /* find a state where "error" is a legal shift action */
  1196. X
  1197. X            while ( yyps >= yys ) {
  1198. X               yyn = yypact[*yyps] + YYERRCODE;
  1199. X               if( yyn>= 0 && yyn < YYLAST && yychk[yyact[yyn]] == YYERRCODE ){
  1200. X                  yystate = yyact[yyn];  /* simulate a shift of "error" */
  1201. X                  goto yystack;
  1202. X                  }
  1203. X               yyn = yypact[*yyps];
  1204. X
  1205. X               /* the current yyps has no shift onn "error", pop stack */
  1206. X
  1207. X#ifdef YYDEBUG
  1208. X               if( yydebug ) printf( "error recovery pops state %d, uncovers %d\n", *yyps, yyps[-1] );
  1209. X#endif
  1210. X               --yyps;
  1211. X               --yypv;
  1212. X               }
  1213. X
  1214. X            /* there is no state on the stack with an error shift ... abort */
  1215. X
  1216. X    yyabort:
  1217. X            return(1);
  1218. X
  1219. X
  1220. X        case 3:  /* no shift yet; clobber input char */
  1221. X
  1222. X#ifdef YYDEBUG
  1223. X            if( yydebug ) printf( "error recovery discards char %d\n", yychar );
  1224. X#endif
  1225. X
  1226. X            if( yychar == 0 ) goto yyabort; /* don't discard EOF, quit */
  1227. X            yychar = -1;
  1228. X            goto yynewstate;   /* try again in the same state */
  1229. X
  1230. X            }
  1231. X
  1232. X        }
  1233. X
  1234. X    /* reduction by production yyn */
  1235. X
  1236. X#ifdef YYDEBUG
  1237. X        if( yydebug ) printf("reduce %d\n",yyn);
  1238. X#endif
  1239. X        yyps -= yyr2[yyn];
  1240. X        yypvt = yypv;
  1241. X        yypv -= yyr2[yyn];
  1242. X        yyval = yypv[1];
  1243. X        yym=yyn;
  1244. X            /* consult goto table to find next state */
  1245. X        yyn = yyr1[yyn];
  1246. X        yyj = yypgo[yyn] + *yyps + 1;
  1247. X        if( yyj>=YYLAST || yychk[ yystate = yyact[yyj] ] != -yyn ) yystate = yyact[yypgo[yyn]];
  1248. X        switch(yym){
  1249. X            
  1250. Xcase 1:
  1251. X# line 111 "dfcparse.y"
  1252. X{  
  1253. X                  return 0;
  1254. X                } break;
  1255. Xcase 2:
  1256. X# line 114 "dfcparse.y"
  1257. X{
  1258. X                  return 0;
  1259. X                           } break;
  1260. Xcase 3:
  1261. X# line 117 "dfcparse.y"
  1262. X{  
  1263. X                              return yyreverse(); 
  1264. X                           } break;
  1265. Xcase 4:
  1266. X# line 120 "dfcparse.y"
  1267. X{
  1268. X                  return yyreverse();
  1269. X                           } break;
  1270. Xcase 5:
  1271. X# line 123 "dfcparse.y"
  1272. X{  
  1273. X                              return -1;
  1274. X                           } break;
  1275. Xcase 6:
  1276. X# line 128 "dfcparse.y"
  1277. X{  
  1278. X                              newnode.type = const_node;
  1279. X                              newnode.content.value = yypvt[-0].value;
  1280. X
  1281. X                              yyval.nodeidx = addnode(&newnode); 
  1282. X                           } break;
  1283. Xcase 7:
  1284. X# line 134 "dfcparse.y"
  1285. X{
  1286. X                  sprintf(ermsgbuff, 
  1287. X                  "unknow token \"%s\"", yypvt[-0].name);
  1288. X                  exparserror = ermsgbuff;
  1289. X                  return -1;
  1290. X                           } break;
  1291. Xcase 8:
  1292. X# line 140 "dfcparse.y"
  1293. X{
  1294. X                  newnode.type = const_node;
  1295. X                  newnode.content.value = yypvt[-2].value;
  1296. X
  1297. X                  yyval.nodeidx = addnode(&newnode);
  1298. X                           } break;
  1299. Xcase 9:
  1300. X# line 146 "dfcparse.y"
  1301. X{
  1302. X                  newnode.type = const_node;
  1303. X                  newnode.content.value = yypvt[-3].value;
  1304. X
  1305. X                  yyval.nodeidx = addnode(&newnode);
  1306. X               } break;
  1307. Xcase 10:
  1308. X# line 152 "dfcparse.y"
  1309. X{
  1310. X                              newnode.type = arg_node;
  1311. X                  newnode.content.argidx = yypvt[-0].argidx;
  1312. X                              yyval.nodeidx = addnode(&newnode);
  1313. X                           } break;
  1314. Xcase 11:
  1315. X# line 157 "dfcparse.y"
  1316. X{ 
  1317. X                              newnode.type = simplex_fnct_node;
  1318. X                              newnode.content.fnctptr = yypvt[-3].fnctptr;
  1319. X                              newnode.right = yypvt[-1].nodeidx;
  1320. X
  1321. X                              yyval.nodeidx = addnode(&newnode);
  1322. X                           } break;
  1323. Xcase 12:
  1324. X# line 164 "dfcparse.y"
  1325. X{
  1326. X                              newnode.type = duplex_fnct_node;
  1327. X                              newnode.content.fnctptr = yypvt[-5].fnctptr;
  1328. X                              newnode.left = yypvt[-3].nodeidx;
  1329. X                              newnode.right= yypvt[-1].nodeidx;
  1330. X
  1331. X                              yyval.nodeidx = addnode(&newnode);
  1332. X                           } break;
  1333. Xcase 13:
  1334. X# line 172 "dfcparse.y"
  1335. X{
  1336. X                  exparserror 
  1337. X                = "not support triplex function yet";
  1338. X                      return -1;    
  1339. X                       } break;
  1340. Xcase 14:
  1341. X# line 177 "dfcparse.y"
  1342. X{
  1343. X                              newnode.type = binary_op_node;
  1344. X                              newnode.content.op = op_sum;
  1345. X                              newnode.left = yypvt[-2].nodeidx;
  1346. X                              newnode.right= yypvt[-0].nodeidx;
  1347. X
  1348. X                              yyval.nodeidx = addnode(&newnode);
  1349. X                           } break;
  1350. Xcase 15:
  1351. X# line 185 "dfcparse.y"
  1352. X{
  1353. X                              newnode.type = binary_op_node;
  1354. X                              newnode.content.op = op_sub;
  1355. X                              newnode.left = yypvt[-2].nodeidx;
  1356. X                              newnode.right= yypvt[-0].nodeidx;
  1357. X
  1358. X                              yyval.nodeidx = addnode(&newnode);
  1359. X                           } break;
  1360. Xcase 16:
  1361. X# line 193 "dfcparse.y"
  1362. X{
  1363. X                              newnode.type = binary_op_node;
  1364. X                              newnode.content.op = op_mul;
  1365. X                              newnode.left = yypvt[-2].nodeidx;
  1366. X                              newnode.right= yypvt[-0].nodeidx;
  1367. X
  1368. X                              yyval.nodeidx = addnode(&newnode);
  1369. X                           } break;
  1370. Xcase 17:
  1371. X# line 201 "dfcparse.y"
  1372. X{
  1373. X                              newnode.type = binary_op_node;
  1374. X                              newnode.content.op = op_div;
  1375. X                              newnode.left =yypvt[-2].nodeidx;
  1376. X                              newnode.right=yypvt[-0].nodeidx;
  1377. X
  1378. X                              yyval.nodeidx = addnode(&newnode); 
  1379. X                           } break;
  1380. Xcase 18:
  1381. X# line 209 "dfcparse.y"
  1382. X{
  1383. X                              newnode.type = unary_op_node; 
  1384. X                  newnode.content.op = op_neg;
  1385. X                              newnode.right = yypvt[-0].nodeidx;
  1386. X
  1387. X                              yyval.nodeidx = addnode(&newnode);
  1388. X                           } break;
  1389. Xcase 19:
  1390. X# line 216 "dfcparse.y"
  1391. X{ 
  1392. X                              yyval.nodeidx = yypvt[-0].nodeidx;
  1393. X                           } break;
  1394. Xcase 20:
  1395. X# line 219 "dfcparse.y"
  1396. X{
  1397. X                              newnode.type = duplex_fnct_node;
  1398. X                              newnode.content.fnctptr = pow;
  1399. X                              newnode.left = yypvt[-2].nodeidx;
  1400. X                              newnode.right= yypvt[-0].nodeidx;
  1401. X
  1402. X                              yyval.nodeidx = addnode(&newnode);
  1403. X                           } break;
  1404. Xcase 21:
  1405. X# line 227 "dfcparse.y"
  1406. X{ 
  1407. X                              yyval.nodeidx = yypvt[-1].nodeidx; 
  1408. X                           } break;
  1409. X        }
  1410. X        goto yystack;  /* stack new state and value */
  1411. X
  1412. X    }
  1413. END_OF_FILE
  1414.   if test 14183 -ne `wc -c <'y.tab.c'`; then
  1415.     echo shar: \"'y.tab.c'\" unpacked with wrong size!
  1416.   fi
  1417.   # end of 'y.tab.c'
  1418. fi
  1419. echo shar: End of archive 2 \(of 2\).
  1420. cp /dev/null ark2isdone
  1421. MISSING=""
  1422. for I in 1 2 ; do
  1423.     if test ! -f ark${I}isdone ; then
  1424.     MISSING="${MISSING} ${I}"
  1425.     fi
  1426. done
  1427. if test "${MISSING}" = "" ; then
  1428.     echo You have unpacked both archives.
  1429.     rm -f ark[1-9]isdone
  1430. else
  1431.     echo You still must unpack the following archives:
  1432.     echo "        " ${MISSING}
  1433. fi
  1434. exit 0
  1435. exit 0 # Just in case...
  1436.