home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / geneva / pcscheme.exe / SAMPLES / READER.SW < prev    next >
LaTeX Document  |  1992-12-09  |  1.6 KB

open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: LaTeX Document (document/latex).

ConfidenceProgramDetectionMatch TypeSupport
100% dexvert LaTeX Document (document/latex) magic Supported
1% dexvert Text File (text/txt) fallback Supported
100% file LaTeX document text default
99% file LaTeX document, ASCII text, with CRLF line terminators default
100% checkBytes Printable ASCII default
100% perlTextCheck Likely Text (Perl) default
100% siegfried fmt/281 LaTeX (Subdocument) default
100% detectItEasy Format: plain text[CRLF] default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 5c 64 6f 63 75 6d 65 6e | 74 73 74 79 6c 65 5b 61 |\documen|tstyle[a|
|00000010| 73 74 79 70 65 64 5d 7b | 61 72 74 69 63 6c 65 7d |styped]{|article}|
|00000020| 0d 0a 25 20 24 48 65 61 | 64 65 72 3a 20 72 65 61 |..% $Hea|der: rea|
|00000030| 64 65 72 2e 73 77 2c 76 | 20 31 2e 31 20 39 30 2f |der.sw,v| 1.1 90/|
|00000040| 30 37 2f 31 32 20 30 38 | 3a 35 37 3a 33 36 20 72 |07/12 08|:57:36 r|
|00000050| 61 6d 73 64 65 6c 6c 20 | 45 78 70 20 24 0d 0a 5c |amsdell |Exp $..\|
|00000060| 74 69 74 6c 65 7b 7b 5c | 74 74 20 72 65 61 64 2d |title{{\|tt read-|
|00000070| 73 77 7d 7d 0d 0a 5c 61 | 75 74 68 6f 72 7b 4a 6f |sw}}..\a|uthor{Jo|
|00000080| 68 6e 20 44 2e 20 52 61 | 6d 73 64 65 6c 6c 7d 0d |hn D. Ra|msdell}.|
|00000090| 0a 5c 64 61 74 65 7b 5c | 76 65 72 62 24 44 61 74 |.\date{\|verb$Dat|
|000000a0| 65 3a 20 39 30 2f 30 37 | 2f 31 32 20 30 38 3a 35 |e: 90/07|/12 08:5|
|000000b0| 37 3a 33 36 20 24 7d 0d | 0a 0d 0a 5c 6e 65 77 63 |7:36 $}.|...\newc|
|000000c0| 6f 6d 6d 61 6e 64 7b 5c | 57 45 42 7d 7b 7b 5c 74 |ommand{\|WEB}{{\t|
|000000d0| 74 20 57 45 42 7d 7d 0d | 0a 0d 0a 5c 62 65 67 69 |t WEB}}.|...\begi|
|000000e0| 6e 7b 64 6f 63 75 6d 65 | 6e 74 7d 0d 0a 0d 0a 5c |n{docume|nt}....\|
|000000f0| 6d 61 6b 65 74 69 74 6c | 65 0d 0a 0d 0a 5c 76 65 |maketitl|e....\ve|
|00000100| 72 62 3b 72 65 61 64 2d | 73 77 3b 20 63 6f 6e 76 |rb;read-|sw; conv|
|00000110| 65 72 74 73 20 53 63 68 | 65 6d 65 5c 57 45 42 7b |erts Sch|eme\WEB{|
|00000120| 7d 20 72 65 70 72 65 73 | 65 6e 74 61 74 69 6f 6e |} repres|entation|
|00000130| 73 20 6f 66 20 53 63 68 | 65 6d 65 20 6f 62 6a 65 |s of Sch|eme obje|
|00000140| 63 74 73 0d 0a 69 6e 74 | 6f 20 74 68 65 20 6f 62 |cts..int|o the ob|
|00000150| 6a 65 63 74 73 20 74 68 | 65 6d 73 65 6c 76 65 73 |jects th|emselves|
|00000160| 20 6d 75 63 68 20 61 73 | 20 5c 76 65 72 62 3b 72 | much as| \verb;r|
|00000170| 65 61 64 3b 20 64 6f 65 | 73 2e 20 20 0d 0a 28 64 |ead; doe|s. ..(d|
|00000180| 65 66 69 6e 65 20 28 72 | 65 61 64 2d 73 77 20 2e |efine (r|ead-sw .|
|00000190| 20 72 65 73 74 29 09 09 | 3b 20 52 65 74 75 72 6e | rest)..|; Return|
|000001a0| 73 20 77 68 61 74 20 5c | 76 65 72 62 3b 72 65 61 |s what \|verb;rea|
|000001b0| 64 3b 20 72 65 74 75 72 | 6e 73 2e 0d 0a 20 20 28 |d; retur|ns... (|
|000001c0| 6c 65 74 20 28 28 70 6f | 72 74 20 28 69 66 20 28 |let ((po|rt (if (|
|000001d0| 70 61 69 72 3f 20 72 65 | 73 74 29 09 09 3b 20 5c |pair? re|st)..; \|
|000001e0| 76 65 72 62 3b 72 65 61 | 64 2d 73 77 3b 20 61 72 |verb;rea|d-sw; ar|
|000001f0| 67 75 6d 65 6e 74 73 20 | 61 72 65 0d 0a 09 09 20 |guments |are.... |
|00000200| 20 28 63 61 72 20 72 65 | 73 74 29 09 09 3b 20 74 | (car re|st)..; t|
|00000210| 68 65 20 73 61 6d 65 20 | 61 73 20 5c 76 65 72 62 |he same |as \verb|
|00000220| 3b 72 65 61 64 3b 27 73 | 2e 0d 0a 09 09 20 20 28 |;read;'s|..... (|
|00000230| 63 75 72 72 65 6e 74 2d | 69 6e 70 75 74 2d 70 6f |current-|input-po|
|00000240| 72 74 29 29 29 29 0d 0a | 20 20 20 20 28 6c 65 74 |rt))))..| (let|
|00000250| 72 65 63 09 09 09 09 0d | 0a 09 28 28 74 65 78 74 |rec.....|..((text|
|00000260| 2d 6d 6f 64 65 2d 61 6e | 64 2d 73 61 77 2d 6e 65 |-mode-an|d-saw-ne|
|00000270| 77 6c 69 6e 65 09 3b 20 | 4c 69 6e 65 73 20 6f 66 |wline.; |Lines of|
|00000280| 20 61 20 53 63 68 65 6d | 65 5c 57 45 42 7b 7d 20 | a Schem|e\WEB{} |
|00000290| 66 69 6c 65 0d 0a 09 20 | 20 28 6c 61 6d 62 64 61 |file... | (lambda|
|000002a0| 20 28 29 09 09 09 3b 20 | 62 65 67 69 6e 6e 69 6e | ()...; |beginnin|
|000002b0| 67 20 77 69 74 68 20 60 | 60 7b 5c 74 74 28 7d 27 |g with `|`{\tt(}'|
|000002c0| 27 2c 20 0d 0a 09 20 20 | 20 20 28 6c 65 74 20 28 |', ... | (let (|
|000002d0| 28 63 68 20 28 70 65 65 | 6b 2d 63 68 61 72 20 70 |(ch (pee|k-char p|
|000002e0| 6f 72 74 29 29 29 20 3b | 20 73 74 61 72 74 20 61 |ort))) ;| start a|
|000002f0| 20 63 6f 64 65 20 73 65 | 63 74 69 6f 6e 2e 0d 0a | code se|ction...|
|00000300| 09 20 20 20 20 20 20 28 | 63 6f 6e 64 20 28 28 65 |. (|cond ((e|
|00000310| 6f 66 2d 6f 62 6a 65 63 | 74 3f 20 63 68 29 20 63 |of-objec|t? ch) c|
|00000320| 68 29 0d 0a 09 09 20 20 | 20 20 28 28 63 68 61 72 |h).... | ((char|
|00000330| 3d 3f 20 63 68 20 23 5c | 28 29 09 3b 20 49 66 20 |=? ch #\|().; If |
|00000340| 63 6f 64 65 20 73 65 63 | 74 69 6f 6e 2c 20 74 68 |code sec|tion, th|
|00000350| 65 6e 20 75 73 65 0d 0a | 09 09 20 20 20 20 20 28 |en use..|.. (|
|00000360| 67 6f 74 2d 63 6f 64 65 | 20 28 72 65 61 64 20 70 |got-code| (read p|
|00000370| 6f 72 74 29 29 29 20 3b | 20 5c 76 65 72 62 3b 72 |ort))) ;| \verb;r|
|00000380| 65 61 64 3b 20 74 6f 20 | 67 65 74 20 63 6f 64 65 |ead; to |get code|
|00000390| 2c 0d 0a 09 09 20 20 20 | 20 28 65 6c 73 65 09 09 |,.... | (else..|
|000003a0| 3b 20 65 6c 73 65 20 73 | 6b 69 70 20 74 68 69 73 |; else s|kip this|
|000003b0| 20 6c 69 6e 65 20 61 73 | 20 69 74 0d 0a 09 09 20 | line as| it.... |
|000003c0| 20 20 20 20 28 74 65 78 | 74 2d 6d 6f 64 65 2d 77 | (tex|t-mode-w|
|000003d0| 69 74 68 69 6e 2d 61 2d | 6c 69 6e 65 29 29 29 29 |ithin-a-|line))))|
|000003e0| 29 29 20 3b 20 69 73 20 | 61 20 63 6f 6d 6d 65 6e |)) ; is |a commen|
|000003f0| 74 2e 0d 0a 09 20 28 74 | 65 78 74 2d 6d 6f 64 65 |t.... (t|ext-mode|
|00000400| 2d 77 69 74 68 69 6e 2d | 61 2d 6c 69 6e 65 0d 0a |-within-|a-line..|
|00000410| 09 20 20 28 6c 61 6d 62 | 64 61 20 28 29 09 09 09 |. (lamb|da ()...|
|00000420| 3b 20 49 67 6e 6f 72 65 | 20 63 6f 6d 6d 65 6e 74 |; Ignore| comment|
|00000430| 73 2e 0d 0a 09 20 20 20 | 20 28 6c 65 74 20 28 28 |s.... | (let ((|
|00000440| 63 68 20 28 72 65 61 64 | 2d 63 68 61 72 20 70 6f |ch (read|-char po|
|00000450| 72 74 29 29 29 0d 0a 09 | 20 20 20 20 20 20 28 63 |rt)))...| (c|
|00000460| 6f 6e 64 20 28 28 65 6f | 66 2d 6f 62 6a 65 63 74 |ond ((eo|f-object|
|00000470| 3f 20 63 68 29 20 63 68 | 29 0d 0a 09 09 20 20 20 |? ch) ch|).... |
|00000480| 20 28 28 63 68 61 72 3d | 3f 20 63 68 20 23 5c 6e | ((char=|? ch #\n|
|00000490| 65 77 6c 69 6e 65 29 0d | 0a 09 09 20 20 20 20 20 |ewline).|... |
|000004a0| 28 74 65 78 74 2d 6d 6f | 64 65 2d 61 6e 64 2d 73 |(text-mo|de-and-s|
|000004b0| 61 77 2d 6e 65 77 6c 69 | 6e 65 29 29 0d 0a 09 09 |aw-newli|ne))....|
|000004c0| 20 20 20 20 28 65 6c 73 | 65 20 28 74 65 78 74 2d | (els|e (text-|
|000004d0| 6d 6f 64 65 2d 77 69 74 | 68 69 6e 2d 61 2d 6c 69 |mode-wit|hin-a-li|
|000004e0| 6e 65 29 29 29 29 29 29 | 0d 0a 09 20 28 67 6f 74 |ne))))))|... (got|
|000004f0| 2d 63 6f 64 65 0d 0a 09 | 20 20 28 6c 61 6d 62 64 |-code...| (lambd|
|00000500| 61 20 28 63 6f 64 65 29 | 09 09 3b 20 49 67 6e 6f |a (code)|..; Igno|
|00000510| 72 65 20 74 68 65 20 72 | 65 6d 61 69 6e 64 65 72 |re the r|emainder|
|00000520| 20 6f 66 20 74 68 65 20 | 0d 0a 09 20 20 20 20 28 | of the |... (|
|00000530| 6c 65 74 20 28 28 63 68 | 20 28 72 65 61 64 2d 63 |let ((ch| (read-c|
|00000540| 68 61 72 20 70 6f 72 74 | 29 29 29 20 3b 20 6c 61 |har port|))) ; la|
|00000550| 73 74 20 63 6f 64 65 20 | 6c 69 6e 65 20 61 6e 64 |st code |line and|
|00000560| 20 72 65 74 75 72 6e 0d | 0a 09 20 20 20 20 20 20 | return.|.. |
|00000570| 28 63 6f 6e 64 20 28 28 | 65 6f 66 2d 6f 62 6a 65 |(cond ((|eof-obje|
|00000580| 63 74 3f 20 63 68 29 20 | 63 6f 64 65 29 20 3b 20 |ct? ch) |code) ; |
|00000590| 20 74 68 65 20 72 65 73 | 75 6c 74 73 20 6f 66 20 | the res|ults of |
|000005a0| 5c 76 65 72 62 3b 72 65 | 61 64 3b 2e 0d 0a 09 09 |\verb;re|ad;.....|
|000005b0| 20 20 20 20 28 28 63 68 | 61 72 3d 3f 20 63 68 20 | ((ch|ar=? ch |
|000005c0| 23 5c 6e 65 77 6c 69 6e | 65 29 0d 0a 09 09 20 20 |#\newlin|e).... |
|000005d0| 20 20 20 63 6f 64 65 29 | 0d 0a 09 09 20 20 20 20 | code)|.... |
|000005e0| 28 65 6c 73 65 20 28 67 | 6f 74 2d 63 6f 64 65 20 |(else (g|ot-code |
|000005f0| 63 6f 64 65 29 29 29 29 | 29 29 29 0d 0a 20 20 20 |code))))|))).. |
|00000600| 20 28 74 65 78 74 2d 6d | 6f 64 65 2d 61 6e 64 2d | (text-m|ode-and-|
|00000610| 73 61 77 2d 6e 65 77 6c | 69 6e 65 29 09 09 3b 20 |saw-newl|ine)..; |
|00000620| 53 74 61 72 74 20 62 79 | 20 6c 6f 6f 6b 69 6e 67 |Start by| looking|
|00000630| 20 0d 0a 20 20 20 20 29 | 29 29 09 09 09 09 09 3b | .. )|)).....;|
|00000640| 20 66 6f 72 20 61 20 63 | 6f 64 65 20 6c 69 6e 65 | for a c|ode line|
|00000650| 2e 0d 0a 5c 65 6e 64 7b | 64 6f 63 75 6d 65 6e 74 |...\end{|document|
|00000660| 7d 0d 0a | |}.. | |
+--------+-------------------------+-------------------------+--------+--------+