?RCS: You may distribute under the terms of either the GNU General Public
?RCS: License or the Artistic License, as specified in the README file.
?RCS:
-?MAKE:d_thread_safe_nl_langinfo_l: Compile cat rm_try Oldconfig \
- i_pthread i_stdlib i_string i_langinfo i_locale \
+?MAKE:d_nl_langinfo_l d_thread_safe_nl_langinfo_l: Compile cat rm_try Oldconfig \
+ i_pthread i_stdlib i_langinfo i_locale \
usethreads run
?MAKE: -pick add $@ %<
+?S:d_nl_langinfo_l:
+?S: This variable contains the eventual value of the
+?S: HAS_NL_LANGINFO_L symbol, which indicates if the
+?S: nl_langinfo_l() function exists.
+?S:.
?S:d_thread_safe_nl_langinfo_l:
?S: This variable contains the eventual value of the
?S: HAS_THREAD_SAFE_NL_LANGINFO_L symbol, which indicates if the
?S: nl_langinfo_l() function exists and is thread-safe.
?S:.
+?C:HAS_NL_LANGINFO_L:
+?C: This symbol, when defined, indicates presence of the nl_langinfo_l()
+?C: function
+?C:.
?C:HAS_THREAD_SAFE_NL_LANGINFO_L:
?C: This symbol, when defined, indicates presence of the nl_langinfo_l()
?C: function, and that it is thread-safe.
?C:.
+?H:#$d_nl_langinfo_l HAS_NL_LANGINFO_L /**/
?H:#$d_thread_safe_nl_langinfo_l HAS_THREAD_SAFE_NL_LANGINFO_L /**/
?H:.
?F:!try
-: check for thread_safe_nl_langinfo_l item
+: check for nl_langinfo_l item
$cat <<EOM
-Checking to see if you have nl_langinfo_l() and that it is thread-safe
+Checking to see if you have nl_langinfo_l(), and that it is thread-safe
EOM
?X: Despite claiming that nl_langinfo_l() is thread-safe, the POSIX 2008
?X: standard allows for a non-safe implementation:
?X: initial thread. There can be interactions, but only when
?X: nl_langinfo_l() is called in the initial thread"
?X:
-?X: If nl_langinfo_l() isn't thread safe, might as well just use plain
-?X: nl_langinfo().
-?X:
?X: This program calls nl_langinfo_l(), then creates a thread, calling plain
?X: nl_langinfo() from within it, then sees if the buffer in the original
?X: thread was changed.
#ifdef I_STDLIB
# include <stdlib.h>
#endif
-#$i_string I_STRING
-#ifdef I_STRING
-# include <string.h>
-#endif
+#include <string.h>
#$i_langinfo I_LANGINFO
#ifdef I_LANGINFO
# include <langinfo.h>
}
int main() {
- char * main_buffer;
- char save_main_buffer[1000];
- pthread_t subthread;
- pthread_attr_t attr;
-
- main_buffer = nl_langinfo_l(CODESET, newlocale(LC_ALL_MASK, "C", 0));
+ char * main_buffer;
+ char save_main_buffer[1000];
+ pthread_t subthread;
+ pthread_attr_t attr;
- /* If too large for our generous allowance, just assume we don't have
- * it. */
- if (strlen(main_buffer) >= sizeof(save_main_buffer)) {
- exit(1);
- }
+ main_buffer = nl_langinfo_l(CODESET, newlocale(LC_ALL_MASK, "C", 0));
- strcpy(save_main_buffer, main_buffer);
+ /* If too large for our generous allowance, just assume we don't have
+ * it. */
+ if (strlen(main_buffer) >= sizeof(save_main_buffer)) {
+ exit(1);
+ }
- if (pthread_attr_init(&attr) != 0) {
- exit(1);
- }
+ strcpy(save_main_buffer, main_buffer);
- if (pthread_create(&subthread, &attr, thread_start, NULL) != 0) {
- exit(1);
- }
+ if (pthread_attr_init(&attr) != 0) {
+ exit(1);
+ }
- if (pthread_join(subthread, NULL) != 0) {
- exit(1);
- }
+ if (pthread_create(&subthread, &attr, thread_start, NULL) != 0) {
+ exit(1);
+ }
- exit(! (strcmp(main_buffer, save_main_buffer) == 0));
+ if (pthread_join(subthread, NULL) != 0) {
+ exit(1);
+ }
+
+ exit(! (strcmp(main_buffer, save_main_buffer) == 0));
}
EOCP
case "$usethreads" in
define)
- set try
- if eval $compile; then
- echo "Your system has nl_langinfo_l()..." >&4
- if $run ./try; then
- echo "and it is thread-safe (just as I'd hoped)." >&4
- d_thread_safe_nl_langinfo_l="$define"
- echo "$d_thread_safe_nl_langinfo_l" >&4
- else
- echo "but it isn't thread-safe, so we won't use it." >&4
- fi
- else
- echo "your system does not have nl_langinfo_l()" >&4
- fi
- ;;
+ set try
+ if eval $compile; then
+ echo "Your system has nl_langinfo_l()..." >&4
+ d_nl_langinfo_l="$define"
+ echo "$d_nl_langinfo_l" >&4
+ if $run ./try; then
+ echo "and it is thread-safe (just as I'd hoped)." >&4
+ d_thread_safe_nl_langinfo_l="$define"
+ echo "$d_thread_safe_nl_langinfo_l" >&4
+ else
+ echo "but it isn't thread-safe." >&4
+ fi
+ else
+ echo "your system does not have nl_langinfo_l()" >&4
+ fi
+ ;;
*) echo "Since threads aren't selected, we won't bother looking for nl_langinfo_l()" >&4
esac
+if test X"$d_nl_langinfo_l" = X; then
+ d_nl_langinfo_l="$undef"
+fi
if test X"$d_thread_safe_nl_langinfo_l" = X; then
d_thread_safe_nl_langinfo_l="$undef"
fi
https://perl5.git.perl.org / metaconfig.git / blobdiff