#!../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.

   Sun Jun 27 11:22:59 PDT 2010
   Do not include files in this list that are loaded at start up 
   and are therefore behind the fence, causing messages like the
   following because dog.v is now sourced at start up:

       Sourcing 1: dog.v    
       book: a name conflicts with protected word in catalog
        conflict with msgClean at catalog offset 3017
       book: to view the entire catalog, run: catitems eview
       inline msgClean not completed due to error
       ...
}

{"
   batch.v boot.v cal.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

