/**
 * Copyright (c) 2011-2018 by Andrew Mustun. All rights reserved.
 * 
 * Function stringToDirectDistanceEntry added 2013 by Robert S.
 *
 * This file is part of the QCAD project.
 *
 * QCAD is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * QCAD is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with QCAD.
 */

// Version check is disabled for now. This can be used in the future to
// ensure compatibility between scripts and script bindings.
//requiresFramework([3,0,9,0], [3,1,0,0]);

// don't include sprintf.js here to keep library footprint small:
//include("sprintf.js");

if (typeof(global)==="undefined") {
    global = this;
    global.gMainWindow = undefined;
    global.gDocumentInterface = undefined;
}

/**
 * \param file File path argument given on command line (might be absolute or relative).
 * \return Absolute path of given file.
 */
function getAbsolutePathForArg(file) {
    // detect URL (TODO: breaks under win):
//    var url = new QUrl(file);
//    if (url.isValid() && url.scheme().length!==0 && !url.isLocalFile()) {
//        return file;
//    }

    // detect absolute path:
    var fi = new QFileInfo(file);
    if (fi.isAbsolute() || file.startsWith(":")){
        return file;
    }

    // relative path (prepend application dir):
    return RSettings.getLaunchPath() + QDir.separator + file;
}

/**
 * Checks if the QCAD Application Framework is at least of version minVersion
 * and not newer than maxVersion.
 *
 * \param minVersion array in the format [major,minor,revision,build]
 * \param maxVersion array in the format [major,minor,revision,build]
 */
function requiresFramework(minVersion, maxVersion) {
    var frameworkV = getVersionNumber(RSettings.getMajorVersion(), RSettings.getMinorVersion(), RSettings.getRevisionVersion(), RSettings.getBuildVersion());
    var minV = getVersionNumber(minVersion[0], minVersion[1], minVersion[2], minVersion[3]);
    var maxV = getVersionNumber(maxVersion[0], maxVersion[1], maxVersion[2], maxVersion[3]);

    if (frameworkV < minV) {
        qCritical("QCAD Application Framework is too old for script plugin ", includeBasePath);
        debugger;
    }

    if (frameworkV > maxV) {
        qCritical("QCAD Application Framework is too new for script plugin", includeBasePath);
        debugger;
    }
}

function checkMinVersion(minVersion) {
    var frameworkV = getVersionNumber(RSettings.getMajorVersion(), RSettings.getMinorVersion(), RSettings.getRevisionVersion(), RSettings.getBuildVersion());
    var minV = getVersionNumber(minVersion[0], minVersion[1], minVersion[2], minVersion[3]);

    return frameworkV >= minV;
}

function getVersionNumber(major, minor, revision, build) {
    return major*1e9 + minor*1e6 + revision*1e3 + build;
}

/**
 * Check the real type of the given object.
 *
 * Standard ECMAScript typeof returns "string" for a string literal but
 * "object" for a string object constructed with new. Same goes for
 * arrays, etc. This function provides a workaround.
 */
function getTypeOf(v) {
    if (typeof(v)==="object") {
        if (v === null) {
            return "null";
        }
        if (v.constructor == (new String()).constructor) {
            return "string";
        }
        if (v.constructor == (new Array()).constructor) {
            return "array";
        }
        if (v.constructor == (new Date()).constructor) {
            return "date";
        }
        if (v.constructor == (new RegExp()).constructor) {
            return "regex";
        }
        return "object";
    }
    return typeof(v);
}

/**
 * Checks if the given object is of the given type. E.g.
 * isOfType(myObject, QLabel) returns true if myObject is a QLabel. Note
 * that isOfType(myObject, QWidget) returns false even though QLabel is
 * derived from QWidget.
 */
function isOfType(obj, type) {
    if (RSettings.getQtVersion() < 0x060000) {
        return !isNull(obj) && obj.constructor===type;
    }
    else {
        //return !isNull(obj) && (obj.constructor===type || (isFunction(obj.getObjectType) && obj.getObjectType()===type.getObjectType()));
        return !isNull(obj) && isFunction(obj.getObjectType) && obj.getObjectType()===type.getObjectType();
    }
}

/**
 * Destroys the given object with C++ ownership.
 */
function destr(obj) {
    if (RSettings.getQtVersion() >= 0x060000) {
        // destroy does not work in Qt 6 / QJSEngine:
        // ("Invalid attempt to destroy() an indestructible object")
        obj.destr();
    }
    else {
        if (isFunction(obj.destroy)) {
            obj.destroy();
        }
    }
}

function destrDialog(dlg) {
    if (RSettings.getQtVersion() >= 0x060000) {
        // delete later in Qt 6
        // immediate delete might cause unpredictable crashes in event processing:
        dlg.deleteLater();
    }
    else {
        if (isFunction(dlg.destroy)) {
            dlg.destroy();
        }
    }
}

/**
 * Get pointer from shared pointer object using data() (Qt5) or implicitly (Qt6).
 */
function getPtr(p) {
    if (RSettings.getQtVersion() >= 0x060000) {
        return p;
    }
    else {
        if (isFunction(p.data)) {
            return p.data();
        }
        else {
            return p;
        }
    }
}

/**
 * Checks if the given object is undefined or null.
 *
 * \return false if the given object is defined and not null.
 * This method also supports shared pointers, i.e. obj.isNull()==true.
 */
function isNull(obj) {
    if (isDeleted(obj)) {
        return true;
    }

    if (obj==null) {
        return true;
    }

    if (RSettings.getQtVersion() >= 0x060000) {
        if (obj.hasOwnProperty("__PROXY__")) {
            return isNull(obj.__PROXY__);
        }
    }

    return (
        // wrapped object is NULL:
        (typeof(obj.isNullWrapper)==="function" && obj.isNullWrapper()===true) ||
        // shared pointer is NULL:
        (typeof(obj.data)==="function" && typeof(obj.isNull)==="function" && obj.isNull()===true)
    );
}

/**
 * Checks if the given object is a valid number.
 *
 * \return true if the given object is a number and not NaN or +/-Infinity
 * or NULL or undefined.
 */
function isNumber(obj) {
    return (typeof(obj)==="number" && !isNaN(obj) && isFinite(obj));
}

function isNumberGreaterEqualZero(n) {
    return !isNaN(n) && n>=0;
};

function isNumberGreaterZero(n) {
    return !isNaN(n) && n>0;
};

/**
 * Checks if the given object is a string.
 *
 * \return true if the given object is a string
 */
function isString(obj) {
    return (typeof(obj)==="string");
}

/**
 * Checks if the given object is of type RVector.
 *
 * \return true if the given object is an RVector object.
 */
function isVector(obj) {
    return (typeof(obj)==="object" && isOfType(obj, RVector));
}

/**
 * Checks if the given object is a valid vector.
 *
 * \return true if the given object is a valid RVector object.
 */
function isValidVector(obj) {
    return (isVector(obj) && obj.isValid() && isNumber(obj.x) && isNumber(obj.y));
}

/**
 * Checks if the given object is a color.
 *
 * \return true if the given object is an RColor object.
 */
function isColor(obj) {
    return (typeof(obj)==="object" && isOfType(obj, RColor));
}

/**
 * Checks if the given object is a valid color.
 *
 * \return true if the given object is a valid RColor object.
 */
function isValidColor(obj) {
    return (isColor(obj) && obj.isValid());
}

/**
 * Checks if the given object is a valid boolean value.
 *
 * \return true if the given object is a boolean and not NULL or undefined.
 */
function isBoolean(obj) {
    return (typeof(obj)==="boolean");
}

/**
 * Checks if the given object is a valid function.
 *
 * \return true if the given object is a function.
 */
function isFunction(obj) {
    return (typeof(obj)==="function");
}

/**
 * Checks if the given object is a valid QObject.
 *
 * \return true if the given object is a QObject.
 */
function isQObject(obj) {
    return (typeof(obj)==="object" && !isNull(obj.objectName));
}

/**
 * Checks if the given object is a valid QWidget.
 *
 * \return true if the given object is a QWidget.
 */
function isQWidget(obj) {
    return (isQObject(obj) && typeof(obj.show)==="function");
}

/**
 * Checks if the given object is a valid QAction.
 *
 * \return true if the given object is a QAction.
 */
function isQAction(obj) {
    return (isQObject(obj) && typeof(obj.actionGroup)==="function");
}

/**
 * \return true if the given object is a separator (a frame of type vertical line).
 */
function isSeparator(obj) {
    return isOfType(obj, QFrame) && obj.frameShape==QFrame.VLine;
}

/**
 * Checks if the given object is a layer.
 *
 * \return true if the given object is a layer.
 */
function isLayer(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RLayer) || isOfType(obj, RLayerPointer);
    }
    else {
        return isOfType(obj, RLayer);
    }
}

/**
 * Checks if the given object is a block (RBlock).
 *
 * \return true if the given object is a block.
 */
function isBlock(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RBlock) || isOfType(obj, RBlockPointer);
    }
    else {
        return isOfType(obj, RBlock);
    }
}

/**
 * Checks if the given object is a layout (RLayout).
 *
 * \return true if the given object is a layout.
 */
function isLayout(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RLayout) || isOfType(obj, RLayoutPointer);
    }
    else {
        return isOfType(obj, RLayout);
    }
}

/**
 * Checks if the given object is an RObject.
 *
 * \return true if the given object is an object (derived from RObject).
 */
function isObject(obj) {
    return !isNull(obj) &&
        isFunction(obj.getType) &&
        isNumber(obj.getType());
}

/**
 * Checks if the given object is a graphics entity.
 *
 * \return true if the given object is an entity (derived from REntity).
 */
function isEntity(obj) {
    return !isNull(obj) &&
        isFunction(obj.getType) && 
        isFunction(obj.getData) &&
        isNumber(obj.getType());
}

/**
 * Checks if the given object is a dimension entity of any kind.
 * 
 * \return true if the given object is a dimension entity
 * (RDimensionEntity).
 */
function isDimensionEntity(obj) {
    return isDimAlignedEntity(obj)
        || isDimAngularEntity(obj)
        || isDimArcLengthEntity(obj)
        || isDimDiametricEntity(obj)
        || isDimLinearEntity(obj)
        || isDimOrdinateEntity(obj)
        || isDimRadialEntity(obj)
        || isDimRotatedEntity(obj);
}

/**
 * Checks if the given object is a diametric dimension entity.
 * 
 * \return true if the given object is a diametric dimension entity
 * (RDimDiametricEntity).
 */
function isDimDiametricEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RDimDiametricEntity) || isOfType(obj, RDimDiametricEntityPointer);
    }
    else {
        return isOfType(obj, RDimDiametricEntity);
    }
}

/**
 * Checks if the given object is an aligned dimension entity.
 * 
 * \return true if the given object is an aligned dimension entity
 * (RDimAlignedEntity).
 */
function isDimAlignedEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RDimAlignedEntity) || isOfType(obj, RDimAlignedEntityPointer);
    }
    else {
        return isOfType(obj, RDimAlignedEntity);
    }
}

/**
 * Checks if the given object is a rotated dimension entity.
 * 
 * \return true if the given object is a rotated dimension entity
 * (RDimRotatedEntity).
 */
function isDimRotatedEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RDimRotatedEntity) || isOfType(obj, RDimRotatedEntityPointer);
    }
    else {
        return isOfType(obj, RDimRotatedEntity);
    }
}

/**
 * Checks if the given object is an ordinate dimension entity.
 * 
 * \return true if the given object is an ordinate dimension entity
 * (RDimOrdinateEntity).
 */
function isDimOrdinateEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RDimOrdinateEntity) || isOfType(obj, RDimOrdinateEntityPointer);
    }
    else {
        return isOfType(obj, RDimOrdinateEntity);
    }
}

/**
 * Checks if the given object is a radial dimension entity.
 * 
 * \return true if the given object is a radial dimension entity
 * (RDimRadialEntity).
 */
function isDimRadialEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RDimRadialEntity) || isOfType(obj, RDimRadialEntityPointer);
    }
    else {
        return isOfType(obj, RDimRadialEntity);
    }
}

