Dictionary Ada 95：修改字典程序的输出
我在网上找到了威廉·惠特克的作品，我很喜欢。但是输出不适合我。 问题（对我的挑战）： 给定“audiam”等输入形式，程序返回以下输出（纯文本）： 但我只想接收以下文本输出（相同的输入：audiam）： 即:Dictionary Ada 95：修改字典程序的输出,dictionary,ada,Dictionary,Ada,我在网上找到了威廉·惠特克的作品，我很喜欢。但是输出不适合我。 问题（对我的挑战）： 给定“audiam”等输入形式，程序返回以下输出（纯文本）： 但我只想接收以下文本输出（相同的输入：audiam）： 即: InputWord=Dictionary_Forms 所以有些信息对我来说是不必要的 如何通过修改Ada代码来更改此程序的输出？ 我没有任何Ada知识，但我知道Delphi/Pascal，所以代码很容易理解，不是吗？所以导致文本输出的部分似乎是text\u IO.PUT（…）语句，对吗？
InputWord=Dictionary_Forms
text\u IO.PUT（…）甚至还创建了一个.exe文件。其大小为1.6MB（1682616字节）。但当我打开它时，它马上就关上了。出了什么问题？关于编译：您可以使用GNAT。它支持Ada83、Ada95和Ada05。要告诉它使用Ada95，请使用-gnat95开关
你可以在上获得我喜欢的Ada，并鼓励你学习以你想要的方式破解它所需的最低数量 实际上，您需要的是一个简单的数据过滤器，通过管道将输出传输到该过滤器将非常容易实现。如果您运行的是任何风格的Linux，那么您已经有了awk（并且确实应该学会使用它）。如果你使用的是Windows，你可以从中获得awk和其他各种有用的东西，这也是你需要去的地方之一，以获得Ada编译器 如果您确实想要一个WindowsAda编译器，我建议从那里获得GNAT/GCC。其他两种口味，GNAT/GPL和GNAT/PRO可从（维护人员）处获得。但是，必须购买GNAT/PRO，并且GNAT/GPL呈现使用它GPL编译的任何程序的发行版。我想，您可能不介意将GPL应用到您的程序中，但我猜这还不足以满足商业支持的需求 如果您在Linux上，GNAT Ada编译器应该作为选项与GCC一起提供（如果默认情况下未安装）。当然，如果您愿意，AdaCore的另外两个选项也同样适用
嗯，你问过我。事实上，如果您熟悉其他编译过程语言（例如：C/C++、Java、Pascal、Modula-2等），那么学习它应该不会有太多困难。就我自己而言，我通常只是用作参考。与大多数语言不同，Ada有一本国际标准化的语言参考手册，可在线免费获取。它也是相当可读的，就像这样。是一个方便的工具。您可能会找到一个已经为您的平台构建的。我没有更改代码，但您可以使用各种方法更改某些内容。它甚至是托管的。如果你有一个Ada编译器，我已经包括了我使用的最后一个
MakefileTARG = 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)
Makefile附录：一旦你运行了它，修改它的问题仍然存在。
Put\u行的grep
\（行内容中列表*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)