File tree Expand file tree Collapse file tree
FAST.FBasic.InteractiveConsole Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -147,7 +147,7 @@ private void runFBasicProgram()
147147 env = new ( ) ;
148148 env . DefaultEnvironment ( programsFolder ) ;
149149 }
150- this . sourceProgram = File . ReadAllText ( basProgramFile ) ;
150+ this . sourceProgram = env . FileHandler ( new FBasicFileDescriptor ( ) { FileName = basProgramFile } ) . GetSourceProgram ( ) ;
151151 basic = new Interpreter ( env . installBuiltIns , this . sourceProgram ) ;
152152 env . SetupInterpreter ( basic ) ;
153153
@@ -163,6 +163,7 @@ private void runFBasicProgram()
163163 Console . WriteLine ( ) ;
164164 Console . WriteLine ( "....................end of program...................." ) ;
165165 Console . WriteLine ( $ "Result: { result . value } ") ;
166+ Console . WriteLine ( ) ;
166167 }
167168
168169
Original file line number Diff line number Diff line change 44using FAST . FBasicInterpreter ;
55using FAST . FBasicInterpreter . Types ;
66using Microsoft . Data . Sqlite ;
7+ using Microsoft . Extensions . Configuration ;
78using System . Dynamic ;
89using System . Text . Json ;
10+ using System . Xml . XPath ;
911
1012namespace FAST . FBasic . InteractiveConsole
1113{
@@ -17,6 +19,7 @@ private void setupEnvironment()
1719 env . DefaultEnvironment ( programsFolder ) ;
1820 env . requestForObjectHandler = ( request ) =>
1921 {
22+
2023 if ( request . Level3Request ( ) == "SQL.CONNECTION.MyCursor1" )
2124 {
2225 string cs = "<replace with your CS hear>" ;
@@ -65,7 +68,6 @@ private void setupEnvironment()
6568 return emp ;
6669 }
6770
68-
6971 Console . WriteLine ( $ "Interactive: THE REQUEST FOR OBJECT NOT FOUND. Context:{ request . Context } , Group:{ request . Group } , Name:{ request . Name } ") ;
7072
7173 return null ;
You can’t perform that action at this time.
0 commit comments