• Update on lisp in Forth

    From none) (albert@21:1/5 to All on Tue Dec 26 20:13:05 2023
    I have updated the documentation and simplified the source at

    https://github.com/albertvanderhorst/forthlisp
    This is the lisp from Probst, original for gforth only.

    The lisp has been tested for pforth swiftforth mpeforth and
    gforth.
    Using the preambule.frt it also runs on versions of ciforth
    (lina wina).

    The advanced subdirectory contains a version based on
    ciforth objects and an approach that modifies the
    Forth parser instead of writing a repl loop in
    Forth.
    It suffices to make a slight modification to PARSE-NAME
    that will recognize other delimiters as well as blank space.
    In cooperation with the possibility to define PREFIX
    words this allows for a transparent solution for the
    parsing.

    This version is able to run the coins.scm example,
    calculating the possibilities to change 100 dollarcent
    in coins.

    Groetjes Albert
    --
    Don't praise the day before the evening. One swallow doesn't make spring.
    You must not say "hey" before you have crossed the bridge. Don't sell the
    hide of the bear until you shot it. Better one bird in the hand than ten in
    the air. First gain is a cat spinning. - the Wise from Antrim -

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From mhx@21:1/5 to none on Wed Dec 27 07:32:56 2023
    none wrote:

    [..]
    The lisp has been tested for pforth swiftforth mpeforth and
    gforth.

    It also runs on iForth64 (no changes).

    FORTH> cd C:UsersmarcelDownloadsforthlisp-ISO-simpleforthlisp-ISO-simple Directory: C:UsersmarcelDownloadsforthlisp-ISO-simpleforthlisp-ISO-simple ok FORTH> include lisp.fs
    Redefining `offset`
    Redefining `u`
    Redefining `lisp`
    Redefining `car`
    Redefining `cdr`
    Redefining `nameu`
    Redefining `namea`
    Redefining `xt`
    Redefining `lisp`
    Redefining `lisp` ok
    FORTH> include easy.fs ok
    FORTH> inc test.scm 4 120 ok
    [1]FORTH> .s
    Data: 0 ---
    System: ---
    Float: --- ok
    [1]FORTH> . 0 ok

    [..]

    -marcel

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)