Commit c879a3b4 authored by Erick's avatar Erick

Changed the way cpointers are printed

parent 7a780b7f
......@@ -18,7 +18,7 @@
;; USA.
;; Author: Erick Gallesio [eg@unice.fr]
;; Creation date: 26-Nov-2000 18:19 (eg)
;; Last file update: 27-Aug-2008 13:44 (eg)
;; Last file update: 26-Sep-2008 08:10 (eg)
;;
;; ======================================================================
......@@ -536,5 +536,18 @@ you need to insert the following expression])
(fontified-code [(require "srfi-96")])
(p [in your code or uses the ,(code "cond-expand") special form.]))
;; ----------------------------------------------------------------------
;; SRFI 98 -- SAn interface to access environment variables
;; ----------------------------------------------------------------------
(index "get-environment-variable")
(index "get-environment-variables")
(srfi-section 96
(p [,(quick-link-srfi 96) is fully supported and is completely
described in this document (procedures
,(code "get-environment-variable"), and
,(code "get-environment-variables")). ]))
;; End of chapter
)
This diff is collapsed.
This diff is collapsed.
/*
* p r i n t . c -- writing stuff
*
* Copyright 1993-2007 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
* Copyright 1993-2008 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
*
*
* This program is free software; you can redistribute it and/or modify
......@@ -21,7 +21,7 @@
*
* Author: Erick Gallesio [eg@unice.fr]
* Creation date: ??-Oct-1993 ??:??
* Last file update: 9-Dec-2007 18:47 (eg)
* Last file update: 20-Dec-2008 15:55 (eg)
*
*/
#include <ctype.h>
......@@ -200,11 +200,13 @@ void STk_print(SCM exp, SCM port, int mode)
return;
case tc_pointer:
if (CPOINTER_TYPE(exp) == STk_void) {
sprintf(buffer, "#[C-pointer %lx]", (unsigned long) CPOINTER_VALUE(exp));
sprintf(buffer, "#[C-pointer %lx @ %lx]",
(unsigned long) CPOINTER_VALUE(exp), (unsigned long) exp);
} else {
STk_puts("#[", port);
STk_print(CPOINTER_TYPE(exp), port, mode);
sprintf(buffer, "-pointer %lx]", (unsigned long) CPOINTER_VALUE(exp));
sprintf(buffer, "-pointer %lx @ %lx]", (unsigned long) CPOINTER_VALUE(exp),
(unsigned long) exp);
}
STk_puts(buffer, port);
return;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment