| 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 | |
| 35 | $resultat_validacio = $__dada( 'validacio_' || $idprop ) otherwise ''; |
| 36 | if ( $resultat_validacio != '' ) |
| 37 | bounce( 'La proposta ja ha estat ' || $resultat_validacio ); |
| 38 | |
| 39 | if ( ! $__dada( $idprop ) ) |
| 40 | bounce( 'No hi ha cap proposta amb aquesta id' ); |
| 41 | |
| 42 | |
| 43 | |
| 44 | if ( $proces == 'convocatoria_validadores' ) { |
| 45 | |
| 46 | |
| 47 | $convocatoria_efectuada = $__dada( 'convocatoria_' || $idprop ) otherwise ''; |
| 48 | |
| 49 | if ( $convocatoria_efectuada != '' ) |
| 50 | bounce( "La convocatoria d'aquesta proposta ja ha estat efectuada" ); |
| 51 | |
| 52 | $convocs_i = [ 1, 2, 3, 4, 5, 6, 7, 8 ]; |
| 53 | $nombre_isox = $__dada( 'ordinal_isox' ); |
| 54 | $selec_isox = []; |
| 55 | $llista_isox = []; |
| 56 | |
| 57 | $__ord_aleatori = ( $ord, $nombre, $seed ) => { |
| 58 | $num_aleatori = number_from_seed( ( $seed || $ord ), 1000 ); |
| 59 | round( $num_aleatori / 1000 * $nombre ) |
| 60 | }; |
| 61 | |
| 62 | $__isox_aleatori = $x => { |
| 63 | $seed_isox = $llista_isox[0] otherwise $adr__ ; |
| 64 | $ordinal_aleatori = $__ord_aleatori( $x, $nombre_isox, $seed_isox ); |
| 65 | |
| 66 | $_isox = $__dada( 'isox_' || $ordinal_aleatori ); |
| 67 | $estat_isox = $__dada( 'isox_' || $_isox || '_estat' ) otherwise ''; |
| 68 | if( $estat_isox == 'habilitat' AND ! contains( $llista_isox[0], $_isox ) ) { |
| 69 | $selec_isox[] = $_isox; |
| 70 | $llista_isox_actual = $llista_isox[0] otherwise ''; |
| 71 | $llista_isox[0] = $_isox || ':' || $llista_isox_actual; |
| 72 | $dades[ 'convocatoria_' || $idprop || '_validadora_isox_' || $x ] = $_isox; |
| 73 | } |
| 74 | }; |
| 75 | |
| 76 | foreach( $convocs_i, 8, $__isox_aleatori ); |
| 77 | |
| 78 | $convocs_d = [ 1, 2, 3 ]; |
| 79 | $nombre_entitats = $__dada( 'ordinal_Entitat' ); |
| 80 | $selec_delegades = []; |
| 81 | $llista_entitats = []; |
| 82 | $llista_delegades = []; |
| 83 | |
| 84 | $__entitat_aleatoria = $x => { |
| 85 | $seed_entitats = $llista_entitats[0] otherwise $llista_isox[0] ; |
| 86 | $ord_entitat_aleatori = $__ord_aleatori( $x, $nombre_entitats, $seed_entitats ); |
| 87 | $ref_entitat = $__dada( 'Entitat_' || $ord_entitat_aleatori ); |
| 88 | $estat_entitat = $__dada( $ref_entitat || '_estat' ) otherwise ''; |
| 89 | if( $estat_entitat == 'operatiu' AND ! contains( $llista_entitats[0], $ref_entitat ) ) { |
| 90 | $seed_delegades = $llista_delegades[0] otherwise $llista_entitats[0] ; |
| 91 | $ord_delegada_aleatori = $__ord_aleatori( $x, 3, $seed_delegades ); |
| 92 | $ref_delegada = $ref_entitat || '_delegada_' || $ord_delegada_aleatori; |
| 93 | $_delegada = $__dada( $ref_delegada ) otherwise ''; |
| 94 | $llista_entitats_actual = $llista_entitats[0] otherwise ''; |
| 95 | $llista_entitats[0] = $ref_entitat || ':' || $llista_entitats_actual; |
| 96 | if( $_delegada != '' AND ! contains( $llista_delegades[0], $_delegada ) ) { |
| 97 | $selec_delegades[] = $_delegada; |
| 98 | $llista_delegades_actual = $llista_delegades[0] otherwise ''; |
| 99 | $llista_delegades[0] = $_delegada || ':' || $llista_delegades_actual; |
| 100 | $dades[ 'convocatoria_' || $idprop || '_validadora_delegada_' || $x ] = $_delegada; |
| 101 | } |
| 102 | } |
| 103 | }; |
| 104 | |
| 105 | foreach( $convocs_d, 3, $__entitat_aleatoria ); |
| 106 | |
| 107 | $selec_valoradores = $selec_isox || $selec_delegades; |
| 108 | |
| 109 | $convocacions = []; |
| 110 | $__convocacions_seleccionades = $adr_valoradora => { |
| 111 | if( !! $adr_valoradora ) { |
| 112 | $convocacio = { |
| 113 | address : $adr_valoradora, |
| 114 | amount : $qt |
| 115 | }; |
| 116 | $convocacions[] = $convocacio; |
| 117 | } |
| 118 | }; |
| 119 | |
| 120 | foreach( $selec_valoradores, 16, $__convocacions_seleccionades ); |
| 121 | |
| 122 | $dades[ 'convocatoria_' || $idprop ] = timestamp; |
| 123 | } |
| 124 | |
| 125 | if ( $proces == 'decisio_validacio' ) { |
| 126 | $convocatoria = $__dada( 'convocatoria_' || $idprop ); |
| 127 | $validacio = $__dada( 'validacio_' || $idprop ); |
| 128 | $refus = $__dada( 'refus_' || $idprop ); |
| 129 | $convocs = [ 1, 2, 3, 4, 5, 6, 7, 8 ]; |
| 130 | |
| 131 | |
| 132 | if ( ! $convocatoria ) |
| 133 | bounce( 'No hi ha cap convocatoria amb aquesta id' ); |
| 134 | |
| 135 | |
| 136 | if ( !! $validacio OR !! $refus ) |
| 137 | bounce( 'Aquesta proposta ja ha estat tractada' ); |
| 138 | |
| 139 | $_isox_convocada = []; |
| 140 | $semiref_isox = 'convocatoria_' || $idprop || '_validadora_isox_'; |
| 141 | $__troba_convocatoria_isox = $o => { |
| 142 | $adr_convo = $__dada( $semiref_isox || $o ) otherwise ''; |
| 143 | if ( $adr_convo == $adr__ ) |
| 144 | $_isox_convocada[0] = $o; |
| 145 | }; |
| 146 | |
| 147 | foreach( $convocs, 8, $__troba_convocatoria_isox ); |
| 148 | |
| 149 | $_delegada_convocada = []; |
| 150 | $semiref_delegada = 'convocatoria_' || $idprop || '_validadora_delegada_'; |
| 151 | $__troba_convocatoria_delegada = $o => { |
| 152 | $adr_convo = $__dada( $semiref_delegada || $o ) otherwise ''; |
| 153 | if ( $adr_convo == $adr__ ) |
| 154 | $_delegada_convocada[0] = $o; |
| 155 | }; |
| 156 | |
| 157 | foreach( $convocs, 8, $__troba_convocatoria_delegada ); |
| 158 | |
| 159 | |
| 160 | |
| 161 | if ( ! $_isox_convocada[0] AND ! $_delegada_convocada[0] ) |
| 162 | bounce( 'Adreça no convocada' ); |
| 163 | |
| 164 | if ( !! $_isox_convocada[0] ) $grup = 'isox'; |
| 165 | |
| 166 | if ( !! $_delegada_convocada[0] ) $grup = 'delegs'; |
| 167 | |
| 168 | $secc_ref_decisio = $idprop || '_' || $grup; |
| 169 | |
| 170 | if ( !! $__dada( $secc_ref_decisio || '_' || $adr__ ) ) |
| 171 | bounce( "Ja hi consta una decisió d'aquesta adreça per a aquesta proposta" ); |
| 172 | |
| 173 | |
| 174 | $decisio_grup = $__dada( $secc_ref_decisio ); |
| 175 | if ( !! $decisio_grup ) |
| 176 | bounce( 'Decisió del grup ' || $grup || ' ja pronunciada: ' || $decisio_grup ); |
| 177 | |
| 178 | if ( $__arg( 'decisio' ) == 'refusada' ) { |
| 179 | $dades[ $secc_ref_decisio || '_' || $adr__ ] = 'refusada'; |
| 180 | $dades[ $secc_ref_decisio ] = 'refusada'; |
| 181 | $dades[ 'refus_' || $idprop ] = timestamp; |
| 182 | } |
| 183 | |
| 184 | if ( $__arg( 'decisio' ) == 'aprovada' ) { |
| 185 | $ref_nombre_aprovacions = 'nombre_aprovacions_' || $grup || '_' || $idprop; |
| 186 | $nombre_aprovacions = $__dada( $ref_nombre_aprovacions ) otherwise 0; |
| 187 | $dades[ $secc_ref_decisio || '_' || $adr__ ] = 'aprovada'; |
| 188 | $dades[ $ref_nombre_aprovacions ] = $nombre_aprovacions + 1; |
| 189 | |
| 190 | |
| 191 | $nombre_aprovacions_minim = 3; |
| 192 | |
| 193 | if ( $nombre_aprovacions == $nombre_aprovacions_minim ) { |
| 194 | $dades[ $secc_ref_decisio ] = 'aprovada'; |
| 195 | |
| 196 | $alter_grup = $grup == 'isox' ? 'delegs' : 'isox'; |
| 197 | $decisio_altre_grup = |
| 198 | $__dada( $idprop || '_' || $alter_grup ) otherwise ''; |
| 199 | |
| 200 | if ( $decisio_altre_grup == 'aprovada' ) |
| 201 | $dades[ 'validacio_' || $idprop ] = timestamp; |
| 202 | } |
| 203 | } |
| 204 | } |
| 205 | |
| 206 | |
| 207 | if ( $proces == 'validacio_directa_TEST' ) |
| 208 | $dades[ 'validacio_' || $idprop ] = timestamp; |
| 209 | |
| 210 | $registre = {}; |
| 211 | $registre.dades = $dades; |
| 212 | }", |
| 213 | "messages": [ |
| 214 | { |
| 215 | "if": "{ $proces == 'convocatoria_validadores' }", |
| 216 | "init": "{ |
| 217 | $payload = |
| 218 | { |
| 219 | asset : $_unitat, |
| 220 | outputs : $convocacions |
| 221 | }; |
| 222 | }", |
| 223 | "app": "payment", |
| 224 | "payload": "{ $payload }" |
| 225 | }, |
| 226 | { |
| 227 | "app": "data", |
| 228 | "payload": "{ $registre }" |
| 229 | }, |
| 230 | { |
| 231 | "app": "payment", |
| 232 | "payload": { |
| 233 | "asset": "base", |
| 234 | "outputs": [ |
| 235 | { |
| 236 | "address": "{ $args._Registre }", |
| 237 | "amount": "{ $__dada( 'Provisio' ) }" |
| 238 | } |
| 239 | ] |
| 240 | } |
| 241 | }, |
| 242 | { |
| 243 | "app": "state", |
| 244 | "state": "{ |
| 245 | response[ 'Procés' ] = $proces; |
| 246 | response[ 'Proposta' ] = $idprop; |
| 247 | |
| 248 | if ( $proces == 'convocatoria_validadores' ) { |
| 249 | response[ 'Nombre Isox' ] = $nombre_isox; |
| 250 | response[ 'Nombre Entitats' ] = $nombre_entitats; |
| 251 | response[ 'Isox Convocades' ] = $llista_isox[0]; |
| 252 | response[ 'Entitats Convocades' ] = $llista_entitats[0]; |
| 253 | response[ 'Delegades Convocades' ] = $llista_delegades[0]; |
| 254 | } |
| 255 | |
| 256 | if ( $proces == 'decisio_validacio' ) { |
| 257 | response[ 'Validació' ] = |
| 258 | $__arg( 'decisio' ) || ' per ' || $adr__; |
| 259 | |
| 260 | $decisio_presa = $dades[ $secc_ref_decisio ] otherwise ''; |
| 261 | if ( $decisio_presa != '' ) |
| 262 | response[ 'Validació' ] = $decisio_presa || ' per ' || $grup; |
| 263 | |
| 264 | if ( !! $dades[ 'validacio_' || $idprop ] ) |
| 265 | response[ 'Validació' ] = 'aprovada'; |
| 266 | |
| 267 | if ( !! $dades[ 'refus_' || $idprop ] ) |
| 268 | response[ 'Validació' ] = 'refusada'; |
| 269 | |
| 270 | /* |
| 271 | $__llista_convocades = $o => { |
| 272 | $adr_convo = $__dada( $semiref_isox || $o ) otherwise 'cap'; |
| 273 | response[ 'convocatòria_isox_' || $o ] = $adr_convo; |
| 274 | }; |
| 275 | |
| 276 | foreach( $convocs, 8, $__llista_convocades ); |
| 277 | |
| 278 | response[ 'isox_convocada[0]' ] = $_isox_convocada[0]; |
| 279 | |
| 280 | if ( ! $_isox_convocada[0] ) |
| 281 | response[ 'Adreça no convocada' ] = $adr__; |
| 282 | */ |
| 283 | |
| 284 | } |
| 285 | }" |
| 286 | } |
| 287 | ] |
| 288 | } |
| 289 | ] |