[opensuse-programming] Problem on SLES and openSUSE 11.4 and 12.1 short msgget examples that fail to work, but on all UNIX's I have tried.

19 Nov 2011

      Here is the some code our examples of 2 c routines for 2 queues and a 
fortran main line program that calls them.  I suspect the problem is an 
inconsistencey in definitions between the languages.  We have over 100,000 
lines of code for the programs.  I have cut them down to these examples 
that demostrate the problem.  Also below is the results on UNIX and Linux. 
The negative number is almost always different. Any ideas on how to 
resolve this would be greatly appreciated.

----------------------------------------------------------------
...
...
...
...
...
...
>>>>>>>>>>> SOURCES>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
2 subroutines in c and a main line in fortran

------------------------------srvq1.c---------------------------
/* create the server input queue (1) */
#include  
#include  
#include  

srvq1_(short *theid)
{
     key_t key;
     int msgid1, msgflg;

     key=1;
     msgflg=IPC_CREAT | 0666;

     msgid1 = msgget (key, msgflg);

     if (msgid1 < 0) perror("SRVQ1 - server input queue not created");

     *theid=msgid1;
}
----------------------------------------------------------------

------------------------------srvq2.c---------------------------
/* create the server output queue (2) */
#include  
#include  
#include  

srvq2_(short *theid)
{
     key_t key;
     int msgid2, msgflg;

     key=2;
     msgflg=IPC_CREAT | 0666;

     msgid2 = msgget (key, msgflg);

     if (msgid2 < 0) perror("SRVQ2 - server output queue not created");

     *theid=msgid2;

}
----------------------------------------------------------------

----------------------------------TSERVER.f----------------------------
C TSERVER - TEST SERVER SUBS
           IMPLICIT INTEGER*4(A-H),INTEGER*4(O-Z)
           IMPLICIT INTEGER*2(I-N)
           COMMON /FFT/ XAREA(512)
           DIMENSION ICON(1024)

C          CALL GTPID(DPID)
C          WRITE(*,12)DPID
C12        FORMAT(1X,'MY PROCESS ID IS ',I8)

           CALL SRVQ1(IQ1)
           WRITE(*,13)IQ1
13        FORMAT(1X,'SERVER INPUT QUEUE ID IS ',I8)
           IF (IQ1.LT.0) GOTO 9999

           CALL SRVQ2(IQ2)
           WRITE(*,14)IQ2
14        FORMAT(1X,'SERVER OUTPUT QUEUE ID IS ',I8)
           IF (IQ2.LT.0) GOTO 9999

100       WRITE(*,20)
20        FORMAT(1X,'AWAITING MESSAGES')

9999      END
----------------------------------------------------------------
...
...
...
...
...
...
>>>> RESULTS OF THIS CODE IN SCO 5.07>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
>>>> RESULTS OF THIS CODE IN SUN UNIX>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
$ TSERVST
  SERVER INPUT QUEUE ID IS        0
  SERVER OUTPUT QUEUE ID IS        1
  AWAITING MESSAGES
...
...
...
...
...
...
>>>> RESULTS OF THIS CODE IN OPEN SUSE 64 AND SUSE 32>>>>>>>>>>>>>
...
./TSERVST
  SERVER INPUT QUEUE ID IS        0
  SERVER OUTPUT QUEUE ID IS   -32767
----------------------------------------------------------------

Any ideas on how to get this to work?  It works with one queue but fails with 2 
queues.

-- 
Boyd Gerber  801 849-0213
ZENEZ   1042 East Fort Union #135, Midvale Utah  84047

-- 
To unsubscribe, e-mail: opensuse-programming+unsubscribe@opensuse.org
To contact the owner, e-mail: opensuse-programming+owner@opensuse.org

Boyd Lynn Gerber

Anders Johansson

tags

participants (2)