Simple Builder

Verse from sprintermax/UEFNVerseSnippets (VerseLogic/ExtraModules/Encoding/JSON/SimpleBuilder.verse), by sprintermax, under the MIT license. Pinned at commit 92767f566. Compile-checked and ready to adapt for UEFN.

• SimpleBuilder<public> := module {
      (JSONValue:json_value).AsUEValue<public>()<decides><transacts> : UE_JSON.value = UE_JSON.Parse[JSONValue.Value]
  
      json_value<public> := class<internal><abstract><allocates><computes> { var<protected> Value<public> : string = "" }
  
      json_array<public> := class<final><allocates><computes>(json_value) {
          AddInternal<private>(NewValue:string)<transacts>:json_array = {
              set Value = if (Value.Length <= 2) { "[{NewValue}]" } else {
                  (Value.Slice[0, Value.Length - 1] or "") + ",{NewValue}]"
              }; Self
          }
  
          Add<public>(NewValue:string)<transacts>:json_array = AddInternal("\"{NewValue}\"")
          Add<public>(NewValue:int)<transacts>:json_array = AddInternal("{NewValue}")
          Add<public>(NewValue:float)<transacts>:json_array = AddInternal("{NewValue}")
          Add<public>(JSONValue:json_value)<transacts>:json_array = AddInternal("{JSONValue.Value}")
          AddNull<public>()<transacts>:json_array = AddInternal("null")
      }