我找到了这本词典作者：William Whitaker 在互联网上，我喜欢它的解析能力。但输出不适合我。
问题（对我来说是挑战）：
给定输入形式（例如“audiam”），程序将返回以下输出（纯文本）：
audi.am V 4 1 PRES ACTIVE SUB 1 S
audi.am V 4 1 FUT ACTIVE IND 1 S
audio, audire, audivi, auditus V (4th) [XXXAO]
hear, listen, accept, agree with; obey; harken, pay attention; be able to hear;
但我只想收到以下文本输出（相同的输入：audiam）：
audiam=audio, audire, audivi, auditus
That is:
InputWord=Dictionary_Forms
所以有些信息对我来说是不必要的。
如何通过修改 Ada 代码来改变该程序的输出？
我没有任何 Ada 知识，但我了解 Delphi/Pascal，所以很容易理解代码，不是吗？所以导致文本输出的部分似乎是TEXT_IO.PUT(...)声明，对吧？他们都被叫进来了列表包.adb所以这可能是要查看的源文件。
特别需要改变什么？
该程序的完整 Ada 95 源代码已提供在本页.
我希望你们中的一些人能够理解 Ada 95 代码。预先非常感谢您！
我的编译问题：
为了在 Windows 机器上使用，我下载了MinGW并尝试使用“MinGW Shell”编译源文件。但这是我的输入和 shell 的响应：
使用最新的 Cygwin 版本编译：
当我使用最新版本的Cygwin编译程序时，没有错误消息：
甚至还会创建一个 .exe 文件。其大小为 1.6 MB（1,682,616 字节）。但当我打开它时，它立即关闭。出了什么问题？
威廉·惠特克的话是一个方便的工具。您也许可以找到一个version已经为您的平台构建。我没有更改代码，但您可以使用各种方式更改一些内容参数。甚至还举办过online。如果你有 Ada 编译器，我已经包含了最后一个Makefile我用了。它的抽象有点薄弱，但它包括编译程序和实用程序的基本步骤，以及构建字典的步骤。
TARG = words
ARGS = -O
$(TARG): *.ad[bs]
gnatmake $(TARG) $(ARGS)
all: $(TARG)
gnatmake makedict $(ARGS)
gnatmake makeinfl $(ARGS)
gnatmake makestem $(ARGS)
gnatmake makeefil $(ARGS)
@echo Please make the dicitionary
@echo ./makedict DICTLINE.GEN
@echo ./makestem STEMLIST.GEN
@echo ./makeefil EWDSLIST.GEN
@echo ./makeinfl INFLECTS.GEN
debug:
gnatmake -g $(TARG)
clean:
rm -f *.o *.ali b~* core
cleaner: clean
rm -f *.s makedict makeinfl makestem makeefil
cleanest: cleaner
rm -f $(TARG)
附录：一种方法是在 Ubuntu 10.04 上使用 gcc 4.4.3 并更新Makefile多于。为了方便起见，我使用了虚拟盒子托管 Linux 实例。
$ gcc --version
gcc (Ubuntu 4.4.3-4ubuntu5) 4.4.3
Copyright (C) 2009 Free Software Foundation, Inc.
This is free software; see the source for copying conditions. There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
这是使用我第二喜欢的段落标题进行的快速测试卡图利·卡米纳.
$ ./words odi et amo
odi V 6 1 PRES ACTIVE IMP 2 S
odeo, odire, odivi(ii), - V TRANS [EXXCW] Later
od.i V 4 1 PRES ACTIVE IMP 2 S
odio, odire, odivi, - V (4th) TRANS [FXXCF] Medieval
hate; dislike; be disinclined/reluctant/adverse to; (usu. PREFDEF);
odi N 2 4 GEN S N Early
odium, odi(i) N (2nd) N [XXXAO]
hate/hatred/dislike/antipathy; odium, unpopularity; boredom/impatience;
hatred (manifested by/towards group), hostility; object of hate/odium;
od.i V 3 1 PERF ACTIVE IND 1 S
odi, odisse, osus V (3rd) PERFDEF [XXXBX]
hate (PERF form, PRES force), dislike; be disinclined/reluctant/adverse to;
et CONJ
et CONJ [XXXAX]
and, and even; also, even; (et ... et = both ... and);
am.o V 1 1 PRES ACTIVE IND 1 S
amo, amare, amavi, amatus V (1st) [XXXAO]
love, like; fall in love with; be fond of; have a tendency to;
附录：一旦运行起来，修改它的问题仍然存在。 Agrep for Put_Line\(显示 629 次点击；大部分都在line_stuff and list*。这就是我要开始的地方。当您学习 Ada 时，有一些很好的教程here.