Deleted Added
sdiff udiff text old ( 40883 ) new ( 43078 )
full compact
testmain.c (40883) testmain.c (43078)
1/*
2** stub main for testing FICL
3**
4*/
5
6#include <stdlib.h>
7#include <stdio.h>
8#include <string.h>

--- 130 unchanged lines hidden (view full) ---

139 while (fgets(cp, nLINEBUF, fp))
140 {
141 int len = strlen(cp) - 1;
142
143 nLine++;
144 if (len <= 0)
145 continue;
146
1/*
2** stub main for testing FICL
3**
4*/
5
6#include <stdlib.h>
7#include <stdio.h>
8#include <string.h>

--- 130 unchanged lines hidden (view full) ---

139 while (fgets(cp, nLINEBUF, fp))
140 {
141 int len = strlen(cp) - 1;
142
143 nLine++;
144 if (len <= 0)
145 continue;
146
147 if (cp[len] == '\n')
148 cp[len] = '\0';
149
150 result = ficlExec(pVM, cp);
151 if (result >= VM_ERREXIT)
147 result = ficlExec(pVM, cp, len);
148 if (result != VM_QUIT && result != VM_USEREXIT && result != VM_OUTOFTEXT )
152 {
153 pVM->sourceID = id;
154 fclose(fp);
155 vmThrowErr(pVM, "Error loading file <%s> line %d", pFilename->text, nLine);
156 break;
157 }
158 }
159 /*
160 ** Pass an empty line with SOURCE-ID == 0 to flush
161 ** any pending REFILLs (as required by FILE wordset)
162 */
163 pVM->sourceID.i = -1;
149 {
150 pVM->sourceID = id;
151 fclose(fp);
152 vmThrowErr(pVM, "Error loading file <%s> line %d", pFilename->text, nLine);
153 break;
154 }
155 }
156 /*
157 ** Pass an empty line with SOURCE-ID == 0 to flush
158 ** any pending REFILLs (as required by FILE wordset)
159 */
160 pVM->sourceID.i = -1;
164 ficlExec(pVM, "");
161 ficlExec(pVM, "", 0);
165
166 pVM->sourceID = id;
167 fclose(fp);
168
169 return;
170}
171
172/*

--- 68 unchanged lines hidden (view full) ---

241{
242 char in[256];
243 FICL_VM *pVM;
244
245 ficlInitSystem(10000);
246 buildTestInterface();
247 pVM = ficlNewVM();
248
162
163 pVM->sourceID = id;
164 fclose(fp);
165
166 return;
167}
168
169/*

--- 68 unchanged lines hidden (view full) ---

238{
239 char in[256];
240 FICL_VM *pVM;
241
242 ficlInitSystem(10000);
243 buildTestInterface();
244 pVM = ficlNewVM();
245
249 ficlExec(pVM, ".ver .( " __DATE__ " ) cr quit");
246 ficlExec(pVM, ".ver .( " __DATE__ " ) cr quit", -1);
250
251 /*
252 ** load file from cmd line...
253 */
254 if (argc > 1)
255 {
256 sprintf(in, ".( loading %s ) cr load %s\n cr", argv[1], argv[1]);
247
248 /*
249 ** load file from cmd line...
250 */
251 if (argc > 1)
252 {
253 sprintf(in, ".( loading %s ) cr load %s\n cr", argv[1], argv[1]);
257 ficlExec(pVM, in);
254 ficlExec(pVM, in, -1);
258 }
259
260 for (;;)
261 {
262 int ret;
263 if (fgets(in, sizeof(in) - 1, stdin) == NULL)
264 break;
255 }
256
257 for (;;)
258 {
259 int ret;
260 if (fgets(in, sizeof(in) - 1, stdin) == NULL)
261 break;
265 ret = ficlExec(pVM, in);
262 ret = ficlExec(pVM, in, -1);
266 if (ret == VM_USEREXIT)
267 {
268 ficlTermSystem();
269 break;
270 }
271 }
272
273 return 0;
274}
275
263 if (ret == VM_USEREXIT)
264 {
265 ficlTermSystem();
266 break;
267 }
268 }
269
270 return 0;
271}
272