File tree 2 files changed +14
-3
lines changed
2 files changed +14
-3
lines changed Original file line number Diff line number Diff line change 1
- Red [
1
+ Rebol [
2
2
Title: "JSON codec"
3
+ Name: 'JSON
3
4
Purpose: "Convert Rebol value into JSON format and back."
4
- File: %json.red
5
+ File: %codec- json.r
5
6
Version: 0.1.0
6
7
Author: [
7
8
"Gregg Irwin" {
Original file line number Diff line number Diff line change @@ -960,7 +960,17 @@ if product = 'view [
960
960
foreach section [boot-base boot-sys boot-mezz] [
961
961
set section make block! 200
962
962
foreach file first mezz-files [
963
- append get section load join %../mezz/ file
963
+ file: load/header join %../mezz/ file
964
+ append get section either 'module = select file/1 'type [
965
+ compose /deep/only [
966
+ import module [
967
+ Title: (select file/1 'title)
968
+ Name: (select file/1 'name)
969
+ Version: (select file/1 'version)
970
+ Exports: (select file/1 'exports)
971
+ ] ( next file )
972
+ ]
973
+ ][ next file ]
964
974
]
965
975
remove-tests get section
966
976
mezz-files: next mezz-files
You can’t perform that action at this time.
0 commit comments