home *** CD-ROM | disk | FTP | other *** search
/ Image Master / L80.iso / Net / websuite / websuite.exe / DRIVSUPP.FG_ / DRIVSUPP.FG
Encoding:
Text File  |  1997-12-08  |  1.8 KB  |  109 lines
  1. // drivsupp.fgl - Drive support library
  2. // Copyright (c) 1997 SmartDesk, Inc., All Rights Reserved
  3.  
  4. CLASS drive
  5.   PUBLIC:
  6.     local letter, type    
  7.   
  8.       METHOD new( letter )
  9.           ::letter = letter[1] + ":"
  10.         ::type = driveGetType( ::letter )
  11.         return( 1 )
  12.       END
  13.  
  14.     ACCESS isfloppy
  15.         if ( ::type & 1 )
  16.             return( 1 )
  17.         elseif ( ::type & 16 )
  18.             return( 1 )
  19.         end
  20.         return( 0 )
  21.     END
  22.     
  23.     ACCESS isremoveable
  24.         return( ::isfloppy )
  25.     END
  26.  
  27.     ACCESS cPctfree
  28.         if ( ::isfloppy )
  29.             return( "N/A" )
  30.         end
  31.         return( "" + ::pctfree  + "%" )
  32.     END
  33.  
  34.  
  35.     ACCESS pctfree
  36.         if ( ::isfloppy )
  37.             return( 0 )
  38.         end
  39.         if ( ::size < 1 )
  40.             return( 0 )
  41.         end
  42.         return( int( 100 * ( ::space / ::size ) ) )
  43.     END
  44.  
  45.  
  46.     ACCESS cSpace
  47.         return( strcommas( "" + ::space ) )
  48.     END
  49.  
  50.     ACCESS cSize
  51.         return( strcommas( "" + ::size ) )
  52.     END
  53.  
  54.     ACCESS space
  55.         if ( ::isfloppy )
  56.             return( 0 )
  57.         end            
  58.         return( driveFree( ::letter ) )
  59.     END
  60.  
  61.     ACCESS size
  62.         if ( ::isfloppy )
  63.             return( 0 )
  64.         end            
  65.         return( driveSize( ::letter ) )
  66.     END
  67.  
  68.     ACCESS status
  69.         local stat
  70.         if ( ::isfloppy )
  71.             stat = "NORMAL"            
  72.         else
  73.                if ( ::space < 10000000 )
  74.                    stat = "LOW SPACE WARNING"
  75.                elseif ( ::space < 50000000 )
  76.                    stat = "DISK LOW"
  77.                else
  78.                    stat = "NORMAL"
  79.                end
  80.            end
  81.         return( stat )
  82.     END
  83.  
  84.     ACCESS cType
  85.         local val
  86.         if ( ::type & 16 )
  87.             val = "CD-ROM DRIVE"
  88.         elseif ( ::type & 128 )
  89.             val = "HARD DISK"
  90.         elseif ( ::type & 256 )
  91.             val = "NETWORKED"
  92.         elseif ( ::type & 512 )
  93.             val = "REDIRECTED"
  94.         elseif ( ::type & 1024 )
  95.             val = "SUBSTITUTED"
  96.         elseif ( ::type & 2048 )
  97.             val = "ASSIGNED"
  98.         elseif ( ::type & 4096 )
  99.             val = "5 1/4\" FLOPPY"
  100.         elseif ( ::type & 8192 )
  101.             val = "3 1/2\" FLOPPY"
  102.         else
  103.             val = "DISK DRIVE"
  104.         end
  105.         return( val )
  106.     END
  107.  
  108. END
  109.