[INCLUDE TH/speedbar.blogme] [ SETFAVICON IMAGES/forthsun.png] [# (defun c () (interactive) (let ((output (find-sh0 "cd ~/TH/L/; cp ~/TH/iup.blogme ~/TH/L/TH/iup.blogme; lua51 ~/blogme3/blogme3.lua \ -o iup.html -i TH/iup.blogme"))) (if (equal output "") (message "ok") (find-estring output)))) ;; (find-blogmefile "README") ;; (find-blogmefile "INTERNALS") ;; (find-blogmefile "") ;; file:///home/edrx/TH/L/iup.html ;; http://angg.twu.net/iup.html #] [lua: L = R; LR = R ] [lua: load_TARGETS() ] [lua: io.stdout:setvbuf("no") ] [lua: def [[ br 1 _ "


" ]] ] [lua: -- (find-eleimfile "quail/sgml-input.el" "‘") def [[ ` 1 body "‘$body’" ]] def [[ `` 1 body "“$body”" ]] def [[ STANDOUT 1 body BGFG("red", "yellow", body) ]] loada2html() def [[ HTMLIZELINES 1 body htmlizelines(body) ]] def [[ E' 1Q body htmlizelines(body) ]] code_c_d_remote("luacmdhtml", "http://www.tecgraf.puc-rio.br/luacmd/") ] [lua: loadlpeg() twordtable = {} -- translateword = function (str) return string.rep("@", strlen(str)) end translateword = function (word) if twordtable[word] then return HREF(twordtable[word], word) else return word end end Pos = lpeg.Cp() AnyChar = lpeg.P(1) WordChar = lpeg.R("AZ", "az", "09") + lpeg.S("/") Word = WordChar^1 OtherWord = lpeg.S(" .") * lpeg.S("-")^-1 * Word Words = Word * OtherWord^0 WordsT = Words / translateword SbeChars = Pos * AnyChar^0 * Pos SbeCharsThen = function (patT) return Pos * lpeg.P { Pos * patT + AnyChar * lpeg.V(1) } end SbeWordsT = SbeCharsThen(WordsT)^0 * SbeChars sbematch = function (SbePat, str, f) return sbeconcat(str, f)(SbePat:Ct():match(str)) end lpeg.sbematch = sbematch def [[ TRANS 1 str SbeWordsT:sbematch(str, Q) ]] ] [# #] [lua: code_c_d_angg("TH", "") -- _ESUFFIX["find-TH"] = ".html" -- (find-blogme3file "angglisp.lua") -- Fix for a fossil "feature" of find-es. -- (find-blogme3file "rumilisp.lua") -- PP(_E) -- PP(_EBASE) ] [_TARGETS DaVinci -> (find-TH "davinci") longway -> (find-TH "davinci" "long-way") iup.e -> (find-es "iup") bait -> (find-es "scintilla" "bait") Tk -> (find-TH "tcl") Emacs -> (find-TH "emacs") mailinglists -> (find-es "davinci" "mailing-lists") e-scripts -> (find-TH "eev-article") iuppage => http://www.tecgraf.puc-rio.br/iup/ cdpage => http://www.tecgraf.puc-rio.br/cd/ impage => http://www.tecgraf.puc-rio.br/im/ tecmakepage => http://www.tecgraf.puc-rio.br/tecmake/ iuplist => http://lists.luaforge.net/pipermail/iup-users/ cdlist => http://lists.luaforge.net/pipermail/cdlib-users/ imlist => http://lists.luaforge.net/pipermail/imtoolkit-users/ ] [lua: def [[ _ 1 body "$body" ]] def [[ __ 2 str,text _target[str] and HREF(_target[str], nilify(text) or str) or BG("red", str) ]] def [[ _ 1 body __(gsub(body, " ", "."), body) ]] load_TARGETS() -- (find-blogme3file "angglisp.lua" "luamanual") -- (find-blogme3file "elisp.lua" "code_c_d_remote =") code_c_d_remote("eevarticlesection", eevarticle) set_E4("find-eevarticlesection", _E_remoteanchor, eevarticle.."#shorter-hyperlinks", eevarticle.."#", "") ] [htmlize [J IUP (and CD, and IM, etc)] [P I am learning IUP for the [_ DaVinci] project.] [P [__ iup.e Some] of my [_ e-scripts] about IUP & friends.] [P Official pages: [__ iuppage IUP], [__ cdpage CD], [__ impage IM], [__ tecmakepage TecMake].] [P Mailing list archives: [__ iuplist IUP], [__ cdlist CD], [__ imlist IM].] [P As I have very little experience with GUIs (I know [_ Tk] well enough, but I am mostly an [_ Emacs] person), I'm progressing slowly...] [WITHINDEX [# «.iupscintilla» (to "iupscintilla") «.compiling-iup» (to "compiling-iup") #] [RULE ----------------------------------------] [sec «iupscintilla» (to ".iupscintilla") H2 IupScintilla] [P I am trying to implement a "IupScintilla" on top of IUP3:] [PREBOXBLOGME [TRANS [' ._____________...... | | : | Scintilla |<:::::::::::::::::::::::::::::::::. | | : :: |_____________| : :: : : :: : : :: : : ___________::___ : _______________: | | : | | | (IupScintilla) | : | Lua 5.1 | |________________| : | | /\ : | | _________________ _____::___ : | | | | | : | ::::>| libiuplua5.1.so :::> IUP3 | : | | |_________________| CD | : | | | IM | :..|_______________| |________________| ]]] [P My original plan (see [__ longway here]) was to start by making IUP react in a certain way to SIGUSR2s sent from the outside - because that would allow me (us?) to make many small tests very quickly.] [P However, having a "Scintilla widget" (the right term is "control", but I will explain the details later) in IUP3 would solve many of its most urgent "holes" - so the plans were changed, and IupScintilla became a priority...] [_TARGETS eepitch-gdb -> (find-eevarticlesection "eepitch-gud") ] [HLIST2 [J What I'm doing now] [J trying to implement new (trivial) controls on IUP 2.6;] [J IUP & friends are very hard to compile (I may have one part of my brain missing, though... - from some [R http://lists.luaforge.net/pipermail/iup-users/2007-October/ recent messages] in the mailing list I got the impression that some people didn't find that so hard) - so I'm trying to finish my scripts to compile as most as possible from IUP/CD/IM cleanly, including the examples, and produce GDB-friendly libraries;] [J learning more about Scintilla, from [_ bait].] [J My first tests will be done from GDB, but the machinery for that is already working (the [__ eepitch-gdb docs] are messy, though).] ] [_TARGETS (find-es "iup") OpenMotif -> (find-es "iup" "openmotif") LessTif => http://packages.debian.org/lesstif2-dev motifmsg => http://lists.luaforge.net/pipermail/iup-users/2007-October/000095.html tec_uname.bsh => http://www.tecgraf.puc-rio.br/tecmake/en/main.html tec_uname.zsh -> (find-es "iup" "tec_uname.zsh") tec_uname.outvars -> (find-es "iup" "tec_uname.outvars") tec_uname.outvars -> (find-angg "DAVINCI/tec_uname.outvars") iupluas -> (find-es "iup" "iupluas") traypatch -> (find-es "iup" "GtkStatusIcon-disable") cd-compiling -> (find-es "iup" "cd-source") iup-binaries -> (find-es "iup" "iup-binaries") libiuplua51.so -> (find-es "iup" "libiuplua51.so") ] [RULE ----------------------------------------] [sec «compiling-iup» (to ".compiling-iup") H2 Notes on compiling IUP] [HLIST3 [J TecMake] [J From [_ tec_uname.bsh]] [J I produce a [_ tec_uname.zsh],] [J and from it [_ tec_uname.outvars], just with "export"s; I source that -] ] [HLIST3 [J Motif] [J IUP need [_ OpenMotif]; [_ LessTif] doesn't work (but see [__ motifmsg this])] ] [PREBOXBLOGME [E' # (find-es "iup" "iupluas") # (find-es "iup" "im-source") # (find-es "iup" "cd-source") # (find-es "iup" "iup-source") ]] [HLIST3 [J Lua] [J A full build of IUP/[__ cd-compiling CD]/IM needs lua-3.2, lua-4.0, lua-5.0, lua-5.1.] [J This [__ iupluas script] (incomplete!) produces the ".a"s and ".o"s for all these versions of Lua in the right directories.] [HLIST3 [J Loading the IUP libraries from a running Lua:] [J [__ iup-binaries Downloading the binaries] for IUP/CD/IM] [J [__ libiuplua51.so Loading these ".so"s from Lua]] ] ] [# For IUP3 (not publically available yet): A hack to omit the tray functions, for Debian Etch (older Gtk) ] ] ] [# # Local Variables: # coding: raw-text-unix # modes: (fundamental-mode blogme-mode) # End: #]