function RetStrAda return chars_ptr;
  pragma Export (C, RetStrAda,"rsada");

Я бы даже сказал что немного удобнее чем с питоном, где надо озабочиваться конверсией параметров.

import ctypes
libc = ctypes.CDLL("./dll_lib/libada.dll")
libc.rsada.restype = ctypes.c_char_p
result=libc.rsada()

vs

use Win32::API;
$rsada = Win32::API->new( './dll_lib/libada.dll', 'char* rsada()')  or die "error: $!\n";
$result = $rsada->Call();

При этом ещё и корректность подключения библиотеки проверяется и  прототип тестируется...

with Interfaces.C,Interfaces.C.Strings;
use  Interfaces.C,Interfaces.C.Strings;
package body Ada_Lib is
  function RetStrAda return chars_ptr is
  begin
 return New_String("abcde2");
  end RetStrAda;

Не прошло и 30 лет...

Я на перле писал очень мало. Подозреваю, что просто все его пользователи были из тех ещё поколений и поэтому не видели сложностей.

Разве поддержки ЯП Python нет в утилите SWIG?

М.б. там и Perl.

(

 Есть варианты SWIG
с возвращённой Modula-3.

 И с добавленными Delphi.
Или Ada.
)

"Вы будете смеяться": точно так же в x64 ( редкость ( 2 .. 3 из 50) для Оберон мира) компиляторе Patchouli.

Но там и исходные коды на 200 килобайт и все .exe с .dll столько же.

Все видели. Я честно говоря не видел ни одного человека, который бы глядя на xs не охреневал зачем нужны такие сложности на ровном месте

Особенно по сравнению с модулем ctypes в питон, который все юзают в хвост и гриву, разбираясь за 5 минут

SWIG -одновременно избыточен и недостаточен.

В readme к Strawberry Perl 64bit было про неудачу со стыковкой с одной из библиотек.

Си часть быстро удалось исправить, а вот с xs ...

Ну xs то работает, просто сие извращение по сути

Суть xs (и Inline ) в неуёмном желании соорудить в одном файле общий код из перл и си. Только ради этого приходится создавать ещё 10 файлов всяких манифестов, сценариев, описаний и т.п. В итоге Hello World на xs занимает 8 файлов и 3 подкатолога

Переходник к Modula-3 одной из библиотек ( .lib) LLVM 9.0.1 модифицированный SWIG "изготовил" полностью автоматически.

Том в устройстве D не имеет метки.
Серийный номер тома: 2853-B4F0

Содержимое папки D:\adac\Hello-World

06.06.2021  00:04    <DIR>          .
06.06.2021  00:04    <DIR>          ..
04.06.2021  22:46               204 Changes
04.06.2021  22:46    <DIR>          lib
04.06.2021  22:46             1 036 Makefile.PL
04.06.2021  22:46                87 MANIFEST
04.06.2021  22:46             1 215 README
04.06.2021  22:46    <DIR>          t
06.06.2021  00:04                 0 tmpl
04.06.2021  22:49               205 World.xs
              6 файлов          2 747 байт

Содержимое папки D:\adac\Hello-World\lib

04.06.2021  22:46    <DIR>          .
04.06.2021  22:46    <DIR>          ..
04.06.2021  22:46    <DIR>          Hello
              0 файлов              0 байт

Содержимое папки D:\adac\Hello-World\lib\Hello

04.06.2021  22:46    <DIR>          .
04.06.2021  22:46    <DIR>          ..
04.06.2021  22:46             1 914 World.pm
              1 файлов          1 914 байт

Содержимое папки D:\adac\Hello-World\t

04.06.2021  22:46    <DIR>          .
04.06.2021  22:46    <DIR>          ..
04.06.2021  22:46               518 Hello-World.t
              1 файлов            518 байт

    Всего файлов:
              8 файлов          5 179 байт
             11 папок  1 023 905 771 520 байт свободно

Это чтобы напечать Hello world)

не считая собственно когда на си)

И для сравнения питон- в котором на это уходило 3 строки ...