/*********************************************************************
* Copyright (C) 2000 by Progress Software Corporation ("PSC"),       *
* 14 Oak Park, Bedford, MA 01730, and other contributors as listed   *
* below.  All Rights Reserved.                                       *
*                                                                    *
* The Initial Developer of the Original Code is PSC.  The Original   *
* Code is Progress IDE code released to open source December 1, 2000.*
*                                                                    *
* The contents of this file are subject to the Possenet Public       *
* License Version 1.0 (the "License"); you may not use this file     *
* except in compliance with the License.  A copy of the License is   *
* available as of the date of this notice at                         *
* http://www.possenet.org/license.html                               *
*                                                                    *
* Software distributed under the License is distributed on an "AS IS"*
* basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You*
* should refer to the License for the specific language governing    *
* rights and limitations under the License.                          *
*                                                                    *
* Contributors:                                                      *
*                                                                    *
*********************************************************************/


/*--------------------------------------------------------------------   

File: prodict/dump_df.p

Description:
    This routine dumps the definition of all schemas in the first 
    Schema-Holder - all other schema-holders are ignored

Input-Parameters:
    file-name                : "ALL" or "<file-name> [,<filename>] ..."
    df-file-name             : Name of file to dump to
    code-page                : ?, "", "<code-page>"
    
History
    McMann    02/10/03  Added USER-INDEX _file-name for On-line schema add
    Mario B   99/03/15  Default user_env[26] to "y" for dump _Field._Field-rpos
    mcmann    98/07/13  Added _Owner to _file finds
    laurief     97/12   Removed RMS,CISAM code
    hutegger    95/01   single-files in multiple schemas
    hutegger    94/04   multiple schema/db support (DataServers)
    hutegger    94/02   code-page support
    
Multi-DB-Support:
    the syntax of file-name is:
           [ <DB>. ] <tbl>             [ <DB>. ] <tbl>
        {  ---------------  }  [ , {  ---------------  } ] ...
             <DB>."ALL"                  <DB>."ALL"
    {   -----------------------------------------------------------  }
                        "ALL"

Code-page - support:
    code-page = ?             : no-conversion
    code-page = ""            : default conversion (SESSION:STREAM)
    code-page = "<code-page>" : convert to <code-page>

    if not convertable to code-page try to convert to SESSION:STREAM
    if still not convertable don't convert at all
  
--------------------------------------------------------------------*/        
/*h-*/
/*----------------------------  DEFINES  ---------------------------*/

DEFINE INPUT PARAMETER file-name    AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER df-file-name AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER code-page AS CHARACTER NO-UNDO.

{ prodict/user/uservar.i NEW }
{ prodict/dictvar.i NEW }

DEFINE VARIABLE i             AS INTEGER   NO-UNDO.
DEFINE VARIABLE l_db-name     AS CHARACTER NO-UNDO.
DEFINE VARIABLE l_first-db    AS LOGICAL   NO-UNDO.
DEFINE VARIABLE l_for-type    AS CHARACTER NO-UNDO.
DEFINE VARIABLE l_int         AS INTEGER   NO-UNDO.
DEFINE VARIABLE l_item        AS CHARACTER NO-UNDO.
DEFINE VARIABLE l_list        AS CHARACTER NO-UNDO.
DEFINE VARIABLE save_ab       AS LOGICAL   NO-UNDO.
DEFINE VARIABLE l_dmp-files   AS CHARACTER NO-UNDO format "x(256)":u
    INITIAL ["_file,_field,_index,_index-field,_file-trig,_field-trig" ].
DEFINE VARIABLE l_tmp-file    AS CHARACTER NO-UNDO format "x(256)":u.

define temp-table ttb_dump
        field db        as character
        field tbl       as character
        index upi is primary unique db tbl.
        
DEFINE STREAM   ddl.

/*---------------------------  TRIGGERS  ---------------------------*/

/*------------------------  INT.-PROCEDURES  -----------------------*/

/*---------------------------  MAIN-CODE  --------------------------*/

