##
BEGIN { $^I = ''; }
while (<>) {
s+${SOURCE}/${SAMS}/++g;
s+${SOURCE}/${SAMLIB}/++g;
s+${SOURCE}/${SMCLIB}/+${SOURCE}/${KENO}/+g;
if ( not m+^${SOURCE}/+ ) {
s+${SOURCE}/+\$$\{OBJECT\}/+g;
print
}
}
####
BEGIN { $^I = ''; }
while (<>) {
s+//++g;
s+//++g;
s+//+//+g;
if ( not m+^/+ ) {
s+/+\${OBJECT}/+g;
print
}
}