HP3000-L Archives

September 1999, Week 1

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Bas Veth <[log in to unmask]>
Reply To:
Date:
Fri, 3 Sep 1999 00:11:51 -0000
Content-Type:
text/plain
Parts/Attachments:
text/plain (53 lines)
I am having problems with compiling this C file to an object file.
Who can help?
It said that it has to be compiled with CCXL.


========================

#pragma intrinsic HPGETPROCPLABEL
#include <stdlib.h>
extern unsigned short int subDate();
unsigned short int CALENDAR(void)
{
struct ld {
short int info;
short int subsys;
};
static unsigned short (*pcalendar)() = 0; /* CALENDAR */
static short int short_zero = 0;
char procname [20];
struct ld pstatus;
char firstfile [40];
static long int procs_loaded=0L;
long int pcasesensitive;
if (procs_loaded == 0L)
{
strcpy ( procname, " CALENDAR \n");
strcpy ( firstfile, "-XL.PUB.SYS- \0 ");
pcasesensitive = -1L;
HPGETPROCPLABEL
(&procname,
(void (**)())&pcalendar ,
&pstatus, &firstfile, pcasesensitive);
procs_loaded = -1L;
if ( pstatus.info < 0 )
{
printf
("*E* HPGETPROCPLABEL failed while loading \n");
printf (" Status Codes : %d, \n ", pstatus.info );
procs_loaded = 0L;
};
};
if ( procs_loaded == -1L)
return (((*pcalendar)()) % 51200 ) ;
else return ( short_zero );
}

=====================================

Thanks,

Bas Veth
[log in to unmask]

ATOM RSS1 RSS2