Blockchain Based Transaction System with Fungible and Non-Fungible Tokens for a Community-Based Energy Infrastructure

View full-text article in PMC

. 2021 May 31;21(11):3822. doi: 10.3390/s21113822

Algorithm 8 Create a FT

1:
functionCreateFT(tokentype string, creatingfortransfer bool, buyer string, availableassets int)
2:
$i n v o k e r o r g \leftarrow G e t C l i e n t I d e n t i t y () . G e t M S P I D ()$
3:
$i n v o k e r c l i e n t \leftarrow G e t C l i e n t I d e n t i t y () . G e t I D ()$
4:
$t e s t \leftarrow t o k e n t y p e + “_” + o w n e r o r g$
5:
switch test
6:
$“ E U n i t_O r g 1 M S P ” o r “ E V U n i t_O r g 1 M S P ”$
7:
$e n d o r s e r o r g = “ O r g 3 M S P ”$
8:
$“ I n U n i t_O r g 2 M S P ” o r “ G a U n i t_O r g 2 M S P ”$
9:
$e n d o r s e r o r g = “ O r g 1 M S P ”$
10:
$“ S t U n i t_O r g 3 M S P ” o r “ E S t U n i t_O r g 3 M S P ”$
11:
$e n d o r s e r o r g = “ O r g 1 M S P ”$
12:
Default: “Invoker Organization and Token Type combination invalid”
13:
if creatingfortransfer == true then
14:
$i d \leftarrow b u y e r + “_” + t o k e n t y p e$
15:
$o w n e r \leftarrow b u y e r$
16:
else
17:
$i d \leftarrow i n v o k e r c l i e n t + “_” + t o k e n t y p e$
18:
$o w n e r \leftarrow i n v o k e r c l i e n t$
19:
end if
20:
$t o k e n \leftarrow R e a d T o k e n (i d)$ ▹ Calling Algorithm 2
21:
if $t o k e n! = n i l$ then
22:
$t o k e n . A v a i l a b l e A s s e t s \leftarrow t o k e n . A v a i l a b l e A s s e t s + a v a i l a b l e a s s e t s$
23:
$t o k e n J S O N \leftarrow j s o n . M a r s h a l (t o k e n)$
24:
$P u t S t a t e (i d, t o k e n J S O N)$
25:
else
26:
$t o k e n n e w \leftarrow N e w T o k e n (I D \leftarrow i d, T o k e n T y p e \leftarrow t o k e n t y p e,$ AvailableAssets $\leftarrow a v a i l a b l e a s s e t s, O w n e r \leftarrow o w n e r)$
27:
$t o k e n J S O N \leftarrow j s o n . M a r s h a l (t o k e n n e w)$
28:
$P u t S t a t e (i d, t o k e n J S O N)$
29:
$S e t T o k e n S t a t e B a s e d E n d o r s e m e n t (t o k e n n e w . I D, o w n e r o r g, e n d o r s e r o r g)$

▹ Calling Algorithm 1
30:
end if
31:
end function