See More

REVO5500  LiveCode Docs Editor @  ¨ Âɏ ÀGfunction libDocumentationOldFormat pData, pFileToDirectory, pLinkLookup --libReplaceLinks rData, pFileToDirectory, pLinkLookup //if offset ("2520", rData) > 0 or offset ("2364", rData) > 0then //breakpoint //end if if offset ("", pData) > 0 then // do the glossary specific stuff else // do the dictionary specific stuff put libUpdateSyntaxExamples(pData) into pData put libUpdateObjects(pData) into pData put libUpdateReferences(pData) into pData put libUpdateClassification(pData) into pData put libUpdateHistory(pData) into pData put libUpdatePlatforms(pData) into pData put libUpdateClasses(pData) into pData put libUpdateSecurity(pData) into pData put libUpdateExampleExamples(pData) into pData put libUpdateParameters(pData) into pData put libUpdateDescription(pData) into pData put libRemoveObsolete(pData) into pData put libUpdateGeneral(pData) into pData end if return pData end libDocumentationOldFormat function libUpdateSyntaxExamples pData // updates the notation local tTextToReplace, tReplaceWith, tTextStart, tTextEnd put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToReplace if tTextToReplace is empty then breakpoint else put tTextToReplace into tReplaceWith replace "" with "

" in tReplaceWith replace "

" with "

" in tReplaceWith replace "

" with "

" in tReplaceWith replace "

" with "" in tReplaceWith replace tTextToReplace with tReplaceWith in pData end if return pData end libUpdateSyntaxExamples function libUpdateObjects pData // updates the ... notation local tTextToReplace, tReplaceWith, tTextStart, tTextEnd put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToReplace if tTextToReplace is empty then breakpoint else put "--text--" into tReplaceWith if offset ("", tTextToReplace) > 0 then replace "--text--" with "card,--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--text--" with "stack,--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--text--" with "group,--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--text--" with "field,--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--text--" with "button,--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--text--" with "graphic,--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--text--" with "scrollbar,--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--text--" with "player,--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--text--" with "image,--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--text--" with "iosBrowser,--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--text--" with "iosScroller,--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--text--" with "iosPlayer,--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--text--" with "iosTextInput,--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--text--" with "AndroidScroller,--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--text--" with "AndroidBrowser,--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--text--" with "AndroidPlayer,--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--text--" with "androidTextInput,--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--text--" with "androidMultiline,--text--" in tReplaceWith end if replace ",--text--" with "" in tReplaceWith replace "--text--" with "" in tReplaceWith replace tTextToReplace with tReplaceWith in pData end if return pData end libUpdateObjects function libUpdateReferences pData // updates the notation replace "" with "" in pData replace "" with "" in pData return pData end libUpdateReferences function libUpdateClassification pData // updates the notation replace "" with "" in pData replace "" with "" in pData return pData end libUpdateClassification function libUpdateHistory pData // updates the notation replace "" with "" in pData replace "" with "" in pData return pData end libUpdateHistory function libUpdatePlatforms pData // updates the ... notation replace "" with "" in pData replace "" with "" in pData replace "" with "" in pData replace "" with "" in pData replace "" with "" in pData replace "" with "" in pData replace "" with "" in pData return pData end libUpdatePlatforms function libUpdateClasses pData // updates the ... notation local tTextToReplace, tReplaceWith, tTextStart, tTextEnd put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToReplace if tTextToReplace is empty then breakpoint else put "--and----text--" into tReplaceWith if offset ("", tTextToReplace) > 0 then replace "--and--" with", " in tReplaceWith replace "--text--" with "--and--Desktop--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--and--" with", " in tReplaceWith replace "--text--" with "--and--Server--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--and--" with", " in tReplaceWith replace "--text--" with "--and--Web--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--and--" with", " in tReplaceWith replace "--text--" with "--and--Mobile--text--" in tReplaceWith end if replace ", , " with "" in tReplaceWith replace "--and----text--" with "" in tReplaceWith replace "--text--" with "" in tReplaceWith replace ", --and--" with "" in tReplaceWith replace "--and--" with " and " in tReplaceWith replace tTextToReplace with tReplaceWith in pData end if return pData end libUpdateClasses function libUpdateExampleExamples pData // updates the notation local tTextToReplace, tReplaceWith, tTextStart, tTextEnd, tCurrentExampleToReplace, tCurrentExampleToReplaceWith, tDoubleLineSpace, tExampleFound, tFirstExample put true into tFirstExample put true into tExampleFound put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToReplace if tTextToReplace is empty then breakpoint else if offset ("

", tTextToReplace) > 0 then put true into tDoubleLineSpace else put false into tDoubleLineSpace end if put tTextToReplace into tReplaceWith repeat while true put libGetTextLocation (tReplaceWith, "", "", tTextStart, tTextEnd) into tCurrentExampleToReplace if tCurrentExampleToReplace is empty then exit repeat end if put tCurrentExampleToReplace into tCurrentExampleToReplaceWith if tDoubleLineSpace is true and tFirstExample is false then replace "" with "

" in tCurrentExampleToReplaceWith else replace "" with "

" in tCurrentExampleToReplaceWith end if replace "

" with "

" in tCurrentExampleToReplaceWith replace tCurrentExampleToReplace with tCurrentExampleToReplaceWith in tReplaceWith if tFirstExample is true then put false into tFirstExample end if end repeat replace "" with "" in tReplaceWith replace "" with "" in tReplaceWith replace "

" with "

" in tReplaceWith replace "

" with "" in tReplaceWith replace tTextToReplace with tReplaceWith in pData end if return pData end libUpdateExampleExamples function libUpdateParametersA pData // updates the // // // // // // // // // local tTextToReplace , tTextToReplaceWith, tCurrentParameterToReplace, tCurrentParameterToReplaceWith, tCurrentParameterNameToReplace, tCurrentParameterNameToReplaceWith local tCurrentParameterDescriptionToReplace, tCurrentParameterDescriptionToReplaceWith, tCurrentParameterOptionsToReplace, tCurrentParameterOptionsToReplaceWith local tCurrentParameterOptionsOptionToReplace, tCurrentParameterOptionsOptionToReplaceWith local tCurrentParameterOptionsOptionItemToReplace, tCurrentParameterOptionsOptionItemToReplaceWith local tCurrentParameterOptionsOptionDescriptionToReplace, tCurrentParameterOptionsOptionDescriptionToReplaceWith local tCurrentParameterOptionsOptionValuesToReplace, tCurrentParameterOptionsOptionValuesToReplaceWith local tCurrentParameterOptionsOptionValuesValueToReplace, tCurrentParameterOptionsOptionValuesValueToReplaceWith local tCurrentParameterOptionsOptionValuesValueNameToReplace, tCurrentParameterOptionsOptionValuesValueNameToReplaceWith local tCurrentParameterOptionsOptionValuesValueDescriptionToReplace, tCurrentParameterOptionsOptionValuesValueDescriptionToReplaceWith local tTextStart, tTextEnd, tStrip, tOptionsTitle, tOptionsTitleWith put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToReplace if the number of lines in tTextToReplace <= 2 and the number of characters in tTextToReplace < 30 then replace tTextToReplace with "" in pData else put tTextToReplace into tTextToReplaceWith // HANDLE THE PARAMETERS repeat while true put libGetTextLocation (tTextToReplaceWith, "", "", tTextStart, tTextEnd) into tCurrentParameterToReplace if tCurrentParameterToReplace is empty then exit repeat end if put tCurrentParameterToReplace into tCurrentParameterToReplaceWith put libGetTextLocation (tCurrentParameterToReplaceWith, "", "", tTextStart, tTextEnd) into tCurrentParameterNameToReplace if tCurrentParameterNameToReplace is not empty then put tCurrentParameterNameToReplace into tCurrentParameterNameToReplaceWith replace "" with "" in tCurrentParameterNameToReplaceWith replace "" with "<#S#><#S#>" in tCurrentParameterNameToReplaceWith replace tCurrentParameterNameToReplace with tCurrentParameterNameToReplaceWith in tCurrentParameterToReplaceWith end if put libGetTextLocation (tCurrentParameterToReplaceWith, "", "", tTextStart, tTextEnd) into tCurrentParameterDescriptionToReplace if tCurrentParameterDescriptionToReplace is not empty then put tCurrentParameterDescriptionToReplace into tCurrentParameterDescriptionToReplaceWith replace "" with "<#E#><#E#> - " in tCurrentParameterDescriptionToReplaceWith replace "" with "" in tCurrentParameterDescriptionToReplaceWith replace tCurrentParameterDescriptionToReplace with tCurrentParameterDescriptionToReplaceWith in tCurrentParameterToReplaceWith end if // HANDLE OPTIONS repeat while true put libGetTextLocation (tCurrentParameterToReplaceWith, "", tTextStart, tTextEnd) into tCurrentParameterOptionsToReplace if tCurrentParameterOptionsToReplace is empty then exit repeat end if put tCurrentParameterOptionsToReplace into tCurrentParameterOptionsToReplaceWith // HANDLE THE OPTIONS TITLE put libGetTextLocation (tCurrentParameterOptionsToReplaceWith, "title=" & quote, quote & ">", tTextStart, tTextEnd) into tOptionsTitle put tOptionsTitle into tOptionsTitleWith replace "title=" & quote with "

" in tOptionsTitleWith replace quote & ">" with "

" in tOptionsTitleWith replace tOptionsTitle with tOptionsTitleWith in tCurrentParameterOptionsToReplaceWith repeat while true put libGetTextLocation (tCurrentParameterOptionsToReplaceWith, "", tTextStart, tTextEnd) into tCurrentParameterOptionsOptionToReplace if tCurrentParameterOptionsOptionToReplace is empty then exit repeat end if put tCurrentParameterOptionsOptionToReplace into tCurrentParameterOptionsOptionToReplaceWith put libGetTextLocation (tCurrentParameterOptionsOptionToReplaceWith, "", "", tTextStart, tTextEnd) into tCurrentParameterOptionsOptionItemToReplace if tCurrentParameterOptionsOptionItemToReplace is not empty then put tCurrentParameterOptionsOptionItemToReplace into tCurrentParameterOptionsOptionItemToReplaceWith replace "" with "

* " in tCurrentParameterOptionsOptionItemToReplaceWith replace "

" with "<#S#><#S#>" in tCurrentParameterOptionsOptionItemToReplaceWith replace tCurrentParameterOptionsOptionItemToReplace with tCurrentParameterOptionsOptionItemToReplaceWith in tCurrentParameterOptionsOptionToReplaceWith end if put libGetTextLocation (tCurrentParameterOptionsOptionToReplaceWith, "", "", tTextStart, tTextEnd) into tCurrentParameterOptionsOptionDescriptionToReplace if tCurrentParameterOptionsOptionDescriptionToReplace is not empty then put tCurrentParameterOptionsOptionDescriptionToReplace into tCurrentParameterOptionsOptionDescriptionToReplaceWith replace "" with "<#E#><#E#> - " in tCurrentParameterOptionsOptionDescriptionToReplaceWith replace "" with "" in tCurrentParameterOptionsOptionDescriptionToReplaceWith replace tCurrentParameterOptionsOptionDescriptionToReplace with tCurrentParameterOptionsOptionDescriptionToReplaceWith in tCurrentParameterOptionsOptionToReplaceWith end if // HANDLE VALUES put libGetTextLocation (tCurrentParameterOptionsOptionToReplaceWith, "", "", tTextStart, tTextEnd) into tCurrentParameterOptionsOptionValuesToReplace if tCurrentParameterOptionsOptionValuesToReplace is not empty then put tCurrentParameterOptionsOptionValuesToReplace into tCurrentParameterOptionsOptionValuesToReplaceWith repeat while true put libGetTextLocation (tCurrentParameterOptionsOptionValuesToReplaceWith, "", "", tTextStart, tTextEnd) into tCurrentParameterOptionsOptionValuesValueToReplace if tCurrentParameterOptionsOptionValuesValueToReplace is empty then exit repeat end if put tCurrentParameterOptionsOptionValuesValueToReplace into tCurrentParameterOptionsOptionValuesValueToReplaceWith put libGetTextLocation (tCurrentParameterOptionsOptionValuesValueToReplaceWith, "", "", tTextStart, tTextEnd) into tCurrentParameterOptionsOptionValuesValueNameToReplace if offset ("", tCurrentParameterOptionsOptionValuesValueToReplaceWith) > 0 then replace "" with "" in tCurrentParameterOptionsOptionValuesValueToReplaceWith if tCurrentParameterOptionsOptionValuesValueNameToReplace is not empty then put tCurrentParameterOptionsOptionValuesValueNameToReplace into tCurrentParameterOptionsOptionValuesValueNameToReplaceWith replace "" with "

