msyds/gyehoek-hs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

wip: printer
build / build (push) Successful in 1m33s
Details

Browse Source
This commit is contained in:
msyds
2026-08-21 15:01:31 -06:00
parent 6ff01a8607
commit b234a52d4b
40 changed files with 341 additions and 221 deletions
Download Patch File Download Diff File Expand all files Collapse all files
golden/print/flat
+1
View File
@@ -0,0 +1 @@
(가 나 다 라)
golden/print/long
+4
View File
@@ -0,0 +1,4 @@
(가
나
다
라)
golden/print/null
+1
View File
@@ -0,0 +1 @@
()
golden/read/bool/read
+5
View File
@@ -0,0 +1,5 @@
[ SynNone :< SimpleF ( SimpleBoolean True )
, SynNone :< SimpleF ( SimpleBoolean True )
, SynNone :< SimpleF ( SimpleBoolean False )
, SynNone :< SimpleF ( SimpleBoolean False )
]
golden/reader/bool/source.scm → golden/read/bool/source.scm
View File
golden/read/decimal/read
+9
View File
@@ -0,0 +1,9 @@
[ SynNone :< SimpleF
( SimpleNumber 45.0 )
, SynNone :< SimpleF
( SimpleNumber 5667.0 )
, SynNone :< SimpleF
( SimpleNumber
( -123.0 )
)
]
golden/reader/decimal/source.scm → golden/read/decimal/source.scm
View File
golden/reader/delimited-identifier/read → golden/read/delimited-identifier/read
View File
golden/reader/delimited-identifier/source.scm → golden/read/delimited-identifier/source.scm
View File
golden/reader/empty/read → golden/read/empty/read
View File
golden/reader/empty/source.scm → golden/read/empty/source.scm
View File
golden/read/list-dot-flat/read
+17
View File
@@ -0,0 +1,17 @@
[ SynNone :< CompoundF
( DotListF
(
( SynNone :< SimpleF
( SimpleSymbol "가" )
) :|
[ SynNone :< SimpleF
( SimpleSymbol "나" )
, SynNone :< SimpleF
( SimpleSymbol "다" )
]
)
( SynNone :< SimpleF
( SimpleSymbol "라" )
)
)
]
golden/reader/list-dot-flat/source.scm → golden/read/list-dot-flat/source.scm
View File
golden/read/list-flat/read
+19
View File
@@ -0,0 +1,19 @@
[ SynNone :< CompoundF
( ListF Ordinary
[ SynNone :< SimpleF
( SimpleSymbol "가" )
, SynNone :< SimpleF
( SimpleSymbol "나" )
, SynNone :< SimpleF
( SimpleSymbol "다" )
, SynNone :< SimpleF
( SimpleSymbol "라" )
, SynNone :< SimpleF
( SimpleNumber 1.0 )
, SynNone :< SimpleF
( SimpleNumber 2.0 )
, SynNone :< SimpleF
( SimpleNumber 3.0 )
]
)
]
golden/reader/list-flat/source.scm → golden/read/list-flat/source.scm
View File
golden/read/list/read
+40
View File
@@ -0,0 +1,40 @@
[ SynNone :< CompoundF
( DotListF
(
( SynNone :< SimpleF
( SimpleSymbol "a" )
) :|
[ SynNone :< SimpleF
( SimpleSymbol "b" )
, SynNone :< CompoundF
( ListF Ordinary
[ SynNone :< SimpleF
( SimpleSymbol "c" )
, SynNone :< SimpleF
( SimpleSymbol "d" )
]
)
]
)
( SynNone :< CompoundF
( ListF Ordinary
[ SynNone :< SimpleF
( SimpleSymbol "가" )
, SynNone :< CompoundF
( DotListF
(
( SynNone :< SimpleF
( SimpleSymbol "나" )
) :| []
)
( SynNone :< SimpleF
( SimpleSymbol "다" )
)
)
, SynNone :< SimpleF
( SimpleSymbol "라" )
]
)
)
)
]
golden/reader/list/source.scm → golden/read/list/source.scm
View File
golden/read/peculiar-identifier/read
+5
View File
@@ -0,0 +1,5 @@
[ SynNone :< SimpleF
( SimpleSymbol "+" )
, SynNone :< SimpleF
( SimpleSymbol "-" )
]
golden/reader/peculiar-identifier/source.scm → golden/read/peculiar-identifier/source.scm
View File
golden/reader/string-line-continuation/read → golden/read/string-line-continuation/read
View File
golden/reader/string-line-continuation/source.scm → golden/read/string-line-continuation/source.scm
View File
golden/read/string/read
+3
View File
@@ -0,0 +1,3 @@
[ SynNone :< SimpleF
( SimpleString "가나다라" )
]
golden/reader/string/source.scm → golden/read/string/source.scm
View File
golden/read/typical-identifier/read
+19
View File
@@ -0,0 +1,19 @@
[ SynNone :< SimpleF
( SimpleSymbol "abc" )
, SynNone :< SimpleF
( SimpleSymbol "bala-hwa$" )
, SynNone :< SimpleF
( SimpleSymbol "x!!!" )
, SynNone :< SimpleF
( SimpleSymbol "z" )
, SynNone :< SimpleF
( SimpleSymbol "z123" )
, SynNone :< SimpleF
( SimpleSymbol "나는너무졸리다" )
, SynNone :< SimpleF
( SimpleSymbol "學" )
, SynNone :< SimpleF
( SimpleSymbol "車室." )
, SynNone :< SimpleF
( SimpleSymbol "三個女人一臺戲。" )
]
golden/reader/typical-identifier/source.scm → golden/read/typical-identifier/source.scm
View File
golden/reader/bool/read
-9
View File
@@ -1,9 +0,0 @@
[ Fix
( SimpleF ( Boolean True ) )
, Fix
( SimpleF ( Boolean True ) )
, Fix
( SimpleF ( Boolean False ) )
, Fix
( SimpleF ( Boolean False ) )
]
golden/reader/decimal/read
-15
View File
@@ -1,15 +0,0 @@
[ Fix
( SimpleF
( Number 45.0 )
)
, Fix
( SimpleF
( Number 5667.0 )
)
, Fix
( SimpleF
( Number
( -123.0 )
)
)
]
golden/reader/list-dot-flat/read
-25
View File
@@ -1,25 +0,0 @@
[ Fix
( CompoundF
( DotListF
( Fix
( SimpleF
( Symbol "가" )
) :|
[ Fix
( SimpleF
( Symbol "나" )
)
, Fix
( SimpleF
( Symbol "다" )
)
]
)
( Fix
( SimpleF
( Symbol "라" )
)
)
)
)
]
golden/reader/list-flat/read
-35
View File
@@ -1,35 +0,0 @@
[ Fix
( CompoundF
( ListF
[ Fix
( SimpleF
( Symbol "가" )
)
, Fix
( SimpleF
( Symbol "나" )
)
, Fix
( SimpleF
( Symbol "다" )
)
, Fix
( SimpleF
( Symbol "라" )
)
, Fix
( SimpleF
( Number 1.0 )
)
, Fix
( SimpleF
( Number 2.0 )
)
, Fix
( SimpleF
( Number 3.0 )
)
]
)
)
]
golden/reader/list/read
-60
View File
@@ -1,60 +0,0 @@
[ Fix
( CompoundF
( DotListF
( Fix
( SimpleF
( Symbol "a" )
) :|
[ Fix
( SimpleF
( Symbol "b" )
)
, Fix
( CompoundF
( ListF
[ Fix
( SimpleF
( Symbol "c" )
)
, Fix
( SimpleF
( Symbol "d" )
)
]
)
)
]
)
( Fix
( CompoundF
( ListF
[ Fix
( SimpleF
( Symbol "가" )
)
, Fix
( CompoundF
( DotListF
( Fix
( SimpleF
( Symbol "나" )
) :| []
)
( Fix
( SimpleF
( Symbol "다" )
)
)
)
)
, Fix
( SimpleF
( Symbol "라" )
)
]
)
)
)
)
)
]
golden/reader/peculiar-identifier/read
-9
View File
@@ -1,9 +0,0 @@
[ Fix
( SimpleF
( Symbol "+" )
)
, Fix
( SimpleF
( Symbol "-" )
)
]
golden/reader/string/read
-5
View File
@@ -1,5 +0,0 @@
[ Fix
( SimpleF
( String "가나다라" )
)
]
golden/reader/typical-identifier/read
-37
View File
@@ -1,37 +0,0 @@
[ Fix
( SimpleF
( Symbol "abc" )
)
, Fix
( SimpleF
( Symbol "bala-hwa$" )
)
, Fix
( SimpleF
( Symbol "x!!!" )
)
, Fix
( SimpleF
( Symbol "z" )
)
, Fix
( SimpleF
( Symbol "z123" )
)
, Fix
( SimpleF
( Symbol "나는너무졸리다" )
)
, Fix
( SimpleF
( Symbol "學" )
)
, Fix
( SimpleF
( Symbol "車室." )
)
, Fix
( SimpleF
( Symbol "三個女人一臺戲。" )
)
]