call-continue ( params quot1: ( params -- obj assoc ) quot2: ( ... -- ... ) -- seq )
MediaWiki API

Next:

api-call ( params -- assoc )

Vocabulary
mediawiki.api

Inputs

params	an assoc of API call parameters
quot1	a quotation with stack effect ( params -- obj assoc )
quot2	a quotation with stack effect ( ... -- ... )

Outputs

seq	a sequence

Word description
Calls the API until all input is consumed.

Notes
This word is used in the implementation of query.

Examples

USING: mediawiki.api assocs kernel ; { { "meta" "tokens" } { "type" "watch" } } query "watchtoken" of "Category:Concatenative programming languages" "Category:Stack-oriented programming languages" [| token cat | { { "action" "watch" } { "generator" "categorymembers" } { "gcmtitle" cat } { "gcmnamespace" 0 } { "gcmtype" "page" } { "gcmlimit" 50 } { "token" token } } [ api-call dup ] [ ] call-continue drop ] bi-curry@ bi

Definition

USING: assocs kernel sequences ;

IN: mediawiki.api

:: call-continue
    ( params quot1: ( params -- obj assoc ) quot2: ( ... -- ... ) -- seq )
    f f
    [ "continue" of ] [
        params assoc-union quot1 call
        [ quot2 call >alist append ] dip
    ] do while* ; inline