Mercurial > repo

comparison interps/clc-intercal/CLC-INTERCAL-Docs-1.-94.-2/doc/examples/http-get.si @ 996:859f9b4339e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<Gregor> tar xf egobot.tar.xz
author HackBot
date Sun, 09 Dec 2012 19:30:08 +0000
parents
children
comparison
equal deleted inserted replaced
995:6883f5911eb7 996:859f9b4339e6
1 PLEASE NOTE:
2 THIS IS A SIMPLE HTTP CLIENT; RUN WITH
3
4 sick -lRun http-get.rsi
5
6 OR COMPILE AND RUN WITH:
7
8 sick -lObject http-get.rsi
9 ./http-get.io
10
11 THEN TYPE THE SERVER:PORT ON THE FIRST LINE (MAX 1024 CHARACTERS)
12 AND TYPE THE PATH WITHIN THE SERVER ON THE SECOND LINE (MAX 1024)
13 WAIT FOR THE RESULT
14 FOR EXAMPLE:
15
16 ./http-get.io
17 intercal.freeshell.org:80
18 /index.html
19
20 NO USER SERVICEABLE PARTS BEYOND THIS POINT.
21
22 PLEASE NOTE: READING SERVER:PORT
23 DO ,1 <- #1024
24 DO WRITE IN ,1
25
26 PLEASE NOTE: READING PATH
27 DO ,2 <- #1024
28 DO WRITE IN ,2
29
30 PLEASE NOTE: OPENING HTTP CONNECTION (OR SPLAT)
31 DO :1 <- #117
32 (666) DO .1 <- #6
33
34 PLEASE NOTE: SENDING HTTP REQUEST
35 PLEASE DO ;1 <- #4
36 DO ;1 SUB #1 <- #18
37 DO ;1 SUB #2 <- #247
38 DO ;1 SUB #3 <- #365
39 DO ;1 SUB #4 <- #277
40 PLEASE DO ,3 <- #14
41 DO ,3 SUB #1 <- #91
42 DO ,3 SUB #2 <- #95
43 DO ,3 SUB #3 <- #68
44 DO ,3 SUB #4 <- #84
45 DO ,3 SUB #5 <- #80
46 DO ,3 SUB #6 <- #80
47 DO ,3 SUB #7 <- #86
48 PLEASE DO ,3 SUB #8 <- #91
49 DO ,3 SUB #9 <- #93
50 DO ,3 SUB #10 <- #87
51 DO ,3 SUB #11 <- #92
52 DO ,3 SUB #12 <- #86
53 DO ,3 SUB #13 <- #72
54 DO ,3 SUB #14 <- #66
55 (666) DO .1 <- #7
56 DO READ OUT @1 + ;1 + ,2 + ,3
57 PLEASE DO ,3 <- #4
58 DO ,3 SUB #1 <- #91
59 DO ,3 SUB #2 <- #95
60 DO ,3 SUB #3 <- #72
61 DO ,3 SUB #4 <- #66
62 PLEASE DO ;1 <- #6
63 DO ;1 SUB #1 <- #29
64 DO ;1 SUB #2 <- #1098
65 DO ;1 SUB #3 <- #2574
66 DO ;1 SUB #4 <- #692
67 DO ;1 SUB #5 <- #105
68 DO ;1 SUB #6 <- #213
69 DO READ OUT @1 + ;1 + ,1 + ,3
70 DO READ OUT @1 + ,3
71
72 PLEASE NOTE: GETTING RESULT AND PRINTING IT
73 PLEASE DO ;1 <- #1024
74 PLEASE DO .1 <- #0
75 DO COME FROM .1
76 DO WRITE IN @1 + ;1
77 DO READ OUT @2 + ;1
78 (1) DO .1 <- ';1 SUB #1 ~ ;1 SUB #1' ~ #1
79 PLEASE GIVE UP
80