/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Doc / Extension / Extending.tex / node21_ct.html

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3c 21 44 4f 43 54 59 50 | 45 20 48 54 4d 4c 20 50 |<!DOCTYP|E HTML P|
|00000010| 55 42 4c 49 43 20 22 2d | 2f 2f 57 33 43 2f 2f 44 |UBLIC "-|//W3C//D|
|00000020| 54 44 20 48 54 4d 4c 20 | 33 2e 32 20 46 69 6e 61 |TD HTML |3.2 Fina|
|00000030| 6c 2f 2f 65 6e 22 3e 0a | 0a 3c 21 2d 2d 43 6f 6e |l//en">.|.<!--Con|
|00000040| 76 65 72 74 65 64 20 77 | 69 74 68 20 4c 61 54 65 |verted w|ith LaTe|
|00000050| 58 32 48 54 4d 4c 20 32 | 30 32 32 20 28 52 65 6c |X2HTML 2|022 (Rel|
|00000060| 65 61 73 65 64 20 4a 61 | 6e 75 61 72 79 20 31 2c |eased Ja|nuary 1,|
|00000070| 20 32 30 32 32 29 20 2d | 2d 3e 0a 3c 48 54 4d 4c | 2022) -|->.<HTML|
|00000080| 20 6c 61 6e 67 3d 22 65 | 6e 22 3e 0a 3c 48 45 41 | lang="e|n">.<HEA|
|00000090| 44 3e 0a 3c 54 49 54 4c | 45 3e 43 6f 6e 74 65 6e |D>.<TITL|E>Conten|
|000000a0| 74 73 20 6f 66 20 4e 65 | 77 20 74 79 70 65 20 69 |ts of Ne|w type i|
|000000b0| 6e 73 74 61 6e 63 65 73 | 20 63 72 65 61 74 69 6f |nstances| creatio|
|000000c0| 6e 3c 2f 54 49 54 4c 45 | 3e 0a 0a 3c 4d 45 54 41 |n</TITLE|>..<META|
|000000d0| 20 48 54 54 50 2d 45 51 | 55 49 56 3d 22 43 6f 6e | HTTP-EQ|UIV="Con|
|000000e0| 74 65 6e 74 2d 54 79 70 | 65 22 20 43 4f 4e 54 45 |tent-Typ|e" CONTE|
|000000f0| 4e 54 3d 22 74 65 78 74 | 2f 68 74 6d 6c 3b 20 63 |NT="text|/html; c|
|00000100| 68 61 72 73 65 74 3d 75 | 74 66 2d 38 22 3e 0a 3c |harset=u|tf-8">.<|
|00000110| 4d 45 54 41 20 4e 41 4d | 45 3d 22 76 69 65 77 70 |META NAM|E="viewp|
|00000120| 6f 72 74 22 20 43 4f 4e | 54 45 4e 54 3d 22 77 69 |ort" CON|TENT="wi|
|00000130| 64 74 68 3d 64 65 76 69 | 63 65 2d 77 69 64 74 68 |dth=devi|ce-width|
|00000140| 2c 20 69 6e 69 74 69 61 | 6c 2d 73 63 61 6c 65 3d |, initia|l-scale=|
|00000150| 31 2e 30 22 3e 0a 3c 4d | 45 54 41 20 4e 41 4d 45 |1.0">.<M|ETA NAME|
|00000160| 3d 22 47 65 6e 65 72 61 | 74 6f 72 22 20 43 4f 4e |="Genera|tor" CON|
|00000170| 54 45 4e 54 3d 22 4c 61 | 54 65 58 32 48 54 4d 4c |TENT="La|TeX2HTML|
|00000180| 20 76 32 30 32 32 22 3e | 0a 0a 3c 4c 49 4e 4b 20 | v2022">|..<LINK |
|00000190| 52 45 4c 3d 22 53 54 59 | 4c 45 53 48 45 45 54 22 |REL="STY|LESHEET"|
|000001a0| 20 48 52 45 46 3d 22 45 | 78 74 65 6e 64 69 6e 67 | HREF="E|xtending|
|000001b0| 2e 63 73 73 22 3e 0a 0a | 3c 4c 49 4e 4b 20 52 45 |.css">..|<LINK RE|
|000001c0| 4c 3d 22 70 72 65 76 69 | 6f 75 73 22 20 48 52 45 |L="previ|ous" HRE|
|000001d0| 46 3d 22 6e 6f 64 65 32 | 30 5f 6d 6e 2e 68 74 6d |F="node2|0_mn.htm|
|000001e0| 6c 22 3e 0a 3c 4c 49 4e | 4b 20 52 45 4c 3d 22 75 |l">.<LIN|K REL="u|
|000001f0| 70 22 20 48 52 45 46 3d | 22 6e 6f 64 65 31 36 5f |p" HREF=|"node16_|
|00000200| 6d 6e 2e 68 74 6d 6c 22 | 3e 0a 3c 4c 49 4e 4b 20 |mn.html"|>.<LINK |
|00000210| 52 45 4c 3d 22 6e 65 78 | 74 22 20 48 52 45 46 3d |REL="nex|t" HREF=|
|00000220| 22 6e 6f 64 65 32 32 5f | 6d 6e 2e 68 74 6d 6c 22 |"node22_|mn.html"|
|00000230| 3e 0a 3c 2f 48 45 41 44 | 3e 0a 20 0a 3c 42 4f 44 |>.</HEAD|>. .<BOD|
|00000240| 59 20 62 67 63 6f 6c 6f | 72 3d 22 23 66 66 66 66 |Y bgcolo|r="#ffff|
|00000250| 66 66 22 20 74 65 78 74 | 3d 22 23 30 30 30 30 30 |ff" text|="#00000|
|00000260| 30 22 20 6c 69 6e 6b 3d | 22 23 39 39 34 34 45 45 |0" link=|"#9944EE|
|00000270| 22 20 76 6c 69 6e 6b 3d | 22 23 30 30 30 30 66 66 |" vlink=|"#0000ff|
|00000280| 22 20 61 6c 69 6e 6b 3d | 22 23 30 30 66 66 30 30 |" alink=|"#00ff00|
|00000290| 22 3e 0a 0a 3c 48 33 3e | 3c 41 20 49 44 3d 22 53 |">..<H3>|<A ID="S|
|000002a0| 45 43 54 49 4f 4e 30 30 | 30 36 31 34 30 30 30 30 |ECTION00|06140000|
|000002b0| 30 30 30 30 30 30 30 30 | 30 30 22 3e 0a 4e 65 77 |00000000|00">.New|
|000002c0| 20 74 79 70 65 20 69 6e | 73 74 61 6e 63 65 73 20 | type in|stances |
|000002d0| 63 72 65 61 74 69 6f 6e | 3c 2f 41 3e 0a 3c 2f 48 |creation|</A>.</H|
|000002e0| 33 3e 0a 0a 3c 50 3e 0a | 43 72 65 61 74 69 6f 6e |3>..<P>.|Creation|
|000002f0| 20 6f 66 20 61 20 6e 65 | 77 20 69 6e 73 74 61 6e | of a ne|w instan|
|00000300| 63 65 20 6f 66 20 74 68 | 65 20 65 78 74 65 6e 64 |ce of th|e extend|
|00000310| 65 64 20 74 79 70 65 20 | 6e 65 63 65 73 73 69 74 |ed type |necessit|
|00000320| 61 74 65 73 20 74 68 65 | 0a 64 65 66 69 6e 69 74 |ates the|.definit|
|00000330| 69 6f 6e 20 6f 66 20 61 | 20 63 6f 6e 73 74 72 75 |ion of a| constru|
|00000340| 63 74 6f 72 20 66 75 6e | 63 74 69 6f 6e 2e 20 54 |ctor fun|ction. T|
|00000350| 68 69 73 20 63 6f 6e 73 | 74 72 75 63 74 6f 72 20 |his cons|tructor |
|00000360| 6f 62 65 79 73 20 61 6c | 77 61 79 73 0a 74 68 65 |obeys al|ways.the|
|00000370| 20 73 61 6d 65 20 66 72 | 61 6d 65 77 6f 72 6b 2e | same fr|amework.|
|00000380| 20 46 69 72 73 74 20 79 | 6f 75 20 68 61 76 65 20 | First y|ou have |
|00000390| 74 6f 20 63 72 65 61 74 | 65 20 61 20 6e 65 77 20 |to creat|e a new |
|000003a0| 63 65 6c 6c 20 77 69 74 | 68 20 74 68 65 0a 4e 45 |cell wit|h the.NE|
|000003b0| 57 43 45 4c 4c 20 6d 61 | 63 72 6f 2e 20 54 68 69 |WCELL ma|cro. Thi|
|000003c0| 73 20 6d 61 63 72 6f 20 | 68 61 73 20 74 77 6f 20 |s macro |has two |
|000003d0| 70 61 72 61 6d 65 74 65 | 72 73 2c 20 61 20 3c 54 |paramete|rs, a <T|
|000003e0| 54 3e 53 43 4d 3c 2f 54 | 54 3e 0a 6f 62 6a 65 63 |T>SCM</T|T>.objec|
|000003f0| 74 20 77 68 69 63 68 20 | 77 69 6c 6c 20 70 6f 69 |t which |will poi|
|00000400| 6e 74 20 74 68 65 20 6e | 65 77 20 63 65 6c 6c 20 |nt the n|ew cell |
|00000410| 61 6e 64 20 74 68 65 20 | 74 79 70 65 20 6f 66 20 |and the |type of |
|00000420| 74 68 65 20 63 65 6c 6c | 20 74 6f 0a 63 72 65 61 |the cell| to.crea|
|00000430| 74 65 2e 20 54 68 65 20 | 73 65 63 6f 6e 64 20 61 |te. The |second a|
|00000440| 72 67 75 6d 65 6e 74 20 | 69 73 20 67 65 6e 65 72 |rgument |is gener|
|00000450| 61 6c 6c 79 20 65 71 75 | 61 6c 20 74 6f 20 74 68 |ally equ|al to th|
|00000460| 65 20 76 61 6c 75 65 20 | 72 65 74 75 72 6e 65 64 |e value |returned|
|00000470| 20 62 79 20 0a 53 54 6b | 5f 61 64 64 5f 6e 65 77 | by .STk|_add_new|
|00000480| 5f 74 79 70 65 2e 20 0a | 4f 6e 63 65 20 74 68 65 |_type. .|Once the|
|00000490| 20 63 65 6c 6c 20 69 73 | 20 63 72 65 61 74 65 64 | cell is| created|
|000004a0| 2c 20 77 65 20 68 61 76 | 65 20 67 65 6e 65 72 61 |, we hav|e genera|
|000004b0| 6c 6c 79 20 74 6f 20 28 | 64 79 6e 61 6d 69 63 61 |lly to (|dynamica|
|000004c0| 6c 6c 79 29 20 61 6c 6c | 6f 63 61 74 65 0a 61 20 |lly) all|ocate.a |
|000004d0| 43 20 73 74 72 75 63 74 | 75 72 65 20 77 68 69 63 |C struct|ure whic|
|000004e0| 68 20 63 6f 6e 74 61 69 | 6e 73 20 74 68 65 20 69 |h contai|ns the i|
|000004f0| 6e 66 6f 72 6d 61 74 69 | 6f 6e 73 20 77 68 69 63 |nformati|ons whic|
|00000500| 68 20 61 72 65 20 6e 65 | 63 65 73 73 61 72 79 20 |h are ne|cessary |
|00000510| 74 6f 0a 69 6d 70 6c 65 | 6d 65 6e 74 20 74 68 65 |to.imple|ment the|
|00000520| 20 6e 65 77 20 74 79 70 | 65 2e 20 44 79 6e 61 6d | new typ|e. Dynam|
|00000530| 69 63 20 61 6c 6c 6f 63 | 61 74 69 6f 6e 20 20 63 |ic alloc|ation  c|
|00000540| 61 6e 20 62 65 20 64 6f | 6e 65 20 77 69 74 68 20 |an be do|ne with |
|00000550| 74 68 65 0a 66 75 6e 63 | 74 69 6f 6e 20 53 54 6b |the.func|tion STk|
|00000560| 5f 6d 75 73 74 5f 6d 61 | 6c 6c 6f 63 2e 20 54 68 |_must_ma|lloc. Th|
|00000570| 65 20 61 72 65 61 20 72 | 65 74 75 72 6e 65 64 20 |e area r|eturned |
|00000580| 62 79 20 0a 53 54 6b 5f | 6d 75 73 74 5f 6d 61 6c |by .STk_|must_mal|
|00000590| 6c 6f 63 20 6d 75 73 74 | 20 62 65 20 73 74 6f 72 |loc must| be stor|
|000005a0| 65 64 20 69 6e 20 74 68 | 65 20 3c 54 54 3e 64 61 |ed in th|e <TT>da|
|000005b0| 74 61 3c 2f 54 54 3e 20 | 66 69 65 6c 64 20 6f 66 |ta</TT> |field of|
|000005c0| 0a 74 68 65 20 6e 65 77 | 20 63 65 6c 6c 2e 20 54 |.the new| cell. T|
|000005d0| 68 69 73 20 66 69 65 6c | 64 20 63 61 6e 20 62 65 |his fiel|d can be|
|000005e0| 20 61 63 63 65 73 73 65 | 64 20 77 69 74 68 20 74 | accesse|d with t|
|000005f0| 68 65 20 45 58 54 44 41 | 54 41 0a 6d 61 63 72 6f |he EXTDA|TA.macro|
|00000600| 2e 20 0a 0a 3c 50 3e 0a | 4c 65 74 27 73 20 67 6f |. ..<P>.|Let's go|
|00000610| 20 62 61 63 6b 20 74 6f | 20 74 68 65 20 73 74 61 | back to| the sta|
|00000620| 63 6b 20 65 78 61 6d 70 | 6c 65 2e 20 57 65 20 63 |ck examp|le. We c|
|00000630| 61 6e 20 6e 6f 77 20 64 | 65 66 69 6e 65 20 61 20 |an now d|efine a |
|00000640| 6e 65 77 20 70 72 69 6d | 69 74 69 76 65 0a 66 75 |new prim|itive.fu|
|00000650| 6e 63 74 69 6f 6e 20 74 | 6f 20 6d 61 6b 65 20 61 |nction t|o make a|
|00000660| 20 6e 65 77 20 73 74 61 | 63 6b 2e 20 50 72 6f 76 | new sta|ck. Prov|
|00000670| 69 64 65 64 20 74 68 61 | 74 20 74 68 65 20 67 6c |ided tha|t the gl|
|00000680| 6f 62 61 6c 20 76 61 72 | 69 61 62 6c 65 20 3c 54 |obal var|iable <T|
|00000690| 54 3e 74 63 5f 73 74 61 | 63 6b 3c 2f 54 54 3e 0a |T>tc_sta|ck</TT>.|
|000006a0| 61 6c 72 65 61 64 79 20 | 63 6f 6e 74 61 69 6e 73 |already |contains|
|000006b0| 20 74 68 65 20 76 61 6c | 75 65 20 72 65 74 75 72 | the val|ue retur|
|000006c0| 6e 65 64 20 62 79 20 3c | 54 54 3e 53 54 6b 5f 61 |ned by <|TT>STk_a|
|000006d0| 64 64 5f 6e 65 77 5f 74 | 79 70 65 3c 2f 54 54 3e |dd_new_t|ype</TT>|
|000006e0| 2c 20 77 65 0a 63 61 6e | 20 77 72 69 74 65 0a 0a |, we.can| write..|
|000006f0| 3c 50 3e 0a 3c 42 52 3e | 0a 3c 49 4d 47 0a 20 20 |<P>.<BR>|.<IMG.  |
|00000700| 53 54 59 4c 45 3d 22 22 | 20 53 52 43 3d 22 69 6d |STYLE=""| SRC="im|
|00000710| 67 32 34 2e 70 6e 67 22 | 0a 20 41 4c 54 3d 22 5c |g24.png"|. ALT="\|
|00000720| 62 65 67 69 6e 7b 43 6f | 64 65 7d 0a 5c 62 65 67 |begin{Co|de}.\beg|
|00000730| 69 6e 7b 6c 69 73 74 69 | 6e 67 7d 5b 32 30 30 5d |in{listi|ng}[200]|
|00000740| 7b 32 7d 0a 2e 2e 2e 22 | 3e 0a 3c 42 52 3e 0a 3c |{2}...."|>.<BR>.<|
|00000750| 42 52 3e 0a 3c 49 4d 47 | 0a 20 20 53 54 59 4c 45 |BR>.<IMG|.  STYLE|
|00000760| 3d 22 22 20 53 52 43 3d | 22 69 6d 67 32 35 2e 70 |="" SRC=|"img25.p|
|00000770| 6e 67 22 0a 20 41 4c 54 | 3d 22 5c 62 65 67 69 6e |ng". ALT|="\begin|
|00000780| 7b 43 6f 64 65 7d 0a 5c | 62 65 67 69 6e 7b 6c 69 |{Code}.\|begin{li|
|00000790| 73 74 69 6e 67 7d 5b 32 | 30 30 5d 7b 32 7d 0a 73 |sting}[2|00]{2}.s|
|000007a0| 74 61 74 69 63 20 50 52 | 49 4d 49 54 49 56 45 20 |tatic PR|IMITIVE |
|000007b0| 6d 61 6b 65 5f 73 74 61 | 63 6b 28 76 6f 69 64 29 |make_sta|ck(void)|
|000007c0| 0a 7b 0a 53 43 4d 20 7a | 3b 2e 2e 2e 0a 2e 2e 2e |.{.SCM z|;.......|
|000007d0| 53 54 41 43 4b 28 7a 29 | 2d 26 67 74 3b 6c 65 6e |STACK(z)|-&gt;len|
|000007e0| 20 3d 20 30 3b 0a 53 54 | 41 43 4b 28 7a 29 2d 26 | = 0;.ST|ACK(z)-&|
|000007f0| 67 74 3b 76 61 6c 75 65 | 73 20 3d 20 4e 49 4c 3b |gt;value|s = NIL;|
|00000800| 0a 72 65 74 75 72 6e 20 | 7a 3b 0a 7d 0a 5c 65 6e |.return |z;.}.\en|
|00000810| 64 7b 6c 69 73 74 69 6e | 67 7d 5c 65 6e 64 7b 43 |d{listin|g}\end{C|
|00000820| 6f 64 65 7d 22 3e 0a 3c | 42 52 3e 0a 0a 3c 50 3e |ode}">.<|BR>..<P>|
|00000830| 0a 48 65 72 65 2c 20 74 | 68 65 20 3c 54 54 3e 53 |.Here, t|he <TT>S|
|00000840| 74 61 63 6b 3c 2f 54 54 | 3e 20 73 74 72 75 63 74 |tack</TT|> struct|
|00000850| 75 72 65 20 69 73 20 75 | 73 65 64 20 74 6f 20 72 |ure is u|sed to r|
|00000860| 65 70 72 65 73 65 6e 74 | 20 61 20 73 74 61 63 6b |epresent| a stack|
|00000870| 2e 20 54 68 69 73 0a 73 | 74 72 75 63 74 75 72 65 |. This.s|tructure|
|00000880| 20 63 6f 6e 74 61 69 6e | 73 20 74 77 6f 20 66 69 | contain|s two fi|
|00000890| 65 6c 64 73 3a 20 3c 54 | 54 3e 6c 65 6e 3c 2f 54 |elds: <T|T>len</T|
|000008a0| 54 3e 20 61 6e 64 20 3c | 54 54 3e 76 61 6c 75 65 |T> and <|TT>value|
|000008b0| 73 3c 2f 54 54 3e 2e 20 | 53 69 6e 63 65 20 74 68 |s</TT>. |Since th|
|000008c0| 65 20 6c 61 74 74 65 72 | 0a 66 69 65 6c 64 20 69 |e latter|.field i|
|000008d0| 73 20 61 20 3c 54 54 3e | 53 43 4d 3c 2f 54 54 3e |s a <TT>|SCM</TT>|
|000008e0| 20 6f 62 6a 65 63 74 2c | 20 69 74 20 6d 75 73 74 | object,| it must|
|000008f0| 20 62 65 20 72 65 63 75 | 72 73 69 76 65 6c 79 20 | be recu|rsively |
|00000900| 6d 61 72 6b 65 64 20 77 | 68 65 6e 20 61 0a 73 74 |marked w|hen a.st|
|00000910| 61 63 6b 20 69 73 20 6d | 61 72 6b 65 64 2e 20 57 |ack is m|arked. W|
|00000920| 65 20 63 61 6e 20 6e 6f | 77 20 64 65 66 69 6e 65 |e can no|w define|
|00000930| 20 74 68 65 20 75 74 69 | 6c 69 74 79 20 66 75 6e | the uti|lity fun|
|00000940| 63 74 69 6f 6e 20 6e 65 | 63 65 73 73 61 72 79 20 |ction ne|cessary |
|00000950| 66 6f 72 0a 74 68 65 20 | 47 43 3a 0a 3c 42 52 3e |for.the |GC:.<BR>|
|00000960| 0a 3c 49 4d 47 0a 20 20 | 53 54 59 4c 45 3d 22 22 |.<IMG.  |STYLE=""|
|00000970| 20 53 52 43 3d 22 69 6d | 67 32 36 2e 70 6e 67 22 | SRC="im|g26.png"|
|00000980| 0a 20 41 4c 54 3d 22 5c | 62 65 67 69 6e 7b 43 6f |. ALT="\|begin{Co|
|00000990| 64 65 7d 0a 5c 62 65 67 | 69 6e 7b 6c 69 73 74 69 |de}.\beg|in{listi|
|000009a0| 6e 67 7d 5b 32 30 30 5d | 7b 32 7d 0a 73 74 61 74 |ng}[200]|{2}.stat|
|000009b0| 69 63 20 76 6f 69 64 20 | 6d 61 72 6b 5f 73 74 61 |ic void |mark_sta|
|000009c0| 63 6b 28 53 43 4d 20 70 | 29 0a 7b 0a 53 54 6b 5f |ck(SCM p|).{.STk_|
|000009d0| 67 63 5f 6d 61 72 2e 2e | 2e 0a 2e 2e 2e 70 61 72 |gc_mar..|.....par|
|000009e0| 0a 73 74 61 74 69 63 20 | 76 6f 69 64 20 66 72 65 |.static |void fre|
|000009f0| 65 5f 73 74 61 63 6b 28 | 53 43 4d 20 70 29 0a 7b |e_stack(|SCM p).{|
|00000a00| 0a 66 72 65 65 28 45 58 | 54 44 41 54 41 28 70 29 |.free(EX|TDATA(p)|
|00000a10| 29 3b 0a 7d 0a 5c 65 6e | 64 7b 6c 69 73 74 69 6e |);.}.\en|d{listin|
|00000a20| 67 7d 5c 65 6e 64 7b 43 | 6f 64 65 7d 22 3e 0a 3c |g}\end{C|ode}">.<|
|00000a30| 42 52 3e 0a 0a 3c 50 3e | 0a 54 6f 20 74 65 72 6d |BR>..<P>|.To term|
|00000a40| 69 6e 61 74 65 20 77 69 | 74 68 20 74 68 69 73 20 |inate wi|th this |
|00000a50| 65 78 61 6d 70 6c 65 2c | 20 77 65 20 67 69 76 65 |example,| we give|
|00000a60| 20 62 65 6c 6f 77 20 74 | 68 65 20 63 6f 64 65 20 | below t|he code |
|00000a70| 6f 66 20 74 68 65 20 70 | 72 69 6d 69 74 69 76 65 |of the p|rimitive|
|00000a80| 20 0a 3c 54 54 3e 73 74 | 61 63 6b 5f 70 75 73 68 | .<TT>st|ack_push|
|00000a90| 21 3c 2f 54 54 3e 2e 20 | 4f 74 68 65 72 20 70 72 |!</TT>. |Other pr|
|00000aa0| 69 6d 69 74 69 76 65 20 | 61 72 65 20 62 75 69 6c |imitive |are buil|
|00000ab0| 74 20 69 6e 20 74 68 65 | 20 73 61 6d 65 20 66 61 |t in the| same fa|
|00000ac0| 73 68 69 6f 6e 20 61 6e | 64 0a 77 69 6c 6c 20 6e |shion an|d.will n|
|00000ad0| 6f 74 20 62 65 20 64 65 | 73 63 72 69 62 65 64 20 |ot be de|scribed |
|00000ae0| 68 65 72 65 2e 20 41 20 | 63 6f 6d 70 6c 65 74 65 |here. A |complete|
|00000af0| 20 6c 69 73 74 69 6e 67 | 20 6f 66 20 74 68 65 20 | listing| of the |
|00000b00| 73 74 61 63 6b 0a 69 6d | 70 6c 65 6d 65 6e 74 61 |stack.im|plementa|
|00000b10| 74 69 6f 6e 20 69 73 20 | 67 69 76 65 6e 20 69 6e |tion is |given in|
|00000b20| 20 61 70 70 65 6e 64 69 | 78 2e 0a 3c 42 52 3e 0a | appendi|x..<BR>.|
|00000b30| 3c 49 4d 47 0a 20 20 53 | 54 59 4c 45 3d 22 22 20 |<IMG.  S|TYLE="" |
|00000b40| 53 52 43 3d 22 69 6d 67 | 32 37 2e 70 6e 67 22 0a |SRC="img|27.png".|
|00000b50| 20 41 4c 54 3d 22 5c 62 | 65 67 69 6e 7b 43 6f 64 | ALT="\b|egin{Cod|
|00000b60| 65 7d 0a 5c 62 65 67 69 | 6e 7b 6c 69 73 74 69 6e |e}.\begi|n{listin|
|00000b70| 67 7d 5b 32 30 30 5d 7b | 32 7d 0a 73 74 61 74 69 |g}[200]{|2}.stati|
|00000b80| 63 20 50 52 49 4d 49 54 | 49 56 45 20 73 74 61 63 |c PRIMIT|IVE stac|
|00000b90| 6b 5f 70 75 73 68 28 53 | 43 4d 20 73 2c 20 53 43 |k_push(S|CM s, SC|
|00000ba0| 4d 20 76 61 6c 29 2e 2e | 2e 0a 2e 2e 2e 76 61 6c |M val)..|.....val|
|00000bb0| 75 65 73 20 3d 20 43 6f | 6e 73 28 76 61 6c 2c 20 |ues = Co|ns(val, |
|00000bc0| 73 70 2d 26 67 74 3b 76 | 61 6c 75 65 73 29 3b 0a |sp-&gt;v|alues);.|
|00000bd0| 5c 70 61 72 0a 72 65 74 | 75 72 6e 20 55 4e 44 45 |\par.ret|urn UNDE|
|00000be0| 46 49 4e 45 44 3b 0a 7d | 0a 5c 65 6e 64 7b 6c 69 |FINED;.}|.\end{li|
|00000bf0| 73 74 69 6e 67 7d 5c 65 | 6e 64 7b 43 6f 64 65 7d |sting}\e|nd{Code}|
|00000c00| 22 3e 0a 3c 42 52 3e 0a | 0a 3c 50 3e 0a 0a 3c 48 |">.<BR>.|.<P>..<H|
|00000c10| 52 3e 0a 0a 3c 2f 42 4f | 44 59 3e 0a 3c 2f 48 54 |R>..</BO|DY>.</HT|
|00000c20| 4d 4c 3e 0a             |                         |ML>.    |        |
+--------+-------------------------+-------------------------+--------+--------+