Murga-Projects Forums - All Forums

Opening HTML Reports

Sat, 10 Jul 2010 16:01:15 -0600

Hi,
I plan to write some HTML reports to a file from my murgaLua program and then call the end-users system to open the file in a browser to display the report (for viewing and/or printing). Just wondering how in murgaLua I can open a file using whatever is the default program (in this case a browser) for a specific file type.
Thanks
RogerL

Idle scripting language

Tue, 22 Jun 2010 08:49:42 -0600

Reading through lua-l I've come around something interesting: Idle:
http://idle.thomaslauer.com/index.html
Seems to be a bunch of packages around Lua, however only for windows.
It sports GUI, sqlite, JIT (based on LuaJIT 1.15), on-the-fly C compiling through tcc, ... And everything is or under the license of the package containing the code, or some modified version of MIT. Maybe an interesting source for new ideas, or windows-centric stuff?

regards,
JP

New SQLite version in 0.7?

Wed, 05 May 2010 08:38:49 -0600

Hi,
I was wondering, will there be a new version of sqlite in the upcoming 0.7 release?
Their site says:

Quote:Version 3.6.23.1 of SQLite is recommended for all new development. Upgrading from version 3.6.12, 3.6.13, 3.6.22, and 3.6.23 is optional. Upgrading from all other SQLite versions is recommended.

And judging by http://sqlite.org/changes.html it seems there have been a lot of changes since the 2005 December 19 3.2.8 release included in murgaLua 0.6.9.

Greetings,

Jan-Pieter

another menu thing

Sat, 01 May 2010 08:47:10 -0600

Playing around with homemade menu options again. This one is kinda visually similar to the collapsable browser I was working on earlier. It makes use of a pack of buttons that "expand" when clicked. This example only changes the label text and size a little, but it could be easily modified to load a thumbnail image or other such thing. It's heavily commented, so that should help in customizing. I haven't yet added the ability for the buttons to actually DO anything other than change their own appearance =o)

Screenshot attached.

EDIT: added a conditional placeholder for a subsequent click on the expanded button.

Code:
#!/usr/bin/env murgaLua

-- Creates a vertical scroll containing an arbitrary number of
-- buttons which grow and change labels when clicked, and collapse
-- when another button is clicked
-- Additional button behavior, such as secondary action by clicking
-- the active button (a logical next step), is not implemented yet

mbw=64 -- menu button width
mbnh=30 -- button normal height
mbeh=200 -- expanded height

-- These labels are displayed on buttons in their inactive state.
-- Another table of equal size could be created to store info for
-- active state, or tables of arbitrary size could be generated
-- and used for data in both the build_menu() loop and butt_cb()
menu_labels={"one", "two", "three", "four",
"five", "six", "seven", "eight", "nine", "ten",
"eleven", "twelve", "thirteen", "fourteen",
"fifteen", "sixteen", "seventeen", "eighteen",
"nineteen", "twenty", "twenty-one", "twenty-two"}

-- Notes on customizing this function:
-- active_butt = previously selected button
-- self = currently selected button
-- (1) This line is auxiliary and disposable
-- (2) Try setting the label to an image or text from a table/file
-- (3) See (1)
function butt_cb(self)
if self:h()==mbeh then -- if self is already expanded
-- put stuff to do on second click here
else
-- expand new button
  active_butt:size(mbw,mbnh) -- collapse previous button
  active_butt:label(prev_label) -- reset to initial label
  active_butt:labelsize(def_sz) -- reset to initial label size (1)
  prev_label=self:label() -- backup the initial label of current button
  self:label("BIG\n"..prev_label) -- change the label text of current button (2)
  self:labelsize(def_sz*2) -- increase label size of current button (3)
  self:size(mbw,mbeh) -- expand current button
  active_butt=self -- let everyone know which button to collapse next time
  menu_scroll:redraw() -- visual clean up
end
end

function build_menu(x,y,w,h)
menu_button={}
menu_scroll=fltk:Fl_Scroll(x,y,w,h)
menu_scroll:type(2) -- FL_VERTICAL doesn't seem to work
menu_scroll:box(fltk.FL_DOWN_BOX) -- just for looks
menu_pack=fltk:Fl_Pack(x,y,w-20,h-20) -- note 20 pixel space for scrollbar
fltk:Fl_End() -- end pack
fltk:Fl_End() -- end scroll
-- create buttons from menu_labels table
-- This could be made dynamic by, for example,
-- populating the table with a list of files
for i,v in pairs(menu_labels) do
  menu_button[i]=fltk:Fl_Button(0,0,mbw,mbnh,v)
  menu_button[i]:callback(butt_cb)
  menu_pack:add(menu_button[i])
end
end

