#!/usr/local/bin/tops32/tops -i -s /usr/local/tops32/tops/sys -u /usr/local/tops32/tops/usr

/* File LINK64  
   May 2006

Source files for 64-bit machines match the files for 32-bit machines.

Compiler options in Makefile64, and of course the operating system, 
make the difference when creating a 64-bit program.

To avoid duplicate source files on a system with 32- and 64-bit ma-
chines, this file creates links in the 64-bit source directory to 
the ones in the 32-bit directory.

Run this file in directory src/ to be used for 64-bit compiling, (the
one Makefile64 will use) with this command at the system prompt:

   % LINK64

*/

LINKFROM = "/usr/local/tops32/tops/src/"
if(pwd == LINKFROM) HALT(dot(" Cannot link to the same directory"));

FILES = (dirnames(LINKFROM),
   replace$(".." , " "), // no ..
   replace$(". " , " "), // no .
   qreplace(".o" , " "), // no .o files
   qreplace("CVS", " "), // no CVS
   qreplace("tops"," "), // no tops executable
   qreplace("core"," "), // no core files
   qreplace(".swp"," "), // no swap files
   qreplace(".sav"," "), // no save files
   qreplace("LINK64"," "), // not this file
   noblanklines()
);

LINK = "ln -s " + LINKFROM;

T = tail(nose(FILES, LINK)," .");

nl(dot(T));

shell(T);



