New file.
1999-12-02 Martin Baulig <martin@home-of-linux.org> * guile_types.pl: New file.
This commit is contained in:
committed by
Martin Baulig
parent
150d9c9961
commit
2b501953ce
@@ -1,3 +1,7 @@
|
|||||||
|
1999-12-02 Martin Baulig <martin@home-of-linux.org>
|
||||||
|
|
||||||
|
* guile_types.pl: New file.
|
||||||
|
|
||||||
1999-11-28 Martin Baulig <martin@home-of-linux.org>
|
1999-11-28 Martin Baulig <martin@home-of-linux.org>
|
||||||
|
|
||||||
* c_types.pl: New file.
|
* c_types.pl: New file.
|
||||||
|
12
scripts/guile_types.pl
Normal file
12
scripts/guile_types.pl
Normal file
@@ -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;
|
Reference in New Issue
Block a user