b64<< ( value object -- )


Vocabulary
accessors

Inputs
valuean object
objectan object


Outputs
None

Definition
IN: accessors

GENERIC: b64<< ( value object -- )


Methods
USING: accessors classes.struct classes.struct.private
tools.image ;

M: embedded-image-footer.union b64<<
T{ struct-slot-spec
{ name "b64" }
{ offset 0 }
{ class embedded-image-footer.64 }
{ initial
S{ embedded-image-footer.64
{ magic 0 }
{ image-offset 0 }
}
}
{ type embedded-image-footer.64 }
} write-struct-slot ; inline


USING: accessors classes.struct classes.struct.private
specialized-arrays.instances.alien.c-types.u64 tools.image ;

M: image-header.union b64<<
T{ struct-slot-spec
{ name "b64" }
{ offset 0 }
{ class image-header.64 }
{ initial
S{ image-header.64
{ magic 0 }
{ version 0 }
{ data-relocation-base 0 }
{ data-size 0 }
{ code-relocation-base 0 }
{ code-size 0 }
{ escaped-data-size 0 }
{ compressed-data-size 0 }
{ compressed-code-size 0 }
{ reserved-4 0 }
{ special-objects
u64-array{
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
}
}
}
}
{ type image-header.64 }
} write-struct-slot ; inline