Click above to get retro games delivered to your door ever month!

 eof()               Determine if end of file is encountered
------------------------------------------------------------------------------
 Declaration
   database.hdr

 Syntax
   func logical eof extern

 Arguments
   None.

 Return
   A logical indicating if the record pointer is at end of file.

 Description
   The eof() function returns .t. if the record pointer has been positioned
   past the last logical record in the current alias.

 Example
   #define EXAMPLE_DATABASE
   #include example.hdr

   proc Test_eof
   vardef
      _SLIST pList
   enddef
   open sTest
   pList := pickinit()
   // Insert records into a pick list.
   // Pick lists can contain as many records as memory allows.
   do while .not. eof()
       pickadd( pList, sTest->lastname )
       skip
   enddo
   ? "First record", pickstr( pList, 1 )
   ? "Last  record", pickstr( pList, pickcount( pList ) )
   endproc

   proc main
   Test_eof()
   endproc