Ported Tools - Embedding TCL into my application

Hi, I am struggling embedding TCL in a C application. It looks like the provided library is built with the XPLINK option. When I compile my very simple program using xlc under z/OS 2.1

xlc -W c,XPLINK -W l,XPLINK -I ./include -L ./lib -o tclembed tclembed.c -ltcl8.5

I get the following binder error messages:

IEW2456E 9207 SYMBOL _ctype_a UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
THE DESIGNATED CALL LIBRARY. NAME SPACE = 3
IEW2456E 9207 SYMBOL _tolower_a UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
THE DESIGNATED CALL LIBRARY. NAME SPACE = 3
IEW2456E 9207 SYMBOL __read_a UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
THE DESIGNATED CALL LIBRARY.
IEW2456E 9207 SYMBOL __write_a UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
THE DESIGNATED CALL LIBRARY.
IEW2456E 9207 SYMBOL __gethostbyname_OE_a UNRESOLVED. MEMBER COULD NOT BE
INCLUDED FROM THE DESIGNATED CALL LIBRARY.
IEW2456E 9207 SYMBOL __gethostbyaddr_OE_a UNRESOLVED. MEMBER COULD NOT BE
INCLUDED FROM THE DESIGNATED CALL LIBRARY.
IEW2456E 9207 SYMBOL __getservbyname_OE_a UNRESOLVED. MEMBER COULD NOT BE
INCLUDED FROM THE DESIGNATED CALL LIBRARY.
IEW2689W 4C40 DEFINITION SIDE FILE IS NOT DEFINED.

FSUM3065 The LINKEDIT step ended with return code 8

Checked the IBM manuals on how to cope with XPLINK but found nothing relevant. Am I missing something / doing something wrong?

Thanks in advance,
mario

Hi Mario,
Please take this download and try again. Do let me know if this works for you and I will replace the public download with this new build.

https://download-eu.rocketsoftware.com/ro2/d/4564610161534870A83CC14BE53BEDCC

If you need to compile the program with the library tcl8.5.1 this build includes a new script - lib/tclConfig.sh - that must be executed to set compile parameters.

Regards,
-Peter

Hi, I am struggling embedding TCL in a C application. It looks like the provided library is built with the XPLINK option. When I compile my very simple program using xlc under z/OS 2.1

xlc -W c,XPLINK -W l,XPLINK -I ./include -L ./lib -o tclembed tclembed.c -ltcl8.5

I get the following binder error messages:

IEW2456E 9207 SYMBOL _ctype_a UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
THE DESIGNATED CALL LIBRARY. NAME SPACE = 3
IEW2456E 9207 SYMBOL _tolower_a UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
THE DESIGNATED CALL LIBRARY. NAME SPACE = 3
IEW2456E 9207 SYMBOL __read_a UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
THE DESIGNATED CALL LIBRARY.
IEW2456E 9207 SYMBOL __write_a UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
THE DESIGNATED CALL LIBRARY.
IEW2456E 9207 SYMBOL __gethostbyname_OE_a UNRESOLVED. MEMBER COULD NOT BE
INCLUDED FROM THE DESIGNATED CALL LIBRARY.
IEW2456E 9207 SYMBOL __gethostbyaddr_OE_a UNRESOLVED. MEMBER COULD NOT BE
INCLUDED FROM THE DESIGNATED CALL LIBRARY.
IEW2456E 9207 SYMBOL __getservbyname_OE_a UNRESOLVED. MEMBER COULD NOT BE
INCLUDED FROM THE DESIGNATED CALL LIBRARY.
IEW2689W 4C40 DEFINITION SIDE FILE IS NOT DEFINED.

FSUM3065 The LINKEDIT step ended with return code 8

Checked the IBM manuals on how to cope with XPLINK but found nothing relevant. Am I missing something / doing something wrong?

Thanks in advance,
mario

Hi Peter,

thank you for your prompt and kind reply.

The package you provided fixed the reported issue, allowing me to cleanly compile my sample program.

I will continue testing in the next days, but I wanted to share the good news.

Bye for now,
mario

Hi, I am struggling embedding TCL in a C application. It looks like the provided library is built with the XPLINK option. When I compile my very simple program using xlc under z/OS 2.1

