单文件混合语言编程

liangbch

今天阅读了GMP的代码，发现许多有趣的东西，看到了一种在一个文件中混合多种语言的技巧。这里的混合语言编程不是指C中嵌入汇编语言的那种，C中嵌入汇编语言还是符合某种C编译器语言语法的。这里的混合语言具有这样的特点，文件类型是A语言源代码，但在文件中A嵌入B语言源代码。比如
     
  1. 批处理中嵌入perl代码，下面的例子是我的一个老大(美国人)写的。这里的关键是"#!Perl/bin/perl -w" 和 "%perl% -x %0 %*" 这2句. 第2句使用参数 -x 调用自己，按照perl命令行参数的规则，则#!Perl前的代码将忽略。

-----------------------------------
@rem = '--*-Perl-*--
@echo off
rem is perl on path?
perl -v > nul 2>&1
if %errorlevel% equ 0 (
set perl=perl
) ELSE (
set perl=c:\svg_cygwin_db\bin\perl.exe
)
if "%OS%" == "Windows_NT" goto WinNT
echo PERL=%perl%
%perl% -x "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
%perl% -x %0 %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!Perl/bin/perl -w
#line 22

use FindBin qw(\$RealDir);
use lib "\$RealDir/lib";

use RTH;

RTH::run();

__END__
:endofperl
------------------------------------------------


2.shell脚本中嵌入c语言源代码。
   这是在GMP源码包中的config.guess中看到了。这个文件的类型是shell脚本，从第一句"#! /bin/sh" 可以看出。但在这个文件文件中混入许多c代码。例如："cat >\$dummy.c <<\EOF" 下面的行就是标准的c代码，直到EOF为止，在EOF下面的代码则是将这段c代码编译并运行编译好的程序。
---------------------------------------------------------------
dummy=my_test
cat >\$dummy.c <<\EOF
#include <stdio.h>
struct {
  int   n;  /* force 4-byte alignment */
  char  a[8];
} getpvr = {
  0,
  {
    0x7c, 0x7f, 0x42, 0xa6,  /* mfpvr r3 */
    0x4e, 0x80, 0x00, 0x20,  /* blr      */
  }
};
int
main ()
{
  unsigned  (*fun)();
  unsigned  pvr;

  /* a separate "fun" variable is necessary for gcc 2.95.2 on MacOS,
     it gets a compiler error on a combined cast and call */
  fun = (unsigned (*)()) getpvr.a;
  pvr = (*fun) ();

  switch (pvr >> 16) {
  case 0x0001: puts ("powerpc601");  break;
  case 0x0003: puts ("powerpc603");  break;
  case 0x0004: puts ("powerpc604");  break;
  case 0x0006: puts ("powerpc603e"); break;
  case 0x0007: puts ("powerpc603e"); break;  /* 603ev */
  case 0x0008: puts ("powerpc750");  break;
  case 0x0009: puts ("powerpc604e"); break;
  case 0x000a: puts ("powerpc604e"); break;  /* 604ev5 */
  case 0x000c: puts ("powerpc7400"); break;
  case 0x0041: puts ("powerpc630");  break;
  case 0x0050: puts ("powerpc860");  break;
  case 0x8000: puts ("powerpc7450"); break;
  case 0x8001: puts ("powerpc7455"); break;
  case 0x8002: puts ("powerpc7457"); break;
  case 0x8003: puts ("powerpc7447"); break; /* really 7447A */
  case 0x800c: puts ("powerpc7410"); break;
  }
  return 0;
}
EOF
if (\$CC_FOR_BUILD \$dummy.c -o \$dummy) >/dev/null 2>&1; then
    # This style construct is needed on AIX 4.3 to suppress the SIGILL error
    # from (*fun)().  Using \$SHELL -c ./\$dummy 2>/dev/null doesn't work.
    { x=`./\$dummy`; } 2>/dev/null
    if test -n "\$x"; then
      exact_cpu=\$x
    fi
fi
-----------------------------------------------------------------------------------------------------------------------------


注意：由于本论坛会对美元符号解释为公式，故文中所有的美元符号都写成斜杠加美元符号。