/*********************************************************************
* 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: *
* *
*********************************************************************/
/* html.p
* Take Dictionary and convert to HTML Document
*/
DEF VAR v-name AS CHAR NO-UNDO.
DEF VAR v-title AS CHAR NO-UNDO INITIAL "ICFDB Database".
DEF VAR v-home AS CHAR NO-UNDO INITIAL "C:/temp".
DEF VAR v-inc AS INTE NO-UNDO.
OUTPUT TO VALUE( v-home + "/index.htm" ).
PUT UNFORMATTED "" SKIP.
PUT UNFORMATTED "" SKIP.
PUT UNFORMATTED "" + v-title + "" SKIP.
PUT UNFORMATTED "" SKIP.
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "" + v-title.
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "" SKIP.
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "" SKIP.
FOR EACH ICFDB._file WHERE
ICFDB._file._file-name < "_"
NO-LOCK:
ASSIGN v-inc = v-inc + 1.
IF v-inc modulo 5 = 1 THEN
PUT UNFORMATTED "" SKIP.
/** replace any # (hashes) with special encoding for URL %23 = # **/
ASSIGN v-name = ICFDB._file._dump-name.
do while index( v-name, "#" ) > 0:
substring( v-name, index( v-name, "#" ), 1 ) = "%23".
END. /* do while index( v-name, "#" ) > 0: */
PUT UNFORMATTED "| ".
PUT UNFORMATTED "" + ICFDB._file._file-name.
PUT UNFORMATTED " | " SKIP.
IF v-inc modulo 5 = 0 THEN
PUT UNFORMATTED "
" SKIP.
END. /* FOR EACH ICFDB._file WHERE */
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED " " SKIP.
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "" SKIP.
PUT UNFORMATTED "Last updated " + string( today, "99/99/9999" ) + " ".
PUT UNFORMATTED string( time, "hh:mm:ss am" ) + "
" SKIP.
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "" SKIP.
PUT UNFORMATTED "" SKIP.
OUTPUT CLOSE.
FOR EACH ICFDB._file WHERE
ICFDB._file._file-name < "_"
NO-LOCK:
OUTPUT TO VALUE( v-home + "/" + ICFDB._file._dump-name + ".htm" ).
PUT UNFORMATTED "" SKIP.
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "" + v-title + " -- " + ICFDB._file._file-name.
PUT UNFORMATTED "" SKIP.
PUT UNFORMATTED "" SKIP.
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "".
PUT UNFORMATTED v-title + "
" SKIP.
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "".
PUT UNFORMATTED ICFDB._file._file-name + "
" SKIP.
PUT UNFORMATTED "" + ICFDB._file._desc + "
" SKIP.
PUT UNFORMATTED "".
PUT UNFORMATTED "Indexing".
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "" SKIP.
PUT UNFORMATTED "" SKIP.
PUT UNFORMATTED "" SKIP.
PUT UNFORMATTED "| ".
PUT UNFORMATTED "Field Name" SKIP.
PUT UNFORMATTED " | ".
PUT UNFORMATTED "Datatype" SKIP.
PUT UNFORMATTED " | ".
PUT UNFORMATTED "Format" SKIP.
PUT UNFORMATTED " | ".
PUT UNFORMATTED "Extent" SKIP.
PUT UNFORMATTED " | ".
PUT UNFORMATTED "Default" SKIP.
PUT UNFORMATTED " | ".
PUT UNFORMATTED "Description" SKIP.
PUT UNFORMATTED " |
" SKIP.
FOR EACH ICFDB._field WHERE
ICFDB._field._file-recid = RECID(_file)
NO-LOCK BY _order :
PUT UNFORMATTED "" SKIP.
PUT UNFORMATTED "| " + ICFDB._field._field-name.
PUT UNFORMATTED " | " SKIP.
PUT UNFORMATTED "" + ICFDB._field._data-type.
PUT UNFORMATTED " | " SKIP.
PUT UNFORMATTED "".
PUT UNFORMATTED ICFDB._field._format + " | " SKIP.
IF ICFDB._field._extent > 0 THEN
DO:
PUT UNFORMATTED "".
PUT UNFORMATTED ICFDB._field._extent " | " SKIP.
END.
ELSE
DO:
PUT UNFORMATTED "1 | ".
PUT UNFORMATTED SKIP.
END.
IF TRIM(_field._initial) = "" OR
ICFDB._field._initial = ? THEN
PUT UNFORMATTED " \; | " SKIP.
ELSE
PUT UNFORMATTED "" + ICFDB._field._initial + " | " SKIP.
IF TRIM(_field._desc) = "" THEN
PUT UNFORMATTED " \; | " SKIP.
ELSE
PUT UNFORMATTED "" + ICFDB._field._desc + " | " SKIP.
PUT UNFORMATTED "
" SKIP.
END. /* FOR EACH ICFDB._field WHERE */
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "" SKIP.
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "" SKIP.
PUT UNFORMATTED "Indexing
" SKIP.
FOR EACH ICFDB._index WHERE
ICFDB._index._file-recid = RECID(_file)
NO-LOCK:
PUT UNFORMATTED "
".
PUT UNFORMATTED ICFDB._index._index-name + "" SKIP.
IF ICFDB._file._prime-index = RECID(_index) THEN
PUT UNFORMATTED " - Primary " SKIP.
IF ICFDB._index._unique THEN
PUT UNFORMATTED " - Unique " SKIP.
FOR EACH ICFDB._index-field WHERE
ICFDB._index-field._index-recid = RECID(_index)
NO-LOCK:
FIND ICFDB._field WHERE
RECID(_field) = ICFDB._index-field._field-recid
NO-LOCK.
IF AVAIL ICFDB._field THEN
PUT UNFORMATTED "
" + ICFDB._field._field-name + "" SKIP.
END. /* FOR EACH ICFDB._index-field WHERE */
PUT UNFORMATTED "" SKIP.
END. /* FOR EACH ICFDB._index WHERE */
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "Last updated " + string( today, "99/99/9999" ) + " ".
PUT UNFORMATTED string( time, "hh:mm:ss am" ) + "" SKIP.
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "Return to Listing Of Database ".
PUT UNFORMATTED "Tables
" SKIP.
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "
" SKIP.
PUT UNFORMATTED "" SKIP.
PUT UNFORMATTED "" SKIP.
OUTPUT CLOSE.
END. /* FOR EACH ICFDB._file WHERE */
RETURN.