duskos

commit 620a31659e9f880cbf5f1cefa88649909a8cd21a
parent 65de6583f2b08941150f620368399b2faa19cc53
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Sat, 13 May 2023 11:07:19 -0400

Remove the docstring mechanism

It was added too soon. Later, I'll re-add it.

Diffstat:
M
fs/drv/pc/pci.fs
 | 
2
+-
M
fs/lib/fmt.fs
 | 
2
+-
M
fs/lib/meta.fs
 | 
5
-----
M
fs/xcomp/bootlo.fs
 | 
4
----

4 files changed, 2 insertions(+), 11 deletions(-)
diff --git a/fs/drv/pc/pci.fs b/fs/drv/pc/pci.fs
@@ -138,7 +138,7 @@ $3f pcifield1 pci0.maxlatency "Max latency"
 
 : .pciaddr pcibus .x1 ':' emit pcislot .x1 '.' emit pcifunc . spc> ;
 
-\\ Print current PCI device in a one line summary
+\ Print current PCI device in a one line summary
 : .pciln ( -- )
   .pciaddr summaryfields 5 for ( a )
     @+ dup _getdesc stype spc> execute .x? spc> next drop nl> ;
diff --git a/fs/lib/fmt.fs b/fs/lib/fmt.fs
@@ -40,7 +40,7 @@ struct+[ IO
 : .x1 stdio :.x1 ;
 : .x2 stdio :.x2 ;
 : .x stdio :.x ;
-\\ print in hexadecimal with a width that depends on the value
+\ print in hexadecimal with a width that depends on the value
 : .x? dup $ffff > if .x else dup $ff > if .x2 else .x1 then then ;
 : . stdio :. ;
 
diff --git a/fs/lib/meta.fs b/fs/lib/meta.fs
@@ -17,8 +17,3 @@
 
 : findmeta ( id ll -- ll )
   begin dup while 2dup CELLSZ + @ <> while repeat then nip ;
-
-\ Docstring
-: .doc ( w -- ) w>e emeta begin ( ll )
-    EMETA_DOCLINE swap findmeta ?dup while ( ll )
-    dup 'emetadata begin c@+ dup emit LF = until drop llnext repeat ;
diff --git a/fs/xcomp/bootlo.fs b/fs/xcomp/bootlo.fs
@@ -280,10 +280,6 @@ code []= ( a1 a2 u -- f )
 : [if] not if S" [then]" begin word over s= until drop then ;
 alias noop [then]
 
-$01 const EMETA_DOCLINE \ a doc strings that ends with LF
-\ a \\ comment goes before the creation of the word it comments
-: \\ nextmeta lladd drop EMETA_DOCLINE , begin in< dup c, LF = until ;
-
 code move ( src dst u -- )
   W=0>Z, 0 Z) branchC, W>A, begin \ A=u
     PSP) 4 +) 8b) [@], PSP) 8b) [!],