aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Task/Call-a-foreign-language-function/Maple/call-a-foreign-language-function-1.maple Normal file
View file

@ -0,0 +1,3 @@
> strdup := define_external( strdup, s::string, RETURN::string, LIB = "/lib/libc.so.6" ):
> strdup( "foo" );
"foo"

11
Task/Call-a-foreign-language-function/Maple/call-a-foreign-language-function-2.maple Normal file
View file

@ -0,0 +1,11 @@
> csin := define_external( sin, s::float[8], RETURN::float[8], LIB = "libm.so" );
csin := proc(s::numeric)
option call_external, define_external(sin, s::float[8],
RETURN::float[8], LIB = "libm.so");
call_external(
Array(1..8, [...], datatype = integer[4], readonly), false,
args)
end proc
> csin( evalf( Pi / 2 ) );
1.