-- Fluid Application Environment(TM)
-- Version: 1.0_a1
-- Date: 2009-09-05
-- Author: Ryan Johnson (ryanj@fluidae.com)
-- For updates, see http://fluidae.com/

---------------------------------------------------------------------------------

-- Part of Fluid Application Environment(TM) - Copyright 2009 Ryan Johnson
--
--   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 2 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, write to the Free Software
--   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
--
---------------------------------------------------------------------------------



--todo:

--show splashscreen
--get environment information:
--   1)euphoria info
--   2)os info
--   3)hardware info
--load configuration (fluidae.cfg):
--convert selected modules to euphoria
--build kernel instances and execute








--Artistic Electronics(TM) Fluid Application Environment(TM)
without warning

include std/error.e as err
--export include include/idle.e
include win32lib/win32lib.ew

--include include/std/task.e  --argh, doesn't work yet in this rev of eu 4.0

--global constant winMain = createEx( Window, "Fluid Application Environment", 0, 0, 0, 640, 280, WS_OVERLAPPEDWINDOW, 0 )
global constant winMain = createEx( Window, "Fluid Application Environment", 0, 0, 0, 640, 280, {WS_POPUP, WS_DLGFRAME}, 0 )
global atom IsServer = 0


--err:crash_file("fluidae.err")
atom task_main, task_test

--public include kernel/fmisc.e
public include common/console.e
include common/fnp.e
include common/modules.e as mod
--include modules/system/mod_system.e
include modules/gui/mod_gui.e
include modules/app/mod_app.e
include modules/irc/mod_irc.e
include modules/euchat/mod_euchat.e

procedure testtask()
    while 1 do
        task_yield()
    end while
end procedure


global procedure maintask()
    sequence modlist, modname, modsettings, clist, msg
    atom ret
    
    statusUpdateMsg(0, "Starting modules...", 0)
    
    
    mod:start("gui")
    --mod:start("app")
    mod:start("irc")
    mod:start("euchat")
    
    statusUpdateMsg(0, "Running.", 0)
    
    task_test = task_create(routine_id("testtask"), {})
    task_schedule(task_test, {2, 5})

    while 1 do
        task_yield()
    end while
    
end procedure


task_main = task_create( routine_id("maintask"), {})
task_schedule(task_main, {0.01, 0.1})

WinMain( winMain,Normal )