Attachment 872867 Details for Bug 1216689

Arvin's test program hacked up to save and restore the encoding

arvin-yperl-tester-hacked-01.cc (text/x-c++src), 1.33 KB, created by Stefan Hundhammer on 2024-02-20 14:51:43 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Stefan Hundhammer

Created: 2024-02-20 14:51:43 UTC

Size: 1.33 KB

patch

obsolete

>// Set the Perl lib-dir once:
>//
>//   export PERL_LIB=/usr/lib/perl5/5.38.2/x86_64-linux-thread-multi/CORE
>// 
>// Build this with:
>//
>//   g++ arvin-yperl-tester-hacked-01.cc -o arvin-yperl-tester-hacked-01 -Wall -O2 -I$PERL_LIB -L$PERL_LIB -lperl
>//
>// Call it with:
>//
>//   LC_ALL=de_DE.UTF-8 LD_LIBRARY_PATH=$PERL_LIB ./arvin-yperl-tester-hacked-01
>
>
>#include <locale.h>
>#include <langinfo.h>
>#include <iostream>
>#include <string>
>
>#include <EXTERN.h>
>#include <perl.h>
>
>
>using namespace std;
>
>
>int
>main()
>{
>    char * initial_locale = setlocale( LC_ALL, "" );
>    std::string saved_locale = initial_locale;
>    
>    cout << "initial locale: " << initial_locale << '\n';
>    cout << "initial codeset: " << nl_langinfo(CODESET) << '\n';
>
>    PerlInterpreter* perl_interpreter = perl_alloc();
>    perl_construct(perl_interpreter);
>    cout << "\ncodeset after perl_alloc: " << nl_langinfo(CODESET) << '\n';
>
>    cout << "\nsetting locale to " << saved_locale << '\n';
>    char * ret = setlocale( LC_CTYPE, saved_locale.c_str() );
>
>    if ( ret )
>        cout << "  setlocale returned " << ret << '\n';
>    else
>        cout << "  setlocale returned NULL\n";
>    
>    cout << "\nlocale  after setting " << saved_locale << ": " << setlocale(LC_ALL, "") << '\n';
>    cout << "codeset after setting " << saved_locale << ": " << nl_langinfo(CODESET) << '\n';
>}

Actions: View

Attachments on bug 1216689: 870506 | 870513 | 870514 | 871507 | 871510 | 872716 | 872734 | 872735 | 872736 | 872737 | 872738 | 872771 | 872798 | 872862 | 872867 | 872869