🚀 go-pugleaf

Hallo Ralph.

> Ich suche Informationen, die das Erstellen einer ARexx-Library beschreiben.
> Ich habe hier nur ein paar Stücke Code unbekannter Herkunft, nach denen es
> so aussieht, als bestehe solch eine Lib nur aus einer Dispatcher-Funktion,
> die ARexx-Kommandos entgegennimmt und dann weitere Funktionen aufruft.

Die Frage kommt mir irgendwie bekannt vor :-) Hatte ich sie nicht
vor kurzem auch mal gestellt ?

Die Funktion steht normalerweise an Offset -30, und bekommt in
Register a0 einen Pointer auf eine RexxMsg Struktur. Den
Funktionsnamen gibt es in ->rm_Args[0] und die nachfolgenden
Argumente entsprechend in rm_Args[1] - rm_Args[15]. Die Anzahl
der Argumente ist in rm_Action in den ersten 3 Bits
verschlüsselt. Zurück kannst Du dann eine ARexx-Variable setzen
( SetRexxVar() ), oder falls es in das `result' zurückgehen soll,
einen mit CreateArgstring() erzeugten String in a0
zurückschieben. Returncode ist ein int-Wert, der entweder NULL,
oder eine ARexx-Fehlermeldung zurückgibt. Die Fehlermeldungen
stehen in den Includefiles.

Das ist eigentlich schon alles. Hat mich aber einige Nerven und
Magengeschwüre gekostet :-)

> Das allein ist mir allerdings zu vage, denn ich wüßte gern genau, was ich
> zu tun habe. Mir steht übrigens der SAS/C 6.56 zur Verfügung, was die Im-
> plementierung einer "shared library" deutlich vereinfachen dürfte, und ich
> bin auch für Compiler-spezifische Hinweise dankbar.

Falls Du noch Fragen hast, oder einen Beispielsource ( SAS/C )
willst, schreib einfach.

-----
Andreas Winkelmann

E-Mail : andi@art-line.de -- MicroDot V1.11beta16