fleet vehicle lending at the road incident site

Author: d.kotwal

3-lending/fleet-vehicle-lending/.gitignore

@@ -0,0 +1 @@
+/target

3-lending/fleet-vehicle-lending/Cargo.toml

@@ -0,0 +1,28 @@
+[package]
+name = "fleet-lending"
+version = "0.1.0"
+edition = "2021"
+
+[dependencies]
+sbor = { git = "https://github.com/radixdlt/radixdlt-scrypto", tag = "v0.8.0" }
+scrypto = { git = "https://github.com/radixdlt/radixdlt-scrypto", tag = "v0.8.0" }
+
+[dev-dependencies]
+transaction = { git = "https://github.com/radixdlt/radixdlt-scrypto", tag = "v0.8.0" }
+radix-engine = { git = "https://github.com/radixdlt/radixdlt-scrypto", tag = "v0.8.0" }
+scrypto-unit = { git = "https://github.com/radixdlt/radixdlt-scrypto", tag = "v0.8.0" }
+
+[profile.release]
+opt-level = 's'        # Optimize for size.
+lto = true             # Enable Link Time Optimization.
+codegen-units = 1      # Reduce number of codegen units to increase optimizations.
+panic = 'abort'        # Abort on panic.
+strip = "debuginfo"    # Strip debug info.
+overflow-checks = true # Panic in the case of an overflow.
+
+[lib]
+crate-type = ["cdylib", "lib"]
+
+[workspace]
+# Set the package crate as its own empty workspace, to hide it from any potential ancestor workspace
+# Remove this [workspace] section if you intend the package to be part of a Cargo workspace

3-lending/fleet-vehicle-lending/src/Android_MobileApplication/IncidentManagementSolution.apk

@@ -0,0 +1,7 @@
+# Fleet Lending
+
+Effective design, engineering and delivery of blockchain technology aided solution using Scrypto on Radix for citizens to lend vehicles or fleet services in case of road incidents. 
+
+Planning of fleet deployments or vehicles by using analytics managed in a decemtralized manner at the command and control center. 
+
+

3-lending/fleet-vehicle-lending/src/README.md

@@ -0,0 +1,31 @@
+# Emergency Loans for Citizens requiring Immediate Financial Assistance due to Incidents 
+
+We are developing the module by extending the Flash Loans example.
+
+How to test:
+
+## build flashloan component
+
+1. `resim reset`
+1. `export xrd=030000000000000000000000000000000000000000000000000004`
+1. `cd flashloan`
+1. `scrypto build`
+1. `resim publish .` -> save package id into $fl_package
+1. `resim new-account` -> save address into $acc1 and private key into $priv1
+
+Create the flashloan component with 900 000 XRD of funds and a 5% interest
+1. `resim call-function $fl_package FlashLoan new 900000,$xrd 5` -> save component address into $flashloan
+
+## build caller component
+
+1. `cd ../caller`
+1. `scrypto build`
+1. `resim publish .` -> save package id into $caller_package
+1. `resim call-function $caller_package Caller new $flashloan 10000,$xrd` -> save component address into $caller
+
+## ask for a flashloan
+1. `resim call-method $caller call $caller` - We have to send the address of the caller component since we cannot yet get it from the Context
+
+## Testing what happend when not returning fully owed amount
+Call the same command again, this time, the opportunity bucket contains 0 XRD so you are not able to pay for the loan !
+

3-lending/fleet-vehicle-lending/src/Solution-Modules/emergency-flash-loans-incident-needs/README.md

@@ -0,0 +1,20 @@
+[package]
+name = "caller"
+version = "0.1.0"
+edition = "2021"
+
+[dependencies]
+sbor = { git = "https://github.com/radixdlt/radixdlt-scrypto", tag = "v0.4.1" }
+scrypto = { git = "https://github.com/radixdlt/radixdlt-scrypto", tag = "v0.4.1" }
+
+[dev-dependencies]
+radix-engine = { git = "https://github.com/radixdlt/radixdlt-scrypto", tag = "v0.4.1" }
+
+[profile.release]
+opt-level = 's'     # Optimize for size.
+lto = true          # Enable Link Time Optimization.
+codegen-units = 1   # Reduce number of codegen units to increase optimizations.
+panic = 'abort'     # Abort on panic.
+
+[lib]
+crate-type = ["cdylib"]

3-lending/fleet-vehicle-lending/src/Solution-Modules/emergency-flash-loans-incident-needs/caller/Cargo.toml

