132 |
} |
} |
133 |
|
|
134 |
static void |
static void |
135 |
display_expression (SCM frame,SCM pname,SCM source,SCM port) |
display_expression (SCM frame, SCM pname, SCM source, SCM port) |
136 |
{ |
{ |
137 |
SCM print_state = scm_make_print_state (); |
SCM print_state = scm_make_print_state (); |
138 |
scm_print_state *pstate = SCM_PRINT_STATE (print_state); |
scm_print_state *pstate = SCM_PRINT_STATE (print_state); |
335 |
} |
} |
336 |
|
|
337 |
static void |
static void |
338 |
display_frame_expr (char *hdr,SCM exp,char *tlr,int indentation,SCM sport,SCM port,scm_print_state *pstate) |
display_frame_expr (char *hdr, SCM exp, char *tlr, int indentation, SCM sport, SCM port, scm_print_state *pstate) |
339 |
{ |
{ |
340 |
SCM string; |
SCM string; |
341 |
int i = 0, n; |
int i = 0, n; |
377 |
} |
} |
378 |
|
|
379 |
static void |
static void |
380 |
display_application (SCM frame,int indentation,SCM sport,SCM port,scm_print_state *pstate) |
display_application (SCM frame, int indentation, SCM sport, SCM port, scm_print_state *pstate) |
381 |
{ |
{ |
382 |
SCM proc = SCM_FRAME_PROC (frame); |
SCM proc = SCM_FRAME_PROC (frame); |
383 |
SCM name = (!SCM_FALSEP (scm_procedure_p (proc)) |
SCM name = (!SCM_FALSEP (scm_procedure_p (proc)) |
400 |
"output.") |
"output.") |
401 |
#define FUNC_NAME s_scm_display_application |
#define FUNC_NAME s_scm_display_application |
402 |
{ |
{ |
403 |
SCM_VALIDATE_FRAME (1,frame); |
SCM_VALIDATE_FRAME (1, frame); |
404 |
if (SCM_UNBNDP (port)) |
if (SCM_UNBNDP (port)) |
405 |
port = scm_cur_outp; |
port = scm_cur_outp; |
406 |
else |
else |
407 |
SCM_VALIDATE_OPOUTPORT (2,port); |
SCM_VALIDATE_OPOUTPORT (2, port); |
408 |
if (SCM_UNBNDP (indent)) |
if (SCM_UNBNDP (indent)) |
409 |
indent = SCM_INUM0; |
indent = SCM_INUM0; |
410 |
else |
else |
411 |
SCM_VALIDATE_INUM (3,indent); |
SCM_VALIDATE_INUM (3, indent); |
412 |
|
|
413 |
if (SCM_FRAME_PROC_P (frame)) |
if (SCM_FRAME_PROC_P (frame)) |
414 |
/* Display an application. */ |
/* Display an application. */ |
524 |
} |
} |
525 |
|
|
526 |
static void |
static void |
527 |
display_frame (SCM frame,int nfield,int indentation,SCM sport,SCM port,scm_print_state *pstate) |
display_frame (SCM frame, int nfield, int indentation, SCM sport, SCM port, scm_print_state *pstate) |
528 |
{ |
{ |
529 |
int n, i, j; |
int n, i, j; |
530 |
|
|