More module decomposition.

Needs much more on device testing.

esp32/optional/camera/camera.fs

@@ -0,0 +1,130 @@
+\ Copyright 2021 Bradley D. Nelson
+\
+\ Licensed under the Apache License, Version 2.0 (the "License");
+\ you may not use this file except in compliance with the License.
+\ You may obtain a copy of the License at
+\
+\     http://www.apache.org/licenses/LICENSE-2.0
+\
+\ Unless required by applicable law or agreed to in writing, software
+\ distributed under the License is distributed on an "AS IS" BASIS,
+\ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+\ See the License for the specific language governing permissions and
+\ limitations under the License.
+
+internals definitions
+transfer camera-builtins
+DEFINED? esp_camera_init [IF]
+forth definitions
+
+( Lazy loaded camera handling for ESP32-CAM )
+: camera r|
+
+vocabulary camera   camera definitions
+  also internals
+transfer camera-builtins
+
+0 constant PIXFORMAT_RGB565
+1 constant PIXFORMAT_YUV422
+2 constant PIXFORMAT_GRAYSCALE
+3 constant PIXFORMAT_JPEG
+4 constant PIXFORMAT_RGB888
+5 constant PIXFORMAT_RAW
+6 constant PIXFORMAT_RGB444
+7 constant PIXFORMAT_RGB555
+
+0 constant FRAMESIZE_96x96    ( 96x96)
+1 constant FRAMESIZE_QQVGA    ( 160x120 )
+2 constant FRAMESIZE_QCIF     ( 176x144 )
+3 constant FRAMESIZE_HQVGA    ( 240x176 )
+4 constant FRAMESIZE_240x240  ( 176x144 )
+5 constant FRAMESIZE_QVGA     ( 320x240 )
+6 constant FRAMESIZE_CIF      ( 400x296 )
+7 constant FRAMESIZE_HVGA     ( 480x320 )
+8 constant FRAMESIZE_VGA      ( 640x480 )
+9 constant FRAMESIZE_SVGA     ( 800x600 )
+10 constant FRAMESIZE_XGA     ( 1024x768 )
+11 constant FRAMESIZE_HD      ( 1280x720 )
+12 constant FRAMESIZE_SXGA    ( 1280x1024 )
+13 constant FRAMESIZE_UXGA    ( 1600x1200 )
+
+( See https://github.com/espressif/esp32-camera/blob/master/driver/include/esp_camera.h )
+( Settings for AI_THINKER )
+create camera-config
+  32 , ( pin_pwdn ) -1 , ( pin_reset ) 0 , ( pin_xclk )
+  26 , ( pin_sscb_sda ) 27 , ( pin_sscb_scl )
+  35 , 34 , 39 , 36 , 21 , 19 , 18 , 5 , ( pin_d7 - pin_d0 )
+  25 , ( pin_vsync ) 23 , ( pin_href ) 22 , ( pin_pclk )
+  20000000 , ( xclk_freq_hz )
+  0 , ( ledc_timer ) 0 , ( ledc_channel )
+  here
+  PIXFORMAT_JPEG , ( pixel_format )
+  here
+  FRAMESIZE_VGA , ( frame_size )
+  here
+  12 , ( jpeg_quality 0-63 low good )
+  here
+  1 , ( fb_count )
+constant camera-fb-count
+constant camera-jpeg-quality
+constant camera-frame-size
+constant camera-format
+
+: field@ ( n -- n ) dup create , cell+ does> @ + @ ;
+
+0
+field@ fb->buf
+field@ fb->len
+field@ fb->width
+field@ fb->height
+field@ fb->format
+field@ fb->sec
+field@ fb->usec
+drop
+
+5 cells
+field@ s->xclk_freq_hz ( a )
+field@ s->init_status ( s )
+field@ s->reset ( s )
+field@ s->set_pixformat ( s pixformat )
+field@ s->set_framesize ( s framesize )
+field@ s->set_contrast ( s level )
+field@ s->set_brightness ( s level )
+field@ s->set_saturation ( s level )
+field@ s->set_sharpness ( s level )
+field@ s->set_denoise ( s level )
+field@ s->set_gainceiling ( s gainceil )
+field@ s->set_quality ( s quality )
+field@ s->set_colorbar ( s enable )
+field@ s->set_whitebal ( s enable )
+field@ s->set_gain_ctrl ( s enable )
+field@ s->set_exposure_ctrl ( s enable )
+field@ s->set_hmirror ( s enable )
+field@ s->set_vflip ( s enable )
+
+field@ s->set_aec2 ( s enable )
+field@ s->set_awb_gain ( s enable )
+field@ s->set_agc_gain ( s gain )
+field@ s->set_aec_value ( s gain )
+
+field@ s->set_special_effect ( s effect )
+field@ s->set_wb_mode ( s mode )
+field@ s->set_ae_level ( s level )
+
+field@ s->set_raw_gma ( s enable )
+field@ s->set_lenc ( s enable )
+
+field@ s->get_reg ( s reg mask )
+field@ s->set_reg ( s reg mask value )
+field@ s->set_res_raw ( s startX startY endX endY offsetX offsetY totalX totalY outputX outputY scale binning )
+field@ s->set_pll ( s bypass mul sys root pre seld5 pclken pclk )
+field@ s->set_xclk ( s time xclk )
+drop
+
+forth definitions
+camera
+| evaluate ;
+
+[ELSE]
+forth definitions
+[THEN]

esp32/optional/camera/camera.h

@@ -0,0 +1,35 @@
+// Copyright 2023 Bradley D. Nelson
+//
+// Licensed under the Apache License, Version 2.0 (the "License");
+// you may not use this file except in compliance with the License.
+// You may obtain a copy of the License at
+//
+//     http://www.apache.org/licenses/LICENSE-2.0
+//
+// Unless required by applicable law or agreed to in writing, software
+// distributed under the License is distributed on an "AS IS" BASIS,
+// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+// See the License for the specific language governing permissions and
+// limitations under the License.
+
+/*
+ * ESP32forth ESP32-CAM Camera v{{VERSION}}
+ * Revision: {{REVISION}}
+ */
+
+#ifndef SIM_PRINT_ONLY
+# include "esp_camera.h"
+#endif
+#define OPTIONAL_CAMERA_VOCABULARY V(camera)
+#define OPTIONAL_CAMERA_SUPPORT \
+  XV(internals, "camera-source", CAMERA_SOURCE, \
+      PUSH camera_source; PUSH sizeof(camera_source) - 1) \
+  YV(camera, esp_camera_init, n0 = esp_camera_init((camera_config_t *) a0)) \
+  YV(camera, esp_camera_deinit, PUSH esp_camera_deinit()) \
+  YV(camera, esp_camera_fb_get, PUSH esp_camera_fb_get()) \
+  YV(camera, esp_camera_fb_return, esp_camera_fb_return((camera_fb_t *) a0); DROP) \
+  YV(camera, esp_camera_sensor_get, PUSH esp_camera_sensor_get()) \
+  YV(camera, esp_camera_save_to_nvs, n0 = esp_camera_save_to_nvs(c0)) \
+  YV(camera, esp_camera_load_from_nvs, n0 = esp_camera_load_from_nvs(c0))
+
+{{camera}}

esp32/optional/camera/camera_server.fs

@@ -0,0 +1,87 @@
+\ Copyright 2021 Bradley D. Nelson
+\
+\ Licensed under the Apache License, Version 2.0 (the "License");
+\ you may not use this file except in compliance with the License.
+\ You may obtain a copy of the License at
+\
+\     http://www.apache.org/licenses/LICENSE-2.0
+\
+\ Unless required by applicable law or agreed to in writing, software
+\ distributed under the License is distributed on an "AS IS" BASIS,
+\ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+\ See the License for the specific language governing permissions and
+\ limitations under the License.
+
+( Lazy loaded Camera Server )
+: camera-server r~
+
+camera httpd
+vocabulary camera-server   camera-server definitions
+  also camera also httpd
+
+r|
+<!DOCTYPE html>
+<body>
+<img id="pic">
+<script>
+var pic = document.getElementById('pic');
+function httpPost(url, callback) {
+  var r = new XMLHttpRequest();
+  r.responseType = 'blob';
+  r.onreadystatechange = function() {
+    if (this.readyState == XMLHttpRequest.DONE) {
+      if (this.status === 200) {
+        callback(this.response);
+      } else {
+        callback(null);
+      }
+    }
+  };
+  r.open('POST', url);
+  r.send();
+}
+function Frame() {
+  httpPost('./image', function(r) {
+    if (r !== null) {
+      try {
+        pic.src = URL.createObjectURL(r);
+      } catch (e) {
+      }
+    }
+    setTimeout(Frame, 30);
+  });
+}
+Frame();
+</script>
+| constant index-html# constant index-html
+
+: handle-index
+   s" text/html" ok-response
+   index-html index-html# send
+;
+
+: handle-image
+  s" image/jpeg" ok-response
+  esp_camera_fb_get dup dup @ swap cell+ @ send
+  esp_camera_fb_return
+;
+
+: handle1
+  handleClient if
+    s" /" path str= if handle-index exit then
+    s" /image" path str= if handle-image exit then
+    notfound-response
+  then
+;
+
+: do-serve    begin ['] handle1 catch drop pause again ;
+
+: server ( port -- )
+   server
+   camera-config esp_camera_init throw
+   do-serve
+;
+
+only forth definitions
+camera-server
+~ evaluate ;