* " in tCurrentParameterOptionsOptionValuesValueNameToReplaceWith replace "

" with "" in tCurrentParameterOptionsOptionValuesValueNameToReplaceWith replace tCurrentParameterOptionsOptionValuesValueNameToReplace with tCurrentParameterOptionsOptionValuesValueNameToReplaceWith in tCurrentParameterOptionsOptionValuesValueToReplaceWith end if else if tCurrentParameterOptionsOptionValuesValueNameToReplace is not empty then put tCurrentParameterOptionsOptionValuesValueNameToReplace into tCurrentParameterOptionsOptionValuesValueNameToReplaceWith replace "" with "

* " in tCurrentParameterOptionsOptionValuesValueNameToReplaceWith replace "

" with "<#S#><#S#>" in tCurrentParameterOptionsOptionValuesValueNameToReplaceWith replace tCurrentParameterOptionsOptionValuesValueNameToReplace with tCurrentParameterOptionsOptionValuesValueNameToReplaceWith in tCurrentParameterOptionsOptionValuesValueToReplaceWith end if put libGetTextLocation (tCurrentParameterOptionsOptionValuesValueToReplaceWith, "", "", tTextStart, tTextEnd) into tCurrentParameterOptionsOptionValuesValueDescriptionToReplace if tCurrentParameterOptionsOptionValuesValueDescriptionToReplace is not empty then put tCurrentParameterOptionsOptionValuesValueDescriptionToReplace into tCurrentParameterOptionsOptionValuesValueDescriptionToReplaceWith replace "" with "<#E#><#E#> - " in tCurrentParameterOptionsOptionValuesValueDescriptionToReplaceWith replace "" with "" in tCurrentParameterOptionsOptionValuesValueDescriptionToReplaceWith replace tCurrentParameterOptionsOptionValuesValueDescriptionToReplace with tCurrentParameterOptionsOptionValuesValueDescriptionToReplaceWith in tCurrentParameterOptionsOptionValuesValueToReplaceWith end if end if replace "" with "

" in tCurrentParameterOptionsOptionValuesValueToReplaceWith replace "

" with "" in tCurrentParameterOptionsOptionValuesValueToReplaceWith replace tCurrentParameterOptionsOptionValuesValueToReplace with tCurrentParameterOptionsOptionValuesValueToReplaceWith in tCurrentParameterOptionsOptionValuesToReplaceWith end repeat replace "" with "

" in tCurrentParameterOptionsOptionValuesToReplaceWith replace "

" with "" in tCurrentParameterOptionsOptionValuesToReplaceWith replace tCurrentParameterOptionsOptionValuesToReplace with tCurrentParameterOptionsOptionValuesToReplaceWith in tCurrentParameterOptionsToReplaceWith end if replace "" with "" in tCurrentParameterOptionsOptionToReplaceWith replace tCurrentParameterOptionsOptionToReplace with tCurrentParameterOptionsOptionToReplaceWith in tCurrentParameterOptionsToReplaceWith end repeat replace "" in tCurrentParameterOptionsToReplaceWith replace "" with "" in tCurrentParameterOptionsToReplaceWith replace tCurrentParameterOptionsToReplace with tCurrentParameterOptionsToReplaceWith in tCurrentParameterToReplaceWith end repeat replace "" with "

" in tCurrentParameterToReplaceWith replace "

" with "" in tCurrentParameterToReplaceWith replace tCurrentParameterToReplace with tCurrentParameterToReplaceWith in tTextToReplaceWith end repeat replace "" with "

" in tTextToReplaceWith replace "

" with "" in tTextToReplaceWith // STRIP OUT ALL MARKED BREAKS repeat while true put libGetTextLocation (tTextToReplaceWith, "<#S#><#S#>", "<#E#><#E#>", tTextStart, tTextEnd) into tStrip if tStrip is empty then exit repeat end if replace tStrip with "" in tTextToReplaceWith end repeat // STRIP OUT THE tags replace tTextToReplace with tTextToReplaceWith in pData end if return pData end libUpdateParametersA function libUpdateParameters pData // updates the // // // // // // // // // local tTextToReplace , tTextToReplaceWith, tCurrentParameterToReplace, tCurrentParameterToReplaceWith, tCurrentParameterNameToReplace, tCurrentParameterNameToReplaceWith local tCurrentParameterDescriptionToReplace, tCurrentParameterDescriptionToReplaceWith, tCurrentParameterOptionsToReplace, tCurrentParameterOptionsToReplaceWith local tCurrentParameterOptionsOptionToReplace, tCurrentParameterOptionsOptionToReplaceWith local tCurrentParameterOptionsOptionItemToReplace, tCurrentParameterOptionsOptionItemToReplaceWith local tCurrentParameterOptionsOptionDescriptionToReplace, tCurrentParameterOptionsOptionDescriptionToReplaceWith local tCurrentParameterOptionsOptionValuesToReplace, tCurrentParameterOptionsOptionValuesToReplaceWith local tCurrentParameterOptionsOptionValuesValueToReplace, tCurrentParameterOptionsOptionValuesValueToReplaceWith local tCurrentParameterOptionsOptionValuesValueNameToReplace, tCurrentParameterOptionsOptionValuesValueNameToReplaceWith local tCurrentParameterOptionsOptionValuesValueDescriptionToReplace, tCurrentParameterOptionsOptionValuesValueDescriptionToReplaceWith local tTextStart, tTextEnd, tStrip, tOptionsTitle, tOptionsTitleWith put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToReplace if the number of lines in tTextToReplace <= 2 and the number of characters in tTextToReplace < 30 then if tTextToReplace is not empty then replace tTextToReplace with "" in pData end if else put tTextToReplace into tTextToReplaceWith // HANDLE THE PARAMETERS repeat while true put libGetTextLocation (tTextToReplaceWith, "", "", tTextStart, tTextEnd) into tCurrentParameterToReplace if tCurrentParameterToReplace is empty then exit repeat end if put tCurrentParameterToReplace into tCurrentParameterToReplaceWith put libGetTextLocation (tCurrentParameterToReplaceWith, "", "", tTextStart, tTextEnd) into tCurrentParameterNameToReplace if tCurrentParameterNameToReplace is not empty then put tCurrentParameterNameToReplace into tCurrentParameterNameToReplaceWith replace "" with "" in tCurrentParameterNameToReplaceWith replace "" with "<#S#><#S#>" in tCurrentParameterNameToReplaceWith replace tCurrentParameterNameToReplace with tCurrentParameterNameToReplaceWith in tCurrentParameterToReplaceWith end if put libGetTextLocation (tCurrentParameterToReplaceWith, "", "", tTextStart, tTextEnd) into tCurrentParameterDescriptionToReplace if tCurrentParameterDescriptionToReplace is not empty then put tCurrentParameterDescriptionToReplace into tCurrentParameterDescriptionToReplaceWith replace "" with "<#E#><#E#> - " in tCurrentParameterDescriptionToReplaceWith replace "" with "" in tCurrentParameterDescriptionToReplaceWith replace tCurrentParameterDescriptionToReplace with tCurrentParameterDescriptionToReplaceWith in tCurrentParameterToReplaceWith end if // HANDLE OPTIONS repeat while true put libGetTextLocation (tCurrentParameterToReplaceWith, "", tTextStart, tTextEnd) into tCurrentParameterOptionsToReplace if tCurrentParameterOptionsToReplace is empty then exit repeat end if put tCurrentParameterOptionsToReplace into tCurrentParameterOptionsToReplaceWith // HANDLE THE OPTIONS TITLE put libGetTextLocation (tCurrentParameterOptionsToReplaceWith, "title=" & quote, quote & ">", tTextStart, tTextEnd) into tOptionsTitle put tOptionsTitle into tOptionsTitleWith if tOptionsTitleWith is not ("title="&quote&quote&">") and tOptionsTitleWith is not empty then replace "title=" & quote with ("

