From bc6757ae94dbc46fa1243f3277de2262794d5a75 Mon Sep 17 00:00:00 2001 From: Patrick Quist Date: Mon, 13 Sep 2021 20:22:27 +0200 Subject: Pascalchanges (#2881) * Changes to allow Program (vs Unit) in Object Pascal * add possibility of dpr * more flexibility with pascal filenames * lintfixes * i have no idea what im doing * apply changes to pascal-win * pascal fixes * pascal projectfile changes * work in progress * bugfixes * bla * bugfixes * mostly working Co-authored-by: paul mcgee Co-authored-by: Paul McGee --- lib/compilers/pascal-utils.js | 45 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 lib/compilers/pascal-utils.js (limited to 'lib/compilers/pascal-utils.js') diff --git a/lib/compilers/pascal-utils.js b/lib/compilers/pascal-utils.js new file mode 100644 index 000000000..d1f354bc1 --- /dev/null +++ b/lib/compilers/pascal-utils.js @@ -0,0 +1,45 @@ +// Copyright (c) 2021, Compiler Explorer Authors +// All rights reserved. +// +// Redistribution and use in source and binary forms, with or without +// modification, are permitted provided that the following conditions are met: +// +// * Redistributions of source code must retain the above copyright notice, +// this list of conditions and the following disclaimer. +// * Redistributions in binary form must reproduce the above copyright +// notice, this list of conditions and the following disclaimer in the +// documentation and/or other materials provided with the distribution. +// +// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +// AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +// ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE +// LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +// CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +// SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +// INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +// CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +// ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +// POSSIBILITY OF SUCH DAMAGE. + +export class PascalUtils { + isProgram(source) { + const re = /\s?program\s+([\w.-]*);/i; + return !!re.test(source); + } + + isUnit(source) { + const re = /\s?unit\s+([\w.-]*);/i; + return !!re.test(source); + } + + getUnitname(source) { + const re = /\s?unit\s+([\w.-]*);/i; + const match = source.match(re); + if (match) { + return match[1]; + } + + return 'example'; + } +} -- cgit v1.2.3