// near line 882 forth.c

// Sun 24 Dec 23:02:02 UTC 2023

// The ESP32 on Wokwi is meant
// as a stand-in for the
// Uno R4 WiFi (does not
// exist on wokwi).

// Sun  2 Jul 16:18:33 UTC 2023

// end

camelforth-a.ino

diagram.json

/* n_sk_camelforth.cpp */
/* Wed 27 Dec 01:42:27 UTC 2023 */

#include "common.h"
#include <Arduino.h>

#define SERIAL_FORTH Serial

#ifdef __cplusplus
extern "C" {
#endif

void this_here();
void interpreter(void);
extern void this_here_now();

void print_message(char *message) {
  char buffer[32];
  snprintf(buffer, 31, "%s", message, '\000');
  SERIAL_FORTH.print(buffer);
}

void print_message_no_nl(char *message) {
  char buffer[32];
  snprintf(buffer, 31, "%s", message, '\000');
  SERIAL_FORTH.print(buffer);
}

void print_the_address(unsigned int *p) {
  char buffer[12];
  snprintf(buffer, 11, "\n%8x:", p, '\000');
  SERIAL_FORTH.print(buffer);
}

void print_the_addr_no_nl(unsigned int *p) {
  char buffer[12];
  snprintf(buffer, 11, "%8x:", p, '\000');
  SERIAL_FORTH.print(buffer);
}

void print_each_number(unsigned int *p) {
  char buffer[12];
  buffer[0] = '\000';
  snprintf(buffer, 11, "  %8X", *p, '\000');
  SERIAL_FORTH.print(buffer);
}

void print_dump_addr(unsigned char *p) {
  char buffer[24];
  buffer[0] = '\000';
  snprintf(buffer, 23, "\n%8x:", p,
           '\000'); // address at beginning of 16-byte line
  SERIAL_FORTH.print(buffer);
}

void print_dumped_char(unsigned char *p) {
  char buffer[24];
  buffer[0] = '\000';
  snprintf(buffer, 23, "%c", p, '\000');
  SERIAL_FORTH.print(buffer);
}

void print_dumped_byte(unsigned char *p) {
  char buffer[24];
  buffer[0] = '\000';
  snprintf(buffer, 23, " %02x", *p, '\000');
  SERIAL_FORTH.print(buffer);
}

void print_dumped_byte_no_nl(unsigned char *p) {
  char buffer[5];
  buffer[0] = '\000';
  snprintf(buffer, 4, "%02x", *p, '\000');
  SERIAL_FORTH.print(buffer);
}

/*
  sample run - DUMP word  - line count on TOS

  HEX EEDDCCBB 20 40 60 CR .S CR
  HEX 200024D4 30 - 40 DUMP CR .S

*/

char getch(void) {
  bool waiting_ch = 0;
  // for (int testing = 5; testing > 0; testing--) { ; }
  while (!waiting_ch) {
    bool waiting_now = SERIAL_FORTH.available();
    waiting_ch = waiting_now;
  }
  if (waiting_ch) {
    unsigned int ch = SERIAL_FORTH.read();
    // SERIAL_FORTH.println("DID SEE THIS LINE 101");
    SERIAL_FORTH.write(ch);
    return (unsigned int)ch;
  }
}

void putch(unsigned int c) {
  /* comment about all three keyboard chars specified 0x7f 0x8 &c. */
#ifdef WOKWI_VSCODE
  int result = c - 8;
  bool isBackspace = result == 0;
  bool notBackspace = !isBackspace;

  if (isBackspace) {
    SERIAL_FORTH.write(0x08);
    SERIAL_FORTH.write(0x20);
  }

  if (notBackspace) {
    SERIAL_FORTH.write(0x08);
  }

#endif // #ifdef WOKWI_VSCODE
  char q = (char)c;
  SERIAL_FORTH.write(q);
}

int getquery(void) {
  // return(UARTCharsAvail(UART0_BASE) != 0);
  return (0 != 0);
}

#ifndef LED_BUILTIN
#define LED_BUILTIN 15
#endif

void blinker() {
  digitalWrite(LED_BUILTIN, 1);
  delay(70);
  digitalWrite(LED_BUILTIN, 0);
  delay(400);
}

// void make_it_reset() { NVIC_SystemReset(); }
void make_it_reset() { ; }

#ifdef __cplusplus
}
#endif

void talker() { SERIAL_FORTH.println("jobs"); }

void trapped() {
  for (int count = 3; count > 0; count--) {
    blinker();
  }
  // talker();
  interpreter();
  while (-1)
    ;
}

