unpickle-dispatch ( opcode -- value )

Vocabulary

pickle.private

Inputs

opcode

an object

Outputs

value

an object

Definition

USING: combinators kernel pickle sequences ;

IN: pickle.private

: unpickle-dispatch ( opcode -- value )
    +no-return+ swap {
        { 40 [ load-mark ] }
        { 46 [ drop stack pop ] }
        { 48 [ load-pop ] }
        { 49 [ load-pop-mark ] }
        { 50 [ load-dup ] }
        { 70 [ load-float ] }
        { 71 [ load-binfloat ] }
        { 73 [ load-int ] }
        { 74 [ load-binint ] }
        { 75 [ load-binint1 ] }
        { 76 [ load-long ] }
        { 77 [ load-binint2 ] }
        { 78 [ load-none ] }
        { 80 [ load-persid ] }
        { 81 [ load-binpersid ] }
        { 82 [ load-reduce ] }
        { 83 [ load-string ] }
        { 84 [ load-binstring ] }
        { 85 [ load-short-binstring ] }
        { 86 [ load-unicode ] }
        { 88 [ load-binunicode ] }
        { 97 [ load-append ] }
        { 98 [ load-build ] }
        { 99 [ load-global ] }
        { 100 [ load-dict ] }
        { 101 [ load-appends ] }
        { 103 [ load-get ] }
        { 104 [ load-binget ] }
        { 105 [ load-inst ] }
        { 106 [ load-long-binget ] }
        { 108 [ load-list ] }
        { 93 [ load-empty-list ] }
        { 111 [ load-obj ] }
        { 112 [ load-put ] }
        { 113 [ load-binput ] }
        { 114 [ load-long-binput ] }
        { 115 [ load-setitem ] }
        { 116 [ load-tuple ] }
        { 117 [ load-setitems ] }
        { 125 [ load-empty-dict ] }
        { 41 [ load-empty-tuple ] }
        { 128 [ load-proto ] }
        { 129 [ load-newobj ] }
        { 130 [ load-ext1 ] }
        { 131 [ load-ext2 ] }
        { 132 [ load-ext4 ] }
        { 133 [ load-tuple1 ] }
        { 134 [ load-tuple2 ] }
        { 135 [ load-tuple3 ] }
        { 136 [ load-true ] }
        { 137 [ load-false ] }
        { 138 [ load-long1 ] }
        { 139 [ load-long4 ] }
        { 66 [ load-binbytes ] }
        { 67 [ load-short-binbytes ] }
        { 140 [ load-short-binunicode ] }
        { 141 [ load-binunicode8 ] }
        { 142 [ load-binbytes8 ] }
        { 143 [ load-empty-set ] }
        { 144 [ load-additems ] }
        { 145 [ load-frozenset ] }
        { 146 [ load-newobj-ex ] }
        { 147 [ load-stack-global ] }
        { 148 [ load-memoize ] }
        { 149 [ load-frame ] }
        { 150 [ load-bytearray8 ] }
        { 151 [ load-readonly-buffer ] }
        { 152 [ load-next-buffer ] }
        [ invalid-opcode ]
    } case ;