[ "autonomous agent", { "init": "{ $nom_AA = 'Validacions'; // Portal //$_Portal = '5WVBJQHTEP54AEYUJGTQKWTXTXZSJQWA'; $_Portal = trigger.address; // * només x tests if ( $_Portal != trigger.address ) bounce ( 'Portal no reconegut' ); // Principals $args = trigger.data; $adr__ = trigger.initial_address; $_unitat = trigger.output[[ asset != base ]].asset; $qt = 1; // Pendent de definició!!! $proces = $args.proces; $idprop = $args.idprop; $dades = $args.dades otherwise {}; // Funcions $__dada = $refval => data_feed[[ oracles = $args._Registre, feed_name = $refval, ifnone = '' ]]; $__arg = $arg => $args[ $arg ] otherwise bounce ( "Cal proporcionar el valor de: " || $arg ); // Comprovacions // La proposta encara no pot estar validada $resultat_validacio = $__dada( 'validacio_' || $idprop ) otherwise ''; if ( $resultat_validacio != '' ) bounce( 'La proposta ja ha estat ' || $resultat_validacio ); if ( ! $__dada( $idprop ) ) bounce( 'No hi ha cap proposta amb aquesta id' ); // Processos if ( $proces == 'convocatoria_validadores' ) { // La convocatòria encara no pot haver estat efectuada $convocatoria_efectuada = $__dada( 'convocatoria_' || $idprop ) otherwise ''; if ( $convocatoria_efectuada != '' ) bounce( "La convocatoria d'aquesta proposta ja ha estat efectuada" ); $convocs_i = [ 1, 2, 3, 4, 5, 6, 7, 8 ]; $nombre_isox = $__dada( 'ordinal_isox' ); $selec_isox = []; $llista_isox = []; $__ord_aleatori = ( $ord, $nombre, $seed ) => { $num_aleatori = number_from_seed( ( $seed || $ord ), 1000 ); ceil( $num_aleatori / 1000 * $nombre ) }; $__isox_aleatori = $x => { $seed_isox = $llista_isox[0] otherwise $adr__ ; $ordinal_aleatori = $__ord_aleatori( $x, $nombre_isox, $seed_isox ); $_isox = $__dada( 'isox_' || $ordinal_aleatori ); $estat_isox = $__dada( 'isox_' || $_isox || '_estat' ) otherwise ''; if( $estat_isox == 'habilitat' AND ! contains( $llista_isox[0], $_isox ) ) { $selec_isox[] = $_isox; $llista_isox_actual = $llista_isox[0] otherwise ''; $llista_isox[0] = $_isox || ':' || $llista_isox_actual; $dades[ 'convocatoria_' || $idprop || '_validadora_isox_' || $x ] = $_isox; } }; foreach( $convocs_i, 8, $__isox_aleatori ); $convocs_d = [ 1, 2, 3, 4 ]; // Nombre limitat per als TESTS $nombre_entitats = $__dada( 'ordinal_Entitat' ); $selec_delegades = []; $llista_entitats = []; $llista_delegades = []; $__entitat_aleatoria = $x => { $seed_entitats = $llista_entitats[0] otherwise $llista_isox[0] ; $ord_entitat_aleatori = $__ord_aleatori( $x, $nombre_entitats, $seed_entitats ); $ref_entitat = $__dada( 'Entitat_' || $ord_entitat_aleatori ); $estat_entitat = $__dada( $ref_entitat || '_estat' ) otherwise ''; if( $estat_entitat == 'operatiu' AND ! contains( $llista_entitats[0], $ref_entitat ) ) { $seed_delegades = $llista_delegades[0] otherwise $llista_entitats[0] ; $ord_delegada_aleatori = $__ord_aleatori( $x, 3, $seed_delegades ); $ref_delegada = $ref_entitat || '_delegada_' || $ord_delegada_aleatori; $_delegada = $__dada( $ref_delegada ) otherwise ''; $llista_entitats_actual = $llista_entitats[0] otherwise ''; $llista_entitats[0] = $ref_entitat || ':' || $llista_entitats_actual; if( $_delegada != '' AND ! contains( $llista_delegades[0], $_delegada ) ) { $selec_delegades[] = $_delegada; $llista_delegades_actual = $llista_delegades[0] otherwise ''; $llista_delegades[0] = $_delegada || ':' || $llista_delegades_actual; $dades[ 'convocatoria_' || $idprop || '_validadora_delegada_' || $x ] = $_delegada; } } }; foreach( $convocs_d, 4, $__entitat_aleatoria ); $selec_valoradores = $selec_isox || $selec_delegades; $convocacions = []; $__convocacions_seleccionades = $adr_valoradora => { if( !! $adr_valoradora ) { $convocacio = { address : $adr_valoradora, amount : $qt }; $convocacions[] = $convocacio; } }; foreach( $selec_valoradores, 16, $__convocacions_seleccionades ); $dades[ 'convocatoria_' || $idprop ] = timestamp; } if ( $proces == 'decisio_validacio' ) { $convocatoria = $__dada( 'convocatoria_' || $idprop ); $validacio = $__dada( 'validacio_' || $idprop ); $refus = $__dada( 'refus_' || $idprop ); $convocs = [ 1, 2, 3, 4, 5, 6, 7, 8 ]; // La convocatoria ha d'existir if ( ! $convocatoria ) bounce( 'No hi ha cap convocatoria amb aquesta id' ); // Tractament proposta encara pendent if ( !! $validacio OR !! $refus ) bounce( 'Aquesta proposta ja ha estat tractada' ); $_isox_convocada = []; $semiref_isox = 'convocatoria_' || $idprop || '_validadora_isox_'; $__troba_convocatoria_isox = $o => { $adr_convo = $__dada( $semiref_isox || $o ) otherwise ''; if ( $adr_convo == $adr__ ) $_isox_convocada[0] = $o; }; foreach( $convocs, 8, $__troba_convocatoria_isox ); $_delegada_convocada = []; $semiref_delegada = 'convocatoria_' || $idprop || '_validadora_delegada_'; $__troba_convocatoria_delegada = $o => { $adr_convo = $__dada( $semiref_delegada || $o ) otherwise ''; if ( $adr_convo == $adr__ ) $_delegada_convocada[0] = $o; }; foreach( $convocs, 8, $__troba_convocatoria_delegada ); // adr__ actuant ha estat convocada //if ( ! $_isox_convocada[0] ) // per als TESTs if ( ! $_isox_convocada[0] AND ! $_delegada_convocada[0] ) bounce( 'Adreça no convocada' ); if ( !! $_isox_convocada[0] ) $grup = 'isox'; if ( !! $_delegada_convocada[0] ) $grup = 'delegs'; $secc_ref_decisio = $idprop || '_' || $grup; if ( !! $__dada( $secc_ref_decisio || '_' || $adr__ ) ) bounce( "Ja hi consta una decisió d'aquesta adreça per a aquesta proposta" ); // Deliberació en curs $decisio_grup = $__dada( $secc_ref_decisio ); if ( !! $decisio_grup ) bounce( 'Decisió del grup ' || $grup || ' ja pronunciada: ' || $decisio_grup ); if ( $__arg( 'decisio' ) == 'refusada' ) { $dades[ $secc_ref_decisio || '_' || $adr__ ] = 'refusada'; $dades[ $secc_ref_decisio ] = 'refusada'; $dades[ 'refus_' || $idprop ] = timestamp; $dades[ 'refus_' || $idprop || '_grup' ] = $grup; } if ( $__arg( 'decisio' ) == 'aprovada' ) { $ref_nombre_aprovacions = 'nombre_aprovacions_' || $grup || '_' || $idprop; $nombre_aprovacions = $__dada( $ref_nombre_aprovacions ) otherwise 0; $dades[ $secc_ref_decisio || '_' || $adr__ ] = 'aprovada'; $dades[ $ref_nombre_aprovacions ] = $nombre_aprovacions + 1; //$nombre_aprovacions_minim = $__dada( 'Nombre_Aprovacions' ); $nombre_aprovacions_minim = 3; // Temporalment, per als TESTS!!! if ( $nombre_aprovacions_minim == $nombre_aprovacions + 1 ) { $dades[ $secc_ref_decisio ] = 'aprovada'; $alter_grup = $grup == 'isox' ? 'delegs' : 'isox'; $decisio_altre_grup = $__dada( $idprop || '_' || $alter_grup ) otherwise ''; if ( $decisio_altre_grup == 'aprovada' ) $dades[ 'validacio_' || $idprop ] = timestamp; } } } // Temporalment, per als TESTS!!!............................... if ( $proces == 'validacio_directa_TEST' ) $dades[ 'validacio_' || $idprop ] = timestamp; $registre = {}; $registre.dades = $dades; }", "messages": [ { "if": "{ $proces == 'convocatoria_validadores' }", "init": "{ $payload = { asset : $_unitat, outputs : $convocacions }; }", "app": "payment", "payload": "{ $payload }" }, { "app": "data", "payload": "{ $registre }" }, { "app": "payment", "payload": { "asset": "base", "outputs": [ { "address": "{ $args._Registre }", "amount": "{ $__dada( 'Provisio' ) }" } ] } }, { "app": "state", "state": "{ response[ 'Procés' ] = $proces; response[ 'Proposta' ] = $idprop; if ( $proces == 'convocatoria_validadores' ) { response[ 'Nombre Isox' ] = $nombre_isox; response[ 'Nombre Entitats' ] = $nombre_entitats; response[ 'Isox Convocades' ] = $llista_isox[0]; response[ 'Entitats Convocades' ] = $llista_entitats[0]; response[ 'Delegades Convocades' ] = $llista_delegades[0]; } if ( $proces == 'decisio_validacio' ) { response[ 'Validació' ] = $__arg( 'decisio' ) || ' per ' || $adr__; $decisio_presa = $dades[ $secc_ref_decisio ] otherwise ''; if ( $decisio_presa != '' ) response[ 'Validació' ] = $decisio_presa || ' per grup ' || $grup; if ( !! $dades[ 'validacio_' || $idprop ] ) response[ 'Validació' ] = 'aprovada'; if ( !! $dades[ 'refus_' || $idprop ] ) response[ 'Validació' ] = 'refusada'; } }" } ] } ]