Visit Our UNIX and Linux User Community

Full Discussion: Hi...Need Help
Top Forums Programming Hi...Need Help Post 17972 by rwb1959 on Thursday 21st of March 2002 03:09:35 PM
Old 03-21-2002
I believe that when you are "setting" a semaphore,
the argument (4th parameter in semctl() ) needs to be
a union...

union semun {
int val;
struct semid_ds *buf;
unsigned short *array;
} arg;

...check out sem.h for complete union def. for your system.
In which case you do...

#include <stdio.h>
#include <sys/types.h>
#include <sys/ipc.h>
#include <sys/sem.h>
#include <errno.h>

main()
{
int semid,retval;
union semun args;
semid=semget(0x20,1,IPC_CREAT|0666);
retval= semctl(semid,0,GETVAL,0);
printf("The value returned by the Getval is %d\n",retval);
args.val = 1;
semctl(semid,0,SETVAL,args);
printf("HI2\n");
retval= semctl(semid,0,GETVAL,0);
printf("The value returned by the Getval is %d\n",retval);
}
 
Net::DBus::Service(3pm) 				User Contributed Perl Documentation				   Net::DBus::Service(3pm)

NAME
Net::DBus::Service - Provide a service to the bus for clients to use SYNOPSIS
package main; use Net::DBus; # Attach to the bus my $bus = Net::DBus->find; # Acquire a service 'org.demo.Hello' my $service = $bus->export_service("org.demo.Hello"); # Export our object within the service my $object = Demo::HelloWorld->new($service); ....rest of program... DESCRIPTION
This module represents a service which is exported to the message bus. Once a service has been exported, it is possible to create and export objects to the bus. METHODS
my $service = Net::DBus::Service->new($bus, $name); Create a new service, attaching to the bus provided in the $bus parameter, which should be an instance of the Net::DBus object. The $name parameter is the qualified service name. It is not usually neccessary to use this constructor, since services can be created via the "export_service" method on the Net::DBus object. my $bus = $service->get_bus; Retrieves the Net::DBus object to which this service is attached. my $name = $service->get_service_name Retrieves the qualified name by which this service is known on the bus. AUTHOR
Daniel P. Berrange COPYRIGHT
Copyright (C) 2005-2011 Daniel P. Berrange SEE ALSO
Net::DBus, Net::DBus::Object, Net::DBus::RemoteService perl v5.14.2 2011-06-30 Net::DBus::Service(3pm)

Featured Tech Videos

All times are GMT -4. The time now is 01:22 PM.
Unix & Linux Forums Content Copyright 1993-2021. All Rights Reserved.
Privacy Policy