/********************************************************************* * 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: _readrt.p Description: Reads a _RUN-TIME-SETTINGS section of a web-object. Input Parameters: p_proc-id - Procedure Context ID for the relevent _P record. p_orig-ver - the original version number of the input file. p_options - A comma-delimited list of options [currently unused] Notes: Uses the default _P_QS code stream Author: Wm. T. Wood Created: February 1997 History: ---------------------------------------------------------------------------- */ DEFINE INPUT PARAMETER p_proc-id AS INTEGER NO-UNDO . DEFINE INPUT PARAMETER p_orig-ver AS CHAR NO-UNDO . DEFINE INPUT PARAMETER p_options AS CHAR NO-UNDO . /* Shared Include File definitions */ { workshop/objects.i } /* Object TEMP-TABLE definition */ { workshop/sharvars.i } /* Shared variables */ { workshop/uniwidg.i } /* Universal Widget TEMP-TABLE definition */ /* Shared file-io parameters from the caller. */ DEFINE SHARED VAR _a_line AS CHAR NO-UNDO. DEFINE SHARED VAR _inp_line AS CHAR EXTENT 100 NO-UNDO. DEFINE SHARED STREAM _P_QS. DEFINE VARIABLE c_name AS CHARACTER NO-UNDO. DEFINE VARIABLE frame-nam AS CHARACTER NO-UNDO. DEFINE VARIABLE frame-recid AS RECID NO-UNDO. DEFINE VARIABLE i AS INTEGER NO-UNDO. DEFINE VARIABLE j AS INTEGER NO-UNDO. DEFINE VARIABLE settings AS CHARACTER NO-UNDO. Run-Time-Block: REPEAT: _inp_line = "". IMPORT STREAM _P_QS _inp_line. /* Exit condition. This is the &ANALYZE-RESUME line */ IF _inp_line[1] eq "&ANALYZE-RESUME" THEN LEAVE Run-Time-Block. /* Catch a SETTINGS FOR widget... */ ELSE IF _inp_line[1] = "/*" AND _inp_line[2] = "SETTINGS" AND _inp_line[3] = "FOR" THEN DO: IF _inp_line[4] ne "WINDOW" THEN DO: /* Get the frame name of the widget we a looking at. The line will either be: SETTINGS FOR FRAME xxx or SETTINGS FOR xyz IN FRAME xxx */ frame-nam = IF _inp_line[4] eq "FRAME" THEN _inp_line[5] ELSE _inp_line[8]. FIND _U WHERE _U._P-recid eq p_proc-id AND _U._TYPE eq "FRAME" AND _U._NAME eq frame-nam. frame-recid = RECID(_U). CASE NUM-ENTRIES(_inp_line[5],".":U): WHEN 1 THEN DO: FIND _U WHERE _U._NAME eq _inp_line[5] AND _U._TYPE eq _inp_line[4] AND _U._parent-recid eq frame-recid NO-ERROR. IF NOT AVAILABLE _U THEN FIND _U WHERE _U._NAME eq _inp_line[5] AND _U._TABLE eq ? AND _U._DBNAME eq ? AND _U._TYPE eq _inp_line[4] AND _U._parent-recid eq frame-recid NO-ERROR. END. WHEN 2 THEN DO: FIND _U WHERE _U._NAME eq ENTRY(2,_inp_line[5],".") AND _U._TABLE eq ENTRY(1,_inp_line[5],".") AND _U._TYPE eq _inp_line[4] AND _U._parent-recid eq frame-recid NO-ERROR. END. WHEN 3 THEN DO: FIND _U WHERE _U._NAME eq ENTRY(3,_inp_line[5],".") AND _U._TABLE eq ENTRY(2,_inp_line[5],".") AND _U._DBNAME eq ENTRY(1,_inp_line[5],".") AND _U._TYPE eq _inp_line[4] AND _U._parent-recid eq frame-recid NO-ERROR. END. END CASE. END. /*IF...ne "WINDOW" THEN DO:...*/ ELSE DO: /* WDT_v1r1: Settings used to exist on the Design time window. Just ignore WINDOW sections in WebSpeed v2 and above */ NEXT Run-Time-Block. END. /* This line checks the compile time preprocessor variables to ensure that we are looking for all the possible User-List preprocessor variables. Currently this is set to 6. */ &IF {&MaxUserLists} > 6 &THEN &MESSAGE [_qssuckr.p] *** FIX NOW *** User list can have unexpected value (wood) &ENDIF _inp_line = "". IMPORT STREAM _P_QS _inp_line. ASSIGN i = 1 settings = "". DO WHILE _inp_line[i] NE "*/": /* Look for simple integers that indicate an element of the User-List. Otherwise append the item at the end of settings (Don't worry about an initial comma because we are going to remove it later). */ j = INDEX("123456":U, _inp_line[i]). IF j ne 0 THEN _U._User-List[ j ] = YES. ELSE DO: IF settings eq "":U THEN settings = _inp_line[i]. ELSE settings = settings + "," + _inp_line[i]. END. i = i + 1. END. /* WDT_v1r1: In WebSpeed 2, there are no run-time settings for frames or windows. */ IF LOOKUP(_U._TYPE, "FRAME,WINDOW":U) eq 0 THEN DO: FIND _F WHERE RECID(_F) = _U._x-recid. IF CAN-DO(settings,"DISPLAY") THEN _U._DISPLAY = TRUE. IF CAN-DO(settings,"NO-DISPLAY") THEN _U._DISPLAY = FALSE. IF CAN-DO(settings,"NO-ENABLE") THEN _U._ENABLE = FALSE. IF CAN-DO(settings,"USER") THEN _U._DEFINED-BY = "User":U. IF CAN-DO(settings,"EXP-FORMAT") THEN _F._FORMAT-SOURCE = "E". IF CAN-DO(settings,"DEF-FORMAT") THEN _F._FORMAT-SOURCE = "D". END. /* IF LOOKUP(_U._TYPE... */ END. /* IF SETTINGS COMMENT */ ELSE IF _inp_line[1] = "FRAME" AND _inp_line[3] = "=" AND INDEX(_inp_line[2],":") > 0 THEN DO: /* WDT_v1r1: In version 2, we don't pay any attention to frame attributes. */ END. /* Handle run-time settings of the form: name:attribute IN FRAME web-frame = .... */ ELSE IF _inp_line[5] = "=" AND INDEX(_inp_line[1],":") > 0 THEN DO: /* Get the name of the widget, and the name of the the frame. */ ASSIGN c_name = ENTRY(1,_inp_line[1],":"). IF frame-nam ne _inp_line[4] THEN DO: frame-nam = _inp_line[4]. FIND _U WHERE _U._P-recid eq p_proc-id AND _U._TYPE eq "FRAME" AND _U._NAME eq frame-nam. frame-recid = RECID(_U). END. /* Find the _U record. */ IF NUM-ENTRIES(c_name,".") = 1 THEN FIND _U WHERE _U._NAME eq c_name AND _U._TYPE ne "FRAME" AND _U._parent-recid eq frame-recid NO-ERROR. ELSE IF NUM-ENTRIES(c_name,".") = 2 THEN FIND _U WHERE _U._NAME eq ENTRY(2,c_name,".") AND _U._TABLE eq ENTRY(1,c_name,".") AND _U._TYPE ne "FRAME" AND _U._parent-recid eq frame-recid NO-ERROR. ELSE IF NUM-ENTRIES(c_name,".") = 3 THEN FIND _U WHERE _U._NAME eq ENTRY(3,c_name,".") AND _U._TABLE eq ENTRY(2,c_name,".") AND _U._DBNAME eq ENTRY(1,c_name,".") AND _U._TYPE ne "FRAME" AND _U._parent-recid eq frame-recid NO-ERROR. /* Get the associated _F record. */ FIND _F WHERE RECID(_F) eq _U._x-recid NO-ERROR. CASE ENTRY(2,_inp_line[1],":"): WHEN "PRIVATE-DATA":U THEN RUN read-string(OUTPUT _U._PRIVATE-DATA). WHEN "READ-ONLY":U THEN _F._READ-ONLY = TRUE. END CASE. /* ENTRY(2,_inp_line[1],":") -- ATTRIBUTE */ END. END. /* Run-Time-Block: Repeat block */ RETURN. /* Reads Private-Data as a string. That is, we start saving data when we get to the first quote. We ignore any tilde characters, and stop at the second quote. */ PROCEDURE read-string: DEFINE OUTPUT PARAMETER p_out AS CHAR NO-UNDO. DEFINE VARIABLE lin AS CHAR NO-UNDO. DEFINE VARIABLE ch AS CHAR NO-UNDO. DEFINE VARIABLE i AS INTEGER NO-UNDO. DEFINE VARIABLE cnt AS INTEGER NO-UNDO. DEFINE VARIABLE l_inString AS LOGICAL NO-UNDO. REPEAT: /* Read a line. */ IMPORT STREAM _P_QS UNFORMATTED lin. /* Emergency Test. */ IF lin BEGINS "&ANALYZE-":U THEN RETURN. ASSIGN i = 0 cnt = LENGTH(lin, "CHARACTER":U). DO WHILE i < cnt: ASSIGN i = i + 1 ch = SUBSTRING(lin, i, 1, "CHARACTER":U). IF NOT l_inString THEN DO: IF ch eq '"':U THEN l_inString = yes. ELSE if ch ne ' ':U THEN RETURN. /* The line should start with spaces. */ END. ELSE DO: /* In the string. Look for the next quote. */ IF ch eq '"':U THEN RETURN. ELSE IF ch eq '~~':U THEN DO: i = i + 1. IF i <= cnt THEN ASSIGN ch = SUBSTRING(lin, i, 1, "CHARACTER":U) p_out = p_out + ch. END. ELSE p_out = p_out + ch. END. /* IF...l_inString... */ END. /* DO... */ /* If we get here, we are starting a new line, so add CHR(10) to the output string (unless the previous line ended in tilde). */ IF l_inString AND ch ne '~~':U THEN p_out = p_out + CHR(10). END. /* REPEAT:... */ END PROCEDURE. /* * ------ End of file ------- */