Subj : SWAG code file: bpxref.pas problem
To   : All
From : Donald Tidmore
Date : Mon Apr 28 2003 05:45 pm

Was wondering if any of you have a working copy of a pascal program from SWAG 
site that actually works.  I've been trying to get bpxref.pas, called "Borland 
Pascal Cross Reference Lister", to compile, but it won't accept an Fsplit 
statement in the ScanUnits procedure.  The code looks like this, which won't 
compile, and I'm hoping one of you guys has a working copy of BPXREF, that you 
can send me at ktidmore@bellsouth.net.

The FSplit/Fexpand stuff at times never makes much sense, so it would be nice 
if someone could tell me why the program code won't work.  I'm posting the 
content of the ScanUnits procedure, and the rest of bpxref.pas is as I found it 
on one of the SWAG sites online.  Thanks for any help you can provide.  Donald.
------------------------------

PROCEDURE ScanUnits(const SelPath: String); VAR Subdir: DirStr;    {04/28: 
changed Dir to Subdir.}
    name: NameStr;
    Path: Pathstr;  {04/28/03}
    ext: ExtStr;
    mdirx : word;
    dummy: LONGINT;
BEGIN
  fsplit (Fexpand(SelPath),subdir,name,ext);  {Doesn't want to compile.}
        {I added (Fexpand() around the Selpath - didn't help.  The }
        { compiler just keeps saying Type mismatch error on the comma }
        { between the name and ext vars in the statement.  }
  EnterDir(subdir);
  FindDir(Name,mdirx,dummy,dummy);
  if mdirx<>0 then
    GetStructure(Name,root,0)
  else
    WriteLn(stdout,'File not found');
  WriteLn(stdout,SourceCount,' PAS-File(s)');
  WriteLn(stdout,'Size: ',SourceSize DIV 1024,' KByte');
END; { ScanUnits }

--- BBBS/LiI v4.01 Flag-4
 * Origin: Prism bbs (1:261/38)

.