Reformatted app.fth, solved a bug in ms and added .path

src/app/esp32-extra/app.fth

@@ -1,5 +1,4 @@
 \ Load file for application-specific Forth extensions
-
 fl ../../lib/misc.fth
 fl ../../lib/dl.fth
 fl ../../lib/random.fth
@@ -28,35 +27,38 @@ alias m-init noop
    key?  if  key true exit  then
    false
 ;
-
 : ms>ticks  ( ms -- ticks )
-   esp-clk-cpu-freq #80000000 over =
-     if    drop
-     else  #240000000 =
-             if   exit
-             else #1 lshift
-             then
-     then  #3 /
+   esp-clk-cpu-freq #80000000 over =  if
+      drop
+   else
+      #240000000 =  if
+         exit
+      else
+         #1 lshift
+      then
+   then  #3 /
 ;
 
 : system-time>f ( us seconds -- ) ( f: -- us )
    s" s>d d>f f# 1000000 f*  s>d d>f  f+ "  evaluate ; immediate
 
-: usf@         ( f: -- us )
+: usf@  ( f: -- us )
    s" dup dup sp@ get-system-time! system-time>f" evaluate ; immediate
 
-: ms@         ( -- ms ) f# .001 usf@ f* f>d drop ;
+: ms@   ( -- ms ) f# 0.001 usf@ f* f>d drop ;
 
 alias get-msecs ms@
 
 : fus  ( f: us - )
-   usf@  f+
-     begin   fdup  usf@  f- f# 100000000 f>
-     while   #100000000 us
-     repeat
-   usf@  f- f>d drop abs us ;
+   usf@ f+  begin
+         fdup  usf@  f# 6000 f-  f>
+      while
+         #6000 us
+      repeat
+      usf@ fswap f- f>d drop abs us
+;
 
-: ms ( ms -- )   s>d d>f f# 1000 f* fus ;
+: ms  ( ms -- )   s>d d>f f# 1000 f* fus ;
 
 fl wifi.fth
 
@@ -81,15 +83,15 @@ fl tools/extra.fth
 : load-startup-file  ( -- ior )   " start" ['] included catch   ;
 
 : app ( - ) \ Sometimes SPIFFS or a wifi connection causes an error. A reboot solves that.
-   banner  hex  interrupt? 0=
-      if     s" start" file-exist?
-           if   load-startup-file
-                if   ." Reading SPIFFS. " cr interrupt? 0=
-                    if    reboot
-                    then
-                then
-           then
+   banner  hex  interrupt? 0=  if
+      s" start" file-exist?  if
+         load-startup-file  if
+            ." Reading SPIFFS. " cr interrupt? 0=  if
+               reboot
+            then
+         then
       then
+   then
    quit
 ;
 

src/app/esp32-extra/extend.c

@@ -39,10 +39,8 @@ cell errno_val(void) {  return (cell)errno;  }
 
 extern void open_dir(void);
 extern void dirent_size(void);
-// extern void sd_mount(void);
 extern void sd_unmount(void);
 
-
 extern void software_reset(void);
 extern void adc1_config_width(void);
 extern void adc1_config_channel_atten(void);
@@ -86,10 +84,9 @@ extern void my_spiffs_unmount(void);
 extern void spi_bus_init(void);
 extern void spi_bus_setup(void);
 extern void spi_master_data(void);
-
 extern void spi_bus_init_slave(void);
 extern void spi_slave_data(void);
-
+extern void mysetvbuf(void);
 
 int xTaskGetTickCount(void);
 void raw_emit(char c);
@@ -417,16 +414,15 @@ cell ((* const ccalls[])()) = {
 	C(set_esp_now_callback_rcv)  //c set-esp-now-callback-rcv   { i.HQueueEnow -- }
 	C(esp_now_unregister_recv_cb) //c esp-now-unregister-recv_cb { -- }
 
-// Spi master
- 	C(spi_bus_init)              //c spi-bus-init               { i.dma, i.sclk i.miso, i.mosi --  i.res }
- 	C(spi_bus_setup)             //c spi-bus-setup              { i.qsize, i.mode i.clkspeed --  i.handle }
- 	C(spi_master_data)           //c spi-master-data            { i.len, a.send, a.receive, i.handle -- i.res }
+ 	C(spi_bus_init)              //c spi-bus-init               { i.dma i.sclk i.miso i.mosi --  i.res }
+ 	C(spi_bus_setup)             //c spi-bus-setup              { i.qsize i.mode i.clkspeed --  i.handle }
+ 	C(spi_master_data)           //c spi-master-data            { i.len a.send a.receive i.handle -- i.res }
+ 	C(spi_bus_init_slave)  //c spi-bus-init-slave   { i.qsize i.dma i.mode i.spics i.sclk i.miso i.mosi -- i.res }
+ 	C(spi_slave_data)      //c spi-slave-data       { a.recvbuf a.sendbuf i.size i.ticks_to_wait -- i.res }
 
-// Spi slave
- 	C(spi_bus_init_slave)  //c spi-bus-init-slave    { i.qsize, i.dma, i.mode, i.spics, i.sclk, i.miso, i.mosi -- i.res }
- 	C(spi_slave_data)      //c spi-slave-data        { a.recvbuf, a.sendbuf, i.size i.ticks_to_wait -- i.res }
-
-// SDcard
 	C(sd_mount)		     //c mount-sd-card	{ i.sd_spics i.sd_clk i.sd_miso i.sd_mosi i.format_option i.sd_speed -- i.ior }
 	C(sd_unmount)		     //c sd-unmount	{ -- }
+	C(mysetvbuf)		     //c setvbuf        { i.handle  i.method a.buf i.size -- i.res }
 };
+
+

src/app/esp32-extra/files.fth

@@ -35,10 +35,11 @@ create &valid-paths ," /spiffs/" ," /sdcard/"
    &valid-paths +str count 2swap $= r> or
 ;
 
-: get-path  ( - path$ )  0. -9 open-file drop cscount ;
+: get-path     ( - path$ )  0. -9 open-file drop cscount ;
+: .path        ( - ) get-path type ;
 : expand-name  ( name$ - fullname$ )  negate -9 open-file drop cscount ;
 
-: set-path  ( path$ - )
+: set-path     ( path$ - )
    2dup valid-path?   if
        0. -9 open-file drop swap cmove
    else

src/app/esp32-extra/interface.h

@@ -56,7 +56,7 @@ char *dirent_name(void *ent);
 void rename_file(char *new, char *old);
 cell fs_avail(void);
 
-void us(cell us);
+void us(uint32_t us);
 
 void esp_deep_sleep(uint64_t time_in_us);
 

src/app/esp32-extra/sdcard.fth

@@ -51,6 +51,9 @@ Change in menuconfig: Component config > FAT Filesystem support > Long filename
   mount-sd-card
 ;
 
+: spiffs ( - ) s" /spiffs/" set-path ;
+: sdcard ( - ) s" /sdcard/" set-path ;
+
 0 [if] \ EG:
 
 .SDcard-settings sd-mount .