Pascal 单位可以编译为可执行文件吗？

Question

我喜欢我的库兼作可执行文件。所需的行为是：

$ ./scriptedmain
Main: The meaning of life is: 42
$ ./test
Test: The meaning of life is: 42

我怎样才能：

• 将 scriptedmain.p 编译成 scriptedmain 二进制文件？
• 阻止 test.p 运行 scriptedmain.p 的 begin/end 部分中的代码？

scriptedmain.p：

unit ScriptedMain;
    interface

    function MeaningOfLife () : integer;

    implementation

    function MeaningOfLife () : integer;
    begin
        MeaningOfLife := 42
    end;
begin
    write('Main: The meaning of life is: ');
    writeln(MeaningOfLife())
end.

当我使用 fpc scriptedmain.p 编译 scriptedmain.p 时，没有创建可执行文件，因为 Pascal 检测到它是一个单元。但我希望它除了库之外还可以是可执行文件。

$ ./scriptedmain
-bash: ./scriptedmain: No such file or directory

test.p：

program Test;
uses
    ScriptedMain;
begin
    write('Test: The meaning of life is: ');
    writeln(MeaningOfLife())
end.

当我使用 fpc test.p 编译 test.p 时，生成的可执行文件结合了两个 begin/end 声明（而不是期望的行为）。

$ ./test 
Main: The meaning of life is: 42
Test: The meaning of life is: 42

Answer 1

我不知道您使用的 Pascal 是什么风格，但某些变体支持使用 {$IFC condition} ... {$ENDC} 进行条件编译。您也许可以将其与编译时定义结合使用，以包含/排除给定版本中需要或不需要的代码。

Answer 2

感谢 Free Pascal 邮件列表中的 Ager 和 Zirov，我能够用最少的技巧构建一个工作脚本化的主要示例。还发布在 RosettaCode 上。

Makefile:

all: scriptedmain

scriptedmain: scriptedmain.pas
    fpc -dscriptedmain scriptedmain.pas

test: test.pas scriptedmain
    fpc test.pas

clean:
    -rm test
    -rm scriptedmain
    -rm *.o
    -rm *.ppu

scriptedmain.pas:

{$IFDEF scriptedmain}
program ScriptedMain;
{$ELSE}
unit ScriptedMain;
interface
function MeaningOfLife () : integer;
implementation
{$ENDIF}
    function MeaningOfLife () : integer;
    begin
        MeaningOfLife := 42
    end;
{$IFDEF scriptedmain}
begin
    write('Main: The meaning of life is: ');
    writeln(MeaningOfLife())
{$ENDIF}
end.

test.pas:

program Test;
uses
    ScriptedMain;
begin
    write('Test: The meaning of life is: ');
    writeln(MeaningOfLife())
end.

示例：

$ make
$ ./scriptedmain 
Main: The meaning of life is: 42
$ make test
$ ./test 
Test: The meaning of life is: 42