home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / repdbms.tcl < prev    next >
Text File  |  1997-07-22  |  2KB  |  67 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:        %W%
  6. #      Author:        edri
  7. #      Description:    RDBMS attributes.
  8. #---------------------------------------------------------------------------
  9. # SccsId = %W% %G% Copyright 1996 Cadre Technologies Inc.
  10.  
  11. require infdbms.tcl
  12. require ssadbms.tcl
  13. require oradbms.tcl
  14. require defdbms.tcl
  15.  
  16. proc RepositoryDBMS::setCurrent {corporate} {
  17.     if [$corporate isNil] {
  18.         set dbms $defaultDBMS
  19.     } else {
  20.         set vendor [$corporate databaseVendor]
  21.         switch $vendor {
  22.             informix    { set dbms InformixDBMS }
  23.             oracle    { set dbms OracleDBMS }
  24.             sqlany    { set dbms SqlAnyDBMS }
  25.             default    { set dbms $defaultDBMS }
  26.         }
  27.     }
  28.  
  29.     global RepositoryDBMS::current
  30.     set RepositoryDBMS::current $dbms
  31. }
  32.  
  33. proc RepositoryDBMS::name {} {
  34.     global RepositoryDBMS::current
  35.     return [${RepositoryDBMS::current}::name]
  36. }
  37.  
  38. proc RepositoryDBMS::shortName {} {
  39.     global RepositoryDBMS::current
  40.     return [${RepositoryDBMS::current}::shortName]
  41. }
  42.  
  43. proc RepositoryDBMS::hasUser {} {
  44.     global RepositoryDBMS::current
  45.     return [${RepositoryDBMS::current}::hasUser]
  46. }
  47.  
  48. proc RepositoryDBMS::hasPassword {} {
  49.     global RepositoryDBMS::current
  50.     return [${RepositoryDBMS::current}::hasPassword]
  51. }
  52.  
  53. proc RepositoryDBMS::hasDirectory {} {
  54.     global RepositoryDBMS::current
  55.     return [${RepositoryDBMS::current}::hasDirectory]
  56. }
  57.  
  58. proc RepositoryDBMS::hasServer {} {
  59.     global RepositoryDBMS::current
  60.     return [${RepositoryDBMS::current}::hasServer]
  61. }
  62.  
  63. proc RepositoryDBMS::hasHost {} {
  64.     global RepositoryDBMS::current
  65.     return [${RepositoryDBMS::current}::hasHost]
  66. }
  67.