/**
 * Checks if the given object is an angular dimension entity.
 * 
 * \return true if the given object is an angular dimension entity
 * (RDimAngular2LEntity or RDimAngular3PEntity).
 */
function isDimAngularEntity(obj) {
    return isDimAngular2LEntity(obj) || isDimAngular3PEntity(obj);
}

/**
 * Checks if the given object is an angular dimension from 2 lines entity.
 *
 * \return true if the given object is an angular dimension entity
 * (RDimAngular2LEntity).
 */
function isDimAngular2LEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RDimAngular2LEntity) || isOfType(obj, RDimAngular2LEntityPointer);
    }
    else {
        return isOfType(obj, RDimAngular2LEntity);
    }
}

/**
 * Checks if the given object is an angular dimension from 3 points entity.
 *
 * \return true if the given object is an angular dimension entity
 * (RDimAngular3PEntity).
 */
function isDimAngular3PEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RDimAngular3PEntity) || isOfType(obj, RDimAngular3PEntityPointer);
    }
    else {
        return isOfType(obj, RDimAngular3PEntity);
    }
}

/**
 * Checks if the given object is an arc length dimension entity.
 *
 * \return true if the given object is an arc length dimension entity
 * (RDimArcLengthEntity).
 */
function isDimArcLengthEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RDimArcLengthEntity) || isOfType(obj, RDimArcLengthEntityPointer);
    }
    else {
        return isOfType(obj, RDimArcLengthEntity);
    }
}

/**
 * Checks if the given object is a linear dimension entity.
 * 
 * \return true if the given object is a linear dimension entity
 * (RDimLinearEntity).
 */
function isDimLinearEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RDimLinearEntity) || isOfType(obj, RDimLinearEntityPointer);
    }
    else {
        return isOfType(obj, RDimLinearEntity);
    }
}

/**
 * Checks if the given object is a hatch entity.
 *
 * \return true if the given object is an arc entity (RHatchEntity).
 */
function isHatchEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RHatchEntity) || isOfType(obj, RHatchEntityPointer);
    }
    else {
        return isOfType(obj, RHatchEntity);
    }
}

/**
 * Checks if the given object is an arc entity.
 *
 * \return true if the given object is an arc entity (RArcEntity).
 */
function isArcEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RArcEntity) || isOfType(obj, RArcEntityPointer);
    }
    else {
        return isOfType(obj, RArcEntity);
    }
}

/**
 * Checks if the given object is a circle entity.
 *
 * \return true if the given object is a line entity (RCircleEntity).
 */
function isCircleEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RCircleEntity) || isOfType(obj, RCircleEntityPointer);
    }
    else {
        return isOfType(obj, RCircleEntity);
    }
}

/**
 * Checks if the given object is an ellipse entity.
 *
 * \return true if the given object is an ellipse entity (REllipseEntity).
 */
function isEllipseEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, REllipseEntity) || isOfType(obj, REllipseEntityPointer);
    }
    else {
        return isOfType(obj, REllipseEntity);
    }
}

/**
 * Checks if the given object is an ellipse entity and represents an ellipse arc (not a full ellipse).
 *
 * \return true if the given object is an ellipse arc entity (REllipseEntity).
 */
function isEllipseArcEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return (isOfType(obj, REllipseEntity) || isOfType(obj, REllipseEntityPointer)) && !obj.isFullEllipse();
    }
    else {
        return isOfType(obj, REllipseEntity);
    }
}

/**
 * Checks if the given object is an ellipse entity and represents a full ellipse.
 *
 * \return true if the given object is an ellipse entity (REllipseEntity).
 */
function isFullEllipseEntity(obj) {
    return isEllipseEntity(obj) && obj.isFullEllipse();
}

/**
 * Checks if the given object is a line entity.
 *
 * \return true if the given object is a line entity (RLineEntity).
 */
function isLineEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RLineEntity) || isOfType(obj, RLineEntityPointer);
    }
    else {
        return isOfType(obj, RLineEntity);
    }
}

/**
 * Checks if the given object is a line, xline or ray entity.
 *
 * \return true if the given object is a line based entity (RLineEntity, RXLineEntity, RRayEntity).
 */
function isLineBasedEntity(obj) {
    return isLineEntity(obj) || isXLineEntity(obj) || isRayEntity(obj);
}

/**
 * Checks if the given object is an xline entity.
 *
 * \return true if the given object is an xline entity (RXLineEntity).
 */
function isXLineEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RXLineEntity) || isOfType(obj, RXLineEntityPointer);
    }
    else {
        return isOfType(obj, RXLineEntity);
    }
}

/**
 * Checks if the given object is a ray entity.
 *
 * \return true if the given object is a ray entity (RRayEntity).
 */
function isRayEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RRayEntity) || isOfType(obj, RRayEntityPointer);
    }
    else {
        return isOfType(obj, RRayEntity);
    }
}

/**
 * Checks if the given object is a point entity.
 *
 * \return true if the given object is a point entity (RPointEntity).
 */
function isPointEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RPointEntity) || isOfType(obj, RPointEntityPointer);
    }
    else {
        return isOfType(obj, RPointEntity);
    }
}

/**
 * Checks if the given object is an image entity.
 *
 * \return true if the given object is an image entity (RImageEntity).
 */
function isImageEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RImageEntity) || isOfType(obj, RImageEntityPointer);
    }
    else {
        return isOfType(obj, RImageEntity);
    }
}

/**
 * \return true if the given object is a polyline entity (RPolylineEntity).
 */
function isPolylineEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RPolylineEntity) || isOfType(obj, RPolylineEntityPointer);
    }
    else {
        return isOfType(obj, RPolylineEntity);
    }
}

/**
 * \return true if the given object is a wipeout entity (RWipeoutEntity).
 */
function isWipeoutEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RWipeoutEntity) || isOfType(obj, RWipeoutEntityPointer);
    }
    else {
        return isOfType(obj, RWipeoutEntity);
    }
}

/**
 * \return true if the given object is a geometrically closed polyline entity.
 */
function isClosedPolylineEntity(obj, tolerance) {
    if (isNull(tolerance)) {
        return isPolylineEntity(obj) && obj.isGeometricallyClosed();
    }
    else {
        return isPolylineEntity(obj) && obj.isGeometricallyClosed(tolerance);
    }
}

/**
 * \return true if the given object is a geometrically open polyline entity.
 */
function isOpenPolylineEntity(obj, tolerance) {
    if (isNull(tolerance)) {
        return isPolylineEntity(obj) && !obj.isGeometricallyClosed();
    }
    else {
        return isPolylineEntity(obj) && !obj.isGeometricallyClosed(tolerance);
    }
}

/**
 * Checks if the given object is a solid entity.
 *
 * \return true if the given object is a solid entity (RSolidEntity).
 */
function isSolidEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RSolidEntity) || isOfType(obj, RSolidEntityPointer);
    }
    else {
        return isOfType(obj, RSolidEntity);
    }
}

/**
 * Checks if the given object is a trace entity.
 *
 * \return true if the given object is a trace entity (RTraceEntity).
 */
function isTraceEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RTraceEntity) || isOfType(obj, RTraceEntityPointer);
    }
    else {
        return isOfType(obj, RTraceEntity);
    }
}

/**
 * Checks if the given object is a face entity.
 *
 * \return true if the given object is a face entity (RFaceEntity).
 */
function isFaceEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RFaceEntity) || isOfType(obj, RFaceEntityPointer);
    }
    else {
        return isOfType(obj, RFaceEntity);
    }
}

/**
 * Checks if the given object is a viewport entity.
 *
 * \return true if the given object is a viewport entity (RViewportEntity).
 */
function isViewportEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RViewportEntity) || isOfType(obj, RViewportEntityPointer);
    }
    else {
        return isOfType(obj, RViewportEntity);
    }
}

/**
 * Checks if the given object is a spline entity.
 *
 * \return true if the given object is a spline entity (RSplineEntity).
 */
function isSplineEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RSplineEntity) || isOfType(obj, RSplineEntityPointer);
    }
    else {
        return isOfType(obj, RSplineEntity);
    }
}

/**
 * Checks if the given object is a spline entity with fit points.
 *
 * \return true if the given object is a spline entity (RSplineEntity) with fit points.
 */
function isSplineEntityWithFitPoints(obj) {
    return isSplineEntity(obj) && obj.hasFitPoints();
}

function isClosedSplineEntity(obj, tolerance) {
    if (isNull(tolerance)) {
        return isSplineEntity(obj) && obj.isGeometricallyClosed();
    }
    else {
        return isSplineEntity(obj) && obj.isGeometricallyClosed(tolerance);
    }
}

/**
 * Checks if the given object is a text, attribute or attribute definition entity.
 *
 * \return true if the given object is a text based entity (RTextBasedEntity).
 */
function isTextBasedEntity(obj) {
    return isTextEntity(obj) || isAttributeDefinitionEntity(obj) || isAttributeEntity(obj);
}

/**
 * Checks if the given object is a text entity.
 *
 * \return true if the given object is a text entity (RTextEntity).
 */
function isTextEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RTextEntity) || isOfType(obj, RTextEntityPointer);
    }
    else {
        return isOfType(obj, RTextEntity);
    }
}

/**
 * Checks if the given object is a simple text entity.
 *
 * \return true if the given object is a text entity (RTextEntity) and simple.
 */
function isSimpleTextEntity(obj) {
    return isTextEntity(obj) && obj.isSimple();
}

/**
 * Checks if the given object is a block reference entity.
 *
 * \return true if the given object is a block reference entity (RBlockReferenceEntity).
 */
function isBlockReferenceEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RBlockReferenceEntity) || isOfType(obj, RBlockReferenceEntityPointer);
    }
    else {
        return isOfType(obj, RBlockReferenceEntity);
    }
}

/**
 * Checks if the given object is an attribute definition entity.
 *
 * \return true if the given object is an attribute definition entity (RAttributeDefinitionEntity).
 */
function isAttributeDefinitionEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RAttributeDefinitionEntity) || isOfType(obj, RAttributeDefinitionEntityPointer);
    }
    else {
        return isOfType(obj, RAttributeDefinitionEntity);
    }
}

/**
 * Checks if the given object is an attribute entity.
 *
 * \return true if the given object is an attribute entity (RAttributeEntity).
 */
function isAttributeEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RAttributeEntity) || isOfType(obj, RAttributeEntityPointer);
    }
    else {
        return isOfType(obj, RAttributeEntity);
    }
}

/**
 * Checks if the given object is a leader entity.
 * 
 * \return true if the given object is a leader entity
 * (RLeaderEntity).
 */
function isLeaderEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RLeaderEntity) || isOfType(obj, RLeaderEntityPointer);
    }
    else {
        return isOfType(obj, RLeaderEntity);
    }
}

/**
 * Checks if the given object is a tolerance entity.
 *
 * \return true if the given object is a tolerance entity (RToleranceEntity).
 */
function isToleranceEntity(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RToleranceEntity) || isOfType(obj, RToleranceEntityPointer);
    }
    else {
        return isOfType(obj, RToleranceEntity);
    }
}

/**
 * Checks if the given object is an entity of the given type.
 */
function isEntityType(obj, type) {
    if (!isEntity(obj)) {
        return false;
    }

    if (obj.getType()===type) {
        return true;
    }

    if (type===RS.EntityTextBased) {
        if (isTextBasedEntity(obj)) {
            return true;
        }
    }
    if (type===RS.EntityDimension) {
        if (isDimensionEntity(obj)) {
            return true;
        }
    }

    if (type===RS.EntityAll) {
        return true;
    }

    return false;
}

/**
 * Checks if the given object is a shape.
 *
 * \return true if the given object is a shape (derived from RShape).
 */
function isShape(obj) {
    return !isNull(obj) &&
        isFunction(obj.getBoundingBox) &&
        isFunction(obj.getClosestPointOnShape);
}

/**
 * Checks if the given object is a directed shape.
 *
 * \return true if the given object is a directed shape.
 */
