quinn-os/my-basic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*improved the EDIT -I command in the shell interactive mode.

Browse Source
This commit is contained in:
Wang Renxin 2016-01-14 21:13:38 +08:00
parent baec8134eb
commit 950afc20e6
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
output/my_basic_mac
View File

Binary file not shown.

6
shell/main.c
View File

@ -574,6 +574,7 @@ static void _edit_program(const char* no) {
static void _insert_program(const char* no) { static void _insert_program(const char* no) {
char line[_MAX_LINE_LENGTH]; char line[_MAX_LINE_LENGTH];
long lno = 0; long lno = 0;
int l = 0;
int i = 0; int i = 0;
mb_assert(no); mb_assert(no);
@ -594,8 +595,11 @@ static void _insert_program(const char* no) {
} }
for(i = c->count; i > lno; i--) for(i = c->count; i > lno; i--)
c->lines[i] = c->lines[i - 1]; c->lines[i] = c->lines[i - 1];
c->lines[lno] = (char*)realloc(0, strlen(line) + 1); l = (int)strlen(line);
c->lines[lno] = (char*)realloc(0, l + 2);
strcpy(c->lines[lno], line); strcpy(c->lines[lno], line);
c->lines[lno][l] = '\n';
c->lines[lno][l + 1] = '\0';
c->count++; c->count++;
} }