yapi

misc/editors/prolog.js

@@ -3,9 +3,9 @@
 
 (function(mod) {
 if (typeof exports == "object" && typeof module == "object") // CommonJS
-  mod(require("codemirror/lib/codemirror"));
+  mod(require([ "codemirror/lib/codemirror", "codemirror/addon/lint/lint" ]));
 else if (typeof define == "function" && define.amd) // AMD
-  define([ "codemirror/lib/codemirror" ], mod);
+  define([ "codemirror/lib/codemirror", "codemirror/addon/lint/lint" ], mod);
 else // Plain browser env
   mod(CodeMirror);
 })(function(CodeMirror) {
@@ -34,9 +34,26 @@ CodeMirror.defineMode("prolog", function(conf, parserConfig) {
       parserConfig.groupedIntegers || false; /* tag{k:v, ...} */
   var unicodeEscape =
       parserConfig.unicodeEscape || true; /* \uXXXX and \UXXXXXXXX */
-  var multiLineQuoted = parserConfig.multiLineQuoted || true; /* "...\n..." */
+  var multiLineQuoted = parserConfig.multiLineQuotedd || true;
-  var quoteType = parserConfig.quoteType ||
+  var singleQuoted = "atom";
-                  {'"' : "string", "'" : "qatom", "`" : "bqstring"};
+  if (parserConfig.singleQuote === "string" ||
+parserConfig.singleQuote === "codes" ||
+parserConfig.singleQuote === "chars")
+    singleQuoted = parserConfig.singleQuote;
+  var doubleQuoted = "string";
+  if (parserConfig.doubleQuote === "atom" ||
+parserConfig.doubleQuote === "codes" ||
+parserConfig.doubleQuote === "chars")
+    doubleQuoted = parserConfig.doubleQuote;
+  var backQuoted = "atom";
+  if (parserConfig.backQuote === "string" ||
+parserConfig.backQuote === "codes" ||
+parserConfig.backQuote === "chars")
+    backQuoted = parserConfig.backQuote;
+
+  var quoteType = {"\"" : doubleQuoted, "`" : backQuoted, "'" : singleQuoted};
+
+  var singletonVars = new Map();
 
   var isSingleEscChar = /[abref\\'"nrtsv]/;
   var isOctalDigit = /[0-7]/;
@@ -73,7 +90,6 @@ CodeMirror.defineMode("prolog", function(conf, parserConfig) {
       if (elLine == null || l === elLine) {
         errorFound.splice(i, 1);
         i -= 1;
-        console.log(-elLine);
       }
     }
   }
@@ -85,7 +101,7 @@ CodeMirror.defineMode("prolog", function(conf, parserConfig) {
     var found = errorFound.find(function(
         element) { return element.line === l && element.to == stream.pos; });
     if (!found) {
-      console.log( getLine(stream) );
+      //console.log(getLine(stream));
       errorFound.push({
         "line" : l,
         "from" : stream.start,
@@ -120,6 +136,30 @@ CodeMirror.defineMode("prolog", function(conf, parserConfig) {
     return exportedMsgs;
   }
 
+  function maybeSingleton(stream, key) {
+    //console.log(key);
+    var v = singletonVars.get(key);
+    if (v != undefined) {
+      v.singleton = false;
+    } else {
+      singletonVars.set(
+          key, {'singleton' : true, 'from' : stream.start, to : stream.pos});
+    }
+    //console.log(singletonVars);
+  }
+
+  function outputSingletonVars(stream) {
+    var key, v;
+    for (var key in singletonVars.keys()) {
+      var v = singletonVars[key];
+ if (v != undefined && v.singleton) {
+        mkError(stream, "warning", key + " singleton variable");
+      }
+    }
+    singletonVars.clear();
+  // console.log("reset");
+  }
+
   CodeMirror.registerHelper("lint", "prolog", exportErrors);
 
   /*******************************
@@ -260,6 +300,8 @@ CodeMirror.defineMode("prolog", function(conf, parserConfig) {
   function plTokenBase(stream, state) {
     var ch = stream.next();
 
+    state.curToken = ch;
+
     if (ch == "(") {
       if (state.lastType == "functor") {
         state.nesting.push({
@@ -323,22 +365,38 @@ CodeMirror.defineMode("prolog", function(conf, parserConfig) {
           state.commaAtEOL = true;
         nextArg(state);
         /*FALLTHROUGH*/
-        if (isControl(state)) {
         if (!state.commaAtEOL)
           stream.eatSpace();
-          if (!stream.peek("[")) {
+        var nch = stream.peek();
+        if (nch == ';' || nch == ',') {
+          mkError(stream, "error", "\",\" followed by " + stream.peek());
+          return ret("solo", "error", ",");
+        }
+        if (isControl(state)) {
+          if ("[" != ch) {
             if (state.inBody) {
               state.goalStart = true;
             } else {
+              mkError(stream, "error", "\",\" followed by " + stream.peek());
               return ret("solo", "error", ",");
             }
           }
         }
+        return ret('solo', 'tag', ",");
       } break;
       case ";":
-        if (isControl(state)) {
+        if (!state.commaAtEOL)
-          if (!state.inBody)
+          stream.eatSpace();
+        ch = stream.peek();
+        if (ch == ';' || ch == ',') {
+          mkError(stream, "error", "\",\" followed by " + stream.peek());
           return ret("solo", "error", ";");
+        }
+        if (isControl(state)) {
+          if (!state.inBody) {
+            mkError(stream, "error", "unexpected ;");
+            return ret("solo", "error", ";");
+          }
           state.goalStart = true;
         }
         break;
@@ -399,9 +457,11 @@ CodeMirror.defineMode("prolog", function(conf, parserConfig) {
       if (stream.eat(/'/)) { /* 0' */
         var next = stream.next();
         if (next == "\\") {
-          if (!readEsc(stream))
+          if (!readEsc(stream)) {
+            mkError(stream, "error", "bad escape");
             return ret("error", "error");
           }
+        }
         return ret("code", "number");
       }
     }
@@ -424,15 +484,19 @@ CodeMirror.defineMode("prolog", function(conf, parserConfig) {
           state.nesting = [];
         }
         //  var start = cm_.getCursor("end");
-    //cm_.setBookmark(start, {"widget" : document.createTextNode("•")});
+        // cm_.setBookmark(start, {"widget" :
+        // document.createTextNode("•")});
         state.inBody = false;
         state.goalStart = true;
+        outputSingletonVars(stream);
         stream.eat(ch);
         return ret("fullstop", "def", atom);
 
       } else {
         if (atom === ":-" && state.headStart) {
-
+          state.headStart = false;
+          state.inBody = true;
+          state.goalStart = true;
           return ret("directive", "attribute", atom);
 
         } else if (isNeck.test(atom)) {
@@ -463,12 +527,14 @@ CodeMirror.defineMode("prolog", function(conf, parserConfig) {
 
           stream.eatWhile(/[\w_]/);
           if (ch == ".") {
+            mkError(stream, "error", "bad dotted name");
             return ret("atom", "error");
           }
         }
       }
     }
     var word = stream.current();
+    state.curToken = word;
     var extra = "";
     if (stream.peek() == "{" && dicts) {
       state.tagName = word; /* tmp state extension */
@@ -478,14 +544,13 @@ CodeMirror.defineMode("prolog", function(conf, parserConfig) {
       if (word.length == 1) {
         return ret("var", "variable-2", word);
       } else {
-        var sec = word.charAt(1);
-        if (sec == sec.toUpperCase())
         return ret("var", "variable-2", word);
       }
-      return ret("var", "variable-2", word);
+    } else if (ch.match(/[A-Z]/)) {
-    } else if (ch == ch.toUpperCase()) {
+      maybeSingleton(stream, word);
       return ret("var", "variable-1", word);
-    } else if (stream.peek() == "(") {
+    }
+    if (stream.peek() == "(") {
       state.functorName = word; /* tmp state extension */
       state.functorColumn = stream.column();
       if (state.headStart) {
@@ -519,8 +584,9 @@ CodeMirror.defineMode("prolog", function(conf, parserConfig) {
       if (builtins[word] && isControl(state))
         return ret("functor", "keyword", w);
       return ret("functor", "atom", w);
-    } else if (builtins[word] && isControl(state))
+    } else if (builtins[word] && isControl(state)) {
       return ret("atom", "keyword", word);
+    }
     return ret("atom", "atom", word);
   }
 
@@ -1340,6 +1406,7 @@ IfTrue
         rmError(stream);
 
       var style = state.tokenize(stream, state);
+      //console.log(state.curToken);
 
       if (stream.eol()) {
         if (stream.pos > 0)
@@ -1386,7 +1453,7 @@ IfTrue
     blockCommentEnd : "*/",
     blockCommentContinue : " * ",
     comment : "%",
-    fold : "indent"
+    matchBrackets : true
   };
   return external;
 });

packages/ProbLog/problog.md

@@ -1,12 +1,13 @@
-The Problog-I Language and Learning System   {#problog}
+@defgroup problog The Problog-I Language and Learning System 
-=====================================
 
-[TOC]
+@{
 
 This document is intended as a user guide for the users of ProbLog-I.
 ProbLog is a probabilistic Prolog, a probabilistic logic programming
 language, which is integrated in YAP-Prolog. Most of the work in ProbLog is now based on(Prolog-II), but we still maintain ProbLog-I in order to experiment with close integration of probabilistic nd logical systems.
 
+[TOC]
+
 @section InstallingProbLog Installing ProbLog
 
 

packages/python/python.c

@@ -1,4 +1,16 @@
+/**
+ * @file python.c
+ *
+ * @brief data structures and init for Py4YAP library
+ *
+ */
 
+/**
+ * @defgroup PY4YAP
+ * @ingroup python
+ * @brief make Python talk to YAP
+ * @{
+ */
 
 #include "py4yap.h"
 #include <VFS.h>
@@ -127,3 +139,5 @@ X_API bool do_init_python(void) {
   //    python_output();
   return true;
 }
+
+// @}

packages/python/yap_kernel/yap_ipython/prolog/jupyter.yap

@@ -88,11 +88,11 @@ blank(Text) :-
 
 
  streams(false) :-
-    close(user_input),
+    %close(user_input),
     close(user_output),
     close(user_error).
 streams( true) :-
-    open('/python/input', read, _Input, [alias(user_input),bom(false),script(false)]),
+    %open('/python/input', read, _Input, [alias(user_input),bom(false),script(false)]),
     open('/python/sys.stdout', append, _Output, [alias(user_output)]),
     open('/python/sys.stderr', append, _Error, [alias(user_error)]).
 

packages/python/yap_kernel/yap_ipython/yapi.py

@@ -704,7 +704,6 @@ class YAPRun(InteractiveShell):
             else:
                 linec = True
                 rcell = cell[1:].strip()
-                print(cell)
                 try:
                     [magic,cell] = rcell.split(maxsplit = 1, sep = '\n')
                 except: