caldav::test::ical_extract (private)

 caldav::test::ical_extract ical_text tag

Defined in packages/caldav/tcl/test/caldav-test-procs.tcl

extract tags from the ical text # TODO: could go into ical procs

Parameters:

ical_text (required)

tag (required)

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

        regsub -all "\n " $ical_text "" ical_text
        regsub -all "\r" $ical_text "" ical_text
        set result {}

        foreach line [split $ical_text \n] {
            if {[regexp "^${tag}(\;\[^:\]+|):(.*)$" $line . params value]} {
                if {$params ne ""} {
                    lappend result [list $params $value]
                } else {
                    lappend result $value
                }
            }
        }
    return $result

XQL Not present:

Generic, PostgreSQL, Oracle