Adding support for a genesis DB.

assets/examples/agents/fib.tcl

@@ -0,0 +1,13 @@
+##########################################
+### Perform Fibanaci sequence up to 10 ###
+##########################################
+set GHINT [split "math, fib" ,]
+proc fib {x} {
+	if {<= $x 1} {
+		return 1
+	} else {
+		+ [fib [- $x 1]] [fib [- $x 2]]
+	}
+}
+
+puts [fib 20]

assets/examples/agents/t2.tcl

@@ -0,0 +1,18 @@
+###########################################
+### Square numbers in sequence up to 10 ###
+###########################################
+set GHINT [split "math, square" ,]
+proc square {x} {
+	* $x $x
+}
+
+set a 1
+while {<= $a 10} {
+	if {== $a 5} {
+		puts {Missing five!}
+		set a [+ $a 1]
+		continue
+	}
+	puts "I can compute that $a*$a = [square $a]"
+	set a [+ $a 1]
+}

cmd/gagent/main.go

@@ -290,7 +290,7 @@ func init() {
 	if config.MonitorPort != 0 {
 		go func() {
 			log.Printf("[INFO] Starting Prometheus metrics exporter on port %d\n", config.MonitorPort)
-			log.Fatal(http.ListenAndServe(string(config.ListenAddr)+strconv.Itoa(config.MonitorPort), nil))
+			log.Fatal(http.ListenAndServe(string(config.ListenAddr)+":"+strconv.Itoa(config.MonitorPort), nil))
 		}()
 	}
 }

internal/chaindb/chaindb.go

@@ -38,8 +38,8 @@ func NewGagentDb() *GagentDb {
 /*
  * Load the database from disk
  */
-func (db *GagentDb) LoadHCL() error {
+func (db *GagentDb) LoadHCL(ChainDBPath string) error {
-	err := hclsimple.DecodeFile("chaindb.hcl", nil, db)
+	err := hclsimple.DecodeFile(ChainDBPath, nil, db)
 	if err != nil {
 		return err
 	}

internal/router/router.go

@@ -45,7 +45,7 @@ func Main(wg *sync.WaitGroup, config gstructs.GagentConfig) {
 
 	chain := gcdb.NewGagentDb()
 	log.Println("[DEBUG] Loading chaindb ")
-	err := chain.LoadHCL()
+	err := chain.LoadHCL(config.ChainDBPath)
 	if err != nil {
 		log.Printf("[ERROR] Error loading chaindb: %s", err)
 	}