mirrors/EQL5
1
Fork 0
mirror of https://gitlab.com/eql/EQL5.git synced 2026-01-30 12:22:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

small revisions in "quick" examples

Browse source
This commit is contained in:
polos 2017-01-19 20:48:18 +01:00
parent e8992bdc5f
commit 4cb7bfcfbf
4 changed files with 28 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

18
examples/M-modules/quick/Tic-Tac-Toe/eql5.js
View file

@ -2,15 +2,15 @@
function fun(name, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9) {
var args = [];
if(undefined != arg1) args.push(arg1);
if(undefined != arg2) args.push(arg2);
if(undefined != arg3) args.push(arg3);
if(undefined != arg4) args.push(arg4);
if(undefined != arg5) args.push(arg5);
if(undefined != arg6) args.push(arg6);
if(undefined != arg7) args.push(arg7);
if(undefined != arg8) args.push(arg8);
if(undefined != arg9) args.push(arg9);
if(undefined != arg1) args.push(arg1); {
if(undefined != arg2) args.push(arg2); {
if(undefined != arg3) args.push(arg3); {
if(undefined != arg4) args.push(arg4); {
if(undefined != arg5) args.push(arg5); {
if(undefined != arg6) args.push(arg6); {
if(undefined != arg7) args.push(arg7); {
if(undefined != arg8) args.push(arg8); {
if(undefined != arg9) args.push(arg9); }}}}}}}}
return EQL5.apply(name, args); }
function apply(name, args) {

14
examples/M-modules/quick/Tic-Tac-Toe/qml-lisp.lisp
View file

@ -32,9 +32,6 @@
(subseq upper 0 p))
(intern upper))))
(defun qml-error (format-string &rest arguments)
(format *debug-io* "~&[QML] ~A~%" (apply 'format nil format-string arguments)))
;;; function calls from QML
(defun qml-apply (function arguments)
@ -52,12 +49,11 @@
root-object))
(defun find-qml-object (name &optional all)
(or (if (string= (|objectName| (root-object)) name)
(root-object)
(if all
(qfind-children (root-object) name)
(qfind-child (root-object) name)))
(qml-error "No object found with name: ~S." name)))
(if (string= (|objectName| (root-object)) name)
(root-object)
(if all
(qfind-children (root-object) name)
(qfind-child (root-object) name))))
;;; get/set QML object properties

18
examples/M-modules/quick/qml-lisp/eql5.js
View file

@ -2,15 +2,15 @@
function fun(name, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9) {
var args = [];
if(undefined != arg1) args.push(arg1);
if(undefined != arg2) args.push(arg2);
if(undefined != arg3) args.push(arg3);
if(undefined != arg4) args.push(arg4);
if(undefined != arg5) args.push(arg5);
if(undefined != arg6) args.push(arg6);
if(undefined != arg7) args.push(arg7);
if(undefined != arg8) args.push(arg8);
if(undefined != arg9) args.push(arg9);
if(undefined != arg1) args.push(arg1); {
if(undefined != arg2) args.push(arg2); {
if(undefined != arg3) args.push(arg3); {
if(undefined != arg4) args.push(arg4); {
if(undefined != arg5) args.push(arg5); {
if(undefined != arg6) args.push(arg6); {
if(undefined != arg7) args.push(arg7); {
if(undefined != arg8) args.push(arg8); {
if(undefined != arg9) args.push(arg9); }}}}}}}}
return EQL5.apply(name, args); }
function apply(name, args) {

14
examples/M-modules/quick/qml-lisp/qml-lisp.lisp
View file

@ -32,9 +32,6 @@
(subseq upper 0 p))
(intern upper))))
(defun qml-error (format-string &rest arguments)
(format *debug-io* "~&[QML] ~A~%" (apply 'format nil format-string arguments)))
;;; function calls from QML
(defun qml-apply (function arguments)
@ -52,12 +49,11 @@
root-object))
(defun find-qml-object (name &optional all)
(or (if (string= (|objectName| (root-object)) name)
(root-object)
(if all
(qfind-children (root-object) name)
(qfind-child (root-object) name)))
(qml-error "No object found with name: ~S." name)))
(if (string= (|objectName| (root-object)) name)
(root-object)
(if all
(qfind-children (root-object) name)
(qfind-child (root-object) name))))
;;; get/set QML object properties