if      code-page = ?  
 then assign code-page = "<internal defaults apply>".
 else do:
  if code-page = "" then assign code-page = SESSION:STREAM.
  else if codepage-convert("a":u,code-page,SESSION:CHARSET) = ?
                    then assign code-page = SESSION:STREAM.
  if codepage-convert("a":u,code-page,SESSION:CHARSET) = ?
                    then assign code-page = "<internal defaults apply>".
  end.
  
                           
/* dump/_dmpsddl.p dumps into a file without append-option       */
/* -> a) dump definitions into temporary file                    */
/*    b) concatenate these to the file according input-parameter */

/* get a unique name, delete ev. existing source-file */
RUN adecomm/_tmpfile.p (l_tmp-file, ".df", OUTPUT l_tmp-file). 
if search(df-file-name) <> ? then OS-DELETE value(df-file-name).
  
assign
  l_first-db               = TRUE
  save_ab                  = SESSION:APPL-ALERT-BOXES
  SESSION:APPL-ALERT-BOXES = NO
  user_env[25]             = "AUTO"
  user_env[26]             = "y".  

                       
/****** 1. step: create temp-table from input file-list ***********/

if file-name = "ALL"
 then do:  /* dump ALL file-definitions of ALL dbs */
  for each DICTDB._DB:
    create ttb_dump.
    assign
      ttb_dump.db  = ( if DICTDB._DB._DB-Type = "PROGRESS" 
                        THEN LDBNAME("DICTDB")
                        ELSE DICTDB._DB._Db-name
                     )
      ttb_dump.tbl = "*ALL*".
    end.    
  end.     /* dump ALL file-definitions of ALL dbs */
  
 else do:  /* dump SOME file-definitions of SOME dbs */
 
  assign l_list = file-name.
  repeat i = 1 to num-entries(l_list):
    create ttb_dump.
    assign
      l_item = entry(i,l_list)
      l_int  = index(l_item,".").
    if l_int = 0
     then assign
      ttb_dump.db  = ""
      ttb_dump.tbl = l_item.
     else assign
      ttb_dump.db  = substring(l_item,1,l_int - 1,"character")
      ttb_dump.tbl = substring(l_item,l_int + 1, -1,"character").
    end.
    
  end.     /* dump SOME file-definitions of SOME dbs */

/****** 2. step: dump definitions according to temp-table ******/
  
for each DICTDB._DB
  by DICTDB._Db._Db-name descending: /* all schemas of current
                                      * schema-holder beginning with
                                      * the PROGRESS-DB
                                      */
                             
  /* check run-time read-privileges */
  FOR EACH _File
    WHERE _File._File-name begins "_":
    IF  INDEX(l_dmp-files,_File._File-name) = 0 
     OR CAN-DO(_File._Can-read,USERID("DICTDB")) 
     THEN NEXT.
    MESSAGE "You do not have permission to dump table definitions.".
    NEXT.
  END.

  assign
    l_db-name   = ( if DICTDB._DB._DB-Type = "PROGRESS" 
                     THEN LDBNAME("DICTDB")
                     ELSE _DB._DB-name
                  )
    user_env[1] = ""
    l_for-type  = ( if CAN-DO("PROGRESS",DICTDB._DB._DB-Type)
                     THEN ?
                     ELSE "TABLE,VIEW"
                  ).
/* to generate the list of tables of this _db-record to be dumped and
 * assign it to user_env[1] we
 * a) try to use all tables WITHOUT db-specifyer
 */
  for each ttb_dump
    where ttb_dump.db = ""
    while user_env[1] <> ",all":
    if ttb_dump.tbl <> "*ALL*"
     then do:
      FOR EACH DICTDB._File of DICTDB._Db
        where DICTDB._File._File-name = ttb_dump.tbl
        USE-INDEX _File-name no-lock:
        
        IF INTEGER(DBVERSION("DICTDB")) > 8
           AND DICTDB._File._Tbl-Type = "V"
           AND (DICTDB._File._Owner <> "PUB" OR DICTDB._File._Owner <> "_FOREIGN")  
           THEN NEXT.
        ELSE
         LEAVE.     
      END.     
      if available DICTDB._File
       and ( can-do(l_for-type,DICTDB._File._For-type)
       or    l_for-type = ? )
       then assign
         user_env[1] = user_env[1] + "," + ttb_dump.tbl
         drec_file   = RECID(DICTDB._File).
      end.
     else assign user_env[1] = ",all".
    end.