function isDirectedShape(obj) {
    return isShape(obj) && obj.isDirected();
}

/**
 * Checks if the given object is an arc shape.
 *
 * \return true if the given object is an arc shape (RArc).
 */
function isArcShape(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RArc) || isOfType(obj, RArcPointer);
    }
    else {
        return isOfType(obj, RArc);
    }
}

/**
 * Checks if the given object is a circle shape.
 *
 * \return true if the given object is a circle shape (RCircle).
 */
function isCircleShape(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RCircle) || isOfType(obj, RCirclePointer);
    }
    else {
        return isOfType(obj, RCircle);
    }
}

/**
 * Checks if the given object is an ellipse shape.
 *
 * \return true if the given object is an ellipse shape (REllipse).
 */
function isEllipseShape(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, REllipse) || isOfType(obj, REllipsePointer);
    }
    else {
        return isOfType(obj, REllipse);
    }
}

/**
 * Checks if the given object is a full ellipse shape.
 *
 * \return true if the given object is a full ellipse shape (REllipse).
 */
function isFullEllipseShape(obj) {
    return isEllipseShape(obj) && obj.isFullEllipse();
}

/**
 * Checks if the given object is an ellipse arc shape.
 *
 * \return true if the given object is an ellipse arc shape (REllipse).
 */
function isEllipseArcShape(obj) {
    return isEllipseShape(obj) && !obj.isFullEllipse();
}

/**
 * Checks if the given object is a line based shape.
 *
 * \return true if the given object is a line based shape (RLine, RXline, RRay).
 */
function isLineBasedShape(obj) {
    return isLineShape(obj) || isXLineShape(obj) || isRayShape(obj);
}

/**
 * Checks if the given object is a line shape.
 *
 * \return true if the given object is a line shape (RLine).
 */
function isLineShape(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RLine) || isOfType(obj, RLinePointer);
    }
    else {
        return isOfType(obj, RLine);
    }
}

/**
 * Checks if the given object is an xline shape.
 *
 * \return true if the given object is an xline shape (RXLine).
 */
function isXLineShape(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RXLine) || isOfType(obj, RXLinePointer);
    }
    else {
        return isOfType(obj, RXLine);
    }
}

/**
 * Checks if the given object is a ray shape.
 *
 * \return true if the given object is a ray shape (RRay).
 */
function isRayShape(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RRay) || isOfType(obj, RRayPointer);
    }
    else {
        return isOfType(obj, RRay);
    }
}

/**
 * Checks if the given object is a point shape.
 *
 * \return true if the given object is a point shape (RPoint).
 */
function isPointShape(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RPoint) || isOfType(obj, RPointPointer);
    }
    else {
        return isOfType(obj, RPoint);
    }
}

/**
 * Checks if the given object is a polyline shape.
 *
 * \return true if the given object is a polyline shape (RPolyline).
 */
function isPolylineShape(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RPolyline) || isOfType(obj, RPolylinePointer);
    }
    else {
        return isOfType(obj, RPolyline);
    }
}

/**
 * \return true if the given object is a geometrically closed polyline shape.
 */
function isClosedPolylineShape(obj) {
    return isPolylineShape(obj) && obj.isGeometricallyClosed();
}

/**
 * Checks if the given object is a spline shape.
 *
 * \return true if the given object is a spline shape (RSpline).
 */
function isSplineShape(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RSpline) || isOfType(obj, RSplinePointer);
    }
    else {
        return isOfType(obj, RSpline);
    }
}

/**
 * Checks if the given object is a closed spline shape.
 *
 * \return true if the given object is a closed spline shape (RSpline).
 */
function isClosedSplineShape(obj, tolerance) {
    if (isNull(tolerance)) {
        return isSplineShape(obj) && obj.isGeometricallyClosed();
    }
    else {
        return isSplineShape(obj) && obj.isGeometricallyClosed(tolerance);
    }
}

/**
 * Checks if the given object is a triangle shape.
 *
 * \return true if the given object is a triangle shape (RTriangle).
 */
function isTriangleShape(obj) {
    if (RSettings.getQtVersion() < 0x060000) {
        return isOfType(obj, RTriangle) || isOfType(obj, RTrianglePointer);
    }
    else {
        return isOfType(obj, RTriangle);
    }
}

/**
 * Converts the given entity type enum to the class name.
 *
 * \return Class name (e.g. "RLineEntity" for RS.EntityLine
 *
 * \param type Entity type (RS::EntityType)
 */
function entityTypeToClass(type) {
    switch (type) {
    case RS.ObjectAll:
        return "RObject";
    case RS.ObjectUnknown:
        return "RObject";
    case RS.ObjectBlock:
        return "RBlock";
    case RS.ObjectLayer:
        return "RLayer";
    case RS.ObjectLayout:
        return "RLayout";
    case RS.ObjectLinetype:
        return "RLinetype";
    case RS.ObjectView:
        return "RView";
    case RS.ObjectDimStyle:
        return "RDimStyle";

    case RS.EntityAll:
        return "REntity";
    case RS.EntityBlockRef:
        return "RBlockReferenceEntity";
    case RS.EntityArc:
        return "RArcEntity";
    case RS.EntityAttribute:
        return "RAttributeEntity";
    case RS.EntityAttributeDefinition:
        return "RAttributeDefinitionEntity";
    case RS.EntityCircle:
        return "RCircleEntity";
    case RS.EntityDimension:
        return "RDimensionEntity";
    case RS.EntityDimAligned:
        return "RDimAlignedEntity";
    case RS.EntityDimAngular:
        return "RDimAngularEntity";
    case RS.EntityDimAngular2L:
        return "RDimAngular2LEntity";
    case RS.EntityDimAngular3P:
        return "RDimAngular3PEntity";
    case RS.EntityDimArcLength:
        return "RDimArcLengthEntity";
    case RS.EntityDimDiametric:
        return "RDimDiametricEntity";
    case RS.EntityDimOrdinate:
        return "RDimOrdinateEntity";
    case RS.EntityDimRotated:
        return "RDimRotatedEntity";
    case RS.EntityDimRadial:
        return "RDimRadialEntity";
    case RS.EntityEllipse:
        return "REllipseEntity";
    case RS.EntityHatch:
        return "RHatchEntity";
    case RS.EntityImage:
        return "RImageEntity";
    case RS.EntityLeader:
        return "RLeaderEntity";
    case RS.EntityTolerance:
        return "RToleranceEntity";
    case RS.EntityLine:
        return "RLineEntity";
    case RS.EntityXLine:
        return "RXLineEntity";
    case RS.EntityRay:
        return "RRayEntity";
    case RS.EntityPoint:
        return "RPointEntity";
    case RS.EntityPolyline:
        return "RPolylineEntity";
    case RS.EntitySolid:
        return "RSolidEntity";
    case RS.EntityTrace:
        return "RTraceEntity";
    case RS.EntityFace:
        return "RFaceEntity";
    case RS.EntitySpline:
        return "RSplineEntity";
    case RS.EntityTextBased:
        return "RTextBasedEntity";
    case RS.EntityText:
        return "RTextEntity";
    case RS.EntityViewport:
        return "RViewportEntity";
    case RS.EntityWipeout:
        return "RWipeoutEntity";
    case RS.EntityXRef:
        return "RXRefEntity";
    default:
        return undefined;
    }
}

/**
 * Converts the given entity type enum to a human readable,
 * translated string.
 *
 * \return A translated string for the given entity type.
 *
 * \param type Entity type (RS::EntityType)
 * \param plural True to return plural, false (default) to return singular.
 */
function entityTypeToString(type, plural) {
    if (isNull(plural)) {
        plural = false;
    }

    switch (type) {
    case RS.ObjectAll:
        return plural ? qsTr("Objects") : qsTr("Object");
    case RS.ObjectUnknown:
        return plural ? qsTr("Unknown Objects") : qsTr("Unknown Object");
    case RS.ObjectBlock:
        return plural ? qsTr("Blocks") : qsTr("Block");
    case RS.ObjectLayer:
        return plural ? qsTr("Layers") : qsTr("Layer");
    case RS.ObjectLayout:
        return plural ? qsTr("Layouts") : qsTr("Layout");
    case RS.ObjectLinetype:
        return plural ? qsTr("Linetypes") : qsTr("Linetype");
    case RS.ObjectView:
        return plural ? qsTr("Views") : qsTr("View");
    case RS.ObjectDimStyle:
        return plural ? qsTr("Dimension Styles") : qsTr("Dimension Style");

    case RS.EntityAll:
        return plural ? qsTr("Entities") : qsTr("Entity");
    case RS.Entity3dFace:
        return plural ? qsTr("3dFaces") : qsTr("3dFace");
    case RS.EntityBlockRef:
        return plural ? qsTr("Block References") : qsTr("Block Reference");
    case RS.EntityBlockRefAttr:
        return plural ? qsTr("Block References and Attributes") : qsTr("Block Reference and Attributes");
    case RS.EntityArc:
        return plural ? qsTr("Arcs") : qsTr("Arc");
    case RS.EntityAttribute:
        return plural ? qsTr("Attributes") : qsTr("Attribute");
    case RS.EntityAttributeDefinition:
        return plural ? qsTr("Attribute Definitions") : qsTr("Attribute Definition");
    case RS.EntityCircle:
        return plural ? qsTr("Circles") : qsTr("Circle");
    case RS.EntityDimension:
        return plural ? qsTr("Dimensions") : qsTr("Dimension");
    case RS.EntityDimAligned:
        return plural ? qsTr("Aligned Dimensions") : qsTr("Aligned Dimension");
    case RS.EntityDimAngular:
        return plural ? qsTr("Angular Dimensions") : qsTr("Angular Dimension");
    case RS.EntityDimAngular2L:
        return plural ? qsTr("Angular Dimensions (2 Lines)") : qsTr("Angular Dimension (2 Lines)");
    case RS.EntityDimAngular3P:
        return plural ? qsTr("Angular Dimensions (3 Points)") : qsTr("Angular Dimension (3 Points)");
    case RS.EntityDimArcLength:
        return plural ? qsTr("Arc Dimension") : qsTr("Arc Dimension");
    case RS.EntityDimDiametric:
        return plural ? qsTr("Diametric Dimensions") : qsTr("Diametric Dimension");
    case RS.EntityDimOrdinate:
        return plural ? qsTr("Ordinate Dimensions") : qsTr("Ordinate Dimension");
    case RS.EntityDimRotated:
        return plural ? qsTr("Rotated Dimensions") : qsTr("Rotated Dimension");
    case RS.EntityDimRadial:
        return plural ? qsTr("Radial Dimensions") : qsTr("Radial Dimension");
    case RS.EntityEllipse:
        return plural ? qsTr("Ellipses") : qsTr("Ellipse");
    case RS.EntityHatch:
        return plural ? qsTr("Hatches") : qsTr("Hatch");
    case RS.EntityImage:
        return plural ? qsTr("Images") : qsTr("Image");
    case RS.EntityLeader:
        return plural ? qsTr("Leaders") : qsTr("Leader");
    case RS.EntityTolerance:
        return plural ? qsTr("Tolerances") : qsTr("Tolerance");
    case RS.EntityLine:
        return plural ? qsTr("Lines") : qsTr("Line");
    case RS.EntityXLine:
        return plural ? qsTr("Infinite Lines") : qsTr("Infinite Line");
    case RS.EntityRay:
        return plural ? qsTr("Rays") : qsTr("Ray");
    case RS.EntityPoint:
        return plural ? qsTr("Points") : qsTr("Point");
    case RS.EntityPolyline:
        return plural ? qsTr("Polylines") : qsTr("Polyline");
    case RS.EntitySolid:
        return plural ? qsTr("Solids") : qsTr("Solid");
    case RS.EntityTrace:
        return plural ? qsTr("Traces") : qsTr("Trace");
    case RS.EntityFace:
        return plural ? qsTr("Faces") : qsTr("Face");
    case RS.EntitySpline:
        return plural ? qsTr("Splines") : qsTr("Spline");
    case RS.EntityTextBased:
        return plural ? qsTr("Text based") : qsTr("Text based");
    case RS.EntityText:
        return plural ? qsTr("Texts") : qsTr("Text");
    case RS.EntityViewport:
        return plural ? qsTr("Viewports") : qsTr("Viewport");
    case RS.EntityWipeout:
        return plural ? qsTr("Wipeouts") : qsTr("Wipeout");
    case RS.EntityXRef:
        return plural ? qsTr("External References") : qsTr("External Reference");
    case RS.EntityUnknown:
        return plural ? qsTr("Unknown Entities") : qsTr("Unknown Entity");
    default:
        if (type>=RS.EntityCustom && type<RS.EntityUser) {
            var handler = RCustomEntityRegistry.getHandler(type);
            if (!isNull(handler)) {
                var name = handler.getEntityName(plural);
                return qsTranslate("RCustomEntity", name);
            }
        }
        return plural ? qsTr("Unknown Entities") : qsTr("Unknown Entity");
    }
}

