Sqlcmds.hs

{-# LANGUAGE QuasiQuotes #-}

module Sqlcmds where

import Str(str)


-- -----------------------------------------------------------------------------------------------------
-- ----------------------------------------------------------------------------------------------------


stuff = [str|
SELECT NULL AS TABLE_CAT, n.nspname AS TABLE_SCHEM, c.relname AS TABLE_NAME,  
  CASE n.nspname ~ '^pg_' OR n.nspname = 'information_schema'  
    WHEN true THEN 
      CASE
	    WHEN n.nspname = 'pg_catalog' OR n.nspname = 'information_schema' THEN 
          CASE c.relkind   WHEN 'r' THEN 'SYSTEM TABLE'   WHEN 'v' THEN 'SYSTEM VIEW'   WHEN 'i' THEN 'SYSTEM INDEX'   ELSE NULL   END  
        WHEN n.nspname = 'pg_toast' THEN 
	      CASE c.relkind   WHEN 'r' THEN 'SYSTEM TOAST TABLE'   WHEN 'i' THEN 'SYSTEM TOAST INDEX'   ELSE NULL   END  ELSE CASE c.relkind   WHEN 'r' THEN 'TEMPORARY TABLE'   WHEN 'i' THEN 'TEMPORARY INDEX'   WHEN 'S' THEN 'TEMPORARY SEQUENCE'   WHEN 'v' THEN 'TEMPORARY VIEW'   ELSE NULL   END
      END
    WHEN false THEN 
      CASE c.relkind  
        WHEN 'r' THEN 'TABLE'  
        WHEN 'i' THEN 'INDEX'  
        WHEN 'S' THEN 'SEQUENCE'  
        WHEN 'v' THEN 'VIEW'  
        WHEN 'c' THEN 'TYPE'  
        WHEN 'f' THEN 'FOREIGN TABLE'  
        ELSE NULL
      END 
    ELSE NULL
  END AS TABLE_TYPE,
  d.description AS REMARKS 
FROM pg_catalog.pg_namespace n, pg_catalog.pg_class c  LEFT JOIN pg_catalog.pg_description d ON (c.oid = d.objoid AND d.objsubid = 0)  LEFT JOIN pg_catalog.pg_class dc ON (d.classoid=dc.oid AND dc.relname='pg_class')  LEFT JOIN pg_catalog.pg_namespace dn ON (dn.oid=dc.relnamespace AND dn.nspname='pg_catalog')  WHERE c.relnamespace = n.oid  AND n.nspname LIKE 'account' AND (false  OR ( c.relkind = 'r' AND n.nspname !~ '^pg_' AND n.nspname <> 'information_schema' ) )
ORDER BY TABLE_TYPE,TABLE_SCHEM,TABLE_NAME 
|]