/* b) try to use all tables WITH db-specifyer */
  for each ttb_dump
    where ttb_dump.db = l_db-name
    while user_env[1] <> ",all":
    if ttb_dump.tbl <> "*ALL*"
     then do:
      FOR EACH DICTDB._File of DICTDB._Db
        where DICTDB._File._File-name = ttb_dump.tbl
        USE-INDEX _File-name no-lock:
        
        IF INTEGER(DBVERSION("DICTDB")) > 8
           AND DICTDB._File._Tbl-Type = "V"
           AND (DICTDB._File._Owner <> "PUB" OR DICTDB._File._Owner <> "_FOREIGN")  
           THEN NEXT.
        ELSE
           LEAVE.
      END.          
      if available DICTDB._File
       and ( can-do(l_for-type,DICTDB._File._For-type)
       or    l_for-type = ? )
       then assign
         user_env[1] = user_env[1] + "," + ttb_dump.tbl
         drec_file   = RECID(DICTDB._File).
      end.
     else assign user_env[1] = ",all".
    end.
    
/* c) if either "all" or "all of this db" then we take every file
 *    of the current _Db
 */

  IF user_env[1] = ",all"
   then do:  /* all files of this _Db */
    assign user_env[1] = "".
    for each DICTDB._File
      WHERE DICTDB._File._File-number > 0
      AND   DICTDB._File._Db-recid = RECID(_Db)
      AND   NOT DICTDB._File._Hidden
      USE-INDEX _File-name
      BY    DICTDB._File._File-name:

        IF INTEGER(DBVERSION("DICTDB")) > 8
           AND DICTDB._File._Tbl-Type = "V"
           AND (DICTDB._File._Owner <> "PUB" OR DICTDB._File._Owner <> "_FOREIGN")  
           THEN NEXT.
           
      if l_for-type = ?
       or can-do(l_for-type,DICTDB._File._For-type)
       then assign user_env[1] = user_env[1] + "," + DICTDB._File._File-name.
      END.
    assign user_env[1] = substring(user_env[1],2,-1,"character").
    END.     /* all files of this _Db */
   else assign
    user_env[1] = substring(user_env[1],2,-1,"character").
   
  /* is there something to dump in this _db? */
  if user_env[1] = "" then next.
  
  /* remaining needed assignments */
  ASSIGN
    user_dbname   = l_db-name
    user_dbtype   = l_for-type
    drec_db       = RECID(_Db)
    user_env[2]   = l_tmp-file
    user_env[5]   = code-page
    user_env[6]   = "no-alert-boxes"
    user_env[9]   = "d"
    user_filename = ( if file-name = "ALL"
                       then "ALL"
                      else if index(user_env[1],",") = 0
                       then "ONE"  + string(l_first-db,"/ MORE")
                       else "SOME" + string(l_first-db,"/ MORE")
                    ).
    
  DO TRANSACTION ON ERROR UNDO,LEAVE ON ENDKEY UNDO,LEAVE:
    RUN "prodict/dump/_dmpsddl.p".
  END.
  
  OS-APPEND value(l_tmp-file) VALUE(df-file-name).
  
  assign l_first-db = FALSE.
  
  END.         /* all schemas of current schema-holder */

OS-DELETE value(l_tmp-file).

OUTPUT STREAM ddl TO VALUE(df-file-name) APPEND.
      {prodict/dump/dmptrail.i
        &entries      = " "
        &seek-stream  = "ddl"
        &stream       = "stream ddl"
        }  /* adds trailer with code-page-entrie to end of file */
OUTPUT STREAM ddl CLOSE.

assign SESSION:APPL-ALERT-BOXES = save_ab.
  
RETURN.