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.