source: trunk/Examples/Others/htmlconv.bf

Last change on this file was 11, checked in by chronos, 12 years ago
  • Added: Some other examples from web.
File size: 6.1 KB
Line 
1
2;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
3 ;this program converts ASCII_characters ae oe ue Ae Oe Ue (german 'umlauts')
4 ;gt lt ss to valid html_code (it's been already tested with bfi)
5 ;(erdalkaraca@t_online_de)
6
7 >++++++++++[>+++++++++++++<-]>++ ae :var02
8 >>++++++++++++[<++++++++++++>-]<++++ oe :var03
9 >>+++++++++++[<+++++++++++>-]<++++++++ ue :var04
10 >>++++++++++++[<++++++++++++>-]<-- Ae :var05
11 >>++++++++++++[<+++++++++++++>-]<--- Oe :var06
12 >>++++++++++++[<+++++++++++++>-]<-- Ue :var07
13 >>++++++++[<++++++++>-]<-- gt :var08
14 >>++++++++[<+++++++>-]<++++ lt :var09
15
16 ;to add more variables_ use elements above 17
17
18 >>>>>>>>>>+++++++++++++++
19 [<+++++++++++++++>-]< ss :var10
20 18
21 <<<<<<<<<
22
23>+10
24 [>,11
25 [ ;IF x == var02 THEN PRINT "&auml;"
26 <<<<<<<<<2[<1+<0+>>-]<[>+<-]
27 >>>>>>>>>>
28 [<<<<<<<<<<1+<0->>>>>>>>>>>11-]
29 <<<<<<<<<<1[>>>>>>>>>>11+<<<<<<<<<<1-]
30 >>>>>>>>>>
31 >12+>13+<<<<<<<<<<<<<0[>>>>>>>>>>>>-<<<<<<<<<<<<0[-]]
32 >>>>>>>>>>>11
33 >12[>>++++++[>++++++<-]>++.
34 <+++++++[>++++++++<-]>+++.
35 <++++[>+++++<-]>.
36 <++[>----<-]>.
37 <+[>-<-]>.
38 <+++++++[>-------<-]>15.[-]+
39 <<13!-<<11[-]
40 >12-
41 ]
42 >13[ ;ELSE IF x == var03 THEN PRINT "&ouml;"
43 <<<<<<<<<<3[<<+<+>>>-]<<1[>>3+<<-]
44 >>>>>>>>>>
45 [<<<<<<<<<<+<0->>>>>>>>>>>11-]
46 <<<<<<<<<<1[>>>>>>>>>>11+<<<<<<<<<<1-]
47 >>>>>>>>>>
48 >12+>>14+<<<<<<<<<<<<<<0[>>>>>>>>>>>>12-<<<<<<<<<<<<0[-]]
49 >>>>>>>>>>>11
50 >12[>>>>16++++++[<++++++>-]<++.
51 >++++++++[<+++++++++>-]<+.
52 >++[<+++>-]<.
53 >++[<---->-]<.
54 >+[<->-]<.
55 >+++++++[<------->-]<15.[-]+
56 <14!-<<<11[-]
57 >12-
58 ]
59 >13-
60 ]
61 >14[ ;ELSE IF x == var04 THEN PRINT "&uuml;"
62 <<<<<<<<<<4[<<<1+<0+>>>>4-]<<<1[>>>+<<<-]
63 >>>>>>>>>>
64 [<<<<<<<<<<+<0->>>>>>>>>>>11-]
65 <<<<<<<<<<[>>>>>>>>>>+<<<<<<<<<<-]
66 >>>>>>>>>>
67 >12+>13+<<<<<<<<<<<<<0[>>>>>>>>>>>>-<<<<<<<<<<<<[-]]
68 >>>>>>>>>>>
69 >12[>>>>16++++++[<++++++>-]<++.
70 >++++++++[<+++++++++>-]<+++++++..
71 >++[<---->-]<.
72 >+[<->-]<.
73 >+++++++[<------->-]<15.[-]+
74 <<13!-<<11[-]
75 >12-
76 ]
77 >>14-
78 ]
79 <13[ ;ELSE IF x == var05 THEN PRINT "&Auml;"
80 <<<<<<<<[<<<<+<+>>>>>-]<<<<[>>>>+<<<<-]
81 >>>>>>>>>>11
82 [<<<<<<<<<<+<0->>>>>>>>>>>11-]
83 <<<<<<<<<<1[>>>>>>>>>>+<<<<<<<<<<-]
84 >>>>>>>>>>
85 >12+>>14+<<<<<<<<<<<<<<[>>>>>>>>>>>>-<<<<<<<<<<<<[-]]
86 >>>>>>>>>>>11
87 >12[>>>>++++++[<++++++>-]<++.
88 >+++++[<+++++>-]<++.
89 >+++++++[<+++++++>-]<+++.
90 >++[<---->-]<.
91 >+[<->-]<.
92 >+++++++[<------->-]<15.[-]+
93 <14!-<<<11[-]
94 >12-
95 ]
96 >13-
97 ]
98 >14[ ;ELSE IF x == var06 THEN PRINT "&Ouml;"
99 <<<<<<<<[<<<<<+<+>>>>>>-]<<<<<[>>>>>+<<<<<-]
100 >>>>>>>>>>
101 [<<<<<<<<<<+<0->>>>>>>>>>>11-]
102 <<<<<<<<<<[>>>>>>>>>>+<<<<<<<<<<-]
103 >>>>>>>>>>
104 >12+>13+<<<<<<<<<<<<<[>>>>>>>>>>>>-<<<<<<<<<<<<[-]]
105 >>>>>>>>>>>11
106 >12[>>>>++++++[<++++++>-]<++.
107 >++++++[<++++++>-]<+++++.
108 >++++++[<++++++>-]<++.
109 >++[<---->-]<.
110 >+[<->-]<.
111 >+++++++[<------->-]<15.[-]+
112 <<13!-<<11[-]
113 >12-
114 ]
115 >>14-
116 ]
117 <13[ ;ELSE IF x == var07 THEN PRINT "&Uuml;"
118 <<<<<<[<<<<<<+<+>>>>>>>-]<<<<<<[>>>>>>+<<<<<<-]
119 >>>>>>>>>>
120 [<<<<<<<<<<+<0->>>>>>>>>>>11-]
121 <<<<<<<<<<[>>>>>>>>>>+<<<<<<<<<<-]
122 >>>>>>>>>>
123 >12+>>14+<<<<<<<<<<<<<<[>>>>>>>>>>>>-<<<<<<<<<<<<[-]]
124 >>>>>>>>>>>11
125 >12[>>>>++++++[<++++++>-]<++.
126 >++++++[<+++++++>-]<+++++.
127 >+++++[<++++++>-]<++.
128 >++[<---->-]<.
129 >+[<->-]<.
130 >+++++++[<------->-]<.[-]+
131 <!-<<<[-]
132 >-
133 ]
134 >13-
135 ]
136 >14[ ;ELSE IF x == var08 THEN PRINT "&gt;"
137 <<<<<<[<<<<<<<+<+>>>>>>>>-]<<<<<<<[>>>>>>>+<<<<<<<-]
138 >>>>>>>>>>
139 [<<<<<<<<<<+<0->>>>>>>>>>>11-]
140 <<<<<<<<<<[>>>>>>>>>>+<<<<<<<<<<-]
141 >>>>>>>>>>
142 >+>13+<<<<<<<<<<<<<[>>>>>>>>>>>>-<<<<<<<<<<<<[-]]
143 >>>>>>>>>>>
144 >12[>>>>++++++[<++++++>-]<++.
145 >++++++++[<++++++++>-]<+.
146 >+++[<++++>-]<+.
147 >+++++++[<-------->-]<-.[-]+
148 <<!-<<[-]
149 >-
150 ]
151 >>-
152 ]
153 <13[ ;ELSE IF x == var09 THEN PRINT "&lt;"
154 <<<<[<<<<<<<<+<+>>>>>>>>>-]<<<<<<<<[>>>>>>>>+<<<<<<<<-]
155 >>>>>>>>>>
156 [<<<<<<<<<<+<0->>>>>>>>>>>11-]
157 <<<<<<<<<<[>>>>>>>>>>+<<<<<<<<<<-]
158 >>>>>>>>>>
159 >+>>14+<<<<<<<<<<<<<<[>>>>>>>>>>>>-<<<<<<<<<<<<[-]]
160 >>>>>>>>>>>
161 >12[>>>>++++++[<++++++>-]<++.
162 >++++++++[<++++++++>-]<++++++.
163 >++[<++++>-]<.
164 >+++++++[<-------->-]<-.[-]+
165 <!-<<<[-]
166 >-
167 ]
168 >-
169 ]
170 >14[ ;ELSE IF x == var10 THEN PRINT "&szlig;"
171 >>>>18[<<<<<<<<<<<<<<<<<+<+>>>>>>>>>>>>>>>>>>-]
172 <<<<<<<<<<<<<<<<<[>>>>>>>>>>>>>>>>>+<<<<<<<<<<<<<<<<<-]
173 >>>>>>>>>>
174 [<<<<<<<<<<+<->>>>>>>>>>>-]
175 <<<<<<<<<<[>>>>>>>>>>+<<<<<<<<<<-]
176 >>>>>>>>>>
177 >+>13+<<<<<<<<<<<<<[>>>>>>>>>>>>-<<<<<<<<<<<<[-]]
178 >>>>>>>>>>>
179 >12[>>>>++++++[<++++++>-]<++.
180 >++++++++[<+++++++++>-]<+++++.
181 >++[<+++>-]<+.
182 >+++[<---->-]<--.
183 >+[<--->-]<.
184 >+[<-->-]<.
185 >++++++[<------->-]<--.[-]+
186 <<!-<<[-]
187 >-
188 ]
189 >>-
190 ]
191 <13[ ;ELSE PRINT x
192 <<.[-]
193 >>>>[-]+
194 <<-
195 ]
196 <<11
197 ]
198 >>>>>>+<<[<<<<<[-]+>>>>>->>-<<]>>[<<<<<<<[-]>>>>>>>-]
199 <<<<<<<
200 ]
201
202;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
203
204
Note: See TracBrowser for help on using the repository browser.