isbpl/iota.isbpl

24 lines
569 B
Text
Raw Normal View History

def iota_storage 0 =iota_storage
func iota { iota_storage dup ++ =iota_storage }
func riota { 0 1 =iota_storage }
2022-04-17 17:40:25 +02:00
def enum_storage 0 =enum_storage
def enum_type_storage 0 =enum_type_storage
def enum_holder_storage 0 =enum_holder_storage
func mkenum {
mktype =enum_type_storage
0 =enum_storage
-1 enum_type_storage settype dup =enum_holder_storage
}
func enum {
def name =name
def r enum_storage enum_type_storage settype =r
name enum_type_storage deffield
r "=" name strconcat enum_holder_storage callmethod
enum_storage inc
r
}