g2q1.scm

;; =============================================================================
;;
;; g2q1.scm
;;
;; Additional configuration and machine-specific functions.
;;
;; =============================================================================
;;
;; Copyright (C) 2018 - 2022 Pablo Edronkin (pablo.edronkin at yahoo.com)
;;
;;   This program is free software: you can redistribute it and/or modify
;;   it under the terms of the GNU Lesser General Public License as published by
;;   the Free Software Foundation, either version 3 of the License, or
;;   (at your option) any later version.
;;
;;   This program is distributed in the hope that it will be useful, but
;;   WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
;;   or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
;;   License for more details.
;;
;;   You should have received a copy of the GNU Lesser General Public License
;;   along with this program. If not, see <https://www.gnu.org/licenses/>.
;;
;; =============================================================================


;;;; General notes:
;;
;; - Read sources for limitations on function parameters.
;; - Read at least the general notes of all scm files in this library before
;;   use. Consider these files as your main documentation for g2q.
;; - Config for IBM Quantum Experience and Qiskit. This still needs development
;;   in but might be needed to test QASM programs on IBM Q processors.
;;
;; Sources:
;;
;; - [1] Qiskit.org. (2019). Installing Qiskit — Qiskit 0.12.0 documentation.
;;   [online] Available at: https://qiskit.org/documentation/install.html
;;   [Accessed 7 Oct. 2019].


(define-module (g2q g2q1)
  #:use-module (grsp grsp0)  
  #:export (g2q-version
	    g2q-ibm-config
	    g2q-qre-config
	    g2q-select-qpu
	    g2q-txt))


;; g2q-version - Returns the current version of the compiler.
;;
;; Keywords:
;;
;; - configuration, version
;;
(define (g2q-version)
  (let ((res1 "g2q - v1.2.9"))
    
    res1))


;; g2q-ibm-config - TODO: configuration for using IBM Q series machines;
;; equivalent to functions found on Qiskit IDE. (Deprecated).
;;
;; Keywords:
;;
;; - configuration, functions
;;
;; List elements:
;;
;; - 0: base uri for online access.
;; - 1: token.
;; - 2: subdir to post https execution requests.
;;
(define (g2q-ibm-config)
  (let ((res1 (list "https://quantumexperience.ng.bluemix.net/api"
		    "your-token-goes-here"
		    "/codes/execute")))
    
    res1))


;; g2q-qre-config - Configuration for using qre.
;;
;; Keywords:
;;
;; - configuration, qre
;;
;; Elements:
;;
;; - 0: json subdir.
;; - 1: sqlite3 subdir.
;; - 2: primary local (default) qpu.
;; - 3: secondary local qpu.
;; - 4: primary remote qpu.
;; - 5: secondary remote qpu.
;;
(define (g2q-qre-config)
  (let ((res1 (list "data/json/"
		    "data/sqlite3/"
		    "qlib_simulator"
		    "ibmqx_simulator"
		    "qx_simulator"
		    "ibmqx_real")))
    
    res1))


;; g2q-select-qpu - Menu for selecting the qpu that is to be used.
;;
;; Keywords:
;;
;; - configuration, qpu
;;
;; Output:
;;
;; - String containing the name of the selected qpu. Defaults to qlib_simulator.
;;
(define (g2q-select-qpu)
  (let ((res1 3)
	(res2 ""))
    
    (newline)
    (grsp-dl "Select qpu:")
    (grsp-dl "0 - None (exit).")
    (grsp-dl "1 - qlib_simulator.")
    (grsp-dl "2 - qx_simulator.")
    (grsp-dl "3 - ibmqx_simulator.")
    (grsp-dl "4 - ibmqx_real.")
    (set! res1 (read))

    ;; Not elegant, but works for now (needs to be reworked).
    (if (< res1 0)
	(set! res1 0))
    
    (if (> res1 4)
	(set! res1 0))
    
    (if (= res1 0)
	(set! res2 "none"))
    
    (if (= res1 1)
	(set! res2 (car(cdr(cdr(g2q-qre-config))))))
    
    (if (= res1 2)
	(set! res2 (car(cdr(cdr(cdr(cdr(g2q-qre-config))))))))
    
    (if (= res1 4)
	(set! res2 (car(cdr(cdr(cdr(cdr(cdr(g2q-qre-config)))))))))
    
    (if (= res1 3)
	(set! res2 (car(cdr(cdr(cdr(g2q-qre-config)))))))
    
    res2))


;; g2q-txt - Defines some string constants that are intrinsic to g2q.
;;
;; Keywords:
;;
;; - configuration, constants
;;
;; Parameters:
;;
;; - p_n1: string number.
;;
(define (g2q-txt p_n1)
  (let ((res1 ""))
    
    (cond ((= p_n1 0)
	   (set! res1 "];"))
	  ((= p_n1 1)
	   (set! res1 "\n"))
	  ((= p_n1 2)
	   (set! res1 ";\n"))
	  ((= p_n1 3)
	   (set! res1 "];\n"))
	  ((= p_n1 4)
	   (set! res1 ") "))
	  ((= p_n1 5)
	   (set! res1 "if("))
	  ((= p_n1 6)
	   (set! res1 "// "))
	  ((= p_n1 7)
	   (set! res1 "charset=utf-8"))
	  ((= p_n1 8)
	   (set! res1 "application/x-www-form-urlencoded;"))
	  ((= p_n1 9)
	   (set! res1 "na"))
	  ((= p_n1 10)
	   (set! res1 ", ")))
    
    res1))