/**
 * Converts the given entity type name to the entity type enum.
 *
 * \return entity type enum.
 *
 * \param typeName Entity type name ("Line", "Arc", ...)
 */
function getEntityType(typeName) {
    switch (typeName) {
    case "Block":
        return RS.ObjectBlock;
    case "Layer":
        return RS.ObjectLayer;
    case "Layout":
        return RS.ObjectLayout;
    case "Linetype":
        return RS.ObjectLinetype;
    case "View":
        return RS.ObjectView;

    case "Entity":
        return RS.EntityAll;
    case "3dFace":
        return RS.Entity3dFace;
    case "Block Reference":
        return RS.EntityBlockRef;
    case "Block Reference and Attributes":
        return RS.EntityBlockRefAttr;
    case "Arc":
        return RS.EntityArc;
    case "Attribute":
        return RS.EntityAttribute;
    case "Attribute Definition":
        return RS.EntityAttributeDefinition;
    case "Circle":
        return RS.EntityCircle;
    case "Dimension":
        return RS.EntityDimension;
    case "Aligned Dimension":
        return RS.EntityDimAligned;
    case "Angular Dimension":
        return RS.EntityDimAngular;
    case "Angular Dimension (2 Line)":
        return RS.EntityDimAngular2L;
    case "Angular Dimension (3 Point)":
        return RS.EntityDimAngular3P;
    case "Arc Dimension":
        return RS.EntityDimArcLength;
    case "Diametric Dimension":
        return RS.EntityDimDiametric;
    case "Ordinate Dimension":
        return RS.EntityDimOrdinate;
    case "Rotated Dimension":
        return RS.EntityDimRotated;
    case "Radial Dimension":
        return RS.EntityDimRadial;
    case "Ellipse":
        return RS.EntityEllipse;
    case "Hatch":
        return RS.EntityHatch;
    case "Image":
        return RS.EntityImage;
    case "Leader":
        return RS.EntityLeader;
    case "Tolerance":
        return RS.EntityTolerance;
    case "Line":
        return RS.EntityLine;
    case "Infinite Line":
    case "XLine":
        return RS.EntityXLine;
    case "Ray":
        return RS.EntityRay;
    case "Point":
        return RS.EntityPoint;
    case "Polyline":
        return RS.EntityPolyline;
    case "Solid":
        return RS.EntitySolid;
    case "Trace":
        return RS.EntityTrace;
    case "Face":
        return RS.EntityFace;
    case "Spline":
        return RS.EntitySpline;
    case "Text based":
        return RS.EntityTextBased;
    case "Text":
        return RS.EntityText;
    case "Viewport":
        return RS.EntityViewport;
    case "Wipeout":
        return RS.EntityWipeout;
    case "External Reference":
        return RS.EntityXRef;
    default:
        return RS.ObjectUnknown;
    }
}

function translateFilterStrings(filterStrings) {
    for (var i=0; i<filterStrings.length; i++) {
        filterStrings[i] = filterStrings[i].replace("All CAD Files", qsTr("All CAD Files"));
        filterStrings[i] = filterStrings[i].replace("DXF Files", qsTr("DXF Files"));
        filterStrings[i] = filterStrings[i].replace("SVG Files", qsTr("SVG Files"));
        filterStrings[i] = filterStrings[i].replace("DXF Drawing", qsTr("DXF Drawing"));
        filterStrings[i] = filterStrings[i].replace("DWG Drawing", qsTr("DWG Drawing"));
        filterStrings[i] = filterStrings[i].replace("PDF File", qsTr("PDF File"));
        filterStrings[i] = filterStrings[i].replace("PDF/A-1B File", qsTr("PDF/A-1B File"));
    }
    return filterStrings;
}

/**
 * Checks the type of the given object.
 *
 * \return true if the given object is a combo box.
 */
function isComboBox(obj) {
    return !isNull(obj) &&
            (
             isOfType(obj, QComboBox) ||
             isOfType(obj, RColorCombo) ||
             isOfType(obj, RLineweightCombo) ||
             isOfType(obj, RLinetypeCombo)
            );
}

/**
 * Gets an object from its object path.
 * Object paths are separated by <tt>::</tt>.
 * \param path the object path
 * \param widget the widget [optional, used for the recursive call], obsolete
 * \return Object or undefined
 */
function objectFromPath(path) {
    var child = getMainWindow();
    var children = path.split("::");
    for (var i = 1; i < children.length; ++i) {
        if (typeof(child)==="undefined") {
            return undefined;
        }
        child = child.findChild(children[i]);
    }
    return child;
}

/**
 * Gets the widget path for the given widget.
 * The widgets in the path are separated with <tt>::</tt>,
 * e.g. <tt>MainWindow::LayerListDock::LayerWidget::btAdd</tt>  
 * \param widget the widget
 * \return the widget path
 */
function getWidgetPath(widget) {
    var pw = widget.parentWidget();
    var str = "";
    if (RSettings.getQtVersion()>=0x060000) {
        if (widget.objectName !== "") {
            str = widget.objectName;
        }
        else {
            return getWidgetPath(pw);
        }
    }
    else {
        str = widget.objectName !== "" ? widget.objectName : widget.toString();
    }

    if (isNull(pw)) {
        return str;
    }
    return getWidgetPath(pw) + "::" + str;
}

/**
 * Gets all child widgets and stores them in an array.
 *
 * All child widgets are retrieved (recursively).
 * 
 * Use of this function as shown in the example below
 * (formWidget is the parent widget). 
 * <tt>
 * var widgets = getWidgets(formWidget);
 * widgets["FindText"].text = text;
 * </tt>
 * 
 * \param widget the parent widget
 * \param ca the initial array which holds some child widgets for
 *        recursive calls
 * \param allowDuplicates True to collect widgets with same name under
 * a different key ("MyField", "MyField_1", "MyField_2").
 * \return Array of child widgets.
 */
function getWidgets(widget, ca, allowDuplicates) {
    if (isNull(widget) || isDeleted(widget)) {
        return undefined;
    }
    if (isNull(allowDuplicates)) {
        allowDuplicates = false;
    }

    if (isNull(ca)) {
        ca = {};
    }
    var children = widget.children();
    for (var i = 0; i < children.length; ++i) {
        var child = children[i];
        if (isNull(child) || isDeleted(child)) {
            continue;
        }
        if (!isNull(child.objectName) && child.objectName !== "") {
            if (isNull(ca[child.objectName]) || allowDuplicates===false) {
                // new child or overwrite child:
                ca[child.objectName] = child;
            }
            else {
                // find alternative key for child:
                for (var k=1; k<10000; k++) {
                    if (isNull(ca[child.objectName + "_" + k])) {
                        ca[child.objectName + "_" + k] = child;
                        break;
                    }
                }
            }
        }

        if (!isNull(child.children) && child.children().length !== 0) {
            getWidgets(child, ca, allowDuplicates);
        }
    }

    return ca;
}

/**
 * Converts radiant to degrees.
 * \param val the value in radiant
 * \return the value in degrees
 */
function rad2deg(val) {
    return val * (180 / Math.PI);
}

/**
 * Converts degrees to radiant.
 * \param val the value in degrees
 * \return the value in radiant
 */
function deg2rad(val) {
    return val * (Math.PI / 180);
}

function roundDouble(num, dec) {
    return Math.round(num*Math.pow(10, dec)) / Math.pow(10, dec);
}

function roundVector(v, dec) {
    var x = roundDouble(v.x, dec);
    var y = roundDouble(v.y, dec);
    return new RVector(x, y);
}

/**
 * Copies a directory recursively.
 * Existing files are not overridden.
 * \param sourceDirPath The source directory.
 * \param destDirPath The destination directory.
 * \return true, if the directory was deleted successfully
 */
function copyDirectory(sourceDirPath, destDirPath) {
    var sourceDir = new QDir(sourceDirPath);
    if (!sourceDir.exists()) {
        return false;
    }
    
    var destDir = new QDir(destDirPath);
    if (!destDir.exists()) {
        destDir.mkdir(destDirPath);
    }
    
    var i;
    var files;
    var srcName;
    var destName;
    var filterFlags = makeQDirFilters(QDir.Files);
    var sortFlags = makeQDirSortFlags(QDir.NoSort);
    files = sourceDir.entryList(filterFlags, sortFlags);
    for(i = 0; i< files.length; i++) {
        srcName = sourceDirPath + QDir.separator + files[i];
        destName = destDirPath + QDir.separator + files[i];
        if (!QFile.copy(srcName, destName)) {
            qWarning("library.js:", "copyDirectory(): Warning: File exists:", destName);
        }
    }

    var flags = makeQDirFilters(QDir.AllDirs, QDir.NoDotAndDotDot);
    files = sourceDir.entryList(flags);
    for(i = 0; i< files.length; i++) {
        srcName = sourceDirPath + QDir.separator + files[i];
        destName = destDirPath + QDir.separator + files[i];
        copyDirectory(srcName, destName);
    }
    return true;
}

/**
 * Removes a directory recursively.
 * \param dirPath The directory to remove.
 * \return true, if no errors occurs
 */
function removeDirectory(dirPath) {
    var dir = new QDir(dirPath);
    var hasErr = false;
    if (dir.exists()) {
        var flags = makeQDirFilters(QDir.NoDotAndDotDot, QDir.Dirs, QDir.Files, QDir.Hidden);
        var entries = dir.entryInfoList(flags);
        for (var i = 0; i <  entries.length; i++) {
            var entryInfo = entries[i];
            var path = entryInfo.absoluteFilePath();
            if (entryInfo.isDir()) {
                hasErr = removeDirectory(path);
            } else {
                var file = new QFile(path);
                if (!file.remove()) {
                    hasErr = true;
                }
            }
            if (hasErr) {
                break;
            }
        }
        if (!dir.rmdir(dir.absolutePath())) {
            hasErr = true;
        }
    }
    return hasErr;
}

/**
 * Finds a file recursively.
 * \param dirPath The directory to search.
 * \param fileName File name.
 * \return Path of the file or undefined.
 */
function findFile(dirPath, fileName, ignoreDirs) {
    if (isNull(ignoreDirs)) {
        ignoreDirs = [];
    }

    var res = [];

    var dir = new QDir(dirPath);
    if (!dir.exists()) {
        return res;
    }

    var i;
    var files;
    var name;
    var filterFlags = makeQDirFilters(QDir.Files);
    var sortFlags = makeQDirSortFlags(QDir.NoSort);
    files = dir.entryList([fileName], filterFlags, sortFlags);
    for (i=0; i<files.length; i++) {
        res = res.concat(dirPath + QDir.separator + files[i]);
    }

    var flags = makeQDirFilters(QDir.AllDirs, QDir.NoDotAndDotDot);
    files = dir.entryList(flags);
    for (i = 0; i< files.length; i++) {
        var nextDir = dirPath + QDir.separator + files[i];
        if (ignoreDirs.indexOf(files[i])==-1) {
            res = res.concat(findFile(nextDir, fileName, ignoreDirs));
        }
    }

    return res;
}

