mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
oopsy doopsy
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@1129 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
parent
523fff5a21
commit
2c49041fb4
@ -25,30 +25,3 @@ main(int argc, char *argv[]) {
|
||||
gh_enter(argc, argv, guile_entry_point);
|
||||
return 0;
|
||||
}
|
||||
#include <stdio.h>
|
||||
#include <readline.h>
|
||||
#include <history.h>
|
||||
#include <guile/gh.h>
|
||||
#include <FileIO.h>
|
||||
|
||||
static void
|
||||
guile_entry_point(int argc, char *argv[]) {
|
||||
char *input;
|
||||
xacc();
|
||||
|
||||
input = readline("xacc> ");
|
||||
while(input) {
|
||||
SCM result = gh_eval_str(input);
|
||||
gh_display(result);
|
||||
gh_newline();
|
||||
add_history(input);
|
||||
free(input);
|
||||
input = readline("xacc> ");
|
||||
}
|
||||
}
|
||||
|
||||
int
|
||||
main(int argc, char *argv[]) {
|
||||
gh_enter(argc, argv, guile_entry_point);
|
||||
return 0;
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user