@@ -395,44 +395,3 @@ private command docsBuilderGenerateZip pEdition, pVersion
395395
396396 builderLog "message" , merge ("Generated [[tZipPath]]" )
397397end docsBuilderGenerateZip
398-
399- -- - LEGACY
400-
401- function revDocumentationRetrieve pType, pTag, pFolder
402- -- We know how many files per clump cuz of kFilesPerClump
403- -- pType is either "dictionary/" or "glossary/"
404- local tClumpNumber , tFileNumber , tPropNumber , tPropName
405- local tClumpName , tDocData , tClumpPath , tType , tOpenClumps
406- -- -------
407-
408- put pType into tType
409- if the last char of tType is not slash then put slash after tType
410-
411- if pFolder is empty then
412- put revEnvironmentDocumentationPath() & slash & "packaged_xml/" & tType into tClumpPath
413- else
414- put pFolder & slash & "packaged_xml/" & tType into tClumpPath
415- end if
416-
417- set the itemDelimiter to "."
418- put item 1 of pTag into tFileNumber
419- if tFileNumber is not a number then
420- return empty
421- end if
422- put ((tFileNumber - 1 ) div kFilesPerClump ) + 1 into tClumpNumber
423- put ((tFileNumber - 1 ) mod kFilesPerClump ) + 1 into tPropNumber
424-
425- put "c" & tPropNumber into tPropName
426- put the mainStacks into tOpenClumps
427- filter tOpenClumps with kClumpNamePrefix & "*"
428-
429- put kClumpNamePrefix & tClumpNumber into tClumpName
430-
431- put the tPropName of stack (tClumpPath & tClumpName & ".rev" ) into tDocData
432- if tDocData is empty then
433- return empty
434- end if
435-
436- -- We've got the doc's compressed data, uncompress and return
437- return the decompress of tDocData
438- end revDocumentationRetrieve
0 commit comments