13 lines
475 B
Prolog
13 lines
475 B
Prolog
$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;
|