@@ -0,0 +1,61 @@
+use scrypto::prelude::*;
+
+/*
+ *  This is an example of a component that is requesting a
+ *  flash loan from another component to make more XRD and repay the loan
+ */
+
+blueprint! {
+    struct Caller {
+        // Address of the flashloan component
+        loaner_component: ComponentAddress,
+        // Used to store payment for the opportunity
+        hidden_vault: Vault,
+        // Used to represent tokens that can be accessed if the user gets the loan
+        opportunity: Vault
+    }
+
+    impl Caller {
+        pub fn new(loaner_component_address: ComponentAddress, opportunity: Bucket) -> ComponentAddress {
+            assert!(opportunity.amount() > dec!("1000"), "The amount of the opportunity must be bigger than 1000");
+            assert_eq!(opportunity.resource_address(), RADIX_TOKEN, "The tokens for the opportunity must be XRD");
+
+            Self {
+                loaner_component: loaner_component_address,
+                hidden_vault: Vault::new(RADIX_TOKEN),
+                opportunity: Vault::with_bucket(opportunity)
+            }
+            .instantiate()
+            .globalize()
+        }
+
+        pub fn call(&self, this_component_address: ComponentAddress) -> Bucket {
+            // Get a loan of 1000 XRD
+            let amount:Decimal = dec!("1000");
+
+            // Call request loan and return the change back to the user
+            borrow_component!(self.loaner_component).call::<Bucket>("request_loan", args![
+                amount, 
+                this_component_address
+            ]).into()
+        }
+
+        // Used to simulate an opportunity to make some XRD by paying 1000 XRD
+        fn get_opportunity(&mut self, payment: Bucket) -> Bucket {
+            assert!(payment.amount() >= 1000.into(), "You need to pay 1000 XRD !");
+            self.hidden_vault.put(payment);
+
+            self.opportunity.take_all()
+        }
+
+        pub fn execute(&mut self, loan: Bucket) -> Bucket {
+            info!("Received {} from loaner !", loan.amount());
+            info!("Found opportunity to make {} XRD !", self.opportunity.amount());
+
+            let opportunity_result = self.get_opportunity(loan);
+
+            // Repay the loan (you get the change back)
+            opportunity_result
+        }
+    }
+}

3-lending/fleet-vehicle-lending/src/Solution-Modules/emergency-flash-loans-incident-needs/caller/src/lib.rs

@@ -0,0 +1,20 @@
+[package]
+name = "flashloan"
+version = "0.1.0"
+edition = "2021"
+
+[dependencies]
+sbor = { git = "https://github.com/radixdlt/radixdlt-scrypto", tag = "v0.4.1" }
+scrypto = { git = "https://github.com/radixdlt/radixdlt-scrypto", tag = "v0.4.1" }
+
+[dev-dependencies]
+radix-engine = { git = "https://github.com/radixdlt/radixdlt-scrypto", tag = "v0.4.1" }
+
+[profile.release]
+opt-level = 's'     # Optimize for size.
+lto = true          # Enable Link Time Optimization.
+codegen-units = 1   # Reduce number of codegen units to increase optimizations.
+panic = 'abort'     # Abort on panic.
+
+[lib]
+crate-type = ["cdylib"]

3-lending/fleet-vehicle-lending/src/Solution-Modules/emergency-flash-loans-incident-needs/flashloan/Cargo.toml

@@ -0,0 +1,39 @@
+use scrypto::prelude::*;
+
+blueprint! {
+    struct FlashLoan {
+        interest: Decimal,
+        vault: Vault
+    }
+
+    impl FlashLoan {
+        /*
+         * Generate a FlashLoan component with a specified interest and a specified bucket as funds
+         */
+        pub fn new(tokens: Bucket, interest: Decimal) -> ComponentAddress {
+            Self {
+                vault: Vault::with_bucket(tokens),
+                interest: interest,
+            }
+            .instantiate()
+            .globalize()
+        }
+
+        pub fn request_loan(&mut self, amount: Decimal, component_address: ComponentAddress) -> Bucket {
+            assert!(amount < self.vault.amount(), "Not enough funds to loan");
+
+            // Call the execute method at the specified component's address with the requested funds
+            let args = args![self.vault.take(amount)];
+            let mut returned_bucket: Bucket = borrow_component!(component_address).call::<Bucket>("execute", args).into();
+
+            // Make sure they repaid in loan in full
+            let amount_to_take = amount * ((self.interest / 100) + 1);
+            assert!(returned_bucket.amount() >= amount_to_take, "You have to return more than {}", amount_to_take);
+
+            self.vault.put(returned_bucket.take(amount_to_take));
+
+            // Return the change back to the component
+            return returned_bucket;
+        }
+    }
+}

3-lending/fleet-vehicle-lending/src/Solution-Modules/emergency-flash-loans-incident-needs/flashloan/src/lib.rs

@@ -0,0 +1,20 @@
+[package]
+name = "donations"
+version = "0.1.0"
+edition = "2021"
+
+[dependencies]
+sbor = { git = "https://github.com/radixdlt/radixdlt-scrypto", tag = "v0.4.1" }
+scrypto = { git = "https://github.com/radixdlt/radixdlt-scrypto", tag = "v0.4.1" }
+
+[dev-dependencies]
+radix-engine = { git = "https://github.com/radixdlt/radixdlt-scrypto", tag = "v0.4.1" }
+
+[profile.release]
+opt-level = 's'     # Optimize for size.
+lto = true          # Enable Link Time Optimization.
+codegen-units = 1   # Reduce number of codegen units to increase optimizations.
+panic = 'abort'     # Abort on panic.
+
+[lib]
+crate-type = ["cdylib", "lib"]