mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
cleanup by Rob Browning
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@1122 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
parent
a2d9a1e3d1
commit
ad38af026c
@ -1,27 +0,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