diff --git a/.gitattributes b/.gitattributes
index 563e2e9e24..47b18ce8a7 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -1344,6 +1344,7 @@ docs/html/build_html.bat svneol=native#text/plain
 docs/html/build_html.sh -text svneol=native#application/x-sh
 docs/html/build_lcl_docs.lpi svneol=native#text/plain
 docs/html/build_lcl_docs.lpr svneol=native#text/plain
+docs/html/build_lcl_html.sh -text svneol=native#application/x-sh
 docs/html/fpdoc.css svneol=native#text/css
 docs/html/localfclfooter.xml svneol=native#text/plain
 docs/html/locallclfooter.xml svneol=native#text/plain
diff --git a/docs/html/build_lcl_html.sh b/docs/html/build_lcl_html.sh
new file mode 100755
index 0000000000..b28c965362
--- /dev/null
+++ b/docs/html/build_lcl_html.sh
@@ -0,0 +1,60 @@
+#!/usr/bin/env bash
+#
+# Author: Mattias Gaertner
+#
+# Creates the fpdoc HTML output for the LCL
+
+#set -x
+set -e
+
+FPDoc=$1
+if [ -z $FPDoc ]; then
+  FPDoc=fpdoc
+fi
+FPDocFooter=$2
+FPCDocDir=$3
+
+PackageName=lcl
+XMLSrcDir=../xml/lcl/
+PasSrcDir=../../lcl/
+InputFileList=inputfile.txt
+
+# create output directory
+mkdir -p $PackageName
+
+# create unit list
+cd $PasSrcDir
+UnitList=`echo *.pp *.pas`
+cd -
+
+# create description file list
+DescrFiles=''
+for unit in $UnitList; do
+  ShortFile=`echo $unit | sed -e 's/\.pp\b//g' -e 's/\.pas\b//g'`
+  DescrFiles="$DescrFiles --descr=../$XMLSrcDir$ShortFile.xml"
+done
+
+# create input file list
+CurInputFileList=$PackageName/$InputFileList
+rm -f $CurInputFileList
+for unit in $UnitList; do
+  echo ../${PasSrcDir}$unit -Fi../${PasSrcDir}include >> $CurInputFileList
+done
+
+FPDocParams="--content=lcl.xct --package=lcl --descr=../${XMLSrcDir}lcl.xml --format=html"
+if [ -n "$FPDocFooter" ]; then
+  FPDocParams="$FPDocParams --footer=$FPDocFooter"
+fi
+if [ -n "$FPCDocDir" ]; then
+  FPDocParams="$FPDocParams --import=$FPCDocDir/rtl.xct,../rtl/ --import=$FPCDocDir/fcl.xct,../fcl/"
+fi
+
+
+cd $PackageName
+$FPDoc $DescrFiles --input=@$InputFileList $FPDocParams
+cd -
+   
+# --output=lcl
+
+# end.
+