free pascal：字符串模糊匹配库 FuzzyWuzzy 的编译过程

访问：pypi.org  搜索 fuzzywuzzy

访问：fuzzywuzzy · PyPI

用鼠标滚动网页到底部，可见：Free Pascal: FuzzyWuzzy.pas (Free Pascal port)

下载 FuzzyWuzzy.pas-master.zip  后解压到当前目录。

cd D:\lazarus\projects\FuzzyWuzzy.pas-master

编写  winbuild.bat  如下

@echo off

echo Set up FPC executable path.
set fpcexe=D:\lazarus\fpc\3.2.2\bin\x86_64-win64\fpc.exe
if not exist "%fpcexe%" (
	echo ERROR: Edit this batch file to set up location of fpc.exe
	exit /b 1
)
echo "%fpcexe%"

echo Building...
"%fpcexe%" -Fu. -Fl.  MyUtils.pas
"%fpcexe%" -Fu. -Fl.  Levenshtein.pas
"%fpcexe%" -Fu. -Fl.  FuzzyWuzzy.pas
"%fpcexe%" -Fu. -Fl.  DemoUsage.pas

编译运行 winbuild.bat

dir

运行 DemoUsage.exe

DemoUsage.pas  如下

Program DemoUsage;
{$APPTYPE CONSOLE}

Uses FuzzyWuzzy;

Begin
  writeln(PartialRatio('this is a test','this is a test!'));
  writeln('--');
  writeln(Ratio('NEW YORK METS','NEW YORK MEATS'));
  writeln(PartialRatio('YANKEES','NEW YORK YANKEES'));
  writeln('--');
  writeln(PartialRatio('NEW YORK YANKEES', 'YANKEES'));
  writeln(PartialRatio('NEW YORK METS','NEW YORK YANKEES'));
  writeln('--');
  writeln(Ratio('New York Mets vs Atlanta Braves', 'Atlanta Braves vs New York Mets'));
  writeln(TokenSortRatio('New York Mets vs Atlanta Braves', 'Atlanta Braves vs New York Mets'));
  writeln('--');
  writeln(TokenSetRatio('mariners vs angels', 'los angeles angels of anaheim at seattle mariners'));
  writeln('--');
  writeln(Ratio('fuzzy wuzzy was a bear','wuzzy fuzzy was a bear'));
  writeln(TokenSortRatio('fuzzy wuzzy was a bear','wuzzy fuzzy was a bear'));
  writeln('--');
  writeln(TokenSortRatio('fuzzy was a bear','fuzzy fuzzy was a bear'));
  writeln(TokenSetRatio('fuzzy  was a bear','fuzzy fuzzy was a bear'));
End.