HP3000-L Archives

April 2001, Week 4

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:
Mon, 23 Apr 2001 16:01:08 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (60 lines)
Re:

> Is here a quick way to calculate what my Foptions and Aoptions
> will be in my fopen ?

FILEOPEN, free from:
http://www.allegro.com/software/hp3000/allegro.html

With it, you can:

  - convert decimal/octal/hex foptions & aoptions to
    pseudo-English;

  - build foptions/aoptions (and the rest of an FOPEN call)
    from pseduo-English input.

For example, if you're looking at code with:

   fopen (filename, 3, %2720);

NOTE: any run of FILEOPEN.PUB.ALLEGRO will purge/create a file
called TEMP in your logon group.  Of course, if you had a file
with that name, you didn't want the data in it anyway, did you?! :)

Run FILEOPEN.PUB.ALLEGRO and enter:

   S    (for SPL ... not that it matters if you're just
         decomposing foptions/aoptions)

   fop 3 aop %2720

and FILEOPEN will report:

   foptions (%000003) = F, binary, old
   aoptions (%002720) = gmulti, nobuf, shr, mr, IN
   misc: recsize = 0, limit 0, blockfactor 0, #buffers 0
         (#words per file system buffer xds: 0)
         #extents: 0,0,  #userlabels 0
         fileCODE: 0

If you're writing a new FOPEN call, where you want to
open a new file with rec=128,1,f,binary; acc=out, try:

   :run fileopen.pub.allegro
   S  (or P or F or C)
   rec=128,1,f,binary  out
   //

and it will produce a file called TEMP with the SPL / FORTRAN /
Pascal / C code to call FOPEN.

Note: FILEOPEN comes both as a standalone program, and as
a procedure that can be called from QEDIT or EDITOR.

Stan Sieler                                           [log in to unmask]
www.allegro.com/sieler/wanted/index.html          www.allegro.com/sieler

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2