void setup() {
  delay(2200);
  pinMode(LED_BUILTIN, OUTPUT);
  SERIAL_FORTH.begin(115200);
  SERIAL_FORTH.print("\nspecific to ESP32");
  SERIAL_FORTH.print("    vsc-camelforth-esp32  ");
  SERIAL_FORTH.println(
    "\n                                 Wed 27 Dec 01:41:27 UTC 2023");
  SERIAL_FORTH.println(
    "\n\n    rev f15e4d0    shred: a   branch: wokwi-ver-aa");
  SERIAL_FORTH.println("\n\n   : nd cr dup dump cr ;  \ 3FFC2C70 next dump ");
  // kinda seems like Serial1 is correct here 24 Dec 23z
  // Note: Serial1 was correct for ESP32 not UNO R4 WiFi m likely 25 Dec 23z
  // while(-1);
  trapped();
}

void loop() { ; }

/*

   Wed 27 Dec 01:46:10 UTC 2023

   arduino-cli compile --fqbn esp32:esp32:esp32

   Sketch uses 275269 bytes (21%) of program storage space. Maximum is 1310720
   bytes. Global variables use 37160 bytes (11%) of dynamic memory, leaving
   290520 bytes for local variables. Maximum is 327680 bytes.

*/

// anaconda penguin lupine wolf
// END.

n_sk_camelforth.cpp

forth.c

/****h* camelforth/forth.h
 * NAME
 *  forth.h
 * DESCRIPTION
 *  Header file for forth.c
 ******
 * LICENSE TERMS
 *  CamelForth in C
 *  copyright (c) 2016,2017 Bradford J. Rodriguez.
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 3 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program.  If not, see <http://www.gnu.org/licenses/>.
 *
 *  Commercial inquiries should be directed to the author at
 *  115 First St., #105, Collingwood, Ontario L9Y 4W3 Canada
 *  or via email to bj@camelforth.com
 */

/*
 * CONFIGURATION FLAGS
 */

// #define INTERPRETER_ONLY       /* to omit Forth compiler words */

/* define only one of the following */
// 2 July 2023 was enabled define LINUX
// #define LINUX                   /* for development under Linux */
// #define TIVA_C                 /* for use with TI TM4C12x */

/*
 * CONFIGURATION PARAMETERS
 */

#define CELL 4              /* CPU dependency, # of bytes/cell */
#define CELLWIDTH 32        /* # of bits/cell */
#define CELLMASK 0xffffffff /* mask for CELLWIDTH bits */

#define PSTACKSIZE 64 /* 64 cells */
#define RSTACKSIZE 64 /* 64 cells */
#define LSTACKSIZE 32 /* 32 cells */
#define USERSIZE 32   /* 32 cells */
#define TIBSIZE 84    /* 84 characters */
#define PADSIZE 84    /* 84 characters */
#define HOLDSIZE 34   /* 34 characters */

/*
 * DATA STRUCTURES
 */

#ifdef TIVA_C /* why won't TI compiler handle variable string? */
struct Header {
  void *link;          /* pointer to previous header */
  void *cfa;           /* pointer to high level def'n */
  unsigned char flags; /* immed flag and others */
  char nfa[13];        /* inline name string */
};
#else
struct Header {
  void *link;          /* pointer to previous header */
  void *cfa;           /* pointer to high level def'n */
  unsigned char flags; /* immed flag and others */
  char nfa[];          /* inline name string */
};
#endif

#define HEADER(name, prev, flags, namestring)                                  \
  const struct Header H##name = {(char *)H##prev.nfa, T##name, flags,          \
                                 namestring}
#define IMMEDIATE 1 /* immediate bit in flags */

#define CODE(name) void F##name(void *pfa)
#define PRIMITIVE(name) const void *T##name[] = {F##name}
#define THREAD(name) const void *T##name[]
#define OFFSET(n) (void *)(n * CELL) /* see CELL above, = 4 */
#define LIT(n) (void *)(n)

forth.h

fool.c

tty_io.c

#warning tried to include common.h and I hate intellisense on wokwi btw

// NEED a wokwi-specific trigger
// have one somewhere ;)
// no you must maintain on your own atm:

// ex.
// https://wokwi.com/projects/361670038747009025

#ifndef __COMMON_H__
#define __COMMON_H__

// swap these two to use wokwi webbed, or wokwi vscode:
#undef NOT_WOKWI
#define NOT_WOKWI
// #define NOT_WOKWI

#ifdef NOT_WOKWI
#define HAVE_FOUND_NON_WOKWI_ENVIRONMENT
#warning this is not wokwi

#ifndef WOKWI_VSCODE

#define WOKWI_VSCODE

#endif
#endif
#ifndef NOT_WOKWI
#define HAVE_FOUND_WOKWI_ENVIRONMENT
#undef WOKWI_VSCODE
#warning this is very much wokwi
#endif
#endif // #ifndef __COMMON_H__

// end.