w=fltk:Fl_Window(300,600,"menu test 2")
-- x,y,w,h (note: w doesn't need to be mbeh)
build_menu(10,10,mbeh,500)
-- set a default font size (needed only if butt_cb uses it)
def_sz=menu_button[1]:labelsize()
-- set first button active
active_butt=menu_button[1]
-- initialize a prev_label for first use in butt_cb
prev_label=menu_button[1]:label()
--active_butt:do_callback() -- optional
w:show()
Fl:run()

Weaknesses in exportXml

Thu, 29 Apr 2010 16:54:39 -0600

Hi!

Found out some weaknesses in exportXml
* it does not support io.stdout or io.stderr. Besides it would be nice to be able to export to a xml-string to, for example to insert XSL/DTD/... stuff, and not having to read it out of the file again

* It doesn't take care of keys with spaces in the tables, the first word will appear as the tag, the following ones as attributes. As a side effect this borkes the reading in by loadFromXml() as it gets ... as tags.
As a temporary workaround, replaces spaces in keys with __ :

function prepTable (tab,unprep)
local newTab={}
local pat = unprep and '__' or '%s+'
local rep = unprep and ' ' or '__'
for k,v in pairs(tab) do
newTab[(k:gsub(pat,rep))]= type(v)=="table" and prepTable(v,unprep) or v
end
return newTab
end

Greetz,

Jan-Pieter

PONG

Wed, 21 Apr 2010 05:37:18 -0600

Here's version one of a one player Pong.
Move the mouse up and down to control both paddels.
The ball speed increases up to a point each time its hit by a paddle or a the left and right sides.

I've attached the Fluid file.

Code:
math.randomseed(os.time())
bvx=math.random(1,2)
bvy=math.random(1,2)-1
leftscore=0
rightscore=0
ballspeed=2
maxballspeed=9
ballspeedinc=0.2
playGame=true
oldTime=os.time()
--total distance per second
tdx,tdy= 0,0
--inrect
function inrect(x,y,xx,yy,xxx,yyy)
if x>=xx and x<=xxx and y>=yy and y<=yyy then return true end
return false
end
--ballspeedup
function ballspeedup()
if ballspeed < maxballspeed then ballspeed=ballspeed+ballspeedinc end
end
--borderball detects border hit
function borderball()
bx,by=Ball:x(),Ball:y()
bxx,byy=bx+16,by+16
borderhit=false

-- if the ball exits  the gamefield then reset to center
if inrect(bx,by,fx,fy,fxx,fyy) ~= true and inrect(bxx,byy,fx,fy,fxx,fyy) ~= true then
bx,by = (FIELDBOX:w()/2)+1,(FIELDBOX:h()/2)+1
Ball:resize(bx,by,16,16)
end

--if the ball is beyond the left side of the field, reverse x direction
    if bx <=fx then
    bvx=1
    borderhit=true
    rightscore=rightscore+1
    SCORERIGHT:value(rightscore)
    ballspeedup()
    end
--if the ball is beyond the right side of the field, reverse x direction
    if bxx >= fxx then
    bvx=-1

    leftscore=leftscore+1
    SCORELEFT:value(leftscore)
    ballspeedup()
    end

--if the ball hits the top of the field then reverse direction
        if by <=fy then
        bvy=1
        ballspeedup()
        Ball:labelcolor(95)
        end

--if the ball hits the bottom of the field  reverse direction
    if  byy >= fyy then
    bvy=-1
    ballspeedup()
    Ball:labelcolor(95)
    end

    if borderhit == true then
    bvy=math.random(1,2)
    if bvy==2 then
        bvy=1
        else
        bvy=-1
        end
    end



return bvx,bvy
end
--blockball
function blockball(px,py,pxx,pyy)
bx,by=Ball:x()+bvx,Ball:y()+bvy
bxx,byy=bx+16,by+16

--if the ball is still in the field then detect block hits
if inrect(bx,by,px,py,pxx,pyy) == true or inrect(bxx,byy,px,py,pxx,pyy) == true then

--if the ball is on the left side of the field
    if bx <= (FIELDBOX:w()/2) then
    bvx=1
    Ball:labelcolor(80)
    --or if its on the right side
    else
    bvx=-1
    Ball:labelcolor(220)
    end




byr=math.random(1,15)

        if byr <= 5 then bvy=0 end
        if byr  >= 6 and byr <= 10 then bvy=-1 end
        if byr >= 11 then bvy=1 end

end

end
-- moveBall
function moveBall()
-- move the ball

bx,by = Ball:x(),Ball:y()
obx,oby = bx,by
bx=bx+bvx*ballspeed
by=by+bvy*ballspeed
Ball:resize(bx,by,16,16)

    --total distance
    tdx=tdx+(math.abs(bvx)*ballspeed)
    tdy=tdy+(math.abs(bvy)*ballspeed)
    if os.time()-oldTime >= 1 then
    distance:label("distance per second x:"..tdx.."  y:"..tdy)
    tdx,tdy= 0,0
    oldTime=os.time()
    end
end
-- movePaddles
function movePaddles()
mx=Fl:event_x()
my=Fl:event_y()

lx,ly=LEFTBOX:x(),LEFTBOX:y()
lxx,lyy=lx+LEFTBOX:w(),my+LEFTBOX:h()
if inrect(mx,my,fx,fy,fxx,fyy) == true and inrect(mx,lyy,fx,fy,fxx,fyy) == true then
LEFTBOX:resize(lx,my,LEFTBOX:w(),LEFTBOX:h())
end

rx,ry=RIGHTBOX:x(),RIGHTBOX:y()
rxx,ryy=rx+RIGHTBOX:w(),my+RIGHTBOX:h()

if inrect(mx,my,fx,fy,fxx,fyy) == true and inrect(mx,ryy,fx,fy,fxx,fyy) == true then
RIGHTBOX:resize(rx,my,RIGHTBOX:w(),RIGHTBOX:h())
end

lx,ly=LEFTBOX:x(),LEFTBOX:y()
lxx,lyy=lx+LEFTBOX:w(),my+LEFTBOX:h()
rx,ry=RIGHTBOX:x(),RIGHTBOX:y()
rxx,ryy=rx+RIGHTBOX:w(),ry+RIGHTBOX:h()
blockball(lx,ly,lxx,lyy)
blockball(rx,ry,rxx,ryy)

end
--playPong
function playPong()

if (Fl:event_text()== "q") then os.exit() end

speedkey=tonumber(Fl:event_text())
if speedkey ~= nil then
if speedkey >= 1 and speedkey <=9 then ballspeed=speedkey end
    end

         if playGame == true then

     movePaddles()
     borderball()
     moveBall()

        Pong:redraw()
       -- murgaLua.sleepMilliseconds(10)
    end
end
--pongWindow_CB
function pongWindow_CB()

if (Fl:event_key()== fltk.FL_Escape) then playGame=not playGame end

    if playGame == true then
    Pong:label("PONG")
    else
    Pong:label("PONG  (PAUSED)")
    end
end

do Pong= fltk:Fl_Double_Window(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "PONG")
Pong:label(gLabelTable[#gLabelTable])
Pong:callback(pongWindow_CB)
Pong:resize(380,194,652,443)
Pong:color(0)

do FIELDBOX= fltk:Fl_Box(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "FIELDBOX")
FIELDBOX:label(gLabelTable[#gLabelTable])
FIELDBOX:resize(0,0,655,444)
FIELDBOX:box(fltk.FL_FLAT_BOX)
FIELDBOX:color(0)
FIELDBOX:labeltype(fltk.FL_NO_LABEL)
FIELDBOX:labelcolor(33)
end

do SCORELEFT= fltk:Fl_Output(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "SCORELEFT")
SCORELEFT:label(gLabelTable[#gLabelTable])
SCORELEFT:resize(205,1,60,51)
SCORELEFT:box(fltk.FL_NO_BOX)
SCORELEFT:color(0)
SCORELEFT:labeltype(fltk.FL_NO_LABEL)
SCORELEFT:labelsize(7)
SCORELEFT:labelcolor(72)
SCORELEFT:textsize(36)
SCORELEFT:textcolor(72)
end

do SCORERIGHT= fltk:Fl_Output(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "SCORERIGHT")
SCORERIGHT:label(gLabelTable[#gLabelTable])
SCORERIGHT:resize(385,0,65,51)
SCORERIGHT:box(fltk.FL_NO_BOX)
SCORERIGHT:color(0)
SCORERIGHT:selection_color(177)
SCORERIGHT:labeltype(fltk.FL_NO_LABEL)
SCORERIGHT:labelsize(7)
SCORERIGHT:labelcolor(72)
SCORERIGHT:textsize(36)
SCORERIGHT:textcolor(177)
end

do LEFTBOX= fltk:Fl_Box(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "LeftBox")
LEFTBOX:label(gLabelTable[#gLabelTable])
LEFTBOX:resize(25,193,24,82)
LEFTBOX:box(fltk.FL_FLAT_BOX)
LEFTBOX:color(80)
LEFTBOX:labeltype(fltk.FL_NO_LABEL)
LEFTBOX:labelsize(7)
LEFTBOX:labelcolor(88)
end

do RIGHTBOX= fltk:Fl_Box(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "Rightbox")
RIGHTBOX:label(gLabelTable[#gLabelTable])
RIGHTBOX:resize(600,193,24,82)
RIGHTBOX:box(fltk.FL_FLAT_BOX)
RIGHTBOX:color(220)
RIGHTBOX:labeltype(fltk.FL_NO_LABEL)
RIGHTBOX:labelsize(7)
RIGHTBOX:labelcolor(216)
end

do instructions= fltk:Fl_Box(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "ESC to Pause   Q to QUIT")
instructions:label(gLabelTable[#gLabelTable])
instructions:resize(0,-1,650,16)
instructions:labelsize(10)
instructions:labelcolor(63)
end

do distance= fltk:Fl_Box(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "distance per second")
distance:label(gLabelTable[#gLabelTable])
distance:resize(0,427,650,16)
distance:labelsize(10)
distance:labelcolor(63)
end

do Ball= fltk:Fl_Box(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "¥")
Ball:label(gLabelTable[#gLabelTable])
Ball:resize(320,226,15,16)
Ball:labelsize(16)
Ball:labelcolor(95)
end
end
Pong:show()

gLabelTable[#gLabelTable] ="@circle"
Ball:label(gLabelTable[#gLabelTable])

Pong:make_current();
fx,fy=FIELDBOX:x()+8,FIELDBOX:y()+8
fxx,fyy=fx+FIELDBOX:w()-8,fy+FIELDBOX:h()-8

while Pong do
Fl:check()
playPong()
end
Fl:run()

Magic 8 Box

Sun, 18 Apr 2010 18:34:40 -0600

Ask a question, shake the box, and let the all knowing MurgaLua Magic 8 Box solve all of life's problems.

Code:
EightBallAnswers={"Outlook Good", "Outlook Not So Good ", "My Reply Is No", "Don't Count On It", "You May Rely On It", "Ask Again Later", "Most Likely ", "Cannot Predict Now", "Yes ", "Yes, definitely", "Better Not Tell You Now ", "It Is Certain", "Very Doubtful", "It Is Decidedly So", "Concentrate And Ask Again", "Signs Point To Yes ", "My Sources Say No ", "Without A Doubt ", "Reply Hazy, Try Again", "As I See It, Yes"}
math.randomseed(os.time())
function shakebox()
local shakeammount=math.random(8,16)
local answer=math.random(1,#EightBallAnswers)
local wx=EightBox:x()
local wy=EightBox:y()
local ww=EightBox:h()
local wh=EightBox:w()

for i = 1,shakeammount,1 do
EightBox:resize(wx-8,wy,wh,ww)
Fl:wait(0)
EightBox:resize(wx,wy-8,wh,ww)
Fl:wait(0)
EightBox:resize(wx+8,wy,wh,ww)
Fl:wait(0)
EightBox:resize(wx,wy+8,wh,ww)
end
Fl:wait(0)
EightBox:resize(wx,wy,wh,ww)
EightBox:redraw()
AnswerOutput:value(EightBallAnswers[answer])
end
do EightBox= fltk:Fl_Double_Window(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "MAGIC 8 BOX")
EightBox:label(gLabelTable[#gLabelTable])
EightBox:resize(509,283,362,119)

do background= fltk:Fl_Box(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "label")
background:label(gLabelTable[#gLabelTable])
background:resize(0,-1,365,237)
background:box(fltk.FL_FLAT_BOX)
background:color(0)
end

do ShakeButton= fltk:Fl_Button(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "Shake")
ShakeButton:label(gLabelTable[#gLabelTable])
ShakeButton:callback(shakebox)
ShakeButton:resize(0,75,365,45)
ShakeButton:box(fltk.FL_NO_BOX)
ShakeButton:labelfont(1)
ShakeButton:labelsize(21)
ShakeButton:labelcolor(1)
end

do AnswerOutput= fltk:Fl_Output(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, " ")
AnswerOutput:label(gLabelTable[#gLabelTable])
AnswerOutput:resize(20,16,325,39)
AnswerOutput:box(fltk.FL_NO_BOX)
AnswerOutput:textcolor(2)
end
end
EightBox:show()
Fl:run()

Spelling/Typing Practice

Sun, 18 Apr 2010 18:00:10 -0600

Here's a program I made to allow my daughter to cheat through spelling classes.
She's too good at both spelling and typing so this program made our days less of a drudgery.

It looks for a file "spellingList.lua" which is a table that is broken down into Units that contain a list per unit.
A quick and dirty Example would be:

Code:
spellingLists={{"global","solar"},{"pupil","community"}}

For simplicity I've also included the table inside of the program itself so the external file isn't necessary.

"Commonly mispelled words" might be a useful list to use for adult practice.
Or maybe a bunch of coding keywords to practice memorizing, I should probably make that.

The code also writes to a file "CurrentUnitCurrentWord.txt", to keep track of progress so the user can pick up where they left off over many sessions.
It also attempts to keep track of total time per session, as well as keystrokes, and words per minute typed.

I've attached the Fluid file

Code:
spellingLists={{"global","solar"},{"pupil","community"}}
  listFile="spellingLists.lua"
    local sl=io.open(listFile,"r*")
    if sl~=nil then
    dofile(listFile)
    sl:close()
    end

currentUnit={}
listCount = #spellingLists
totalwords = 0
for i = 1,listCount do
currentUnit = spellingLists[i]
unitCount = #currentUnit
for ii = 1,unitCount do
totalwords = totalwords + 1
--print(currentUnit[ii])
end
end
print(totalwords)

keystrokeCount = 0
totalLetters =0
wordscompleted=0
spellingTimerStart = os.time()
TotalElapsedTime = 0
UnitElapsedTime = 0
wordsPerMinute = 0
minuteCount = 0
elapsedWordtime = 0
wpmcount = 0
unitDepth = 1
listDepth = 1
wordsPerMinute=0

wordlistdepthfile = "CurrentUnitCurrentWord.txt"
myFile = io.open(wordlistdepthfile,"r")
if myFile ~= nil then
dofile(wordlistdepthfile)
myFile:close()
end

-- WriteSpellingListsToFile
function WriteSpellingListsToFile()
spellingListsFile = "spellingLists.lua"
    local f = io.open(spellingListsFile,"w")
    local Q = '"';
    local ba="{";
    local bb="}";
    local C=",";

    if f ~= nil then
    local listout = ""

        for i = 1,#spellingLists do
        local wordlist=""

            for ii = 1,#spellingLists[i] do
            wordlist=wordlist .. Q..spellingLists[i][ii]..Q..C
            end
            listout = listout..ba..string.sub(wordlist,1,-2)..bb..C.."\n"

        end
        listwrite = "spellingLists="..ba..string.sub(listout,1,-3)..bb;
        f:write(listwrite)
        f:write(string.char (10))
        io.close(f)
    end
end
-- WordInput_callback
function WordInput_callback(w)
wordtext = tostring(w:value())
realword = WordInput:label()
spellinglistWindow:make_current()
keystrokeCount = keystrokeCount + 1

if wordtext ~= realword then
    if string.sub(wordtext,-1,-1) == "." and string.len(wordtext)>2 then
    realword = string.sub(wordtext,1,-2)
    wordtext = realworld
    spellingLists[unitDepth][listDepth] = realword
    WordInput:label("")
    WordInput:label(realword)
    WordInput:replace(0,string.len(realword)+1,realword)
    WordInput:redraw()

    WriteSpellingListsToFile()

    end
end

if wordtext == realword then
wordscompleted = wordscompleted + 1
totalLetters = totalLetters + string.len(wordtext)
    listDepth = listDepth + 1
    if listDepth > #spellingLists[unitDepth] then
    listDepth = 1
    unitDepth = unitDepth + 1
    if unitDepth > #spellingLists then
unitDepth=1
end

    UnitElapsedTime = 0
    end
WordInput:label("")
WordInput:label(spellingLists[unitDepth][listDepth])
UnitLabel = "Unit "..tostring(unitDepth)

WordInput:replace(0,string.len(wordtext),"")
WordInput:redraw()
wpmcount = wpmcount + 1

whatText = "unitDepth="..unitDepth.."\n".."listDepth="..listDepth.."\n"
myFile = io.open("CurrentUnitCurrentWord.txt","w")
if myFile ~= nil then
myFile:write(string.char (10))
myFile:write(whatText)
myFile:write(string.char (10))
io.close(myFile)
end

elapsedWordtime = os.time() - spellingTimerStart
spellingTimerStart = os.time()
TotalElapsedTime = TotalElapsedTime + elapsedWordtime
UnitElapsedTime = UnitElapsedTime + elapsedWordtime

minuteCount = minuteCount + elapsedWordtime

if minuteCount > 60 then
minuteCount = 0
wordsPerMinute = wpmcount
wpmcount = 0
end

InfoBrowser:clear()
InfoBrowser:add(UnitLabel)
InfoBrowser:add("Word "..listDepth.." of "..#spellingLists[unitDepth])
InfoBrowser:add("Words Today: "..wordscompleted)
InfoBrowser:add("Keystrokes: "..keystrokeCount.." for "..totalLetters)

TimeBrowser:clear()
TimeBrowser:add("Word time: "..elapsedWordtime)
TimeBrowser:add("Unit Time: "..UnitElapsedTime)
TimeBrowser:add("Total Time: "..TotalElapsedTime)
TimeBrowser:add("WPM: "..wpmcount.."_"..minuteCount.." = "..wordsPerMinute)
spellinglistWindow:redraw()

end
WordInput:redraw()

end
do spellinglistWindow= fltk:Fl_Double_Window(0,0,0,0,"")
spellinglistWindow:callback(wClose)
spellinglistWindow:resize(6,50,742,322)

do fieldBackgrp= fltk:Fl_Group(0,0,0,0,"")
fieldBackgrp:resize(0,0,740,320)
fieldBackgrp:box(fltk.FL_DOWN_BOX)
Fl_Group:current(Fl_Group:current():parent())
end

do InfoBrowser= fltk:Fl_Browser(0,0,0,0,"")
InfoBrowser:resize(0,0,352,55)
InfoBrowser:box(fltk.FL_FLAT_BOX)
InfoBrowser:color(47)
InfoBrowser:labelsize(10)
InfoBrowser:textsize(10)
end

do TimeBrowser= fltk:Fl_Browser(0,0,0,0,"")
TimeBrowser:resize(350,0,389,55)
TimeBrowser:box(fltk.FL_FLAT_BOX)
TimeBrowser:color(47)
TimeBrowser:labelsize(10)
TimeBrowser:textsize(10)
end

do WordInput= fltk:Fl_Input(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "1234567890123")
WordInput:label(gLabelTable[#gLabelTable])
WordInput:callback(WordInput_callback)
WordInput:resize(15,169,715,146)
WordInput:color(55)
WordInput:labelsize(94)
WordInput:labelcolor(179)
WordInput:align(5)
WordInput:when(1)
WordInput:textsize(70)
end
end
spellinglistWindow:show()
spellinglistWindow:make_current()
WordInput:label(spellingLists[unitDepth][listDepth])
UnitLabel= "Unit "..tostring(10+unitDepth)
spellingTimerStart = os.time()
elapsedWordtime = os.time() -spellingTimerStart
TotalElapsedTime = TotalElapsedTime + elapsedWordtime
UnitElapsedTime = UnitElapsedTime + elapsedWordtime
InfoBrowser:clear()
InfoBrowser:add(UnitLabel)
InfoBrowser:add("Word "..listDepth.." of "..#spellingLists[unitDepth])
InfoBrowser:add("Words Today: "..wordscompleted)
InfoBrowser:add("Keystrokes: "..keystrokeCount.." for "..totalLetters)
TimeBrowser:add("Word time: "..elapsedWordtime)
TimeBrowser:add("Unit Time: "..UnitElapsedTime)
TimeBrowser:add("Total Time: "..TotalElapsedTime)
TimeBrowser:add("WPM: "..wpmcount.."_"..minuteCount.." = "..wordsPerMinute)
spellinglistWindow:redraw()

Fl:run()

PsychoLua-gist

Sun, 18 Apr 2010 17:42:26 -0600

A really dumb psychology simulator.
Derived from psychic-ologist (for BASIC) by Nathan Wittich

Code:
score={{}}
score["learnstrings"]={}
AI_RESPONSE={"what does that make you think?"
,  "have you thought much about the end result of that?"
,  "maybe we should talk about something else."
,  "you realize I only listen to you since it's my job. But go on."
,  "if that's entirely true, you would have made more of a point."
,  "pretending you are your guardian angel, tell me your opinion."
,  "what if you were to walk off a cliff today?"
,  "are you aware of your surroundings much?"
,  "if you were, you'd understand I might not be"
,  "time for you to get a break for a while."
,  "how come you always say dumb responses?"
,  "You come here to share your problems with me."
,  "Is there something I should know?"
,  "maybe you should tell me things in more detail."
,  "Is that really the reason?"
,  "do you even trust me?"
,  "It's OK. I understand. It's my job to understand. My job is to help you."
,  "more secrets, less mumbo-jumbo, OK."
,  "I don't know why I even try. Wait, I do, It's my job."
,  "Is there something you'd rather be talking about?"
,  "I look like this :-) but even us psychologists lie."
,  "You know what I think?"
,  "There was a cat that wore a hat and sat on mat and it was fat and that was that."
,  "You need a vacation."
,  "There's a pot of gold at the end of every rainbow."
,  "When is groundhog day?"
,  "You need to look at the big picture."
,  "what was accomplished?"
,  "You should be more assertive"
,  "You should finish something"
,  "Don't you even pay attention to your instincts? They're there to help you."
,  "You don't understand how others see you"
,  "What's your ultimate goal?"
,  "You tend to concentrate too much on one thing and forget another thing: Comb hair, ignore teeth. You're nice, but think too fast..."
,  "Do you try many new things?"
,  "Want my advice? Take a philosphy class."
,  "I think your dog understands you better than most people."}

math.randomseed(os.time()) ; -- RANDOMIZE TIMER

function listTableForOutput(TableName)
    local Q = '"';
    local ba="{";
    local bb="}";
    local C=",";

local listout = ""
local scoreword={}
local wordlist=""
        for i = 1,#score[TableName],1 do
        scoreword=score[TableName][i]

            qfind = string.find(scoreword,Q)
            if qfind == nil then
            scoreword=Q..scoreword..Q
            end


        listout = listout..scoreword..C
        end

         scoreout="\n".."score["..Q..TableName..Q.."]="..ba..string.sub(listout,1,-2)..bb;

    return scoreout
end

function WriteTablesToFile()
tableListsFile = "psycholuagist_learn.lua"
    local f = io.open(tableListsFile,"w")
    local Q = '"';
    local ba="{";
    local bb="}";
    local C=",";

    if f ~= nil then
    listwrite="\n"
        listwrite = listwrite.."\n"..listTableForOutput("learnstrings")
        f:write(listwrite)
        f:write(string.char (10))
        io.close(f)
    end
end

helloText=[[ Hello.
Welcome to psycholua-gist by William Griffin
Derived from  psychic-ologist (for BASIC) by Nathan Wittich

This 'Artificial inteligence' will talk to you.
Note: if something doesn't directly make sense, It may
be sort of symbolic or something.

Also, you have to act human for me to act human.
For example, if a human says something twice,
you say 'you already said that' not 'you're stupid'.

Also note: you don't have to answer.]]

print(helloText)

function psychoLuagist()
    local input
    local ps1 = ps1 or "> "
    while true do
        io.stdout:write(ps1)
        input = io.stdin:read(); --LINE INPUT "", a$
        if not input then io.stdout:write('\n') return end
         g = "  "..AI_RESPONSE[math.random(1,#AI_RESPONSE)] ; -- g$ = n$(1 + INT(RND * a))
        print(g)
        table.insert(score["learnstrings"],input)
        WriteTablesToFile()
    end

end
psychoLuagist()

Math Machine

Sun, 18 Apr 2010 17:33:12 -0600

This is a little math quiz program I made for my daughter. She home schools.
With pencil and paper math assignments she'll take 30 minutes for 10 problems, but with this little program she rips through 200 problems in the same time.

The program only deals with integer math and positive numbers.
The program solves division problems by first multiplying the variables, and providing the answer of the multiplication as a fraction.
It also plays switcheroo with subtraction problems to avoid negative answers.

The Options tab sets the level of difficulty of the math problems.

The program writes a record of progress to a file "MathRecords.lua", currently at the root or home directory (depending on how the program is run), you can of course change that in the code.

I've attached the Fluid file.

Code:
rndMinTop=1
rndMinBottom=1

rndMaxTop=11
rndMaxBottom=11

rndProcessOption=4

o1=math.random(rndMinTop,rndMaxTop)
o2=math.random(rndMinBottom,rndMaxBottom)
o3=math.random(1,rndProcessOption)
o4=0

answervalue=0

score={{}}
score["answer"]= {}
score["correct"]=""
score["tries"]=""

score["multiplication"]={}
score["division"]={}
score["subtraction"]={}
score["addition"]={}

mathRecords={}

local Q = '"';
local ba="{";
local bb="}";
local C=",";

score["correct"]=1
score["tries"]=1
score["addition"]={"1,1,1,2"}
score["subtraction"]={"1,1,2,0"}
score["multiplication"]={"1,1,3,1"}
score["division"]={"1,1,4,1"}
currentUnit={}
listCount = 0; --#mathList
totalwords = 0
keystrokeCount = 0
totalLetters =0
wordscompleted=0
spellingTimerStart = os.time()
TotalElapsedTime = 0
UnitElapsedTime = 0
wordsPerMinute = 0
minuteCount = 0
elapsedWordtime = 0
wpmcount = 0
unitDepth = 1
listDepth = 1
wordsPerMinute=0
-- "len": the # operation.
function len_event (op)
       if type(op) == "string" then
         return strlen(op)         -- primitive string length
       elseif type(op) == "table" then
         return #op                -- primitive table length
       else
         local h = metatable(op).__len
         if h then
           -- call the handler with the operand
           return (h(op))
         else  -- no handler available: default behavior
           error()
         end
       end
     end
function getLocations(o1,o2,o3)

--TOP
--hundredsplacebox
hptx,hpty = hundredsplaceT:x(),hundredsplaceT:y()
hptw,hpth = hundredsplaceT:w(),hundredsplaceT:h()
--tensplacebox
tptx,tpty = tensplaceT:x(),tensplaceT:y()
tptw,tpth = tensplaceT:w(),tensplaceT:h()
--onesplacebox
optx,opty = onesplaceT:x(),onesplaceT:y()
optw,opth = onesplaceT:w(),onesplaceT:h()
if o1 < 10 then
output1:resize(optx,opty,hptw,hpth)
end
if o1 >= 10 and o1 < 100 then
output1:resize(tptx,tpty ,tptw,tpth)
end
if o1 >= 100 and o1 < 1000 then
output1:resize(hptx,hpty,hptw,hpth)
end

--BOTTOM
--hundredsplacebox
hpbx,hpby = hundredsplaceB:x(),hundredsplaceB:y()
hpbw,hpbh = hundredsplaceB:w(),hundredsplaceB:h()
--tensplacebox
tpbx,tpby = tensplaceB:x(),tensplaceB:y()
tpbw,tpbh = tensplaceB:w(),tensplaceB:h()
--onesplacebox
opbx,opby = onesplaceB:x(),onesplaceB:y()
opbw,opbh = onesplaceB:w(),onesplaceB:h()
o3w,o3h = output3:w(),output3:h()
--DIVISION
--hundredsplacebox
hpdx,hpdy = hundredsplaceD:x(),hundredsplaceD:y()
hpdw,hpdh = hundredsplaceD:w(),hundredsplaceD:h()
--tensplacebox
tpdx,tpdy = tensplaceD:x(),tensplaceD:y()
tpdw,tpdh = tensplaceD:w(),tensplaceD:h()
--onesplacebox
opdx,opdy = onesplaceD:x(),onesplaceD:y()
opdw,opdh = onesplaceD:w(),onesplaceD:h()

if o2 < 10 then
output2:resize(opbx,opby,hpbw,hpbh)
output3:resize((opbx-o3w),opby,o3w,o3h)
output2b:resize(opdx,opdy,hpbw,hpdh)
end
if o2 >= 10 and o2 < 100 then
output2:resize(tpbx,tpby ,tpbw,tpbh)
output3:resize((tpbx-o3w),opby,o3w,o3h)
output2b:resize(tpdx,tpdy ,tpdw,tpdh)
end
if o2 >= 100 and o2 < 1000 then
output2:resize(hpbx,hpby,hpbw,hpbh)
output3:resize((hpbx-o3w),opby,o3w,o3h)
output2b:resize(hpdx,hpdy,hpbw,hpdh)
end
end

function listScoreForOutput(TableName)
    local Q = '"';
    local ba="{";
    local bb="}";
    local C=",";

local listout = ""
local scoreword={}
local wordlist=""
        for i = 1,#score[TableName],1 do
        scoreword=score[TableName][i]

            qfind = string.find(scoreword,Q)
            if qfind == nil then
            scoreword=Q..scoreword..Q
            end


        listout = listout..scoreword..C
        end

         scoreout="\n".."score["..Q..TableName..Q.."]="..ba..string.sub(listout,1,-2)..bb;

    return scoreout
end
function updateMaxMin()
rndMinTop=mincountertop:value()
rndMinBottom=mincounterbottom:value()
rndMaxTop=maxcountertop:value()
rndMaxBottom=maxcounterbottom:value()
return rndMinTop,rndMinBottom,rndMaxTop,rndMaxBottom
end
function updateProcessOptions()

end
function updateProgressValues()
currentcorrect = score["correct"]
currenttries = score["tries"]

daybar:value(dailypercent)
daybar:label(dailypercent.." today")

dailypercentupvalue=( currentcorrect / currenttries )*100
correctbar:value(dailypercentupvalue)
correctbar:label("Proficiency: "..dailypercentupvalue)

monthlypercent=(currentcorrect)/200
yearlypercent=(currentcorrect)/1720
currentpercent=((currentcorrect)/10)*100

--output4:value(currentcorrect)
--output5:value(currenttries)

yearbar:value((1720-currentcorrect))
yearbar:label(currentcorrect.." of 1720")

sc=score["correct"]
st=score["tries"]
MathWindow:label(sc.." correct of "..st.." tries".." | Proficiency:"..dailypercentupvalue.." | 1720")

end
function openMathRecords()
listFile="mathRecord.lua"
    local sl=io.open(listFile,"r*")
    if sl~=nil then
    dofile(listFile)
    sl:close()
    end
    return score["correct"]
end
function openCurrentMathProgress()
wordlistdepthfile = "CurrentMathProgress.txt"
myFile = io.open(wordlistdepthfile,"r")
if myFile ~= nil then
dofile(wordlistdepthfile)
myFile:close()
end
end
function WriteMathListsToFile()
mathListsFile = "mathRecord.lua"
    local f = io.open(mathListsFile,"w")
    local Q = '"';
    local ba="{";
    local bb="}";
    local C=",";

    if f ~= nil then





        correct=score["correct"]
        tries=score["tries"]


    listwrite="\n"
        listwrite = listwrite.."\n"..listScoreForOutput("addition")
        listwrite = listwrite.."\n"..listScoreForOutput("subtraction")
        listwrite = listwrite.."\n"..listScoreForOutput("multiplication")
        listwrite = listwrite.."\n"..listScoreForOutput("division")




        listwrite = listwrite.."\n".."score["..Q.."correct"..Q.."]="..correct..";\n";
        listwrite = listwrite.."\n".."score["..Q.."tries"..Q.."]="..tries..";\n";

        f:write(listwrite)
        f:write(string.char (10))
        io.close(f)
    end





end
function progressdaily()
progbar:minimum(0)
progbar:maximum(100)
end
function randomize()
o1=math.random(rndMinTop,rndMaxTop)
o2=math.random(rndMinBottom,rndMaxBottom)

o3=math.random(1,rndProcessOption)

o4=0
return o1,o2,o3
end
function answerproblem(o1,o2,o3,answervalue)

mathsigns={"+","-","/","*","^"}

-- addition
if o3 == 1 then answervalue = o1 + o2 end

-- multiplication
if o3 == 4 then answervalue = o1 * o2 end

-- handle subtraction without negative values
if o3 == 2 then
    if o1 < o2 then
        hold1 = o1
        ol = o2
        o2 = hold1
    end
    answervalue = o1 - o2
end

-- handle fractions as divisions
    if o3 == 3 then
    subtotal = o1 * o2
    answervalue = o1
    o1=subtotal
    fractionbar:show()
    divisiongroup:show()
    output3:label("Divide")
    output2b:value(o2)
    output1b:value(o1)
    output2c:value(o2)
    output1c:value(o1)
    else
    divisiongroup:hide()
    output3:label(" ")
    fractionbar:hide()
    end

output1:value(o1)
output2:value(o2)
output3:value(mathsigns[o3])

getLocations(o1,o2,o3)

answeroutput:value(answervalue)
alloutputs = o1..","..o2..","..o3..","..answervalue

return o1,o2,o3,answervalue
end
function checkanswer(w)
local tried=score["tries"]

if AnswerCheck:value() ~= nil then
alloutputs = Q..o1..output3:value()..o2.."="..answeroutput:value()..Q
tried=tried+1
score["tries"]=tried

end

alloutputs = Q..o1..","..o2..","..o3..","..answeroutput:value()..Q

--if the entered value equals correct answer
if w:value() == answeroutput:value() then
dailypercent=dailypercent +1
score["correct"]=score["correct"]+1

    if o3 == 1 then
    alloutputs = Q..o1..","..o2..","..answeroutput:value()..Q
    table.insert(score["addition"], alloutputs)
    end

    if o3 == 2 then
    alloutputs = Q..o1..","..o2..","..answeroutput:value()..Q
    table.insert(score["subtraction"], alloutputs)
    end

    if o3 == 3 then
    alloutputs = Q..o1..","..o2..","..answeroutput:value()..Q
    table.insert(score["multiplication"], alloutputs)
    end

    if o3 == 4 then
    alloutputs = Q..o1..","..o2..","..answeroutput:value()..Q
    table.insert(score["division"], alloutputs)
    end

rndMinTop,rndMinBottom,rndMaxTop,rndMaxBottom=updateMaxMin()
o1,o2,o3,answervalue = answerproblem(randomize(rndMinTop,rndMaxBottom,4))
w:value("")
save()
end

updateProgressValues()

MathWindow:redraw()
MathWindow:make_current()
end
function cycleproblems()

o1,o2,o3,answervalue = answerproblem(randomize(rndMaxTop,rndMaxBottom,rndProcessOption))

MathWindow:redraw()
MathWindow:make_current()
end
function save()
WriteMathListsToFile()
end
if MathWindow ~= nil then MathWindow:hide() end
do MathWindow= fltk:Fl_Double_Window(0,0,0,0,"")
MathWindow:resize(63,50,965,721)
MathWindow:color(0)
--MathWindow:show()
do HiddenGroup= fltk:Fl_Group(0,0,0,0,"")
HiddenGroup:resize(15,5,1410,630)
--unknown attribute: hide
--unknown attribute: deactivate
do output6= fltk:Fl_Output(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "=")
output6:label(gLabelTable[#gLabelTable])
output6:resize(1105,14,150,17)
output6:color(31)
output6:labelsize(12)
output6:labelcolor(7)
output6:align(36)
output6:textcolor(7)
end

do NextButton= fltk:Fl_Button(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "NEXT")
NextButton:label(gLabelTable[#gLabelTable])
NextButton:callback(cycleproblems)
NextButton:resize(1270,15,60,15)
NextButton:labelsize(12)
end

do Save= fltk:Fl_Button(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "Save")
Save:label(gLabelTable[#gLabelTable])
Save:callback(save)
Save:resize(1335,15,60,15)
--unknown attribute: deactivate
end

do output4= fltk:Fl_Output(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "Correct of:")
output4:label(gLabelTable[#gLabelTable])
output4:resize(15,616,25,19)
output4:box(fltk.FL_NO_BOX)
output4:color(31)
output4:labelsize(10)
output4:labelcolor(62)
output4:align(40)
output4:textsize(10)
output4:textcolor(62)
end

do output5= fltk:Fl_Output(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "Tries")
output5:label(gLabelTable[#gLabelTable])
output5:resize(90,616,25,19)
output5:box(fltk.FL_NO_BOX)
output5:color(31)
output5:labelsize(10)
output5:labelcolor(62)
output5:align(40)
output5:textsize(10)
output5:textcolor(62)
end
Fl_Group:current(Fl_Group:current():parent())
end

do NumPositionGroup= fltk:Fl_Group(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "NumPositionGroup")
NumPositionGroup:label(gLabelTable[#gLabelTable])
NumPositionGroup:resize(173,108,459,424)

do onesplaceT= fltk:Fl_Box(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "onesplace")
onesplaceT:label(gLabelTable[#gLabelTable])
onesplaceT:resize(525,116,72,89)
onesplaceT:box(fltk.FL_UP_FRAME)
onesplaceT:color(6)
end

do tensplaceT= fltk:Fl_Box(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "tensplace")
tensplaceT:label(gLabelTable[#gLabelTable])
tensplaceT:resize(465,116,132,89)
tensplaceT:box(fltk.FL_UP_FRAME)
tensplaceT:color(6)
end

do hundredsplaceT= fltk:Fl_Box(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "hundredsplaceT")
hundredsplaceT:label(gLabelTable[#gLabelTable])
hundredsplaceT:resize(407,116,190,89)
hundredsplaceT:box(fltk.FL_THIN_UP_FRAME)
hundredsplaceT:color(6)
end

do onesplaceB= fltk:Fl_Box(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "onesplace")
onesplaceB:label(gLabelTable[#gLabelTable])
onesplaceB:resize(525,211,72,89)
onesplaceB:box(fltk.FL_UP_FRAME)
onesplaceB:color(6)
end

do tensplaceB= fltk:Fl_Box(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "tensplace")
tensplaceB:label(gLabelTable[#gLabelTable])
tensplaceB:resize(465,211,132,89)
tensplaceB:box(fltk.FL_UP_FRAME)
tensplaceB:color(6)
end

do hundredsplaceB= fltk:Fl_Box(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "hundredsplaceT")
hundredsplaceB:label(gLabelTable[#gLabelTable])
hundredsplaceB:resize(407,211,190,89)
hundredsplaceB:box(fltk.FL_THIN_UP_FRAME)
hundredsplaceB:color(6)
end

do hundredsplaceD= fltk:Fl_Box(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "hundredsplaceT")
hundredsplaceD:label(gLabelTable[#gLabelTable])
hundredsplaceD:resize(193,432,160,81)
hundredsplaceD:box(fltk.FL_THIN_UP_FRAME)
hundredsplaceD:color(6)
end

do tensplaceD= fltk:Fl_Box(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "tensplace")
tensplaceD:label(gLabelTable[#gLabelTable])
tensplaceD:resize(243,432,110,81)
tensplaceD:box(fltk.FL_UP_FRAME)
tensplaceD:color(6)
end

do onesplaceD= fltk:Fl_Box(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "onesplace")
onesplaceD:label(gLabelTable[#gLabelTable])
onesplaceD:resize(293,432,60,81)
onesplaceD:box(fltk.FL_UP_FRAME)
onesplaceD:color(6)
end
Fl_Group:current(Fl_Group:current():parent())
end

do MathTab= fltk:Fl_Tabs(0,0,0,0,"")
MathTab:resize(0,4,1515,851)
MathTab:box(fltk.FL_GTK_UP_BOX)
MathTab:color(0)
MathTab:selection_color(34)
do MathGroup= fltk:Fl_Group(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "Math")
MathGroup:label(gLabelTable[#gLabelTable])
MathGroup:resize(1,33,1481,822)
MathGroup:box(fltk.FL_GTK_UP_BOX)
MathGroup:color(33)
MathGroup:labelsize(11)
MathGroup:labelcolor(59)
MathGroup:when(0)
do divisiongroup= fltk:Fl_Group(0,0,0,0,"")
divisiongroup:resize(186,164,554,666)
divisiongroup:labelcolor(1)
do output1b= fltk:Fl_Output(0,0,0,0,"")
output1b:resize(398,433,208,82)
output1b:box(fltk.FL_NO_BOX)
output1b:labelsize(100)
output1b:labelcolor(80)
output1b:textfont(1)
output1b:textsize(90)
output1b:textcolor(60)
end

do output2b= fltk:Fl_Output(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "=")
output2b:label(gLabelTable[#gLabelTable])
output2b:resize(211,433,160,73)
output2b:box(fltk.FL_NO_BOX)
output2b:labelsize(40)
output2b:labelcolor(59)
output2b:textfont(1)
output2b:textsize(90)
output2b:textcolor(60)
end

do equalsbar1= fltk:Fl_Button(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "button")
equalsbar1:label(gLabelTable[#gLabelTable])
equalsbar1:resize(365,426,274,5)
equalsbar1:box(fltk.FL_FLAT_BOX)
equalsbar1:color(1)
equalsbar1:selection_color(0)
equalsbar1:labeltype(fltk.FL_NO_LABEL)
end

do fractionbar= fltk:Fl_Button(0,0,0,0,"")
fractionbar:resize(408,201,216,5)
fractionbar:box(fltk.FL_FLAT_BOX)
fractionbar:color(1)
fractionbar:selection_color(0)
fractionbar:labeltype(fltk.FL_NO_LABEL)
fractionbar:align(4)
end

do output2c= fltk:Fl_Output(0,0,0,0,"")
output2c:resize(186,802,40,28)
output2c:box(fltk.FL_NO_BOX)
output2c:labelsize(16)
output2c:labelcolor(59)
output2c:textfont(1)
output2c:textsize(16)
output2c:textcolor(181)
end

do output1c= fltk:Fl_Output(0,0,0,0,"")
output1c:resize(186,777,40,30)
output1c:box(fltk.FL_NO_BOX)
output1c:labelsize(16)
output1c:labelcolor(59)
output1c:textfont(1)
output1c:textsize(16)
output1c:textcolor(181)
end

do divisionlabel= fltk:Fl_Output(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, ")")
divisionlabel:label(gLabelTable[#gLabelTable])
divisionlabel:resize(398,423,8,82)
divisionlabel:box(fltk.FL_NO_BOX)
divisionlabel:labelsize(100)
divisionlabel:labelcolor(80)
divisionlabel:textfont(1)
divisionlabel:textsize(90)
divisionlabel:textcolor(60)
end
Fl_Group:current(Fl_Group:current():parent())
end

do answeroutput= fltk:Fl_Output(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "Answer:")
answeroutput:label(gLabelTable[#gLabelTable])
answeroutput:resize(1,324,561,24)
end

do output1= fltk:Fl_Output(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "output1:")
output1:label(gLabelTable[#gLabelTable])
output1:resize(421,112,191,88)
output1:box(fltk.FL_NO_BOX)
output1:labelfont(1)
output1:labelsize(10)
output1:labelcolor(59)
output1:align(5)
output1:textfont(1)
output1:textsize(100)
output1:textcolor(60)
end

do output2= fltk:Fl_Output(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "output2:")
output2:label(gLabelTable[#gLabelTable])
output2:resize(421,207,190,88)
output2:box(fltk.FL_NO_BOX)
output2:labelfont(1)
output2:labelsize(10)
output2:labelcolor(59)
output2:align(5)
output2:textfont(1)
output2:textsize(100)
output2:textcolor(60)
end

do output3= fltk:Fl_Output(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "output3:")
output3:label(gLabelTable[#gLabelTable])
output3:resize(340,208,81,92)
output3:box(fltk.FL_NO_BOX)
output3:labelsize(10)
output3:labelcolor(59)
output3:textsize(120)
output3:textcolor(61)
end

do solutionbar= fltk:Fl_Button(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "button")
solutionbar:label(gLabelTable[#gLabelTable])
solutionbar:resize(361,298,255,7)
solutionbar:box(fltk.FL_FLAT_BOX)
solutionbar:color(218)
solutionbar:selection_color(0)
solutionbar:labeltype(fltk.FL_NO_LABEL)
end

do AnswerCheck= fltk:Fl_Input(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "=")
AnswerCheck:label(gLabelTable[#gLabelTable])
AnswerCheck:callback(checkanswer)
AnswerCheck:resize(400,308,215,113)
AnswerCheck:box(fltk.FL_FLAT_BOX)
AnswerCheck:color(35)
AnswerCheck:labelsize(40)
AnswerCheck:labelcolor(59)
AnswerCheck:when(8)
AnswerCheck:textfont(1)
AnswerCheck:textsize(100)
AnswerCheck:textcolor(61)
end

do StatusGroup= fltk:Fl_Group(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "Status")
StatusGroup:label(gLabelTable[#gLabelTable])
StatusGroup:resize(10,604,942,113)
StatusGroup:labelsize(11)
do daybar= fltk:Fl_Progress(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "Daily: 10 Correct")
daybar:label(gLabelTable[#gLabelTable])
daybar:resize(10,667,942,16)
daybar:box(fltk.FL_FLAT_BOX)
daybar:color(32)
daybar:selection_color(34)
daybar:labelsize(10)
daybar:labelcolor(2)
daybar:align(20)
end

do yearbar= fltk:Fl_Progress(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "Year:  1720 Correct")
yearbar:label(gLabelTable[#gLabelTable])
yearbar:resize(10,684,942,16)
yearbar:box(fltk.FL_FLAT_BOX)
yearbar:color(32)
yearbar:selection_color(34)
yearbar:labelsize(10)
yearbar:labelcolor(2)
yearbar:align(20)
end

do correctbar= fltk:Fl_Progress(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "Proficiency")
correctbar:label(gLabelTable[#gLabelTable])
correctbar:resize(10,701,942,16)
correctbar:box(fltk.FL_FLAT_BOX)
correctbar:color(57)
correctbar:selection_color(34)
correctbar:labelsize(10)
correctbar:labelcolor(2)
correctbar:align(20)
end
Fl_Group:current(Fl_Group:current():parent())
end
Fl_Group:current(Fl_Group:current():parent())
end

do optionsgroup= fltk:Fl_Group(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "Options")
optionsgroup:label(gLabelTable[#gLabelTable])
optionsgroup:resize(21,30,1440,805)
optionsgroup:box(fltk.FL_GTK_UP_BOX)
optionsgroup:color(32)
optionsgroup:labelsize(10)

do mincountertop= fltk:Fl_Value_Input(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "Top number minimum:")
mincountertop:label(gLabelTable[#gLabelTable])
mincountertop:callback(updateMaxMin)
mincountertop:resize(486,246,95,24)
mincountertop:labelfont(1)
mincountertop:labelsize(12)
mincountertop:labelcolor(221)
mincountertop:minimum(1)
mincountertop:maximum(99)
mincountertop:step(1)
mincountertop:value(1)
end

do maxcounterbottom= fltk:Fl_Value_Input(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "Bottom number maximum:")
maxcounterbottom:label(gLabelTable[#gLabelTable])
maxcounterbottom:callback(updateMaxMin)
maxcounterbottom:resize(486,333,95,24)
maxcounterbottom:labelfont(1)
maxcounterbottom:labelsize(12)
maxcounterbottom:labelcolor(221)
maxcounterbottom:minimum(1)
maxcounterbottom:maximum(100)
maxcounterbottom:step(1)
maxcounterbottom:value(10)
end

do mincounterbottom= fltk:Fl_Value_Input(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "Bottom number minimum:")
mincounterbottom:label(gLabelTable[#gLabelTable])
mincounterbottom:callback(updateMaxMin)
mincounterbottom:resize(486,376,95,24)
mincounterbottom:labelfont(1)
mincounterbottom:labelsize(12)
mincounterbottom:labelcolor(221)
mincounterbottom:minimum(1)
mincounterbottom:maximum(99)
mincounterbottom:step(1)
mincounterbottom:value(1)
end

do maxcountertop= fltk:Fl_Value_Input(0,0,0,0,"")
if gLabelTable==nil then gLabelTable={} end
table.insert(gLabelTable, "Top number maximum:")
maxcountertop:label(gLabelTable[#gLabelTable])
maxcountertop:callback(updateMaxMin)
maxcountertop:resize(486,286,95,24)
maxcountertop:labelfont(1)
maxcountertop:labelsize(12)
maxcountertop:labelcolor(221)
maxcountertop:minimum(1)
maxcountertop:maximum(100)
maxcountertop:step(1)
maxcountertop:value(10)
end
Fl_Group:current(Fl_Group:current():parent())
end
end
end
MathWindow:show()

MathWindow:label("MATH MACHINE")
MathWindow:show()

dailypercent=0

answeroutput:hide()
maxcounterbottom:value(rndMaxBottom)
maxcountertop:value(rndMaxTop)

daybar:minimum(0)
daybar:maximum(20)
daybar:value(0)
yearbar:minimum(0)
yearbar:maximum(1720)
correctbar:minimum(0)
correctbar:maximum(101)

output1:label(" ")
output2:label(" ")
output3:label(" ")
output4:label(" ")
output5:label(" ")
output6:label(" ")

-- open mathRecord.lua get score["correct"] & score["tries"] data
openMathRecords()
score["correct"]=(#score["addition"])+(#score["subtraction"])+(#score["multiplication"])+(#score["division"])
cycleproblems()

output5:value(score["tries"])
output4:value(score["correct"])

Fl:scheme("plastic")
MathWindow:redraw()
MathWindow:make_current()

Fl:run()

Temperature comparison

Sat, 17 Apr 2010 06:48:05 -0600

Here's a simple tool to compare temperatures in celcius, fahrenheit, and kelvin, and show some temperature levels of note.

It isn't finished, or even entirely accurate. The conversions are rounded to integers, which I might change in the future, and a lot more "notable temps" need to be included. Also going to eliminate some redundancy in the code.

Posting for criticism/suggestions.

Code:
#!/usr/bin/env murgaLua

function chk()
box:label("")
for k,v in pairs(temps) do
if math.floor(sk:value())==k then box:label(v) end
end
end

temps={
[0]="absolute zero",
[159]="freezing point of pure ethanol",
[184]="coldest air temperature recorded on Earth (Vostok, Antarctica, 1983)",
[273]="freezing point of water",
[309]="average human body temperature",
[331]="Highest air temperature recorded on Earth (El Azizia, Libya, 1922)";
[351]="boiling point of ethanol",
[373]="boiling point of water",
[516]="Ignition temperature of sulfur",
[553]="Ignition temperature of gasoline",
[622]="Ignition temperature of charcoal",
[672]="Ignition temperature of isopropyl alcohol",
[673]="Ignition temperature of petroleum",
[693]="Ignition temperature of butane",
[753]="Ignition temperature of propane",
[773]="Ignition temperature of hydrogen",
[973]="Ignition temperature of carbon",
[1670]="The hottest (blue) part of a candle flame";
[5800]="estimated temperature of the sun's surface"
}

ww=600; sh=30
w=fltk:Fl_Double_Window(ww,sh*5,"Temperature Conversion")

sf=fltk:Fl_Hor_Value_Slider(20,10,ww-30,sh,"F")
sf:align(4); --sf:when(fltk.FL_WHEN_RELEASE)
sf:minimum(-459); sf:maximum(212); sf:value(32); sf:step(1)
sf:callback(function()
sc:value((sf:value() - 32) * 5/9)
sk:value(sc:value()+273)
chk()
end)

sc=fltk:Fl_Hor_Value_Slider(20,10+sh,ww-30,sh,"C")
sc:align(4); --sc:when(fltk.FL_WHEN_RELEASE)
sc:minimum(-273); sc:maximum(420); sc:step(1)
sc:callback(function()
sf:value(sc:value() * 9/5 + 32)
sk:value(sc:value() + 273)
chk()
end)

sk=fltk:Fl_Hor_Value_Slider(20,10+sh*2,ww-30,sh,"K")
sk:align(4); --sk:when(fltk.FL_WHEN_RELEASE)
sk:minimum(0); sk:maximum(5800); sk:value(273); sk:step(1)
sk:callback(function()
sf:value((sk:value() - 273) * 9/5 + 32 )
sc:value(sk:value() - 273)
chk()
end)

box=fltk:Fl_Box(20,10+sh*3,ww-30,sh)
box:box(fltk.FL_DOWN_BOX)
sc:do_callback()

w:show()
Fl:run()

Steganography

Fri, 09 Apr 2010 15:26:57 -0600

While watching Along Came a Spider last night on the telly, I noticed the school kids were playing with a "stego" program to embed and encrypt secret messages into image files. I'd done embedded zip files before, but thought this was a more interesting and secure alternative. After a bit of Google I found the commandline cross-platform program Steghide. So now here's a limited GUI for it.

The limitations are:
1) Embedding only (extraction will probably be added later)
2) JPEG container only (personal preference, unlikely to change)
3) No support for most options (will be improved later)
4) No way to change the image after it's loaded (will probably be fixed)

An image file can be supplied on the commandline (or, i assume, drag-and-drop onto the script's desktop icon). Otherwise a file chooser opens automatically.

I'm guessing this version will probably not work in Windows for now. Also obviously needs a lot of tweaks and fail-safe functions.

Code:
#!/usr/bin/env murgaLua

-- GUI for steghide
-- function is limited to embedding data into jpg
-- 2010 mikshaw
-- version 0

if not arg[1] then img=fltk.fl_file_chooser("Choose a JPEG","*.jp{e,}g",nil,0) else img=arg[1] end
imgdata=fltk:Fl_JPEG_Image(img)
imgtest=imgdata:w() -- must be jpg
if imgtest==0 then os.exit() end

function write_file()
if passweird:value()=="" then
  fltk.fl_alert("No password specified!")
  return
end
local tmp=os.tmpname()..".txt"
if text:value()==1 then
  local out=io.open(tmp,"w")
  if out then
    out:write(textfield:value())
    out:close()
    embed=tmp
  end
else embed=filename:value()
end
local rtest=io.open(embed,"r")
if rtest then
  rtest:close()
else
  fltk.fl_alert("can't read file "..embed)
  return
end
if overw:value()==1 then ow=" -f " else ow="" end
os.execute("steghide embed -ef "..embed.." -cf "..img.." -sf "..outpoot:value().." -p "..passweird:value()..ow)
os.remove(tmp)
end

ww=500; wh=400; bh=30
w=fltk:Fl_Double_Window(ww,wh,"Steghide")

tabs=fltk:Fl_Tabs(0,0,ww,wh)

t1=fltk:Fl_Group(0,bh,ww,wh-bh,"image file")
t1:selection_color(46)
imgbox=fltk:Fl_Box(0,bh,ww,wh-bh)
imgbox:align(85)
imgbox:image(imgdata)
fltk:Fl_End() --t1

t2=fltk:Fl_Group(0,bh,ww,wh-bh,"hide data")
t2:selection_color(46)
file=fltk:Fl_Radio_Round_Button(10,bh*2,bh*3,bh,"file")
text=fltk:Fl_Radio_Round_Button(10,bh*3,bh*3,bh,"text")
filename=fltk:Fl_File_Input(10+bh*3,bh*2,ww-20-bh*4,bh)
choose=fltk:Fl_Button(ww-10-bh,bh*2,bh,bh,"@>")
choose:callback(function()
  newfile=fltk.fl_file_chooser("Embed a file","*.*",nil,0)
  if newfile then
    filename:value(newfile)
    file:value(1)
  end
end)
textfield=fltk:Fl_Multiline_Input(15,bh*4,ww-30,wh-bh*5)
fltk:Fl_End() --t2

t3=fltk:Fl_Group(0,bh,ww,wh-bh,"output")
t3:selection_color(46)
outpoot=fltk:Fl_File_Input(10+bh*2,bh*2,ww-20-bh*2,bh,"filename")
passweird=fltk:Fl_Secret_Input(10+bh*2,bh*4,ww-20-bh*2,bh,"password")
save=fltk:Fl_Button(10,bh*6,bh*3,bh,"save")
save:callback(write_file)
overw=fltk:Fl_Round_Button(bh*4,bh*6,bh*4,bh,"overwrite file")
slug=fltk:Fl_Box(ww-10,wh-10,10,10)
fltk:Fl_End() --t3
fltk:Fl_End() --tabs

file:value(1)
outname=string.gsub(img,"(.*)%..*","%1_stego.jpg")
outpoot:value(outname)

w:resizable(tabs)
tabs:resizable(t1)
tabs:resizable(t2)
tabs:resizable(t3)
t2:resizable(textfield)
t3:resizable(slug)
w:show()
Fl:run()

MurgaLua version fully source compatible with 5.1.4?

Fri, 26 Mar 2010 16:41:47 -0600

Built MurgaLua with LuaJIT 1.x a couple years ago. Fast and compatible.
I'm interested in building a version of MurgaLua with LuaJIT 2.0 (as it evolves)
Is there a stable source-available version of MurgaLua available that's fully compatible with 5.1.4?
The LuaJIT 2 beta is very zippy, but MurgaLua .70 is binary-only so far, and afaik the most recent MurgaLua source distribution precedes 5.1.4. Is MurgaLua source available that might be compatible?

Thanks much,

--Foozle

SQLite in Lua, Lua in SQLite

Fri, 26 Mar 2010 10:52:16 -0600

Hi!

When I read about PL/Lua (http://pllua.projects.postgresql.org/), a loadable version of lua in PostGreSQL, I started looking for something similar for sqlite. So I came across this link (http://www.sqlite.org/cvstrac/wiki?p=ProceduralLanguage) indicating someone already made it.

Maybe it would be an interesting patch to include in some future release?

BTW, how's the current release going?

Greets,

JP

real time activity

Mon, 18 Jan 2010 09:26:31 -0700

Got a question...
I'm trying to gather the output of a system command and display it in a browser object, however, if the command takes a while the window will not appear (with the browser object in it) until the command is complete.. even-though the command is producing output. Actually the output window will start to appear, depending on the command, but won't fully paint. For example doing a ping or traceroute and showing the output as it is produced. Is there a better/recommended way to do this:

function execute_cmd()
local fh = io.popen( cmd );
if ( fh ) then
output_window:show();
while true do
local data = fh:read( "*l" );
if data == nil then break end
br_output:add( data );
output_window:redraw();
br_output:redraw();
end
fh:close();
end
end

Thanks,
-Craig

http server responses

Sun, 10 Jan 2010 11:46:53 -0700

I was just curious to discover what kind of data can be retrieved from a web server, and what uses that data has. First test, a table containing the error codes listed at W3C. I might dip into finding uses for the headers next, although a brief search shows that there are a lot of them.

Code:
#!/usr/bin/env murgaLua

server="http://localhost/"

errors={
[400]="Bad Request",
[401]="Unauthorized",
[403]="Forbidden",
[404]="Not Found",
[405]="Method Not Allowed",
[406]="Not Acceptable",
[407]="Proxy Authentication Required",
[408]="Request Timeout",
[409]="Conflict",
[410]="Gone",
[411]="Length Required",
[412]="Precondition Failed",
[413]="Request Entity Too Large",
[414]="Request-URI Too Long",
[415]="Unsupported Media Type",
[416]="Requested Range Not Satisfiable",
[417]="Expectation Failed",
[500]="Internal Server Error",
[501]="Not Implemented",
[502]="Bad Gateway",
[503]="Service Unavailable",
[504]="Gateway Timeout",
[505]="HTTP Version Not Supported"
}

-- change this to whatever url you want to test
body,code,header=socket.http.request(server.."nonexistent.html")

print"__________________________________"
print("Code returned by server:\n"..code)
if errors[code] then print("Error: "..errors[code]) end
print"__________________________________"
print("Headers:")
for k,v in pairs(header) do print(k,v) end
print"__________________________________"
print("Document text:\n"..body)

access to media files on a LAN server

Sat, 09 Jan 2010 19:33:11 -0700

I recently spent a decent amount of time researching ways to stream media over a LAN server, and after wading through many sites talking mostly about Flash and other heavy options I eventually learned that some of the media players we all have installed already support streaming directly from a regular http/ftp link. For a few days I was playing around with mplayer and VLC, and it always came down to having to either copy and paste URLs or use a playlist that automatically starts playing.

So i decided to make a script that would bypass the need for a browser just to get a link and just run your chosen media player when you found what you wanted.

Note that this might not be suitable in any situation other than what I use it for, which is a local network, and it hasn't been tested for problems that might arise as a result of the server or any of the desired files being unavailable. Also note that it was written specifically to access one file at a time (i.e. a movie), not a playlist, and it DOES NOT SUPPORT SUBDIRECTORIES beyond what is listed in url[#] at this time. Subdirectories might actually break it, though so far they just seem to create a blank browser.

Requires a file host.."/lua_menu" which contains commands that add data to two tables, label and url. The format is:
label[1]="this is a label for dir 1"; url[1]="/this/is/the/dir/where/label1/files/live"
The URL must be a directory containing regular media files only (at this point), and if the host variable doesn't end with a slash, url must begin with a slash (url begins where host leaves off).

As always, bug reports and suggestions are welcome. I know I do sloppy work with tables, so if something better is suggested (while not making lua_menu more complicated to edit) I'd like that.

On a side note, it appears that Windows opens a cmd window when os.execute() is run. Is this because I used Progra~1 instead of trying harder to use the real path, or does that always happen with os.execute()?

Yet another note: the "srt" exception was added because I have some movies with srt subtitles...they work when I play the movies locally, but they serve no purpose when accessed through the network....one of these days I'm going to find out about serving subtitle files.

Code:
-- USER CONFIGURATION

--player="C:\\Progra~1\\SMPlayer\\smplayer.exe" -- Windows
player="mplayer" -- Linux
host="http://myhost/videos"

-- END USER CONFIGURATION

label={}; url={}
-- retrieve the menu from server
menufile,c,h=socket.http.request(host.."/lua_menu")
assert(loadstring(menufile))()

function get_menu()
box:clear()
for i,v in pairs(label) do
  box:add(v)
end
menu_up=1
end

function get_files()
box:clear()
body,code,header=socket.http.request(dir)
for l in string.gmatch(body,"   if not string.find(l,"\.srt$") and not string.find(l,"\/") then
  box:add(l)
  end
end
menu_up=0
end

function play()
if box:value() > 0 and menu_up==0 then
  win:hide()
  Fl:check()
  os.execute(player.." "..dir.."/"..box:text(box:value()))
--  os.exit()
  win:show()
end
end

function menu_choice()
if box:value() > 0  and menu_up==1 then
dir=host..url[box:value()]
get_files()
end
end

ww,wh,bh=420,400,25
bw=ww/3
win=fltk:Fl_Window(ww,wh,"Movies")
box=fltk:Fl_Hold_Browser(0,0,ww,wh-bh); box:callback(menu_choice)
go=fltk:Fl_Button(0,wh-bh,bw,bh,"play"); go:callback(play)
fresh=fltk:Fl_Button(bw,wh-bh,bw,bh,"menu"); fresh:callback(get_menu)
no=fltk:Fl_Button(bw*2,wh-bh,bw,bh,"quit"); no:callback(function() os.exit() end)

--table.sort(menu)
get_menu()

--win:resizable(box)
win:show()
Fl:run()

feedback please

Sun, 28 Jun 2009 18:51:09 -0600

I'm trying to work out something useful from Fl_Positioner, and so far have something that will reposition a secondary window on the desktop according to the location of the positioner's axis in the primary window. Unfortunately when the secondary window reaches the right or bottom side of the screen it jumps back halfway across the screen. At this time I don't know if it's because of a bug in FLTK or a limitation of my tiling window manager. I appreciate any feedback from people using more traditional desktop environments.

Code:
ww=Fl:w()/4
wh=Fl:h()/4

w=fltk:Fl_Double_Window(ww,wh+50,"positioner.lua")
w:callback(function() os.exit() end) -- forces both windows to close

posy=fltk:Fl_Positioner(0,0,ww,wh,"fltk:Fl_Positioner")

posy_xvalue=fltk:Fl_Output(0,wh+25,ww/2,25)
posy_yvalue=fltk:Fl_Output(ww/2,wh+25,ww/2,25)

posy:xstep(1)
posy:ystep(1)
posy:xbounds(0,Fl:w()) -- uses screen sizes for maximum values
posy:ybounds(0,Fl:h())

posy:callback(
function()
  posy_xvalue:value(" X: "..posy:xvalue())
  posy_yvalue:value(" Y: "..posy:yvalue())
  w2:position(posy:xvalue(),posy:yvalue()) -- set w2 position on desktop
end
)
fltk:Fl_End()
w2=fltk:Fl_Window(0,0,8,8)
w2:color(1)
w2:border(0)
w2:box(fltk.FL_UP_BOX)
fltk:Fl_End()
w:show()
w2:show()
Fl:run()

JNLua (Java Native Lua)

Wed, 24 Jun 2009 20:17:32 -0600

Any chance of including this in murgalua?

I'm not a big fan of java, but you have to admit it's an industry standard and there are cross-platform compiled libraries available for just about anything you might want to do and they are often documented with examples!

The average lua programmer would have a major bitch of a time finding, compiling and deciphering things like the google or yahoo APIs for C. But with JNLua integrated into murgalua, it would be almost simple. All you need is the JRE installed and the proper JARS in your classpath.

Alien is complicated

Mon, 22 Jun 2009 17:29:52 -0600

I'm still trying to get my head around Alien...looks like something that could open some pretty huge doors. I got a funny error message at one point when fooling around:

Code:
gtkMsgBox.lua:11: bad argument #1 to 'tostring' (userdata expected, got userdata)

One of my systems has Gtk2 installed in /opt, so the alien.load function in the gtk test doesn't work since it uses a full path to the file. Removing "/usr/lib" (using just the name of the library) fixed it.

I've been trying to find out if alien can supply a list of functions available in a given library, but haven't had much luck so far. When making changes to the gtk test I eventually got something, but it doesn't look like gtk functions. I'm just poking at it for now.

Code:
local gtk,p,i=alien.load("libgtk-x11-2.0.so.0"),"pointer","int"
gtk_tab=getmetatable(gtk)
for i,v in pairs(gtk_tab) do
gtk_tab2=getmetatable(i) end
for i,v in pairs(gtk_tab2.__index) do print(i,v,type(v)) end

The result:

Code:
sub     function: 0x8262ef8     function
upper   function: 0x8262f28     function
len     function: 0x8262df0     function
gfind   function: 0x8262d80     function
rep     function: 0x8262e90     function
find    function: 0x8262cd8     function
match   function: 0x8262e58     function
char    function: 0x8260878     function
dump    function: 0x8262ca0     function
gmatch  function: 0x8262d80     function
reverse function: 0x8262ec0     function
byte    function: 0x8260840     function
format  function: 0x8262d10     function
gsub    function: 0x8262db8     function
lower   function: 0x8262e20     function

That looks like functions in string rather than gtk