Posted By

lalzy on 05/18/14

Tagged

Versions (?)

Last Edited at 05/18/14 03:08am

Statistics

Viewed 362 times

Favorited by 0 user(s)

Related snippets

MTU-Changing program - Main.lisp

/ Published in: Lisp

The Main-loop and other main-functions.

Highlighted TextExpand

;;;; Start-up, use and compilation

;;; Global-Imports
(ql:quickload "cl-utilities")
(load "mtu_settings.lisp")
(load "mtu_menus.lisp")
(load "mtu_input.lisp")

;;; Global variables
(defvar *mtu* nil)
(defvar *mtub* nil) ; backup
(defvar *interface* nil)

(defun main_menu (preset)
  "The Main Menu" 
  (show_main_menu preset)
  (let ((input (input_loop #'menu_input_check `(,preset))))
    (cond ((equal input 'settings)
	   (show_settings_menu)
	   (setf input (input_loop #'settings_input_check nil))
	   (if (equal input 'exit) 
		 (main_menu preset)
		 (format t "Selected: ~a" input)))
	  ((equal input 'exit)
	   (exit))
	  ((equal input 'showmtu)
	   (format t "Current MTU Value: ~a~%" *mtu*))
	  ((equal input 'editMtu)
	   (edit_mtu))
	  ((equal input 'createpmtu)
	   (create_preset_mtu))
	  ((equal input 'loadpmtu)
	   (load_preset_mtu))
	  ((equal input 'editpmtu)
	   (edit_preset_mtu))
	  ((equal input 'deletepmtu)
	   (delete_preset_mtu))
	  (t (format t "Selected: ~a" input))))
    (main_menu preset))

(defun main (&optional preset)
  "Main Loop"
  (when (equal (load_settings) 'None)
      (show_interface_selection (get_interface_list))
      (let ((interface (input_loop #'interface_input_check (get_interface_list))))
	(create_settings interface))
  (main_menu preset)))

(defun start ()
  "Start-up function"
  (main)
)

(Ext:saveinitmem "W:\\Lisp\\rel-dir\\MTU\\mtu.exe"
                 :init-function #'start
                 :NORC t
                 :script t
                 :executable t
                 :quiet t)
#|

Report this snippet Tweet

Comments

Subscribe to comments

Comment:

You need to login to post a comment.