[mod.computers.vax] LIB$FIND_FILE In VAX Pascal

TBLAKE@BINGVAXA.BITNET (Thomas_R._Blake) (12/31/86)

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.