xlc -W c,XPLINK -W l,XPLINK -I ./include -L ./lib -o tclembed tclembed.c -ltcl8.5

I get the following binder error messages:

IEW2456E 9207 SYMBOL _ctype_a UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
THE DESIGNATED CALL LIBRARY. NAME SPACE = 3
IEW2456E 9207 SYMBOL _tolower_a UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
THE DESIGNATED CALL LIBRARY. NAME SPACE = 3
IEW2456E 9207 SYMBOL __read_a UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
THE DESIGNATED CALL LIBRARY.
IEW2456E 9207 SYMBOL __write_a UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM
THE DESIGNATED CALL LIBRARY.
IEW2456E 9207 SYMBOL __gethostbyname_OE_a UNRESOLVED. MEMBER COULD NOT BE
INCLUDED FROM THE DESIGNATED CALL LIBRARY.
IEW2456E 9207 SYMBOL __gethostbyaddr_OE_a UNRESOLVED. MEMBER COULD NOT BE
INCLUDED FROM THE DESIGNATED CALL LIBRARY.
IEW2456E 9207 SYMBOL __getservbyname_OE_a UNRESOLVED. MEMBER COULD NOT BE
INCLUDED FROM THE DESIGNATED CALL LIBRARY.
IEW2689W 4C40 DEFINITION SIDE FILE IS NOT DEFINED.

FSUM3065 The LINKEDIT step ended with return code 8

Checked the IBM manuals on how to cope with XPLINK but found nothing relevant. Am I missing something / doing something wrong?

Thanks in advance,
mario

Hi Peter, after few more tests I feel we are getting closer…

Below an excerpt from my very rudimental test program:

int main (int argc ,char *argv[])
{
{
char *my_string;
Tcl_Interp *interp;
my_string = “My_C_String”;

Tcl_FindExecutable(argv[0]); 
interp = Tcl_CreateInterp(); 
Tcl_Init(interp); 
(void) Tcl_SetVar(interp, "my_string", my_string, 0); 
                                                                 
if (Tcl_EvalFile(interp, "~/mario/tcl/tclfromc.tcl") != TCL_OK) {
    fprintf(stderr ,"Tcl_EvalFile error: %s\\n" , 
    Tcl_GetStringResult(interp)); 
    return EXIT_FAILURE; 
}

}
}

It just sets a TCL variable and invokes a one line TCL script (tclfromc.tcl) which looks like this:

puts “Within this Tcl script, my_string has the value ‘$my_string’.”

Compiling and running the C program I get an error message apparently containing garbage.

Tcl_EvalFile error: Ä?Í%À>.È.ÊÁ/À.ÃÑ%Á…~/mario/tcl/tclfromc.tcl…>?.ËÍÄÇ.ÃÑ%Á.?Ê.ÀÑÊÁÄÈ?Ê`

Converting the garbage from EBCDIC to ASCII we can see the reason of the error

Tcl_EvalFile error: couldn’t read file “~/mario/tcl/tclfromc.tcl”: no such file or directory

Recompiling the program with the -qascii option it runs fine:

xlc -qascii -W c,XPLINK -W l,XPLINK -I include -L lib -o tclfromc tclfromc.c -ltcl8.5 -lascii

~/mario/tcl: >./tclfromc
Within this Tcl script, my_string has the value ‘My_C_String’.

I hope this is not the expected behavior as it makes using TCL on z/OS very hard. By the way it also seems inconsistent as it works with ascii parameter strings and ebcdic coded scripts.

Am I missing something? Would it be possible to get a pure ebcdic version?

Thanks in advance,
mario

Hi Peter, after few more tests I feel we are getting closer…

Below an excerpt from my very rudimental test program:

int main (int argc ,char *argv[])
{
{
char *my_string;
Tcl_Interp *interp;
my_string = “My_C_String”;

Tcl_FindExecutable(argv[0]); 
interp = Tcl_CreateInterp(); 
Tcl_Init(interp); 
(void) Tcl_SetVar(interp, "my_string", my_string, 0); 
                                                                 
if (Tcl_EvalFile(interp, "~/mario/tcl/tclfromc.tcl") != TCL_OK) {
    fprintf(stderr ,"Tcl_EvalFile error: %s\\n" , 
    Tcl_GetStringResult(interp)); 
    return EXIT_FAILURE; 
}