10-19-2010
I wouldn't trust that code even if you get it to compile, it assumes MSG_R is some particular value! You should not be shifting around constants like that.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Guys,
I´m have this problem and I do not know what to do anymore:
cod=`sqlplus -s ${DATABASE} << EOF
set heading off feedback off verify off
select max(eventid) from events;
exit
EOF`
sed "s/CODEVENTID/${cod}/" c.ctl
Abova What I´ve done. The CODEEVENTID is already set into a... (1 Reply)
Discussion started by: Rafael.Buria
1 Replies
2. Solaris
Can some one please help to configure mails on Solaris.
mail -s or mailx function don't work on the system. Commands do nothing. (2 Replies)
Discussion started by: raman1605
2 Replies
3. AIX
Hi,
I want to install a ghostscript file in AIX 5.3.. i confgiured it then gave make command. it has thrown the following error.
-O2 -Wall -Wstrict-prototypes -Wmissing-declarations -Wmissing-prototypes -Wwrite-strings -Wno-strict-aliasing -fno-builtin -fno-common -DHAVE_STDINT_H... (0 Replies)
Discussion started by: meeraramanathan
0 Replies
4. Programming
I compile following statement
signal(SIGHUP,sig_hup);
kill(getpid(),SIGTSTP);
$gcc test.c
it raise following error:
error:'SIGHUP' undeclared (first use in this function)
error:'SIGTSTP' undeclared (first use in this function)
Why raise above error? which head file include... (1 Reply)
Discussion started by: konvalo
1 Replies
5. Shell Programming and Scripting
shell script in very simple,
#!/bin/sh
function msgs
{
echo 'this'
}
msgs
It works on linux, apple, but can not run on solaris. On solaris, when I enter "./t.sh", it gave me following error,
./t.sh: function: not found
this
./t.sh: msgs: not found
What's wrong with... (3 Replies)
Discussion started by: microstarwwx
3 Replies
6. UNIX for Dummies Questions & Answers
dear all
i need your advice in shell with solaris
i have testing script like this
#!/usr/bin/bash
function test(){
echo "testing only"
}
## execute function ##
test
but if i running always got error like this
test.sh: syntax error at line 1: `(' unexpected
who can i running this... (7 Replies)
Discussion started by: zvtral
7 Replies
7. UNIX for Dummies Questions & Answers
Hello, I am trying to install BBFTP software on my Mac (OS X), and am running into some compilation errors. Here is the code, the specific errors are listed after:
#include <dirent.h>
#include <errno.h>
#include <fnmatch.h>
#include <netinet/in.h>
#include <syslog.h>
#include <sys/stat.h>... (1 Reply)
Discussion started by: Tyler_92
1 Replies
8. UNIX for Dummies Questions & Answers
Hi Friends,
While calling a function in below scipt
func_serv_logs ()
{
find . -type f \( \( -name 'WLS*' -o -name 'access*' \) -a ! -name '*.gz' -a ! -newer ${REFERENCE} \) -print | while read FILENAME
do
echo "hi"
done
}
func_serv_logs
I am getting error... (4 Replies)
Discussion started by: Jcpratap
4 Replies
9. UNIX for Advanced & Expert Users
Hi,
We have installed linux6(RHEL) OS and installed datastage application on that.
First time installation worked fine and our all services related to datastage was up and running.
When we stopped the datastage and restarted its giving below error while restart:-
./uv -admin -start
... (0 Replies)
Discussion started by: prasson_ibm
0 Replies
10. Shell Programming and Scripting
Hi All
I have two shell scripts where the second is getting invoked from the first. E.g.
test1.sh and test2.sh Within test1, the code is something like this:
#!/bin/bash
. test2.sh
usage() {
echo "..."
echo "....."
}
SRC=$1
DEST=$2
case "$3" in
tran) doTran ;;
*)... (7 Replies)
Discussion started by: swasid
7 Replies
LEARN ABOUT OSX
modperl::code
ModPerl::Code(3) User Contributed Perl Documentation ModPerl::Code(3)
NAME
$class::Const - Perl Interface for $class Constants
SYNOPSIS
CONSTANTS
EOF
my $groups = $data{$class};
for my $group (sort keys %$groups) {
print $fh <<"EOF";
":$group"
use $class::Const -compile qw(:$group);
The ":$group" group is for XXX constants.
EOF
for my $const (sort @{ $groups->{$group} }) {
print $fh "=head3 C<$class::$const>
";
}
}
print $fh "=cut
";
}
}
sub generate_constants_lookup_doc {
my ($data) = @_;
while (my ($class, $groups) = each %$Apache2::ConstantsTable) {
my $constants = [map { @$_ } values %$groups];
constants_lookup_code_doc($constants, $class, $data);
}
}
sub generate_constants_group_lookup_doc {
my ($data) = @_;
while (my ($class, $groups) = each %$Apache2::ConstantsTable) {
constants_group_lookup_code_doc($class, $groups, $data);
}
}
sub constants_group_lookup_code_doc {
my ($class, $groups, $data) = @_;
my @tags;
my @code;
while (my ($group, $constants) = each %$groups) {
$data->{$class}{$group} = [
map {
my @ifdef = constants_ifdef($_);
s/^($constant_prefixes)_?//o;
$seen_const{$class}{$_}++;
$_;
} @$constants
];
}
}
sub constants_lookup_code_doc {
my ($constants, $class, $data) = @_;
my (%switch, %alias);
%alias = %shortcuts;
my $postfix = lc $class;
my $package = $class . '::';
my $package_len = length $package;
my $func = canon_func(qw(constants lookup), $postfix);
for (@$constants) {
if (s/^($constant_prefixes)(_)?//o) {
$alias{$_} = join $2 || "", $1, $_;
}
else {
$alias{$_} ||= $_;
}
next unless /^([A-Z])/;
push @{ $switch{$1} }, $_;
}
for my $key (sort keys %switch) {
my $names = $switch{$key};
for my $name (@$names) {
my @ifdef = constants_ifdef($alias{$name});
push @{ $data->{$class}{other} }, $name
unless $seen_const{$class}{$name}
}
}
}
sub generate_exports {
my ($self, $c_fh) = @_;
require ModPerl::WrapXS;
ModPerl::WrapXS->generate_exports($c_fh); }
# src/modules/perl/*.c files needed to build APR/APR::* outside # of mod_perl.so sub src_apr_ext {
return map { "modperl_$_" } (qw(error bucket),
map { "common_$_" } qw(util log)); }
1; __END__
NAME
ModPerl::Code - Generate mod_perl glue code
SYNOPSIS
use ModPerl::Code ();
my $code = ModPerl::Code->new;
$code->generate;
DESCRIPTION
This module provides functionality for generating mod_perl glue code. Reason this code is generated rather than written by hand include:
consistency
thin and clean glue code
enable/disable features (without #ifdefs)
adapt to changes in Apache
experiment with different approaches to gluing
AUTHOR
Doug MacEachern
perl v5.16.2 2011-02-07 ModPerl::Code(3)