From: Jarkko Hietaniemi Date: Fri, 12 Jan 2001 19:05:27 +0000 (+0000) Subject: Add sigprocmask() probe, regen Configure, regen toc. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=983dbef61c17529a7ab294e05f4421fd5b1e2a3a;p=p5sagit%2Fp5-mst-13.2.git Add sigprocmask() probe, regen Configure, regen toc. p4raw-id: //depot/perl@8421 --- diff --git a/Configure b/Configure index 023df36..300425a 100755 --- a/Configure +++ b/Configure @@ -20,7 +20,7 @@ # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $ # -# Generated on Fri Jan 5 20:11:52 EET 2001 [metaconfig 3.0 PL70] +# Generated on Fri Jan 12 18:19:36 EET 2001 [metaconfig 3.0 PL70] # (with additional metaconfig patches by perlbug@perl.org) cat >c1$$ <$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un #define PERL_XS_APIVERSION "$xs_apiversion" #define PERL_PM_APIVERSION "$pm_apiversion" +/* HAS_SIGPROCMASK: + * This symbol, if defined, indicates that the sigprocmask + * system call is available to examine or change the signal mask + * of the calling process. + */ +#$d_sigprocmask HAS_SIGPROCMASK /**/ + #endif !GROK!THIS! diff --git a/configure.com b/configure.com index 2efd8bd..8417cce 100644 --- a/configure.com +++ b/configure.com @@ -2029,7 +2029,7 @@ $!: compute shared library extension $!: Looking for optional libraries $!: see if nm is to be used to determine whether a symbol is defined or not $!: get list of predefined functions in a handy place -$!: see if we have sigaction +$!: see if we have sigaction or sigprocmask $!: see whether socketshr exists $ IF (F$SEARCH(F$PARSE("SocketShr","Sys$Share:.Exe")).NES."") $ THEN @@ -4494,6 +4494,7 @@ $ d_bcmp="define" $ d_gettimeod="define" $ d_uname="define" $ d_sigaction="define" +$ d_sigprocmask="define" $ d_truncate="define" $ d_wait4="define" $ d_index="define" @@ -4517,6 +4518,7 @@ $ d_gettimeod="undef" $ d_bcmp="undef" $ d_uname="undef" $ d_sigaction="undef" +$ d_sigprocmask="undef" $ d_truncate="undef" $ d_wait4="undef" $ d_index="undef" @@ -5098,6 +5100,7 @@ $ WC "d_sfio='undef'" $ WC "d_shm='undef'" $ WC "d_shmatprototype='undef'" $ WC "d_sigaction='" + d_sigaction + "'" +$ WC "d_sigprocmask='" + d_sigprocmask + "'" $ WC "d_sigsetjmp='" + d_sigsetjmp + "'" $ WC "d_socket='" + d_socket + "'" $ WC "d_socklen_t='" + d_socklen_t + "'" diff --git a/epoc/config.sh b/epoc/config.sh index c155ce4..42da616 100644 --- a/epoc/config.sh +++ b/epoc/config.sh @@ -319,6 +319,7 @@ d_shmctl='undef' d_shmdt='undef' d_shmget='undef' d_sigaction='undef' +d_sigprocmask='undef' d_sigsetjmp='undef' d_socket='define' d_sockpair='undef' diff --git a/mg.c b/mg.c index 51ca9d6..a91d34b 100644 --- a/mg.c +++ b/mg.c @@ -2227,7 +2227,7 @@ Perl_sighandler(int sig) POPSTACK; if (SvTRUE(ERRSV)) { -#ifdef HAS_SIGACTION +#ifdef HAS_SIGPROCMASK /* Handler "died", for example to get out of a restart-able read(). * Before we re-do that on its behalf re-enable the signal which was * blocked by the system when we entered. diff --git a/pod/perltoc.pod b/pod/perltoc.pod index c0750e8..7be2b87 100644 --- a/pod/perltoc.pod +++ b/pod/perltoc.pod @@ -44,276 +44,61 @@ through to locate the proper section you're looking for. =item DESCRIPTION -perlfaq: Structural overview of the FAQ, L: General Questions -About Perl, What is Perl?, Who supports Perl? Who develops it? Why is it -free?, Which version of Perl should I use?, What are perl4 and perl5?, What -is perl6?, How stable is Perl?, Is Perl difficult to learn?, How does Perl -compare with other languages like Java, Python, REXX, Scheme, or Tcl?, Can -I do [task] in Perl?, When shouldn't I program in Perl?, What's the -difference between "perl" and "Perl"?, Is it a Perl program or a Perl -script?, What is a JAPH?, Where can I get a list of Larry Wall witticisms?, -How can I convince my sysadmin/supervisor/employees to use version -5/5.005/Perl instead of some other language?, L: Obtaining and -Learning about Perl, What machines support Perl? Where do I get it?, How -can I get a binary version of Perl?, I don't have a C compiler on my -system. How can I compile perl?, I copied the Perl binary from one machine -to another, but scripts don't work, I grabbed the sources and tried to -compile but gdbm/dynamic loading/malloc/linking/... failed. How do I make -it work?, What modules and extensions are available for Perl? What is -CPAN? What does CPAN/src/... mean?, Is there an ISO or ANSI certified -version of Perl?, Where can I get information on Perl?, What are the Perl -newsgroups on Usenet? Where do I post questions?, Where should I post -source code?, Perl Books, Perl in Magazines, Perl on the Net: FTP and WWW -Access, What mailing lists are there for Perl?, Archives of -comp.lang.perl.misc, Where can I buy a commercial version of Perl?, Where -do I send bug reports?, What is perl.com? Perl Mongers? pm.org? perl.org?, -L: Programming Tools, How do I do (anything)?, How can I use Perl -interactively?, Is there a Perl shell?, How do I debug my Perl programs?, -How do I profile my Perl programs?, How do I cross-reference my Perl -programs?, Is there a pretty-printer (formatter) for Perl?, Is there a -ctags for Perl?, Is there an IDE or Windows Perl Editor?, Where can I get -Perl macros for vi?, Where can I get perl-mode for emacs?, How can I use -curses with Perl?, How can I use X or Tk with Perl?, How can I generate -simple menus without using CGI or Tk?, What is undump?, How can I make my -Perl program run faster?, How can I make my Perl program take less memory?, -Is it unsafe to return a pointer to local data?, How can I free an array or -hash so my program shrinks?, How can I make my CGI script more efficient?, -How can I hide the source for my Perl program?, How can I compile my Perl -program into byte code or C?, How can I compile Perl into Java?, How can I -get C<#!perl> to work on [MS-DOS,NT,...]?, Can I write useful Perl programs -on the command line?, Why don't Perl one-liners work on my DOS/Mac/VMS -system?, Where can I learn about CGI or Web programming in Perl?, Where can -I learn about object-oriented Perl programming?, Where can I learn about -linking C with Perl? [h2xs, xsubpp], I've read perlembed, perlguts, etc., -but I can't embed perl in my C program; what am I doing wrong?, When I -tried to run my script, I got this message. What does it mean?, What's -MakeMaker?, L: Data Manipulation, Why am I getting long decimals -(eg, 19.9499999999999) instead of the numbers I should be getting (eg, -19.95)?, Why isn't my octal data interpreted correctly?, Does Perl have a -round() function? What about ceil() and floor()? Trig functions?, How do -I convert bits into ints?, Why doesn't & work the way I want it to?, How do -I multiply matrices?, How do I perform an operation on a series of -integers?, How can I output Roman numerals?, Why aren't my random numbers -random?, How do I find the week-of-the-year/day-of-the-year?, How do I find -the current century or millennium?, How can I compare two dates and find -the difference?, How can I take a string and turn it into epoch seconds?, -How can I find the Julian Day?, How do I find yesterday's date?, Does Perl -have a Year 2000 problem? Is Perl Y2K compliant?, How do I validate -input?, How do I unescape a string?, How do I remove consecutive pairs of -characters?, How do I expand function calls in a string?, How do I find -matching/nesting anything?, How do I reverse a string?, How do I expand -tabs in a string?, How do I reformat a paragraph?, How can I access/change -the first N letters of a string?, How do I change the Nth occurrence of -something?, How can I count the number of occurrences of a substring within -a string?, How do I capitalize all the words on one line?, How can I split -a [character] delimited string except when inside [character]? -(Comma-separated files), How do I strip blank space from the beginning/end -of a string?, How do I pad a string with blanks or pad a number with -zeroes?, How do I extract selected columns from a string?, How do I find -the soundex value of a string?, How can I expand variables in text -strings?, What's wrong with always quoting "$vars"?, Why don't my <: Files and Formats, How do I flush/unbuffer an output -filehandle? Why must I do this?, How do I change one line in a file/delete -a line in a file/insert a line in the middle of a file/append to the -beginning of a file?, How do I count the number of lines in a file?, How do -I make a temporary file name?, How can I manipulate fixed-record-length -files?, How can I make a filehandle local to a subroutine? How do I pass -filehandles between subroutines? How do I make an array of filehandles?, -How can I use a filehandle indirectly?, How can I set up a footer format to -be used with write()?, How can I write() into a string?, How can I output -my numbers with commas added?, How can I translate tildes (~) in a -filename?, How come when I open a file read-write it wipes it out?, Why do -I sometimes get an "Argument list too long" when I use <*>?, Is there a -leak/bug in glob()?, How can I open a file with a leading ">" or trailing -blanks?, How can I reliably rename a file?, How can I lock a file?, Why -can't I just open(FH, ">file.lock")?, I still don't get locking. I just -want to increment the number in the file. How can I do this?, How do I -randomly update a binary file?, How do I get a file's timestamp in perl?, -How do I set a file's timestamp in perl?, How do I print to more than one -file at once?, How can I read in an entire file all at once?, How can I -read in a file by paragraphs?, How can I read a single character from a -file? From the keyboard?, How can I tell whether there's a character -waiting on a filehandle?, How do I do a C in perl?, How do I dup() -a filehandle in Perl?, How do I close a file descriptor by number?, Why -can't I use "C:\temp\foo" in DOS paths? What doesn't `C:\temp\foo.exe` -work?, Why doesn't glob("*.*") get all the files?, Why does Perl let me -delete read-only files? Why does C<-i> clobber protected files? Isn't -this a bug in Perl?, How do I select a random line from a file?, Why do I -get weird spaces when I print an array of lines?, L: Regexps, How -can I hope to use regular expressions without creating illegible and -unmaintainable code?, I'm having trouble matching over more than one line. -What's wrong?, How can I pull out lines between two patterns that are -themselves on different lines?, I put a regular expression into $/ but it -didn't work. What's wrong?, How do I substitute case insensitively on the -LHS while preserving case on the RHS?, How can I make C<\w> match national -character sets?, How can I match a locale-smart version of C?, -How can I quote a variable to use in a regex?, What is C really for?, -How do I use a regular expression to strip C style comments from a file?, -Can I use Perl regular expressions to match balanced text?, What does it -mean that regexes are greedy? How can I get around it?, How do I process -each word on each line?, How can I print out a word-frequency or -line-frequency summary?, How can I do approximate matching?, How do I -efficiently match many regular expressions at once?, Why don't -word-boundary searches with C<\b> work for me?, Why does using $&, $`, or -$' slow my program down?, What good is C<\G> in a regular expression?, Are -Perl regexes DFAs or NFAs? Are they POSIX compliant?, What's wrong with -using grep or map in a void context?, How can I match strings with -multibyte characters?, How do I match a pattern that is supplied by the -user?, L: General Perl Language Issues, Can I get a BNF/yacc/RE -for the Perl language?, What are all these $@%&* punctuation signs, and how -do I know when to use them?, Do I always/never have to quote my strings or -use semicolons and commas?, How do I skip some return values?, How do I -temporarily block warnings?, What's an extension?, Why do Perl operators -have different precedence than C operators?, How do I declare/create a -structure?, How do I create a module?, How do I create a class?, How can I -tell if a variable is tainted?, What's a closure?, What is variable suicide -and how can I prevent it?, How can I pass/return a {Function, FileHandle, -Array, Hash, Method, Regex}?, How do I create a static variable?, What's -the difference between dynamic and lexical (static) scoping? Between -local() and my()?, How can I access a dynamic variable while a similarly -named lexical is in scope?, What's the difference between deep and shallow -binding?, Why doesn't "my($foo) = ;" work right?, How do I redefine a -builtin function, operator, or method?, What's the difference between -calling a function as &foo and foo()?, How do I create a switch or case -statement?, How can I catch accesses to undefined -variables/functions/methods?, Why can't a method included in this same file -be found?, How can I find out my current package?, How can I comment out a -large block of perl code?, How do I clear a package?, How can I use a -variable as a variable name?, L: System Interaction, How do I -find out which operating system I'm running under?, How come exec() doesn't -return?, How do I do fancy stuff with the keyboard/screen/mouse?, How do I -print something out in color?, How do I read just one key without waiting -for a return key?, How do I check whether input is ready on the keyboard?, -How do I clear the screen?, How do I get the screen size?, How do I ask the -user for a password?, How do I read and write the serial port?, How do I -decode encrypted password files?, How do I start a process in the -background?, How do I trap control characters/signals?, How do I modify the -shadow password file on a Unix system?, How do I set the time and date?, -How can I sleep() or alarm() for under a second?, How can I measure time -under a second?, How can I do an atexit() or setjmp()/longjmp()? (Exception -handling), Why doesn't my sockets program work under System V (Solaris)? -What does the error message "Protocol not supported" mean?, How can I call -my system's unique C functions from Perl?, Where do I get the include files -to do ioctl() or syscall()?, Why do setuid perl scripts complain about -kernel problems?, How can I open a pipe both to and from a command?, Why -can't I get the output of a command with system()?, How can I capture -STDERR from an external command?, Why doesn't open() return an error when a -pipe open fails?, What's wrong with using backticks in a void context?, How -can I call backticks without shell processing?, Why can't my script read -from STDIN after I gave it EOF (^D on Unix, ^Z on MS-DOS)?, How can I -convert my shell script to perl?, Can I use perl to run a telnet or ftp -session?, How can I write expect in Perl?, Is there a way to hide perl's -command line from programs such as "ps"?, I {changed directory, modified my -environment} in a perl script. How come the change disappeared when I -exited the script? How do I get my changes to be visible?, How do I close -a process's filehandle without waiting for it to complete?, How do I fork a -daemon process?, How do I find out if I'm running interactively or not?, -How do I timeout a slow event?, How do I set CPU limits?, How do I avoid -zombies on a Unix system?, How do I use an SQL database?, How do I make a -system() exit on control-C?, How do I open a file without blocking?, How do -I install a module from CPAN?, What's the difference between require and -use?, How do I keep my own module/library directory?, How do I add the -directory my program lives in to the module/library search path?, How do I -add a directory to my include path at runtime?, What is socket.ph and where -do I get it?, L: Networking, My CGI script runs from the command -line but not the browser. (500 Server Error), How can I get better error -messages from a CGI program?, How do I remove HTML from a string?, How do I -extract URLs?, How do I download a file from the user's machine? How do I -open a file on another machine?, How do I make a pop-up menu in HTML?, How -do I fetch an HTML file?, How do I automate an HTML form submission?, How -do I decode or create those %-encodings on the web?, How do I redirect to -another page?, How do I put a password on my web pages?, How do I edit my -.htpasswd and .htgroup files with Perl?, How do I make sure users can't -enter values into a form that cause my CGI script to do bad things?, How do -I parse a mail header?, How do I decode a CGI form?, How do I check a valid -mail address?, How do I decode a MIME/BASE64 string?, How do I return the -user's mail address?, How do I send mail?, How do I read mail?, How do I -find out my hostname/domainname/IP address?, How do I fetch a news article -or the active newsgroups?, How do I fetch/put an FTP file?, How can I do -RPC in Perl? - -=over 4 - -=item Where to get this document - -=item How to contribute to this document +=over 4 -=item What will happen if you mail your Perl programming problems to the -authors +=item perlfaq: Structural overview of the FAQ. -=back +=item L: General Questions About Perl -=item Credits +=item L: Obtaining and Learning about Perl -=item Author and Copyright Information +=item L: Programming Tools -=over 4 +=item L: Data Manipulation -=item Bundled Distributions +=item L: Files and Formats -=item Disclaimer +=item L: Regexps -=back +=item L: General Perl Language Issues -=item Changes +=item L: System Interaction -1/November/2000, 23/May/99, 13/April/99, 7/January/99, 22/June/98, -24/April/97, 23/April/97, 25/March/97, 18/March/97, 17/March/97 Version, -Initial Release: 11/March/97 +=item L: Networking =back -=head2 perltoc - perl documentation table of contents +=item About the perlfaq documents =over 4 -=item DESCRIPTION +=item Where to get the perlfaq -=item BASIC DOCUMENTATION +=item How to contribute to the perlfaq -=over 4 +=item What will happen if you mail your Perl programming problems to the +authors -=item perl - Practical Extraction and Report Language +=back -SYNOPSIS, DESCRIPTION, AVAILABILITY, ENVIRONMENT, AUTHOR, FILES, SEE ALSO, -DIAGNOSTICS, BUGS, NOTES +=item Credits -=item perlfaq - frequently asked questions about Perl ($Date: 1999/05/23 -20:38:02 $) +=item Author and Copyright Information -DESCRIPTION, Where to get this document, How to contribute +=over 4 + +=item Bundled Distributions + +=item Disclaimer =back +=item Changes + +1/November/2000, 23/May/99, 13/April/99, 7/January/99, 22/June/98, +24/April/97, 23/April/97, 25/March/97, 18/March/97, 17/March/97 Version, +Initial Release: 11/March/97 + =back =head2 perlbook - Perl book information @@ -772,12 +557,6 @@ more elaborate constructs =item Matching repetitions -C = match 'a' 1 or 0 times, C = match 'a' 0 or more times, i.e., -any number of times, C = match 'a' 1 or more times, i.e., at least -once, C = match at least C times, but not more than C times, -C = match at least C or more times, C = match exactly C -times - =item More matching =item Search and replace @@ -4096,7 +3875,7 @@ XS_VERSION_BOOTCHECK, Zero =item DESCRIPTION -djSP, is_gv_magical, start_glob +djSP, is_gv_magical, LVRET, start_glob =item AUTHORS @@ -4965,12 +4744,12 @@ Format of $English::PERL_VERSION is different, Literals of the form C<1.2.3> parse differently, Possibly changed pseudo-random number generator, Hashing function for hash keys has changed, C fails on read only values, Close-on-exec bit may be set on pipe and socket handles, -Writing C<"$$1"> to mean C<"${$}1"> is unsupported, vec(EXPR,OFFSET,BITS) -enforces powers-of-two BITS, Text of some diagnostic output has changed, -C<%@> has been removed, Parenthesized not() behaves like a list operator, -Semantics of bareword prototype C<(*)> have changed, Semantics of bit -operators may have changed on 64-bit platforms, More builtins taint their -results +Writing C<"$$1"> to mean C<"${$}1"> is unsupported, delete(), each(), +values() and C<\(%h)>, vec(EXPR,OFFSET,BITS) enforces powers-of-two BITS, +Text of some diagnostic output has changed, C<%@> has been removed, +Parenthesized not() behaves like a list operator, Semantics of bareword +prototype C<(*)> have changed, Semantics of bit operators may have changed +on 64-bit platforms, More builtins taint their results =item C Source Incompatibilities @@ -5007,8 +4786,7 @@ gcc Threads, Unicode, 64-bit support, Lvalue subroutines, Weak references, The pseudo-hash data type, The Compiler suite, Internal implementation of file -globbing, The DB module, The regular expression constructs C<(?{ code })> -and C<(??{ code })> +globbing, The DB module, The regular expression code constructs: =back @@ -5458,11 +5236,6 @@ B, B =item Shortcomings of Perl under AmigaOS -fork(), some features of the UNIX filesystem regarding link count and file -dates, inplace operation (the -i switch) without backup file, umask() -works, but the correct permissions are only set when the file is -finally close()d - =back =item INSTALLATION @@ -7205,7 +6978,7 @@ B<-ffreetmps-each-bblock>, B<-ffreetmps-each-loop>, B<-fomit-taint>, B<-On> =item OPTIONS B<-l>, B<-p>, B<-q>, B<-u>I, B<-s>I, B, BI, -B, BIB<.> +B, BIB<.>, B<-x>I =item USING B::Deparse AS A MODULE @@ -9389,9 +9162,9 @@ INST_MAN3DIR, INST_SCRIPT, LDFROM, LIB, LIBPERL_A, LIBS, LINKTYPE, MAKEAPERL, MAKEFILE, MAN1PODS, MAN3PODS, MAP_TARGET, MYEXTLIB, NAME, NEEDS_LINKING, NOECHO, NORECURS, NO_VC, OBJECT, OPTIMIZE, PERL, PERLMAINCC, PERL_ARCHLIB, PERL_LIB, PERL_MALLOC_OK, PERL_SRC, PERM_RW, PERM_RWX, -PL_FILES, PM, PMLIBDIRS, POLLUTE, PPM_INSTALL_EXEC, PPM_INSTALL_SCRIPT, -PREFIX, PREREQ_PM, SKIP, TYPEMAPS, VERSION, VERSION_FROM, XS, XSOPT, -XSPROTOARG, XS_VERSION +PL_FILES, PM, PMLIBDIRS, PM_FILTER, POLLUTE, PPM_INSTALL_EXEC, +PPM_INSTALL_SCRIPT, PREFIX, PREREQ_PM, SKIP, TYPEMAPS, VERSION, +VERSION_FROM, XS, XSOPT, XSPROTOARG, XS_VERSION =item Additional lowercase attributes @@ -13262,10 +13035,10 @@ Win32::GetChipName(), Win32::GetCwd(), Win32::GetFullPathName(FILENAME), Win32::GetLastError(), Win32::GetLongPathName(PATHNAME), Win32::GetNextAvailDrive(), Win32::GetOSVersion(), Win32::GetShortPathName(PATHNAME), Win32::GetProcAddress(INSTANCE, -PROCNAME), Win32::GetTickCount(), Win32::IsWinNT(), Win32::IsWin95(), -Win32::LoadLibrary(LIBNAME), Win32::LoginName(), -Win32::LookupAccountName(SYSTEM, ACCOUNT, DOMAIN, SID, SIDTYPE), -Win32::LookupAccountSID(SYSTEM, SID, ACCOUNT, DOMAIN, SIDTYPE), +PROCNAME), Win32::GetTickCount(), Win32::InitiateSystemShutdown, +Win32::IsWinNT(), Win32::IsWin95(), Win32::LoadLibrary(LIBNAME), +Win32::LoginName(), Win32::LookupAccountName(SYSTEM, ACCOUNT, DOMAIN, SID, +SIDTYPE), Win32::LookupAccountSID(SYSTEM, SID, ACCOUNT, DOMAIN, SIDTYPE), Win32::MsgBox(MESSAGE [, FLAGS [, TITLE]]), Win32::NodeName(), Win32::RegisterServer(LIBRARYNAME), Win32::SetCwd(NEWDIRECTORY), Win32::SetLastError(ERROR), Win32::Sleep(TIME), Win32::Spawn(COMMAND, ARGS, diff --git a/vos/config.alpha.def b/vos/config.alpha.def index 7a20937..b5d5323 100644 --- a/vos/config.alpha.def +++ b/vos/config.alpha.def @@ -230,6 +230,7 @@ $d_sfio='undef' $d_shm='undef' $d_shmatprototype='define' $d_sigaction='undef' +$d_sigprocmask='undef' $d_sigsetjmp='undef' $d_socket='define' $d_sockpair='undef' diff --git a/vos/config.alpha.h b/vos/config.alpha.h index aaeb129..51488ab 100644 --- a/vos/config.alpha.h +++ b/vos/config.alpha.h @@ -1914,6 +1914,13 @@ */ /*#define HAS_SIGACTION /**/ +/* HAS_SIGPROCMASK: + * This symbol, if defined, indicates that sigprocmask + * system call is available to examine or change the signal mask + * of the calling process. + */ +/*#define HAS_SIGPROCMASK /**/ + /* HAS_SIGSETJMP: * This variable indicates to the C program that the sigsetjmp() * routine is available to save the calling process's registers diff --git a/vos/config.ga.def b/vos/config.ga.def index 46cbc20..51a90a4 100644 --- a/vos/config.ga.def +++ b/vos/config.ga.def @@ -230,6 +230,7 @@ $d_sfio='undef' $d_shm='undef' $d_shmatprototype='define' $d_sigaction='define' +$d_sigprocmask='define' $d_sigsetjmp='define' $d_socket='define' $d_sockpair='undef' diff --git a/vos/config.ga.h b/vos/config.ga.h index d235ba1..5ba21bb 100644 --- a/vos/config.ga.h +++ b/vos/config.ga.h @@ -1926,6 +1926,13 @@ */ #define HAS_SIGACTION /**/ +/* HAS_SIGPROCMASK: + * This symbol, if defined, indicates that sigprocmask + * system call is available to examine or change the signal mask + * of the calling process. + */ +#define HAS_SIGPROCMASK /**/ + /* HAS_SIGSETJMP: * This variable indicates to the C program that the sigsetjmp() * routine is available to save the calling process's registers diff --git a/win32/config.bc b/win32/config.bc index 4e246fa..b535c1a 100644 --- a/win32/config.bc +++ b/win32/config.bc @@ -312,6 +312,7 @@ d_shmctl='undef' d_shmdt='undef' d_shmget='undef' d_sigaction='undef' +d_sigprocmask='undef' d_sigsetjmp='undef' d_socket='define' d_socklen_t='undef' diff --git a/win32/config.gc b/win32/config.gc index 31c6b43..b16032f 100644 --- a/win32/config.gc +++ b/win32/config.gc @@ -312,6 +312,7 @@ d_shmctl='undef' d_shmdt='undef' d_shmget='undef' d_sigaction='undef' +d_sigprocmask='undef' d_sigsetjmp='undef' d_socket='define' d_socklen_t='undef' diff --git a/win32/config.vc b/win32/config.vc index c526018..34c54db 100644 --- a/win32/config.vc +++ b/win32/config.vc @@ -312,6 +312,7 @@ d_shmctl='undef' d_shmdt='undef' d_shmget='undef' d_sigaction='undef' +d_sigprocmask='undef' d_sigsetjmp='undef' d_socket='define' d_socklen_t='undef'