Print data

[dyoshida]

dump (macro) dumps specified values.
However, Recordset is a class object, not a value.
Therefore, the following code is necessary to dump data registered using the record set

Code:

{curl 8.0 applet}

{define-proc {output-recordset rs:RecordSet}:void
    {for f in rs.fields do
        {outfmt {format "%s, ", f.name}}
    }
    {outfmt "\n"}
    
    {for r in rs do
        {for f in rs.fields do
            {outfmt {format "%s, ", r[f.name]}}
        }
        {outfmt "\n"}
    }
}

{let people:RecordSet =
    {RecordSet
        {RecordFields
            {RecordField
                "First", caption = "First Name", domain = String
            },
            {RecordField
                "Last", caption = "Last Name", domain = String
            },
            {RecordField
                "Age", domain = int
            }
        },
        {RecordData First = "John", Last = "Smith", Age = 25},
        {RecordData First = "Jane", Last = "Smith", Age = 29},
        {RecordData First = "Jane", Last = "Jones", Age = 28}
    }
}

{output-recordset people}