986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje\ CDDL HEADER START
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje\ The contents of this file are subject to the terms of the
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje\ Common Development and Distribution License (the "License").
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje\ You may not use this file except in compliance with the License.
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje\ You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje\ See the License for the specific language governing permissions
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje\ and limitations under the License.
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje\ When distributing Covered Code, include this CDDL HEADER in each
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje\ file and include the License file at usr/src/OPENSOLARIS.LICENSE.
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje\ If applicable, add the following below this CDDL HEADER, with the
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje\ fields enclosed by brackets "[]" replaced with your own identifying
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje\ information: Portions Copyright [yyyy] [name of copyright owner]
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje\ CDDL HEADER END
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum\ Copyright 2010 Sun Microsystems, Inc. All rights reserved.
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson\ Use is subject to license terms.
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome\ Copyright 2015 Toomas Soome <tsoome@me.com>
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setjepurpose: ZFS file system support package
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaumcopyright: Copyright 2010 Sun Microsystems, Inc. All Rights Reserved
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje" /packages" get-package push-package
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje fs-pkg$ device-name diag-cr?
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 instance value temp-space
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ fcode is still 32b on 64b sparc-v9, so
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ we need to override some arithmetic ops
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ stack ops and logical ops (dup, and, etc) are 64b
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : xcmp ( x1 x2 -- -1|0|1 )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2drop 2drop -1 ( lt )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2drop 1 ( gt )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2drop -1 ( lt )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw else u> if ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then then then then ( -1|0|1 )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : x< ( x1 x2 -- <? ) xcmp -1 = ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : x> ( x1 x2 -- >? ) xcmp 1 = ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje\ : x= ( x1 x2 -- =? ) xcmp 0= ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : x<> ( x1 x2 -- <>? ) xcmp 0<> ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : x0= ( x -- 0=? ) xlsplit 0= swap 0= and ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje /buf-len instance buffer: numbuf
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : (xu.) ( u -- u$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje numbuf /buf-len + swap ( adr u )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje d# 10 /mod swap ( adr u' rem )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje ascii 0 + ( adr u' c )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje rot 1- tuck c! ( u adr' )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje swap dup 0= ( adr u done? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje until drop ( adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup numbuf - /buf-len swap - ( adr len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ pool name
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje /buf-len instance buffer: bootprop-buf
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : bootprop$ ( -- prop$ ) bootprop-buf cscount ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ decompression
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ uts/common/os/compress.c has a definitive theory of operation comment
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ on lzjb, but here's the reader's digest version:
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ repeated phrases are replaced by referenced to the original
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ y a d d a _ y a d d a _ y a d d a , _ b l a h _ b l a h _ b l a h
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ y a d d a _ 6 11 , _ b l a h 5 10
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ where 6 11 means memmove(ptr, ptr - 6, 11)
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ data is separated from metadata with embedded copymap entries
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ every 8 items e.g.,
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ 0x40 y a d d a _ 6 11 , 0x20 _ b l a h 5 10
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ the copymap has a set bit for copy refercences
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ and a clear bit for bytes to be copied directly
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ the reference marks are encoded with match-bits and match-min
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ byte[0] = ((mlen - MATCH_MIN) << (NBBY - MATCH_BITS) | (off >> NBBY)
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ byte[1] = (uint8_t)off
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : pow2 ( n -- 2**n ) 1 swap lshift ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ assume MATCH_BITS=6 and MATCH_MIN=3
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 6 constant mbits
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 3 constant mmin
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 8 mbits - constant mshift
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje d# 16 mbits - pow2 1- constant mmask
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : decode-src ( src -- mlen off )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup c@ swap 1+ c@ ( c[0] c[1] )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje over mshift rshift mmin + ( c[0] c[1] mlen )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje -rot swap bwjoin mmask and ( mlen off )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ equivalent of memmove(dst, dst - off, len)
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ src points to a copy reference to be decoded
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : mcopy ( dend dst src -- dend dst' )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje decode-src ( dend dst mlen off )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2 pick swap - >r ( dent dst mlen r: cpy )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 1- dup 0>= ( dend dst mlen' any? r: cpy )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2over > and ( dend dst mlen !done? r : cpy )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje while ( dend dst mlen r: cpy )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje swap r> dup 1+ >r c@ ( dend mlen dst c r: cpy' )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje over c! 1+ swap ( dend dst' mlen r: cpy )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje repeat ( dend dst' mlen r: cpy )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r> 2drop ( dend dst )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : lzjb ( src dst len -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje over + swap ( src dend dst )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje rot >r ( dend dst r: src )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ setup mask so 1st while iteration fills map
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 7 pow2 2swap ( map mask dend dst r: src )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje begin 2dup > while
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2swap 1 lshift ( dend dst map mask' r: src )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup 8 pow2 = if
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ fetch next copymap
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2drop ( dend dst r: src )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r> dup 1+ >r c@ 1 ( dend dst map' mask' r: src' )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( dend dst map mask r: src' )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ if (map & mask) we hit a copy reference
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ else just copy 1 byte
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2swap 2over and if ( map mask dend dst r: src )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r> dup 2+ >r ( map mask dend dst src r: src' )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje mcopy ( map mask dend dst' r: src )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r> dup 1+ >r c@ ( map mask dend dst c r: src' )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje over c! 1+ ( map mask dend dst' r: src )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje repeat ( map mask dend dst r: src )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2drop 2drop r> drop ( )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome \ decode lz4 buffer header, returns src addr and len
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome : lz4_sbuf ( addr -- s_addr s_len )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup C@ 8 lshift swap 1+ ( byte0 addr++ )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup C@ ( byte0 addr byte1 )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome rot ( addr byte1 byte0 )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome or d# 16 lshift swap 1+ ( d addr++ )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup C@ 8 lshift ( d addr byte2 )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap 1+ ( d byte2 addr++ )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup C@ swap 1+ ( d byte2 byte3 addr++ )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome -rot ( d s_addr byte2 byte3 )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome or ( d s_addr d' )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome rot ( s_addr d' d )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome or ( s_addr s_len )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 4 constant STEPSIZE
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 8 constant COPYLENGTH
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 5 constant LASTLITERALS
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 4 constant ML_BITS
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome d# 15 constant ML_MASK \ (1<<ML_BITS)-1
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 4 constant RUN_BITS \ 8 - ML_BITS
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome d# 15 constant RUN_MASK \ (1<<RUN_BITS)-1
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome \ A32(d) = A32(s); d+=4; s+=4
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome : lz4_copystep ( dest source -- dest' source')
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 2dup swap 4 move
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap 4 + ( dest+4 source+4 )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome \ do { LZ4_COPYPACKET(s, d) } while (d < e);
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome : lz4_copy ( e d s -- e d' s' )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome begin ( e d s )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome lz4_copystep
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome lz4_copystep ( e d s )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome over ( e d s d )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome \ lz4 decompress translation from C code
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome \ could use some factorisation
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome : lz4 ( src dest len -- )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap dup >r swap \ save original dest to return stack.
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome rot ( dest len src )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome lz4_sbuf ( dest len s_buf s_len )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome over + ( dest len s_buf s_end )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 2swap ( s_buf s_end dest len )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome over + ( s_buf s_end dest dest_end )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 2swap ( dest dest_end s_buf s_end )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome begin 2dup < while
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap dup C@ ( dest dest_end s_end s_buf token )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap CHAR+ swap ( dest dest_end s_end s_buf++ token )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup ML_BITS rshift ( dest dest_end s_end s_buf token length )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome >r rot rot r> ( dest dest_end token s_end s_buf length )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup RUN_MASK = if
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome d# 255 begin ( dest dest_end token s_end s_buf length s )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap ( dest dest_end token s_end s_buf s length )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome >r >r ( ... R: length s )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 2dup > ( dest dest_end token s_end s_buf flag )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome r@ d# 255 = and ( dest dest_end token s_end s_buf flag R: length s )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome r> swap r> swap ( dest dest_end token s_end s_buf s length flag )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome >r swap r> ( dest dest_end token s_end s_buf length s flag )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome drop >r ( dest dest_end token s_end s_buf R: length )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup c@ swap CHAR+ ( dest dest_end token s_end s s_buf++ )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap ( dest dest_end token s_end s_buf s )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup ( dest dest_end token s_end s_buf s s )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome r> + swap ( dest dest_end token s_end s_buf length s )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome drop ( dest dest_end token s_end s_buf length )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome -rot ( dest dest_end token length s_end s_buf )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap >r >r ( dest dest_end token length R: s_end s_buf )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap >r ( dest dest_end length R: s_end s_buf token )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome rot ( dest_end length dest )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 2dup + ( dest_end length dest cpy )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 2dup > if ( dest > cpy )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome " lz4 overflow" die
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 3 pick COPYLENGTH - over < ( dest_end length dest cpy flag )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 3 pick ( dest_end length dest cpy flag length )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome r> ( dest_end length dest cpy flag length token )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome r> ( dest_end length dest cpy flag length token s_buf R: s_end )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome rot ( dest_end length dest cpy flag token s_buf length )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome over + ( dest_end length dest cpy flag token s_buf length+s_buf )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome r@ COPYLENGTH - > ( dest_end length dest cpy flag token s_buf flag )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap >r ( dest_end length dest cpy flag token flag R: s_end s_buf )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap >r ( dest_end length dest cpy flag flag R: s_end s_buf token )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome or if ( dest_end length dest cpy R: s_end s_buf token )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 3 pick over swap > if
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome " lz4 write beyond buffer end" die ( write beyond the dest end )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome then ( dest_end length dest cpy )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 2 pick ( dest_end length dest cpy length )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome r> r> swap ( dest_end length dest cpy length s_buf token R: s_end )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome r> ( dest_end length dest cpy length s_buf token s_end )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap >r >r ( dest_end length dest cpy length s_buf R: token s_end )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap over + ( dest_end length dest cpy s_buf s_buf+length )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome r@ > if ( dest_end length dest cpy s_buf R: token s_end )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome " lz4 read beyond source" die \ read beyond source buffer
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome nip ( dest_end length dest s_buf R: token s_end )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome >r ( dest_end length dest R: token s_end s_buf )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome over r@ ( dest_end length dest length s_buf )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome -rot move ( dest_end length )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome r> + r> r> drop < if
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome " lz4 format violation" die \ LZ4 format violation
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome r> drop \ drop original dest
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome exit \ parsing done
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap ( dest_end length cpy dest R: s_end s_buf token )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome r> r> swap >r ( dest_end length cpy dest s_buf R: s_end token )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome lz4_copy ( dest_end length cpy dest s_buf)
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome -rot ( dest_end length s_buf cpy dest )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome over - ( dest_end length s_buf cpy dest-cpy )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome rot ( dest_end length cpy dest-cpy s_buf )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap - ( dest_end length cpy s_buf )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup C@ swap ( dest_end length cpy b s_buf )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup 1+ C@ 8 lshift ( dest_end length cpy b s_buf w )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome rot or ( dest_end length cpy s_buf w )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 2 pick swap - ( dest_end length cpy s_buf ref )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap 2 + ( dest_end length cpy ref s_buf+2 )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome \ note: cpy is also dest, remember to save it
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome -rot ( dest_end length s_buf cpy ref )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup ( dest_end length s_buf cpy ref ref )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome \ now we need original dest
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome r> r> swap r@ ( dest_end length s_buf cpy ref ref s_end token dest )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome -rot swap >r >r
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome " lz4 reference outside buffer" die \ reference outside dest buffer
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome then ( dest_end length s_buf op ref )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 2swap ( dest_end op ref length s_buf )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap ( dest_end op ref s_buf length R: dest s_end token )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome \ get matchlength
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome drop r> ML_MASK and ( dest_end op ref s_buf length R: dest s_end )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup ML_MASK = if ( dest_end op ref s_buf length R: dest s_end )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome -1 \ flag to top
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome rot ( dest_end op ref length flag s_buf )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup r@ < ( dest_end op ref length flag s_buf flag )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome rot and ( dest_end op ref length s_buf flag )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup c@ ( dest_end op ref length s_buf s )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap 1+ ( dest_end op ref length s s_buf++ )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome -rot ( dest_end op ref s_buf length s )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap over + swap ( dest_end op ref s_buf length+s s )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome then ( dest_end op ref s_buf length R: dest s_end )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 2swap ( dest_end s_buf length op ref )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome \ copy repeated sequence
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 2dup - STEPSIZE < if ( dest_end s_buf length op ref )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome \ 4 times *op++ = *ref++;
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup c@ >r ( dest_end s_buf length op ref R: C )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome CHAR+ swap ( dest_end s_buf length ref++ op )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup r> swap c! CHAR+ swap ( dest_end s_buf length op ref )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup c@ >r ( dest_end s_buf length op ref R: C )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome CHAR+ swap ( dest_end s_buf length ref++ op )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup r> swap c! CHAR+ swap ( dest_end s_buf length op ref )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup c@ >r ( dest_end s_buf length op ref R: C )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome CHAR+ swap ( dest_end s_buf length ref++ op )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup r> swap c! CHAR+ swap ( dest_end s_buf length op ref )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup c@ >r ( dest_end s_buf length op ref R: C )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome CHAR+ swap ( dest_end s_buf length ref++ op )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup r> swap c! CHAR+ swap ( dest_end s_buf length op ref )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 2dup - ( dest_end s_buf length op ref op-ref )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 1 of 3 endof
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 2 of 2 endof
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 3 of 3 endof
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome - \ ref -= dec
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 2dup swap 4 move ( dest_end s_buf length op ref )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap STEPSIZE 4 - +
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap ( dest_end s_buf length op ref )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome lz4_copystep ( dest_end s_buf length op ref )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome -rot ( dest_end s_buf ref length op )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap over ( dest_end s_buf ref op length op )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome + STEPSIZE 4 - - ( dest_end s_buf ref op cpy R: dest s_end )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome \ if cpy > oend - COPYLENGTH
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 4 pick COPYLENGTH - ( dest_end s_buf ref op cpy oend-COPYLENGTH )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 2dup > if ( dest_end s_buf ref op cpy oend-COPYLENGTH )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap ( dest_end s_buf ref op oend-COPYLENGTH cpy )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 5 pick over < if
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome " lz4 write outside buffer" die \ write outside of dest buffer
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome then ( dest_end s_buf ref op oend-COPYLENGTH cpy )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome >r ( dest_end s_buf ref op oend-COPYLENGTH R: dest s_end cpy )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome -rot swap ( dest_end s_buf oend-COPYLENGTH op ref )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome lz4_copy ( dest_end s_buf oend-COPYLENGTH op ref )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome rot drop swap r> ( dest_end s_buf ref op cpy )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome >r ( dest_end s_buf ref op R: cpy )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome over ( dest_end s_buf ref op ref )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome c@ ( dest_end s_buf ref op C )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome over c! ( dest_end s_buf ref op )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome >r 1+ r> 1+ r> ( dest_end s_buf ref++ op++ cpy )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome nip ( dest_end s_buf ref op )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome dup 4 pick = if
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome \ op == dest_end we are done, cleanup
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome r> r> 2drop 2drop 2drop
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome ( dest_end s_buf ref op R: dest s_end )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome nip ( dest_end s_buf op )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome drop ( dest_end s_buf ref op cpy R: dest s_end)
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome -rot ( dest_end s_buf cpy ref op )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome swap ( dest_end s_buf cpy op ref )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome 2drop ( dest_end s_buf op )
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome -rot r> ( op dest_end s_buf s_end R: dest )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ ZFS block (SPA) routines
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson 1 constant def-comp#
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2 constant no-comp#
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson 3 constant lzjb-comp#
8a9764c34ea643308eed074c3fef1579dabe8461Toomas Soome d# 15 constant lz4-comp#
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje h# 2.0000 constant /max-bsize
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje d# 512 constant /disk-block
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje d# 128 constant /blkp
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson alias /gang-block /disk-block
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson \ the ending checksum is larger than 1 byte, but that
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson \ doesn't affect the math here
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson /gang-block 1-
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson /blkp / constant #blks/gang
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson : blk_offset ( bp -- n ) h# 8 + x@ -1 h# 7fff.ffff lxjoin and ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : blk_gang ( bp -- n ) h# 8 + x@ xlsplit nip d# 31 rshift ;
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome : blk_etype ( bp -- n ) h# 32 + c@ ;
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome : blk_comp ( bp -- n ) h# 33 + c@ h# 7f and ;
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome : blk_embedded? ( bp -- flag ) h# 33 + c@ h# 80 and h# 80 = ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : blk_psize ( bp -- n ) h# 34 + w@ ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : blk_lsize ( bp -- n ) h# 36 + w@ ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : blk_birth ( bp -- n ) h# 50 + x@ ;
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome : blke_psize ( bp -- n ) h# 34 + c@ 1 rshift h# 7f and 1+ ;
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome : blke_lsize ( bp -- n ) h# 34 + l@ h# 1ff.ffff and 1+ ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 instance value dev-ih
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 instance value blk-space
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 instance value gang-space
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : foff>doff ( fs-off -- disk-off ) /disk-block * h# 40.0000 + ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : fsz>dsz ( fs-size -- disk-size ) 1+ /disk-block * ;
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome : bp-dsize ( bp -- dsize )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome dup blk_embedded? if
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome blk_psize fsz>dsz
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome : bp-lsize ( bp -- lsize )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome dup blk_embedded? if
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome blk_lsize fsz>dsz
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson : (read-dva) ( adr len dva -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje blk_offset foff>doff dev-ih read-disk
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson : gang-read ( adr len bp gb-adr -- ) tokenizer[ reveal ]tokenizer
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ read gang block
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson tuck /gang-block rot (read-dva) ( adr len gb-adr )
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson \ loop through indirected bp's
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson dup /blkp #blks/gang * ( adr len gb-adr bp-list bp-list-len )
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson bounds do ( adr len gb-adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje i blk_offset x0= ?leave
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson \ calc subordinate read len
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson over i bp-dsize min ( adr len gb-adr sub-len )
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson 2swap swap ( gb-adr sub-len len adr )
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson \ nested gang block - recurse with new gang block area
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson i blk_gang if
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson 2swap ( len adr gb-adr sub-len )
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson 3dup swap /gang-block + ( len adr gb-adr sub-len adr sub-len gb-adr' )
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson i swap gang-read ( len adr gb-adr sub-len )
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson 2swap ( gb-adr sub-len len adr )
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson 3dup nip swap ( gb-adr sub-len len adr adr sub-len )
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson i (read-dva) ( gb-adr sub-len len adr )
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson then ( gb-adr sub-len len adr )
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson \ adjust adr,len and check if done
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson -rot over - ( gb-adr adr sub-len len' )
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson -rot + swap ( gb-adr adr' len' )
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson dup 0= ?leave
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson rot ( adr' len' gb-adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje /blkp +loop
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson : read-dva ( adr len dva -- )
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson dup blk_gang if
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson gang-space gang-read
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome : read-embedded ( adr len bp -- )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome \ loop over buf len, w in comment is octet count
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome \ note, we dont increment bp, but use index value of w
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome \ so we can skip the non-payload octets
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome swap 0 0 ( adr bp len 0 0 )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome rot 0 do ( adr bp 0 0 )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome I 8 mod 0= if ( adr bp w x )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome drop ( adr bp w )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome 2dup ( adr bp w bp w )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome xa+ ( adr bp w bp+w*8 )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome x@ swap ( adr bp x w )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome 1+ dup 6 = if 1+ else \ skip 6th word
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome dup h# a = if 1+ then \ skip 10th word
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome then ( adr bp x w )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome swap ( adr bp w x )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome 2swap ( w x adr bp )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome -rot ( w bp x adr )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome swap dup ( w bp adr x x )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome I 8 mod 4 < if
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome drop ( w bp adr x x.lo )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome nip ( w bp adr x x.hi )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome I 4 mod 8 * rshift h# ff and ( w bp adr x c )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome rot ( w bp x c adr )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome swap over ( w bp x adr c adr )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome I + c! ( w bp x adr )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome \ now we need to fix the stack for next pass
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome \ need to get ( adr bp w x )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome swap 2swap ( adr x w bp )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome -rot ( adr bp x w )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome swap ( adr bp w x )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ block read that check for holes, gangs, compression, etc
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : read-bp ( adr len bp -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ sparse block?
0d21b83c18c9449d0fa9b809c76225edbc5d54d2Toomas Soome dup x@ x0= ( addr len bp flag0 )
0d21b83c18c9449d0fa9b809c76225edbc5d54d2Toomas Soome swap dup 8 + x@ x0= ( addr len flag0 bp flag1 )
0d21b83c18c9449d0fa9b809c76225edbc5d54d2Toomas Soome rot ( addr len bp flag1 flag0 )
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson drop erase exit ( )
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson \ no compression?
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson dup blk_comp no-comp# = if
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson read-dva exit ( )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome \ read into blk-space. read is either from embedded area or disk
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome dup blk_embedded? if
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome dup blk-space over bp-dsize ( adr len bp bp blk-adr rd-len )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome rot read-embedded ( adr len bp )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome dup blk-space over bp-dsize ( adr len bp bp blk-adr rd-len )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome rot read-dva ( adr len bp )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome \ set up the stack for decompress
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome blk_comp >r ( adr len R: alg )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome blk-space -rot r> ( blk-adr adr len alg )
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome lzjb-comp# of lzjb endof
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome lz4-comp# of lz4 endof
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome def-comp# of lz4 endof \ isn't this writer only?
11b942e373071da9f760d7e6208bc79a7bbf7d3cToomas Soome " : unknown compression algorithm, only lzjb and lz4 are supported"
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ ZFS vdev routines
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje h# 1.c000 constant /nvpairs
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje h# 4000 constant nvpairs-off
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ xdr packed nvlist
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ 12B header
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ array of xdr packed nvpairs
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ 4B encoded nvpair size
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ 4B decoded nvpair size
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ 4B name string size
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ name string
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ 4B data type
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ 4B # of data elements
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje d# 12 constant /nvhead
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : >nvsize ( nv -- size ) l@ ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : >nvname ( nv -- name$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje /l 2* + dup /l + swap l@
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : >nvdata ( nv -- data )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje >nvname + /l roundup
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw \ convert nvdata to 64b int or string
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw : nvdata>x ( nvdata -- x )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw /l 2* + ( ptr )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw lxjoin ( x )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje alias nvdata>$ >nvname
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : nv-lookup ( nv name$ -- nvdata false | true )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje rot /nvhead + ( name$ nvpair )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje begin dup >nvsize while
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup >r >nvname ( name$ nvname$ r: nvpair )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2over $= if ( name$ r: nvpair )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2drop r> >nvdata ( nvdata )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje false exit ( nvdata found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( name$ r: nvpair )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r> dup >nvsize + ( name$ nvpair' )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 3drop true ( not-found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : scan-vdev ( -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje temp-space /nvpairs nvpairs-off ( adr len off )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dev-ih read-disk ( )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw temp-space " txg" nv-lookup if
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw " no txg nvpair" die
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw then nvdata>x ( txg )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw " detached mirror" die
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje temp-space " name" nv-lookup if
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw " no name nvpair" die
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then nvdata>$ ( pool$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje bootprop-buf swap move ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ ZFS ueber-block routines
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje d# 1024 constant /uber-block
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje d# 128 constant #ub/label
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje #ub/label /uber-block * constant /ub-ring
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje h# 2.0000 constant ubring-off
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : ub_magic ( ub -- n ) x@ ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : ub_txg ( ub -- n ) h# 10 + x@ ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : ub_timestamp ( ub -- n ) h# 20 + x@ ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : ub_rootbp ( ub -- p ) h# 28 + ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 instance value uber-block
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : ub-cmp ( ub1 ub2 -- best-ub )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ ub1 wins if ub2 isn't valid
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup ub_magic h# 00bab10c x<> if
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje drop exit ( ub1 )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ if ub1 is 0, ub2 wins by default
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje over 0= if nip exit then ( ub2 )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ 2 valid ubs, compare transaction groups
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje over ub_txg over ub_txg ( ub1 ub2 txg1 txg2 )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2drop nip exit ( ub2 )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( ub1 ub2 txg1 txg2 )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje x> if drop exit then ( ub1 )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ same txg, check timestamps
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje over ub_timestamp over ub_timestamp x> if
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje nip ( ub2 )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje drop ( ub1 )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ find best uber-block in ring, and copy it to uber-block
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : get-ub ( -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje temp-space /ub-ring ubring-off ( adr len off )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dev-ih read-disk ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 temp-space /ub-ring ( null-ub adr len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje bounds do ( ub )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje i ub-cmp ( best-ub )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje /uber-block +loop
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ make sure we found a valid ub
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw dup 0= if " no ub found" die then
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje uber-block /uber-block move ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ ZFS dnode (DMU) routines
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum d# 44 constant ot-sa#
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje d# 512 constant /dnode
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : dn_indblkshift ( dn -- n ) h# 1 + c@ ;
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : dn_nlevels ( dn -- n ) h# 2 + c@ ;
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : dn_bonustype ( dn -- n ) h# 4 + c@ ;
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : dn_datablkszsec ( dn -- n ) h# 8 + w@ ;
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : dn_bonuslen ( dn -- n ) h# a + w@ ;
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : dn_blkptr ( dn -- p ) h# 40 + ;
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : dn_bonus ( dn -- p ) h# c0 + ;
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : dn_spill ( dn -- p ) h# 180 + ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 instance value dnode
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ indirect cache
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ ind-cache is a 1 block indirect block cache from dnode ic-dn
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ ic-bp and ic-bplim point into the ic-dn's block ptr array,
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ either in dn_blkptr or in ind-cache ic-bp is the ic-blk#'th
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ block ptr, and ic-bplim is limit of the current bp array
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ the assumption is that reads will be sequential, so we can
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ just increment ic-bp
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 instance value ind-cache
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 instance value ic-dn
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 instance value ic-blk#
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 instance value ic-bp
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 instance value ic-bplim
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : dn-bsize ( dn -- bsize ) dn_datablkszsec /disk-block * ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : dn-indsize ( dn -- indsize ) dn_indblkshift pow2 ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : dn-indmask ( dn -- mask ) dn-indsize 1- ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ recursively climb the block tree from the leaf to the root
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : blk@lvl>bp ( dn blk# lvl -- bp ) tokenizer[ reveal ]tokenizer
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje >r /blkp * over dn_nlevels ( dn bp-off #lvls r: lvl )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ at top, just add dn_blkptr
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r@ = if ( dn bp-off r: lvl )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje swap dn_blkptr + ( bp r: lvl )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r> drop exit ( bp )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( dn bp-off r: lvl )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ shift bp-off down and find parent indir blk
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2dup over dn_indblkshift rshift ( dn bp-off dn blk# r: lvl )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r> 1+ blk@lvl>bp ( dn bp-off bp )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw \ read parent indir blk and index
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje rot tuck dn-indsize ( bp-off dn bp len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje ind-cache swap rot read-bp ( bp-off dn )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dn-indmask and ( bp-off' )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje ind-cache + ( bp )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ return end of current bp array
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : bplim ( dn bp -- bp-lim )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje over dn_nlevels 1 = if
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje drop dn_blkptr ( bp0 )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 3 /blkp * + ( bplim )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 1+ swap dn-indsize ( bp+1 indsz )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje roundup ( bplim )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ return the lblk#'th block ptr from dnode
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : lblk#>bp ( dn blk# -- bp )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2dup ( dn blk# dn blk# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje ic-blk# <> swap ic-dn <> or ( dn blk# cache-miss? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje ic-bp ic-bplim = ( dn blk# cache-miss? cache-empty? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje or if ( dn blk# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2dup 1 blk@lvl>bp ( dn blk# bp )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup to ic-bp ( dn blk# bp )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje swap to ic-blk# ( dn bp )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2dup bplim to ic-bplim ( dn bp )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje over to ic-dn
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then 2drop ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje ic-blk# 1+ to ic-blk#
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje ic-bp dup /blkp + to ic-bp ( bp )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ ZFS attribute (ZAP) routines
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 1 constant fzap#
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 3 constant uzap#
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje d# 64 constant /uzap
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje d# 24 constant /lf-chunk
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje d# 21 constant /lf-arr
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje h# ffff constant chain-end#
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje h# 100 constant /lf-buf
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje /lf-buf instance buffer: leaf-value
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje /lf-buf instance buffer: leaf-name
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : +le ( len off -- n ) + w@ ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : le_next ( le -- n ) h# 2 +le ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : le_name_chunk ( le -- n ) h# 4 +le ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : le_name_length ( le -- n ) h# 6 +le ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : le_value_chunk ( le -- n ) h# 8 +le ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : le_value_length ( le -- n ) h# a +le ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : la_array ( la -- adr ) 1+ ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : la_next ( la -- n ) h# 16 + w@ ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 instance value zap-space
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ setup leaf hash bounds
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : >leaf-hash ( dn lh -- hash-adr /hash )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje /lf-chunk 2* + ( dn hash-adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ size = (bsize / 32) * 2
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje swap dn-bsize 4 rshift ( hash-adr /hash )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : >leaf-chunks ( lf -- ch0 ) >leaf-hash + ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ convert chunk # to leaf chunk
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : ch#>lc ( dn ch# -- lc )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje /lf-chunk * ( dn lc-off )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje swap zap-space >leaf-chunks ( lc-off ch0 )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ assemble chunk chain into single buffer
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : get-chunk-data ( dn ch# adr -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup >r /lf-buf erase ( dn ch# r: adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2dup ch#>lc nip ( dn la r: adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup la_array ( dn la la-arr r: adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r@ /lf-arr move ( dn la r: adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r> /lf-arr + >r ( dn la r: adr' )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje la_next dup chain-end# = ( dn la-ch# end? r: adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje until r> 3drop ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ get leaf entry's name
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : entry-name$ ( dn le -- name$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2dup le_name_chunk ( dn le dn la-ch# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje leaf-name get-chunk-data ( dn le )
b8b2ae86d7bf3651ade08dc386dbd2317d3e1febjgj nip le_name_length 1- ( len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje leaf-name swap ( name$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ return entry value as int
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : entry-int-val ( dn le -- n )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje le_value_chunk ( dn la-ch# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje leaf-value get-chunk-data ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje leaf-value x@ ( n )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje[ifdef] strlookup
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ get leaf entry's value as string
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : entry-val$ ( dn le -- val$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2dup le_value_chunk ( dn le dn la-ch# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje leaf-value get-chunk-data ( dn le )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje nip le_value_length ( len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje leaf-value swap ( name$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ apply xt to entry
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : entry-apply ( xt dn le -- xt dn false | ??? true )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje over >r ( xt dn le r: dn )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje rot dup >r execute if ( ??? r: xt dn )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r> r> 2drop true ( ??? true )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r> r> false ( xt dn false )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ apply xt to every entry in chain
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : chain-apply ( xt dn ch# -- xt dn false | ??? true )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2dup ch#>lc nip ( xt dn le )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup >r entry-apply if ( ??? r: le )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r> drop true exit ( ??? found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( xt dn r: le )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r> le_next ( xt dn ch# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup chain-end# = ( xt dn ch# end? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje until drop ( xt dn )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje false ( xt dn false )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ apply xt to every entry in leaf
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : leaf-apply ( xt dn blk# -- xt dn false | ??? true )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ read zap leaf into zap-space
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2dup lblk#>bp ( xt dn blk# bp )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje nip over dn-bsize zap-space ( xt dn bp len adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje swap rot read-bp ( xt dn )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ call chunk-look for every valid chunk list
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup zap-space >leaf-hash ( xt dn hash-adr /hash )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje bounds do ( xt dn )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje i w@ dup chain-end# <> if ( xt dn ch# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje chain-apply if ( ??? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje unloop true exit ( ??? found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( xt dn )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje else drop then ( xt dn )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje false ( xt dn not-found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ apply xt to every entry in fzap
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : fzap-apply ( xt dn fz -- ??? not-found? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ blk# 1 is always the 1st leaf
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje >r 1 leaf-apply if ( ??? r: fz )
b8b2ae86d7bf3651ade08dc386dbd2317d3e1febjgj r> drop true exit ( ??? found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then r> ( xt dn fz )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ call leaf-apply on every non-duplicate hash entry
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ embedded hash is in 2nd half of fzap block
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje over dn-bsize tuck + ( xt dn bsize hash-eadr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje swap 2dup 2/ - ( xt dn hash-eadr bsize hash-adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje nip do ( xt dn )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje i x@ dup 1 <> if ( xt dn blk# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje leaf-apply if ( ??? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje unloop true exit ( ??? found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( xt dn )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje else drop then ( xt dn )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2drop false ( not-found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : mze_value ( uz -- n ) x@ ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : mze_name ( uz -- p ) h# e + ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : uzap-name$ ( uz -- name$ ) mze_name cscount ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ apply xt to each entry in micro-zap
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : uzap-apply ( xt uz len -- ??? not-found? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje bounds do ( xt )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje i swap dup >r ( uz xt r: xt )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje execute if ( ??? r: xt )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r> drop ( ??? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje unloop true exit ( ??? found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then r> ( xt )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje /uzap +loop
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje drop false ( not-found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ match by name
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : fz-nmlook ( prop$ dn le -- prop$ false | prop$ dn le true )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2dup entry-name$ ( prop$ dn le name$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2rot 2swap ( dn le prop$ name$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2over $= if ( dn le prop$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2swap true ( prop$ dn le true )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje else ( dn le prop$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2swap 2drop false ( prop$ false )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( prop$ false | prop$ dn le true )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ match by name
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : uz-nmlook ( prop$ uz -- prop$ false | prop$ uz true )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup >r uzap-name$ ( prop$ name$ r: uz )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2over $= if ( prop$ r: uz )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r> true ( prop$ uz true )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje else ( prop$ r: uz )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r> drop false ( prop$ false )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( prop$ false | prop$ uz true )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : zap-type ( zp -- n ) h# 7 + c@ ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : >uzap-ent ( adr -- ent ) h# 40 + ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ read zap block into temp-space
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : get-zap ( dn -- zp )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup 0 lblk#>bp ( dn bp )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje swap dn-bsize ( bp len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje temp-space swap ( bp adr len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje rot read-bp ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje temp-space ( zp )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ find prop in zap dnode
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : zap-lookup ( dn prop$ -- [ n ] not-found? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje rot dup get-zap ( prop$ dn zp )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup zap-type case
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje >uzap-ent swap dn-bsize ( prop$ uz len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje ['] uz-nmlook -rot ( prop$ xt uz len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje uzap-apply if ( prop$ uz )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje mze_value -rot 2drop ( n )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje false ( n found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje else ( prop$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2drop true ( !found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( [ n ] not-found? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje ['] fz-nmlook -rot ( prop$ xt dn fz )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje fzap-apply if ( prop$ dn le )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje entry-int-val ( prop$ n )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje -rot 2drop false ( n found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje else ( prop$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2drop true ( !found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( [ n ] not-found? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 3drop 2drop true ( !found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje endcase ( [ n ] not-found? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje[ifdef] strlookup
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : zap-lookup-str ( dn prop$ -- [ val$ ] not-found? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje rot dup get-zap ( prop$ dn zp )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup zap-type fzap# <> if ( prop$ dn zp )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2drop 2drop true exit ( !found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( prop$ dn zp )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje ['] fz-nmlook -rot ( prop$ xt dn fz )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje fzap-apply if ( prop$ dn le )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje entry-val$ 2swap 2drop false ( val$ found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje else ( prop$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2drop true ( !found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( [ val$ ] not-found? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : fz-print ( dn le -- false )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje entry-name$ type cr false
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : uz-print ( uz -- false )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje uzap-name$ type cr false
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : zap-print ( dn -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup get-zap ( dn zp )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup zap-type case
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje >uzap-ent swap dn-bsize ( uz len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje ['] uz-print -rot ( xt uz len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje uzap-apply ( false )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje ['] fz-print -rot ( xt dn fz )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje fzap-apply ( false )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 3drop false ( false )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje endcase ( false )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ ZFS object set (DSL) routines
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 1 constant pool-dir#
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : dd_head_dataset_obj ( dd -- n ) h# 8 + x@ ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : dd_child_dir_zapobj ( dd -- n ) h# 20 + x@ ;
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw : ds_snapnames_zapobj ( ds -- n ) h# 20 + x@ ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : ds_bp ( ds -- p ) h# 80 + ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 instance value mos-dn
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 instance value obj-dir
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 instance value root-dsl
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 instance value fs-dn
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ dn-cache contains dc-dn's contents at dc-blk#
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ dc-dn will be either mos-dn or fs-dn
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 instance value dn-cache
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 instance value dc-dn
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 instance value dc-blk#
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje alias >dsl-dir dn_bonus
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje alias >dsl-ds dn_bonus
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw : #dn/blk ( dn -- n ) dn-bsize /dnode / ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ read block into dn-cache
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : get-dnblk ( dn blk# -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje lblk#>bp dn-cache swap ( adr bp )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup bp-lsize swap read-bp ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ read obj# from objset dir dn into dnode
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : get-dnode ( dn obj# -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ check dn-cache
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2dup swap #dn/blk /mod ( dn obj# off# blk# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje swap >r nip ( dn blk# r: off# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2dup dc-blk# <> ( dn blk# dn !blk-hit? r: off# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje swap dc-dn <> or if ( dn blk# r: off# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ cache miss, fill from dir
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2dup get-dnblk
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje over to dc-dn
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup to dc-blk#
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( dn blk# r: off# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ index and copy
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2drop r> /dnode * ( off )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dn-cache + ( dn-adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dnode /dnode move ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ read meta object set from uber-block
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : get-mos ( -- )
c0dbe950192897247de6003f2dea1ca3c466fe01Toomas Soome mos-dn uber-block ub_rootbp ( adr bp )
c0dbe950192897247de6003f2dea1ca3c466fe01Toomas Soome dup bp-lsize swap read-bp
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : get-mos-dnode ( obj# -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje mos-dn swap get-dnode
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ get root dataset
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : get-root-dsl ( -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ read object dir
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje pool-dir# get-mos-dnode
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dnode obj-dir /dnode move
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ read root dataset
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje obj-dir " root_dataset" zap-lookup if
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw " no root_dataset" die
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje get-mos-dnode ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dnode root-dsl /dnode move
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw \ find snapshot of given dataset
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw : snap-look ( snap$ ds-obj# -- [ss-obj# ] not-found? )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw get-mos-dnode dnode >dsl-ds ( snap$ ds )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw ds_snapnames_zapobj get-mos-dnode ( snap$ )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw dnode -rot zap-lookup ( [ss-obj# ] not-found? )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw \ dsl dir to dataset
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw : dir>ds ( dn -- obj# ) >dsl-dir dd_head_dataset_obj ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ look thru the dsl hierarchy for path
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ this looks almost exactly like a FS directory lookup
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : dsl-lookup ( path$ -- [ ds-obj# ] not-found? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje root-dsl >r ( path$ r: root-dn )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje ascii / left-parse-string ( path$ file$ r: dn )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ get child dir zap dnode
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r> >dsl-dir dd_child_dir_zapobj ( path$ file$ obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje get-mos-dnode ( path$ file$ )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw \ check for snapshot names
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw ascii @ left-parse-string ( path$ snap$ file$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ search it
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw dnode -rot zap-lookup if ( path$ snap$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ not found
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw 2drop 2drop true exit ( not-found )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw then ( path$ snap$ obj# )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw get-mos-dnode ( path$ snap$ )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw \ lookup any snapshot name
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw \ must be last path component
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw 2swap nip if ( snap$ )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw 2drop true exit ( not-found )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw dnode dir>ds snap-look if ( )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw true exit ( not-found )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw then ( obj# )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw false exit ( obj# found )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw else 2drop then ( path$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dnode >r ( path$ r: dn )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje repeat ( path$ file$ r: dn)
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2drop 2drop r> drop ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ found it, return dataset obj#
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw dnode dir>ds ( ds-obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje false ( ds-obj# found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ get objset from dataset
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : get-objset ( adr dn -- )
c0dbe950192897247de6003f2dea1ca3c466fe01Toomas Soome >dsl-ds ds_bp dup bp-lsize swap read-bp
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ ZFS file-system (ZPL) routines
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 1 constant master-node#
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum 0 instance value bootfs-obj#
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum 0 instance value root-obj#
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum 0 instance value current-obj#
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum 0 instance value search-obj#
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum instance defer fsize ( dn -- size )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum instance defer mode ( dn -- mode )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum instance defer parent ( dn -- obj# )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum instance defer readlink ( dst dn -- )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum \ routines when bonus pool contains a znode
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje d# 264 constant /znode
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje d# 56 constant /zn-slink
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : zp_mode ( zn -- n ) h# 48 + x@ ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : zp_size ( zn -- n ) h# 50 + x@ ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : zp_parent ( zn -- n ) h# 58 + x@ ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje alias >znode dn_bonus
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : zn-fsize ( dn -- n ) >znode zp_size ;
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : zn-mode ( dn -- n ) >znode zp_mode ;
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : zn-parent ( dn -- n ) >znode zp_parent ;
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum \ copy symlink target to dst
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : zn-readlink ( dst dn -- )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum dup zn-fsize tuck /zn-slink > if ( dst size dn )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum \ contents in 1st block
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum temp-space over dn-bsize ( dst size dn t-adr bsize )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum rot 0 lblk#>bp read-bp ( dst size )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum temp-space ( dst size src )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum else ( dst size dn )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum \ contents in dnode
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum >znode /znode + ( dst size src )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum then ( dst size src )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum -rot move ( )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum \ routines when bonus pool contains sa's
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum \ SA header size when link is in dn_bonus
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum d# 16 constant /sahdr-link
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : sa_props ( sa -- n ) h# 4 + w@ ;
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : sa-hdrsz ( sa -- sz ) sa_props h# 7 >> ;
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum alias >sa dn_bonus
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : >sadata ( dn -- adr ) >sa dup sa-hdrsz + ;
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : sa-mode ( dn -- n ) >sadata x@ ;
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : sa-fsize ( dn -- n ) >sadata h# 8 + x@ ;
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : sa-parent ( dn -- n ) >sadata h# 28 + x@ ;
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum \ copy symlink target to dst
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : sa-readlink ( dst dn -- )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum dup >sa sa-hdrsz /sahdr-link <> if
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum \ contents in 1st attr of dn_spill
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum temp-space over dn_spill ( dst dn t-adr bp )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum dup bp-lsize swap read-bp ( dst dn )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum sa-fsize ( dst size )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum temp-space dup sa-hdrsz + ( dst size src )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum else ( dst dn )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum \ content in bonus buf
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum dup dn_bonus over dn_bonuslen + ( dst dn ebonus )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum swap sa-fsize tuck - ( dst size src )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum then ( dst size src )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum -rot move ( )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum \ setup attr routines for dn
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : set-attr ( dn -- )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum dn_bonustype ot-sa# = if
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum ['] sa-fsize to fsize
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum ['] sa-mode to mode
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum ['] sa-parent to parent
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum ['] sa-readlink to readlink
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum ['] zn-fsize to fsize
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum ['] zn-mode to mode
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum ['] zn-parent to parent
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum ['] zn-readlink to readlink
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : ftype ( dn -- type ) mode h# f000 and ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : dir? ( dn -- flag ) ftype h# 4000 = ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : symlink? ( dn -- flag ) ftype h# a000 = ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ read obj# from fs objset
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : get-fs-dnode ( obj# -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup to current-obj#
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje fs-dn swap get-dnode ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ get root-obj# from dataset
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : get-rootobj# ( ds-obj# -- fsroot-obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup to bootfs-obj#
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje get-mos-dnode ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje fs-dn dnode get-objset
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ get root obj# from master node
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje master-node# get-fs-dnode
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dnode " ROOT" zap-lookup if
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw " no ROOT" die
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( fsroot-obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : prop>rootobj# ( -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje obj-dir " pool_props" zap-lookup if
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw " no pool_props" die
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( prop-obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje get-mos-dnode ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dnode " bootfs" zap-lookup if
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw " no bootfs" die
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( ds-obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje get-rootobj# ( fsroot-obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : fs>rootobj# ( fs$ -- root-obj# not-found? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ skip pool name
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje ascii / left-parse-string 2drop
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ lookup fs in dsl
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dsl-lookup if ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje true exit ( not-found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( ds-obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje get-rootobj# ( fsroot-obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje false ( fsroot-obj# found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ lookup file is current directory
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : dirlook ( file$ dn -- not-found? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ . and .. are magic
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje -rot 2dup " ." $= if ( dn file$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 3drop false exit ( found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2dup " .." $= if
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum 2drop parent ( obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje else ( dn file$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ search dir
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje current-obj# to search-obj#
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje zap-lookup if ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje true exit ( not-found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( obj# )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum dnode set-attr
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum false ( found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje /buf-len instance buffer: fpath-buf
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum /buf-len instance buffer: tpath-buf
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum : tpath-buf$ ( -- path$ ) tpath-buf cscount ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : fpath-buf$ ( -- path$ ) fpath-buf cscount ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ modify tail to account for symlink
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : follow-symlink ( tail$ -- tail$' )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum \ read target
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum tpath-buf /buf-len erase
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum tpath-buf dnode readlink
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum \ append current path
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje ?dup if ( tail$ )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum " /" tpath-buf$ $append ( tail$ )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum tpath-buf$ $append ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje else drop then ( )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum \ copy to fpath
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum fpath-buf /buf-len erase
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum tpath-buf$ fpath-buf swap move
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje fpath-buf$ ( path$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ get directory that starts changed path
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje over c@ ascii / = if ( path$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje str++ root-obj# ( path$' obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje else ( path$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje search-obj# ( path$ obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( path$ obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje get-fs-dnode ( path$ )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum dnode set-attr
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ open dnode at path
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : lookup ( path$ -- not-found? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ get directory that starts path
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje over c@ ascii / = if
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje str++ root-obj# ( path$' obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje current-obj# ( path$ obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( path$ obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje get-fs-dnode ( path$ )
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum dnode set-attr
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ lookup each path component
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje begin ( path$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje ascii / left-parse-string ( path$ file$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dnode dir? 0= if
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2drop true exit ( not-found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( path$ file$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dnode dirlook if ( path$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2drop true exit ( not-found )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( path$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dnode symlink? if
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje follow-symlink ( path$' )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( path$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje repeat ( path$ file$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2drop 2drop false ( found )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw \ ZFS volume (ZVOL) routines
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw 1 constant zvol-data#
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw 2 constant zvol-prop#
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw 0 instance value zv-dn
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw : get-zvol ( zvol$ -- not-found? )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw dsl-lookup if
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw drop true exit ( failed )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw then ( ds-obj# )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw \ get zvol objset
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw get-mos-dnode ( )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw zv-dn dnode get-objset
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw false ( succeeded )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw \ get zvol data dnode
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw : zvol-data ( -- )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw zv-dn zvol-data# get-dnode
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw : zvol-size ( -- size )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw zv-dn zvol-prop# get-dnode
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw dnode " size" zap-lookup if
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw " no zvol size" die
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw then ( size )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ ZFS installation routines
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ ZFS file interface
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje /x field >busy
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje /x field >offset
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw /x field >fsize
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje /dnode field >dnode
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje constant /file-record
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje d# 10 constant #opens
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje #opens /file-record * constant /file-records
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje /file-records instance buffer: file-records
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje -1 instance value current-fd
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : fd>record ( fd -- rec ) /file-record * file-records + ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : file-offset@ ( -- off ) current-fd fd>record >offset x@ ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : file-offset! ( off -- ) current-fd fd>record >offset x! ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : file-dnode ( -- dn ) current-fd fd>record >dnode ;
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw : file-size ( -- size ) current-fd fd>record >fsize x@ ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : file-bsize ( -- bsize ) file-dnode dn-bsize ;
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ find free fd slot
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : get-slot ( -- fd false | true )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje #opens 0 do
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje i fd>record >busy x@ 0= if
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje i false unloop exit
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : free-slot ( fd -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 swap fd>record >busy x!
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ init fd to offset 0 and copy dnode
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw : init-fd ( fsize fd -- )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw fd>record ( fsize rec )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup >busy 1 swap x!
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup >dnode dnode swap /dnode move
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw dup >fsize rot swap x! ( rec )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw >offset 0 swap x! ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ make fd current
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : set-fd ( fd -- error? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup fd>record >busy x@ 0= if ( fd )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje drop true exit ( failed )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( fd )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje to current-fd false ( succeeded )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ read next fs block
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : file-bread ( adr -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje file-bsize ( adr len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje file-offset@ over / ( adr len blk# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje file-dnode swap lblk#>bp ( adr len bp )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje read-bp ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ advance file io stack by n
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : fio+ ( # adr len n -- #+n adr+n len-n )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup file-offset@ + file-offset!
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup >r - -rot ( len' # adr r: n )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r@ + -rot ( adr' len' # r: n )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r> + -rot ( #' adr' len' )
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson /max-bsize 5 *
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson /uber-block +
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson /dnode 6 * +
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson /disk-block 6 * + ( size )
629270abbcc9bcad8f09aeb9500f67a1933334d1jgj \ ugh - sg proms can't free 512k allocations
629270abbcc9bcad8f09aeb9500f67a1933334d1jgj \ that aren't a multiple of 512k in size
c713350eb0c205161e2a4ab06cd996300721ac78John Johnson h# 8.0000 roundup ( size' )
629270abbcc9bcad8f09aeb9500f67a1933334d1jgj constant alloc-size
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : allocate-buffers ( -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje alloc-size h# a0.0000 vmem-alloc dup 0= if
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw " no memory" die
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup to temp-space /max-bsize + ( adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup to dn-cache /max-bsize + ( adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup to blk-space /max-bsize + ( adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup to ind-cache /max-bsize + ( adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup to zap-space /max-bsize + ( adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup to uber-block /uber-block + ( adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup to mos-dn /dnode + ( adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup to obj-dir /dnode + ( adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup to root-dsl /dnode + ( adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup to fs-dn /dnode + ( adr )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw dup to zv-dn /dnode + ( adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup to dnode /dnode + ( adr )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje to gang-space ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ zero instance buffers
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje file-records /file-records erase
0a586cea3ceec7e5e50e7e54c745082a7a333ac2Mark Shellenbaum bootprop-buf /buf-len erase
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : release-buffers ( -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje temp-space alloc-size mem-free
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : open ( -- okay? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje my-args dev-open dup 0= if
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje exit ( failed )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then to dev-ih
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje allocate-buffers
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje get-root-dsl
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : open-fs ( fs$ -- okay? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje fs>rootobj# if ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje false ( failed )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje else ( obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje to root-obj# true ( succeeded )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( okay? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : close ( -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dev-ih dev-close
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 to dev-ih
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje release-buffers
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : open-file ( path$ -- fd true | false )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ open default fs if no open-fs
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje root-obj# 0= if
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje prop>rootobj# to root-obj#
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje get-slot if
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2drop false exit ( failed )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then -rot ( fd path$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje lookup if ( fd )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje drop false exit ( failed )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( fd )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw dnode fsize over init-fd
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw true ( fd succeeded )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw : open-volume ( vol$ -- okay? )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw get-slot if
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw 2drop false exit ( failed )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw then -rot ( fd vol$ )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw get-zvol if ( fd )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw drop false exit ( failed )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw zvol-size over ( fd size fd )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw zvol-data init-fd ( fd )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw true ( fd succeeded )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : close-file ( fd -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje free-slot ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : size-file ( fd -- size )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje set-fd if 0 else file-size then
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : seek-file ( off fd -- off true | false )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje set-fd if ( off )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje drop false exit ( failed )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( off )
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw dup file-size x> if ( off )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje drop false exit ( failed )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( off )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup file-offset! true ( off succeeded )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : read-file ( adr len fd -- #read )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje set-fd if ( adr len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2drop 0 exit ( 0 )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( adr len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ adjust len if reading past eof
e7cbe64f7a72dae5cb44f100db60ca88f3313c65gw dup file-offset@ + file-size x> if
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup file-offset@ + file-size - -
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup 0= if nip exit then
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 -rot ( #read adr len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ initial partial block
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje file-offset@ file-bsize mod ?dup if ( #read adr len off )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje temp-space file-bread
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2dup file-bsize swap - min ( #read adr len off cpy-len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2over drop -rot ( #read adr len adr off cpy-len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje >r temp-space + swap ( #read adr len cpy-src adr r: cpy-len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje r@ move r> fio+ ( #read' adr' len' )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( #read adr len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup file-bsize / 0 ?do ( #read adr len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje over file-bread
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje file-bsize fio+ ( #read' adr' len' )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje loop ( #read adr len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ final partial block
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup if ( #read adr len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje temp-space file-bread
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 2dup temp-space -rot move ( #read adr len )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dup fio+ ( #read' adr' 0 )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then 2drop ( #read )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : cinfo-file ( fd -- bsize fsize comp? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje file-bsize file-size ( bsize fsize )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ zfs does internal compression
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje 0 ( bsize fsize comp? )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje \ read ramdisk fcode at rd-offset
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : get-rd ( adr len -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje rd-offset dev-ih read-disk
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje " /" bootprop$ $append
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje bootfs-obj# (xu.) bootprop$ $append
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje bootprop$ encode-string " zfs-bootfs" ( propval propname )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : chdir ( dir$ -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje current-obj# -rot ( obj# dir$ )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje lookup if ( obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje to current-obj# ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje ." no such dir" cr exit
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then ( obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dnode dir? 0= if ( obj# )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje to current-obj# ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje ." not a dir" cr exit
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje then drop ( )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje : dir ( -- )
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje current-obj# get-fs-dnode
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setje dnode zap-print
986fd29a0dc13f7608ef7f508f6e700bd7bc2720setjefinish-device