| C:\Users\Public\code\dotnet-wasm-todo-mvc>dotnet publish -c Debug | |
| MSBuild version 17.4.0+18d5aef85 for .NET | |
| Determining projects to restore... | |
| C:\Users\Public\code\dotnet-wasm-todo-mvc\TodoMVC.csproj : warning NU1803: You are running the 'restore' operation with an 'HTTP' source, 'http: | |
| //build.relexsolutions.com/dev-tools/nuget/'. Non-HTTPS access will be removed in a future version. Consider migrating to an 'HTTPS' source. [C: | |
| \Users\Public\code\dotnet-wasm-todo-mvc\TodoMVC.sln] | |
| C:\Users\Public\code\dotnet-wasm-todo-mvc\test\PlaywrightTests.csproj : warning NU1803: You are running the 'restore' operation with an 'HTTP' s | |
| ource, 'http://build.relexsolutions.com/dev-tools/nuget/'. Non-HTTPS access will be removed in a future version. Consider migrating to an 'HTTPS | |
| ' source. [C:\Users\Public\code\dotnet-wasm-todo-mvc\TodoMVC.sln] | |
| All projects are up-to-date for restore. |
| "seqlib" libload. | |
| DEFINE | |
| readlines == [] | |
| "1.txt" "ro" fopen | |
| [feof not] [fgets rolldown cons swap] while | |
| fclose reverse; | |
| shiftleft == 10 * +; | |
| chartoint == ord '0 ord -; | |
| toint == 0 [chartoint swap shiftleft] fold; |
| vocabulary quadratic also quadratic definitions | |
| vocabulary fdiscriminant also fdiscriminant definitions | |
| fvariable a | |
| fvariable b | |
| fvariable c | |
| previous definitions also fdiscriminant | |
| \ calculate the discriminant (b^2 - 4ac) | |
| : fdiscriminant ( a b c -- n ) |
| : """s s\" \"\"\"s" ; | |
| : s""" ( -- caddr u ) | |
| begin | |
| refill 0= if exit then | |
| source """s compare 0= if | |
| refill drop ( ignore the line ) | |
| 0 c, ( put zero terminator ) | |
| exit | |
| then |
| decimal | |
| s" utils.fs" included | |
| also utils | |
| vocabulary main-gl | |
| also main-gl definitions | |
| 640 constant #width | |
| 480 constant #height |
| 0 | |
| dup constant minmax:min cell + | |
| dup constant minmax:max cell + | |
| constant minmax | |
| \ The first element of each ability should be ability-score | |
| 0 constant ability-score | |
| 0 | |
| dup constant str:ability-score minmax + |
s" lib.fs" included ...
This file is valid Forth source code, but also a Markdown file thanks to Forth allowing to define new syntax. Anything outside fenced code blocks will be skipped by the Forth compiler/interpreter. This allows code to be written in the literate programming style.
| [199198.933] (II) Initializing extension XKEYBOARD | |
| [199198.934] (II) Initializing extension XC-MISC | |
| [199198.934] (II) Initializing extension SECURITY | |
| [199198.934] (II) Initializing extension XFIXES | |
| [199198.934] (II) Initializing extension RENDER | |
| [199198.934] (II) Initializing extension RANDR | |
| [199198.934] (II) Initializing extension COMPOSITE | |
| [199198.934] (II) Initializing extension DAMAGE | |
| [199198.934] (II) Initializing extension MIT-SCREEN-SAVER | |
| [199198.934] (II) Initializing extension DOUBLE-BUFFER |
| # Build stage | |
| FROM nvidia/opengl:1.0-glvnd-devel-ubuntu20.04 as builder | |
| # Install node 14.0 | |
| RUN apt-get update -y && \ | |
| apt-get install -y curl gnupg ca-certificates && \ | |
| curl -sL https://deb.nodesource.com/setup_14.x | bash - && \ | |
| apt-get install -y nodejs | |
| # See: https://github.com/stackgl/headless-gl#ubuntudebian |
| marker new | |
| \ dev words | |
| : edit s" emacs -Q example.fs" system new s" example.fs" included ; | |
| \ internal words | |
| variable dp1 \ backup for dp | |
| variable sdp here 100000 + sdp ! \ string dp |
