mime::parsetype (private)

 mime::parsetype token string

Defined in packages/acs-tcl/tcl/tcllib-doc-procs.tcl

Parse a Content-Type value for an internal MIME token.

Parameters:

token (required)

MIME parser token.

string (required)

Content-Type value to parse.

Returns:

Content type and parameters as a two-element list.

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

Testcases:

No testcase defined.

Source code:

    global errorCode errorInfo
    # FRINK: nocheck
    variable $token
    upvar 0 $token state

    variable typetokenL
    variable typelexemeL

    set state(input)   $string
    set state(buffer)  {}
    set state(lastC)   LX_END
    set state(comment) {}
    set state(tokenL)  $typetokenL
    set state(lexemeL) $typelexemeL

    set code [catch {mime::parsetypeaux $token $string} result]
    set ecode $errorCode
    set einfo $errorInfo

    unset state(input)    state(buffer)   state(lastC)    state(comment)  state(tokenL)   state(lexemeL)

    return -code $code -errorinfo $einfo -errorcode $ecode $result

XQL Not present:

Generic, PostgreSQL, Oracle