1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
/* File: "guide.h", Time-stamp: <2007-09-12 00:15:38 feeley> */
/* Copyright (c) 1994-2007 by Marc Feeley, All Rights Reserved. */
#ifndef ___GUIDE_H
#define ___GUIDE_H
/*---------------------------------------------------------------------------*/
#define ___VERSION 400001
#include "gambit.h"
#include <qstring.h>
#include <qapplication.h>
#include "guideuischeme.h"
#include "guideuiinspector.h"
/*---------------------------------------------------------------------------*/
#define min(x,y) (((x)<(y))?(x):(y))
#define max(x,y) (((x)>(y))?(x):(y))
/*---------------------------------------------------------------------------*/
/* For conversion between Scheme strings and QStrings. */
___ERR_CODE SCMOBJ_to_QString (___SCMOBJ src, QString* dst, int arg_num);
___ERR_CODE QString_to_SCMOBJ (QString src, ___SCMOBJ* dst, int arg_num);
#define ___BEGIN_CFUN_SCMOBJ_to_QString(src,dst,i) \
if ((___err = SCMOBJ_to_QString (src, &dst, i)) == ___NO_ERR) {
#define ___END_CFUN_SCMOBJ_to_QString(src,dst,i) }
#define ___BEGIN_CFUN_QString_to_SCMOBJ(src,dst) \
if ((___err = QString_to_SCMOBJ (src, &dst, ___RETURN_POS)) == ___NO_ERR) {
#define ___END_CFUN_QString_to_SCMOBJ(src,dst) \
___EXT(___release_scmobj) (dst); }
#define ___BEGIN_SFUN_QString_to_SCMOBJ(src,dst,i) \
if ((___err = QString_to_SCMOBJ (src, &dst, i)) == ___NO_ERR) {
#define ___END_SFUN_QString_to_SCMOBJ(src,dst,i) \
___EXT(___release_scmobj) (dst); }
#define ___BEGIN_SFUN_SCMOBJ_to_QString(src,dst) \
{ ___err = SCMOBJ_to_QString (src, &dst, ___RETURN_POS);
#define ___END_SFUN_SCMOBJ_to_QString(src,dst) }
/*---------------------------------------------------------------------------*/
QApplication *QApplication_new (char **argv);
void myMessageOutput (QtMsgType type, const char *msg);
void QApplication_processEvents (QApplication *app);
GuideUiMainWindow *GuideUiMainWindow_new (void);
GuideUiScheme *GuideUiScheme_new (GuideUiMainWindow *main_window,
QString title, ___SCMOBJ scmobj);
void GuideUiScheme_print_text (GuideUiScheme *repl, QString text);
void GuideUiScheme_continuation_set_highlight (GuideUiScheme *repl, int row);
void GuideUiScheme_continuation_set_cell (GuideUiScheme *repl, int row, int col, QString text);
void GuideUiScheme_continuation_set_length (GuideUiScheme *repl, int nb_rows);
void GuideUiScheme_environment_set_cell (GuideUiScheme *repl, int row, int col,
QString text);
void GuideUiScheme_environment_set_length (GuideUiScheme *repl, int nb_rows);
void GuideUiScheme_highlight_expr_in_console (GuideUiScheme *repl, int line, int col);
void GuideUiScheme_highlight_expr_in_file (GuideUiScheme *repl, int line, int col, QString filename);
void guide_inspector_current_changed (___SCMOBJ scmobj, int row);
/*---------------------------------------------------------------------------*/
#endif
/* Local Variables: */
/* mode: C++ */
/* End: */
|
