/trunk/Examples/modula3/class/swig.tmpl

 1
 2readonly proc cxx_source (X) is
 3  local cxxfile = X&".cxx"
 4  local objfile = X&".o"
 5  %exec("echo $PWD")
 6  if stale(objfile,cxxfile)
 7    exec("cd",path(),"; g++ -I.. -c -o",objfile,cxxfile)
 8  end
 9  import_obj(X)
10  %unlink_file(path()&SL&objfile)
11end