[
"autonomous agent",
{
"bounce_fees": {
"base": 25000
},
"init": "{
$nom_AA = 'Portal';
$_AUT_000 = 'XD7FVUM442NPIIMLRIT2FYWJEDQ4ILLJ';
// Principals
$adr__ = trigger.address;
$args = trigger.data;
$_unitat = trigger.output[[ asset != base ]].asset;
$qt = trigger.output[[ asset = $_unitat ]];
$noms = var[ 'noms' ] otherwise {};
$versions = var[ 'versions' ] otherwise {};
$getons_provisionals = var[ 'getons_provisionals' ] otherwise {};
$dades = {};
// Abreviacions
$admin = $args.admin;
$proces = $args.proces;
$ref = $args.ref;
$val = $args.val;
$idprop = $args.idprop;
$nom = $args.nom;
$adr = $args.adr;
$estat = $args.estat;
$qt_args = $args.qt;
// Funcions auxiliars
$versions_Portal = $versions.Portal otherwise this_address;
$__dada_port = $refval =>
data_feed[[ oracles = $versions_Portal, feed_name = $refval, ifnone = false ]];
$_Accions = $__dada_port( '_Accions' ) otherwise $args._Accions;
$versions_Accions = $versions.Accions otherwise $_Accions;
$__dada_acc = $refval =>
data_feed[[ oracles = $versions_Accions, feed_name = $refval, ifnone = false ]];
$_Validacions = $__dada_port( '_Validacions' ) otherwise $args._Validacions;
$versions_Validacions = $versions.Validacions otherwise $_Validacions;
$__dada_val = $refval =>
data_feed[[ oracles = $versions_Validacions, feed_name = $refval, ifnone = false ]];
$_Getons = $__dada_port( '_Getons' ) otherwise $args._Getons;
$versions_Getons = $versions.Getons otherwise $_Getons;
$__dada_get = $refval =>
data_feed[[ oracles = $versions_Getons, feed_name = $refval, ifnone = false ]];
// Retorna valor argument lliurat si el troba. Altrament, rebota.
$__arg = $arg =>
$args[ $arg ] otherwise
bounce( "Cal proporcionar el valor de: " || $arg );
// Retorna ordinal
$__ordinal = $rf => {
$ord = $__dada_port( 'ordinal_' || $rf );
$ord ? $ord + 1 : 1
};
// Provisions
$__provisio = $rf => {
$prov = $__dada_port( 'Provisio' );
$romanent_minim = $__dada_port( 'Romanent_Minim' );
$romanent = balance[ $rf ][ base ];
$romanent > $romanent_minim ?
$prov :
$prov * 10
};
// Identificacions
$actuant_es_AUT_000 = $adr__ == $_AUT_000;
$_AUT_0 = $__dada_port( '_AUT_0' );
$actuant_es_AUT =
( $actuant_es_AUT_000 AND ! $_AUT_0 )
OR $adr__ == $__dada_port( '_AUT_A' )
OR $adr__ == $__dada_port( '_AUT_B' )
OR $adr__ == $__dada_port( '_AUT_C' )
OR $adr__ == $_AUT_0;
// Admin
if ( $admin ) {
// Autorització
if ( ! $actuant_es_AUT ) bounce( 'No autoritzada' );
// _AUT_000 pot saltar-se procés validació mentre no existeixi _AUT_0
$excepcio_inicial =
( $actuant_es_AUT_000 AND ! $_AUT_0 )
OR $proces == 'copia_dades_portal';
if ( ! $excepcio_inicial ) {
if ( !! $args.operacio AND $args.operacio == 'confirmacio' ) {
// La proposta ha d'existir
$temps_idprop = $__dada_port( $idprop );
if ( ! $temps_idprop ) bounce( "No hi ha cap proposta amb aquesta ref" );
// La confirmació l'ha de fer una AUT diferent a la proposant
if ( $__dada_port( $idprop || '_proposant' ) == $adr__ )
bounce( "El procés de confirmació l'ha d'endegar una altra AUT" );
// La confirmació només es pot fer quan ha transcorregut el lapse especificat
if ( $__dada_port( 'Lapse' ) > timestamp - $temps_idprop )
bounce( "Encara no es pot confirmar la proposta" );
// La proposta ha de constar com a validada
if ( ! $__dada_val( 'validacio_' || $idprop ) )
bounce( "La proposta encara no ha estat validada" );
$dades[ 'confirmacio_' || $idprop ] = timestamp;
$dades[ 'confirmacio_' || $idprop || '_confirmant' ] = $adr__;
$operacio = 'confirmacio';
} else {
$ord_prop = $__ordinal( $proces );
$nova_idprop = 'proposta_' || $proces || '_' || $ord_prop;
$dades[ 'ordinal_' || $proces ] = $ord_prop;
$dades[ $nova_idprop ] = timestamp;
$dades[ $nova_idprop || '_proposant' ] = $adr__;
$operacio = 'proposta';
}
} else {
$ord_prop = $__ordinal( $proces );
$nova_iddrec = 'drecera_' || $proces || '_' || $ord_prop;
$dades[ 'ordinal_' || $proces ] = $ord_prop;
$dades[ $nova_iddrec ] = timestamp;
$dades[ $nova_iddrec || '_actuant' ] = $adr__;
$operacio = 'drecera';
}
}
// Valors funcionals
$_estels = $__dada_port( '_Estels' );
if ( $proces != 'inicialitzacio' ) {
$cicle_actual =
1 + floor( ( timestamp - $__dada_port( 'Origen' ) ) / $__dada_port( 'Interval' ) );
$nova_escala = length( $__dada_acc( 'total_FOP_en_estels' ) otherwise 1 );
$escala_actual = $__dada_port( 'escala_actual' );
$data_escala_actual = $__dada_port( 'data_escala_actual' );
if ( $nova_escala > $escala_actual ) {
$dades[ 'escala_actual' ] = $nova_escala;
$dades[ 'data_escala_actual' ] = timestamp;
$interval_escala = 1000;
} else $interval_escala = timestamp - $data_escala_actual + 1000;
}
}",
"messages": {
"cases": [
{
"if": "{ $proces == 'acces_accions' }",
"init": "{
$unitat_es_geto = !! $__dada_get( 'refgeto_' || $_unitat );
if ( $_unitat != $_estels
AND ( ! $unitat_es_geto OR $unitat_es_geto.estat != 'actiu' ) )
bounce( 'Getó inexistent o inactiu' );
$ACC = $__arg( 'accio' );
$refgeto =
$unitat_es_geto ?
$__dada_get( 'refgeto_' || $_unitat ) :
'estels';
// Comprova si adreça activada per operar amb getó especificat
$__activada = ( $adrr, $reff ) =>
!! $__dada_acc( 'activacio_' || $adrr || '_en_' || $reff ) ?
true :
bounce( 'Adreça no activada per a ' || $reff );
// Control adr__ activa
// Tret de l'activació per a Estels, per a la resta d'accions cal
// que l'adr__ actuant consti com a activada per operar amb Estels
if ( $unitat_es_geto ) {
$__activada( $adr__, 'estels' );
if ( $ACC != 'Activacio' )
$__activada( $adr__, $refgeto );
}
else if ( $ACC != 'Activacio' )
$__activada( $adr__, 'estels' );
// Consulta si acció restringida
$__accRestringida = $acc => {
$refgeto == 'estels' ?
false :
$__dada_get( $refgeto || '_' || $acc || 'ns_restringides' )
};
// Si acció restringida per al getó especificat, comprova si adreça capacitada
$__capacitada = ( $acc, $adrr ) => true; // Pendent revisió
/*
$__capacitada = ( $acc, $adrr ) => {
$capacitacio = $__dada_geto( 'capacitacio_' || $refgeto || '_' || $acc || '_' || $adrr );
$__accRestringida( $acc ) AND ! $capacitacio OR $capacitacio != 'capacitada' ?
bounce( 'Adreça no capacitada per a aquesta acció' ) :
true
};
*/
// Les contribucions només es poden fer en Estels
if ( $ACC == 'Contribucio' AND $refgeto != 'estels' )
bounce( 'Les contribucions només es poden fer en estels' );
if ( $ACC == 'Transfer' ) {
$receptora = $__arg( 'receptora' );
$receptora_activada =
$__activada( $receptora, 'estels' ) AND
$__activada( $receptora, $refgeto );
$receptora_capacitada =
$unitat_es_geto ?
$__capacitada( 'recepcio', $receptora ) :
true;
$ref_subscripcio = 'subscripcio_' || $receptora || '_en_' || $refgeto;
$receptora_subscrita = !! $__dada_acc( $ref_subscripcio );
$ref_renovacio = 'renovacio_' || $receptora || '_en_' || $refgeto;
$cicle_renovacio = $__dada_acc( $ref_renovacio || '_cicle' );
$receptora_renovada =
!! $cicle_renovacio AND
$cicle_renovacio == $cicle_actual;
if ( $receptora_subscrita AND $receptora_renovada ) {
$percent_derivacio = $__dada_acc( $ref_subscripcio || '_derivacio' );
$args.qt_derivacio = floor( $qt * $percent_derivacio / 100 );
$qt_accio = $qt - $args.qt_derivacio;
$args.amb_derivacio = true;
}
}
$args.cicle_actual = $cicle_actual;
$args.escala_actual = $escala_actual;
$args.interval_escala = $interval_escala;
$args.refgeto = $refgeto;
$args.qt_accio = $qt_accio otherwise $qt;
}",
"messages": [
{
"app": "data_feed",
"payload": "{ $dades }"
},
{
"app": "data",
"payload": "{ $args }"
},
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $_Accions }",
"amount": "{ $__provisio( $_Accions ) }"
}
]
}
},
{
"if": "{ $ACC == 'Transfer' }",
"app": "payment",
"payload": {
"asset": "{ $_unitat }",
"outputs": [
{
"address": "{ $receptora }",
"amount": "{ $args.qt_accio }"
}
]
}
},
{
"app": "state",
"state": "{
if ( !! $receptora )
response[ 'Transfer a' ] =
$receptora || " de " || $args.qt_accio || " " || $refgeto;
if ( $receptora_subscrita AND ! $receptora_renovada )
response[ 'Atenció!' ] =
"Adreça receptora subscrita però no renovada per al cicle actual: " ||
" No comporta cap mena de derivació!";
response[ 'Procés' ] = $proces;
response[ 'Romanent en bytes' ] = balance[ base ] || ' bytes';
response[ 'Romanent en estels' ] = balance[ $_estels ] || ' estels';
}"
}
]
},
{
"if": "{ $admin AND $proces == 'inicialitzacio' }",
"init": "{
$__definidors = $r => {
$dades[ $r ] = $args[ $r ];
//response[ $r ] = $dades[ $r ];
};
$refs_definidors = [
'_Accions', '_Getons', '_Validacions', '_Validadores',
'_FRO', '_Estels', '_AUT_A', '_AUT_B'
];
$m = map( $refs_definidors, 8, $__definidors );
$dades.Origen = timestamp;
$dades.Interval = 900;
//$dades.Interval = 2419200; * 4 setmanes
//$dades.Lapse = 172800; * 2 dies
$dades.Lapse = 800;
$dades.Import_Activacio = 20;
$dades.Import_Subscripcio = 50;
$dades.Import_Renovacio = 30;
$dades.Taxa_Conversio = 4;
$dades.Factor_Conversio = 10;
$dades.Compensacio_Interficie = 10;
$dades.Compensacio_Promocio = 20;
$dades.Generacio_Minima = 1000;
$dades.Nombre_Delegades = 5;
$dades.Nombre_Aprovacions = 5;
$dades.Cicles_Diposit = 3;
$dades.Diposit_Minim = 100;
$dades.Provisio = 2000;
$dades.Romanent_Minim = 10000;
$dades.escala_actual = 1;
$dades.data_escala_actual = timestamp;
}",
"messages": [
{
"app": "data_feed",
"payload": "{ $dades }"
},
{
"app": "data",
"payload": "{ $args }"
},
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $__arg( '_Accions' ) }",
"amount": "{ $dades.Provisio * 10 }"
}
]
}
},
{
"app": "state",
"state": "{
$versions.Portal = this_address;
$versions.Accions = $dades._Accions;
$versions.Getons = $dades._Getons;
$versions.Validacions = $dades._Validacions;
$versions.Validadores = $dades._Validadores;
var[ 'versions' ] = $versions;
response[ 'Procés' ] = $proces;
response[ 'Operació' ] = $operacio;
}"
}
]
},
{
"if": "{ $admin AND $proces == 'esmena_definidor' }",
"init": "{
if ( $operacio == 'proposta' ) {
$dades[ $nova_idprop || '_ref' ] = $ref;
$dades[ $nova_idprop || '_val' ] = $val;
} else {
$nova_ref = $__dada_port( $idprop || '_ref' ) otherwise $ref;
$nou_val = $__dada_port( $idprop || '_val' ) otherwise $val;
$dades[ $nova_ref ] = $nou_val;
}
}",
"messages": [
{
"app": "data_feed",
"payload": "{ $dades }"
},
{
"app": "state",
"state": "{
if ( $operacio != 'proposta' ) {
$nom_aa = substring( $nova_ref, 1 );
$AAs = 'Accions, Getons, Validacions, Validadores';
if( contains( $AAs, $nom_aa ) ) {
$versions_aa = $versions[ $nom_aa ];
$_aa = $nou_val;
if ( ! is_aa( $_aa ) ) bounce( 'No és un AA' );
delete( $versions_aa, $_aa );
$versions[ $nom_aa ] = $_aa || ' : ' || $versions_aa;
var[ 'versions' ] = $versions;
response[ 'Versions ' || $nom_aa ] = $versions[ $nom_aa ];
}
}
response[ 'Nova ref' ] = $nova_ref otherwise $ref;
response[ 'Nou valor' ] = $nou_val otherwise $val;
response[ 'Proposta' ] =
$nova_idprop otherwise $idprop otherwise 'drecera';
response[ 'Procés' ] = $proces;
response[ 'Operació' ] = $operacio;
}"
}
]
},
{
"if": "{ $admin AND $proces == 'copia_dades_portal' }",
"messages": [
{
"app": "state",
"state": "{
$versions_actual = var[ $args.adr ][ 'versions' ];
$versions.Portal = this_address || ' : ' || $versions_actual[ 'Portal' ];
delete( $versions_actual[ 'Accions' ], $_Accions );
$versions.Accions = $_Accions || ' : ' || $versions_actual[ 'Accions' ];
delete( $versions_actual[ 'Validacions' ], $_Validacions );
$versions.Validacions = $_Validacions || ' : ' || $versions_actual[ 'Validacions' ];
delete( $versions_actual[ '_Getons' ], $_Getons );
$versions.Getons = $_Getons || ' : ' || $versions_actual[ 'Getons' ];
var[ 'versions' ] = $versions;
var[ 'noms' ] = var[ $args.adr ][ 'noms' ] otherwise {};
var[ 'getons_provisionals' ] = var[ $args.adr ][ 'getons_provisionals' ] otherwise {};
response[ 'Procés' ] = $proces;
}"
}
]
},
{
"if": "{
$proces == 'assignacio' OR $proces == 'conversio' OR $proces == 'retribucio'
}",
"init": "{
if ( $admin AND $proces == 'assignacio' ) {
$ref_assignacio = 'assignacio_' || $args.requeriment;
$destinataria = $args.destinataria;
$qt_assignacio = $__dada_port( $idprop || '_qt' ) otherwise $qt_args;
if ( $operacio == 'proposta' ) {
$dades[ $nova_idprop || '_destinataria' ] = $destinataria;
$dades[ $nova_idprop || '_resolucio' ] = $args.resolucio;
$dades[ $nova_idprop || '_requeriment' ] = $args.requeriment;
$dades[ $nova_idprop || '_qt' ] = $qt_args;
$dades[ $nova_idprop || '_unitat' ] = $args.unitat;
} else {
$unitat = $__dada_port( $idprop || '_unitat' ) otherwise $args.unitat;
$dades[ $ref_assignacio || '_unitat' ] = $unitat;
$dades[ $ref_assignacio || '_destinataria' ] =
$__dada_port( $idprop || '_destinataria' ) otherwise $destinataria;
$dades[ $ref_assignacio || '_resolucio' ] =
$__dada_port( $idprop || '_resolucio' ) otherwise $args.resolucio;
$dades[ $ref_assignacio || '_requeriment' ] =
$__dada_port( $idprop || '_requeriment' ) otherwise $args.requeriment;
$dades[ $ref_assignacio || '_qt' ] = $qt_assignacio;
$total_assignacions = $__dada_port( 'total_assignacions' ) otherwise 0;
$dades[ 'total_assignacions' ] = $total_assignacions + $qt_assignacio;
}
$payment = [ $unitat, $destinataria, $qt_args ];
$realitzable = $operacio != 'proposta';
}
if ( $proces == 'conversio' ) {
$qt_dipositada = $__dada_acc( $__arg( 'ref' ) );
$qt_conversio = $__dada_acc( $ref || '_qt_conversio' );
$geto_diposit = $__dada_acc( $ref || '_geto_diposit' );
$cicle_conversio = $__dada_acc( $ref || '_cicle_conversio' );
$cicle_renovat = $__dada_acc( 'renovacio_' || $adr__ || '_en_' || $geto_diposit || '_cicle' );
$unitat = $geto_diposit == $_estels ? "base" : $_estels;
$ref_conversio = 'conversio_' || $ref;
if ( ! $qt_conversio ) bounce( 'Dipòsit inexistent' );
if ( $adr__ != $__dada_acc( $ref || '_dipositant' ) )
bounce( "L'adreça receptora ha de ser la dipositant" );
if ( !! $__dada_port( $ref_conversio || '_data' ) )
bounce( 'Aquest dipòsit ja ha estat convertit' );
if ( $cicle_conversio > $cicle_actual )
bounce( "Encara no és l'hora" );
if ( $cicle_renovat < $cicle_actual )
bounce( "No renovada en " || $geto_diposit || " per al cicle actual: " || $cicle_actual );
$dades[ $ref_conversio || '_data' ] = timestamp;
$dades[ $ref_conversio || '_qt' ] = $qt_conversio;
$dades[ $ref_conversio || '_unitat' ] = $unitat;
$ref_total_conversions = 'total_conversions_' || $geto_diposit;
$total_conversions = $__dada_port( $ref_total_conversions ) otherwise 0;
$dades[ $ref_total_conversions ] = $total_conversions + $qt_dipositada;
$ref_total_taxes = 'total_taxes_' || $geto_diposit;
$total_taxes = $__dada_port( $ref_total_taxes ) otherwise 0;
$dades[ $ref_total_taxes ] = $total_taxes + $qt_dipositada - $qt_conversio;
$payment = [ $unitat, $adr__, $qt_conversio ];
$realitzable = true;
}
if ( $proces == 'retribucio' ) {
if ( $ref == 'aportacio_activacio' ) {
$import = $__dada_acc( 'activacio_' || $adr__ || '_en_estels_qt' );
$escala = $__dada_acc( 'activacio_' || $adr__ || '_en_estels_escala' );
$interval = $__dada_acc( 'activacio_' || $adr__ || '_en_estels_interval' );
if ( ! $import ) bounce( 'Activació inexistent' );
} else {
$import = $__dada_acc( $ref );
$escala = $__dada_acc( $ref || '_escala' );
$interval = $__dada_acc( $ref || '_interval' );
if ( ! $import ) bounce( 'Contribució inexistent' );
if ( $adr__ != $__dada_acc( $ref || '_contribuidora' ) )
bounce( "Només l'adreça contribuïdora pot rebre la retribució" );
}
$ref_retribucio = 'retribucio_' || $ref || '_' || $escala_actual;
$retribucio = $__dada_port( $ref_retribucio );
if ( !! $retribucio )
bounce( "Ja ha estat retribuïda per a l'escala actual" );
// Cal que s'hagi produït un salt d'escala
if ( $escala_actual == $escala )
bounce ( "Cal que es produeixi un salt d'escala" );
// Cal que hagi passat igual o més temps entre la data del salt d'escala i la de la
//retribució que entre la data del salt d'escala de la contribucio i la data d'aquesta
$diferencia_intervals = $interval_escala - $interval;
if ( $diferencia_intervals < 0 )
bounce ( "Encara no és l'hora. Falten: " || $diferencia_intervals || 'segons' );
// Determina la qt de la retribucio
$qt_retribucio = $import * ( $escala_actual - $escala );
$dades[ $ref_retribucio || '_data' ] = timestamp;
$dades[ $ref_retribucio || '_qt' ] = $qt_retribucio;
$dades[ $ref_retribucio || '_destinataria' ] = $adr__;
$total_retribucions = $__dada_port( 'total_retribucions' ) otherwise 0;
$dades[ 'total_retribucions' ] = $total_retribucions + $qt_retribucio;
$payment = [ $_estels, $adr__, $qt_retribucio ];
$realitzable = true;
}
}",
"messages": [
{
"if": "{ $realitzable }",
"app": "payment",
"payload": {
"asset": "{ $payment[0] }",
"outputs": [
{
"address": "{ $payment[1] }",
"amount": "{ $payment[2] }"
}
]
}
},
{
"app": "data_feed",
"payload": "{ $dades }"
},
{
"app": "state",
"state": "{
if ( $proces == 'assignacio' ) {
response[ 'Proposta' ] =
$nova_idprop otherwise $ref otherwise 'drecera';
response[ 'Quantitat' ] = $qt_args;
response[ 'Destinataria' ] = $destinataria;
response[ 'Unitat' ] = $unitat;
response[ 'Operació' ] = $operacio;
}
response[ 'Ref procés' ] =
$ref_assignacio otherwise $ref_conversio otherwise $ref_retribucio;
response[ 'Procés' ] = $proces;
}"
}
]
},
{
"if": "{
$admin AND
(
$proces == 'convocatoria_validadores' OR
$proces == 'decisio_validacio' OR
$proces == 'validacio_directa_TEST' AND $actuant_es_AUT
)
}",
"messages": [
{
"app": "data",
"payload": "{ $args }"
},
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $_Validacions }",
"amount": "{ $__provisio( $_Validacions ) }"
}
]
}
}
]
},
{
"if": "{ $admin AND $args.admin_vincles }",
"init": "{
$tipus_vincle = $__dada_port( $idprop || '_tipus' ) otherwise $__arg( 'tipus' );
$_vincle = $__dada_port( $idprop || '_adr' ) otherwise $__arg( 'adr' );
$nom_vincle = $__dada_port( $idprop || '_nom' ) otherwise $__arg( 'nom' );
$llista_noms = $noms[ $tipus_vincle ] otherwise '';
$ref_vincle = $tipus_vincle || '_' || $_vincle;
$registrat = !! $__dada_port( $ref_vincle );
if ( $proces == 'nou_vincle' ) {
if ( $registrat )
bounce( "Ja n'hi ha un amb aquesta adreça" );
if ( contains( $llista_noms, $nom_vincle ) )
bounce( "Ja n'hi ha un amb aquest nom" );
if ( $operacio == 'proposta' ) {
$dades[ $nova_idprop || '_adr' ] = $adr;
$dades[ $nova_idprop || '_nom' ] = $nom;
} else {
$dades[ $ref_vincle || '_adr' ] = $_vincle;
$dades[ $ref_vincle || '_nom' ] = $nom_vincle;
$dades[ $ref_vincle || '_estat' ] = 'operatiu';
}
}
if ( $proces == 'nou_estat_vincle' ) {
if ( ! $registrat )
bounce( "No n'hi ha cap amb aquesta adreça" );
if ( $operacio == 'proposta' ) {
$dades[ $nova_idprop || '_adr' ] = $adr;
$dades[ $nova_idprop || '_estat' ] = $estat;
} else {
$nou_estat = $__dada_port( $idprop || '_estat' ) otherwise $estat;
$dades[ $ref_vincle || '_estat' ] = $nou_estat;
if ( $nou_estat == 'opereatiu' )
$noms[ $tipus_vincle ] = ': ' || $nom_vincle || ' ' || $noms;
else
$fes = replace( $noms, ( ': ' || $nom_vincle ), '' );
}
}
}",
"messages": [
{
"app": "data_feed",
"payload": "{ $dades }"
},
{
"app": "state",
"state": "{
var[ 'noms' ] = $noms;
if ( !! $nou_estat )
response[ 'Nou estat entitat ' || $ref_vincle ] = $nou_estat;
response[ 'Proposta' ] = $nova_idprop otherwise $ref otherwise 'drecera';
response[ 'Procés' ] = $proces;
response[ 'Operació' ] = $operacio;
}"
}
]
},
{
"if": "{ $admin AND $proces == 'implementacio_geto' }",
"init": "{
if ( $operacio == 'proposta' ) {
$dades[ $nova_idprop || '_admin' ] = $args.admin;
$dades[ $nova_idprop || '_nom' ] = $nom;
} else {
$admin_nou_geto = $__dada_port( $idprop || '_admin' ) otherwise $args.admin;
$nom_nou_geto = $__dada_port( $idprop || '_nom' ) otherwise $nom;
$ref_nou_geto =
$nom_nou_geto || '_'
|| substring( $admin_nou_geto, number_from_seed( $admin_nou_geto, 5 ) );
$dades[ $ref_nou_geto || '_admin' ] = $admin_nou_geto;
}
}",
"messages": [
{
"app": "data_feed",
"payload": "{ $dades }"
},
{
"if": "{ $operacio != 'proposta' }",
"app": "asset",
"payload": {
"cap": "{ $args.cap otherwise 1e9 }",
"is_private": false,
"is_transferrable": true,
"auto_destroy": "{ !! $args.auto_destroy }",
"fixed_denominations": false,
"issued_by_definer_only": true,
"cosigned_by_definer": false,
"spender_attested": false
}
},
{
"if": "{ $operacio != 'proposta' }",
"app": "state",
"state": "{
$getons_provisionals[ $ref_nou_geto ] = response_unit;
var[ 'getons_provisionals' ] = $getons_provisionals;
response[ 'Id getó ' || $ref_nou_geto ] = response_unit;
response[ 'Proposta' ] = $nova_idprop otherwise $ref otherwise 'drecera';
response[ 'Procés' ] = $proces;
response[ 'Operació' ] = $operacio;
}"
}
]
},
{
"if": "{ $admin AND $proces == 'nou_estat_geto' }",
"init": "{
// El getó ha d'existir
if ( ! $__dada_get( 'geto_' || $ref || '_id' ) )
{ bounce( 'Getó inexistent' ); }
if ( $operacio == 'proposta' ) {
$dades[ $nova_idprop || '_geto' ] = $ref;
$dades[ $nova_idprop || '_estat' ] = $estat;
} else {
$refgeto = $__dada_port( $idprop || '_geto' ) otherwise $ref;
$nou_estat = $__dada_port( $idprop || '_estat' ) otherwise $estat;
$dades[ $refgeto || '_estat' ] = $nou_estat;
}
}",
"messages": [
{
"app": "data_feed",
"payload": "{ $dades }"
},
{
"app": "state",
"state": "{
response[ 'Nou estat getó ' || $refgeto ] = $nou_estat otherwise $estat;
response[ 'Proposta' ] = $nova_idprop otherwise $ref otherwise 'drecera';
response[ 'Procés' ] = $proces;
response[ 'Operació' ] = $operacio;
}"
}
]
},
{
"if": "{ $admin AND $proces == 'alta_geto' }",
"init": "{
$id_nou_geto = $getons_provisionals[ $ref ];
if ( ! $id_nou_geto ) bounce( 'Getó desconegut' );
$admin_geto = $__dada_port( $ref || '_admin' );
if ( $operacio == 'proposta' ) {
$dades[ $nova_idprop || '_ref' ] = $ref;
$dades[ $nova_idprop || '_id' ] = $id_nou_geto;
$dades[ $nova_idprop || '_admin' ] = $admin_geto;
} else {
$refgeto = $__dada_port( $idprop || '_ref' ) otherwise $ref;
$idgeto = $__dada_port( $idprop || '_id' ) otherwise $id_nou_geto;
$dades[ 'geto_' || $refgeto || '_id' ] = $idgeto;
$dades[ 'geto_' || $refgeto || '_admin' ] = $admin_geto;
$dades[ 'geto_' || $refgeto || '_estat' ] = 'operatiu';
$dades[ 'refgeto_' || $idgeto ] = $refgeto;
}
}",
"messages": [
{
"app": "data_feed",
"payload": "{ $dades }"
},
{
"app": "state",
"state": "{
delete( $getons_provisionals, $ref );
response[ 'Ref nou getó' ] = $refgeto;
response[ 'Id nou getó' ] = $idgeto;
response[ 'Admin nou getó' ] = $idgeto;
response[ 'Proposta' ] = $nova_idprop otherwise $ref otherwise 'drecera';
response[ 'Procés' ] = $proces;
response[ 'Operació' ] = $operacio;
}"
}
]
},
{
"if": "{ $args.admin_geto }",
"init": "{
$refgeto = $args.refgeto;
$args.operacio = $operacio;
$args.idprop = $nova_idprop;
}",
"messages": [
{
"if": "{ $proces == 'emissio_getons' }",
"init": "{
$admin_geto = $__dada_port( $ref || '_admin' );
if ( ! $admin_geto OR $admin_geto != $adr__ )
bounce( 'No autoritzada per administrar el getó' );
if ( $_unitat != $_estels ) bounce( 'Cal aportar-hi estels' );
$minim = $__dada_port( 'Generacio_Minima' );
if ( $qt < $minim )
bounce( 'Cal aportar-hi si més no ' || $minim || ' estels' );
}",
"app": "payment",
"payload": {
"asset": "{ $__dada_get( $refgeto || '_id' ) }",
"outputs": [
{
"address": "{ $__dada_get( $refgeto || '_FOP' ) }",
"amount": "{ $qt * $__dada_get( $refgeto || 'factor_conversio' ) }"
}
]
}
},
{
"app": "data",
"payload": "{ $args }"
},
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $_Getons }",
"amount": "{ $__provisio( $_Getons ) }"
}
]
}
}
]
}
]
}
}
]