mirror of
https://github.com/ton-blockchain/ton
synced 2025-03-09 15:40:10 +00:00
auto-dns & manual-dns smartcontracts updated to actual DNS standard version by starlightduck
This commit is contained in:
parent
1ded7af335
commit
313d37e134
4 changed files with 61 additions and 26 deletions
|
@ -43,12 +43,12 @@ $# 4 > need-params <> abort"extra parameters, or no parameters for chosen main o
|
|||
variable Values dictnew Values !
|
||||
// ( i c -- )
|
||||
{ over 0= abort"category cannot be zero"
|
||||
<b swap ref, swap Values @ 16 b>idict!+ not abort"duplicate category id"
|
||||
<b swap ref, swap Values @ 256 b>udict!+ not abort"duplicate category id"
|
||||
Values !
|
||||
} : register-value
|
||||
|
||||
{ @end? abort"category number expected" @next (number) 1 <> abort"category must be integer"
|
||||
dup 16 fits not abort"category does not fit into 16 bit integer"
|
||||
dup 256 fits not abort"category does not fit into 256 bit integer"
|
||||
dup 0= abort"category must be non-zero"
|
||||
} : parse-cat-num
|
||||
{ @end? abort"smart contract address expected"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue