Call a foreign-language function: Difference between revisions

Content added Content deleted

Inline

@@ Line 333: / Line 333: @@
 	api = info->CAPI;
 }</lang>
+=={{header|COBOL}}==
+Tested with GnuCOBOL
+<lang cobol>       identification division.
+       program-id. foreign.
+       data division.
+       working-storage section.
+hello.
+value z"Hello, world".
+duplicate    usage pointer.
+buffer       pic x(16) based.
+storage      pic x(16).
+       procedure division.
+       call "strdup" using hello returning duplicate
+           on exception
+               display "error calling strdup" upon syserr
+       end-call
+       if duplicate equal null then
+           display "strdup returned null" upon syserr
+       else
+           set address of buffer to duplicate
+           string buffer delimited by low-value into storage
+           display function trim(storage)
+           call "free" using by value duplicate
+               on exception
+                   display "error calling free" upon syserr
+       end-if
+       goback.</lang>
+{{out}}
+<pre>
+prompt$ cobc -x foreign.cob
+prompt$ ./foreign
+Hello, world
+</pre>
 =={{header|Common Lisp}}==