about summary refs log tree commit diff stats
path: root/src/xhr/xmlhttprequest.nim
diff options
context:
space:
mode:
authorbptato <nincsnevem662@gmail.com>2023-12-13 12:08:05 +0100
committerbptato <nincsnevem662@gmail.com>2023-12-13 12:56:28 +0100
commitab203acf554993d15e37604773f160c84b4d8252 (patch)
tree45428aa45bc751f788cc5c52c32b15bb8a2363f1 /src/xhr/xmlhttprequest.nim
parentbf761bcb6dcc5288a86aa5e8c2b67df3f0df056b (diff)
downloadchawan-ab203acf554993d15e37604773f160c84b4d8252.tar.gz
Move http out of main binary
Now it is (technically) no longer mandatory to link to libcurl.

Also, Chawan is at last completely protocol and network backend
agnostic :)

* Implement multipart requests in local CGI
* Implement simultaneous download of CGI data
* Add REQUEST_HEADERS env var with all headers
* cssparser: add a missing check in consumeEscape
Diffstat (limited to 'src/xhr/xmlhttprequest.nim')
0 files changed, 0 insertions, 0 deletions
ref='#n103'>103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
<title>Mu - edit/008-sandbox-test.mu</title>
<meta name="Generator" content="Vim/7.4">
<meta name="plugin-version" content="vim7.4_v2">
<meta name="syntax" content="none">
<meta name="settings" content="use_css,pre_wrap,no_foldcolumn,expand_tabs,prevent_copy=">
<meta name="colorscheme" content="minimal">
<style type="text/css">
<!--
pre { white-space: pre-wrap; font-family: monospace; color: #eeeeee; background-color: #080808; }
body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color: #080808; }
* { font-size: 12pt; font-size: 1em; }
.muScenario { color: #00af00; }
.muData { color: #ffff00; }
.Special { color: #c00000; }
.Delimiter { color: #800080; }
.muRecipe { color: #ff8700; }
.Comment { color: #9090ff; }
.Constant { color: #00a0a0; }
.SalientComment { color: #00ffff; }
.muControl { color: #c0a020; }
-->
</style>

<script type='text/javascript'>
<!--

-->
</script>
</head>
<body>
<pre id='vimCodeElement'>
<span class="SalientComment">## clicking on sandbox results to 'fix' them and turn sandboxes into tests</span>

<span class="muScenario">scenario</span> sandbox-click-on-result-toggles-color-to-green [
  trace-until <span class="Constant">100/app</span>  <span class="Comment"># trace too long</span>
  assume-screen <span class="Constant">40/width</span>, <span class="Constant">10/height</span>
  <span class="Comment"># basic recipe</span>
  <span class="Constant">1</span>:address:shared:array:character<span class="Special"> &lt;- </span>new <span class="Constant">[ </span>
<span class="Constant">recipe foo [</span>
<span class="Constant">  reply 4</span>
<span class="Constant">]</span>]
  <span class="Comment"># run it</span>
  <span class="Constant">2</span>:address:shared:array:character<span class="Special"> &lt;- </span>new <span class="Constant">[foo]</span>
  assume-console [
    press F4
  ]
  <span class="Constant">3</span>:address:shared:programming-environment-data<span class="Special"> &lt;- </span>new-programming-environment screen:address:shared:screen, <span class="Constant">1</span>:address:shared:array:character, <span class="Constant">2</span>:address:shared:array:character
  event-loop screen:address:shared:screen, console:address:shared:console, <span class="Constant">3</span>:address:shared:programming-environment-data
  screen-should-contain [
   <span class="Constant"> .                     run (F4)           .</span>
   <span class="Constant"> .                    ┊                   .</span>
   <span class="Constant"> .recipe foo [        ┊━━━━━━━━━━━━━━━━━━━.</span>
   <span class="Constant"> .  reply 4           ┊0                 x.</span>
   <span class="Constant"> .]                   ┊foo                .</span>
   <span class="Constant"> .┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊4                  .</span>
   <span class="Constant"> .                    ┊━━━━━━━━━━━━━━━━━━━.</span>
   <span class="Constant"> .                    ┊                   .</span>
  ]
  <span class="Comment"># click on the '4' in the result</span>
  assume-console [
    left-click <span class="Constant">5</span>, <span class="Constant">21</span>
  ]
  run [
    event-loop screen:address:shared:screen, console:address:shared:console, <span class="Constant">3</span>:address:shared:programming-environment-data
  ]
  <span class="Comment"># color toggles to green</span>
  screen-should-contain-in-color <span class="Constant">2/green</span>, [
   <span class="Constant"> .                                        .</span>
   <span class="Constant"> .                                        .</span>
   <span class="Constant"> .                                        .</span>
   <span class="Constant"> .                                        .</span>
   <span class="Constant"> .                                        .</span>
   <span class="Constant"> .                     4                  .</span>
   <span class="Constant"> .                                        .</span>
   <span class="Constant"> .                                        .</span>
  ]
  <span class="Comment"># cursor should remain unmoved</span>
  run [
    <span class="Constant">4</span>:character/cursor<span class="Special"> &lt;- </span>copy <span class="Constant">9251/␣</span>
    print screen:address:shared:screen, <span class="Constant">4</span>:character/cursor
  ]
  screen-should-contain [
   <span class="Constant"> .                     run (F4)           .</span>
   <span class="Constant"> .␣                   ┊                   .</span>
   <span class="Constant"> .recipe foo [        ┊━━━━━━━━━━━━━━━━━━━.</span>
   <span class="Constant"> .  reply 4           ┊0                 x.</span>
   <span class="Constant"> .]                   ┊foo                .</span>
   <span class="Constant"> .┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊4                  .</span>
   <span class="Constant"> .                    ┊━━━━━━━━━━━━━━━━━━━.</span>
   <span class="Constant"> .                    ┊                   .</span>
  ]
  <span class="Comment"># now change the result</span>
  <span class="Comment"># then rerun</span>
  assume-console [
    left-click <span class="Constant">3</span>, <span class="Constant">11</span>  <span class="Comment"># cursor to end of line</span>
    press backspace
    type <span class="Constant">[3]</span>
    press F4
  ]
  run [
    event-loop screen:address:shared:screen, console:address:shared:console, <span class="Constant">3</span>:address:shared:programming-environment-data
  ]
  <span class="Comment"># result turns red</span>
  screen-should-contain-in-color <span class="Constant">1/red</span>, [
   <span class="Constant"> .                                        .</span>
   <span class="Constant"> .                                        .</span>
   <span class="Constant"> .                                        .</span>
   <span class="Constant"> .                                        .</span>
   <span class="Constant"> .                                        .</span>
   <span class="Constant"> .                     3                  .</span>
   <span class="Constant"> .                                        .</span>
   <span class="Constant"> .                                        .</span>
  ]
]

<span class="Comment"># this requires tracking a couple more things</span>
<span class="muData">container</span> sandbox-data [
  response-starting-row-on-screen:number
  expected-response:address:shared:array:character
]

<span class="Comment"># include expected response when saving or restoring a sandbox</span>
<span class="muRecipe">before</span> <span class="Constant">&lt;end-save-sandbox&gt;</span> [
  <span class="Delimiter">{</span>
    expected-response:address:shared:array:character<span class="Special"> &lt;- </span>get *curr, <span class="Constant">expected-response:offset</span>
    <span class="muControl">break-unless</span> expected-response
    filename<span class="Special"> &lt;- </span>append filename, <span class="Constant">[.out]</span>
    save filename, expected-response
  <span class="Delimiter">}</span>
]

<span class="muRecipe">before</span> <span class="Constant">&lt;end-restore-sandbox&gt;</span> [
  expected-response:address:address:shared:array:character<span class="Special"> &lt;- </span>get-address **curr, <span class="Constant">expected-response:offset</span>
  *expected-response<span class="Special"> &lt;- </span>copy contents
]

<span class="Comment"># clicks on sandbox responses save it as 'expected'</span>
<span class="muRecipe">after</span> <span class="Constant">&lt;global-touch&gt;</span> [
  <span class="Comment"># check if it's inside the output of any sandbox</span>
  <span class="Delimiter">{</span>
    sandbox-left-margin:number<span class="Special"> &lt;- </span>get *current-sandbox, <span class="Constant">left:offset</span>
    click-column:number<span class="Special"> &lt;- </span>get *t, <span class="Constant">column:offset</span>
    on-sandbox-side?:boolean<span class="Special"> &lt;- </span>greater-or-equal click-column, sandbox-left-margin
    <span class="muControl">break-unless</span> on-sandbox-side?
    first-sandbox:address:shared:sandbox-data<span class="Special"> &lt;- </span>get *env, <span class="Constant">sandbox:offset</span>
    <span class="muControl">break-unless</span> first-sandbox
    first-sandbox-begins:number<span class="Special"> &lt;- </span>get *first-sandbox, <span class="Constant">starting-row-on-screen:offset</span>
    click-row:number<span class="Special"> &lt;- </span>get *t, <span class="Constant">row:offset</span>
    below-sandbox-editor?:boolean<span class="Special"> &lt;- </span>greater-or-equal click-row, first-sandbox-begins
    <span class="muControl">break-unless</span> below-sandbox-editor?
    <span class="Comment"># identify the sandbox whose output is being clicked on</span>
    sandbox:address:shared:sandbox-data<span class="Special"> &lt;- </span>find-click-in-sandbox-output env, click-row
    <span class="muControl">break-unless</span> sandbox
    <span class="Comment"># toggle its expected-response, and save session</span>
    sandbox<span class="Special"> &lt;- </span>toggle-expected-response sandbox
    save-sandboxes env
    hide-screen screen
    screen<span class="Special"> &lt;- </span>render-sandbox-side screen, env, <span class="Constant">1/clear</span>
    screen<span class="Special"> &lt;- </span>update-cursor screen, recipes, current-sandbox, *sandbox-in-focus?, env
    <span class="Comment"># no change in cursor</span>
    show-screen screen
    <span class="muControl">loop</span> <span class="Constant">+next-event:label</span>
  <span class="Delimiter">}</span>
]

<span class="muRecipe">def</span> find-click-in-sandbox-output env:address:shared:programming-environment-data, click-row:number<span class="muRecipe"> -&gt; </span>sandbox:address:shared:sandbox-data [
  <span class="Constant">local-scope</span>
  <span class="Constant">load-ingredients</span>
  <span class="Comment"># assert click-row &gt;= sandbox.starting-row-on-screen</span>
  sandbox:address:shared:sandbox-data<span class="Special"> &lt;- </span>get *env, <span class="Constant">sandbox:offset</span>
  start:number<span class="Special"> &lt;- </span>get *sandbox, <span class="Constant">starting-row-on-screen:offset</span>
  clicked-on-sandboxes?:boolean<span class="Special"> &lt;- </span>greater-or-equal click-row, start
  assert clicked-on-sandboxes?, <span class="Constant">[extract-sandbox called on click to sandbox editor]</span>
  <span class="Comment"># while click-row &lt; sandbox.next-sandbox.starting-row-on-screen</span>
  <span class="Delimiter">{</span>
    next-sandbox:address:shared:sandbox-data<span class="Special"> &lt;- </span>get *sandbox, <span class="Constant">next-sandbox:offset</span>
    <span class="muControl">break-unless</span> next-sandbox
    next-start:number<span class="Special"> &lt;- </span>get *next-sandbox, <span class="Constant">starting-row-on-screen:offset</span>
    found?:boolean<span class="Special"> &lt;- </span>lesser-than click-row, next-start
    <span class="muControl">break-if</span> found?
    sandbox<span class="Special"> &lt;- </span>copy next-sandbox
    <span class="muControl">loop</span>
  <span class="Delimiter">}</span>
  <span class="Comment"># return sandbox if click is in its output region</span>
  response-starting-row:number<span class="Special"> &lt;- </span>get *sandbox, <span class="Constant">response-starting-row-on-screen:offset</span>
  <span class="muControl">return-unless</span> response-starting-row, <span class="Constant">0/no-click-in-sandbox-output</span>
  click-in-response?:boolean<span class="Special"> &lt;- </span>greater-or-equal click-row, response-starting-row
  <span class="muControl">return-unless</span> click-in-response?, <span class="Constant">0/no-click-in-sandbox-output</span>
  <span class="muControl">return</span> sandbox
]

<span class="muRecipe">def</span> toggle-expected-response sandbox:address:shared:sandbox-data<span class="muRecipe"> -&gt; </span>sandbox:address:shared:sandbox-data [
  <span class="Constant">local-scope</span>
  <span class="Constant">load-ingredients</span>
  expected-response:address:address:shared:array:character<span class="Special"> &lt;- </span>get-address *sandbox, <span class="Constant">expected-response:offset</span>
  <span class="Delimiter">{</span>
    <span class="Comment"># if expected-response is set, reset</span>
    <span class="muControl">break-unless</span> *expected-response
    *expected-response<span class="Special"> &lt;- </span>copy <span class="Constant">0</span>
    <span class="muControl">return</span> sandbox/same-as-ingredient:<span class="Constant">0</span>
  <span class="Delimiter">}</span>
  <span class="Comment"># if not, current response is the expected response</span>
  response:address:shared:array:character<span class="Special"> &lt;- </span>get *sandbox, <span class="Constant">response:offset</span>
  *expected-response<span class="Special"> &lt;- </span>copy response
]

<span class="Comment"># when rendering a sandbox, color it in red/green if expected response exists</span>
<span class="muRecipe">after</span> <span class="Constant">&lt;render-sandbox-response&gt;</span> [
  <span class="Delimiter">{</span>
    <span class="muControl">break-unless</span> sandbox-response
    response-starting-row:address:number<span class="Special"> &lt;- </span>get-address *sandbox, <span class="Constant">response-starting-row-on-screen:offset</span>
    *response-starting-row<span class="Special"> &lt;- </span>copy row
    expected-response:address:shared:array:character<span class="Special"> &lt;- </span>get *sandbox, <span class="Constant">expected-response:offset</span>
    <span class="muControl">break-unless</span> expected-response  <span class="Comment"># fall-through to print in grey</span>
    response-is-expected?:boolean<span class="Special"> &lt;- </span>equal expected-response, sandbox-response
    <span class="Delimiter">{</span>
      <span class="muControl">break-if</span> response-is-expected?:boolean
      row, screen<span class="Special"> &lt;- </span>render screen, sandbox-response, left, right, <span class="Constant">1/red</span>, row
    <span class="Delimiter">}</span>
    <span class="Delimiter">{</span>
      <span class="muControl">break-unless</span> response-is-expected?:boolean
      row, screen<span class="Special"> &lt;- </span>render screen, sandbox-response, left, right, <span class="Constant">2/green</span>, row
    <span class="Delimiter">}</span>
    <span class="muControl">jump</span> <span class="Constant">+render-sandbox-end:label</span>
  <span class="Delimiter">}</span>
]

<span class="muRecipe">before</span> <span class="Constant">&lt;end-render-sandbox-reset-hidden&gt;</span> [
  tmp:address:number<span class="Special"> &lt;- </span>get-address *sandbox, <span class="Constant">response-starting-row-on-screen:offset</span>
  *tmp<span class="Special"> &lt;- </span>copy <span class="Constant">0</span>
]
</pre>
</body>
</html>
<!-- vim: set foldmethod=manual : -->