From 2b501953ceb97ce10e997b45e1efc654c79e0210 Mon Sep 17 00:00:00 2001 From: Martin Baulig Date: Thu, 2 Dec 1999 20:54:55 +0000 Subject: New file. 1999-12-02 Martin Baulig * guile_types.pl: New file. --- scripts/ChangeLog | 4 ++++ scripts/guile_types.pl | 12 ++++++++++++ 2 files changed, 16 insertions(+) create mode 100644 scripts/guile_types.pl (limited to 'scripts') diff --git a/scripts/ChangeLog b/scripts/ChangeLog index b3f9673d..8b2b2781 100644 --- a/scripts/ChangeLog +++ b/scripts/ChangeLog @@ -1,3 +1,7 @@ +1999-12-02 Martin Baulig + + * guile_types.pl: New file. + 1999-11-28 Martin Baulig * c_types.pl: New file. diff --git a/scripts/guile_types.pl b/scripts/guile_types.pl new file mode 100644 index 00000000..b3fb420c --- /dev/null +++ b/scripts/guile_types.pl @@ -0,0 +1,12 @@ +$typeinfo = {'long' => ['gh_long2scm', 'gh_scm2long'], + 'ulong' => ['gh_ulong2scm', 'gh_scm2ulong'], + 'pid_t' => ['gh_long2scm', 'gh_scm2long'], + 'int' => ['gh_long2scm', 'gh_scm2long'], + 'retval' => ['gh_long2scm', 'gh_scm2long'], + 'ushort' => ['gh_long2scm', 'gh_scm2long'], + 'unsigned' => ['gh_ulong2scm', 'gh_scm2ulong'], + 'double' => ['gh_double2scm', 'gh_scm2double'], + 'string' => ['gh_str02scm', 'gh_scm2newstr'], + }; + +1; -- cgit v1.2.1