passagemath-ecl 10.6.32__cp312-cp312-musllinux_1_2_aarch64.whl

sage/interfaces/lisp.py

@@ -0,0 +1,576 @@
+# sage_setup: distribution = sagemath-ecl
+r"""
+Lisp Interface
+
+EXAMPLES::
+
+    sage: lisp.eval('(* 4 5)')
+    '20'
+    sage: a = lisp(3); b = lisp(5)
+    sage: a + b
+    8
+    sage: a * b
+    15
+    sage: a / b
+    3/5
+    sage: a - b
+    -2
+    sage: a.sin()
+    0.14112
+    sage: b.cos()
+    0.2836622
+    sage: a.exp()
+    20.085537
+    sage: lisp.eval('(+ %s %s)'%(a.name(), b.name()))
+    '8'
+
+One can define functions and the interface supports object-oriented
+notation for calling them::
+
+    sage: lisp.eval('(defun factorial (n) (if (= n 1) 1 (* n (factorial (- n 1)))))')
+    'FACTORIAL'
+    sage: lisp('(factorial 10)')
+    3628800
+    sage: lisp(10).factorial()
+    3628800
+    sage: a = lisp(17)
+    sage: a.factorial()
+    355687428096000
+
+AUTHORS:
+    -- William Stein (first version)
+    -- William Stein (2007-06-20): significant improvements.
+"""
+
+##########################################################################
+#
+#       Copyright (C) 2006 William Stein <wstein@gmail.com>
+#
+#  Distributed under the terms of the GNU General Public License (GPL)
+#
+#                  https://www.gnu.org/licenses/
+#
+##########################################################################
+import os
+import random
+
+from .expect import Expect, ExpectElement, ExpectFunction, FunctionElement, gc_disabled
+from sage.structure.element import RingElement, parent
+from sage.misc.instancedoc import instancedoc
+from sage.structure.richcmp import rich_to_bool
+from sage.features.ecl import Ecl
+
+
+class Lisp(Expect):
+    def __init__(self,
+                 maxread=None, script_subdirectory=None,
+                 logfile=None,
+                 server=None,
+                 server_tmpdir=None):
+        """
+        EXAMPLES::
+
+            sage: lisp == loads(dumps(lisp))
+            True
+        """
+        Expect.__init__(self,
+
+                        # The capitalized version of this is used for printing.
+                        name='Lisp',
+
+                        # This is regexp of the input prompt.  If you can change
+                        # it to be very obfuscated that would be better.   Even
+                        # better is to use sequence numbers.
+                        prompt='> ',
+
+                        # This is the command that starts up your program
+                        command=Ecl().absolute_filename(),
+
+                        server=server,
+                        server_tmpdir=server_tmpdir,
+                        script_subdirectory=script_subdirectory,
+
+                        # If this is true, then whenever the user presses Control-C to
+                        # interrupt a calculation, the whole interface is restarted.
+                        restart_on_ctrlc=False,
+
+                        # If true, print out a message when starting
+                        # up the command when you first send a command
+                        # to this interface.
+                        verbose_start=False,
+
+                        logfile=logfile,
+
+                        # If an input is longer than this number of characters, then
+                        # try to switch to outputting to a file.
+                        eval_using_file_cutoff=1024)
+
+        self.__seq = 0
+        self.__in_seq = 1
+
+    def eval(self, code, strip=True, **kwds):
+        """
+        EXAMPLES::
+
+            sage: lisp.eval('(+ 2 2)')
+            '4'
+
+        TESTS:
+
+        Verify that it works when input == output::
+
+            sage: lisp.eval('2')
+            '2'
+        """
+        with gc_disabled():
+            self._synchronize()
+            code = str(code)
+            code = code.strip()
+            code = code.replace('\n', ' ')
+            x = []
+            for L in code.split('\n'):
+                if L:
+                    try:
+                        s = self.__in_seq + 1
+                        M = self._eval_line(L, wait_for_prompt=self._prompt)
+                        if M.startswith(L + "\n"):
+                            M = M[len(L):]      # skip L in case it was echoed
+                        x.append(M.strip())
+                        self.__in_seq = s
+                    except TypeError as s:
+                        return 'error evaluating "%s":\n%s' % (code, s)
+            return '\n'.join(x)
+
+    def _an_element_(self):
+        """
+        EXAMPLES::
+
+            sage: lisp._an_element_()
+            0
+        """
+        return self(0)
+
+    def set(self, var, value):
+        """
+        Set the variable var to the given value.
+
+        EXAMPLES::
+
+            sage: lisp.set('x', '2')
+            sage: lisp.get('x')
+            '2'
+
+        TESTS:
+
+        It must also be possible to eval the variable by name::
+
+            sage: lisp.eval('x')
+            '2'
+        """
+        cmd = '(setq %s %s)' % (var, value)
+        out = self.eval(cmd)
+        if '***' in out:
+            raise TypeError("Error executing code in Sage\nCODE:\n\t%s\nSAGE ERROR:\n\t%s" % (cmd, out))
+
+    def get(self, var):
+        """
+        EXAMPLES::
+
+            sage: lisp.set('x', '2')
+            sage: lisp.get('x')
+            '2'
+        """
+        out = self.eval(var)
+        return out
+
+    def _start(self, *args, **kwds):
+        """
+        EXAMPLES::
+
+            sage: l = Lisp()
+            sage: l.is_running()
+            False
+            sage: l._start()
+            sage: l.is_running()
+            True
+        """
+        Expect._start(self, *args, **kwds)
+        self.__in_seq = 1
+
+    def _synchronize(self):
+        E = self._expect
+        if E is None:
+            self._start()
+            E = self._expect
+        r = random.randrange(2147483647)
+        s = str(r + 1)
+        cmd = "(+ 1 %s)" % r
+        E.sendline(cmd)
+        E.expect(s)
+        E.expect(self._prompt)
+
+    def _repr_(self):
+        """
+        EXAMPLES::
+
+            sage: lisp
+            Lisp Interpreter
+        """
+        return 'Lisp Interpreter'
+
+    def __reduce__(self):
+        """
+        EXAMPLES::
+
+            sage: Lisp().__reduce__()
+            (<function reduce_load_Lisp at 0x...>, ())
+        """
+        return reduce_load_Lisp, tuple([])
+
+    def _function_class(self):
+        """
+        EXAMPLES::
+
+            sage: lisp._function_class()
+            <class 'sage.interfaces.lisp.LispFunction'>
+        """
+        return LispFunction
+
+    def _quit_string(self):
+        """
+        EXAMPLES::
+
+            sage: lisp._quit_string()
+            '(quit);'
+
+            sage: l = Lisp()
+            sage: l._start()
+            sage: l.quit()
+            sage: l.is_running()
+            False
+        """
+        return '(quit);'
+
+    def _read_in_file_command(self, filename):
+        """
+        EXAMPLES::
+
+            sage: lisp._read_in_file_command(tmp_filename())
+            Traceback (most recent call last):
+            ...
+            NotImplementedError
+        """
+        raise NotImplementedError
+
+    def kill(self, var):
+        """
+        EXAMPLES::
+
+            sage: lisp.kill('x')
+            Traceback (most recent call last):
+            ...
+            NotImplementedError
+        """
+        raise NotImplementedError
+
+    def console(self):
+        """
+        Spawn a new Lisp command-line session.
+
+        EXAMPLES::
+
+            sage: lisp.console() #not tested
+            ECL (Embeddable Common-Lisp) ...
+            Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya
+            Copyright (C) 1993 Giuseppe Attardi
+            Copyright (C) 2000 Juan J. Garcia-Ripoll
+            ECL is free software, and you are welcome to redistribute it
+            under certain conditions; see file 'Copyright' for details.
+            Type :h for Help.  Top level.
+            ...
+        """
+        lisp_console()
+
+    def version(self):
+        """
+        Return the version of Lisp being used.
+
+        EXAMPLES::
+
+            sage: lisp.version()
+            'Version information is given by lisp.console().'
+        """
+#        import subprocess
+#        p = subprocess.Popen('ecl --version', shell=True, stdin=subprocess.PIPE,
+#                             stdout = subprocess.PIPE, stderr=subprocess.PIPE)
+#        return AsciiArtString(p.stdout.read())
+        return "Version information is given by lisp.console()."
+
+    def _object_class(self):
+        """
+        EXAMPLES::
+
+            sage: lisp._object_class()
+            <class 'sage.interfaces.lisp.LispElement'>
+        """
+        return LispElement
+
+    def _function_element_class(self):
+        """
+        EXAMPLES::
+
+            sage: lisp._function_element_class()
+            <class 'sage.interfaces.lisp.LispFunctionElement'>
+        """
+        return LispFunctionElement
+
+    def _true_symbol(self):
+        """
+        EXAMPLES::
+
+            sage: lisp._true_symbol()
+            'T'
+        """
+        return 'T'
+
+    def _false_symbol(self):
+        """
+        EXAMPLES::
+
+            sage: lisp._false_symbol()
+            'NIL'
+        """
+        return 'NIL'
+
+    def _equality_symbol(self):
+        """
+        We raise a :exc:`NotImplementedError` when ``_equality_symbol`` is
+        called since equality testing in Lisp does not use infix notation and
+        cannot be done the same way as in the other interfaces.
+
+        EXAMPLES::
+
+            sage: lisp._equality_symbol()
+            Traceback (most recent call last):
+            ...
+            NotImplementedError: ...
+        """
+        raise NotImplementedError("We should never reach here in the Lisp interface. " +
+                                  "Please report this as a bug.")
+
+    def help(self, command):
+        """
+        EXAMPLES::
+
+            sage: lisp.help('setq')
+            Traceback (most recent call last):
+            ...
+            NotImplementedError
+        """
+        raise NotImplementedError
+
+    def function_call(self, function, args=None, kwds=None):
+        """
+        Call the Lisp function with given ``args`` and ``kwds``.
+        For Lisp functions, the ``kwds`` are ignored.
+
+        EXAMPLES::
+
+            sage: lisp.function_call('sin', ['2'])
+            0.9092974
+            sage: lisp.sin(2)
+            0.9092974
+        """
+        args, kwds = self._convert_args_kwds(args, kwds)
+        self._check_valid_function_name(function)
+        return self.new("(%s %s)" % (function, ",".join(s.name() for s in args)))
+
+
+# Inherit from RingElement to make __pow__ work
+@instancedoc
+class LispElement(RingElement, ExpectElement):
+    def _richcmp_(self, other, op):
+        """
+        EXAMPLES::
+
+            sage: one = lisp(1); two = lisp(2)
+            sage: one == one
+            True
+            sage: one != two
+            True
+            sage: one < two
+            True
+            sage: two > one
+            True
+            sage: one < 1
+            False
+            sage: two == 2
+            True
+        """
+        P = self._check_valid()
+        if parent(other) is not P:
+            other = P(other)
+
+        if P.eval('(= %s %s)' % (self.name(), other.name())) == P._true_symbol():
+            return rich_to_bool(op, 0)
+        elif P.eval('(< %s %s)' % (self.name(), other.name())) == P._true_symbol():
+            return rich_to_bool(op, -1)
+        else:
+            return rich_to_bool(op, 1)
+
+    def __bool__(self):
+        """
+        EXAMPLES::
+
+            sage: lisp(2).bool()
+            True
+            sage: lisp(0).bool()
+            False
+            sage: bool(lisp(2))
+            True
+            sage: bool(lisp('T'))
+            True
+            sage: bool(lisp('NIL'))
+            False
+        """
+        return self != 0 and repr(self) != 'NIL'
+
+    def _add_(self, right):
+        """
+        EXAMPLES::
+
+            sage: a = lisp(1); b = lisp(2)
+            sage: a + b
+            3
+        """
+        P = self._check_valid()
+        return P.new('(+ %s %s)' % (self._name, right._name))
+
+    def _sub_(self, right):
+        """
+        EXAMPLES::
+
+            sage: a = lisp(1); b = lisp(2)
+            sage: a - b
+            -1
+        """
+        P = self._check_valid()
+        return P.new('(- %s %s)' % (self._name, right._name))
+
+    def _mul_(self, right):
+        """
+        EXAMPLES::
+
+            sage: a = lisp(1); b = lisp(2)
+            sage: a * b
+            2
+        """
+        P = self._check_valid()
+        return P.new('(* %s %s)' % (self._name, right._name))
+
+    def _div_(self, right):
+        """
+        EXAMPLES::
+
+            sage: a = lisp(1); b = lisp(2)
+            sage: a / b
+            1/2
+        """
+        P = self._check_valid()
+        return P.new('(/ %s %s)' % (self._name, right._name))
+
+    def __pow__(self, n):
+        """
+        EXAMPLES::
+
+            sage: a = lisp(3)
+            sage: a^3
+            27
+        """
+        return RingElement.__pow__(self, n)
+
+
+@instancedoc
+class LispFunctionElement(FunctionElement):
+    def _instancedoc_(self):
+        """
+        EXAMPLES::
+
+            sage: two = lisp(2)
+            sage: two.sin.__doc__
+            Traceback (most recent call last):
+            ...
+            NotImplementedError
+        """
+        M = self._obj.parent()
+        return M.help(self._name)
+
+
+@instancedoc
+class LispFunction(ExpectFunction):
+    def _instancedoc_(self):
+        """
+        EXAMPLES::
+
+            sage: lisp.sin.__doc__
+            Traceback (most recent call last):
+            ...
+            NotImplementedError
+        """
+        M = self._parent
+        return M.help(self._name)
+
+
+def is_LispElement(x):
+    """
+    EXAMPLES::
+
+        sage: from sage.interfaces.lisp import is_LispElement
+        sage: is_LispElement(2)
+        doctest:...: DeprecationWarning: the function is_LispElement is deprecated; use isinstance(x, sage.interfaces.abc.LispElement) instead
+        See https://github.com/sagemath/sage/issues/34804 for details.
+        False
+        sage: is_LispElement(lisp(2))
+        True
+    """
+    from sage.misc.superseded import deprecation
+    deprecation(34804, "the function is_LispElement is deprecated; use isinstance(x, sage.interfaces.abc.LispElement) instead")
+
+    return isinstance(x, LispElement)
+
+
+# An instance
+lisp = Lisp()
+
+
+def reduce_load_Lisp():
+    """
+    EXAMPLES::
+
+        sage: from sage.interfaces.lisp import reduce_load_Lisp
+        sage: reduce_load_Lisp()
+        Lisp Interpreter
+    """
+    return lisp
+
+
+def lisp_console():
+    """
+    Spawn a new Lisp command-line session.
+
+    EXAMPLES::
+
+        sage: lisp.console() #not tested
+        ECL (Embeddable Common-Lisp) ...
+        Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya
+        Copyright (C) 1993 Giuseppe Attardi
+        Copyright (C) 2000 Juan J. Garcia-Ripoll
+        ECL is free software, and you are welcome to redistribute it
+        under certain conditions; see file 'Copyright' for details.
+        Type :h for Help.  Top level.
+        ...
+    """
+    from sage.repl.rich_output.display_manager import get_display_manager
+    if not get_display_manager().is_in_terminal():
+        raise RuntimeError('Can use the console only in the terminal. Try %%lisp magics instead.')
+    os.system('ecl')

sage/libs/all__sagemath_ecl.py

@@ -0,0 +1 @@
+# sage_setup: distribution = sagemath-ecl