/**
 * Clones the given object (deep copy).
 */
function deepCopy(obj) {
    if (Object.prototype.toString.call(obj) === '[object Array]') {
        var out = [], i = 0, len = obj.length;
        for ( ; i < len; i++ ) {
            out[i] = arguments.callee(obj[i]);
        }
        return out;
    }
    if (typeof obj === 'object') {
        var out = {}, i;
        for ( i in obj ) {
            out[i] = arguments.callee(obj[i]);
        }
        return out;
    }
    return obj;
}

function hasOwnPropertyCI(obj, prop) {
   return Object.keys(obj)
           .filter(function (v) {
               return v.toLowerCase() === prop.toLowerCase();
           }).length > 0;
}

function getOwnPropertyCI(obj, prop) {
    var ret = Object.keys(obj)
            .filter(function (v) {
                return v.toLowerCase() === prop.toLowerCase();
            });
    if (ret.length>0) {
        return obj[ret[0]];
    }
    return undefined;
}

/**
 * \return A new array which contains every unique item of this array only once.
 */
Array.prototype.unique = function(method) {
    var a = [], i, l = this.length;
    for (i = 0; i < l; i++) {
        if (isNull(method)) {
            if (a.indexOf(this[i], 0) < 0) {
                a.push(this[i]);
            }
        }
        else {
            if (!a.contains(this[i], method)) {
                a.push(this[i]);
            }
        }
    }
    return a;
};

/**
 * \return True if this array contains the given value or object 'obj'.
 * \param method Name of method to call from obj to compare it to anther object.
 * Opptional,  defaults to == operator for the comparison.
 */
Array.prototype.contains = function(obj, method) {
    for (var i = 0; i < this.length; i++) {
        // method is a function(a,b):
        if (isFunction(method)) {
            if (method(this[i], obj)) {
                return true;
            }
        }
        else if (isFunction(this[i][method])) {
            // method is the name of a member method that compares
            // two objects, eg. "equals":
            if (this[i][method](obj)) {
                return true;
            }
        }
        else {
            if (this[i] == obj) {
                return true;
            }
        }
    }
    return false;
};

/**
 * \return True if this array contains the given string (case insensitive).
 */
Array.prototype.containsIgnoreCase = function(obj) {
    return this.contains(obj, function(a,b) { return a.toUpperCase()===b.toUpperCase(); });
};

/**
 * \return True if this array contains all items of the given array.
 */
Array.prototype.containsAll = function(obj) {
    if (obj.length>this.length) {
        return false;
    }

    for (var i=0; i<obj.length; i++) {
        if (this.indexOf(obj[i])<0) {
            return false;
        }
    }

    return true;
};

/**
 * \return Array with all elements of this array that are not also
 * in the given array (subtract).
 */
Array.prototype.difference = function(a) {
    return this.filter(function(i) { return !(a.indexOf(i) > -1); } );
};

/**
 * \return True if this array is identical with the given array in
 * length and contents.
 */
Array.prototype.isEqual = function(b) {
    if (this.length!==b.length) {
        return false;
    }

    for (var i=0; i<this.length; i++) {
        if (this[i]!==b[i]) {
            return false;
        }
    }

    return true;
};

/**
 * \return True if the length of this array is zero.
 */
Array.prototype.isEmpty = function() {
    return (this.length == 0);
};

/**
 * Empties the array (sets its length to 0).
 */
Array.prototype.clear = function() {
    this.length = 0;
};

/**
 * Remove the first match of the given value from the array.
 * \param val The value to remove.
 */
Array.prototype.remove = function(val, compareFunction) {
    for (var i=0; i<this.length; i++) {
        var match = false;
        if (!isNull(compareFunction)) {
            match = compareFunction(this[i], val);
        }
        else {
            match = (this[i] == val);
        }

        if (match) {
            this.splice(i, 1);
            break;
        }
    }
};

Array.prototype.removeAt = function(index) {
    var part1 = this.slice(0, index);
    var part2 = this.slice(index + 1);
    return (part1.concat(part2));
};

/**
 * Removes all matches of the given value from the array.
 * \param The value(s) to remove.
 */
Array.prototype.removeAll = function() {
    var what, a = arguments, l = a.length, ax;
    while (l && this.length) {
        what = a[--l];
        while ((ax = this.indexOf(what)) !== -1) {
            this.splice(ax, 1);
        }
    }
    return this;
};

/**
 * Remove the first case insensitive match of the given string value from the array.
 * \param val The value to remove.
 */
Array.prototype.removeIgnoreCase = function(val) {
    this.remove(val, function(a,b) { return a.toUpperCase()===b.toUpperCase(); });
};

/**
 * Remove the given parameter from an array (by default 'undefined').
 *
 * test = new Array("","One","Two","", "Three","","Four").clean("");
 *
 * test2 = [1,2,,3,,3,,,,,,4,,4,,5,,6,,,,];
 * test2.clean(undefined);
 *
 * \param deleteValue
 * \return {Array}
 */
Array.prototype.clean = function(deleteValue) {
    for (var i = 0; i < this.length; i++) {
        if (this[i] == deleteValue) {
            this.splice(i, 1);
            i--;
        }
    }
    return this;
};

/**
 * Clones (copies) the array.
 *
 * \returns the cloned array
 */
Array.prototype.clone = function() {
    return this.slice(0);
};

/**
 * Sorts this array with numerical items (ascending)
 */
Array.prototype.sortNumerical = function() {
    Array.prototype.sort.call(this, function(a,b) { return a - b });
};

Array.alphaNumericalSorter = function(a, b) {
    return RS.compareAlphanumerical(a, b);
};

Array.prototype.filter = function(func, thisArg) {
    if ( ! ((typeof func === 'Function' || typeof func === 'function') && this) )
        throw new TypeError();

    var len = this.length >>> 0,
        res = new Array(len), // preallocate array
        t = this, c = 0, i = -1;

    var kValue;
    if (thisArg === undefined){
      while (++i !== len){
        // checks to see if the key was set
        if (i in this){
          kValue = t[i]; // in case t is changed in callback
          if (func(t[i], i, t)){
            res[c++] = kValue;
          }
        }
      }
    }
    else{
      while (++i !== len){
        // checks to see if the key was set
        if (i in this){
          kValue = t[i];
          if (func.call(thisArg, t[i], i, t)){
            res[c++] = kValue;
          }
        }
      }
    }

    res.length = c; // shrink down array to proper size
    return res;
};

Array.prototype.flat = function(depth) {
    // If no depth is specified, default to 1
    if (depth === undefined) {
        depth = 1;
    }

    // Recursively reduce sub-arrays to the specified depth
    var flatten = function (arr, depth) {

        // If depth is 0, return the array as-is
        if (depth < 1) {
            return arr.slice();
        }

        // Otherwise, concatenate into the parent array
        return arr.reduce(function (acc, val) {
            return acc.concat(Array.isArray(val) ? flatten(val, depth - 1) : val);
        }, []);

    };

    return flatten(this, depth);

};


/**
 * Sorts this array with string items (case insensitive)
 */
//Array.prototype.sortCaseInsensitive = function() {
//    Array.prototype.sort.call(this, function (a, b) {
//        return a.toLowerCase().localeCompare(b.toLowerCase());
//    });
//};

Array.union = function(x, y) {
    var i;
    var obj = {};
    for (i=x.length-1; i>=0; --i) {
        obj[x[i]] = x[i];
    }
    for (i=y.length-1; i>=0; --i) {
        obj[y[i]] = y[i];
    }
    var res = []
    for (var k in obj) {
        res.push(obj[k]);
    }
    return res;
};

/* Finds the intersection of two sorted arrays.
 *
 * \param a first array, must already be sorted
 * \param b second array, must already be sorted
 *
 * Items must be sorted NUMERICALLY (sortNumerical) if arrays contain numbers or
 * ALPHABETICALLY (sort) if arrays contain strings.
 *
 * Should have O(n) operations, where n is
 * n = MIN(a.length(), b.length())
 */
Array.intersectSafe = function(a, b) {
    var ai=0;
    var bi=0;
    var result = [];

    while (ai < a.length && bi < b.length) {
        if (a[ai] < b[bi]) {
            ai++;
        }
        else if (a[ai] > b[bi]) {
            bi++;
        }
        else {
            result.push(a[ai]);
            ai++;
            bi++;
        }
    }

    return result;
};

/**
 * Destructively finds the intersection of
 * two arrays.
 *
 * \param a first array, must already be sorted
 * \param b second array, must already be sorted
 *
 * Items must be sorted NUMERICALLY (sortNumerical) if arrays contain numbers or
 * ALPHABETICALLY (sort) if arrays contain strings.
 *
 * State of input arrays is undefined when
 * the function returns.
 */
Array.intersect = function(a, b) {
  var result = [];
  while (a.length > 0 && b.length > 0 ) {
     if (a[0] < b[0]) {
        a.shift();
     }
     else if (a[0] > b[0]) {
        b.shift();
     }
     else {
       result.push(a.shift());
       b.shift();
     }
  }

  return result;
};

/**
 * Escapes a string for use as literlal match in regular expression.
 */
