home *** CD-ROM | disk | FTP | other *** search
/ back2roots/filegate / filegate.zip / filegate / ads / adsdbase / ced_html.lha / CED_HTML / Html / html_isolatin.ced < prev    next >
Encoding:
Text File  |  1999-01-11  |  11.5 KB  |  673 lines
  1. /*
  2. ** html_isolatin.ced
  3. **
  4. ** $VER: html_isolatin.ced 1.4 (01.02.1999)
  5. **
  6. ** Arexx script for HTML iso latin 1 conversion
  7. **
  8. ** This script works with CygnusEd Professional v4.2
  9. **
  10. ** Copyright ⌐ Eric BELLE
  11. */
  12.  
  13. /*
  14. **------------------------------------------------------------------------------
  15. **    Initialisation
  16. **------------------------------------------------------------------------------
  17. */
  18.  
  19. OPTIONS RESULTS                            /* Tell CygnusEd to return results. */
  20. NL = '0A'X                                    /* Alias for new line. */
  21. KRETURN = RAWKEY 68                    /* Shortcut to the return key. */
  22. KTAB = RAWKEY 66                        /* Shortcut to the tab key. */
  23. STATUS TABSARESPACES                /* Return TAB mode ("tab" or "space"). */
  24. IF RESULT = 1                                /* Test the TAB mode. */
  25. THEN "TABS = SPACES"                /* Switch TAB mode from "space" to "tab". */
  26. ELSE NOP                                        /* No operation. */
  27. TAB SIZE 1                                    /* Set TAB size proportional to 2 spaces. */
  28.  
  29. /*
  30. **------------------------------------------------------------------------------
  31. **    Iso latin 1 conversion
  32. **------------------------------------------------------------------------------
  33. */
  34.  
  35. /*
  36. *
  37. * Nothing from "�" to " "
  38. *
  39. */
  40.  
  41. /*
  42. *
  43. * CALL Body_tag
  44. * REPLACE  "!" "!" 0 0 1 0 1 t
  45. *
  46. * CALL Body_tag
  47. * REPLACE  '"' """ 0 0 1 0 1 t
  48. *
  49. * CALL Body_tag
  50. * REPLACE  "#" "#" 0 0 1 0 1 t
  51. *
  52. */
  53.  
  54. CALL Body_tag
  55. REPLACE  "$" "$" 0 0 1 0 1 t
  56.  
  57. CALL Body_tag
  58. REPLACE  "%" "%" 0 0 1 0 1 t
  59.  
  60. /*
  61. *
  62. * CALL Body_tag
  63. * REPLACE  "&" "&" 0 0 1 0 1 t
  64. *
  65. */
  66.  
  67. CALL Body_tag
  68. REPLACE  "'" "'" 0 0 1 0 1 t
  69.  
  70. CALL Body_tag
  71. REPLACE  "(" "(" 0 0 1 0 1 t
  72.  
  73. CALL Body_tag
  74. REPLACE  ")" ")" 0 0 1 0 1 t
  75.  
  76. CALL Body_tag
  77. REPLACE  "*" "*" 0 0 1 0 1 t
  78.  
  79. CALL Body_tag
  80. REPLACE  "+" "+" 0 0 1 0 1 t
  81.  
  82. /*
  83. *
  84. * CALL Body_tag
  85. * REPLACE  "," "," 0 0 1 0 1 t
  86. *
  87. * CALL Body_tag
  88. * REPLACE  "-" "-" 0 0 1 0 1 t
  89. *
  90. * CALL Body_tag
  91. * REPLACE  "." "." 0 0 1 0 1 t
  92. *
  93. * CALL Body_tag
  94. * REPLACE  "/" "/" 0 0 1 0 1 t
  95. *
  96. * CALL Body_tag
  97. * REPLACE  "0" "0" 0 0 1 0 1 t
  98. *
  99. * CALL Body_tag
  100. * REPLACE  "1" "1" 0 0 1 0 1 t
  101. *
  102. * CALL Body_tag
  103. * REPLACE  "2" "2" 0 0 1 0 1 t
  104. *
  105. * CALL Body_tag
  106. * REPLACE  "3" "3" 0 0 1 0 1 t
  107. *
  108. * CALL Body_tag
  109. * REPLACE  "4" "4" 0 0 1 0 1 t
  110. *
  111. * CALL Body_tag
  112. * REPLACE  "5" "5" 0 0 1 0 1 t
  113. *
  114. * CALL Body_tag
  115. * REPLACE  "6" "6" 0 0 1 0 1 t
  116. *
  117. * CALL Body_tag
  118. * REPLACE  "7" "7" 0 0 1 0 1 t
  119. *
  120. * CALL Body_tag
  121. * REPLACE  "8" "8" 0 0 1 0 1 t
  122. *
  123. * CALL Body_tag
  124. * REPLACE  "9" "9" 0 0 1 0 1 t
  125. *
  126. * CALL Body_tag
  127. * REPLACE  ":" ":" 0 0 1 0 1 t
  128. *
  129. * CALL Body_tag
  130. * REPLACE  ";" ";" 0 0 1 0 1 t
  131. *
  132. * CALL Body_tag
  133. * REPLACE  "<" "<" 0 0 1 0 1 t
  134. *
  135. * CALL Body_tag
  136. * REPLACE  "=" "=" 0 0 1 0 1 t
  137. *
  138. * CALL Body_tag
  139. * REPLACE  ">" ">" 0 0 1 0 1 t
  140. *
  141. */
  142.  
  143. CALL Body_tag
  144. REPLACE  "?" "?" 0 0 1 0 1 t
  145.  
  146. /*
  147. *
  148. * CALL Body_tag
  149. * REPLACE  "@" "@" 0 0 1 0 1 t
  150. *
  151. * CALL Body_tag
  152. * REPLACE  "A" "A" 0 0 1 0 1 t
  153. *
  154. * CALL Body_tag
  155. * REPLACE  "B" "B" 0 0 1 0 1 t
  156. *
  157. * CALL Body_tag
  158. * REPLACE  "C" "C" 0 0 1 0 1 t
  159. *
  160. * CALL Body_tag
  161. * REPLACE  "D" "D" 0 0 1 0 1 t
  162. *
  163. * CALL Body_tag
  164. * REPLACE  "E" "E" 0 0 1 0 1 t
  165. *
  166. * CALL Body_tag
  167. * REPLACE  "F" "F" 0 0 1 0 1 t
  168. *
  169. * CALL Body_tag
  170. * REPLACE  "G" "G" 0 0 1 0 1 t
  171. *
  172. * CALL Body_tag
  173. * REPLACE  "H" "H" 0 0 1 0 1 t
  174. *
  175. * CALL Body_tag
  176. * REPLACE  "I" "I" 0 0 1 0 1 t
  177. *
  178. * CALL Body_tag
  179. * REPLACE  "J" "J" 0 0 1 0 1 t
  180. *
  181. * CALL Body_tag
  182. * REPLACE  "K" "K" 0 0 1 0 1 t
  183. *
  184. * CALL Body_tag
  185. * REPLACE  "L" "L" 0 0 1 0 1 t
  186. *
  187. * CALL Body_tag
  188. * REPLACE  "M" "M" 0 0 1 0 1 t
  189. *
  190. * CALL Body_tag
  191. * REPLACE  "N" "N" 0 0 1 0 1 t
  192. *
  193. * CALL Body_tag
  194. * REPLACE  "O" "O" 0 0 1 0 1 t
  195. *
  196. * CALL Body_tag
  197. * REPLACE  "P" "P" 0 0 1 0 1 t
  198. *
  199. * CALL Body_tag
  200. * REPLACE  "Q" "Q" 0 0 1 0 1 t
  201. *
  202. * CALL Body_tag
  203. * REPLACE  "R" "R" 0 0 1 0 1 t
  204. *
  205. * CALL Body_tag
  206. * REPLACE  "S" "S" 0 0 1 0 1 t
  207. *
  208. * CALL Body_tag
  209. * REPLACE  "T" "T" 0 0 1 0 1 t
  210. *
  211. * CALL Body_tag
  212. * REPLACE  "U" "U" 0 0 1 0 1 t
  213. *
  214. * CALL Body_tag
  215. * REPLACE  "V" "V" 0 0 1 0 1 t
  216. *
  217. * CALL Body_tag
  218. * REPLACE  "W" "W" 0 0 1 0 1 t
  219. *
  220. * CALL Body_tag
  221. * REPLACE  "X" "X" 0 0 1 0 1 t
  222. *
  223. * CALL Body_tag
  224. * REPLACE  "Y" "Y" 0 0 1 0 1 t
  225. *
  226. * CALL Body_tag
  227. * REPLACE  "Z" "Z" 0 0 1 0 1 t
  228. *
  229. */
  230.  
  231. CALL Body_tag
  232. REPLACE  "[" "[" 0 0 1 0 1 t
  233.  
  234. CALL Body_tag
  235. REPLACE  "\" "\" 0 0 1 0 1 t
  236.  
  237. CALL Body_tag
  238. REPLACE  "]" "]" 0 0 1 0 1 t
  239.  
  240. CALL Body_tag
  241. REPLACE  "^" "^" 0 0 1 0 1 t
  242.  
  243. /*
  244. *
  245. * CALL Body_tag
  246. * REPLACE  "_" "_" 0 0 1 0 1 t
  247. *
  248. */
  249.  
  250. CALL Body_tag
  251. REPLACE  "`" "`" 0 0 1 0 1 t
  252.  
  253. /*
  254. *
  255. * CALL Body_tag
  256. * REPLACE  "a" "a" 0 0 1 0 1 t
  257. *
  258. * CALL Body_tag
  259. * REPLACE  "b" "b" 0 0 1 0 1 t
  260. *
  261. * CALL Body_tag
  262. * REPLACE  "c" "c" 0 0 1 0 1 t
  263. *
  264. * CALL Body_tag
  265. * REPLACE  "d" "d" 0 0 1 0 1 t
  266. *
  267. * CALL Body_tag
  268. * REPLACE  "e" "e" 0 0 1 0 1 t
  269. *
  270. * CALL Body_tag
  271. * REPLACE  "f" "f" 0 0 1 0 1 t
  272. *
  273. * CALL Body_tag
  274. * REPLACE  "g" "g" 0 0 1 0 1 t
  275. *
  276. * CALL Body_tag
  277. * REPLACE  "h" "h" 0 0 1 0 1 t
  278. *
  279. * CALL Body_tag
  280. * REPLACE  "i" "i" 0 0 1 0 1 t
  281. *
  282. * CALL Body_tag
  283. * REPLACE  "j" "j" 0 0 1 0 1 t
  284. *
  285. * CALL Body_tag
  286. * REPLACE  "k" "k" 0 0 1 0 1 t
  287. *
  288. * CALL Body_tag
  289. * REPLACE  "l" "l" 0 0 1 0 1 t
  290. *
  291. * CALL Body_tag
  292. * REPLACE  "m" "m" 0 0 1 0 1 t
  293. *
  294. * CALL Body_tag
  295. * REPLACE  "n" "n" 0 0 1 0 1 t
  296. *
  297. * CALL Body_tag
  298. * REPLACE  "o" "o" 0 0 1 0 1 t
  299. *
  300. * CALL Body_tag
  301. * REPLACE  "p" "p" 0 0 1 0 1 t
  302. *
  303. * CALL Body_tag
  304. * REPLACE  "q" "q" 0 0 1 0 1 t
  305. *
  306. * CALL Body_tag
  307. * REPLACE  "r" "r" 0 0 1 0 1 t
  308. *
  309. * CALL Body_tag
  310. * REPLACE  "s" "s" 0 0 1 0 1 t
  311. *
  312. * CALL Body_tag
  313. * REPLACE  "t" "t" 0 0 1 0 1 t
  314. *
  315. * CALL Body_tag
  316. * REPLACE  "u" "u" 0 0 1 0 1 t
  317. *
  318. * CALL Body_tag
  319. * REPLACE  "v" "v" 0 0 1 0 1 t
  320. *
  321. * CALL Body_tag
  322. * REPLACE  "w" "w" 0 0 1 0 1 t
  323. *
  324. * CALL Body_tag
  325. * REPLACE  "x" "x" 0 0 1 0 1 t
  326. *
  327. * CALL Body_tag
  328. * REPLACE  "y" "y" 0 0 1 0 1 t
  329. *
  330. * CALL Body_tag
  331. * REPLACE  "z" "z" 0 0 1 0 1 t
  332. *
  333. */
  334.  
  335. CALL Body_tag
  336. REPLACE  "{" "{" 0 0 1 0 1 t
  337.  
  338. CALL Body_tag
  339. REPLACE  "|" "|" 0 0 1 0 1 t
  340.  
  341. CALL Body_tag
  342. REPLACE  "}" "}" 0 0 1 0 1 t
  343.  
  344. CALL Body_tag
  345. REPLACE  "~" "~" 0 0 1 0 1 t
  346.  
  347. /*
  348. *
  349. * Nothing from "" to " "
  350. *
  351. */
  352.  
  353. CALL Body_tag
  354. REPLACE  "í" "¡" 0 0 1 0 1 t
  355.  
  356. CALL Body_tag
  357. REPLACE  "ó" "¢" 0 0 1 0 1 t
  358.  
  359. CALL Body_tag
  360. REPLACE  "ú" "£" 0 0 1 0 1 t
  361.  
  362. CALL Body_tag
  363. REPLACE  "ñ" "¤" 0 0 1 0 1 t
  364.  
  365. CALL Body_tag
  366. REPLACE  "Ñ" "¥" 0 0 1 0 1 t
  367.  
  368. CALL Body_tag
  369. REPLACE  "ª" "¦" 0 0 1 0 1 t
  370.  
  371. CALL Body_tag
  372. REPLACE  "º" "§" 0 0 1 0 1 t
  373.  
  374. CALL Body_tag
  375. REPLACE  "¿" "¨" 0 0 1 0 1 t
  376.  
  377. CALL Body_tag
  378. REPLACE  "⌐" "©" 0 0 1 0 1 t
  379.  
  380. CALL Body_tag
  381. REPLACE  "¬" "ª" 0 0 1 0 1 t
  382.  
  383. CALL Body_tag
  384. REPLACE  "½" "«" 0 0 1 0 1 t
  385.  
  386. CALL Body_tag
  387. REPLACE  "¼" "¬" 0 0 1 0 1 t
  388.  
  389. CALL Body_tag
  390. REPLACE  "¡" "­" 0 0 1 0 1 t
  391.  
  392. CALL Body_tag
  393. REPLACE  "«" "®" 0 0 1 0 1 t
  394.  
  395. CALL Body_tag
  396. REPLACE  "»" "¯" 0 0 1 0 1 t
  397.  
  398. CALL Body_tag
  399. REPLACE  "░" "°" 0 0 1 0 1 t
  400.  
  401. CALL Body_tag
  402. REPLACE  "▒" "±" 0 0 1 0 1 t
  403.  
  404. CALL Body_tag
  405. REPLACE  "▓" "²" 0 0 1 0 1 t
  406.  
  407. CALL Body_tag
  408. REPLACE  "│" "³" 0 0 1 0 1 t
  409.  
  410. CALL Body_tag
  411. REPLACE  "┤" "´" 0 0 1 0 1 t
  412.  
  413. CALL Body_tag
  414. REPLACE  "╡" "µ" 0 0 1 0 1 t
  415.  
  416. CALL Body_tag
  417. REPLACE  "╢" "¶" 0 0 1 0 1 t
  418.  
  419. CALL Body_tag
  420. REPLACE  "╖" "·" 0 0 1 0 1 t
  421.  
  422. CALL Body_tag
  423. REPLACE  "╕" "¸" 0 0 1 0 1 t
  424.  
  425. CALL Body_tag
  426. REPLACE  "╣" "¹" 0 0 1 0 1 t
  427.  
  428. CALL Body_tag
  429. REPLACE  "║" "º" 0 0 1 0 1 t
  430.  
  431. CALL Body_tag
  432. REPLACE  "╗" "»" 0 0 1 0 1 t
  433.  
  434. CALL Body_tag
  435. REPLACE  "╝" "¼" 0 0 1 0 1 t
  436.  
  437. CALL Body_tag
  438. REPLACE  "╜" "½" 0 0 1 0 1 t
  439.  
  440. CALL Body_tag
  441. REPLACE  "╛" "¾" 0 0 1 0 1 t
  442.  
  443. CALL Body_tag
  444. REPLACE  "┐" "¿" 0 0 1 0 1 t
  445.  
  446. CALL Body_tag
  447. REPLACE  "└" "À" 0 0 1 0 1 t
  448.  
  449. CALL Body_tag
  450. REPLACE  "┴" "Á" 0 0 1 0 1 t
  451.  
  452. CALL Body_tag
  453. REPLACE  "┬" "Â" 0 0 1 0 1 t
  454.  
  455. CALL Body_tag
  456. REPLACE  "├" "Ã" 0 0 1 0 1 t
  457.  
  458. CALL Body_tag
  459. REPLACE  "─" "Ä" 0 0 1 0 1 t
  460.  
  461. CALL Body_tag
  462. REPLACE  "┼" "Å" 0 0 1 0 1 t
  463.  
  464. CALL Body_tag
  465. REPLACE  "╞" "Æ" 0 0 1 0 1 t
  466.  
  467. CALL Body_tag
  468. REPLACE  "╟" "Ç" 0 0 1 0 1 t
  469.  
  470. CALL Body_tag
  471. REPLACE  "╚" "È" 0 0 1 0 1 t
  472.  
  473. CALL Body_tag
  474. REPLACE  "╔" "É" 0 0 1 0 1 t
  475.  
  476. CALL Body_tag
  477. REPLACE  "╩" "Ê" 0 0 1 0 1 t
  478.  
  479. CALL Body_tag
  480. REPLACE  "╦" "Ë" 0 0 1 0 1 t
  481.  
  482. CALL Body_tag
  483. REPLACE  "╠" "Ì" 0 0 1 0 1 t
  484.  
  485. CALL Body_tag
  486. REPLACE  "═" "Í" 0 0 1 0 1 t
  487.  
  488. CALL Body_tag
  489. REPLACE  "╬" "Î" 0 0 1 0 1 t
  490.  
  491. CALL Body_tag
  492. REPLACE  "╧" "Ï" 0 0 1 0 1 t
  493.  
  494. CALL Body_tag
  495. REPLACE  "╨" "Ð" 0 0 1 0 1 t
  496.  
  497. CALL Body_tag
  498. REPLACE  "╤" "Ñ" 0 0 1 0 1 t
  499.  
  500. CALL Body_tag
  501. REPLACE  "╥" "Ò" 0 0 1 0 1 t
  502.  
  503. CALL Body_tag
  504. REPLACE  "╙" "Ó" 0 0 1 0 1 t
  505.  
  506. CALL Body_tag
  507. REPLACE  "╘" "Ô" 0 0 1 0 1 t
  508.  
  509. CALL Body_tag
  510. REPLACE  "╒" "Õ" 0 0 1 0 1 t
  511.  
  512. CALL Body_tag
  513. REPLACE  "╓" "Ö" 0 0 1 0 1 t
  514.  
  515. CALL Body_tag
  516. REPLACE  "╫" "×" 0 0 1 0 1 t
  517.  
  518. CALL Body_tag
  519. REPLACE  "╪" "Ø" 0 0 1 0 1 t
  520.  
  521. CALL Body_tag
  522. REPLACE  "┘" "Ù" 0 0 1 0 1 t
  523.  
  524. CALL Body_tag
  525. REPLACE  "┌" "Ú" 0 0 1 0 1 t
  526.  
  527. CALL Body_tag
  528. REPLACE  "█" "Û" 0 0 1 0 1 t
  529.  
  530. CALL Body_tag
  531. REPLACE  "▄" "Ü" 0 0 1 0 1 t
  532.  
  533. CALL Body_tag
  534. REPLACE  "▌" "Ý" 0 0 1 0 1 t
  535.  
  536. CALL Body_tag
  537. REPLACE  "▐" "Þ" 0 0 1 0 1 t
  538.  
  539. CALL Body_tag
  540. REPLACE  "▀" "ß" 0 0 1 0 1 t
  541.  
  542. CALL Body_tag
  543. REPLACE  "α" "à" 0 0 1 0 1 t
  544.  
  545. CALL Body_tag
  546. REPLACE  "ß" "á" 0 0 1 0 1 t
  547.  
  548. CALL Body_tag
  549. REPLACE  "Γ" "â" 0 0 1 0 1 t
  550.  
  551. CALL Body_tag
  552. REPLACE  "π" "ã" 0 0 1 0 1 t
  553.  
  554. CALL Body_tag
  555. REPLACE  "Σ" "ä" 0 0 1 0 1 t
  556.  
  557. CALL Body_tag
  558. REPLACE  "σ" "å" 0 0 1 0 1 t
  559.  
  560. CALL Body_tag
  561. REPLACE  "µ" "æ" 0 0 1 0 1 t
  562.  
  563. CALL Body_tag
  564. REPLACE  "τ" "ç" 0 0 1 0 1 t
  565.  
  566. CALL Body_tag
  567. REPLACE  "Φ" "è" 0 0 1 0 1 t
  568.  
  569. CALL Body_tag
  570. REPLACE  "Θ" "é" 0 0 1 0 1 t
  571.  
  572. CALL Body_tag
  573. REPLACE  "Ω" "ê" 0 0 1 0 1 t
  574.  
  575. CALL Body_tag
  576. REPLACE  "δ" "ë" 0 0 1 0 1 t
  577.  
  578. CALL Body_tag
  579. REPLACE  "∞" "ì" 0 0 1 0 1 t
  580.  
  581. CALL Body_tag
  582. REPLACE  "φ" "í" 0 0 1 0 1 t
  583.  
  584. CALL Body_tag
  585. REPLACE  "ε" "î" 0 0 1 0 1 t
  586.  
  587. CALL Body_tag
  588. REPLACE  "∩" "ï" 0 0 1 0 1 t
  589.  
  590. CALL Body_tag
  591. REPLACE  "≡" "ð" 0 0 1 0 1 t
  592.  
  593. CALL Body_tag
  594. REPLACE  "±" "ñ" 0 0 1 0 1 t
  595.  
  596. CALL Body_tag
  597. REPLACE  "≥" "ò" 0 0 1 0 1 t
  598.  
  599. CALL Body_tag
  600. REPLACE  "≤" "ó" 0 0 1 0 1 t
  601.  
  602. CALL Body_tag
  603. REPLACE  "⌠" "ô" 0 0 1 0 1 t
  604.  
  605. CALL Body_tag
  606. REPLACE  "⌡" "õ" 0 0 1 0 1 t
  607.  
  608. CALL Body_tag
  609. REPLACE  "÷" "ö" 0 0 1 0 1 t
  610.  
  611. CALL Body_tag
  612. REPLACE  "≈" "÷" 0 0 1 0 1 t
  613.  
  614. CALL Body_tag
  615. REPLACE  "°" "ø" 0 0 1 0 1 t
  616.  
  617. CALL Body_tag
  618. REPLACE  "∙" "ù" 0 0 1 0 1 t
  619.  
  620. CALL Body_tag
  621. REPLACE  "·" "ú" 0 0 1 0 1 t
  622.  
  623. CALL Body_tag
  624. REPLACE  "√" "û" 0 0 1 0 1 t
  625.  
  626. CALL Body_tag
  627. REPLACE  "ⁿ" "ü" 0 0 1 0 1 t
  628.  
  629. CALL Body_tag
  630. REPLACE  "²" "ý" 0 0 1 0 1 t
  631.  
  632. CALL Body_tag
  633. REPLACE  "■" "þ" 0 0 1 0 1 t
  634.  
  635. CALL Body_tag
  636. REPLACE  " " "ÿ" 0 0 1 0 1 t
  637.  
  638. /*
  639. **------------------------------------------------------------------------------
  640. **    End of html_isolatin.ced Arexx script
  641. **------------------------------------------------------------------------------
  642. */
  643.  
  644. EXIT 0
  645.  
  646. /*
  647. **------------------------------------------------------------------------------
  648. **    Body_tag macro for html_isolatin.ced Arexx script
  649. **------------------------------------------------------------------------------
  650. */
  651.  
  652. Body_tag:
  653.  
  654. /*
  655. **------------------------------------------------------------------------------
  656. **    Place cursor after the html "<BODY" tag
  657. **------------------------------------------------------------------------------
  658. */
  659.  
  660. BEG OF FILE
  661. SEARCH FOR "<BODY" 1 0 1 0 1
  662.  
  663. IF (RESULT=1)
  664. THEN NOP
  665. ELSE OKAY1 'HTML error: no "<BODY" tag'
  666.  
  667. /*
  668. **------------------------------------------------------------------------------
  669. **    End of Body_tag macro
  670. **------------------------------------------------------------------------------
  671. */
  672.  
  673. RETURN