/ 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 / node4_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 41 20 | 73 69 6d 70 6c 65 20 65 |ts of A |simple e|
|000000b0| 78 61 6d 70 6c 65 3c 2f | 54 49 54 4c 45 3e 0a 0a |xample</|TITLE>..|
|000000c0| 3c 4d 45 54 41 20 48 54 | 54 50 2d 45 51 55 49 56 |<META HT|TP-EQUIV|
|000000d0| 3d 22 43 6f 6e 74 65 6e | 74 2d 54 79 70 65 22 20 |="Conten|t-Type" |
|000000e0| 43 4f 4e 54 45 4e 54 3d | 22 74 65 78 74 2f 68 74 |CONTENT=|"text/ht|
|000000f0| 6d 6c 3b 20 63 68 61 72 | 73 65 74 3d 75 74 66 2d |ml; char|set=utf-|
|00000100| 38 22 3e 0a 3c 4d 45 54 | 41 20 4e 41 4d 45 3d 22 |8">.<MET|A NAME="|
|00000110| 76 69 65 77 70 6f 72 74 | 22 20 43 4f 4e 54 45 4e |viewport|" CONTEN|
|00000120| 54 3d 22 77 69 64 74 68 | 3d 64 65 76 69 63 65 2d |T="width|=device-|
|00000130| 77 69 64 74 68 2c 20 69 | 6e 69 74 69 61 6c 2d 73 |width, i|nitial-s|
|00000140| 63 61 6c 65 3d 31 2e 30 | 22 3e 0a 3c 4d 45 54 41 |cale=1.0|">.<META|
|00000150| 20 4e 41 4d 45 3d 22 47 | 65 6e 65 72 61 74 6f 72 | NAME="G|enerator|
|00000160| 22 20 43 4f 4e 54 45 4e | 54 3d 22 4c 61 54 65 58 |" CONTEN|T="LaTeX|
|00000170| 32 48 54 4d 4c 20 76 32 | 30 32 32 22 3e 0a 0a 3c |2HTML v2|022">..<|
|00000180| 4c 49 4e 4b 20 52 45 4c | 3d 22 53 54 59 4c 45 53 |LINK REL|="STYLES|
|00000190| 48 45 45 54 22 20 48 52 | 45 46 3d 22 45 78 74 65 |HEET" HR|EF="Exte|
|000001a0| 6e 64 69 6e 67 2e 63 73 | 73 22 3e 0a 0a 3c 4c 49 |nding.cs|s">..<LI|
|000001b0| 4e 4b 20 52 45 4c 3d 22 | 6e 65 78 74 22 20 48 52 |NK REL="|next" HR|
|000001c0| 45 46 3d 22 6e 6f 64 65 | 37 5f 6d 6e 2e 68 74 6d |EF="node|7_mn.htm|
|000001d0| 6c 22 3e 0a 3c 4c 49 4e | 4b 20 52 45 4c 3d 22 70 |l">.<LIN|K REL="p|
|000001e0| 72 65 76 69 6f 75 73 22 | 20 48 52 45 46 3d 22 6e |revious"| HREF="n|
|000001f0| 6f 64 65 33 5f 6d 6e 2e | 68 74 6d 6c 22 3e 0a 3c |ode3_mn.|html">.<|
|00000200| 4c 49 4e 4b 20 52 45 4c | 3d 22 75 70 22 20 48 52 |LINK REL|="up" HR|
|00000210| 45 46 3d 22 6e 6f 64 65 | 33 5f 6d 6e 2e 68 74 6d |EF="node|3_mn.htm|
|00000220| 6c 22 3e 0a 3c 4c 49 4e | 4b 20 52 45 4c 3d 22 6e |l">.<LIN|K REL="n|
|00000230| 65 78 74 22 20 48 52 45 | 46 3d 22 6e 6f 64 65 35 |ext" HRE|F="node5|
|00000240| 5f 6d 6e 2e 68 74 6d 6c | 22 3e 0a 3c 2f 48 45 41 |_mn.html|">.</HEA|
|00000250| 44 3e 0a 20 0a 3c 42 4f | 44 59 20 62 67 63 6f 6c |D>. .<BO|DY bgcol|
|00000260| 6f 72 3d 22 23 66 66 66 | 66 66 66 22 20 74 65 78 |or="#fff|fff" tex|
|00000270| 74 3d 22 23 30 30 30 30 | 30 30 22 20 6c 69 6e 6b |t="#0000|00" link|
|00000280| 3d 22 23 39 39 34 34 45 | 45 22 20 76 6c 69 6e 6b |="#9944E|E" vlink|
|00000290| 3d 22 23 30 30 30 30 66 | 66 22 20 61 6c 69 6e 6b |="#0000f|f" alink|
|000002a0| 3d 22 23 30 30 66 66 30 | 30 22 3e 0a 0a 3c 48 32 |="#00ff0|0">..<H2|
|000002b0| 3e 3c 41 20 49 44 3d 22 | 53 45 43 54 49 4f 4e 30 |><A ID="|SECTION0|
|000002c0| 30 30 33 31 30 30 30 30 | 30 30 30 30 30 30 30 30 |00310000|00000000|
|000002d0| 30 30 30 22 3e 0a 41 20 | 73 69 6d 70 6c 65 20 65 |000">.A |simple e|
|000002e0| 78 61 6d 70 6c 65 3c 2f | 41 3e 0a 3c 2f 48 32 3e |xample</|A>.</H2>|
|000002f0| 0a 0a 3c 50 3e 0a 3c 41 | 20 49 44 3d 22 73 69 6d |..<P>.<A| ID="sim|
|00000300| 70 6c 65 2d 65 78 61 6d | 70 6c 65 22 3e 3c 2f 41 |ple-exam|ple"></A|
|00000310| 3e 4f 6e 65 20 6f 66 20 | 74 68 65 20 73 69 6d 70 |>One of |the simp|
|00000320| 6c 65 72 20 65 78 74 65 | 6e 73 69 6f 6e 20 6f 6e |ler exte|nsion on|
|00000330| 65 20 63 61 6e 20 77 69 | 73 68 20 74 6f 20 64 6f |e can wi|sh to do|
|00000340| 20 63 6f 6e 73 69 73 74 | 73 20 74 6f 20 61 64 64 | consist|s to add|
|00000350| 20 6e 65 77 0a 70 72 69 | 6d 69 74 69 76 65 73 20 | new.pri|mitives |
|00000360| 70 72 6f 63 65 64 75 72 | 65 73 20 74 6f 20 74 68 |procedur|es to th|
|00000370| 65 20 69 6e 74 65 72 70 | 72 65 74 65 72 2e 20 54 |e interp|reter. T|
|00000380| 6f 20 69 6c 6c 75 73 74 | 72 61 74 65 20 74 68 69 |o illust|rate thi|
|00000390| 73 2c 20 73 75 70 70 6f | 73 65 0a 77 65 20 77 61 |s, suppo|se.we wa|
|000003a0| 6e 74 20 74 6f 20 61 64 | 64 20 74 77 6f 20 6e 65 |nt to ad|d two ne|
|000003b0| 77 20 70 72 69 6d 69 74 | 69 76 65 73 20 74 6f 20 |w primit|ives to |
|000003c0| 74 68 65 20 69 6e 74 65 | 72 70 72 65 74 65 72 3a |the inte|rpreter:|
|000003d0| 20 3c 54 54 3e 70 6f 73 | 69 78 2d 74 69 6d 65 3c | <TT>pos|ix-time<|
|000003e0| 2f 54 54 3e 0a 61 6e 64 | 20 3c 54 54 3e 70 6f 73 |/TT>.and| <TT>pos|
|000003f0| 69 78 2d 63 74 69 6d 65 | 3c 2f 54 54 3e 2e 20 20 |ix-ctime|</TT>.  |
|00000400| 54 68 65 20 66 6f 72 6d | 65 72 20 66 75 6e 63 74 |The form|er funct|
|00000410| 69 6f 6e 20 63 6f 72 72 | 65 73 70 6f 6e 64 20 74 |ion corr|espond t|
|00000420| 6f 20 74 68 65 0a 50 4f | 53 49 58 2e 31 5b 23 21 |o the.PO|SIX.1[#!|
|00000430| 50 4f 53 49 58 2e 31 2d | 39 30 21 23 5d 20 66 75 |POSIX.1-|90!#] fu|
|00000440| 6e 63 74 69 6f 6e 20 3c | 54 54 3e 74 69 6d 65 3c |nction <|TT>time<|
|00000450| 2f 54 54 3e 3a 20 69 74 | 20 72 65 74 75 72 6e 73 |/TT>: it| returns|
|00000460| 20 74 68 65 20 6e 75 6d | 62 65 72 0a 6f 66 20 73 | the num|ber.of s|
|00000470| 65 63 6f 6e 64 73 20 65 | 6c 61 70 73 65 64 20 73 |econds e|lapsed s|
|00000480| 69 6e 63 65 20 30 30 3a | 30 30 3a 30 30 20 6f 6e |ince 00:|00:00 on|
|00000490| 20 4a 61 6e 75 61 72 79 | 20 31 2c 20 31 39 37 30 | January| 1, 1970|
|000004a0| 2c 20 43 6f 6f 72 64 69 | 6e 61 74 65 64 0a 55 6e |, Coordi|nated.Un|
|000004b0| 69 76 65 72 73 61 6c 20 | 54 69 6d 65 20 28 55 54 |iversal |Time (UT|
|000004c0| 43 29 2e 20 20 54 68 65 | 20 6c 61 74 74 65 72 20 |C).  The| latter |
|000004d0| 69 73 20 61 20 77 72 61 | 70 70 65 72 20 61 72 6f |is a wra|pper aro|
|000004e0| 75 6e 64 20 74 68 65 20 | 50 4f 53 49 58 2e 31 0a |und the |POSIX.1.|
|000004f0| 66 75 6e 63 74 69 6f 6e | 20 3c 54 54 3e 63 74 69 |function| <TT>cti|
|00000500| 6d 65 3c 2f 54 54 3e 20 | 77 68 69 63 68 20 72 65 |me</TT> |which re|
|00000510| 74 75 72 6e 73 20 61 20 | 73 74 72 69 6e 67 20 63 |turns a |string c|
|00000520| 6f 6e 74 61 69 6e 69 6e | 67 20 74 68 65 20 63 75 |ontainin|g the cu|
|00000530| 72 72 65 6e 74 0a 74 69 | 6d 65 20 69 6e 20 61 6e |rrent.ti|me in an|
|00000540| 20 68 75 6d 61 6e 20 72 | 65 61 64 61 62 6c 65 20 | human r|eadable |
|00000550| 66 6f 72 6d 61 74 2e 0a | 0a 3c 50 3e 0a 46 69 72 |format..|.<P>.Fir|
|00000560| 73 74 2c 20 77 65 20 77 | 69 6c 6c 20 73 65 65 20 |st, we w|ill see |
|00000570| 68 6f 77 20 74 6f 20 77 | 72 69 74 65 20 74 68 65 |how to w|rite the|
|00000580| 20 6e 65 77 20 53 63 68 | 65 6d 65 20 70 72 69 6d | new Sch|eme prim|
|00000590| 69 74 69 76 65 20 3c 54 | 54 3e 70 6f 73 69 78 2d |itive <T|T>posix-|
|000005a0| 74 69 6d 65 3c 2f 54 54 | 3e 2e 0a 49 6d 70 6c 65 |time</TT|>..Imple|
|000005b0| 6d 65 6e 74 69 6e 67 20 | 61 20 6e 65 77 20 70 72 |menting |a new pr|
|000005c0| 69 6d 69 74 69 76 65 20 | 72 65 71 75 69 72 65 73 |imitive |requires|
|000005d0| 20 74 6f 20 77 72 69 74 | 65 20 61 20 6e 65 77 20 | to writ|e a new |
|000005e0| 43 20 66 75 6e 63 74 69 | 6f 6e 20 77 68 69 63 68 |C functi|on which|
|000005f0| 20 77 69 6c 6c 20 64 6f | 0a 74 68 65 20 77 6f 72 | will do|.the wor|
|00000600| 6b 2e 20 48 65 72 65 2c | 20 77 65 20 77 72 69 74 |k. Here,| we writ|
|00000610| 65 20 74 68 65 20 43 20 | 66 75 6e 63 74 69 6f 6e |e the C |function|
|00000620| 20 3c 54 54 3e 70 6f 73 | 69 78 5f 74 69 6d 65 3c | <TT>pos|ix_time<|
|00000630| 2f 54 54 3e 20 74 6f 20 | 69 6d 70 6c 65 6d 65 6e |/TT> to |implemen|
|00000640| 74 20 74 68 65 0a 53 63 | 68 65 6d 65 20 70 72 69 |t the.Sc|heme pri|
|00000650| 6d 69 74 69 76 65 20 3c | 54 54 3e 70 6f 73 69 78 |mitive <|TT>posix|
|00000660| 2d 74 69 6d 65 3c 2f 54 | 54 3e 2e 20 54 68 65 20 |-time</T|T>. The |
|00000670| 63 6f 64 65 20 6f 66 20 | 74 68 69 73 20 66 75 6e |code of |this fun|
|00000680| 63 74 69 6f 6e 20 69 73 | 20 67 69 76 65 6e 20 62 |ction is| given b|
|00000690| 65 6c 6f 77 2e 0a 3c 42 | 52 3e 0a 3c 49 4d 47 0a |elow..<B|R>.<IMG.|
|000006a0| 20 20 53 54 59 4c 45 3d | 22 22 20 53 52 43 3d 22 |  STYLE=|"" SRC="|
|000006b0| 69 6d 67 31 2e 70 6e 67 | 22 0a 20 41 4c 54 3d 22 |img1.png|". ALT="|
|000006c0| 5c 62 65 67 69 6e 7b 43 | 6f 64 65 7d 0a 5c 62 65 |\begin{C|ode}.\be|
|000006d0| 67 69 6e 7b 6c 69 73 74 | 69 6e 67 7d 5b 32 30 30 |gin{list|ing}[200|
|000006e0| 5d 7b 32 7d 0a 73 74 61 | 74 69 63 20 50 52 49 4d |]{2}.sta|tic PRIM|
|000006f0| 49 54 49 56 45 20 70 6f | 73 69 78 5f 74 69 6d 65 |ITIVE po|six_time|
|00000700| 28 76 6f 69 64 29 0a 7b | 0a 72 65 74 75 72 6e 20 |(void).{|.return |
|00000710| 53 54 6b 5f 6d 61 6b 65 | 69 6e 74 65 67 65 72 28 |STk_make|integer(|
|00000720| 28 6c 6f 6e 67 29 20 74 | 69 6d 65 28 4e 55 4c 4c |(long) t|ime(NULL|
|00000730| 29 29 3b 0a 7d 0a 5c 65 | 6e 64 7b 6c 69 73 74 69 |));.}.\e|nd{listi|
|00000740| 6e 67 7d 5c 65 6e 64 7b | 43 6f 64 65 7d 22 3e 0a |ng}\end{|Code}">.|
|00000750| 3c 42 52 3e 0a 54 68 69 | 73 20 66 75 6e 63 74 69 |<BR>.Thi|s functi|
|00000760| 6f 6e 20 75 73 65 73 20 | 74 68 65 20 69 6e 74 65 |on uses |the inte|
|00000770| 72 70 72 65 74 65 72 20 | 53 54 6b 5f 6d 61 6b 65 |rpreter |STk_make|
|00000780| 69 6e 74 65 67 65 72 20 | 66 75 6e 63 74 69 6f 6e |integer |function|
|00000790| 0a 77 68 69 63 68 20 63 | 6f 6e 76 65 72 74 73 20 |.which c|onverts |
|000007a0| 61 20 43 20 6c 6f 6e 67 | 20 69 6e 74 65 67 65 72 |a C long| integer|
|000007b0| 20 74 6f 20 61 20 20 69 | 6e 74 65 67 65 72 2e 20 | to a  i|nteger. |
|000007c0| 4f 6e 63 65 20 74 68 65 | 20 3c 54 54 3e 70 6f 73 |Once the| <TT>pos|
|000007d0| 69 78 5f 74 69 6d 65 3c | 2f 54 54 3e 20 43 20 66 |ix_time<|/TT> C f|
|000007e0| 75 6e 63 74 69 6f 6e 20 | 69 73 20 77 72 69 74 74 |unction |is writt|
|000007f0| 65 6e 2c 20 77 65 20 68 | 61 76 65 20 74 6f 20 62 |en, we h|ave to b|
|00000800| 69 6e 64 20 74 68 69 73 | 20 6e 65 77 20 70 72 69 |ind this| new pri|
|00000810| 6d 69 74 69 76 65 20 74 | 6f 0a 74 68 65 20 53 63 |mitive t|o.the Sc|
|00000820| 68 65 6d 65 20 73 79 6d | 62 6f 6c 20 3c 54 54 3e |heme sym|bol <TT>|
|00000830| 70 6f 73 69 78 2d 74 69 | 6d 65 3c 2f 54 54 3e 2e |posix-ti|me</TT>.|
|00000840| 20 54 68 69 73 20 69 73 | 20 61 63 68 69 65 76 65 | This is| achieve|
|00000850| 64 20 62 79 20 74 68 65 | 20 66 6f 6c 6c 6f 77 69 |d by the| followi|
|00000860| 6e 67 20 43 0a 66 75 6e | 63 74 69 6f 6e 20 63 61 |ng C.fun|ction ca|
|00000870| 6c 6c 2e 0a 3c 42 52 3e | 0a 3c 49 4d 47 0a 20 20 |ll..<BR>|.<IMG.  |
|00000880| 53 54 59 4c 45 3d 22 22 | 20 53 52 43 3d 22 69 6d |STYLE=""| SRC="im|
|00000890| 67 32 2e 70 6e 67 22 0a | 20 41 4c 54 3d 22 5c 62 |g2.png".| ALT="\b|
|000008a0| 65 67 69 6e 7b 43 6f 64 | 65 7d 0a 5c 62 65 67 69 |egin{Cod|e}.\begi|
|000008b0| 6e 7b 6c 69 73 74 69 6e | 67 7d 5b 32 30 30 5d 7b |n{listin|g}[200]{|
|000008c0| 32 7d 0a 53 54 6b 5f 61 | 64 64 5f 6e 65 77 5f 70 |2}.STk_a|dd_new_p|
|000008d0| 72 69 6d 69 74 69 76 65 | 28 27 27 70 6f 73 69 78 |rimitive|(''posix|
|000008e0| 2d 74 69 6d 65 27 27 2c | 20 74 63 5f 73 75 62 72 |-time'',| tc_subr|
|000008f0| 5f 30 2c 20 70 6f 73 69 | 78 5f 74 69 6d 65 29 3b |_0, posi|x_time);|
|00000900| 0a 5c 65 6e 64 7b 6c 69 | 73 74 69 6e 67 7d 5c 65 |.\end{li|sting}\e|
|00000910| 6e 64 7b 43 6f 64 65 7d | 22 3e 0a 3c 42 52 3e 0a |nd{Code}|">.<BR>.|
|00000920| 0a 3c 50 3e 0a 3c 42 52 | 3e 3c 48 52 3e 0a 3c 21 |.<P>.<BR|><HR>.<!|
|00000930| 2d 2d 54 61 62 6c 65 20 | 6f 66 20 43 68 69 6c 64 |--Table |of Child|
|00000940| 2d 4c 69 6e 6b 73 2d 2d | 3e 0a 3c 41 20 49 44 3d |-Links--|>.<A ID=|
|00000950| 22 43 48 49 4c 44 5f 4c | 49 4e 4b 53 22 3e 3c 53 |"CHILD_L|INKS"><S|
|00000960| 54 52 4f 4e 47 3e 53 75 | 62 73 65 63 74 69 6f 6e |TRONG>Su|bsection|
|00000970| 73 3c 2f 53 54 52 4f 4e | 47 3e 3c 2f 41 3e 0a 0a |s</STRON|G></A>..|
|00000980| 3c 55 4c 3e 0a 3c 4c 49 | 3e 3c 55 4c 3e 0a 3c 4c |<UL>.<LI|><UL>.<L|
|00000990| 49 3e 3c 41 20 4e 41 4d | 45 3d 22 74 65 78 32 68 |I><A NAM|E="tex2h|
|000009a0| 74 6d 6c 37 37 22 20 48 | 52 45 46 3d 22 6e 6f 64 |tml77" H|REF="nod|
|000009b0| 65 35 5f 63 74 2e 68 74 | 6d 6c 22 20 54 41 52 47 |e5_ct.ht|ml" TARG|
|000009c0| 45 54 3d 22 63 6f 6e 74 | 65 6e 74 73 22 3e 3c 53 |ET="cont|ents"><S|
|000009d0| 4d 41 4c 4c 3e 4e 6f 74 | 65 3a 3c 2f 53 4d 41 4c |MALL>Not|e:</SMAL|
|000009e0| 4c 3e 3c 2f 41 3e 0a 3c | 4c 49 3e 3c 41 20 4e 41 |L></A>.<|LI><A NA|
|000009f0| 4d 45 3d 22 74 65 78 32 | 68 74 6d 6c 37 38 22 20 |ME="tex2|html78" |
|00000a00| 48 52 45 46 3d 22 6e 6f | 64 65 36 5f 6d 6e 2e 68 |HREF="no|de6_mn.h|
|00000a10| 74 6d 6c 22 20 54 41 52 | 47 45 54 3d 22 6d 61 69 |tml" TAR|GET="mai|
|00000a20| 6e 22 3e 3c 53 4d 41 4c | 4c 3e 4e 6f 74 65 73 3a |n"><SMAL|L>Notes:|
|00000a30| 3c 2f 53 4d 41 4c 4c 3e | 3c 2f 41 3e 0a 3c 2f 55 |</SMALL>|</A>.</U|
|00000a40| 4c 3e 3c 2f 55 4c 3e 0a | 3c 21 2d 2d 45 6e 64 20 |L></UL>.|<!--End |
|00000a50| 6f 66 20 54 61 62 6c 65 | 20 6f 66 20 43 68 69 6c |of Table| of Chil|
|00000a60| 64 2d 4c 69 6e 6b 73 2d | 2d 3e 0a 0a 3c 48 52 3e |d-Links-|->..<HR>|
|00000a70| 0a 0a 3c 2f 42 4f 44 59 | 3e 0a 3c 2f 48 54 4d 4c |..</BODY|>.</HTML|
|00000a80| 3e 0a                   |                         |>.      |        |
+--------+-------------------------+-------------------------+--------+--------+