ChanServ changed the topic of #picolisp to: PicoLisp language | Channel Log: https://irclog.whitequark.org/picolisp/ | Picolisp latest found at http://www.software-lab.de/down.html | check also http://www.picolisp.com for more information
orivej has quit [Ping timeout: 240 seconds]
inara has quit [Quit: Leaving]
inara has joined #picolisp
jibanes has quit [Ping timeout: 268 seconds]
jibanes has joined #picolisp
f8l has quit [Ping timeout: 240 seconds]
alexshendi has joined #picolisp
f8l has joined #picolisp
jibanes has quit [Ping timeout: 248 seconds]
jibanes has joined #picolisp
karswell_ has quit [Read error: Connection reset by peer]
alexshendi has quit [Ping timeout: 246 seconds]
aw- has joined #picolisp
jibanes has quit [Ping timeout: 240 seconds]
jibanes has joined #picolisp
orivej has joined #picolisp
orivej has quit [Ping timeout: 268 seconds]
rob_w has joined #picolisp
<aw-> hi all
<Regenaxer> hi aw-
<aw-> do we have a base32 lib for picolisp?
Regenaxer has quit [Ping timeout: 240 seconds]
<aw-> tankfeeder: great, thanks!
<aw-> oh good, I can change the character set too
Regenaxer has joined #picolisp
<m_mans> Hi all!
<tankfeeder> o/
<Regenaxer> Hi m_mans, tankfeeder
<m_mans> Regenaxer: do you usually write much additional info into your production logs?
<Regenaxer> Not so very much. Usually only what is generated by @lib/adm.l and @lib/app.l
<Regenaxer> So errors go there too
<m_mans> what about logging user's actions? Never needed to do so?
<Regenaxer> not usually. It is also a privacy issue
<m_mans> I just wonder if your customers ask so on not
<m_mans> *or not
<Regenaxer> They don't care, they do not get the logs usually, and they would not know what to do with them
<m_mans> so just timestamps in the database?
<Regenaxer> yes, and connecting IP addresses. I keep them for 3 months
<Regenaxer> ie. (msg *Pid " + " (stamp) " [" *Adr " " (host *Adr) (and *Cipher
<Regenaxer> at the end of @lib/app.l
<m_mans> ok, thanks
<Regenaxer> I log the PIDs and who logged in on which pid
<Regenaxer> So I can ask this user what he did when he produced an error
<Regenaxer> (usually they don't know ... "I did not do anything special" ;)
<m_mans> :)
<m_mans> have you ever need to have objects with 'copy on write' feature? I mean when new data never overwrite previous data
<m_mans> s/need/needed/
<Regenaxer> yes, some entities are like that
<Regenaxer> write protected after creation, eg. invoices
<m_mans> really? Could you tell a little more?
<Regenaxer> They also generate a blob document which cannot be deleted
<m_mans> My chief asks about such feature in general
<Regenaxer> The form is simply locked
<m_mans> ah, nothing very special, but locking and protecting from changing/deleting, right?
<Regenaxer> yes
<Regenaxer> (panel '(may> (: home obj)) ...
<Regenaxer> (dm may> ()
<Regenaxer> (nor (: T) (gt0 (: nr))) )
<Regenaxer> Usually I have negative numbers for "open" things
<Regenaxer> a positive number is generated when closing it
<m_mans> I meant also different issue, e.g. +CuSu can change some field (address etc), but existing documents must refer to old version of such info
<Regenaxer> yes, in such cases I copy objects (or trees of objects) and clone> new ones
<m_mans> hm, nice trick with negative numbers
<Regenaxer> yes, convenient
<Regenaxer> (dm T @
<Regenaxer> (pass super
<Regenaxer> 'nr (- (id This))
<Regenaxer> 'dat (date) ) )
<Regenaxer> I use the object ID, which is unique
<Regenaxer> then 'genKey' when closing it
<Regenaxer> (put> This 'nr (genKey 'nr (last (val This))))
<m_mans> not much info about 'id' in the docs! :)
<Regenaxer> There is not much, it is just the block number
<Regenaxer> right, the ref should tell about this
<m_mans> let's continue with +CuSu example. If you clone> it, how do you mark old one, that it's now obsolete and maybe should be removed from the index
<m_mans> ?
<m_mans> But I suppose it should be accessible as 'previous version' of current object
<Regenaxer> after cloning, send lose> to the old one
<Regenaxer> Sometimes, but usually not. It can still be found from other data
<m_mans> ok, thanks again!
<Regenaxer> I don't do that with customers
<Regenaxer> Then better separate eg. the address, and change that to a new object
<Regenaxer> I think it is confusing if the customer itself changes that way
<Regenaxer> But of course depends on the application
orivej has joined #picolisp
<m_mans> hm, we have IRC-logs available online: https://irclog.whitequark.org/picolisp/2018-01-24 . I've found that accidentally just now
<m_mans>
<beneroth> hi
<beneroth> m_mans, its in the channel topic
<m_mans> beneroth: haha, T. Thanks :)
<m_mans> I was searching info about svg generating
<beneroth> I have a log from a talk about this with regenaxer from august 17
<beneroth> but I think IRC log was not active then
<beneroth> m_mans, I guess you found @lib/svg.l ?
<beneroth> what do you wanna do/know?
<m_mans> ok, we have already working svg.l generating PDFs. Now we need to add some image to the last page after last text item, so it should have dynamic vertical position.
<m_mans> But personally I've never used svg.l before
<m_mans> It seems *Pos is what I need
orivej has quit [Ping timeout: 240 seconds]
<beneroth> I use (down 'number) alot
<beneroth> image is like (image "filepath" "mime-type" pos-x pos-y width [height])
<beneroth> e.g. (image "img/logo.png" "image/png" 422 10 120)
<beneroth> [height] defaults to width
orivej has joined #picolisp
<aw-> anyone here using IPv6 for local networking?
<C-Keen> yes?
<cess11> what could be the cause of "gui -- Undefined" when form.l is loaded?
<aw-> just curious
<beneroth> cess11, did you do (load "@lib/form.l") ?
<beneroth> ah
<beneroth> cess11, you probably have an mistake in your code usage
<beneroth> gui is only locally defined within (form)
<beneroth> you probably are using (gui) somewhere outside of a (form) expression?
zod_ has joined #picolisp
libertas has quit [Ping timeout: 260 seconds]
aw- has quit [Quit: Leaving.]
<Regenaxer> ret
<Regenaxer> cess11, "gui -- Undefined" appears if you call (gui ..) outside (form ..)
<Regenaxer> The 'gui' function is defined with (let gui ...) in the form
<cess11> ah, right
<cess11> thanks
Regenaxer has quit [Ping timeout: 276 seconds]
<beneroth> as I wrote already...
<beneroth> cess11 ?
Regenaxer has joined #picolisp
orivej has quit [Ping timeout: 248 seconds]
zod_ has quit [Quit: My MacBook has gone to sleep. ZZZzzz…]
zod_ has joined #picolisp
zod_ has quit [Quit: My MacBook has gone to sleep. ZZZzzz…]
zod_ has joined #picolisp
rob_w has quit [Quit: Leaving]
orivej has joined #picolisp
zod_ has quit [Ping timeout: 260 seconds]
orivej has quit [Ping timeout: 248 seconds]
orivej has joined #picolisp
rob_w has joined #picolisp
orivej has quit [Ping timeout: 264 seconds]
miskatonic has joined #picolisp
miskatonic has quit [Quit: ERC (IRC client for Emacs 24.5.1)]
alexshendi has joined #picolisp
alexshendi has quit [Quit: Yaaic - Yet another Android IRC client - http://www.yaaic.org]
alexshendi has joined #picolisp
orivej has joined #picolisp
alexshendi has quit [Read error: Connection reset by peer]
orivej has quit [Ping timeout: 252 seconds]
rob_w has quit [Read error: Connection reset by peer]
karswell_ has joined #picolisp
yumaikas is now known as yumaikas|away
orivej has joined #picolisp
libertas has joined #picolisp
yumaikas|away is now known as yumaikas