Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!lll-lcc!mordor!styx!ames!ucbcad!ucbvax!BINGVAXA.BITNET!TBLAKE
From: TBLAKE@BINGVAXA.BITNET (Thomas_R._Blake)
Newsgroups: mod.computers.vax
Subject: LIB$FIND_FILE In VAX Pascal
Message-ID: <8612310018.AA00969@ucbvax.Berkeley.EDU>
Date: Tue, 30-Dec-86 20:58:39 EST
Article-I.D.: ucbvax.8612310018.AA00969
Posted: Tue Dec 30 20:58:39 1986
Date-Received: Wed, 31-Dec-86 00:39:30 EST
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 34
Approved: info-vax@sri-kl.arpa

Well,

        This little program uses LIB$FIND_FILE to find LOGIN.COM.

        The code of course wants a lot of prettying up.


                                                        Thomas R. Blake

PROGRAM Find_File (Output);
VAR
  File_To_Find : PACKED ARRAY [1..80] OF Char;
  Found_File   : PACKED ARRAY [1..80] OF Char;
  Context      : Unsigned;                      {Must supply in call}
  Stv_Addr     : Unsigned;                      {Really wants to be a pointer}

[EXTERNAL, ASYNCHRONOUS] FUNCTION LIB$FIND_FILE
  (%STDESCR file_spec    : PACKED ARRAY [l1$ .. u1$ : INTEGER] OF Char;
   VAR      result_spec  : PACKED ARRAY [l2$ .. u2$ : INTEGER] OF Char;
   VAR      context      : Unsigned := %IMMED 0;
   %STDESCR default_spec : PACKED ARRAY [l3$ .. u3$ : INTEGER] OF Char
                                                                    := %IMMED 0;
   %STDESCR related_spec : PACKED ARRAY [l4$ .. u4$ : INTEGER] OF Char
                                                                    := %IMMED 0;
   VAR      stv_addr     : Unsigned := %IMMED 0;        {Should be a pointer}
   %REF     user_flags   : Unsigned := %IMMED 0
  ) : Unsigned;
  EXTERNAL;

BEGIN
  File_To_Find := 'LOGIN.COM';
  LIB$FIND_FILE (File_To_Find, Found_File, Context,,, Stv_Addr,);
  Writeln (Found_File)
END.