HP3000-L Archives

May 1999, Week 2

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:
Stan Sieler <[log in to unmask]>
Reply To:
Stan Sieler <[log in to unmask]>
Date:
Wed, 12 May 1999 11:00:53 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (50 lines)
Re:

> Troy Dodsworth wrote:
> >
> > I am looking for a header file for the functions mpe_dce_catopen,
> > mpe_dce_catclose, mpe_dce_catgets they are defined in libdce.a, can someone
> > help me?

Vinayak Kagalkar wrote:
> These functions  are written only for internal use of DCE3000.
> So the header file defining these function's prototype is not available.
> But you can use PASCAL calls CATOPEN,CATCLOSE,CATREAD instead of
> mpe_dce_catopen, mpe_dce_catclose, mpe_dce_catgets respectivly


I also second Vinayak's recommendation: use the intrinsics!

:cseq -c CATOPEN

CSEQ [2.4] - LPS Toolbox [A.04b]            (c) 1995 Lund Performance Solutions

For Help at the CSEQ prompt enter   ?
extern int32    CATOPEN (
   void     *formaldesignator,            /* R26 */
   void     *error);                      /* R25 */
                  /* returns catindex in R28 */
   /*  errors:                                                             */
   /*     0 = ok                                                           */
   /*     1 = open failed                                                  */
   /*     2 = could not access file                                        */
   /*     3 = file not a GENCAT file                                       */
   /*    100 = internal error                                              */



However, simple examination of mpe_dce_catopen (in dcexl.hpdce.sys)
shows that the calling sequence is apparently:

   int32 mpe_dce_catopen (void *formaldesignator);
          /* returns -1 in case of error, and (apparently) sets errno */

NOTE: the code looks incorrect, because it doesn't seem to properly return
0 if there was no error!

I.e.: I certainly wouldn't use it instead of the intrinsic!

--
Stan Sieler                                          [log in to unmask]
                                     http://www.allegro.com/sieler.html

ATOM RSS1 RSS2