") in tOptionsTitleWith replace quote & ">" with "

    " in tOptionsTitleWith replace tOptionsTitle with tOptionsTitleWith in tCurrentParameterOptionsToReplaceWith else replace tOptionsTitle with "
      " in tCurrentParameterOptionsToReplaceWith end if repeat while true put libGetTextLocation (tCurrentParameterOptionsToReplaceWith, "", tTextStart, tTextEnd) into tCurrentParameterOptionsOptionToReplace if tCurrentParameterOptionsOptionToReplace is empty then exit repeat end if put tCurrentParameterOptionsOptionToReplace into tCurrentParameterOptionsOptionToReplaceWith put libGetTextLocation (tCurrentParameterOptionsOptionToReplaceWith, "", "", tTextStart, tTextEnd) into tCurrentParameterOptionsOptionItemToReplace if tCurrentParameterOptionsOptionItemToReplace is not empty then put tCurrentParameterOptionsOptionItemToReplace into tCurrentParameterOptionsOptionItemToReplaceWith replace "" with "
    • " in tCurrentParameterOptionsOptionItemToReplaceWith replace "
      • " with "<#S#><#S#>" in tCurrentParameterOptionsOptionItemToReplaceWith replace tCurrentParameterOptionsOptionItemToReplace with tCurrentParameterOptionsOptionItemToReplaceWith in tCurrentParameterOptionsOptionToReplaceWith end if put libGetTextLocation (tCurrentParameterOptionsOptionToReplaceWith, "", "", tTextStart, tTextEnd) into tCurrentParameterOptionsOptionDescriptionToReplace if tCurrentParameterOptionsOptionDescriptionToReplace is not empty then put tCurrentParameterOptionsOptionDescriptionToReplace into tCurrentParameterOptionsOptionDescriptionToReplaceWith replace "" with "<#E#><#E#> - " in tCurrentParameterOptionsOptionDescriptionToReplaceWith replace "" with "" in tCurrentParameterOptionsOptionDescriptionToReplaceWith replace tCurrentParameterOptionsOptionDescriptionToReplace with tCurrentParameterOptionsOptionDescriptionToReplaceWith in tCurrentParameterOptionsOptionToReplaceWith else if offset ("", tCurrentParameterOptionsOptionToReplaceWith) > 0 then replace "" with "<#E#><#E#>" in tCurrentParameterOptionsOptionToReplaceWith end if end if // HANDLE VALUES put libGetTextLocation (tCurrentParameterOptionsOptionToReplaceWith, "", "", tTextStart, tTextEnd) into tCurrentParameterOptionsOptionValuesToReplace if tCurrentParameterOptionsOptionValuesToReplace is not empty then put tCurrentParameterOptionsOptionValuesToReplace into tCurrentParameterOptionsOptionValuesToReplaceWith repeat while true put libGetTextLocation (tCurrentParameterOptionsOptionValuesToReplaceWith, "", "", tTextStart, tTextEnd) into tCurrentParameterOptionsOptionValuesValueToReplace if tCurrentParameterOptionsOptionValuesValueToReplace is empty then exit repeat end if put tCurrentParameterOptionsOptionValuesValueToReplace into tCurrentParameterOptionsOptionValuesValueToReplaceWith put libGetTextLocation (tCurrentParameterOptionsOptionValuesValueToReplaceWith, "", "", tTextStart, tTextEnd) into tCurrentParameterOptionsOptionValuesValueNameToReplace if offset ("", tCurrentParameterOptionsOptionValuesValueToReplaceWith) > 0 then replace "" with "" in tCurrentParameterOptionsOptionValuesValueToReplaceWith if tCurrentParameterOptionsOptionValuesValueNameToReplace is not empty then put tCurrentParameterOptionsOptionValuesValueNameToReplace into tCurrentParameterOptionsOptionValuesValueNameToReplaceWith replace "" with "" in tCurrentParameterOptionsOptionValuesValueNameToReplaceWith replace "" with "" in tCurrentParameterOptionsOptionValuesValueNameToReplaceWith replace tCurrentParameterOptionsOptionValuesValueNameToReplace with tCurrentParameterOptionsOptionValuesValueNameToReplaceWith in tCurrentParameterOptionsOptionValuesValueToReplaceWith end if else if tCurrentParameterOptionsOptionValuesValueNameToReplace is not empty then put tCurrentParameterOptionsOptionValuesValueNameToReplace into tCurrentParameterOptionsOptionValuesValueNameToReplaceWith replace "" with "" in tCurrentParameterOptionsOptionValuesValueNameToReplaceWith replace "" with "<#S#><#S#>" in tCurrentParameterOptionsOptionValuesValueNameToReplaceWith replace tCurrentParameterOptionsOptionValuesValueNameToReplace with tCurrentParameterOptionsOptionValuesValueNameToReplaceWith in tCurrentParameterOptionsOptionValuesValueToReplaceWith end if put libGetTextLocation (tCurrentParameterOptionsOptionValuesValueToReplaceWith, "", "", tTextStart, tTextEnd) into tCurrentParameterOptionsOptionValuesValueDescriptionToReplace if tCurrentParameterOptionsOptionValuesValueDescriptionToReplace is not empty then put tCurrentParameterOptionsOptionValuesValueDescriptionToReplace into tCurrentParameterOptionsOptionValuesValueDescriptionToReplaceWith replace "" with "<#E#><#E#> - " in tCurrentParameterOptionsOptionValuesValueDescriptionToReplaceWith replace "" with "" in tCurrentParameterOptionsOptionValuesValueDescriptionToReplaceWith replace tCurrentParameterOptionsOptionValuesValueDescriptionToReplace with tCurrentParameterOptionsOptionValuesValueDescriptionToReplaceWith in tCurrentParameterOptionsOptionValuesValueToReplaceWith end if end if replace "" with "
    • " in tCurrentParameterOptionsOptionValuesValueToReplaceWith replace "
      • " with "" in tCurrentParameterOptionsOptionValuesValueToReplaceWith replace tCurrentParameterOptionsOptionValuesValueToReplace with tCurrentParameterOptionsOptionValuesValueToReplaceWith in tCurrentParameterOptionsOptionValuesToReplaceWith end repeat replace "" with "
        " in tCurrentParameterOptionsOptionValuesToReplaceWith replace "
      " with "
    " in tCurrentParameterOptionsOptionValuesToReplaceWith replace tCurrentParameterOptionsOptionValuesToReplace with tCurrentParameterOptionsOptionValuesToReplaceWith in tCurrentParameterOptionsToReplaceWith end if replace "" with "
" in tCurrentParameterOptionsOptionToReplaceWith replace tCurrentParameterOptionsOptionToReplace with tCurrentParameterOptionsOptionToReplaceWith in tCurrentParameterOptionsToReplaceWith end repeat replace "" with "" in tCurrentParameterOptionsToReplaceWith replace tCurrentParameterOptionsToReplace with tCurrentParameterOptionsToReplaceWith in tCurrentParameterToReplaceWith end repeat replace "" with "

" in tCurrentParameterToReplaceWith replace "

" with "" in tCurrentParameterToReplaceWith replace tCurrentParameterToReplace with tCurrentParameterToReplaceWith in tTextToReplaceWith end repeat replace "" with "

Parameters:

" in tTextToReplaceWith replace "" with "" in tTextToReplaceWith // STRIP OUT ALL MARKED BREAKS repeat while true put libGetTextLocation (tTextToReplaceWith, "<#S#><#S#>", "<#E#><#E#>", tTextStart, tTextEnd) into tStrip if tStrip is empty then exit repeat end if replace tStrip with "" in tTextToReplaceWith end repeat // STRIP OUT THE tags replace tTextToReplace with tTextToReplaceWith in pData end if replace " " with "" in pData return pData end libUpdateParameters function libUpdateDescription pData local tTemp // strip the overview, parameters, value and comments tags out of the description tags local tTextToReplace, tTextToReplaceSub, tReplaceWith, tTextStart, tTextEnd, tTextStartSub, tTextEndSub, tPTagRequired put false into tPTagRequired put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToReplace if tTextToReplace is empty then breakpoint else put tTextToReplace into tReplaceWith // process the overview tags put libGetTextLocation (tReplaceWith, "", "", tTextStartSub, tTextEndSub) into tTextToReplaceSub if tTextToReplaceSub is not empty then put the number of characters in tTextToReplaceSub into tTemp if the number of lines in tTextToReplaceSub <= 2 and the number of characters in tTextToReplaceSub < 26 then replace tTextToReplaceSub with "" in tReplaceWith else replace "" with "

" in tReplaceWith replace "

" with "" in tReplaceWith put true into tPTagRequired end if end if // process the parameter tags /* put libGetTextLocation (tReplaceWith, "", "", tTextStartSub, tTextEndSub) into tTextToReplaceSub if tTextToReplaceSub is not empty then put the number of characters in tTextToReplaceSub into tTemp if the number of lines in tTextToReplaceSub <= 2 and the number of characters in tTextToReplaceSub < 30 then replace tTextToReplaceSub with "" in tReplaceWith else if tPTagRequired is true then replace "" with "

Parameters:

" in tReplaceWith else replace "" with "

Parameters:

" in tReplaceWith put true into tPTagRequired end if replace "

" with "

" in tReplaceWith replace "" with "

" in tReplaceWith replace "

" with "" in tReplaceWith end if end if */ // process the value tags put libGetTextLocation (tReplaceWith, "", "", tTextStartSub, tTextEndSub) into tTextToReplaceSub if tTextToReplaceSub is not empty then put the number of characters in tTextToReplaceSub into tTemp if the number of lines in tTextToReplaceSub <= 2 and the number of characters in tTextToReplaceSub < 20 then replace tTextToReplaceSub with "" in tReplaceWith else if tPTagRequired is true then replace "" with "

Value:

" in tReplaceWith else replace "" with "

Value:

" in tReplaceWith put true into tPTagRequired end if replace "

" with "

" in tReplaceWith end if end if // process the comments tags put libGetTextLocation (tReplaceWith, "", "", tTextStartSub, tTextEndSub) into tTextToReplaceSub if tTextToReplaceSub is not empty then put the number of characters in tTextToReplaceSub into tTemp if the number of lines in tTextToReplaceSub <= 2 and the number of characters in tTextToReplaceSub < 26 then replace tTextToReplaceSub with "" in tReplaceWith else if tPTagRequired is true then replace "" with "

Comments:

" in tReplaceWith else replace "" with "

Comments:

" in tReplaceWith put true into tPTagRequired end if replace "

" with "

