| 1 | [ |
| 2 | "autonomous agent", |
| 3 | { |
| 4 | "init": "{ |
| 5 | $nom_AA = 'Validacions'; |
| 6 | |
| 7 | |
| 8 | |
| 9 | $_Portal = trigger.address; |
| 10 | if ( $_Portal != trigger.address ) bounce ( 'Portal no reconegut' ); |
| 11 | |
| 12 | |
| 13 | |
| 14 | $args = trigger.data; |
| 15 | $adr__ = trigger.initial_address; |
| 16 | $_unitat = trigger.output[[ asset != base ]].asset; |
| 17 | $qt = 1; |
| 18 | |
| 19 | $proces = $args.proces; |
| 20 | $idprop = $args.idprop; |
| 21 | $dades = $args.dades otherwise {}; |
| 22 | |
| 23 | |
| 24 | |
| 25 | $__dada = $refval => |
| 26 | data_feed[[ oracles = $args._Registre, feed_name = $refval, ifnone = '' ]]; |
| 27 | |
| 28 | $__arg = $arg => |
| 29 | $args[ $arg ] otherwise |
| 30 | bounce ( "Cal proporcionar el valor de: " || $arg ); |
| 31 | |
| 32 | |
| 33 | |
| 34 | if ( $__dada( 'validacio_' || $idprop ) != '' ) |
| 35 | bounce( 'Ja validada' ); |
| 36 | |
| 37 | |
| 38 | /*if ( ! $__dada( $idprop ) ) |
| 39 | bounce( 'No hi ha cap proposta amb aquesta id' ); |
| 40 | */ |
| 41 | |
| 42 | |
| 43 | if ( $proces == 'convocatoria_validadores' ) { |
| 44 | $convocs = [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 0 ]; |
| 45 | $nombre_isox = $__dada( 'ordinal_isox' ); |
| 46 | $selec_isox = []; |
| 47 | $llista = []; |
| 48 | |
| 49 | $__isox_aleatori = $x => { |
| 50 | $ordinal_aleatori = |
| 51 | number_from_seed( ( timestamp + $x ), $nombre_isox ); |
| 52 | |
| 53 | $_isox = $__dada( 'isox_' || $ordinal_aleatori ); |
| 54 | $estat_isox = $__dada( 'isox_' || $_isox || '_estat' ) otherwise ''; |
| 55 | if( $estat_isox == 'habilitat' AND ! contains( $llista[0], $_isox ) ) { |
| 56 | $selec_isox[] = $_isox; |
| 57 | $llista[0] = $_isox || ':' || $llista[0]; |
| 58 | $dades['convocatoria_' || $idprop || '_validadora_isox_' || $x ] = $_isox; |
| 59 | } |
| 60 | }; |
| 61 | |
| 62 | foreach( $convocs, 10, $__isox_aleatori ); |
| 63 | |
| 64 | /* |
| 65 | $nombre_entitats = $__dada( 'ordinal_entitat' ); |
| 66 | $selec_delegades = []; |
| 67 | |
| 68 | $__entitat_aleatoria = $x => { |
| 69 | $ord_entitat_aleatoria = |
| 70 | number_from_seed( ( timestamp + $x ), $nombre_entitats ); |
| 71 | $ref_entitat = $__dada( 'entitat_' || $ord_entitat_aleatoria ); |
| 72 | $estat_entitat = $__dada( $ref_entitat || '_estat' ) otherwise ''; |
| 73 | if( $estat_entitat == 'operatiu' ) { |
| 74 | $ord_delegada_aleatoria = number_from_seed( ( timestamp + $x ), 5 ); |
| 75 | $ref_delegada = $ref_entitat || '_delegada_' || $ord_delegada_aleatoria; |
| 76 | $_delegada = $__dada( $ref_delegada ); |
| 77 | if( $_delegada != '' ) { |
| 78 | $selec_delegades[] = $_delegada; |
| 79 | $dades['convocatoria' || $idprop || '_validadora_delegada_' || $x ] = $_delegada; |
| 80 | } |
| 81 | } |
| 82 | }; |
| 83 | |
| 84 | foreach( $convocs, 10, $__entitat_aleatoria ); |
| 85 | |
| 86 | $selec_valoradores = $selec_isox || $selec_delegades; |
| 87 | */ |
| 88 | |
| 89 | $selec_valoradores = $selec_isox; |
| 90 | |
| 91 | $avisos = []; |
| 92 | $__avisos_seleccionades = $adr_valoradora => { |
| 93 | if( $adr_valoradora ) { |
| 94 | $avis_convocatoria = { |
| 95 | address : $adr_valoradora, |
| 96 | amount : $qt |
| 97 | }; |
| 98 | $avisos[] = $avis_convocatoria; |
| 99 | } |
| 100 | }; |
| 101 | |
| 102 | foreach( $selec_valoradores, 20, $__avisos_seleccionades ); |
| 103 | |
| 104 | $dades['convocatoria_' || $idprop ] = timestamp; |
| 105 | } |
| 106 | |
| 107 | |
| 108 | if ( $proces == 'decisio_validacio' ) { |
| 109 | |
| 110 | $convocatoria = $__dada( 'convocatoria_' || $idprop ); |
| 111 | $validacio = $__dada( 'validacio_' || $idprop ); |
| 112 | $refus = $__dada( 'refus_' || $idprop ); |
| 113 | $convocs = [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 0 ]; |
| 114 | |
| 115 | |
| 116 | if ( ! $convocatoria ) |
| 117 | bounce( 'No hi ha cap convocatoria amb aquesta id' ); |
| 118 | |
| 119 | |
| 120 | if ( !! $validacio OR !! $refus ) |
| 121 | bounce( 'Aquesta proposta ja ha estat tractada' ); |
| 122 | |
| 123 | $_isox_convocada = []; |
| 124 | $semiref_convo = 'convocatoria_' || $idprop || '_validadora_isox_'; |
| 125 | $__troba_convocatoria_isox = $o => { |
| 126 | $adr_convo = $__dada( $semiref_convo || $o ) otherwise ''; |
| 127 | if ( |
| 128 | ! $_isox_convocada[0] |
| 129 | AND $adr_convo == $adr__ |
| 130 | ) |
| 131 | $_isox_convocada[0] = $o; |
| 132 | }; |
| 133 | |
| 134 | foreach( $convocs, 10, $__troba_convocatoria_isox ); |
| 135 | |
| 136 | if ( ! $_isox_convocada[0] ) |
| 137 | bounce( 'Adreça no convocada com a isox' ); |
| 138 | |
| 139 | |
| 140 | $_delegada_convocada = []; |
| 141 | $semiref_convo = 'convocatoria_' || $idprop || '_validadora_delegada_'; |
| 142 | $__troba_convocatoria_delegada = $o => { |
| 143 | $adr_convo = $__dada( $semiref_convo || $o ) otherwise ''; |
| 144 | if ( |
| 145 | ! $_delegada_convocada[0] |
| 146 | AND $adr_convo == $adr__ |
| 147 | ) |
| 148 | $_delegada_convocada[0] = $o; |
| 149 | }; |
| 150 | |
| 151 | foreach( $convocs, 10, $__troba_convocatoria_delegada ); |
| 152 | |
| 153 | |
| 154 | |
| 155 | if ( ! $_isox_convocada[0] ) |
| 156 | bounce( 'Adreça no convocada' ); |
| 157 | |
| 158 | if ( !! $_isox_convocada[0] ) $grup = 'isox'; |
| 159 | |
| 160 | if ( !! $_delegada_convocada[0] ) $grup = 'delegades'; |
| 161 | |
| 162 | $secc_ref_decisio = 'decisio_' || $idprop || '_grup_' || $grup; |
| 163 | |
| 164 | if ( !! $__dada( $secc_ref_decisio || '_' || $adr__ ) ) |
| 165 | bounce( "Ja hi consta una decisió d'aquesta adreça per a aquesta proposta" ); |
| 166 | |
| 167 | |
| 168 | $decisio_grup = $__dada( $secc_ref_decisio ); |
| 169 | if ( !! $decisio_grup ) |
| 170 | bounce( 'Decisió del grup ' || $grup || ' ja pronunciada: ' || $decisio_grup ); |
| 171 | |
| 172 | if ( $__arg( 'decisio' ) == 'refusada' ) { |
| 173 | $dades[ $secc_ref_decisio || '_' || $adr__ ] = 'refusada'; |
| 174 | $dades[ $secc_ref_decisio ] = 'refusada'; |
| 175 | $dades[ 'refus_' || $idprop ] = timestamp; |
| 176 | } |
| 177 | |
| 178 | if ( $__arg( 'decisio' ) == 'aprovada' ) { |
| 179 | $ref_nombre_aprovacions = 'nombre_aprovacions_' || $grup || '_' || $idprop; |
| 180 | $nombre_aprovacions = $__dada( $ref_nombre_aprovacions ); |
| 181 | $dades[ $secc_ref_decisio || '_' || $adr__ ] = 'aprovada'; |
| 182 | $dades[ $ref_nombre_aprovacions ] = $nombre_aprovacions + 1; |
| 183 | |
| 184 | if ( $nombre_aprovacions == $__dada( 'Nombre_Aprovacions' ) ) { |
| 185 | $dades[ $secc_ref_decisio ] = 'aprovada'; |
| 186 | |
| 187 | $alter_grup = $grup == 'isox' ? 'delegades' : 'isox'; |
| 188 | |
| 189 | if ( $__dada( 'decisio_' || $idprop || '_grup_' || $alter_grup ) == 'aprovada' ) |
| 190 | $dades[ 'validacio_' || $idprop ] = timestamp; |
| 191 | } |
| 192 | } |
| 193 | } |
| 194 | |
| 195 | |
| 196 | if ( $proces == 'validacio_directa_TEST' ) |
| 197 | $dades[ 'validacio_' || $idprop ] = timestamp; |
| 198 | |
| 199 | $registre = {}; |
| 200 | $registre.dades = $dades; |
| 201 | }", |
| 202 | "messages": [ |
| 203 | { |
| 204 | "app": "data", |
| 205 | "payload": "{ $registre }" |
| 206 | }, |
| 207 | { |
| 208 | "app": "payment", |
| 209 | "payload": { |
| 210 | "asset": "base", |
| 211 | "outputs": [ |
| 212 | { |
| 213 | "address": "{ $args._Registre }", |
| 214 | "amount": "{ $__dada( 'Provisio' ) }" |
| 215 | } |
| 216 | ] |
| 217 | } |
| 218 | }, |
| 219 | { |
| 220 | "if": "{ $proces == 'convocatoria_validadores' }", |
| 221 | "init": "{ |
| 222 | $payload = |
| 223 | { |
| 224 | asset : $_unitat, |
| 225 | outputs : $avisos |
| 226 | }; |
| 227 | }", |
| 228 | "app": "payment", |
| 229 | "payload": "{ $payload }" |
| 230 | }, |
| 231 | { |
| 232 | "app": "state", |
| 233 | "state": "{ |
| 234 | response[ 'Procés' ] = $proces; |
| 235 | response[ 'Proposta' ] = $idprop; |
| 236 | |
| 237 | if ( $proces == 'convocatoria_validadores' ) { |
| 238 | |
| 239 | response[ 'Nombre Isox' ] = $nombre_isox; |
| 240 | |
| 241 | $__isox_seleccionades = $n => { |
| 242 | response[ 'Isox seleccionada ' || $n ] = $selec_isox[ $n ]; |
| 243 | }; |
| 244 | |
| 245 | foreach( $convocs, 10, $__isox_seleccionades ); |
| 246 | |
| 247 | $__isox_convocades = $n => { |
| 248 | if( $selec_isox[ $n ] ) |
| 249 | response[ 'Valoradora convocada ' || $n ] = $selec_isox[ $n ]; |
| 250 | }; |
| 251 | |
| 252 | foreach( $convocs, 10, $__isox_convocades ); |
| 253 | |
| 254 | /* |
| 255 | $__delegades_seleccionades = $n => { |
| 256 | response[ 'Isox seleccionada ' || $n ] = $seleccio_delegades[ $n ][0]; |
| 257 | }; |
| 258 | |
| 259 | $llista_delegades = map( $convocs, 10, $__delegades_seleccionades ); |
| 260 | */ |
| 261 | } |
| 262 | |
| 263 | if ( $proces == 'decisio_validacio' ) { |
| 264 | response[ 'Validació' ] = |
| 265 | $__arg( 'decisio' ) || ' per ' || $adr__; |
| 266 | |
| 267 | if ( $dades[ $secc_ref_decisio ] == 'aprovada' ) |
| 268 | response[ 'Validació' ] = ' aprovada per ' || $grup; |
| 269 | |
| 270 | if ( !! $dades[ 'validacio_' || $idprop ] ) |
| 271 | response[ 'Validació' ] = 'aprovada'; |
| 272 | |
| 273 | if ( $__arg( 'decisio' ) == 'refusada' ) |
| 274 | response[ 'Validació' ] = 'refusada'; |
| 275 | } |
| 276 | }" |
| 277 | } |
| 278 | ] |
| 279 | } |
| 280 | ] |