bug fix for case when connection to TP couldn't be made immediately and there was a specific table subscription list. The CTP was failing to initialise

jonnypress · jonnypress · commit 86b8b23c0ab6 · 2016-07-20T08:30:21.000+01:00
diff --git a/code/processes/chainedtp.q b/code/processes/chainedtp.q
@@ -120,7 +120,8 @@ initialise:{
   /- subscribe to the tickerplant
   .ctp.subscribe[]; 
   /- add subscribed table schemas to .ctp.tableschemas, used in cleartables
-  .ctp.tableschemas:{x!(0#)@'value@'x} (),$[any null .ctp.subscribeto;tables[`.];.ctp.subscribeto]
+  if[not notpconnected[]; 
+    .ctp.tableschemas:{x!(0#)@'value@'x} (),$[any null .ctp.subscribeto;tables[`.];.ctp.subscribeto]]
   }
 
 /- returns true if tickerplant is not connected

Original file line number	Diff line number	Diff line change
`@@ -120,7 +120,8 @@ initialise:{`
`120`	`120`	`/- subscribe to the tickerplant`
`121`	`121`	`.ctp.subscribe[];`
`122`	`122`	`/- add subscribed table schemas to .ctp.tableschemas, used in cleartables`
`123`		- .ctp.tableschemas:{x!(0#)@'value@'x} (),$[any null .ctp.subscribeto;tables[`.];.ctp.subscribeto]
	`123`	`+ if[not notpconnected[];`
	`124`	+ .ctp.tableschemas:{x!(0#)@'value@'x} (),$[any null .ctp.subscribeto;tables[`.];.ctp.subscribeto]]
`124`	`125`	`}`
`125`	`126`
`126`	`127`	`/- returns true if tickerplant is not connected`