DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T r ┃

⟦835955943⟧ TextFile

    Length: 906 (0x38a)
    Types: TextFile
    Names: »rational«

Derivation

└─⟦6c4f54b10⟧ Bits:30000747 8mm tape, Rational 1000, ACCESS 0_8_0 INTERNAL RELEASE
    └─ ⟦5d1d5404f⟧ »DATA« 
        └─⟦17d28fd8c⟧ 
            └─⟦eb623852f⟧ 
                └─ ⟦this⟧ »bin/rational«

TextFile

#! /bin/csh -f


set argv0=$0
set rahome=$argv0:h
set raname=$argv0:t

if ($rahome == $raname) then
   set rahome = ''
endif

if ($rahome =~ */bin) then
   set rahome = $rahome:h
endif

set current_dir = $cwd
if ($current_dir =~ */bin) then
   set current_dir = $current_dir:h
endif

if ($rahome =~ /*) then
   setenv ACCESSHOME $rahome
else if ((-e ./bin/rational) || (-e ./rational)) then
   setenv ACCESSHOME $current_dir
else if ((-e $rahome/bin/rational) || (-e $rahome/rational)) then
   setenv ACCESSHOME $current_dir/$rahome
endif

setenv XAPPLRESDIR $ACCESSHOME/app-defaults

set platform = `uname -m`
set platform_os = `uname`

if ( $platform_os == "AIX" ) then
   set binary = $ACCESSHOME/bin/access_rs6k
else if ( $platform_os == "SunOS" ) then
   set binary = $ACCESSHOME/bin/access_sparc
else echo "Unpported platform $platform"
endif

if ($?binary && -x $binary) then
   $binary $* &
endif