RegExp.escape = function(s) {
    return s.replace(/[\-\[\]{}()*+?.,\\\^$|#\s]/g, "\\$&");
};

/**
 * Checks the type of the given object.
 *
 * \return true if the given object is an array.
 */
function isArray(obj) {
    return getTypeOf(obj)==="array";
    //return obj && !(obj.propertyIsEnumerable('length'))
    //    && typeof obj === 'object' && typeof(obj.length) === 'number';
}

/**
 * \class String
 * \brief ECMAScript Script class.
 */

/**
 * Capitalize words in a text string.
 * \return New string with capitalized words.
 */
String.prototype.capitalize = function(){
    return this.replace( /(^|\s)([a-z])/g , function(m, p1, p2){
        return p1 + p2.toUpperCase();
    });
};

/**
 * Trims white space.
 * \return New string with removed whitespace at start and end of this string.
 */
String.prototype.trim = function() {
    return this.replace(/^\s+|\s+$/g, '');
};

/**
 * Shortens a string.
 * \return New string shortened to the given number of pixels using ellipsis (...).
 */
String.prototype.elidedText = function(font, pixel) {
    var fm = new QFontMetrics(font);
    var s = this;
    if (!isString(s)) {
        s = s.toString();
    }
    var t = fm.elidedText(s, Qt.ElideMiddle, pixel);
    destr(fm);
    // replace HORIZONTAL ELLIPSIS (not every GUI font has those):
    t = t.replace(/\u2026/g, '...');
    return t;
};

/**
 * Returns true if this string starts with \c str.
 */
String.prototype.startsWith = function(str) {
    return (this.indexOf(str) === 0);
};

/**
 * Returns true if this string ends with \c str.
 */
String.prototype.endsWith = function(str) {
    return this.indexOf(str, this.length - str.length) !== -1;
};

/**
 * Returns true if this string is empty.
 */
String.prototype.isEmpty = function() {
    return (this == "");
};

/**
 * Returns true if this string contains \c str.
 */
String.prototype.contains = function(str) {
    return this.indexOf(str)!==-1;
};

/**
 * Returns true if this string contains \c str. Case insensitive.
 */
String.prototype.containsIgnoreCase = function(str) {
    return this.toLowerCase().indexOf(str.toLowerCase())!==-1;
};


/**
 * Returns the number of occurrences of \c ch in this string.
 */
String.prototype.count = function(ch) {
    return this.split(ch).length - 1;
};

/**
 * Returns a substring that contains the \c num leftmost characters of this string.
 */
String.prototype.left = function(num) {
    if (num>this.length) {
        return this;
    }
    return this.substr(0,num);
};

/**
 * Returns a substring that contains the \c num rightmost characters of this string.
 */
String.prototype.right = function(num) {
    if (num>this.length) {
        return this;
    }
    return this.substr(this.length-num, num);
};

/**
 * Returns a string that contains \c n characters of this string, 
 * starting at the specified \c position index.
 */
String.prototype.mid = function(position, n) {
    return this.substr(position, n);
};

/**
 * Returns true if this string equals "true".
 */
String.prototype.toBoolean = function() {
    return (/^true$/i).test(this);
};

/**
 * Converts this string into a float value if possible. If not, returns NaN.
 */
String.prototype.toFloat = function() {
    return parseFloat(this);
};

/**
 * Converts this string into an int value if possible. If not, returns NaN.
 */
String.prototype.toInt = function() {
    return parseInt(this, 10);
};

/**
 * Wraps a string after the given number of characters.
 * 
 * Example:
 * "long string".wordWrap(80, true, "\n")
 * Wraps after 80 characters, break words, too, uses a "\n" character
 * for new lines.
 * 
 * @param m the number of characters to wrap after 
 * @param c true: break words, false: don't break words 
 * @param b line break character, usually "\n"
 * @returns the wrapped text
 */
String.prototype.wordWrap = function(m, c, b){
    if(isNull(m)){
        m = 80;
    }
    if(isNull(c)){
        c = false;
    }
    if(isNull(b)){
        b = "\n";
    }
    
    var i, j, s, r = this.split("\n");
    if(m > 0) for(i in r){
        for(s = r[i], r[i] = ""; s.length > m;
            j = c ? m : (j = s.substr(0, m).match(/\S*$/)).input.length - j[0].length
            || m,
            r[i] += s.substr(0, j) + ((s = s.substr(j)).length ? b : "")
        );
        r[i] += s;
    }
    return r.join("\n");
};

String.prototype.regexIndexOf = function(regex, startpos) {
    var indexOf = this.substring(startpos || 0).search(regex);
    return (indexOf >= 0) ? (indexOf + (startpos || 0)) : indexOf;
};

String.prototype.regexLastIndexOf = function(regex, startpos) {
    regex = (regex.global) ? regex : new RegExp(regex.source, "g" + (regex.ignoreCase ? "i" : "") + (regex.multiLine ? "m" : ""));
    if(typeof (startpos) == "undefined") {
        startpos = this.length;
    } else if(startpos < 0) {
        startpos = 0;
    }
    var stringToWorkWith = this.substring(0, startpos + 1);
    var lastIndexOf = -1;
    var nextStop = 0;
    while((result = regex.exec(stringToWorkWith)) != null) {
        lastIndexOf = result.index;
        regex.lastIndex = ++nextStop;
    }
    return lastIndexOf;
};

String.prototype.padStart = function(targetLength, padString) {
    targetLength = targetLength >> 0; //floor if number or convert non-number to 0;
    padString = String(typeof padString !== 'undefined' ? padString : ' ');
    if (this.length > targetLength) {
        return String(this);
    } else {
        targetLength = targetLength - this.length;
        if (targetLength > padString.length) {
            padString += padString.repeat(targetLength / padString.length); //append to original to ensure we are longer than needed
        }
        return padString.slice(0, targetLength) + String(this);
    }
};

String.prototype.repeat = function(count) {
    var str = '' + this;
    // To convert string to integer.
    count = +count;
    // Check NaN
    if (count != count)
        count = 0;

    if (count < 0)
        throw new RangeError('repeat count must be non-negative');

    if (count == Infinity)
        throw new RangeError('repeat count must be less than infinity');

    count = Math.floor(count);
    if (str.length == 0 || count == 0)
        return '';

    // Ensuring count is a 31-bit integer allows us to heavily optimize the
    // main part. But anyway, most current (August 2014) browsers can't handle
    // strings 1 << 28 chars or longer, so:
    if (str.length * count >= 1 << 28)
        throw new RangeError('repeat count must not overflow maximum string size');

    var maxCount = str.length * count;
    count = Math.floor(Math.log(count) / Math.log(2));
    while (count) {
        str += str;
        count--;
    }
    str += str.substring(0, maxCount - str.length);
    return str;
};

/**
 * Modulo which works also for negative numbers (workaround for
 * ECMAScript modulo bug).
 */
Number.prototype.mod = function(n) {
    return ((this%n)+n)%n;
};

Math.sign = Math.sign || function(x) {
  x = +x; // convert to a number
  if (x === 0 || isNaN(x)) {
    return Number(x);
  }
  return x > 0 ? 1 : -1;
};

/**
 * Formats the given number into a locale aware string.
 */
function numberToString(num, decimals) {
    //var ret = "%1".arg(num, 0, 'f', decimals);
    var formatString = "%." + decimals + "f";
    var ret = sprintf(formatString, num);
    var decimalPoint = RSettings.getStringValue("Input/DecimalPoint", ".");
    if (decimalPoint!==".") {
        ret = ret.replace(".", decimalPoint);
    }
    return ret;
}

function angleToString(num, decimals) {
    var formatString = "%." + decimals + "f";
    var ret = sprintf(formatString, num);
    var decimalPoint = RSettings.getStringValue("Input/DecimalPoint", ".");
    if (decimalPoint!==".") {
        ret = ret.replace(".", decimalPoint);
    }
    return ret;
}

/**
 * Formats the given coordinate (RVector) into a locale aware string.
 */
function coordinateToString(coordinate, decimals, relative, polar, doc) {
    if (isNull(decimals)) {
        decimals = 3;
    }
    if (isNull(relative)) {
        relative = false;
    }
    if (isNull(polar)) {
        polar = false;
    }

    var first;
    var second;
    var sep;
    if (polar) {
        sep = RSettings.getPolarCoordinateSeparator();
        if (!isNull(doc)) {
            first = doc.formatLinear(coordinate.getMagnitude());
            second = doc.formatAngle(coordinate.getAngle());
        }
        else {
            first = numberToString(coordinate.getMagnitude(), decimals);
            second = angleToString(coordinate.getAngle() / (2 * Math.PI) * 360, decimals);
        }
    }
    else {
        sep = RSettings.getCartesianCoordinateSeparator();
        if (!isNull(doc)) {
            first = doc.formatLinear(coordinate.x);
            second = doc.formatLinear(coordinate.y);
        }
        else {
            first = numberToString(coordinate.x, decimals);
            second = numberToString(coordinate.y, decimals);
        }
    }

    var prefix;
    if (relative) {
        prefix = RSettings.getRelativeCoordinatePrefix();
    }
    else {
        prefix = "";
    }

    return prefix + first + sep + second;
}

/**
 * Parses the given string as coordinate.
 *
 * \param relativeZero RVector position of relative zero point.
 * \param str String to parse (e.g. "34,15.6" or "@10,30" or "50<60", ...)
 *
 * \return undefined if the string is not a coordinate, an invalid RVector
 *      if str is an invalid coordinate or the RVector result.
 */
function stringToCoordinate(relativeZero, str) {
    return RMath.parseCoordinate(str, relativeZero);
}

/**
 * Parses the given string as direct distance entry.
 *
 * \author Robert S
 *
 * \param relativeZero RVector position of relative zero point.
 * \param cursorPosition RVector position of cursor.
 * \param str String to parse (e.g. "34" or "15.123", ...)
 *
 * \return Invalid RVector if str is an invalid dde or
 *         return the dde point.
 */
function stringToDirectDistanceEntry(relativeZero, cursorPosition, str) {
    var cartCoordSep =
        RSettings.getStringValue("Input/CartesianCoordinateSeparator", ',');
    var polCoordSep =
        RSettings.getStringValue("Input/PolarCoordinateSeparator", '<');
    if (str.contains(cartCoordSep) || str.contains(polCoordSep)) {
        return undefined;
    }

    var value = RMath.eval(str);
    if (isNumber(value)) {
        var point1 = relativeZero;
        if (!isValidVector(point1)) {       // if this is the first action
            point1 = new RVector(0.0, 0.0); // of a new drawing relativezero
        }                                   // is not valid
        var point2 = cursorPosition;
        if (point1.equalsFuzzy(point2)) {
            // cursor at same pos as relative zero:
            return RVector.invalid;
        }

        var angle = point1.getAngleTo(point2);
        var v = new RVector();
        v.setPolar(value, angle);
        var point = point1.operator_add(v);
        return point;
     } else {
        // not a direct distance entry (not an error):
        return undefined;
     }
}

/**
 * Creates and returns a new entity based on the given shape.
 */
function shapeToEntity(document, shape) {
    if (isNull(shape)) {
        return undefined;
    }

    var s = getPtr(shape);

    switch (s.getShapeType()) {
    case RShape.Point:
        return new RPointEntity(document, new RPointData(s.getPosition()));
    case RShape.Line:
        return new RLineEntity(document, new RLineData(s));
    case RShape.Ray:
        return new RRayEntity(document, new RRayData(s));
    case RShape.XLine:
        return new RXLineEntity(document, new RXLineData(s));
    case RShape.Arc:
        return new RArcEntity(document, new RArcData(s));
    case RShape.Circle:
        return new RCircleEntity(document, new RCircleData(s));
    case RShape.Ellipse:
        return new REllipseEntity(document, new REllipseData(s));
    case RShape.Polyline:
        return new RPolylineEntity(document, new RPolylineData(s));
    case RShape.Spline:
        return new RSplineEntity(document, new RSplineData(s));
    case RShape.Triangle:
        return new RSolidEntity(document, new RSolidData(s));
    default:
        return undefined;
    }

    return undefined;
}

function getClosestSimpleShape(entity, pos) {
    return entity.getClosestSimpleShape(pos);
}

function trimStartPoint(shape, trimPoint, clickPoint) {
    shape.trimStartPoint(trimPoint, clickPoint);
    if (isXLineShape(shape)) {
        return xLineToRay(shape);
    }
    else {
        return shape;
    }
}

function trimEndPoint(shape, trimPoint, clickPoint) {
    shape.trimEndPoint(trimPoint, clickPoint);
    if (isXLineShape(shape)) {
        return xLineToRay(shape);
    }
    else if (isRayShape(shape)) {
        return rayToLine(shape);
    }
    else {
        return shape;
    }
}

function xLineToRay(xline) {
    return new RRay(xline.getBasePoint(), xline.getDirectionVector());
};

function rayToLine(ray) {
    return new RLine(ray.getBasePoint(), ray.getSecondPoint());
};

/**
 * Modify the given entity to represent the given shape.
 *
 * Possible conversions:
 * Line -> XLine, Ray
 * XLine -> Line, Ray
 * Ray -> XLine, Line
 * Circle -> Arc
 */
function modifyEntity(op, entity, shape) {
    if ((isXLineEntity(entity) && (isRayShape(shape) || isLineShape(shape))) ||
        (isRayEntity(entity) && (isXLineShape(shape) || isLineShape(shape))) ||
        (isLineEntity(entity) && (isXLineShape(shape) || isRayShape(shape))) ||
        (isCircleEntity(entity) && isArcShape(shape))) {

        var e = shapeToEntity(entity.getDocument(), shape);
        e.copyAttributesFrom(getPtr(entity));
        op.deleteObject(entity);

        op.addObject(e, false);
        return true;
    }

    if (isFunction(entity.setShape)) {
        entity.setShape(getPtr(shape));
        op.addObject(entity, false);
        return true;
    }

    return false;
};


/**
 * Insert CAD fonts at the top into the given font combo box.
 */
function initFontComboBox(comboBox) {
    if (RSettings.getBoolValue("Text/UseReducedFontList", false)===true) {
        var list = RSettings.getValue("Text/ReducedFontList", []);
        if (list.length!==0) {
            comboBox.clear();
            comboBox.addItems(list);
        }
    }
    else {
        var fontList = RFontList.getNames();
        for (var i=fontList.length-1; i>=0; --i) {
            // ignore shape definition files:
            if (fontList[i]==="ltypeshp" || fontList[i]==="qcadshp") {
                continue;
            }

            comboBox.insertItem(0, new QIcon(), fontList[i]);
        }
    }

    if (RSettings.getBoolValue("Text/ShowFontPreview", true)===false) {
        // disables the font preview which is known to be slow
        // on some Linux installations:
        var view = comboBox.view();
        view.setItemDelegate(new QItemDelegate(comboBox));
    }
}

function activateFont(fontComboBox, fontName) {
    var index = fontComboBox.findText(fontName, Qt.MatchFixedString);
    fontComboBox.setCurrentIndex(index);
}

function setMainWindow(w) {
    global.gMainWindow = w;
}

function getMainWindow() {
    if (!isNull(global.gMainWindow)) {
        return global.gMainWindow;
    }

    return RMainWindowQt.getMainWindow();
}

function getCurrentDateTime(format) {
    if (RSettings.getQtVersion() >= 0x060000) {
        return QDateTime.currentDateTime().toString(format);
    }
    else {
        return new QDateTime(QDateTime.currentDateTime()).toString(format);
    }
}

function mergeProperties(obj1,obj2) {
    var obj3 = {};
    var attrname;
    for (attrname in obj1) { obj3[attrname] = obj1[attrname]; }
    for (attrname in obj2) { obj3[attrname] = obj2[attrname]; }
    return obj3;
}

/**
 * Fixes the given symbol table name (e.g. block or layer name).
 *
 * \param name Suggested name, for example coming from a file base name.
 * \return Fixed name or undefined if the name cannot be fixed
 * (i.e. contains invalid characters).
 */
function fixSymbolTableName(name) {
    // trim white space at beginning and end to avoid invalid block name:
    name = name.trim();

    // max length:
    if (name.length>255) {
        name = name.left(255);
    }

    // invalid block name characters:
    var rx = new RegExp("^[^<>/\\\\\":;\?\*|,=`]*$");
    if (!rx.test(name)) {
        return undefined;
    }

    return name;
}

function getClipboard() {
    if (RSettings.isQt(5)) {
        return QGuiApplication.clipboard()
    }
    else {
        return QApplication.clipboard();
    }
}


function stripDirtyFlag(title) {
    return title.replace("[*] ", "");
}

function addDirtyFlag(title) {
    return "[*] " + title;
}

function hasPlugin(name) {
    // TODO: refactor:
    if (name==="PROTOOLS") {
        if (new QFileInfo("scripts/Pro").exists()) {
            // PROTOOLS available not as plugins but as scripts folder:
            return true;
        }
    }

    return RPluginLoader.hasPlugin(name);
}

/**
 * Enable / disable easy drag and drop for the given entity.
 * Entities tagged for easy drag and drop can be moved by dragging
 * them while a block reference is selected.
 */
function setInBlockEasyDragAndDrop(entity, v) {
    return entity.setCustomProperty("QCAD", "InBlockEasyDragAndDrop", v ? "1" : "0");
}

function getInBlockEasyDragAndDrop(entity) {
    return entity.getCustomProperty("QCAD", "InBlockEasyDragAndDrop", "0")==="1";
}

/**
 * Enable / disable in block text editing for the given entity.
 */
function setInBlockTextEdit(entity, v) {
    return entity.setCustomProperty("QCAD", "InBlockTextEdit", v ? "1" : "0");
}

function getInBlockTextEdit(entity) {
    return entity.getCustomProperty("QCAD", "InBlockTextEdit", "0")==="1";
}

function setOverrideWaitCursor() {
    if (!RSettings.isGuiEnabled()) {
        return;
    }
    setOverrideCursor(new QCursor(Qt.WaitCursor));
}

function setOverrideCursor(cursor) {
    if (!RSettings.isGuiEnabled()) {
        return;
    }

    if (RSettings.isQt(5)) {
        QGuiApplication.setOverrideCursor(cursor);
    }
    else {
        QApplication.setOverrideCursor(cursor);
    }
}

function restoreOverrideCursor() {
    if (!RSettings.isGuiEnabled()) {
        return;
    }

    if (RSettings.isQt(5)) {
        QGuiApplication.restoreOverrideCursor();
    }
    else {
        QApplication.restoreOverrideCursor();
    }
}

/**
 * \return Global cursor position as QPoint.
 * Overridable by plugins.
 */
function getGlobalCursorPos() {
    return QCursor.pos();
}

function initUserShortcuts() {
    var keys = RSettings.getAllKeys("Shortcuts");

    var i, key, action;

    for (i=0; i<keys.length; i++) {
        key = keys[i];
        action = RGuiAction.getByScriptFile(key);
        if (isNull(action)) {
            continue;
        }

        var scStringList = RSettings.getValue("Shortcuts/" + key);

        // explicitly no shortcuts:
        if (isNull(scStringList)) {
            action.setShortcuts([]);
            action.removeShortcuts();
            continue;
        }

        //action.setShortcutsFromStrings(scStringList);
        //action.setShortcuts(scStringList);

        var scList = [];
        for (var k=0; k<scStringList.length; k++) {
            var sc = new QKeySequence(scStringList[k]);
            scList.push(sc);
        }
        action.removeShortcuts();
        action.setShortcuts(scList);
    }

    keys = RSettings.getAllKeys("Commands");

    for (i=0; i<keys.length; i++) {
        key = keys[i];
        action = RGuiAction.getByScriptFile(key);
        if (isNull(action)) {
            continue;
        }
        var cmStringList = RSettings.getValue("Commands/" + key);

        // explicitly no commands:
        if (isNull(cmStringList)) {
            action.setCommands([]);
            continue;
        }

        action.setCommands(cmStringList);
    }
}

function addActionsToWidgets() {
    initUserShortcuts();

    var appWin = RMainWindowQt.getMainWindow();

    // delete previous shortcut delegates:
    // part of workaround for QTBUG-38256, QTBUG-57990:
    /*
    if ((RSettings.getQtVersion()<0x050500 && RSettings.getQtVersion()>=0x050000) ||
        (RSettings.getQtVersion()===0x050800 && RS.getSystemId()==="linux")) {

        var scObjs = appWin.property("DelegatedShortcutsObjs");
        if (!isNull(scObjs)) {
            for (var si=0; si<scObjs.length; si++) {
                if (isNull(scObjs[si])) {
                    continue;
                }
                destr(scObjs[si]);
            }
        }
        appWin.setProperty("DelegatedShortcutsObjs", []);
    }
    */

    var actions = RGuiAction.getActions();
    var widgetTypes = ["Menu", "ToolBar", "MatrixPanel", "Panel", "UserToolBar1", "UserToolBar2"];
    for (var c=0; c<actions.length; ++c) {
        var a = actions[c];
        if (a.icon.isNull() && !a.isIconDisabled()) {
            a.setIcon(autoPath("scripts/Empty.svg"));
        }
        var className = a.getScriptClass();
        var wns = a.getWidgetNames();
        var addedToWidget = false;

        for (var k=0; k<wns.length; k++) {
            var wn = wns[k];
            if (wn.length===0) {
                continue;
            }

            var visibility = true;
            if (wn[0]==="!") {
                // action not visible by default in this widget:
                visibility = false;
                wn = wn.substring(1);
            }

            // check tool visibility based on user preferences:
            if (className.length!==0) {
                var key;

                for (var j=0; j<widgetTypes.length; j++) {
                    var widgetType = widgetTypes[j];
                    var keyPostfix = widgetType;
                    if (keyPostfix==="Panel") {
                        keyPostfix = "CadToolBar";
                    }

                    if (wn.endsWith(widgetType)) {
                        key = className + "/VisibleIn" + keyPostfix;
                        visibility = RSettings.getBoolValue(key, visibility);
                        RSettings.setValue(key, visibility, false);
                        break;
                    }
                }
            }
            var w = appWin.findChild(wn);
            if (!isNull(w)) {
                if (visibility) {
                    RGuiAction.addToWidget(a, w);
                    addedToWidget = true;

                    if (isFunction(w.widgetForAction)) {
                        // if action was added to tool bar: set object name of tool button:
                        var tb = w.widgetForAction(a);
                        if (!isNull(tb)) {
                            tb.objectName = "ToolButton" + a.objectName.replace(/Action$/, "");
                        }
                    }
                }
                else {
                    // action not visible in this widget:
                    RGuiAction.removeFromWidget(a, w);
                }
            }
        }

        if ((RSettings.getQtVersion()<0x050500 && RSettings.getQtVersion()>=0x050000) ||
            (RSettings.getQtVersion()===0x050800 && RS.getSystemId()==="linux") ||
            !addedToWidget) {
            // always add action to main window to make sure keycodes
            // are active even if action is invisible:
            RGuiAction.addToWidget(a, appWin);
        }
    }
}

/**
 * \return Array of QUrl objects with all URLs extracted from
 * the mime data (usually from drag and drop).
 */
function getUrlsFromMimeData(mimeData) {
    var urls = [];

    if (mimeData.hasFormat("text/uri-list")) {
        urls = mimeData.urls();
    }

    else if (mimeData.hasFormat("text/plain")) {
        var text = mimeData.text();
        var url = new QUrl(text);
        if (!url.isValid()) {
            return [];
        }
        if (!isUrl(url)) {
            return [];
        }
        urls = [url];
    }

    return urls;
}

/**
 * \return True if the urlString is a URL that can be loaded.
 */
function isUrl(urlString) {
    var url = new QUrl(urlString);
    var scheme = url.scheme();
    return scheme==="file" || scheme==="http" || scheme==="https" || scheme==="ftp";
}

function getDontUseNativeDialog() {
    if (RS.getWindowManagerId()==="kde") {
        // don't use KDE file dialog (workaround for file type filter bug):
        return true;
    }

    return RSettings.getBoolValue("SaveAs/UseSystemFileDialog", true)===false;
};

function autoPath(path) {
    if (new QFileInfo(path).exists()) {
        return path;
    }
    else {
        return ":" + path;
    }
}

function exists(path) {
    return new QFileInfo(autoPath(path)).exists();
}

function neutralPath(path) {
    if (path.startsWith(":/")) {
        return path.substring(2);
    }
    if (path.startsWith(":")) {
        return path.substring(1);
    }
    return path;
}

/**
 * \return Mapped icon path for the given icon for the current theme or
 * mapped icon path for a dark theme (-inverse) or the same path or undefined if no such
 * icon can be found.
 */
function autoIconPath(path) {
    // set theme specific icon:
    var themePath = RSettings.getThemePath();
    var themeIconFile = undefined;
    if (themePath.length>0) {
        var fi = new QFileInfo(path);
        var iconFileName = fi.fileName();
        themeIconFile = themePath + "/icons/" + iconFileName;
        if (!new QFileInfo(themeIconFile).exists()) {
            // no SVG found, look up PNG:
            var iconBaseName = fi.baseName();
            themeIconFile = themePath + "/icons/" + iconBaseName + ".png";
            if (!new QFileInfo(themeIconFile).exists()) {
                // no PNG found, use default icon:
                themeIconFile = undefined;
            }
        }
    }

    if (!isNull(themeIconFile)) {
        // got icon from theme:
        return themeIconFile;
    }

    // no theme icon, try dark mode icon:
    var darkModeIconFile = undefined;
    if (RSettings.hasDarkGuiBackground()) {
        darkModeIconFile = path.replace(/\.svg$/, "-inverse.svg");
        darkModeIconFile = darkModeIconFile.replace(/\.png$/, "-inverse.png");
        if (!new QFileInfo(darkModeIconFile).exists()) {
            darkModeIconFile = undefined;
        }
    }

    if (!isNull(darkModeIconFile)) {
        // got dark mode icon:
        return darkModeIconFile;
    }

    if (!new QFileInfo(path).exists()) {
        // given icon does not exist (for icons based on object names, e.g. in options toolbar):
        return "";
    }

    return path;
}

function applyTheme() {
    var systemId = RS.getSystemId();
    var theme = RSettings.getValue("Theme/ThemeName", undefined);
    if (systemId!=="osx" && !isNull(theme)) {
        var path = "themes/" + theme + "/";

        qApp.styleSheet = "";

        // load stylesheet.css, stylesheet_[win|macos|linux].css:
        var found = false;
        if (systemId==="osx") systemId = "macos";

        var postfixes = ["", "_" + systemId];
        for (var i=0; i<postfixes.length; i++) {
            var postfix = postfixes[i];
            var fn = path + "stylesheet" + postfix + ".css";
            qDebug("trying to load theme stylesheet: ", fn);

            if (new QFileInfo(fn).exists()) {
                var css = readTextFile(fn);
                if (css.contains("RequiresPlugin:true")) {
                    // only load theme if plugin loaded:
                    var pluginId = theme.toUpperCase() + "STYLE";
                    if (!RPluginLoader.hasPlugin(pluginId)) {
                        qWarning("Theme not loaded: ", theme);
                        qWarning("Theme plugin not found:", pluginId);
                        return;
                    }
                }

                css = css.replace(/url\(/g, "url(" + path);
                qApp.styleSheet = qApp.styleSheet + "\n" + css;
                found = true;
            }
        }

        if (!found) {
            if (theme!=="Default") {
                qWarning("Cannot open theme: ", theme);
            }
        }
    }
}

function setUtf8Codec(ts) {
    if (RSettings.getQtVersion() >= 0x060000) {
        ts.setEncoding(QStringConverter.Utf8);
    }
    else {
        ts.setCodec("UTF-8");
    }
}


function readTextFile(fileName) {
    var file = new QFile(fileName);
    var flags = makeQIODeviceOpenMode(QIODevice.ReadOnly, QIODevice.Text);
    if (file.open(flags)) {
        var textStream = new QTextStream(file);
        setUtf8Codec(textStream);
        var contents = textStream.readAll();
        file.close();
        return contents;
    }

    return undefined;
}

function writeTextFile(fileName, str) {
    var file = new QFile(fileName);
    var flags = makeQIODeviceOpenMode(QIODevice.WriteOnly, QIODevice.Text);
    if (file.open(flags)) {
        var textStream = new QTextStream(file);
        setUtf8Codec(textStream);
        textStream.writeString(str);
        file.close();
        return true;
    }
    return false;
}

function getKeyboardModifiers(event) {
    if (!isNull(event)) {
        if (isFunction(event.getModifiers)) {
            return event.getModifiers();
        }
        else {
            return event.modifiers();
        }
    }

    if (RSettings.isQt(5)) {
        return QGuiApplication.queryKeyboardModifiers();
    }
    else {
        return QApplication.queryKeyboardModifiers();
    }
}

function isShiftPressed(event) {
    return (getKeyboardModifiers(event) & Qt.ShiftModifier) > 0 ||
           (getKeyboardModifiers() & Qt.ShiftModifier) > 0;
}

function isAltPressed(event) {
    return (getKeyboardModifiers(event) & Qt.AltModifier) > 0 ||
           (getKeyboardModifiers() & Qt.AltModifier) > 0;
}

function isControlPressed(event) {
    return (getKeyboardModifiers(event) & Qt.ControlModifier) > 0 ||
           (getKeyboardModifiers() & Qt.ControlModifier) > 0;
}

function createSpatialIndex() {
    if (!isNull(global.SpatialIndexClass)) {
        // use class defined as global variable "SpatialIndexClass":
        // allows plugins to override the default spatial index class:
        return new global[global.SpatialIndexClass]();
    }
    //return new RSpatialIndexSimple();
    return new RSpatialIndexNavel();
}

// Qt 4 API workaround:
function qsTranslate2(context, sourceText, disambiguation, n) {
    // Qt 4:
    if (RSettings.getQtVersion() < 0x050000) {
        if (isNull(disambiguation)) {
            return qsTranslate(context, sourceText);
        }
        if (isNull(n)) {
            return qsTranslate(context, sourceText, disambiguation);
        }
        return qsTranslate(context, sourceText, disambiguation, "UnicodeUTF8", n);
    }

    // Qt > 5
    return qsTranslate(context, sourceText, disambiguation, n);
}

function makeQDirFilters() {
    var argumentsNew = [].slice.call(arguments, 0);
    argumentsNew.unshift(QDir.Filters);
    return makeFlags.apply(null, argumentsNew);
}

function makeQDirSortFlags() {
    var argumentsNew = [].slice.call(arguments, 0);
    argumentsNew.unshift(QDir.SortFlags);
    return makeFlags.apply(this, argumentsNew);
}

function makeQtMatchFlags() {
    var argumentsNew = [].slice.call(arguments, 0);
    argumentsNew.unshift(Qt.MatchFlags);
    return makeFlags.apply(this, argumentsNew);
}

function makeQtToolBarAreas() {
    var argumentsNew = [].slice.call(arguments, 0);
    argumentsNew.unshift(Qt.ToolBarAreas);
    return makeFlags.apply(this, argumentsNew);
}

function makeQtWindowFlags() {
    var argumentsNew = [].slice.call(arguments, 0);
    argumentsNew.unshift(Qt.WindowFlags);
    return makeFlags.apply(this, argumentsNew);
}

function makeQtAlignment() {
    var argumentsNew = [].slice.call(arguments, 0);
    argumentsNew.unshift(Qt.Alignment);
    return makeFlags.apply(this, argumentsNew);
}

function makeQIODeviceOpenMode() {
    var argumentsNew = [].slice.call(arguments, 0);
    argumentsNew.unshift(QIODevice.OpenMode);
    return makeFlags.apply(this, argumentsNew);
}

function makeQMessageBoxStandardButtons() {
    var argumentsNew = [].slice.call(arguments, 0);
    argumentsNew.unshift(QMessageBox.StandardButtons);
    return makeFlags.apply(this, argumentsNew);
}

function makeQtItemFlags() {
    var argumentsNew = [].slice.call(arguments, 0);
    argumentsNew.unshift(Qt.ItemFlags);
    return makeFlags.apply(this, argumentsNew);
}

function makeQtKeyboardModifiers() {
    var argumentsNew = [].slice.call(arguments, 0);
    argumentsNew.unshift(Qt.KeyboardModifiers);
    return makeFlags.apply(this, argumentsNew);
}

function makeQtMouseButtons() {
    var argumentsNew = [].slice.call(arguments, 0);
    argumentsNew.unshift(Qt.MouseButtons);
    return makeFlags.apply(this, argumentsNew);
}

function makeQEventLoopProcessEventsFlags() {
    var argumentsNew = [].slice.call(arguments, 0);
    argumentsNew.unshift(QEventLoop.ProcessEventsFlags);
    return makeFlags.apply(this, argumentsNew);
}

function makeQItemSelectionModelSelectionFlags() {
    var argumentsNew = [].slice.call(arguments, 0);
    argumentsNew.unshift(QItemSelectionModel.SelectionFlags);
    return makeFlags.apply(this, argumentsNew);
}

function makeQAbstractItemViewEditTriggers() {
    var argumentsNew = [].slice.call(arguments, 0);
    argumentsNew.unshift(QAbstractItemView.EditTriggers);
    return makeFlags.apply(this, argumentsNew);
}

function makeQDirIteratorIteratorFlags() {
    var argumentsNew = [].slice.call(arguments, 0);
    argumentsNew.unshift(QDirIterator.IteratorFlags);
    return makeFlags.apply(this, argumentsNew);
}

function makeFlags() {
    if (RSettings.isQt(6)) {
        var ret = 0;
        for (var i=1; i<arguments.length; i++) {
            ret |= arguments[i];
        }
        return ret;
    }
    else {
        var argumentsNew = [].slice.call(arguments, 0);
        var flgs = argumentsNew.shift();
        return flgs.apply(this, argumentsNew);
    }
}

function getRGraphicsView(view) {
    if (RSettings.getQtVersion()>=0x060000) {
        return view;
    }
    else {
        if (isFunction(view.getRGraphicsView)) {
            return view.getRGraphicsView();
        }
        else {
            return view;
        }
    }
}

/**
 * Open files given as arguments args
 *
 * \param createNew Creates a new document if no files are given
 * \param close Closes existing open MDI widgets
 */
function openFiles(args, createNew, close) {
    qDebug("openFiles: " + args);

    var appWin = RMainWindowQt.getMainWindow();
    if (isNull(appWin)) {
        // application is shutting down..
        return;
    }
    var mdiArea = appWin.getMdiArea();
    var mdiChildren = mdiArea.subWindowList();
    var foundFile = false;
    var filter = undefined;

    for (var i = 0; i < args.length; ++i) {
        // arguments with one parameter:
        if (args[i] === "-locale" || args[i] === "-autostart"
            || args[i] === "-app-id" || args[i] === "-ignore"
            || args[i] === "-config") {
            // skip 2 arguments
            i++;
            if (i>=args.length) {
                break;
            }
            continue;
        }

        // argument with two parameters
        if (args[i] === "-font-substitution" || args[i] === "-fs" || args[i] === "-ts") {
            // skip 3 arguments
            i+=2;
            if (i>=args.length) {
                break;
            }
            continue;
        }

        if (isNull(args[i])) {
            continue;
        }

        // all arguments after -exec are script files or script arguments:
        if (args[i] === "-exec") {
            break;
        }

        if (args[i] === "-filter") {
            if (++i>=args.length) {
                break;
            }
            filter = args[i];
            continue;
        }


        // skip other arguments without parameter:
        if (args[i][0] === "-") {
            continue;
        }

        foundFile = true;
        var foundExisting = false;

        var arg = args[i];
        var isLocalFile = true;

        if (isUrl(arg)) {
            var url = new QUrl(arg);
            if (url.isLocalFile()) {
                // arg is now a path:
                arg = url.toLocalFile();
            }
            else {
                isLocalFile = false;
            }
        }

        if (isLocalFile) {
            // if the file is already open, activate that appropriate sub window instead
            // of opening the file again:
            var document = undefined;
            var fileName = undefined;
            var fileInfo = undefined;
            var argFileInfo = undefined;
            for (var k=0; k<mdiChildren.length; k++) {
                document = mdiChildren[k].getDocument();
                fileName = document.getFileName();
                fileInfo = new QFileInfo(fileName);
                argFileInfo = new QFileInfo(getAbsolutePathForArg(arg));

                if (fileInfo.absoluteFilePath()===argFileInfo.absoluteFilePath()) {
                    mdiArea.setActiveSubWindow(mdiChildren[k]);
                    if (close) {
                        mdiArea.closeActiveSubWindow();
                    }
                    else {
                        foundExisting = true;
                    }
                    break;
                }
            }
        }

        // open the file if it is not already open:
        if (!foundExisting) {
            if (isLocalFile) {
                NewFile.createMdiChild(getAbsolutePathForArg(arg), filter);
            }
            else {
                NewFile.createMdiChild(arg, filter);
            }
        }
    }

    // create new document if no files were loaded:
    if (!foundFile && createNew===true) {
        var fileNewAction = RGuiAction.getByScriptFile("scripts/File/NewFile/NewFile.js");
        if (!isNull(fileNewAction)) {
            fileNewAction.slotTrigger();
        }
    }
}

function createValidator(rx, parent) {
    if (RSettings.getQtVersion()>=0x060000) {
        return new QRegularExpressionValidator(new QRegularExpression(rx), parent);
    }
    else {
        return new QRegExpValidator(new RegExp(rx), parent);
    }
}

function parseXml(fileName, handler) {
    // Qt 6: use JS implementation:
    if (RSettings.getQtVersion()>=0x060000) {
        var fi = new QFileInfo(fileName);
        var file = new QFile(fi.absoluteFilePath());
        var xmlReader = new QXmlSimpleReader();
        var source = new QXmlInputSource(file);
        xmlReader.setContentHandler(handler);
        var ret = xmlReader.parse(source, false);
        file.close();
    }

    // Qt 5: implementation in RScriptHandlerEcma:
    else {
        parseXmlQt5(fileName, handler);
    }
}

// fix QPlainTextEdit API for Qt 5:
if (!isFunction(QPlainTextEdit.prototype.toPlainText)) {
    QPlainTextEdit.prototype.toPlainText = function() {
        return this.plainText;
    }
}

// add QUrl.isLocalFile to API for Qt 4.7:
if (!isFunction(QUrl.prototype.isLocalFile)) {
    QUrl.prototype.isLocalFile = function() {
        return this.scheme().toLowerCase()==="file";
    }
}
