Result:
found more than 915 distributions - search limited to the first 2001 files matching your query
( run in 2.130 )
AutoXS
view release on metacpan or search on metacpan
nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
Automate-Animate-FFmpeg
view release on metacpan or search on metacpan
xt/boilerplate.t view on Meta::CPAN
use warnings;
use Test::More;
plan tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
xt/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/Automate/Animate/FFmpeg.pm');
Aw
view release on metacpan or search on metacpan
case 'A':
if (strEQ(name, "AW_AUTO_SIZE"))
#ifdef AW_AUTO_SIZE
return AW_AUTO_SIZE;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ACK_NONE"))
#ifdef AW_ACK_NONE
return AW_ACK_NONE;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ACK_AUTOMATIC"))
#ifdef AW_ACK_AUTOMATIC
return AW_ACK_AUTOMATIC;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ACK_THROUGH"))
#ifdef AW_ACK_THROUGH
return AW_ACK_THROUGH;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ACK_SELECTIVE"))
#ifdef AW_ACK_SELECTIVE
return AW_ACK_SELECTIVE;
#else
goto not_there;
#endif
switch (name[3]) {
case 'C':
if (strEQ(name, "AW_CONNECT_STATE_CONNECTED"))
#ifdef AW_CONNECT_STATE_CONNECTED
return AW_CONNECT_STATE_CONNECTED;
#else
goto not_there;
#endif
if (strEQ(name, "AW_CONNECT_STATE_DISCONNECTED"))
#ifdef AW_CONNECT_STATE_DISCONNECTED
return AW_CONNECT_STATE_DISCONNECTED;
#else
goto not_there;
#endif
if (strEQ(name, "AW_CONNECT_STATE_RECONNECTED"))
#ifdef AW_CONNECT_STATE_RECONNECTED
return AW_CONNECT_STATE_RECONNECTED;
#else
goto not_there;
#endif
break;
case 'E':
if (strEQ(name, "AW_ENCRYPT_LEVEL_NO_ENCRYPTION"))
#ifdef AW_ENCRYPT_LEVEL_NO_ENCRYPTION
return AW_ENCRYPT_LEVEL_NO_ENCRYPTION;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ENCRYPT_LEVEL_US_DOMESTIC"))
#ifdef AW_ENCRYPT_LEVEL_US_DOMESTIC
return AW_ENCRYPT_LEVEL_US_DOMESTIC;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ENCRYPT_LEVEL_US_EXPORT"))
#ifdef AW_ENCRYPT_LEVEL_US_EXPORT
return AW_ENCRYPT_LEVEL_US_EXPORT;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ENTIRE_SEQUENCE"))
#ifdef AW_ENTIRE_SEQUENCE
return AW_ENTIRE_SEQUENCE;
#else
goto not_there;
#endif
switch (name[9]) {
case 'B':
if (strEQ(name, "AW_ERROR_BAD_STATE"))
#ifdef AW_ERROR_BAD_STATE
return AW_ERROR_BAD_STATE;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_BROKER_EXISTS"))
#ifdef AW_ERROR_BROKER_EXISTS
return AW_ERROR_BROKER_EXISTS;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_BROKER_FAILURE"))
#ifdef AW_ERROR_BROKER_FAILURE
return AW_ERROR_BROKER_FAILURE;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_BROKER_NOT_RUNNING"))
#ifdef AW_ERROR_BROKER_NOT_RUNNING
return AW_ERROR_BROKER_NOT_RUNNING;
#else
goto not_there;
#endif
break;
case 'C':
if (strEQ(name, "AW_ERROR_CLIENT_CONTENTION"))
#ifdef AW_ERROR_CLIENT_CONTENTION
return AW_ERROR_CLIENT_CONTENTION;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_CLIENT_EXISTS"))
#ifdef AW_ERROR_CLIENT_EXISTS
return AW_ERROR_CLIENT_EXISTS;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_CLIENT_GROUP_EXISTS"))
#ifdef AW_ERROR_CLIENT_GROUP_EXISTS
return AW_ERROR_CLIENT_GROUP_EXISTS;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_COMM_FAILURE"))
#ifdef AW_ERROR_COMM_FAILURE
return AW_ERROR_COMM_FAILURE;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_CONNECTION_CLOSED"))
#ifdef AW_ERROR_CONNECTION_CLOSED
return AW_ERROR_CONNECTION_CLOSED;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_CORRUPT"))
#ifdef AW_ERROR_CORRUPT
return AW_ERROR_CORRUPT;
#else
goto not_there;
#endif
break;
case 'D':
if (strEQ(name, "AW_ERROR_DEPENDENCY"))
#ifdef AW_ERROR_DEPENDENCY
return AW_ERROR_DEPENDENCY;
#else
goto not_there;
#endif
break;
case 'F':
if (strEQ(name, "AW_ERROR_FIELD_NOT_FOUND"))
#ifdef AW_ERROR_FIELD_NOT_FOUND
return AW_ERROR_FIELD_NOT_FOUND;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_FIELD_TYPE_MISMATCH"))
#ifdef AW_ERROR_FIELD_TYPE_MISMATCH
return AW_ERROR_FIELD_TYPE_MISMATCH;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_FILE_NOT_FOUND"))
#ifdef AW_ERROR_FILE_NOT_FOUND
return AW_ERROR_FILE_NOT_FOUND;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_FILTER_PARSE"))
#ifdef AW_ERROR_FILTER_PARSE
return AW_ERROR_FILTER_PARSE;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_FILTER_RUNTIME"))
#ifdef AW_ERROR_FILTER_RUNTIME
return AW_ERROR_FILTER_RUNTIME;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_FORMAT"))
#ifdef AW_ERROR_FORMAT
return AW_ERROR_FORMAT;
#else
goto not_there;
#endif
break;
case 'H':
if (strEQ(name, "AW_ERROR_HOST_NOT_FOUND"))
#ifdef AW_ERROR_HOST_NOT_FOUND
return AW_ERROR_HOST_NOT_FOUND;
#else
goto not_there;
#endif
break;
case 'I':
if (strEQ(name, "AW_ERROR_INCOMPATIBLE_VERSION"))
#ifdef AW_ERROR_INCOMPATIBLE_VERSION
return AW_ERROR_INCOMPATIBLE_VERSION;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INPUT_PARSE"))
#ifdef AW_ERROR_INPUT_PARSE
return AW_ERROR_INPUT_PARSE;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INTERRUPTED"))
#ifdef AW_ERROR_INTERRUPTED
return AW_ERROR_INTERRUPTED;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_ACCESS_LIST"))
#ifdef AW_ERROR_INVALID_ACCESS_LIST
return AW_ERROR_INVALID_ACCESS_LIST;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_ACKNOWLEDGEMENT"))
#ifdef AW_ERROR_INVALID_ACKNOWLEDGEMENT
return AW_ERROR_INVALID_ACKNOWLEDGEMENT;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_BROKER_NAME"))
#ifdef AW_ERROR_INVALID_BROKER_NAME
return AW_ERROR_INVALID_BROKER_NAME;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_CLIENT"))
#ifdef AW_ERROR_INVALID_CLIENT
return AW_ERROR_INVALID_CLIENT;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_CLIENT_GROUP_NAME"))
#ifdef AW_ERROR_INVALID_CLIENT_GROUP_NAME
return AW_ERROR_INVALID_CLIENT_GROUP_NAME;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_CLIENT_ID"))
#ifdef AW_ERROR_INVALID_CLIENT_ID
return AW_ERROR_INVALID_CLIENT_ID;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_DESCRIPTOR"))
#ifdef AW_ERROR_INVALID_DESCRIPTOR
return AW_ERROR_INVALID_DESCRIPTOR;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_EVENT"))
#ifdef AW_ERROR_INVALID_EVENT
return AW_ERROR_INVALID_EVENT;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_EVENT_TYPE_NAME"))
#ifdef AW_ERROR_INVALID_EVENT_TYPE_NAME
return AW_ERROR_INVALID_EVENT_TYPE_NAME;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_FIELD_NAME"))
#ifdef AW_ERROR_INVALID_FIELD_NAME
return AW_ERROR_INVALID_FIELD_NAME;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_FILTER"))
#ifdef AW_ERROR_INVALID_FILTER
return AW_ERROR_INVALID_FILTER;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_LICENSE"))
#ifdef AW_ERROR_INVALID_LICENSE
return AW_ERROR_INVALID_LICENSE;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_LOG_CONFIG"))
#ifdef AW_ERROR_INVALID_LOG_CONFIG
return AW_ERROR_INVALID_LOG_CONFIG;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_NAME"))
#ifdef AW_ERROR_INVALID_NAME
return AW_ERROR_INVALID_NAME;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_PERMISSION"))
#ifdef AW_ERROR_INVALID_PERMISSION
return AW_ERROR_INVALID_PERMISSION;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_PLATFORM_KEY"))
#ifdef AW_ERROR_INVALID_PLATFORM_KEY
return AW_ERROR_INVALID_PLATFORM_KEY;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_PORT"))
#ifdef AW_ERROR_INVALID_PORT
return AW_ERROR_INVALID_PORT;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_SUBSCRIPTION"))
#ifdef AW_ERROR_INVALID_SUBSCRIPTION
return AW_ERROR_INVALID_SUBSCRIPTION;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_TERRITORY_NAME"))
#ifdef AW_ERROR_INVALID_TERRITORY_NAME
return AW_ERROR_INVALID_TERRITORY_NAME;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_TYPE"))
#ifdef AW_ERROR_INVALID_TYPE
return AW_ERROR_INVALID_TYPE;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_TYPECACHE"))
#ifdef AW_ERROR_INVALID_TYPECACHE
return AW_ERROR_INVALID_TYPECACHE;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_INVALID_TYPEDEF"))
#ifdef AW_ERROR_INVALID_TYPEDEF
return AW_ERROR_INVALID_TYPEDEF;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_IN_TERRITORY"))
#ifdef AW_ERROR_IN_TERRITORY
return AW_ERROR_IN_TERRITORY;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_NOT_IMPLEMENTED"))
#ifdef AW_ERROR_NOT_IMPLEMENTED
return AW_ERROR_NOT_IMPLEMENTED;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_NOT_IN_TERRITORY"))
#ifdef AW_ERROR_NOT_IN_TERRITORY
return AW_ERROR_NOT_IN_TERRITORY;
#else
goto not_there;
#endif
break;
case 'N':
if (strEQ(name, "AW_ERROR_NO_MEMORY"))
#ifdef AW_ERROR_NO_MEMORY
return AW_ERROR_NO_MEMORY;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_NO_PERMISSION"))
#ifdef AW_ERROR_NO_PERMISSION
return AW_ERROR_NO_PERMISSION;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_NULL_PARAM"))
#ifdef AW_ERROR_NULL_PARAM
return AW_ERROR_NULL_PARAM;
#else
goto not_there;
#endif
break;
case 'O':
if (strEQ(name, "AW_ERROR_OUT_OF_RANGE"))
#ifdef AW_ERROR_OUT_OF_RANGE
return AW_ERROR_OUT_OF_RANGE;
#else
goto not_there;
#endif
break;
case 'P':
if (strEQ(name, "AW_ERROR_PROTOCOL"))
#ifdef AW_ERROR_PROTOCOL
return AW_ERROR_PROTOCOL;
#else
goto not_there;
#endif
break;
case 'S':
if (strEQ(name, "AW_ERROR_SECURITY"))
#ifdef AW_ERROR_SECURITY
return AW_ERROR_SECURITY;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_SUBSCRIPTION_EXISTS"))
#ifdef AW_ERROR_SUBSCRIPTION_EXISTS
return AW_ERROR_SUBSCRIPTION_EXISTS;
#else
goto not_there;
#endif
break;
case 'T':
if (strEQ(name, "AW_ERROR_TIMEOUT"))
#ifdef AW_ERROR_TIMEOUT
return AW_ERROR_TIMEOUT;
#else
goto not_there;
#endif
break;
case 'U':
if (strEQ(name, "AW_ERROR_UNKNOWN"))
#ifdef AW_ERROR_UNKNOWN
return AW_ERROR_UNKNOWN;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_UNKNOWN_BROKER_NAME"))
#ifdef AW_ERROR_UNKNOWN_BROKER_NAME
return AW_ERROR_UNKNOWN_BROKER_NAME;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_UNKNOWN_CLIENT_GROUP"))
#ifdef AW_ERROR_UNKNOWN_CLIENT_GROUP
return AW_ERROR_UNKNOWN_CLIENT_GROUP;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_UNKNOWN_CLIENT_ID"))
#ifdef AW_ERROR_UNKNOWN_CLIENT_ID
return AW_ERROR_UNKNOWN_CLIENT_ID;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_UNKNOWN_EVENT_TYPE"))
#ifdef AW_ERROR_UNKNOWN_EVENT_TYPE
return AW_ERROR_UNKNOWN_EVENT_TYPE;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_UNKNOWN_INFOSET"))
#ifdef AW_ERROR_UNKNOWN_INFOSET
return AW_ERROR_UNKNOWN_INFOSET;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_UNKNOWN_KEY"))
#ifdef AW_ERROR_UNKNOWN_KEY
return AW_ERROR_UNKNOWN_KEY;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_UNKNOWN_NAME"))
#ifdef AW_ERROR_UNKNOWN_NAME
return AW_ERROR_UNKNOWN_NAME;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_UNKNOWN_SERVER"))
#ifdef AW_ERROR_UNKNOWN_SERVER
return AW_ERROR_UNKNOWN_SERVER;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_UNKNOWN_SESSION_ID"))
#ifdef AW_ERROR_UNKNOWN_SESSION_ID
return AW_ERROR_UNKNOWN_SESSION_ID;
#else
goto not_there;
#endif
if (strEQ(name, "AW_ERROR_UNKNOWN_TERRITORY"))
#ifdef AW_ERROR_UNKNOWN_TERRITORY
return AW_ERROR_UNKNOWN_TERRITORY;
#else
goto not_there;
#endif
}
break;
case 'I':
if (strEQ(name, "AW_INFINITE"))
#ifdef AW_INFINITE
return AW_INFINITE;
#else
goto not_there;
#endif
break;
case 'N':
if (strEQ(name, "AW_NO_ERROR"))
#ifdef AW_NO_ERROR
return ((double)0x00000000);
#else
goto not_there;
#endif
if (strEQ(name, "AW_NO_SHARE_LIMIT"))
#ifdef AW_NO_SHARE_LIMIT
return AW_NO_SHARE_LIMIT;
#else
goto not_there;
#endif
break;
case 'P':
if (strEQ(name, "AW_PLATFORM_AIX"))
#ifdef AW_PLATFORM_AIX
return AW_PLATFORM_AIX;
#else
goto not_there;
#endif
if (strEQ(name, "AW_PLATFORM_ANY"))
#ifdef AW_PLATFORM_ANY
return AW_PLATFORM_ANY;
#else
goto not_there;
#endif
if (strEQ(name, "AW_PLATFORM_DEC"))
#ifdef AW_PLATFORM_DEC
return AW_PLATFORM_DEC;
#else
goto not_there;
#endif
if (strEQ(name, "AW_PLATFORM_HPUX"))
#ifdef AW_PLATFORM_HPUX
return AW_PLATFORM_HPUX;
#else
goto not_there;
#endif
if (strEQ(name, "AW_PLATFORM_IRIX"))
#ifdef AW_PLATFORM_IRIX
return AW_PLATFORM_IRIX;
#else
goto not_there;
#endif
if (strEQ(name, "AW_PLATFORM_SOLARIS"))
#ifdef AW_PLATFORM_SOLARIS
return AW_PLATFORM_SOLARIS;
#else
goto not_there;
#endif
if (strEQ(name, "AW_PLATFORM_WINDOWS"))
#ifdef AW_PLATFORM_WINDOWS
return AW_PLATFORM_WINDOWS;
#else
goto not_there;
#endif
break;
case 'R':
if (strEQ(name, "AW_REPLY_FLAG_CONTINUE"))
#ifdef AW_REPLY_FLAG_CONTINUE
return AW_REPLY_FLAG_CONTINUE;
#else
goto not_there;
#endif
if (strEQ(name, "AW_REPLY_FLAG_END"))
#ifdef AW_REPLY_FLAG_END
return AW_REPLY_FLAG_END;
#else
goto not_there;
#endif
if (strEQ(name, "AW_REPLY_FLAG_START"))
#ifdef AW_REPLY_FLAG_START
return AW_REPLY_FLAG_START;
#else
goto not_there;
#endif
if (strEQ(name, "AW_REPLY_FLAG_START_AND_END"))
#ifdef AW_REPLY_FLAG_START_AND_END
return AW_REPLY_FLAG_START_AND_END;
#else
goto not_there;
#endif
if (strEQ(name, "AW_RETRIEVE_ALL"))
#ifdef AW_RETRIEVE_ALL
return AW_RETRIEVE_ALL;
#else
goto not_there;
#endif
break;
case 'S':
/*
if (strEQ(name, "AW_SHARED_ORDER_NONE"))
#ifdef AW_SHARED_ORDER_NONE
return AW_SHARED_ORDER_NONE;
#else
goto not_there;
#endif
if (strEQ(name, "AW_SHARED_ORDER_BY_PUBLISHER"))
#ifdef AW_SHARED_ORDER_BY_PUBLISHER
return AW_SHARED_ORDER_BY_PUBLISHER;
#else
goto not_there;
#endif
*/
if (strEQ(name, "AW_STORAGE_GUARANTEED"))
#ifdef AW_STORAGE_GUARANTEED
return AW_STORAGE_GUARANTEED;
#else
goto not_there;
#endif
if (strEQ(name, "AW_STORAGE_PERSISTENT"))
#ifdef AW_STORAGE_PERSISTENT
return AW_STORAGE_PERSISTENT;
#else
goto not_there;
#endif
if (strEQ(name, "AW_STORAGE_VOLATILE"))
#ifdef AW_STORAGE_VOLATILE
return AW_STORAGE_VOLATILE;
#else
goto not_there;
#endif
break;
case 'T':
if (strEQ(name, "AW_TRANSACTION_LEVEL_ANY"))
#ifdef AW_TRANSACTION_LEVEL_ANY
return AW_TRANSACTION_LEVEL_ANY;
#else
goto not_there;
#endif
if (strEQ(name, "AW_TRANSACTION_LEVEL_BASIC"))
#ifdef AW_TRANSACTION_LEVEL_BASIC
return AW_TRANSACTION_LEVEL_BASIC;
#else
goto not_there;
#endif
if (strEQ(name, "AW_TRANSACTION_LEVEL_CONVERSATIONAL"))
#ifdef AW_TRANSACTION_LEVEL_CONVERSATIONAL
return AW_TRANSACTION_LEVEL_CONVERSATIONAL;
#else
goto not_there;
#endif
if (strEQ(name, "AW_TRANSACTION_LEVEL_NONE"))
#ifdef AW_TRANSACTION_LEVEL_NONE
return AW_TRANSACTION_LEVEL_NONE;
#else
goto not_there;
#endif
if (strEQ(name, "AW_TRANSACTION_LEVEL_PSEUDO"))
#ifdef AW_TRANSACTION_LEVEL_PSEUDO
return AW_TRANSACTION_LEVEL_PSEUDO;
#else
goto not_there;
#endif
if (strEQ(name, "AW_TRANSACTION_MODE_COMMIT"))
#ifdef AW_TRANSACTION_MODE_COMMIT
return AW_TRANSACTION_MODE_COMMIT;
#else
goto not_there;
#endif
if (strEQ(name, "AW_TRANSACTION_MODE_ROLLBACK"))
#ifdef AW_TRANSACTION_MODE_ROLLBACK
return AW_TRANSACTION_MODE_ROLLBACK;
#else
goto not_there;
#endif
if (strEQ(name, "AW_TRANSACTION_MODE_SAVEPOINT"))
#ifdef AW_TRANSACTION_MODE_SAVEPOINT
return AW_TRANSACTION_MODE_SAVEPOINT;
#else
goto not_there;
#endif
break;
case 'U':
break;
case 'V':
if (strEQ(name, "AW_VALIDATE_BAD_LICENSE"))
#ifdef AW_VALIDATE_BAD_LICENSE
return AW_VALIDATE_BAD_LICENSE;
#else
goto not_there;
#endif
if (strEQ(name, "AW_VALIDATE_BAD_PLATFORM"))
#ifdef AW_VALIDATE_BAD_PLATFORM
return AW_VALIDATE_BAD_PLATFORM;
#else
goto not_there;
#endif
if (strEQ(name, "AW_VALIDATE_BAD_PRODUCT"))
#ifdef AW_VALIDATE_BAD_PRODUCT
return AW_VALIDATE_BAD_PRODUCT;
#else
goto not_there;
#endif
if (strEQ(name, "AW_VALIDATE_BAD_VERSION"))
#ifdef AW_VALIDATE_BAD_VERSION
return AW_VALIDATE_BAD_VERSION;
#else
goto not_there;
#endif
if (strEQ(name, "AW_VALIDATE_EXPIRED"))
#ifdef AW_VALIDATE_EXPIRED
return AW_VALIDATE_EXPIRED;
#else
goto not_there;
#endif
if (strEQ(name, "AW_VALIDATE_OKAY"))
#ifdef AW_VALIDATE_OKAY
return AW_VALIDATE_OKAY;
#else
goto not_there;
#endif
if (strEQ(name, "AW_VERSION"))
#ifdef AW_VERSION
return AW_VERSION;
#else
goto not_there;
#endif
break;
}
break;
case 'B':
case 'C':
if (strEQ(name, "CAT_ADAPTER"))
#ifdef CAT_ADAPTER
return CAT_ADAPTER;
#else
goto not_there;
#endif
if (strEQ(name, "CAT_APPLICATION"))
#ifdef CAT_APPLICATION
return CAT_APPLICATION;
#else
goto not_there;
#endif
if (strEQ(name, "CAT_BROKER"))
#ifdef CAT_BROKER
return CAT_BROKER;
#else
goto not_there;
#endif
if (strEQ(name, "CAT_DEBUG"))
#ifdef CAT_DEBUG
return CAT_DEBUG;
#else
goto not_there;
#endif
if (strEQ(name, "CAT_FILLER10"))
#ifdef CAT_FILLER10
return CAT_FILLER10;
#else
goto not_there;
#endif
if (strEQ(name, "CAT_FILLER9"))
#ifdef CAT_FILLER9
return CAT_FILLER9;
#else
goto not_there;
#endif
if (strEQ(name, "CAT_KERNEL"))
#ifdef CAT_KERNEL
return CAT_KERNEL;
#else
goto not_there;
#endif
if (strEQ(name, "CAT_MONITOR"))
#ifdef CAT_MONITOR
return CAT_MONITOR;
#else
goto not_there;
#endif
if (strEQ(name, "CAT_SYSTEM"))
#ifdef CAT_SYSTEM
return CAT_SYSTEM;
#else
goto not_there;
#endif
if (strEQ(name, "CAT_TIMEOUT"))
#ifdef CAT_TIMEOUT
return CAT_TIMEOUT;
#else
goto not_there;
#endif
break;
case 'D':
if (strEQ(name, "DEFAULT_TRANSACTION_TIMEOUT"))
#ifdef DEFAULT_TRANSACTION_TIMEOUT
return DEFAULT_TRANSACTION_TIMEOUT;
#else
goto not_there;
#endif
break;
case 'E':
if (strEQ(name, "ERR_ADAPTER_SUBS"))
#ifdef ERR_ADAPTER_SUBS
return ERR_ADAPTER_SUBS;
#else
goto not_there;
#endif
if (strEQ(name, "ERR_BAD_LICENSE"))
#ifdef ERR_BAD_LICENSE
return ERR_BAD_LICENSE;
#else
goto not_there;
#endif
if (strEQ(name, "ERR_CREATE_CLIENT"))
#ifdef ERR_CREATE_CLIENT
return ERR_CREATE_CLIENT;
#else
goto not_there;
#endif
if (strEQ(name, "ERR_GET_ADAPTER_INFO"))
#ifdef ERR_GET_ADAPTER_INFO
return ERR_GET_ADAPTER_INFO;
#else
goto not_there;
#endif
if (strEQ(name, "ERR_GET_EVENTS"))
#ifdef ERR_GET_EVENTS
return ERR_GET_EVENTS;
#else
goto not_there;
#endif
if (strEQ(name, "ERR_LICENSE_BAD_PLATFORM"))
#ifdef ERR_LICENSE_BAD_PLATFORM
return ERR_LICENSE_BAD_PLATFORM;
#else
goto not_there;
#endif
if (strEQ(name, "ERR_LICENSE_BAD_PRODUCT"))
#ifdef ERR_LICENSE_BAD_PRODUCT
return ERR_LICENSE_BAD_PRODUCT;
#else
goto not_there;
#endif
if (strEQ(name, "ERR_LICENSE_BAD_VERSION"))
#ifdef ERR_LICENSE_BAD_VERSION
return ERR_LICENSE_BAD_VERSION;
#else
goto not_there;
#endif
if (strEQ(name, "ERR_LICENSE_EXPIRED"))
#ifdef ERR_LICENSE_EXPIRED
return ERR_LICENSE_EXPIRED;
#else
goto not_there;
#endif
if (strEQ(name, "ERR_LICENSE_WILL_EXPIRE"))
#ifdef ERR_LICENSE_WILL_EXPIRE
return ERR_LICENSE_WILL_EXPIRE;
#else
goto not_there;
#endif
if (strEQ(name, "ERR_PANIC"))
#ifdef ERR_PANIC
return ERR_PANIC;
#else
goto not_there;
#endif
if (strEQ(name, "ERR_PUBLISH_ADAPTER_ERROR"))
#ifdef ERR_PUBLISH_ADAPTER_ERROR
return ERR_PUBLISH_ADAPTER_ERROR;
#else
goto not_there;
#endif
if (strEQ(name, "ERR_PUBLISH_STATUS"))
#ifdef ERR_PUBLISH_STATUS
return ERR_PUBLISH_STATUS;
#else
goto not_there;
#endif
if (strEQ(name, "ERR_SSL_DESCRIPTOR"))
#ifdef ERR_SSL_DESCRIPTOR
return ERR_SSL_DESCRIPTOR;
#else
goto not_there;
#endif
if (strEQ(name, "ERR_SUBSCRIPTION_ERROR"))
#ifdef ERR_SUBSCRIPTION_ERROR
return ERR_SUBSCRIPTION_ERROR;
#else
goto not_there;
#endif
break;
case 'F':
if (strEQ(name, "FIELD_TYPE_BOOLEAN"))
#ifdef FIELD_TYPE_BOOLEAN
return FIELD_TYPE_BOOLEAN;
#else
goto not_there;
#endif
if (strEQ(name, "FIELD_TYPE_BYTE"))
#ifdef FIELD_TYPE_BYTE
return FIELD_TYPE_BYTE;
#else
goto not_there;
#endif
if (strEQ(name, "FIELD_TYPE_CHAR"))
#ifdef FIELD_TYPE_CHAR
return FIELD_TYPE_CHAR;
#else
goto not_there;
#endif
if (strEQ(name, "FIELD_TYPE_DATE"))
#ifdef FIELD_TYPE_DATE
return FIELD_TYPE_DATE;
#else
goto not_there;
#endif
if (strEQ(name, "FIELD_TYPE_DOUBLE"))
#ifdef FIELD_TYPE_DOUBLE
return FIELD_TYPE_DOUBLE;
#else
goto not_there;
#endif
if (strEQ(name, "FIELD_TYPE_EVENT"))
#ifdef FIELD_TYPE_EVENT
return FIELD_TYPE_EVENT;
#else
goto not_there;
#endif
if (strEQ(name, "FIELD_TYPE_FLOAT"))
#ifdef FIELD_TYPE_FLOAT
return FIELD_TYPE_FLOAT;
#else
goto not_there;
#endif
if (strEQ(name, "FIELD_TYPE_INT"))
#ifdef FIELD_TYPE_INT
return FIELD_TYPE_INT;
#else
goto not_there;
#endif
if (strEQ(name, "FIELD_TYPE_LONG"))
#ifdef FIELD_TYPE_LONG
return FIELD_TYPE_LONG;
#else
goto not_there;
#endif
if (strEQ(name, "FIELD_TYPE_SEQUENCE"))
#ifdef FIELD_TYPE_SEQUENCE
return FIELD_TYPE_SEQUENCE;
#else
goto not_there;
#endif
if (strEQ(name, "FIELD_TYPE_SHORT"))
#ifdef FIELD_TYPE_SHORT
return FIELD_TYPE_SHORT;
#else
goto not_there;
#endif
if (strEQ(name, "FIELD_TYPE_STRING"))
#ifdef FIELD_TYPE_STRING
return FIELD_TYPE_STRING;
#else
goto not_there;
#endif
if (strEQ(name, "FIELD_TYPE_STRUCT"))
#ifdef FIELD_TYPE_STRUCT
return FIELD_TYPE_STRUCT;
#else
goto not_there;
#endif
if (strEQ(name, "FIELD_TYPE_UNICODE_CHAR"))
#ifdef FIELD_TYPE_UNICODE_CHAR
return FIELD_TYPE_UNICODE_CHAR;
#else
goto not_there;
#endif
if (strEQ(name, "FIELD_TYPE_UNICODE_STRING"))
#ifdef FIELD_TYPE_UNICODE_STRING
return FIELD_TYPE_UNICODE_STRING;
#else
goto not_there;
#endif
if (strEQ(name, "FIELD_TYPE_UNKNOWN"))
#ifdef FIELD_TYPE_UNKNOWN
return FIELD_TYPE_UNKNOWN;
#else
goto not_there;
#endif
if (strEQ(name, "FORWARD_ERROR_REQUEST"))
#ifdef FORWARD_ERROR_REQUEST
return FORWARD_ERROR_REQUEST;
#else
goto not_there;
#endif
break;
case 'G':
if (strEQ(name, "GENERIC_ALERT"))
#ifdef GENERIC_ALERT
return GENERIC_ALERT;
#else
goto not_there;
#endif
if (strEQ(name, "GENERIC_INFO"))
#ifdef GENERIC_INFO
return GENERIC_INFO;
#else
goto not_there;
#endif
if (strEQ(name, "GENERIC_WARNING"))
#ifdef GENERIC_WARNING
return GENERIC_WARNING;
#else
goto not_there;
#endif
break;
case 'H':
break;
case 'I':
if (strEQ(name, "INFO_ADD_NOTIFY_EVENT"))
#ifdef INFO_ADD_NOTIFY_EVENT
return INFO_ADD_NOTIFY_EVENT;
#else
goto not_there;
#endif
if (strEQ(name, "INFO_ADD_REQUEST_EVENT"))
#ifdef INFO_ADD_REQUEST_EVENT
return INFO_ADD_REQUEST_EVENT;
#else
goto not_there;
#endif
if (strEQ(name, "INFO_CLEANUP_EVENTTYPE"))
#ifdef INFO_CLEANUP_EVENTTYPE
return INFO_CLEANUP_EVENTTYPE;
#else
goto not_there;
#endif
if (strEQ(name, "INFO_FORWARD_REQUEST"))
#ifdef INFO_FORWARD_REQUEST
return INFO_FORWARD_REQUEST;
#else
goto not_there;
#endif
if (strEQ(name, "INFO_PROCESS_PUBLICATION"))
#ifdef INFO_PROCESS_PUBLICATION
return INFO_PROCESS_PUBLICATION;
#else
goto not_there;
#endif
if (strEQ(name, "INFO_RECEIVED_REQUEST"))
#ifdef INFO_RECEIVED_REQUEST
return INFO_RECEIVED_REQUEST;
#else
goto not_there;
#endif
if (strEQ(name, "INFO_TEST_BROKER"))
#ifdef INFO_TEST_BROKER
return INFO_TEST_BROKER;
#else
goto not_there;
#endif
break;
case 'J':
break;
case 'K':
case 'M':
if (strEQ(name, "MSG_CREATE_EVENT"))
#ifdef MSG_CREATE_EVENT
return MSG_CREATE_EVENT;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_DELIVER_ERROR"))
#ifdef MSG_DELIVER_ERROR
return MSG_DELIVER_ERROR;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_DELIVER_REPLY_ERROR"))
#ifdef MSG_DELIVER_REPLY_ERROR
return MSG_DELIVER_REPLY_ERROR;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_DELIVER_STATUS"))
#ifdef MSG_DELIVER_STATUS
return MSG_DELIVER_STATUS;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_FIELD_SET_ERROR"))
#ifdef MSG_FIELD_SET_ERROR
return MSG_FIELD_SET_ERROR;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_FIELD_SET_NOT_SUPPORTED"))
#ifdef MSG_FIELD_SET_NOT_SUPPORTED
return MSG_FIELD_SET_NOT_SUPPORTED;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_FIELD_SET_NO_FORMAT"))
#ifdef MSG_FIELD_SET_NO_FORMAT
return MSG_FIELD_SET_NO_FORMAT;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_FORMAT_ERROR"))
#ifdef MSG_FORMAT_ERROR
return MSG_FORMAT_ERROR;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_FORWARD_SET_FIELDS"))
#ifdef MSG_FORWARD_SET_FIELDS
return MSG_FORWARD_SET_FIELDS;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_FORWARD_TO_SESSION"))
#ifdef MSG_FORWARD_TO_SESSION
return MSG_FORWARD_TO_SESSION;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_GET_EVENT_FIELD"))
#ifdef MSG_GET_EVENT_FIELD
return MSG_GET_EVENT_FIELD;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_GET_FAMILY_NAMES"))
#ifdef MSG_GET_FAMILY_NAMES
return MSG_GET_FAMILY_NAMES;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_INFOSET_ENTRY_ERROR"))
#ifdef MSG_INFOSET_ENTRY_ERROR
return MSG_INFOSET_ENTRY_ERROR;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_INFOSET_ENTRY_MISSING"))
#ifdef MSG_INFOSET_ENTRY_MISSING
return MSG_INFOSET_ENTRY_MISSING;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_NOTIFICATION_NOT_SUPPORTED"))
#ifdef MSG_NOTIFICATION_NOT_SUPPORTED
return MSG_NOTIFICATION_NOT_SUPPORTED;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_NO_CAN_PUBLISH"))
#ifdef MSG_NO_CAN_PUBLISH
return MSG_NO_CAN_PUBLISH;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_NO_CAN_PUBLISH_REPLY"))
#ifdef MSG_NO_CAN_PUBLISH_REPLY
return MSG_NO_CAN_PUBLISH_REPLY;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_NO_CAN_SUBSCRIBE"))
#ifdef MSG_NO_CAN_SUBSCRIBE
return MSG_NO_CAN_SUBSCRIBE;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_NO_CAN_SUBSCRIBE_REPLY"))
#ifdef MSG_NO_CAN_SUBSCRIBE_REPLY
return MSG_NO_CAN_SUBSCRIBE_REPLY;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_NO_REFRESH_FAMILY"))
#ifdef MSG_NO_REFRESH_FAMILY
return MSG_NO_REFRESH_FAMILY;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_NO_TRANS_ID"))
#ifdef MSG_NO_TRANS_ID
return MSG_NO_TRANS_ID;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_NO_TRANS_MODE"))
#ifdef MSG_NO_TRANS_MODE
return MSG_NO_TRANS_MODE;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_NO_TYPE_DEF"))
#ifdef MSG_NO_TYPE_DEF
return MSG_NO_TYPE_DEF;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_NO_TYPE_DEF_REPLY"))
#ifdef MSG_NO_TYPE_DEF_REPLY
return MSG_NO_TYPE_DEF_REPLY;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_PUBLISH_ERROR"))
#ifdef MSG_PUBLISH_ERROR
return MSG_PUBLISH_ERROR;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_PUBLISH_REPLY_ERROR"))
#ifdef MSG_PUBLISH_REPLY_ERROR
return MSG_PUBLISH_REPLY_ERROR;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_RETRIEVE_EVENT_TYPES"))
#ifdef MSG_RETRIEVE_EVENT_TYPES
return MSG_RETRIEVE_EVENT_TYPES;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_SET_EVENT_FIELD"))
#ifdef MSG_SET_EVENT_FIELD
return MSG_SET_EVENT_FIELD;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_SUBSCRIPTION_ERROR"))
#ifdef MSG_SUBSCRIPTION_ERROR
return MSG_SUBSCRIPTION_ERROR;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_TRANSACTION_COMMIT_MISSING"))
#ifdef MSG_TRANSACTION_COMMIT_MISSING
return MSG_TRANSACTION_COMMIT_MISSING;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_TRANSACTION_MODIFIED"))
#ifdef MSG_TRANSACTION_MODIFIED
return MSG_TRANSACTION_MODIFIED;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_TRANSACTION_NOACK"))
#ifdef MSG_TRANSACTION_NOACK
return MSG_TRANSACTION_NOACK;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_TRANSACTION_TIMEOUT"))
#ifdef MSG_TRANSACTION_TIMEOUT
return MSG_TRANSACTION_TIMEOUT;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_TRANS_LEVEL_MISMATCH"))
#ifdef MSG_TRANS_LEVEL_MISMATCH
return MSG_TRANS_LEVEL_MISMATCH;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_TRANS_MODE_NOT_SUPPORTED"))
#ifdef MSG_TRANS_MODE_NOT_SUPPORTED
return MSG_TRANS_MODE_NOT_SUPPORTED;
#else
goto not_there;
#endif
if (strEQ(name, "MSG_TRANS_NOT_ACTIVE"))
#ifdef MSG_TRANS_NOT_ACTIVE
return MSG_TRANS_NOT_ACTIVE;
#else
goto not_there;
#endif
break;
case 'N':
break;
case 'O':
case 'P':
if (strEQ(name, "PLACE_HOLDER1"))
#ifdef PLACE_HOLDER1
return PLACE_HOLDER1;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER10"))
#ifdef PLACE_HOLDER10
return PLACE_HOLDER10;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER11"))
#ifdef PLACE_HOLDER11
return PLACE_HOLDER11;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER12"))
#ifdef PLACE_HOLDER12
return PLACE_HOLDER12;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER13"))
#ifdef PLACE_HOLDER13
return PLACE_HOLDER13;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER14"))
#ifdef PLACE_HOLDER14
return PLACE_HOLDER14;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER15"))
#ifdef PLACE_HOLDER15
return PLACE_HOLDER15;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER16"))
#ifdef PLACE_HOLDER16
return PLACE_HOLDER16;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER2"))
#ifdef PLACE_HOLDER2
return PLACE_HOLDER2;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER3"))
#ifdef PLACE_HOLDER3
return PLACE_HOLDER3;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER34"))
#ifdef PLACE_HOLDER34
return PLACE_HOLDER34;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER35"))
#ifdef PLACE_HOLDER35
return PLACE_HOLDER35;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER36"))
#ifdef PLACE_HOLDER36
return PLACE_HOLDER36;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER37"))
#ifdef PLACE_HOLDER37
return PLACE_HOLDER37;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER38"))
#ifdef PLACE_HOLDER38
return PLACE_HOLDER38;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER4"))
#ifdef PLACE_HOLDER4
return PLACE_HOLDER4;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER5"))
#ifdef PLACE_HOLDER5
return PLACE_HOLDER5;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER6"))
#ifdef PLACE_HOLDER6
return PLACE_HOLDER6;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER7"))
#ifdef PLACE_HOLDER7
return PLACE_HOLDER7;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER8"))
#ifdef PLACE_HOLDER8
return PLACE_HOLDER8;
#else
goto not_there;
#endif
if (strEQ(name, "PLACE_HOLDER9"))
#ifdef PLACE_HOLDER9
return PLACE_HOLDER9;
#else
goto not_there;
#endif
break;
case 'Q':
break;
case 'R':
break;
}
errno = EINVAL;
return 0;
not_there:
errno = ENOENT;
return 0;
}
AxKit2
view release on metacpan or search on metacpan
lib/AxKit2/HTTPHeaders.pm view on Meta::CPAN
=cut
sub range {
my AxKit2::HTTPHeaders $self = $_[0];
my $size = $_[1];
my $not_satisfiable;
my $range = $self->header("Range");
return 200 unless
$range &&
defined $size &&
B-C
view release on metacpan or search on metacpan
.gdb/dashboard view on Meta::CPAN
},
# prompt
'prompt': {
'doc': """Command prompt.
This value is parsed as a Python format string in which `{status}` is expanded
with the substitution of either `prompt_running` or `prompt_not_running`
attributes, according to the target program status. The resulting string must be
a valid GDB prompt, see the command `python print(gdb.prompt.prompt_help())`""",
'default': '{status}'
},
'prompt_running': {
'doc': """`{status}` when the target program is running.
See the `prompt` attribute. This value is parsed as a Python format string in
which `{pid}` is expanded with the process identifier of the target program.""",
'default': '\[\e[1;35m\]>>>\[\e[0m\]'
},
'prompt_not_running': {
'doc': '`{status}` when the target program is not running.',
'default': '\[\e[1;30m\]>>>\[\e[0m\]'
},
# divider
'divider_fill_char_primary': {
.gdb/dashboard view on Meta::CPAN
# render thread status indicator
if dashboard.is_running():
pid = dashboard.inferior_pid()
status = R.prompt_running.format(pid=pid)
else:
status = R.prompt_not_running
# build prompt
prompt = R.prompt.format(status=status)
prompt = gdb.prompt.substitute_prompt(prompt)
return prompt + ' ' # force trailing space
gdb.prompt_hook = custom_prompt
B-DeparseTree
view release on metacpan or search on metacpan
t/10-core.t view on Meta::CPAN
# testit return => '(return);', '(return);';
# testit return => '(CORE::return);', '(return);';
# these are the keywords I couldn't think how to test within this framework
my %not_tested = map { $_ => 1} qw(
__DATA__
__END__
__FILE__
__LINE__
__PACKAGE__
t/10-core.t view on Meta::CPAN
while (<$fh>) {
next unless /^([+\-])(\w+)$/;
my ($strength, $key) = ($1, $2);
$strength = ($strength eq '+') ? 1 : 0;
$count++;
if (!$SEEN{$key} && !$not_tested{$key}) {
diag("keyword '$key' seen in $file, but not tested here!!");
$pass = 0;
}
if (exists $SEEN_STRENGTH{$key} and $SEEN_STRENGTH{$key} != $strength) {
diag("keyword '$key' strengh as seen in $file doen't match here!!");
B-Foreach-Iterator
view release on metacpan or search on metacpan
inc/Module/Install/XSUtil.pm view on Meta::CPAN
$h_files = +{ map{ $_ => undef } @_ };
}
$self->_xs_initialize();
my @not_found;
my $h_map = $self->{xsu_header_map} || {};
while(my($ident, $path) = each %{$h_files}){
$path ||= $h_map->{$ident} || File::Spec->join('.', $ident);
$path = File::Spec->canonpath($path);
unless($path && -e $path){
push @not_found, $ident;
next;
}
$ToInstall{$path} = File::Spec->join('$(INST_ARCHAUTODIR)', $ident);
inc/Module/Install/XSUtil.pm view on Meta::CPAN
if(@funcs){
$self->cc_append_to_funclist(@funcs);
}
}
if(@not_found){
die "Header file(s) not found: @not_found\n";
}
return;
}
B-Hooks-AtRuntime-OnlyCoreDependencies
view release on metacpan or search on metacpan
__ASSERT_|5.019007|5.008008|p
ASSERT_CURPAD_ACTIVE|5.008001||Viu
ASSERT_CURPAD_LEGAL|5.008001||Viu
ASSERT_IS_LITERAL|||Viu
ASSERT_IS_PTR|||Viu
assert_not_glob|5.009004||Viu
ASSERT_NOT_PTR|5.035004||Viu
assert_not_ROK|5.008001||Viu
assert_uft8_cache_coherent|5.013003||Viu
assignment_type|5.021005||Viu
ASSUME|5.019006|5.003007|p
atfork_lock|5.007003|5.007003|nu
atfork_unlock|5.007003|5.007003|nu
noperl_die|5.021006||vVniu
NORETURN_FUNCTION_END|5.009003||Viu
NORMAL|5.003007||Viu
NOSTR|5.027010||Viu
NO_TAINT_SUPPORT|5.017006||Viu
not_a_number|5.005000||Viu
NOTE3|5.027001||Viu
NOTHING|5.003007||Viu
NOTHING_t8|5.035004||Viu
NOTHING_t8_p8|5.033003||Viu
NOTHING_t8_pb|5.033003||Viu
NOTHING_tb|5.035004||Viu
NOTHING_tb_p8|5.033003||Viu
NOTHING_tb_pb|5.033003||Viu
nothreadhook|5.008000|5.008000|
notify_parser_that_changed_to_utf8|5.025010||Viu
not_incrementable|5.021002||Viu
NOT_IN_PAD|5.005000||Viu
NOT_REACHED|5.019006|5.003007|poVnu
NPOSIXA|5.017003||Viu
NPOSIXA_t8|5.035004||Viu
NPOSIXA_t8_p8|5.033003||Viu
WHILEM_t8_pb|5.033003||Viu
WHILEM_tb|5.035004||Viu
WHILEM_tb_p8|5.033003||Viu
WHILEM_tb_pb|5.033003||Viu
WIDEST_UTYPE|5.015004|5.003007|poVnu
win32_croak_not_implemented|5.017006||Vniu
WIN32SCK_IS_STDSCK|5.007001||Viu
win32_setlocale|5.027006||Viu
withinCOUNT|5.031004||Viu
withinCOUNT_KNOWN_VALID|5.033005||Viu
WITH_LC_NUMERIC_SET_TO_NEEDED|5.031003|5.031003|
# include <patchlevel.h>
# endif
# if ! defined(PERL_VERSION) \
&& ! defined(PERL_VERSION_MAJOR) \
&& ( ! defined(SUBVERSION) || ! defined(PATCHLEVEL) )
# include <could_not_find_Perl_patchlevel.h>
# endif
#endif
#ifdef PERL_VERSION_MAJOR
# define D_PPP_MAJOR PERL_VERSION_MAJOR
B-Hooks-AtRuntime
view release on metacpan or search on metacpan
__ASSERT_|5.019007|5.008008|p
ASSERT_CURPAD_ACTIVE|5.008001||Viu
ASSERT_CURPAD_LEGAL|5.008001||Viu
ASSERT_IS_LITERAL|||Viu
ASSERT_IS_PTR|||Viu
assert_not_glob|5.009004||Viu
ASSERT_NOT_PTR|5.035004||Viu
assert_not_ROK|5.008001||Viu
assert_uft8_cache_coherent|5.013003||Viu
assignment_type|5.021005||Viu
ASSUME|5.019006|5.003007|p
atfork_lock|5.007003|5.007003|nu
atfork_unlock|5.007003|5.007003|nu
noperl_die|5.021006||vVniu
NORETURN_FUNCTION_END|5.009003||Viu
NORMAL|5.003007||Viu
NOSTR|5.027010||Viu
NO_TAINT_SUPPORT|5.017006||Viu
not_a_number|5.005000||Viu
NOTE3|5.027001||Viu
NOTHING|5.003007||Viu
NOTHING_t8|5.035004||Viu
NOTHING_t8_p8|5.033003||Viu
NOTHING_t8_pb|5.033003||Viu
NOTHING_tb|5.035004||Viu
NOTHING_tb_p8|5.033003||Viu
NOTHING_tb_pb|5.033003||Viu
nothreadhook|5.008000|5.008000|
notify_parser_that_changed_to_utf8|5.025010||Viu
not_incrementable|5.021002||Viu
NOT_IN_PAD|5.005000||Viu
NOT_REACHED|5.019006|5.003007|poVnu
NPOSIXA|5.017003||Viu
NPOSIXA_t8|5.035004||Viu
NPOSIXA_t8_p8|5.033003||Viu
WHILEM_t8_pb|5.033003||Viu
WHILEM_tb|5.035004||Viu
WHILEM_tb_p8|5.033003||Viu
WHILEM_tb_pb|5.033003||Viu
WIDEST_UTYPE|5.015004|5.003007|poVnu
win32_croak_not_implemented|5.017006||Vniu
WIN32SCK_IS_STDSCK|5.007001||Viu
win32_setlocale|5.027006||Viu
withinCOUNT|5.031004||Viu
withinCOUNT_KNOWN_VALID|5.033005||Viu
WITH_LC_NUMERIC_SET_TO_NEEDED|5.031003|5.031003|
# include <patchlevel.h>
# endif
# if ! defined(PERL_VERSION) \
&& ! defined(PERL_VERSION_MAJOR) \
&& ( ! defined(SUBVERSION) || ! defined(PATCHLEVEL) )
# include <could_not_find_Perl_patchlevel.h>
# endif
#endif
#ifdef PERL_VERSION_MAJOR
# define D_PPP_MAJOR PERL_VERSION_MAJOR
B-Hooks-OP-Annotation
view release on metacpan or search on metacpan
nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
B-Hooks-OP-Check-LeaveEval
view release on metacpan or search on metacpan
ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
noperl_die|||vn
not_a_number|||
not_incrementable|||
nothreadhook||5.008000|
notify_parser_that_changed_to_utf8|||
nuke_stacks|||
num_overflow|||n
oopsAV|||
watch|||
whichsig_pvn||5.015004|
whichsig_pv||5.015004|
whichsig_sv||5.015004|
whichsig|||
win32_croak_not_implemented|||n
win32_setlocale|||
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
B-Hooks-OP-Check-StashChange
view release on metacpan or search on metacpan
nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
B-Hooks-OP-Check
view release on metacpan or search on metacpan
ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
noperl_die|||vn
not_a_number|||
not_incrementable|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsHV|||
watch|||
whichsig_pvn||5.015004|
whichsig_pv||5.015004|
whichsig_sv||5.015004|
whichsig|||
win32_croak_not_implemented|||n
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
xs_handshake|||vn
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
B-Hooks-OP-PPAddr
view release on metacpan or search on metacpan
ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
noperl_die|||vn
not_a_number|||
not_incrementable|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsHV|||
watch|||
whichsig_pvn||5.015004|
whichsig_pv||5.015004|
whichsig_sv||5.015004|
whichsig|||
win32_croak_not_implemented|||n
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
xs_handshake|||vn
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
B-Hooks-Parser
view release on metacpan or search on metacpan
ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
noperl_die|||vn
not_a_number|||
not_incrementable|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsHV|||
watch|||
whichsig_pvn||5.015004|
whichsig_pv||5.015004|
whichsig_sv||5.015004|
whichsig|||
win32_croak_not_implemented|||n
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
xs_handshake|||vn
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
B-Hooks-XSUB-CallAsOp
view release on metacpan or search on metacpan
nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
B-OPCheck
view release on metacpan or search on metacpan
ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
noperl_die|||vn
not_a_number|||
not_incrementable|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsHV|||
watch|||
whichsig_pvn||5.015004|
whichsig_pv||5.015004|
whichsig_sv||5.015004|
whichsig|||
win32_croak_not_implemented|||n
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
xs_handshake|||vn
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
B-Tap
view release on metacpan or search on metacpan
t/00_compile.t
t/01_simple.t
t/02_entersub.t
t/03_padsv.t
t/05_regexp.t
t/06_not_defined.t
t/CallTrace/01_simple.t
META.yml
MANIFEST
B-Utils
view release on metacpan or search on metacpan
nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
B-Utils1
view release on metacpan or search on metacpan
ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
noperl_die|||vn
not_a_number|||
not_incrementable|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsHV|||
watch|||
whichsig_pvn||5.015004|
whichsig_pv||5.015004|
whichsig_sv||5.015004|
whichsig|||
win32_croak_not_implemented|||n
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
xs_handshake|||vn
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
BATsh
view release on metacpan or search on metacpan
local $/ = undef; # slurp mode
my $data = <FH>;
close FH;
#-----------------------------------------------------------------------------
# Kwalitee Indicator: buildtool_not_executable core
# The build tool (Build.PL/Makefile.PL) is executable. This is bad because
# you should specify which perl you want to use while installing.
#
# How to fix
# Change the permissions of Build.PL/Makefile.PL to not-executable.
# Test::Harness::runtests cannot work heavy load.
sub _runtests {
my @script = @_;
my @fail_testno = ();
my $ok_script = 0;
my $not_ok_script = 0;
my $total_ok = 0;
my $total_not_ok = 0;
my $total_skip = 0;
# cygwin warning:
# MS-DOS style path detected: C:/cpan/Char-X.XX
# Preferred POSIX equivalent is: /cygdrive/c/cpan/Char-X.XX
my $scriptno = 0;
for my $script (@script) {
next if not -e $script;
my $ok = 0;
my $not_ok = 0;
my $skip = 0;
if (my @result = qx{$^X $script}) {
if (my($tests) = shift(@result) =~ /^1..([0-9]+)/) {
for my $result (@result) {
# Read TAP test number directly to avoid offset from comment lines
}
}
elsif ($result =~ /^not ok (\d+)/) {
my $tapno = $1;
push @{$fail_testno[$scriptno]}, $tapno;
$not_ok++;
}
# TAP comment lines (^#) and other lines are silently ignored
}
if ($not_ok == 0) {
if ($skip > 0) {
printf("$script ok (skipped: %d)\n", $skip);
}
else {
printf("$script ok\n");
}
$ok_script++;
}
else {
printf("$script Failed %d/%d subtests\n", $not_ok, $ok+$not_ok+$skip);
$not_ok_script++;
}
}
}
$total_ok += $ok;
$total_not_ok += $not_ok;
$total_skip += $skip;
$scriptno++;
}
my $elapsed = time() - $start_time;
if (scalar(@script) == $ok_script) {
my $skip_msg = $total_skip > 0 ? " (skipped: $total_skip)" : '';
printf("All tests successful.\n");
printf("Files=%d, Tests=%d%s, %d wallclock secs\n",
scalar(@script), $total_ok + $total_not_ok + $total_skip,
$skip_msg, $elapsed);
printf("Result: PASS\n");
}
else {
print "\nTest Summary Report\n-------------------\n";
print ' Failed test: ', join(', ', @{$fail_testno[$scriptno]}), "\n";
}
$scriptno++;
}
printf("Files=%d, Tests=%d, %d wallclock secs\n",
scalar(@script), $total_ok + $total_not_ok + $total_skip, $elapsed);
printf("Result: FAIL\n");
printf("Failed %d/%d test programs. %d/%d subtests failed.\n",
$not_ok_script, scalar(@script),
$total_not_ok, $total_ok + $total_not_ok + $total_skip);
}
}
######################################################################
# selfcheck: Perl 5.5.3 compat (--check1) and coding style (--check2)
BIE-Data-HDF5
view release on metacpan or search on metacpan
nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
BIND-SDB-LDAP-Helper
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/BIND/SDB/LDAP/Helper.pm');
BPM-Engine
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
{
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
BSD-Ipfwgen
view release on metacpan or search on metacpan
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
outside leaf
us not_us consolidate symmetric
count_by_interface count_by_address
count_by_udp count_by_tcp
no_looping no_spoofing_us no_spoofing_by_us no_leaf_spoofing
generate
drop_unwanted
tcp_from_rules udp_from_rules
tcp_to_rules udp_to_rules
from_net_rules to_net_rules
to_me_rules from_me_rules
not_to_me_rules not_from_me_rules
in_interface_rules out_interface_rules
from_us to_us
);
my @from_us;
my @to_us;
my @outside;
my @leaf;
my @us;
my @not_us;
my @symmetric;
my @interesting;
my %consolidate;
my $if0; # first interface
sub leaf { push(@leaf, @_); };
# networks
sub interesting { push(@interesting, @_); watch(@_); }
sub us { push(@us, @_); watch(@_); };
sub not_us { push(@not_us, @_); watch(@_); };
sub symmetric { push(@symmetric, @_); watch(@_); };
sub from_us { push(@from_us, @_); watch(@_); };
sub to_us { push(@to_us, @_); watch(@_); };
sub mark_addresses
return @r;
}
sub get_routes
{
for my $net (@us, @symmetric, @interesting, @not_us, @from_us, @to_us) {
my ($base, $mask) = get_netmask($net);
if ($mask >= 24) {
$base =~ m/^(\d+\.\d+\.\d+)\.\d+$/
or die "parse dest $net ($base)";
$track_net{$1} = $net;
my $begun = 0;
my @from_me_rules;
my @to_me_rules;
my @not_from_me_rules;
my @not_to_me_rules;
my %count_in;
my %count_out;
my %count_udp_from;
my %count_tcp_from;
sub from_net_rules { my($net, $rules) = @_; push(@{$from_net_rules{$net}}, clean_rules($rules)); }
sub to_net_rules { my($net, $rules) = @_; push(@{$to_net_rules{$net}}, clean_rules($rules)); }
sub from_me_rules { my($rules) = @_; push(@from_me_rules, clean_rules($rules)); }
sub to_me_rules { my($rules) = @_; push(@to_me_rules, clean_rules($rules)); }
sub not_from_me_rules { my($rules) = @_; push(@not_from_me_rules, clean_rules($rules)); }
sub not_to_me_rules { my($rules) = @_; push(@not_to_me_rules, clean_rules($rules)); }
#sub modload
# modload /lkm/ipfw_mod.o
# XXX
#
push(@rules, "=rulenum 10000");
push(@rules, "=gap");
# recv only happens on packets that we didn't generate
if (@from_us_fules || @not_from_me_rules) {
push(@rules,
"=skipto done-from-us all from any to any in recv =IN",
@from_me_rules,
"=skipto done-not-from-us all from any to any",
"=label done-from-us",
@not_from_me_rules,
"=label done-not-from-us");
push(@rules, "=gap");
}
if (@to_me_rules || @not_to_me_rules) {
push(@rules,
"=skipto done-to-us all from any to =ME",
@not_to_me_rules,
"=skipto done-not-to-us all from any to any",
"=label done-to-us",
@to_me_rules,
"=label done-not-to-us");
push(@rules, "=gap");
$y =~ s/=TOUS/$n/g;
push(@n, $y);
}
} elsif ($x =~ /=US/) {
my $l2 = $genlabel++;
for my $n (@not_us) {
my $y = remove_action($x);
$y =~ s/=US/$n/g;
push(@n, "=skipto $l2 $y");
}
for my $n (@us) {
sub generate
{
my (@opt) = @_;
# don't allow others to pretend that they are us
unshift(@not_from_me_rules,
"=skiprule all from any to any in recv 'lo*'",
"=deny_log all from =ME to any # ns-op");
my @legal = qw(
LOG_DENIES
BSD-Itimer
view release on metacpan or search on metacpan
#include <sys/time.h>
static char *rcs_id = "$Id: Itimer.xs,v 1.2 1999/07/28 02:26:50 hag Exp $";
static int
not_here(s)
char *s;
{
croak("%s not implemented on this architecture", s);
return -1;
}
case 'I':
if (strEQ(name, "ITIMER_PROF"))
#ifdef ITIMER_PROF
return ITIMER_PROF;
#else
goto not_there;
#endif
if (strEQ(name, "ITIMER_REAL"))
#ifdef ITIMER_REAL
return ITIMER_REAL;
#else
goto not_there;
#endif
if (strEQ(name, "ITIMER_REALPROF"))
#ifdef ITIMER_REALPROF
return ITIMER_REALPROF;
#else
goto not_there;
#endif
if (strEQ(name, "ITIMER_VIRTUAL"))
#ifdef ITIMER_VIRTUAL
return ITIMER_VIRTUAL;
#else
goto not_there;
#endif
break;
}
errno = EINVAL;
return 0;
not_there:
errno = ENOENT;
return 0;
}
MODULE = BSD::Itimer PACKAGE = BSD::Itimer
BSD-Process
view release on metacpan or search on metacpan
parent_waiting => 'ppwait',
started_profiling => 'profil',
stopped_profiling => 'stopprof',
id_privs_set => 'sugid',
system_process => 'system',
single_exit_not_wait => 'single_exit',
traced_by_debugger => 'traced',
waited_on_by_other => 'waited',
working_on_exiting => 'wexit',
process_called_exec => 'exec',
kernel_session_flag => 'kiflag',
=item system_process, system
Flag indicating whether the process is a system process. B<F5+>
=item single_exit_not_wait, single_exit
Flag indicating that threads that are suspended should exit, not
wait. B<F5+>
=item traced_by_debugger, traced
BSD-Resource
view release on metacpan or search on metacpan
Resource.xs view on Meta::CPAN
#define HAS_SETPRIORITY
#endif
#endif
#ifndef HAS_GETPRIORITY
#define _getpriority(a,b) not_here("getpriority")
#endif
#ifndef HAS_GETRLIMIT
#define _getrlimit(a) not_here("getrlimit")
#endif
#ifndef HAS_GETRUSAGE
#define _getrusage(a) not_here("getrusage")
#endif
#ifndef HAS_SETPRIORITY
#define _setpriority(a,b,c) not_here("setpriority")
#endif
#ifndef HAS_SETRLIMIT
#define _setrlimit(a,b,c) not_here("setrlimit")
#endif
static int
not_here(s)
char *s;
{
croak("BSD::Resource::%s not implemented on this architecture", s);
return -1;
}
Resource.xs view on Meta::CPAN
case 'E':
if (strEQ(name, "EINVAL"))
#ifdef EINVAL
return EINVAL;
#else
goto not_there;
#endif
if (strEQ(name, "ENOENT"))
#ifdef ENOENT
return ENOENT;
#else
goto not_there;
#endif
break;
case 'P':
if (strnEQ(name, "PRIO_", 5)) {
if (strEQ(name, "PRIO_CONTRACT"))
#if defined(PRIO_CONTRACT) || defined(HAS_PRIO_CONTRACT)
return PRIO_CONTRACT;
#else
goto not_there;
#endif
if (strEQ(name, "PRIO_LWP"))
#if defined(PRIO_LWP) || defined(HAS_PRIO_LWP)
return PRIO_LWP;
#else
goto not_there;
#endif
if (strEQ(name, "PRIO_MIN"))
#if defined(PRIO_MIN) || defined(HAS_PRIO_MIN)
return PRIO_MIN;
#else
goto not_there;
#endif
if (strEQ(name, "PRIO_MAX"))
#if defined(PRIO_MAX) || defined(HAS_PRIO_MAX)
return PRIO_MAX;
#else
goto not_there;
#endif
if (strEQ(name, "PRIO_PGRP"))
#if defined(PRIO_PGRP) || defined(HAS_PRIO_PGRP)
return PRIO_PGRP;
#else
goto not_there;
#endif
if (strEQ(name, "PRIO_PROCESS"))
#if defined(PRIO_PROCESS) || defined(HAS_PRIO_PROCESS)
return PRIO_PROCESS;
#else
goto not_there;
#endif
if (strEQ(name, "PRIO_PROJECT"))
#if defined(PRIO_PROJECT) || defined(HAS_PRIO_PROJECT)
return PRIO_PROJECT;
#else
goto not_there;
#endif
if (strEQ(name, "PRIO_SESSION"))
#if defined(PRIO_SESSION) || defined(HAS_PRIO_SESSION)
return PRIO_SESSION;
#else
goto not_there;
#endif
if (strEQ(name, "PRIO_USER"))
#if defined(PRIO_USER) || defined(HAS_PRIO_USER)
return PRIO_USER;
#else
goto not_there;
#endif
if (strEQ(name, "PRIO_USER"))
#if defined(PRIO_USER) || defined(HAS_PRIO_USER)
return PRIO_USER;
#else
goto not_there;
#endif
if (strEQ(name, "PRIO_ZONE"))
#if defined(PRIO_ZONE) || defined(HAS_PRIO_ZONE)
return PRIO_ZONE;
#else
goto not_there;
#endif
}
goto not_there;
case 'R':
if (strnEQ(name, "RLIM", 4)) {
if (strEQ(name, "RLIMIT_AIO_MEM"))
#if defined(RLIMIT_AIO_MEM) || defined(HAS_RLIMIT_AIO_MEM)
return RLIMIT_AIO_MEM;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_AIO_OPS"))
#if defined(RLIMIT_AIO_OPS) || defined(HAS_RLIMIT_AIO_OPS)
return RLIMIT_AIO_OPS;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_AS"))
#if defined(RLIMIT_AS) || defined(HAS_RLIMIT_AS)
return RLIMIT_AS;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_CORE"))
#if defined(RLIMIT_CORE) || defined(HAS_RLIMIT_CORE)
return RLIMIT_CORE;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_CPU"))
#if defined(RLIMIT_CPU) || defined(HAS_RLIMIT_CPU)
return RLIMIT_CPU;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_DATA"))
#if defined(RLIMIT_DATA) || defined(HAS_RLIMIT_DATA)
return RLIMIT_DATA;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_FREEMEM"))
#if defined(RLIMIT_FREEMEM) || defined(HAS_RLIMIT_FREEMEM)
return RLIMIT_FREEMEM;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_FSIZE"))
#if defined(RLIMIT_FSIZE) || defined(HAS_RLIMIT_FSIZE)
return RLIMIT_FSIZE;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_LOCKS"))
#if defined(RLIMIT_LOCKS) || defined(HAS_RLIMIT_LOCKS)
return RLIMIT_LOCKS;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_MEMLOCK"))
#if defined(RLIMIT_MEMLOCK) || defined(HAS_RLIMIT_MEMLOCK)
return RLIMIT_MEMLOCK;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_MSGQUEUE"))
#if defined(RLIMIT_MSGQUEUE) || defined(HAS_RLIMIT_MSGQUEUE)
return RLIMIT_MSGQUEUE;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_NICE"))
#if defined(RLIMIT_NICE) || defined(HAS_RLIMIT_NICE)
return RLIMIT_NICE;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_NOFILE"))
#if defined(RLIMIT_NOFILE) || defined(HAS_RLIMIT_NOFILE)
return RLIMIT_NOFILE;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_NPROC"))
#if defined(RLIMIT_NPROC) || defined(HAS_RLIMIT_NPROC)
return RLIMIT_NPROC;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_NPTS"))
#if defined(RLIMIT_NPTS) || defined(HAS_RLIMIT_NPTS)
return RLIMIT_NPTS;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_OFILE"))
#if defined(RLIMIT_OFILE) || defined(HAS_RLIMIT_OFILE)
return RLIMIT_OFILE;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_OPEN_MAX"))
#if defined(RLIMIT_OPEN_MAX) || defined(HAS_RLIMIT_OPEN_MAX)
return RLIMIT_OPEN_MAX;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_POSIXLOCKS"))
#if defined(RLIMIT_POSIXLOCKS) || defined(HAS_RLIMIT_POSIXLOCKS)
return RLIMIT_POSIXLOCKS;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_PTHREAD"))
#if defined(RLIMIT_PTHREAD) || defined(HAS_RLIMIT_PTHREAD)
return RLIMIT_PTHREAD;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_RSESTACK"))
#if defined(RLIMIT_RSESTACK) || defined(HAS_RLIMIT_RSESTACK)
return RLIMIT_RSESTACK;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_RSS"))
#if defined(RLIMIT_RSS) || defined(HAS_RLIMIT_RSS)
return RLIMIT_RSS;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_RTPRIO"))
#if defined(RLIMIT_RTPRIO) || defined(HAS_RLIMIT_RTPRIO)
return RLIMIT_RTPRIO;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_RTTIME"))
#if defined(RLIMIT_RTTIME) || defined(HAS_RLIMIT_RTTIME)
return RLIMIT_RTTIME;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_SBSIZE"))
#if defined(RLIMIT_SBSIZE) || defined(HAS_RLIMIT_SBSIZE)
return RLIMIT_SBSIZE;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_SIGPENDING"))
#if defined(RLIMIT_SIGPENDING) || defined(HAS_RLIMIT_SIGPENDING)
return RLIMIT_SIGPENDING;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_STACK"))
#if defined(RLIMIT_STACK) || defined(HAS_RLIMIT_STACK)
return RLIMIT_STACK;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_SWAP"))
#if defined(RLIMIT_SWAP) || defined(HAS_RLIMIT_SWAP)
return RLIMIT_SWAP;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_TCACHE"))
#if defined(RLIMIT_TCACHE) || defined(HAS_RLIMIT_TCACHE)
return RLIMIT_TCACHE;
#else
goto not_there;
#endif
if (strEQ(name, "RLIMIT_VMEM"))
#if defined(RLIMIT_VMEM) || defined(HAS_RLIMIT_VMEM)
return RLIMIT_VMEM;
#else
goto not_there;
#endif
if (strEQ(name, "RLIM_INFINITY"))
#if defined(RLIM_INFINITY) || defined(HAS_RLIM_INFINITY)
return -1.0; /* trust me */
#else
goto not_there;
#endif
if (strEQ(name, "RLIM_NLIMITS"))
#if defined(RLIM_NLIMITS) || defined(HAS_RLIM_NLIMITS)
return RLIM_NLIMITS;
#else
goto not_there;
#endif
if (strEQ(name, "RLIM_SAVED_CUR"))
#if defined(RLIM_SAVED_CUR) || defined(HAS_RLIM_SAVED_CUR)
return RLIM_SAVED_CUR;
#else
goto not_there;
#endif
if (strEQ(name, "RLIM_SAVED_MAX"))
#if defined(RLIM_SAVED_MAX) || defined(HAS_RLIM_SAVED_MAX)
return RLIM_SAVED_MAX;
#else
goto not_there;
#endif
break;
}
if (strnEQ(name, "RUSAGE_", 7)) {
if (strEQ(name, "RUSAGE_BOTH"))
#if defined(RUSAGE_BOTH) || defined(HAS_RUSAGE_BOTH)
return RUSAGE_BOTH;
#else
goto not_there;
#endif
if (strEQ(name, "RUSAGE_CHILDREN"))
#if defined(RUSAGE_CHILDREN) || defined(HAS_RUSAGE_CHILDREN)
return RUSAGE_CHILDREN;
#else
goto not_there;
#endif
if (strEQ(name, "RUSAGE_SELF"))
#if defined(RUSAGE_SELF) || defined(HAS_RUSAGE_SELF)
return RUSAGE_SELF;
#else
goto not_there;
#endif
if (strEQ(name, "RUSAGE_THREAD"))
#if defined(RUSAGE_THREAD) || defined(HAS_RUSAGE_THREAD)
return RUSAGE_THREAD;
#else
goto not_there;
#endif
break;
}
}
errno = EINVAL;
return 0;
not_there:
errno = ENOENT;
return 0;
}
#define HV_STORE_RES(h, l) (void)hv_store(h, #l, sizeof(#l)-1, newSViv(l), 0)
BSD-Socket-Splice
view release on metacpan or search on metacpan
nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
BSD-devstat
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
( run in 2.130 seconds using v1.01-cache-2.11-cpan-9581c071862 )