<?php defined('BASEPATH') OR exit('No direct script access allowed');

/* ==============================================================
 *                            SWI-Prolog
 * ==============================================================
 *
 */

require_once('application/libraries/LanguageTask.php');

class swipl_Task extends Task {
    public function __construct($filename, $input, $params) {
        parent::__construct($filename, $input, $params);
        $this->default_params['interpreterargs'] = array('');
    }

    public static function getVersionCommand() {
        return array('swipl -v', '/version ([0-9._]*)/');
    }

    public function compile() {
        $cmd = "swipl -t halt -s {$this->sourceFileName}";
        $this->executableFileName = $this->sourceFileName;
        list($output, $this->cmpinfo) = $this->run_in_sandbox($cmd);
        if (!empty($this->cmpinfo) && !empty($output)) {
            $this->cmpinfo = $output . '\n' . $this->cmpinfo;
        }
    }


    // A default name for SWI-Prolog programs
    public function defaultFileName($sourcecode) {
        return 'prog.pl';
    }


    public function getExecutablePath() {
        return '/usr/bin/swipl';
     }


     public function getTargetFile() {
         return $this->sourceFileName;