home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 3.0 / TESTDRIVE_3.ISO / realizer / formdev / project.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  2.1 KB  |  76 lines
  1. '***********************************************************************
  2. '    FormDev: Project.RLZ
  3. '
  4. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  5. '    All rights reserved.
  6. '
  7. '***********************************************************************
  8.  
  9. _EOLN = Chr$(13) + Chr$(10)
  10.  
  11. FUNC SubLinks(code, tabs)
  12.     LOCAL p, q, done, match, line, oldCS
  13.  
  14.     p = 1
  15.     done = 0
  16.     newcode = ""
  17.     WHILE NOT(done)
  18.         match = InStr(code, _EOLN, p)
  19.         IF match = 0 THEN
  20.             done = 1
  21.             line = Mid$(code, p)
  22.         ELSE
  23.             line = Mid$(code, p, match - p + 2)
  24.             p = match + 2
  25.         END IF
  26.         oldCS = QSys(_CaseSensitive)
  27.         SetSys(_CaseSensitive, 0)
  28.         match = InStr(line, "LINK(", 1)
  29.         SetSys(_CaseSensitive, oldCS)
  30.         IF match THEN
  31.             m2 = InStr(line, ")", match + 5)
  32.             linkform = Mid$(line, match + 5, m2 - (match+5))
  33.             IF InStr(line, "=", 1) THEN        'Expecting a modal form
  34.                 newcode = newcode + tabs + "Make" + linkform + _EOLN
  35.                 newcode = newcode + tabs + Mid$(line, 1, match-1) + "Modal" + linkform + _EOLN
  36.                 newcode = newcode + tabs + "FormSelect(form" + theform.name + ")" +  _EOLN
  37.             ELSE                        'Expecting a modeless form
  38.                 newcode = newcode + tabs + "Make" + linkform + _EOLN
  39.                 newcode = newcode + tabs + "FormSelect(form" + linkform + ")" + _EOLN
  40.                 newcode = newcode + tabs + "FormControl(_Show)" + _EOLN
  41.                 newcode = newcode + tabs + "FormSelect(form" + theform.name + ")" +  _EOLN
  42.             END IF
  43.         ELSE
  44.             newcode = newcode + tabs + line
  45.         END IF
  46.     END WHILE
  47.     RETURN newcode
  48. END FUNC
  49.                 
  50. PROC ListOfLinks(code, list)
  51.     LOCAL p, q, done, match, line, oldCS
  52.  
  53.     p = 1
  54.     done = 0
  55.     newcode = ""
  56.     WHILE NOT(done)
  57.         match = InStr(code, _EOLN, p)
  58.         IF match = 0 THEN
  59.             done = 1
  60.             line = Mid$(code, p)
  61.         ELSE
  62.             line = Mid$(code, p, match - p + 2)
  63.             p = match + 2
  64.         END IF
  65.         oldCS = QSys(_CaseSensitive)
  66.         SetSys(_CaseSensitive, 0)
  67.         match = InStr(line, "LINK(", 1)
  68.         SetSys(_CaseSensitive, oldCS)
  69.         IF match THEN
  70.             m2 = InStr(line, ")", match + 5)
  71.             linkform = Mid$(line, match + 5, m2 - (match+5))
  72.             list[endvalid(list) + 1] = linkform
  73.         END IF
  74.     END WHILE
  75. END PROC
  76.