Adding Oofda & Poke, fix copyright notice.

Adding an experimental Object Sytem (Oofda).
Adding an experimental DI Framework (Poke).

attic/oofda/lib/array.fs

@@ -0,0 +1,31 @@
+\ 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.
+
+needs ../oofda.fs
+
+class Array
+  value data
+  value length
+  value capacity
+  : .construct ( n -- ) to capacity
+                        here to data capacity cells allot
+                        0 to length ;
+  : .get ( n -- n ) cells data + @ ;
+  : .set ( n n -- ) cells data + ! ;
+  : .length ( -- n ) length ;
+  : .capacity ( -- n ) capacity ;
+  : .append ( n -- ) this .length this .capacity >= throw
+                     this .length this .set 1 +to length ;
+  : .length ( -- n ) length ;
+end-class

attic/oofda/lib/logging.fs

@@ -0,0 +1,37 @@
+\ 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.
+
+needs ../oofda.fs
+
+class Logger
+  m: .logString
+  : .cr   nl >r rp@ 1 this .logString rdrop ;
+  : .logNumber ( n -- ) <# #s #> this .logString ;
+  : .log ( a n -- ) this .logString this .cr ;
+end-class
+
+class NullLogger extends Logger
+  : .logString ( a n -- ) 2drop ;
+end-class
+
+class ConsoleLogger extends Logger
+  : .logString ( a n -- ) type ;
+end-class
+
+class FileLogger extends Logger
+  value handle
+  : .construct ( a n -- ) w/o create-file throw to handle ;
+  : .logString ( a n -- ) handle write-file drop ;
+  : .close   handle close-file throw ;
+end-class

attic/oofda/lib/queue.fs

@@ -0,0 +1,28 @@
+\ 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.
+
+needs stack.fs
+
+class Queue
+  value stack1
+  value stack2
+  : .construct ( n -- ) dup Stack .new to stack1
+                            Stack .new to stack2 ;
+  : .push ( n -- ) stack1 .push ;
+  : .transfer   begin stack1 .empty? 0=
+                while stack1 .pop stack2 .push repeat ;
+  : .pop ( -- n ) stack2 .empty? if this .transfer then
+                  stack2 .pop ;
+  : .empty? ( -- f ) stack1 .empty? stack2 .empty? and ;
+end-class

attic/oofda/lib/stack.fs

@@ -0,0 +1,25 @@
+\ 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.
+
+needs ../oofda.fs
+
+class Stack
+  variable start
+  variable sp
+  : .construct ( n -- ) here start ! here sp ! cells allot ;
+  : .empty? ( -- f ) sp @ start @ = ;
+  : .push ( n -- ) sp @ ! cell sp +! ;
+  : .pop ( -- n ) this .empty? throw
+                  cell negate sp +! sp @ @ ;
+end-class

attic/oofda/lib/string.fs

@@ -0,0 +1,25 @@
+\ 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.
+
+needs ../oofda.fs
+
+class String
+  value length
+  value data
+  : .construct ( a n -- ) dup to length
+                          here to data
+                          here swap cmove
+                          length allot ;
+  : .get ( -- a n ) data length ;
+end-class