add-stack ( args -- )

Vocabulary

gopher.cli

Inputs

args

an object

Outputs

None

Definition

USING: arrays kernel math sequences ;

IN: gopher.cli

: add-stack ( args -- )
    dup dup array? [ first ] when dup STACK find-url drop
    [ 2drop ] [
        URL ?first STACK find-url drop [
            over PAGE find-url drop [
                1 + dup STACK nth-url rot =
                [ 2drop ] [
                    STACK [ length ] [ delete-slice ] bi
                    STACK push STACK length 10 >
                    [ 0 STACK remove-nth! drop ] when
                ] if
            ] [ 2drop STACK push ] if
        ] [ drop STACK delete-all STACK push ] if*
    ] if ;