#!../src/tops  -s ../sys  -u ../usr
#!/usr/local/bin/tops

# File vfiletest

# Run this to make sure .v files still source ok.

   " .v file test" . nl

   no catmsg

   define: sourcing (qS --- )
      syspath that cat file? 

      IF \ force sourcing of the version at syspath:
         " Sourcing 1: " . dup . nl syspath swap cat source 

      ELSE dup filefound \ try other places using filefound
         IF lop
            " Sourcing 2: " . dup . nl syspath swap cat source 
         ELSE " Sourcing 3: file not found: " swap + . nl
         THEN 

      THEN
   end

\  Files to be tested:

{"
   batch.v boot.v cal.v dog.v dum.v easy_io.v clu.v konet.v lapack.v 
   mat.v math.v mmath.v matlab.v nas.v nasrun.v netbp.v perl.v plot.v 
   recurse.v signal.v snd.v sparse.v uboot.v ukey.v web.v xterm.v
"} (hT1)

\  Testing the files:
   (hT1) words (hT)
   (hT) these rows 1st DO this I quote set_stdout sourcing LOOP trash

\  Getting rid of files they might create:
      "my_batch.out" deleteif

.s nl

