diff options
Diffstat (limited to 'lib/compilers/pascal-utils.js')
-rw-r--r-- | lib/compilers/pascal-utils.js | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/lib/compilers/pascal-utils.js b/lib/compilers/pascal-utils.js deleted file mode 100644 index d1f354bc1..000000000 --- a/lib/compilers/pascal-utils.js +++ /dev/null @@ -1,45 +0,0 @@ -// 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'; - } -} |