Scheme+.rkt

;; This file is part of Scheme+

;; Copyright 2023-2024 Damien MATTEI

;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU 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 General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <https://www.gnu.org/licenses/>.

;; version 9.8 

;; use: (require Scheme+)

;; note : seems (require Scheme+/def-nfx) should be required separately in REPL

(module Scheme+ racket/base

  (provide

   
   ;; definition and block

   def return return-rec
   define
   define-infix
   
   <+ +>
   ⥆ ⥅
   :+ +:
   declare
   $> ; begin
   $+> ; (let () ...
   begin-def


   
   ;; infix notation,indexing,slicing and assignment

   : ; slice symbol
   $nfx$ ; infix
   $bracket-apply$ ; [ ]
   <- ->
   ← →
   :=  =:
   ;; multiple values assignment
   <v v>
   ⇜ ⇝

   ;; control: if then else
   if

   ;; iteration
   for continue break
   for-basic
   for-next
   for-basic/break
   for-basic/break-cont
   for/break-cont
   for-each-in

   ;; sequence
   in-range
   reversed

   
   ;; control
   condx
   repeat
   do
   unless
   while


   
   ;; operators
   <> ≠
   **
   %
   << >>
   &
   ∣ ; warning: this pipe could be a special character (different from keyboard stroke)


   

   ;; overloading
   define-overload-procedure
   overload-procedure
   
   define-overload-existing-procedure
   overload-existing-procedure
   
   define-overload-operator
   overload-operator
   
   define-overload-existing-operator
   overload-existing-operator
   
   define-overload-n-arity-operator
   overload-n-arity-operator
   
   define-overload-existing-n-arity-operator
   overload-existing-n-arity-operator
   
   overload-square-brackets

   find-getter-for-overloaded-square-brackets
   find-setter-for-overloaded-square-brackets
	 
   
   )


  

  (require

   (only-in racket/base [define define-scheme])
   
   ;; definition and block
   Scheme+/def
   Scheme+/def-nfx ; infix define
   Scheme+/declare
   Scheme+/block

   
   ;; infix notation,indexing,slicing and assignment
   Scheme+/slice
   Scheme+/bracket-apply
   Scheme+/assignment
   Scheme+/nfx

   ;; control: if then else
   Scheme+/if-then-else

   ;; iteration
   Scheme+/for_next_step
   Scheme+/range

   ;; control
   Scheme+/condx
   Scheme+/when-unless
   Scheme+/while-do
   Scheme+/repeat-until

   ;; operators
   Scheme+/not-equal
   Scheme+/exponential
   Scheme+/bitwise
   Scheme+/modulo

   ;; overloading
   Scheme+/overload


   ) ; end import


  ) ; end library