/*********************************************************************
* 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-name may be either a specific file or ALL */
/* 
File:   prodict/load_d.p

IN:
    file-name                : "ALL" or "<file-name>"
    dot-d-dir                : directory relativ to working-directory
    
History
    mcmann     07/13/01 Added check for environmental variable DSTYPE
    mcmann     98/07/13 Added _Owner check for V9
    laurief     97/12   Removed RMS,CISAM code
    hutegger    95/06   multi-db support


Multi-DB-Support:
    the syntax of file-name is:
           [ <DB>. ] <tbl>             [ <DB>. ] <tbl>
        {  ---------------  }  [ , {  ---------------  } ] ...
             <DB>."ALL"                  <DB>."ALL"
    {   -----------------------------------------------------------  }
                        "ALL"

*/
DEFINE INPUT PARAMETER file-name AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER dot-d-dir AS CHARACTER NO-UNDO.

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

DEFINE VARIABLE c           AS CHARACTER NO-UNDO INITIAL "".
DEFINE VARIABLE i           AS INTEGER   NO-UNDO.
DEFINE VARIABLE l_db-name   AS CHARACTER NO-UNDO.
DEFINE VARIABLE l_dump-name AS CHARACTER 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 temp-table ttb_dump
        field db        as character
        field tbl       as character
        index upi is primary unique db tbl.
        

/****** general initialisations ***********************************/

assign
  save_ab                   = SESSION:APPL-ALERT-BOXES
  SESSION:APPL-ALERT-BOXES  = NO
  user_env[3]               = "" /* "MAP <name>" or "NO-MAP" OR "" */
  user_env[4]               = "0"
  user_env[6]               = "f"  /* log errors to file by default */
  dot-d-dir                 = ( if dot-d-dir matches "*" + "/"
                                or dot-d-dir matches "*" + ".d"
                                or dot-d-dir    =    ""
                                then dot-d-dir 
                                else dot-d-dir + "/"
                              ).

/* This allows the bulk load utility of a dataserver to be run */
IF OS-GETENV("DSTYPE")   <> ? THEN
  user_env[35]  = OS-GETENV("DSTYPE").
/****** 1. step: create temp-table from input file-list ***********/

if file-name = "ALL"
 then do:  /* load ALL files 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.     /* load ALL fiels of ALL dbs */
  
 else do:  /* load SOME files 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 files of SOME dbs */


/****** 2. step: prepare user_env[1] for this _db-record **********/
  
for each DICTDB._Db:

  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 loaded 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:
       IF INTEGER(DBVERSION("DICTDB")) > 8 THEN
          find first DICTDB._File of DICTDB._Db where DICTDB._File._File-name = ttb_dump.tbl
                                and (DICTDB._File._Owner = "PUB" OR DICTDB._File._Owner = "_FOREIGN")
                                no-lock no-error.
       ELSE
          find first DICTDB._File of DICTDB._Db where DICTDB._File._File-name = ttb_dump.tbl
                                no-lock no-error. 
                                                          
      if available DICTDB._File
       and ( can-do(l_for-type,DICTDB._File._For-type)
       or    l_for-type = ? )
       then assign
        l_dump-name = DICTDB._File._dump-name
        user_env[1] = user_env[1] + "," + ttb_dump.tbl.
      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:
       IF INTEGER(DBVERSION("DICTDB")) > 8 THEN
          find first DICTDB._File of DICTDB._Db where DICTDB._File._File-name = ttb_dump.tbl
                                     and (DICTDB._File._Owner = "PUB" OR DICTDB._File._Owner = "_FOREIGN")
                                     no-lock no-error.
        ELSE
          find first DICTDB._File of DICTDB._Db where DICTDB._File._File-name = ttb_dump.tbl no-lock no-error.                                         
      if available DICTDB._File
       and ( can-do(l_for-type,DICTDB._File._For-type)
       or    l_for-type = ? )
       then assign
        l_dump-name = DICTDB._File._dump-name
        user_env[1] = user_env[1] + "," + ttb_dump.tbl.
      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 */
    for each DICTDB._File
      WHERE DICTDB._File._File-number > 0
      AND   DICTDB._File._Db-recid = RECID(_Db)
      AND   NOT DICTDB._File._Hidden
      BY    DICTDB._File._File-name:
      
      IF INTEGER(DBVERSION("DICTDB")) > 8 
        and (DICTDB._File._Owner <> "PUB" AND DICTDB._File._Owner <> "_FOREIGN")
        THEN NEXT.
        
      if l_for-type = ?
       or can-do(l_for-type,DICTDB._File._For-type)
       then assign
        l_dump-name = DICTDB._File._dump-name
        user_env[1] = user_env[1] + "," + DICTDB._File._File-name.
      END.
    assign user_env[1] = substring(user_env[1],6,-1,"character").
    END.     /* all files of this _Db */
   else assign
    user_env[1] = substring(user_env[1],2,-1,"character").
   
  /* is there something to load into this _db? */
  if user_env[1] = "" then next.
  

/****** 3. step: prepare user_env[2] and user_env[5] **************/
  
  /* if one file => .d-name otherwise path */
  if num-entries(user_env[1]) > 1
   or dot-d-dir matches "*" + ".d"
   then assign user_env[2] = dot-d-dir.  /* just path or .d-file-name */
   else assign user_env[2] = dot-d-dir 
                           +  SUBSTRING(
                                ( if l_Dump-name = ?
                                           THEN user_env[1] 
                                           ELSE l_Dump-name
                                ), 1, 8, "character" )
                           + ".d".   /* full path and name of .d-file */

  /* Indicate "y"es to disable triggers for dump of all files */
  assign user_env[5] = "y".
  do i = 2 to NUM-ENTRIES(user_env[1]):
     assign user_env[5] = user_env[5] + ",y".
     end.

  /* other needed assignments */
  assign
    drec_db     = RECID(_Db)
    user_dbname = if _Db._Db-name = ? THEN LDBNAME("DICTDB")
                                      ELSE _Db._Db-Name
    user_dbtype = if _Db._Db-name = ? THEN DBTYPE("DICTDB")
                                      ELSE _Db._Db-Type.


/****** 4. step: the actual loading-process ***********************/

  RUN "prodict/dump/_loddata.p".

  END.    /* all _Db's */

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