" in tReplaceWith end if end if replace tTextToReplace with tReplaceWith in pData end if return pData end libUpdateDescription function libRemoveObsolete pData // removes XML tags that contain no data // this is needed to suppress referring headings local tTextToReplace, tReplaceWith, tTextStart, tTextEnd replace "" with "" in pData put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToReplace if the number of lines in tTextToReplace is 2 then replace tTextToReplace with "" in pData end if put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToReplace if the number of lines in tTextToReplace is 2 then replace tTextToReplace with "" in pData end if put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToReplace if the number of lines in tTextToReplace is 2 then replace tTextToReplace with "" in pData end if put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToReplace if the number of lines in tTextToReplace is 2 then replace tTextToReplace with "" in pData end if return pData end libRemoveObsolete --function libUpdateGeneral pData -- // updates the notation -- // updates the notation -- // updates the notation -- // updates the notation -- // updates the notation -- // updates the notation -- replace "" with "" in pData -- replace "" with "" in pData -- replace "" with "" in pData -- replace "" with "" in pData -- replace "" with "" in pData -- replace "" with "" in pData -- replace "" with "" in pData -- replace "" with "" in pData -- replace "" with "" in pData -- replace "" with "" in pData -- replace "" with "" in pData -- replace "" with "" in pData -- return pData --end libUpdateGeneral function libUpdateGeneral pData local tTextStart, tTextEnd, tTextToUpdate // updates the notation put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToUpdate if tTextToUpdate is not empty then replace "" with "Warning: " in pData replace "" with "" in pData end if // updates the notation put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToUpdate if tTextToUpdate is not empty then replace "" with "Note: " in pData replace "" with "" in pData end if // updates the notation put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToUpdate if tTextToUpdate is not empty then replace "" with "Cross-platform note: " in pData replace "" with "" in pData end if // updates the notation put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToUpdate if tTextToUpdate is not empty then replace "" with " Caution! " in pData replace "" with "" in pData end if // updates the notation put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToUpdate if tTextToUpdate is not empty then replace "" with " Cross-platform caution! " in pData replace "" with "" in pData end if // updates the notation put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToUpdate if tTextToUpdate is not empty then replace "" with "Changes: " in pData replace "" with "" in pData end if // updates the notation put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToUpdate if tTextToUpdate is not empty then replace "" with "Tip: " in pData replace "" with "" in pData end if // updates the notation put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToUpdate if tTextToUpdate is not empty then replace "" with "Important! " in pData replace "" with "" in pData end if // strip out caution images replace " " with "" in pData replace "" with "" in pData // strip out tip images replace " " with "" in pData replace "" with "" in pData // strip out cross-platform note images replace " " with "" in pData replace "" with "" in pData // strip out important and gotcha images replace " " with "" in pData replace "" with "" in pData // strip out cross-platform note images replace " " with "" in pData replace "" with "" in pData return pData end libUpdateGeneral private function libGetTextLocation, pData, pStartToken, pEndToken, @rStart, @rEnd local tTextFound put empty into tTextFound put offset (pStartToken, pData) into rStart put offset (pEndToken, pData) into rEnd if rStart > rEnd then exit libGetTextLocation breakpoint end if if rStart is not 0 and rEnd is not 0 then put rEnd + the length of pEndToken - 1 into rEnd put char rStart to rEnd of pData into tTextFound end if return tTextFound end libGetTextLocation function libUpdateSecurity pData // updates the ... notation local tTextToReplace, tReplaceWith, tTextStart, tTextEnd, tTempReplaceWith put libGetTextLocation (pData, "", "", tTextStart, tTextEnd) into tTextToReplace if tTextToReplace is empty then breakpoint else put "--and----text--" into tReplaceWith if offset ("", tTextToReplace) > 0 then replace "--and--" with", " in tReplaceWith replace "--text--" with "--and--Disk--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--and--" with", " in tReplaceWith replace "--text--" with "--and--Disk--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--and--" with", " in tReplaceWith replace "--text--" with "--and--Network--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--and--" with", " in tReplaceWith replace "--text--" with "--and--Process--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--and--" with", " in tReplaceWith replace "--text--" with "--and--RegistryRead--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--and--" with", " in tReplaceWith replace "--text--" with "--and--RegistryWrite--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--and--" with", " in tReplaceWith replace "--text--" with "--and--Stack--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--and--" with", " in tReplaceWith replace "--text--" with "--and--Printing--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--and--" with", " in tReplaceWith replace "--text--" with "--and--Privacy--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--and--" with", " in tReplaceWith replace "--text--" with "--and--AppleScript--text--" in tReplaceWith end if if offset ("", tTextToReplace) > 0 then replace "--and--" with", " in tReplaceWith replace "--text--" with "--and--DoAlternate--text--" in tReplaceWith end if replace ", , " with "" in tReplaceWith replace "--and----text--" with "" in tReplaceWith replace "--text--" with "" in tReplaceWith replace ", --and--" with "" in tReplaceWith replace "--and--" with " and " in tReplaceWith replace tTextToReplace with tReplaceWith in pData end if return pData end libUpdateSecurity LiveCode Docs Editor ÿÿÿÿ W Segoe UI U Segoe UI cREVGeometryCache stackID 1218 cREVGeneral breakpointconditions scripteditorvscroll 1713breakpoints scripteditorselection 3217breakpointstates stackfileversion 2.7AlreadyHidden false ê card id 1002 PÑZlocal sTreeID on preopencard clearfields end preopencard on loadXML local tXMLFile, tXMLData put field "file" into tXMLFile put url ("file:" & tXMLFile) into tXMLData put tXMLData into field "xml source text" of group "xml source" ## Show the dictionary display put revCreateXMLTree(tXMLData, false, true, false) into sTreeID if sTreeID is not a number then breakpoint end if end loadXML on processXML local tTree, tDescriptionStart, tDescriptionNames, tChildNames put getTreeID() into tTree displayFormattedTagContents "/doc/legacy_id","legacy_id" displayFormattedTagContents "/doc/name","name" displayFormattedTagContents "/doc/type","type" ## Basics displayFormattedTagList "/doc/syntax", "example", "syntax" displayFormattedTagList "/doc/synonyms", "synonym", "synonyms" displayFormattedTagContents "/doc/summary", "summary" --displayFormattedTagList "/doc/examples", "example", "examples" displayExamplesList "/doc/examples", "example" ## History displayFormattedTagContents "/doc/history/introduced", "introduced", true displayFormattedTagList "/doc/history", "changed", "changed" displayFormattedTagContents "/doc/history/deprecated", "deprecated", true displayFormattedTagContents "/doc/history/removed", "removed", true displayFormattedTagContents "/doc/history/experimental", "experimental", true displayFormattedTagContents "/doc/history/nonexperimental", "nonexperimental", true ## Properties displayTagListOptions "/doc/objects", "objects" displayTagListOptions "/doc/platforms", "supported_platforms" displayTagListOptions "/doc/classes", "classes" displayTagListOptions "/doc/security", "security_settings" ## Classifications displayFormattedTagList "/doc/classification", "category", "categories" displayTagListOptions2 "/doc/classification", "concept", "concepts" ## References displayFormattedTagList "/doc/references", "function", "functions" displayFormattedTagList "/doc/references", "command", "commands" displayFormattedTagList "/doc/references", "lesson", "lessons" displayFormattedTagList "/doc/references", "link", "links" displayFormattedTagList "/doc/references", "keyword", "keywords" displayFormattedTagList "/doc/references", "message", "messages" displayFormattedTagList "/doc/references", "property", "properties" displayFormattedTagList "/doc/references", "operator", "operators" displayFormattedTagList "/doc/references", "control_st", "control_sts" ## Description ## Is this an old or new description format put revXMLChildNames(tTree,"/doc/description",comma,,true) into tDescriptionNames if tDescriptionNames contains "overview" or tDescriptionNames contains "value" or tDescriptionNames contains "comments" then ## New format ## Overview displayFormattedTagContents "/doc/description/overview", "overview" ## Parameters put revXMLChildNames(tTree,"/doc/description/parameters",comma,,true) into tChildNames if tChildNames is empty then put empty into field "parameters" else -- repeat for each item tChild in tChildNames -- if tChild contains "parameter" then -- put revXMLChildContents(tTree,"/doc/description/parameters/" & tChild,":" ,comma, false, -1) into tParameterContents -- split tParameterContents by comma and ":" -- put tParameterContents["name"] & tab & tParameterContents["description"] & return after tParameters -- end if -- end repeat -- delete the last char of tParameters -- put tParameters into field "parameters" --displayFormattedTagContents "/doc/description/parameters", "parameters" displayPartialXML "/doc/description/parameters", "parameter", "parameters" end if ## Value displayFormattedTagContents "/doc/description/value", "value" ## Comments displayFormattedTagContents "/doc/description/comments", "comments" else ## Old style description displayFormattedTagContents "/doc/description", "description" end if end processXML function buildXML local tXMLData, tFunctions, tCommands, tLessons, tLinks, tProperties, tOperators, tKeywords, tMessages, tControlStructures put "" & return after tXMLData put tab & getFormattedTagValue("legacy_id") & return after tXMLData put tab & getFormattedTagValue("name") & return after tXMLData put tab & getFormattedTagValue("type") & return after tXMLData put return after tXMLData ## Basics put tab & "" & return after tXMLData put getTagList("example","syntax") after tXMLData put tab & "" & return after tXMLData put return after tXMLData put tab & "" & return after tXMLData put getTagList("synonym","synonyms") after tXMLData put tab & "" & return after tXMLData put return after tXMLData put tab & getFormattedTagValue("summary") & return after tXMLData put return after tXMLData put tab & "" & return after tXMLData put getExampleTagList("example","examples") after tXMLData put tab & "" & return after tXMLData ## History put return after tXMLData put tab & "" & return after tXMLData put tab & tab & getTagValueWithAttributes("introduced","version") & return after tXMLData put tab & tab & getTagValueWithAttributes("deprecated","version") & return after tXMLData put tab & tab & getTagValueWithAttributes("removed","version") & return after tXMLData put tab & tab & getTagListWithAttributes("changed","changed","version") & return after tXMLData put tab & tab & getTagValueWithAttributes("experimental","version") & return after tXMLData put tab & tab & getTagValueWithAttributes("nonexperimental","version") & return after tXMLData put tab & "" & return after tXMLData put return after tXMLData ## Properties put tab & "" & return after tXMLData put getTagList(,"objects") after tXMLData put tab & "" & return after tXMLData put return after tXMLData put tab & "" & return after tXMLData put getTagList(,"supported_platforms") after tXMLData put tab & "" & return after tXMLData put return after tXMLData put tab & "" & return after tXMLData put getTagList(,"classes") after tXMLData put tab & "" & return after tXMLData put return after tXMLData put tab & "" & return after tXMLData put getTagList(,"security_settings") after tXMLData put tab & "" & return after tXMLData put return after tXMLData ## Classifications put return after tXMLData put tab & "" & return after tXMLData put getTagList("category","categories") after tXMLData put getTagList("concept","concepts") after tXMLData put tab & "" & return after tXMLData put return after tXMLData ## References put tab & "" & return after tXMLData put getTagListWithAttributes("function","functions","tag") into tFunctions put getTagListWithAttributes("command","commands","tag") into tCommands put getTagListWithAttributes("lesson","lessons","tag") into tLessons put getTagListWithAttributes("link","links","tag") into tLinks put getTagListWithAttributes("property","properties","tag") into tProperties put getTagListWithAttributes("operator","operators","tag") into tOperators put getTagListWithAttributes("keyword","keywords","tag") into tKeywords put getTagListWithAttributes("message","messages","tag") into tMessages put getTagListWithAttributes("control_st","control_sts","tag") into tControlStructures if tFunctions is not empty then put tabFormat(tFunctions,2) & return after tXMLData if tCommands is not empty then put tabFormat(tCommands,2) & return after tXMLData if tLessons is not empty then put tabFormat(tLessons,2) & return after tXMLData if tLinks is not empty then put tabFormat(tLinks,2) & return after tXMLData if tProperties is not empty then put tabFormat(tProperties,2) & return after tXMLData if tOperators is not empty then put tabFormat(tOperators,2) & return after tXMLData if tKeywords is not empty then put tabFormat(tKeywords,2) & return after tXMLData if tMessages is not empty then put tabFormat(tMessages,2) & return after tXMLData if tControlStructures is not empty then put tabFormat(tControlStructures,2) & return after tXMLData put tab & "" & return after tXMLData put return after tXMLData ## Description if field "description" is empty then ## New Style put tab & "" & return after tXMLData put tab & getFormattedTagValue("overview") & return after tXMLData put return after tXMLData //put tab & tab & "" & return after tXMLData //put getTagList("parameter","parameters") after tXMLData //put tab & tab & "" & return after tXMLData put tab & tab & "" & return after tXMLData put field "parameters" after tXMLData put tab & tab & "" & return after tXMLData --## For now use old form for parameters --put tab & getFormattedTagValue("parameters") & return after tXMLData put return after tXMLData put tab & getFormattedTagValue("value") & return after tXMLData put tab & getFormattedTagValue("comments") & return after tXMLData put tab & "" & return after tXMLData else ## Old style put tab & getFormattedTagValue("description") & return after tXMLData end if put ""after tXMLData return tXMLData end buildXML function buildOldXML local tXML put buildXML() into tXML put libDocumentationOldFormat(tXML) into tXML return tXML end buildOldXML function buildOldXML1 local tXMLData, tFunctions, tCommands, tLessons, tLinks, tKeywords, tHilitedLines, tHTMLText put "" & return after tXMLData put tab & getTagValue("name","name") & return after tXMLData put tab & getTagValue("type","type") & return after tXMLData put tab & getTagValue("syntax","syntax") & return after tXMLData put tab & "" & getTagListOld(,"objects") & "" & return after tXMLData put tab & "" & getTagListOld(,"synonyms") & "" & return after tXMLData put tab & "" & getTagListOld("category","categories") & "" & return after tXMLData put tab & "" & return after tXMLData put getTagListOld("docRef","functions") into tFunctions put getTagListOld("docRef","commands") into tCommands put getTagListOld("docRef","lessons") into tLessons put getTagListOld("docRef","links") into tLinks put getTagListOld("docRef","keywords") into tKeywords if tFunctions is not empty then put tFunctions & return after tXMLData if tCommands is not empty then put tCommands & return after tXMLData if tLessons is not empty then put tLessons & return after tXMLData if tLinks is not empty then put tLinks & return after tXMLData if tKeywords is not empty then put tKeywords & return after tXMLData put tab & "" & return after tXMLData put getOldTagValueWithAttributes("introduced","version") & return after tXMLData put getOldTagValueWithAttributes("deprecated","version") & return after tXMLData put getOldTagValueWithAttributes("removed","version") & return after tXMLData put getOldTagValueWithAttributes("changed","version") & return after tXMLData ## Platforms put the hilitedLines of field "supported_platforms" into tHilitedLines repeat for each item tLineNum in tHilitedLines put "<" & line tLineNum of field "supported_platforms" & "support=" & quote & "true" & quote & "/>" & return after tXMLData end repeat put "" & return after tXMLData put getOldTagValue("summary","summary") & return after tXMLData put getTagValue("example","examples") & return after tXMLData ## Description if field "description" is empty then -- put"

" & field ("overview") & "

" after tXMLData -- put "

" & field "parameters" & "

" after tXMLData -- put "

" & field "value" & "

" after tXMLData -- put "

" & field "comments" & "

" after tXMLData put"

" & field ("overview") after tXMLData put "

Parameters:

" & the htmlText of field "parameters" & "

" after tXMLData put "

Value:

" & the htmlText of field "value" & "

" after tXMLData put "

Comments:

" & the htmlText of field "comments" & "

" after tXMLData put "" after tXMLData else --put"

" & the htmltext of field ("description") & "

