996
|
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
|