" after tXMLData ## Need the htmlText without a refs put the htmltext of field ("description") into tHTMLText replace "<" with return & "<" in tHTMLText replace ">" with ">" & return in tHTMLText replace return & return with return in tHTMLText repeat with a = 1 to the number of lines in tHTMLText if char 1 to 7 of line a of tHTMLText is "" & return) with ">" in tHTMLText put"" & tHTMLText & "" after tXMLData end if put ""after tXMLData return tXMLData end buildOldXML1 ## Display Functions on displayFormattedTagContents pNodePath, pTag local tTree, tNodeExists, tAttributes, tContents, tChildTags, x, tWordCount, tTextStyleList, tTagContents put sTreeID into tTree put revXMLNodeContents(tTree, pNodePath) into tNodeExists if tNodeExists contains "xmlerr" then set the htmlText of field pTag to empty exit displayFormattedTagContents end if ## First get the attributes put revXMLAttributes(tTree,pNodePath,comma,return) into tAttributes repeat for each line tAttribute in tAttributes put item 2 of tAttribute & tab into tContents end repeat put revXMLChildNames(tTree,pNodePath,comma,,true, true) into tChildTags put 0 into x put 0 into tWordCount put empty into tTextStyleList if tChildTags is not empty then repeat for each item tFormattingTag in tChildTags if tFormattingTag is empty then add 1 to x put revXMLNodeContents(tTree, pNodePath & "/[" & x & "]") into tTagContents replace "." with ". " in tTagContents put tTagContents after tContents else put pNodePath & "/" & tFormattingTag into tNodePath put revXMLAttributes(tTree,pNodePath,comma,return) into tAttributes put getTagFormatting(tFormattingTag, tNodePath, tTagText) into tTagContents --replace "." with ". " in tTagContents put tTagContents after tContents end if end repeat if the last char of tChildTags is comma then add 1 to x put revXMLNodeContents(tTree, pNodePath & "/[" & x & "]") into tTagContents replace "." with ". " in tTagContents put tTagContents after tContents end if else put revXMLNodeContents(tTree, pNodePath) after tContents end if set the htmlText of field pTag to tContents -- ## Tag content styling -- put revXMLChildContents(tTree, pNodePath, tab ,return, true, -1) into tFormattingContents -- if tChildTags is not empty then -- repeat for each item tFormattingTag in tChildTags -- put pNodePath & "/" & tFormattingTag into tNodePath -- put tFormattingTag & tab & revXMLChildNames(tTree, tNodePath, comma ,, true,true) & return after tAllFormattingContents -- end repeat -- end if -- put 0 into tWordCount -- repeat for each line tLine in tAllFormattingContents -- set the itemDel to tab -- put item 1 of tLine into tChildTag -- put item 2 of tLine into tContentsList -- set the itemDel to comma -- put pNodePath & "/" & tChildTag into tNodePath -- repeat for each item tTag in tContentsList -- put tNodePath & "/" & tTag into tNodeTagPath -- put revXMLNodeContents(tTree, tNodeTagPath) into tTagContents -- put revXMLAttributes(tTree,tNodeTagPath,":",comma) into tTagAttributes -- if tTagContents is not empty and tTagContents is not space and tTagContents is not "." then -- put tTagContents & return after msg -- put tWordCount+1 & tab after tWordTagList -- add the number of words of tTagContents to tWordCount -- put tWordCount & tab & tTag & tab & tTagAttributes & tab & tTagContents & return after tWordTagList -- end if -- end repeat -- end repeat -- repeat for each line tTextStyle in tWordTagList -- set the itemDel to tab -- put item 1 of tTextStyle into tStartWord -- put item 2 of tTextStyle into tEndWord -- put item 3 of tTextStyle into tStyle -- put item 4 of tTextStyle into tTag -- set the itemDel to "[" -- delete item -1 of tStyle -- if tTag is not empty then -- delete char 1 to 4 of tTag -- put " tag=" & quote & tTag & quote after tStyle -- end if -- if char 2 to -2 of tStyle is not a number and the length of tStyle is not 1 then -- set the linkText of word tStartWord to tEndWord of field pTag to tStyle -- end if -- end repeat end displayFormattedTagContents function getFormattedTagList pNodePath, pTag put sTreeID into tTree put revXMLChildContents(tTree, pNodePath, tab ,return, true, -1) into tFormattingContents put revXMLChildNames(tTree, pNodePath, return,,true) into tChildNames end getFormattedTagList function getFormattedTagContents pNodePath, pTag, pShowAttributes put sTreeID into tTree put revXMLChildContents(tTree, pNodePath, "/" ,return, false, 2) into tChildContents put revXMLChildNames(tTree,pNodePath,comma,,true, true) into tChildTags if tChildTags is not empty then repeat for each item tFormattingTag in tChildTags put pNodePath & "/" & tFormattingTag into tNodePath put getTagFormatting(tFormattingTag, tNodePath) after tContents end repeat if the last char of tChildTags is comma then add 1 to x put revXMLNodeContents(tTree, pNodePath & "/[" & x & "]") into tNodeContents ## Allow < and > symbols in the html text replace "<" with "<" in tNodeContents replace ">" with ">" in tNodeContents put tNodeContents after tContents end if else put revXMLNodeContents(tTree, pNodePath) into tNodeContents ## Allow < and > symbols in the html text replace "<" with "<" in tNodeContents replace ">" with ">" in tNodeContents put tNodeContents after tContents end if ## EJB Testing if pTag is "p" then if char 1 to 3 of tContents is not "

" and char -4 to -1 of tContents is not "

" then put "

" before tContents put "

" after tContents end if end if -- if the number of lines in tContents is 1 then -- if char 1 to 3 of tContents is "

" and char -4 to -1 of tContents is "

" then -- delete char -4 to -1 of tContents -- delete char 1 to 3 of tContents -- end if -- end if return tContents end getFormattedTagContents on displayTagListOptions pNodePath, pField put getTreeID() into tTree put revXMLChildNames(tTree,pNodePath,return,,false) into tChildNames put empty into tHilitedLines if tChildNames is empty then set the hilitedLines of field pField to empty else set the hilitedLines of field pField to empty repeat for each line tOption in tChildNames put lineOffset(tOption, the text of field pField) & comma after tHilitedLines set the itemDel to comma end repeat delete the last char of tHilitedLines set the hilitedLines of field pField to tHilitedLines end if end displayTagListOptions on displayTagListOptions2 pNodePath, pTag, pField put getTreeID() into tTree put revXMLChildContents(tTree, pNodePath,":" ,return, true, 0) into tChildContents put empty into tHilitedLines if tChildContents is empty then set the hilitedLines of field pField to empty else repeat for each line tChild in tChildContents set the itemDel to ":" if char 1 to-4 of item 1 of tChild is pTag then set the itemDel to ":" put getFormattedTagContents(pNodePath & "/" & item 1 of tChild, pTag) into tChildValue put lineOffset(tChildValue, the text of field pField) & comma after tHilitedLines set the itemDel to comma end if set the itemDel to comma end repeat delete the last char of tHilitedLines end if set the hilitedLines of field pField to tHilitedLines end displayTagListOptions2 on displayFormattedTagList pNodePath, pTag, pField put getTreeID() into tTree put revXMLChildNames(tTree, pNodePath, return, empty, true, true) into tChildNames if tChildNames is empty then put empty into field pField else repeat for each line tChild in tChildNames if char 1 to-4 of item 1 of tChild is pTag then ## First get the attributes put revXMLAttributes(tTree,pNodePath & "/" & tChild,comma,return) into tAttributes repeat for each line tAttribute in tAttributes set the itemDel to comma put item 2 of tAttribute into tTagLabel ## Allow < and > symbols in the html text replace "<" with "<" in tTagLabel replace ">" with ">" in tTagLabel put tTagLabel & tab after tTagContents end repeat set the itemDel to ":" put getFormattedTagContents(pNodePath & "/" & tChild, pTag) into tChildValue put tChildValue & "
" after tTagContents end if set the itemDel to comma end repeat end if set the htmltext of field pField to tTagContents end displayFormattedTagList on displayExamplesList pNodePath, pTag put getTreeID() into tTree put revXMLChildNames(tTree, pNodePath, return, empty, true, true) into tChildNames if tChildNames is empty then --put empty into field pField else put 0 into tExampleNum repeat for each line tChild in tChildNames if char 1 to-4 of item 1 of tChild is pTag then put empty into tChildValue add 1 to tExampleNum end if put getFormattedTagContents(pNodePath & "/" & tChild, char 1 to -4 of tChild) after tChildValue if there is a field ("example" && tExampleNum) of group "examples" then set the htmlText of field ("example" && tExampleNum) of group "examples" to tChildValue end if end repeat end if --set the htmltext of field pField to tTagContents end displayExamplesList on displayPartialXML pNodePath, pTag put getTreeID() into tTree put revXMLChildNames(tTree, pNodePath, return, empty, true, true) into tChildNames set the text of field "parameters" to line 2 to -2 of revXMLText(tTree, pNodePath, true) --set the htmltext of field pField to tTagContents end displayPartialXML function getTagFormatting pTagType, pNodePath ## Commented out for now to try and fix formatting put revXMLNodeContents(sTreeID, pNodePath) into tNodeContents replace "<" with "<" in tNodeContents replace ">" with ">" in tNodeContents if char 1 to 9 of pTagType is "parameter" then ## Get the tag attribute put revXMLAttributes(sTreeID,pNodePath,comma,return) into tAttributes put item 2 of tAttributes into tTagText put "" & tNodeContents & "" into tFormattedContent else if char 1 to 8 of pTagType is "function" then ## Get the tag attribute put revXMLAttributes(sTreeID,pNodePath,comma,return) into tAttributes put item 2 of tAttributes into tTagText put "" & tNodeContents & "" into tFormattedContent else if char 1 to 7 of pTagType is "message" then ## Get the tag attribute put revXMLAttributes(sTreeID,pNodePath,comma,return) into tAttributes put item 2 of tAttributes into tTagText put "" & tNodeContents & "" into tFormattedContent else if char 1 to 7 of pTagType is "keyword" then ## Get the tag attribute put revXMLAttributes(sTreeID,pNodePath,comma,return) into tAttributes put item 2 of tAttributes into tTagText put "" & tNodeContents & "" into tFormattedContent else if char 1 to 7 of pTagType is "command" then ## Get the tag attribute put revXMLAttributes(sTreeID,pNodePath,comma,return) into tAttributes put item 2 of tAttributes into tTagText put "" & tNodeContents & "" into tFormattedContent else if char 1 to 8 of pTagType is "operator" then ## Get the tag attribute put revXMLAttributes(sTreeID,pNodePath,comma,return) into tAttributes put item 2 of tAttributes into tTagText put "" & tNodeContents & "" into tFormattedContent else if char 1 to 8 of pTagType is "constant" then ## Get the tag attribute put revXMLAttributes(sTreeID,pNodePath,comma,return) into tAttributes put item 2 of tAttributes into tTagText put "" & tNodeContents & "" into tFormattedContent else if char 1 to 6 of pTagType is "object" then ## Get the tag attribute put revXMLAttributes(sTreeID,pNodePath,comma,return) into tAttributes put item 2 of tAttributes into tTagText put "" & tNodeContents & "" into tFormattedContent else if char 1 to 10 of pTagType is "control_st" then ## Get the tag attribute put revXMLAttributes(sTreeID,pNodePath,comma,return) into tAttributes put item 2 of tAttributes into tTagText put "" & tNodeContents & "" into tFormattedContent else if char 1 to 8 of pTagType is "glossary" then ## Get the tag attribute put revXMLAttributes(sTreeID,pNodePath,comma,return) into tAttributes put item 2 of tAttributes into tTagText put "" & tNodeContents & "" into tFormattedContent else if char 1 to 10 of pTagType is "expression" then ## Get the tag attribute put revXMLAttributes(sTreeID,pNodePath,comma,return) into tAttributes put item 2 of tAttributes into tTagText put "" & tNodeContents & "" into tFormattedContent else if char 1 to 8 of pTagType is "property" then ## Get the tag attribute put revXMLAttributes(sTreeID,pNodePath,comma,return) into tAttributes put item 2 of tAttributes into tTagText put "" & tNodeContents & "" into tFormattedContent else if char 1 to 7 of pTagType is "warning" then put "Warning! " & getFormattedTagContents(pNodePath, pTagType) into tFormattedContent else if char 1 to 4 of pTagType is "note" then put "Note: " & getFormattedTagContents(pNodePath, pTagType) into tFormattedContent else if char 1 to 7 of pTagType is "cp_note" then put "Cross-platform Note: " & getFormattedTagContents(pNodePath, pTagType) into tFormattedContent else if char 1 to 6 of pTagType is "change" then put "Change: " & getFormattedTagContents(pNodePath, pTagType) into tFormattedContent else if char 1 to 3 of pTagType is "tip" then put "Tip: " & getFormattedTagContents(pNodePath, pTagType) into tFormattedContent else if char 1 to 9 of pTagType is "important" then put "Important! " & getFormattedTagContents(pNodePath, pTagType) into tFormattedContent else if char 1 to 9 of pTagType is "caution" then put "Caution! " & getFormattedTagContents(pNodePath, pTagType) into tFormattedContent else if char 1 to 4 of pTagType is "code" then --put "" & getFormattedTagContents(pNodePath, pTagType) & "" into tFormattedContent else if char 1 of pTagType is "p" and char 1 to 9 of pTagType is not "parameter" and char 1 to 8 of pTagType is not "property" then put "

" & getFormattedTagContents(pNodePath, pTagType) & "

" into tFormattedContent else if char 1 of pTagType is "i" then put "" & tNodeContents & "" into tFormattedContent else if char 1 of pTagType is "u" then put revXMLNodeContents(sTreeID, pNodePath) into tNodeContents replace "<" with "<" in tNodeContents replace ">" with ">" in tNodeContents put "" & tNodeContents & "" into tFormattedContent else if char 1 of pTagType is "b" then put revXMLNodeContents(sTreeID, pNodePath) into tNodeContents replace "<" with "<" in tNodeContents replace ">" with ">" in tNodeContents put "" & tNodeContents & "" into tFormattedContent else --replace "&" with "&" in tNodeContents replace "<" with "<" in tNodeContents replace ">" with ">" in tNodeContents put tNodeContents into tFormattedContent --put revXMLNodeContents(sTreeID, pNodePath) into tFormattedContent end if return tFormattedContent end getTagFormatting ## Functions to retrieve edited data function getTagValueWithAttributes pTag, pAttributeList put "<" & pTag into tTagContents if pAttributeList is not empty then repeat with a = 1 to the number of items in pAttributeList put space & item a of pAttributeList & "=" & quote after tTagContents set the itemDel to tab put item a of field pTag & quote after tTagContents set the itemDel to comma end repeat end if put ">" after tTagContents set the itemDel to tab put the last item of field pTag of group "xml editing" after tTagContents put "" & pTag & ">" after tTagContents return tTagContents end getTagValueWithAttributes function getOldTagValueWithAttributes pTag, pAttributeList put "<" & pTag into tTagContents if pAttributeList is not empty then repeat with a = 1 to the number of items in pAttributeList put space & item a of pAttributeList & "=" & quote after tTagContents set the itemDel to tab put item a of field pTag & quote after tTagContents set the itemDel to comma end repeat end if put "/>" after tTagContents return tTagContents end getOldTagValueWithAttributes function getFormattedTagValue pTag put "<" & pTag & ">" into tTagContents put the htmlText of field pTag of group "xml editing" into tHtmlText if the last char of tHTMLText is return then delete the last char of tHTMLText ## Repeat any empty lines at the end of the text repeat until char -7 to -1 of tHTMLText is not "

" delete char -7 to -1 of tHTMLText if the last char of tHTMLText is return then delete the last char of tHTMLText end repeat ## Single lines don't need p tags if the number of lines in tHTMLText is 1 then if char 1 to 3 of tHTMLText is "

" then delete char 1 to 3 of tHTMLText end if if char - 4 to -1 of tHTMLText is "

" then delete char -4 to -1 of tHTMLText end if end if replace "<" with return & "<" in tHTMLText replace ">" with ">" & return in tHTMLText replace return & return with return in tHTMLText ## If there is more than one paragraph the first para tags are not needed if line 2 of tHTMLText is "

" then put empty into line 2 of tHTMLText put lineOffset("

",tHTMLText) into tLineNum put empty into line tLineNum of tHTMLText end if repeat with a = 1 to the number of lines in tHTMLText if char 1 to 7 of line a of tHTMLText is " 1 then put "<" & item 1 of tTag & "=" & quote & item 2 of tTag & quote & ">" into line a of tHTMLText put "" & word 1 of tTag & ">" into line a+2 of tHTMLText else ## Warning, note, cp_note, change, tip, important put "<" & tTag & ">" into line a of tHTMLText put "" & tTag & ">" into line a+2 of tHTMLText end if if line a -1 of tHTMLText is "" or line a-1 of tHTMLText is "" then put empty into line a-1 of tHTMLText put empty into line a+3 of tHTMLText end if else if char 1 to 4 of line a of tHTMLText is "Note" then ## Note ## Remove bold tags around "Note:" if line a-1 of tHTMLText is "" then put empty into line a-1 of tHTMLText if line a+1 of tHTMLText is "" then put empty into line a+1 of tHTMLText ## Remove

tags as they are added later if line a-2 of tHTMLText is "

" then put "

" into line a-2 of tHTMLText end if ## When is the next tag put lineOffset("",line a+2 to -1 of tHTMLText) into tLineNum put empty into line (a+1+tLineNum) of tHTMLText ## Add the note tags put "" into line a of of tHTMLText put "" into line (a+1+tLineNum) of tHTMLText ## Dont want a space after the tag if char 1 of line a+1 of tHTMLText is space then delete char 1 of line a+1 of tHTMLText end if if char 1 of line a+2 of tHTMLText is space then delete char 1 of line a+2 of tHTMLText end if else if char 1 to 7 of line a of tHTMLText is "Warning" then ## Warning ## Remove bold tags around "Warning:" if line a-1 of tHTMLText is "" then put empty into line a-1 of tHTMLText if line a+1 of tHTMLText is "" then put empty into line a+1 of tHTMLText ## Remove

tags as they are added later if line a-2 of tHTMLText is "

" then put "

" into line a-2 of tHTMLText end if ## When is the next tag put lineOffset("",line a+2 to -1 of tHTMLText) into tLineNum put empty into line (a+1+tLineNum) of tHTMLText ## Add the warning tags put "" into line a of of tHTMLText put "" into line (a+1+tLineNum) of tHTMLText if char 1 of line a+1 of tHTMLText is space then delete char 1 of line a+1 of tHTMLText end if if char 1 of line a+2 of tHTMLText is space then delete char 1 of line a+2 of tHTMLText end if else if char 1 to 19 line a of tHTMLText is "Cross-Platform Note" then ## cp_note ## Remove bold tags around "Cross Platform Note:" if line a-1 of tHTMLText is "" then put empty into line a-1 of tHTMLText if line a+1 of tHTMLText is "" then put empty into line a+1 of tHTMLText ## Remove

tags as they are added later if line a-2 of tHTMLText is "

" then put "

" into line a-2 of tHTMLText end if ## When is the next tag put lineOffset("",line a+2 to -1 of tHTMLText) into tLineNum put empty into line (a+1+tLineNum) of tHTMLText ## Add the cp_note tags put "" into line a of of tHTMLText put "" into line (a+1+tLineNum) of tHTMLText if char 1 of line a+1 of tHTMLText is space then delete char 1 of line a+1 of tHTMLText end if if char 1 of line a+2 of tHTMLText is space then delete char 1 of line a+2 of tHTMLText end if else if char 1 to 6 of line a of tHTMLText is "change" then ## change ## Remove bold tags around "Chnanges ..." if line a-1 of tHTMLText is "" then put empty into line a-1 of tHTMLText if line a+1 of tHTMLText is "" then put empty into line a+1 of tHTMLText ## Remove

tags as they are added later if line a-2 of tHTMLText is "

" then put "

" into line a-2 of tHTMLText end if ## When is the next tag put lineOffset("",line a+2 to -1 of tHTMLText) into tLineNum put empty into line (a+1+tLineNum) of tHTMLText ## Now need the next one for the end of the change tag put lineOffset("",line a+2 to -1 of tHTMLText) into tLineNum put empty into line (a+1+tLineNum) of tHTMLText ## Add the change tags put "" into line a of of tHTMLText put "" into line (a+1+tLineNum) of tHTMLText if char 1 of line a+1 of tHTMLText is space then delete char 1 of line a+1 of tHTMLText end if if char 1 of line a+2 of tHTMLText is space then delete char 1 of line a+2 of tHTMLText end if else if char 1 to 3 of line a of tHTMLText is "tip" then ## tip ## Remove bold tags around "Tip" if line a-1 of tHTMLText is "" then put empty into line a-1 of tHTMLText if line a+1 of tHTMLText is "" then put empty into line a+1 of tHTMLText ## Remove

tags as they are added later if line a-2 of tHTMLText is "

" then put "

" into line a-2 of tHTMLText end if ## When is the next tag put lineOffset("",line a+2 to -1 of tHTMLText) into tLineNum put empty into line (a+1+tLineNum) of tHTMLText ## Add the tip tags put "" into line a of of tHTMLText put "" into line (a+1+tLineNum) of tHTMLText if char 1 of line a+1 of tHTMLText is space then delete char 1 of line a+1 of tHTMLText end if if char 1 of line a+2 of tHTMLText is space then delete char 1 of line a+2 of tHTMLText end if else if char 1 to 9 of line a of tHTMLText is "important" then ## important ## Remove bold tags around "Important" if line a-1 of tHTMLText is "" then put empty into line a-1 of tHTMLText if line a+1 of tHTMLText is "" then put empty into line a+1 of tHTMLText ## Remove

tags as they are added later if line a-2 of tHTMLText is "

" then put "

" into line a-2 of tHTMLText end if ## When is the next tag put lineOffset("",line a+2 to -1 of tHTMLText) into tLineNum put empty into line (a+1+tLineNum) of tHTMLText ## Add the important tags put "" into line a of of tHTMLText put "" into line (a+1+tLineNum) of tHTMLText if char 1 of line a+1 of tHTMLText is space then delete char 1 of line a+1 of tHTMLText end if if char 1 of line a+2 of tHTMLText is space then delete char 1 of line a+2 of tHTMLText end if else if char 1 to 7 of line a of tHTMLText is "Caution" then ## caution ## Remove bold tags around "Caution" if line a-1 of tHTMLText is "" then put empty into line a-1 of tHTMLText if line a+1 of tHTMLText is "" then put empty into line a+1 of tHTMLText ## Remove

tags as they are added later if line a-2 of tHTMLText is "

" then put "

" into line a-2 of tHTMLText end if ## When is the next tag put lineOffset("",line a+2 to -1 of tHTMLText) into tLineNum put empty into line (a+1+tLineNum) of tHTMLText ## Add the important tags put "" into line a of of tHTMLText put "" into line (a+1+tLineNum) of tHTMLText if char 1 of line a+1 of tHTMLText is space then delete char 1 of line a+1 of tHTMLText end if if char 1 of line a+2 of tHTMLText is space then delete char 1 of line a+2 of tHTMLText end if end if end if end repeat replace (return & "<") with "<" in tHTMLText replace (">" & return) with ">" in tHTMLText replace return with empty in tHTMLText put tHTMLText after tTagContents put "" & pTag & ">" after tTagContents return tTagContents end getFormattedTagValue function getTagValue pTag, pField put tab & "<" & pTag & ">" into tTagContents put the htmlText of field pField of group "xml editing" after tTagContents repeat until char -7 to -1 of tTagContents is not "

" delete char -7 to -1 of tTagContents if the last char of tTagContents is return then delete the last char of tTagContents end repeat put "" & pTag & ">" after tTagContents return tTagContents end getTagValue function getOldTagValue pTag, pField put tab & "<" & pTag & ">" into tTagContents put the htmlTExt of field pField of group "xml editing" into tHTMLText replace "<" with return & "<" in tHTMLText replace ">" with ">" & return in tHTMLText replace return & return with return in tHTMLText repeat with a = 1 to the number of lines in tHTMLText if char 1 to 7 of line a of tHTMLText is "" & return) with ">" in tHTMLText replace return with empty in tHTMLText put tHTMLText after tTagContents put "" & pTag & ">" after tTagContents return tTagContents end getOldTagValue function getTagList pChildTag, pField if the listBehavior of field pField then put the hilitedLines of field pField of group "xml editing" into tHilitedLines repeat for each item tLineNum in tHilitedLines if pChildTag is empty then put tab & tab & "<" & line tLineNum of field pField of group "xml editing" & "/>" & return after tTagContents else put tab & tab & "<" & pChildTag & ">" & line tLineNum of field pField of group "xml editing" & "" & pChildTag & ">" & return after tTagContents end if end repeat else ## This is a list that has been typed repeat for each line tLine in the htmlText of field pField if tLine is not empty and tLine is not "

" then ## Single lines do not also need p tags ## Single lines don't need p tags if char 1 to 3 of tLine is "

" then delete char 1 to 3 of tLine end if if char - 4 to -1 of tLine is "

" then delete char -4 to -1 of tLine end if put tab & tab & "<" & pChildTag & ">" after tTagContents put tLine after tTagContents put "" & pChildTag & ">" & return after tTagContents end if end repeat end if delete the last char of tTagContents if tTagContents is not empty then put return after tTagContents return tTagContents end getTagList function getExampleTagList pChildTag ## This is a list that has been typed if the htmlText of field "example 1" is not empty and the htmlText of field "example 1" is not "

" then put the htmlText of field "example 1" into tExample1 if the number of lines in tExample1 is 1 then if char 1 to 3 of tExample1 is "

" then delete char 1 to 3 of tExample1 if char -4 to -1 of tExample1 is "

" then delete char -4 to -1 of tExample1 end if replace return with empty in tExample1 put "" & tExample1 & "" & return after tTagContents end if if the htmlText of field "example 2" is not empty and the htmlText of field "example 2" is not "

" then put the htmlText of field "example 2" into tExample2 if the number of lines in tExample2 is 1 then if char 1 to 3 of tExample2 is "

" then delete char 1 to 3 of tExample2 if char -4 to -1 of tExample2 is "

" then delete char -4 to -1 of tExample2 end if replace return with empty in tExample2 put "" & tExample2 & "" & return after tTagContents end if if the htmlText of field "example 3" is not empty and the htmlText of field "example 3" is not "

" then put the htmlText of field "example 3" into tExample3 if the number of lines in tExample1 is 3 then if char 1 to 3 of tExample3 is "

" then delete char 1 to 3 of tExample3 if char -4 to -1 of tExample3 is "

" then delete char -4 to -1 of tExample3 end if replace return with empty in tExample3 put "" & tExample3 & "" & return after tTagContents end if if the htmlText of field "example 4" is not empty and the htmlText of field "example 4" is not "

" then put the htmlText of field "example 4" into tExample4 if the number of lines in tExample4 is 1 then if char 1 to 3 of tExample4 is "

" then delete char 1 to 3 of tExample4 if char -4 to -1 of tExample4 is "

" then delete char -4 to -1 of tExample4 end if replace return with empty in tExample4 put "" & tExample4 & "" & return after tTagContents end if if the htmlText of field "example 5" is not empty and the htmlText of field "example 5" is not "

" then put the htmlText of field "example 5" into tExample5 if the number of lines in tExample5 is 1 then if char 1 to 3 of tExample5 is "

" then delete char 1 to 3 of tExample5 if char -4 to -1 of tExample5 is "

" then delete char -4 to -1 of tExample5 end if replace return with empty in tExample5 put "" & tExample5 & "" & return after tTagContents end if return tTagContents end getExampleTagList function getTagListOld pChildTag, pField if the listBehavior of field pField then put the hilitedLines of field pField of group "xml editing" into tHilitedLines repeat for each item tLineNum in tHilitedLines if pChildTag is empty then put line tLineNum of field pField of group "xml editing" & comma after tTagContents else put tab & tab & "<" & pChildTag & ">" & line tLineNum of field pField of group "xml editing" & "" & pChildTag & ">" & return after tTagContents end if end repeat else ## This is a list that has been typed repeat for each line tLine in field pField if pChildTag is empty then put tLine & comma after tTagContents else set the itemDel to tab put tab & tab & "<" & pChildTag & ">" after tTagContents put item -1 of tLine after tTagContents put "" & pChildTag & ">" & return after tTagContents end if end repeat end if delete the last char of tTagContents return tTagContents end getTagListOld function getTagListWithAttributes pChildTag, pField pAttributeList if the listBehavior of field pField then put the hilitedLines of field pField of group "xml editing" into tHilitedLines repeat for each item tLineNum in tHilitedLines put "<" & line tLineNum of field pField of group "xml editing" & "/>" & return after tTagContents end repeat else ## This is a list that has been typed repeat for each line tLine in field pField put "<" & pChildTag after tTagContents if pAttributeList is not empty then repeat with a = 1 to the number of items in pAttributeList put space & item a of pAttributeList & "=" & quote after tTagContents set the itemDel to tab put item a of tLine into tTagValue replace "<" with "<" in tTagValue replace ">" with ">" in tTagValue put tTagValue & quote after tTagContents set the itemDel to comma end repeat end if put ">" after tTagContents set the itemDel to tab put item -1 of tLine into tTagContentValue replace "<" with "<" in tTagContentValue replace ">" with ">" in tTagContentValue put tTagContentValue after tTagContents put "" & pChildTag & ">" & return after tTagContents end repeat end if delete the last char of tTagContents return tTagContents end getTagListWithAttributes function getTreeID return sTreeID end getTreeID on clearFields put empty into field "file" put empty into field "legacy_id" put empty into field "name" put empty into field "type" put empty into field "introduced" put empty into field "deprecated" put empty into field "changed" put empty into field "removed" put empty into field "syntax" put empty into field "synonyms" put empty into field "categories" put empty into field "functions" put empty into field "commands" put empty into field "lessons" put empty into field "links" put empty into field "keywords" put empty into field "messages" put empty into field "properties" put empty into field "operators" put empty into field "control_sts" put empty into field "summary" --put empty into field "examples" put empty into field "example 1" put empty into field "example 2" put empty into field "example 3" put empty into field "example 4" put empty into field "example 5" put empty into field "overview" put empty into field "parameters" put empty into field "value" put empty into field "comments" put empty into field "description" set the hilitedLines of field "objects" to empty set the hilitedLines of field "concepts" to empty set the hilitedLines of field "supported_platforms" to empty set the hilitedLines of field "classes" to empty set the hilitedLines of field "security_settings" to empty set the menuHistory of button "main tabs" to 1 send "menuPick editing" to button "main tabs" set the menuHistory of button "edit sections" to 1 send "menuPick basics" to button "edit sections" end clearFields function tabFormat pList,pTabs repeat with a = 1 to the number of lines of pList repeat with b = 1 to pTabs put tab before line a of pList end repeat end repeat return pList end tabFormat € ɏ : cREVGeneral scripteditorvscroll 1728scripteditorselection 49617 cREVGeometryCacheIDs X1294658017078 10111294745880335 10941294745880336 10951294658589586 10341296062589471 11871294658046708 10211296062589472 11891294753751217 11011294664038778 10901294847735800 11351294658041468 10191294658581531 10331294847735801 11361294847735802 11371294658020511 10121294847735803 11381294658599560 10351294847362096 11171294847735804 11391294847735805 11411294918688071 11471294918688072 11481294847943879 11311294659398478 10621294918685878 11441294848167783 11321294847746656 11421294918685879 11451294658043892 10201294847746657 11431295363523008 11701295363523009 11711294659106069 10521294767170817 11041294658369338 10291294658731976 10411296060181305 11841296060181306 11861294658674861 10391294767185245 11061309940684293 12141295363627653 11731294767200607 11081294658632464 10371294658945573 10441294928843116 11561294928843117 11571294658002583 10071294847681354 11181294848364754 11341298630311295 11961298630311296 11971299497525135 12071294657973522 10061294658024302 10131294660080515 10751297866629249 11901297866629250 11911294660080516 10761294847834455 11301294660080517 10781299497500301 12051294660080518 10791294660080520 10821294660080519 10811294658860019 10421294847325022 11141294748004464 10981299497487061 11991294658365537 10271294658570629 10321294659787059 10701294658009822 10091294659273639 10561294755061218 11021294658014543 10101299497496317 12031294659077940 10491297866634024 11931294767213315 11101297866634025 11941294657829170 10041295966339988 11741295966339989 11751294664031266 10881294658036421 10171294658005487 10081299497490205 1201 cREVGeometrycache total 88order Ü1294745880336 1294657829170 1294748004464 1294753751217 1294755061218 1294847362096 1294660080520 1295363523009 1295363627653 1294659398478 1294918685879 1294918688072 1294928843117 1295966339989 1296062589471 1296062589472 1297866629249 1297866629250 1297866634024 1297866634025 1298630311295 1298630311296 1294767170817 1294660080516 1294660080518 1294660080519 1294745880335 1295363523008 1296060181305 1296060181306 1294918685878 1294918688071 1294928843116 1295966339988 ì @ B J M N R V ¾ ì main tabs èÁ«uÌon menuPick pItemName lock screen hide group "xml editing" hide group "dictionary display" hide group "xml source" switch pItemName case "Editing" show group "xml editing" break case "Dictionary Display" set the htmlText of field "dictionary display" to empty put buildOldXML() into tDictionaryXML put revDocumentationFormatXML(tDictionaryXML, "") into tDisplay ## Show links replace "" with "" in tDisplay replace "" with "" in tDisplay replace "" with "" in tDisplay replace "" with "" in tDisplay replace "" with "" in tDisplay replace "" with "" in tDisplay replace "" with "" in tDisplay replace "" with "" in tDisplay replace "" with "" in tDisplay replace "" with "" in tDisplay set the itemdel to "/" put tDisplay into URL ("file:/Users/Ben 1/Desktop/html.html") set the htmlText of field "dictionary display" to tDisplay show group "dictionary display" break case "XML Source" put buildXML() into tXMLSource put tXMLSource into field "xml source text" show group "xml source" break end switch end menuPick € $¶E ” &Editing Dictionary Display XML Source cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster trueMaster,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,movevDistance falseMaster,scalebottomDistance -38Master,expectedRect 4,36,858,824Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -15Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral revUniqueID 1294657829170scripteditorvscroll 0scripteditorselection 367 @ file )` € ü ; cREVGeneral revUniqueID 1294664031266 ê NC:/Projects/Docs/Dictionary/dictionary/function/mobileAllowedOrientations.xml B choose file àE‹p êon mouseUp answer file "Please choose an xml file" if the result is not cancel then put it into tFile clearFields put tFile into field "file" loadXML processXML end if end mouseUp € R ¿ cREVGeneral scripteditorvscroll 0revUniqueID 1294664038778scripteditorselection 233 J clear àE‹p 'on mouseUp clearFields end mouseUp € go R ¿ cREVGeometry Master,scaleBottomObjectSide BottomMaster,moveVObjectSide bottomMaster,movehDistance -57Master,scaleBottomscaleBottom trueMaster trueMaster,moveVObjectRef cardMaster,scaleBottomObjectRef cardMaster,moveHObjectRef cardMaster,scaleBottomAbsolute falseMaster,moveVAbsolute trueMaster,scaleBottom false Master,moveV trueMaster,expectedRect 772,828,854,851Master,scalebottomDistance -0.010078Master,movevDistance -21Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,moveHAbsolute trueMaster,scaleleftDistance Master,scaletopDistance Master,moveH true cREVGeneral scripteditorvscroll 0revUniqueID 1294748004464scripteditorselection 25 M save xml àE‹p!on mouseUp ask file "Please choose the file you want to save to" with field "file" with type "XML File|xml|XML" if the result is not "cancel" then put it into tXMLFile end if put buildXML() into tXMLData put tXMLData into url ("file:" & tXMLFile) end mouseUp € o R ¹ cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -141Master trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,movevDistance -21Master,scalebottomDistance Master,expectedRect 688,828,770,851Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,moveHAbsolute trueMaster,scaletopDistance Master,scaleleftDistance Master,moveH true cREVGeneral scripteditorvscroll 0revUniqueID 1294753751217scripteditorselection 288 N xml editing a € HŸ _ cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster trueMaster,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,movevDistance falseMaster,scalebottomDistance -50Master,expectedRect 15,72,852,818Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -25Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral revUniqueID 1294755061218scripteditorvscroll 0scripteditorselection 0 ] edit sections àÁ«u on menuPick pItemName hideGroups show group pItemName end menuPick on hideGroups hide group "basics" hide group "history" hide group "properties" hide group "classifications" hide group "references" hide group "description" end hideGroups € ž–» ½ ABasics History Properties Classifications References Description cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster trueMaster,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,movevDistance falseMaster,scalebottomDistance -54Master,expectedRect 22,158,848,814Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -29Master,scaleRightObjectRef cardMaster,scaleRightObjectSide RightMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral revUniqueID 1294847362096scripteditorvscroll 0scripteditorselection 263 î legacy id label € L d x cREVTable currentview Legacy ID: cREVGeneral revUniqueID 1294657973522 Legacy ID: ï name label € e d x cREVTable currentview Name: cREVGeneral revUniqueID 1294658002583 Name: ð type label € ~ d ~ cREVTable currentview Type: cREVGeneral revUniqueID 1294658005487 Type: legacy_id )` € t L@ { cREVGeneral revUniqueID 1294658570629 ê name )` € t e@ { cREVGeneral revUniqueID 1294658581531 ê mobileAllowedOrientations type )` € t ~@ y cREVGeneral revUniqueID 1294658589586 ê function Z description a € º” [ cREVGeneral revUniqueID 1294847325022 3 overview label € ¾ z = cREVTable currentview Overview: cREVGeneral revUniqueID 1294660080515 Overview: 4 overview ‚)` € – ¾ 8 _ cREVGeometry Master,scaleBottomObjectSide BottomMaster,scaleBottomscaleBottom trueMaster,movehDistance falseMaster trueMaster,scaleBottomObjectRef cardMaster,scaleBottomAbsolute falseMaster,scaleBottom falseMaster,expectedRect 150,190,834,246Master,scalebottomDistance -0.724524Master,movevDistance falseMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -42Master,scaleRightObjectRef cardMaster,scaleRightObjectSide RightMaster,cardRanking 1Master,scaleleftDistance Master,scaletopDistance cREVTable currentview cREVGeneral revUniqueID 1294660080516 ê aUse the mobileAllowedOrientations function to find a list of the currently allowed orientations. ! ? 5 ` @ Ž ¿ 6 ] 6 parameters label € þ z 9 cREVTable currentview Parameters: cREVGeneral revUniqueID 1294660080517 Parameters: 7 parameters ‚)` € – þE Ÿ ] cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster trueMaster,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,movevDistance falseMaster,scalebottomDistance -498Master,expectedRect 150,254,470,351Master,scalerightAbsolute trueMaster,scaleright trueMaster,scalerightDistance -452Master,scalerightObjectRef 1294745880336Master,scalerightObjectSide rightMaster,cardRanking 1Master,scaletopDistance Master,scaleleftDistance cREVGeneral revUniqueID 1294660080518 ê 8 ` @ Ê ÿ  Y 9 comments label € ¦ z ? cREVGeometry Master,movevDistance -479Master,scalebottomDistance Master,expectedRect 23,376,145,397Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,moveVObjectRef cardMaster,scalerightDistance Master,cardRanking 1Master,moveVAbsolute true Master,moveV trueMaster,scaletopDistance Master,scaleleftDistance cREVTable currentview Comments: cREVGeneral revUniqueID 1294660080519 Comments: : comments ‚)` € –¦ Œ Y 2 cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,moveVObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,movevDistance -419Master,scalebottomDistance Master,expectedRect 150,376,834,516Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -42Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral revUniqueID 1294660080520 ê tThe mobileAllowedOrientations function returns a comma delimited list of the orientations the application supports. V ’Note: Due to the limitation of the Android operating system, landscape left and portrait upside-down are only supported on Android 2.3 and later. 7 = K P d - ; ` @ Ž§ Š [ F value label € ¨ þ d Y cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 419,254,519,275Master,movehDistance -495Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVTable currentview Value: cREVGeneral revUniqueID 1294745880335 Value: G value ‚)` € þ˜ Ÿ = cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance -246Master trueMaster,scaleBottomObjectRef cardMaster,moveHObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,expectedRect 514,254,922,351Master,scalebottomDistance -498Master,movevDistance falseMaster,moveHObjectSide rightMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -42Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 3Master,moveHAbsolute trueMaster,scaleleftDistance Master,scaletopDistance Master,moveH true cREVTable currentview cREVGeneral revUniqueID 1294745880336 ê aThe mobileAllowedOrientations function returns a comma delimited list including at least one of: C * portrait * portrait upside down * landscape left * landscape right H ` @ Ž ÿ  9 ’ description label € .2 d cREVGeometry Master,movevDistance -339Master,scalebottomDistance Master,expectedRect 46,516,146,537Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,moveVObjectRef cardMaster,scalerightDistance Master,cardRanking 1Master,moveVAbsolute true Master,moveV trueMaster,scaletopDistance Master,scaleleftDistance cREVTable currentview Description: cREVGeneral revUniqueID 1295363523008 Description: “ description ‚)` € –J y cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,moveVObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,movevDistance -197Master,scalebottomDistance Master,expectedRect 150,542,834,798Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -42Master,scaleRightObjectRef cardMaster,scaleRightObjectSide RightMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral revUniqueID 1295363523009 ê ™ ` @ ŽK þ y • Line K € –= —>ž> cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,moveVObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,movevDistance -337Master,scalebottomDistance Master,expectedRect 150,527,834,529Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -42Master,scaleRightObjectRef cardMaster,scaleRightObjectSide RightMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral revUniqueID 1295363627653   formatting tag list ·)` € "J l â _ cREVGeometry Master,movevDistance -212Master,scalebottomDistance Master,expectedRect 34,542,142,768Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,moveVObjectRef cardMaster,scalerightDistance Master,cardRanking 1Master,moveVAbsolute true Master,moveV trueMaster,scaletopDistance Master,scaleleftDistance cREVTable currentview Wcommand function message property operator keyword constant object control_st glossary cREVGeneral revUniqueID 1296060181305 command function message property operator keyword constant object control_st glossary ¡ ` @ }K à Y ¢ set àE‹pon mouseUp put the hilitedText of field "formatting tag list" into tTagType put the selectedChunk into tChunk if tTagType is not among the items of "warning,note,cp_note,change,tip,important" then ask "Please enter the tag" if the result is not cancel then put it into tTagLabel --set the linkText of tChunk to (tTagType && "tag=" & quote & tTagLabel & quote) set the linkText of tChunk to (tTagType && "tag=" & tTagLabel) end if else set the linkText of tChunk to tTagType ## linkText doesn't work around eg tags -- put word 2 of tChunk into tStartChar -- put word 4 of tChunk into tEndChar -- put word 7 of tChunk into tField end if end mouseUp € .0 R ß cREVGeometry Master,movevDistance -84Master,scalebottomDistance Master,expectedRect 46,772,128,795Master,moveVObjectSide bottomMaster,movehDistance falseMaster trueMaster,moveVObjectRef cardMaster,scalerightDistance Master,cardRanking 1Master,moveVAbsolute true Master,moveV trueMaster,scaletopDistance Master,scaleleftDistance cREVGeneral scripteditorvscroll 0revUniqueID 1296060181306scripteditorselection 483 ^ properties a € ºå^ _ cREVGeneral revUniqueID 1294847681354 ò objects label € ¾ z | cREVTable currentview Objects: cREVGeneral revUniqueID 1294658014543 Objects: ù supported platforms label € U z ~ cREVTable currentview Supported Platforms: cREVGeneral revUniqueID 1294658036421 Supported Platforms: û classes label € ì z | cREVTable currentview Classes: cREVGeneral revUniqueID 1294658041468 Classes: security settings label € ‚ z cREVTable currentview Security Settings: cREVGeneral revUniqueID 1294658365537 Security Settings: objects ·)` € – ¾^ ’ { cREVTable currentview Æstack card group field button graphic scrollbar player image global local iosScroller iosBrowser iosPlayer iosTextInput AndroidScroller AndroidBrowser AndroidPlayer androidTextInput androidMultiline cREVGeneral revUniqueID 1294658632464 stack card group field button graphic scrollbar player image global local iosScroller iosBrowser iosPlayer iosTextInput AndroidScroller AndroidBrowser AndroidPlayer androidTextInput androidMultiline ` @ ã ¿   supported_platforms ·)` € –U^ ’ } K cREVTable currentvscroll 0currenthscroll 0currentxmouseloc 123 viewablerows 11currentymouseloc 70scrollbarwidth 16 cellyspacing 14rightfieldloc 500viewablecolumns 5numbertabstops 1topfieldloc 341 leftfieldloc 150 cellxspacing 75currentview 9mac windows linux ios android windows_mobile linux_mobilebottomfieldloc 487 cREVGeneral revUniqueID 1294658860019 mac windows linux ios android windows_mobile linux_mobile ` @ ãV  { classes ·)` € –ì^ ’  cREVTable currentview desktop server web mobile cREVGeneral revUniqueID 1294659077940 desktop server web mobile ` @ ãí  { security_settings ·)` € –‚^ ’ _ cREVTable currentview ldisk network process registryread registrywrite stack printing privacy applescript doalternate none required cREVGeneral revUniqueID 1294659273639 disk network process registryread registrywrite stack printing privacy applescript doalternate none required ! ` @ ム Y j classifications a € ºÇN { cREVGeneral revUniqueID 1294847834455 ó concepts label € T z | cREVTable currentview Concepts: cREVGeneral revUniqueID 1294658017078 Concepts: õ categories label € ¾ z z cREVTable currentview Categories: cREVGeneral revUniqueID 1294658024302 Categories: concepts ·)` € –T@ ° y cREVTable currentview Zprinting databases animations web text processing display players custom controls messages cREVGeneral scripteditorvscroll 0revUniqueID 1294658674861scripteditorselection 0 printing databases animations web text processing display players custom controls messages ` @ ÅU ® y categories )` € – ¾@   cREVGeneral revUniqueID 1294658945573 ê k references a € º‰— { cREVGeneral revUniqueID 1294847943879 related functions label € ¾ z cREVTable currentview Related Functions: cREVGeneral revUniqueID 1294658369338 Related Functions: &