· 5 years ago · Oct 24, 2020, 11:34 PM
1stolen/17093-25.10.2020.0049/send.lua 0000777 0000000 0000000 00000000155 13745134001 013015 0 ustar m = peripheral.find("modem")
2f = fs.open("lol.lua","rb")
3m.open(898)
4m.transmit(898, 1, f.readAll)
5f.close()
6 stolen/17093-25.10.2020.0049/lol.lua 0000777 0000000 0000000 00000000012 13745134001 012642 0 ustar ok boomer
7 stolen/16497-25.10.2020.0042/startup.lua 0000777 0000000 0000000 00000007460 13745134001 013574 0 ustar term.clear()
8term.setCursorPos(1, 1)
9if fs.exists("/disk/startup") or fs.exists("/disk/startup.lua") then
10 write("Press any key to boot from disk")
11
12 parallel.waitForAny(function()
13 os.pullEvent("char")
14 if fs.exists("/disk/startup") then
15 shell.run('/disk/startup')
16 elseif fs.exists("/disk/startup.lua") then
17 shell.run('/disk/startup')
18 else
19 print("\nFailed to boot to disk. Is the disk still inserted?")
20 sleep(1)
21 end
22 end, function()
23 for i = 1, 3 do
24 write(".")
25 sleep(1)
26 end
27 end)
28end
29
30local w, h = term.getSize()
31local fail = false
32
33local function errorScreen(error, code)
34 fail = true
35 term.setBackgroundColor(colors.red)
36 term.clear()
37 term.setTextColor(colors.white)
38 term.setCursorPos(2, 2)
39 term.write("Oh no! A big red error!")
40 term.setCursorPos(2, h - 4)
41 print("Error Code: " .. code)
42 term.setCursorPos(2, h - 2)
43 print("[1] Reboot")
44 term.setCursorPos(2, h - 1)
45 print("[2] Boot to shell")
46
47 local w, h = term.getSize()
48 local errorContentWindow = window.create(term.native(), 2, 4, w - 2, h - 8)
49 errorContentWindow.setBackgroundColor(colors.red)
50 errorContentWindow.setTextColor(colors.white)
51 errorContentWindow.clear()
52 term.redirect(errorContentWindow)
53 print(error)
54 term.redirect(term.native())
55 while true do
56 local e = {os.pullEventRaw()}
57 if e[1] == "key" then
58 if e[2] == keys.one then
59 os.reboot()
60 elseif e[2] == keys.two then
61 term.setBackgroundColor(colors.black)
62 term.setCursorPos(1, 1)
63 term.clear()
64 sleep()
65 shell.run("/rom/programs/shell.lua")
66 end
67 end
68 end
69end
70
71local function loadtable(path)
72 local file = fs.open(path, "r")
73 local content = textutils.unserialize(file.readAll())
74 file.close()
75 return content
76end
77
78function yield()
79 os.queueEvent("randomEvent")
80 os.pullEvent("randomEvent")
81end
82
83if not term.isColor() then
84 printError("Please use a color terminal")
85 return false
86end
87
88local function init()
89 local missingFiles = {}
90
91 if fs.exists("/boot/files.cfg") then
92 local files = loadtable("/boot/files.cfg")
93 for i, v in pairs(files) do
94 if not fs.exists(v) then
95 table.insert(missingFiles, v)
96 end
97 end
98 else
99 errorScreen("The system could find the file list.\n\nzwm may not be installed correctly.", "BOOT-FNE-FL")
100 end
101
102 if #missingFiles > 0 then
103 errorScreen(string.format("Missing files: %s\n\nzwm may not be installed correctly", table.concat(missingFiles, ", ")), "BOOT-MIS-MUL")
104 end
105 sleep(math.random(50, 300) * 0.01)
106end
107
108local function animate()
109 local frames = {
110 {i = false, c = "\129"},
111 {i = false, c = "\130"},
112 {i = false, c = "\136"},
113 {i = true, c = "\159"},
114 {i = false, c = "\144"},
115 {i = false, c = "\132"},
116 }
117
118 local function drawFrame(frame)
119 term.setBackgroundColor(colors.gray)
120 term.setTextColor(colors.white)
121 if frame.i then
122 term.setBackgroundColor(colors.white)
123 term.setTextColor(colors.gray)
124 end
125 write(frame.c)
126 end
127
128 term.setCursorPos(w / 2 - string.len("Starting zwm") / 2 + 1, h / 2 + 2)
129 term.write("Starting zwm")
130
131 while true do
132 for i, frame in pairs(frames) do
133 if fail then while true do sleep(1) end end
134 term.setCursorPos(w/2, h/2)
135 drawFrame(frame)
136 sleep(0.25)
137 end
138 end
139end
140
141parallel.waitForAny(init, animate)
142local syspath = loadtable("/boot/sys.path")
143term.setBackgroundColor(colors.black)
144sleep(0.2)
145term.clear()
146sleep(0.5)
147shell.run(
148 syspath[1]
149) stolen/16497-25.10.2020.0042/lib/json.lua 0000777 0000000 0000000 00000012011 13745134001 013575 0 ustar -- JSON api by ElvishJerricco on CC fourms
150-- Modified to work with require
151
152local public = {}
153
154------------------------------------------------------------------ utils
155local controls = {["\n"]="\\n", ["\r"]="\\r", ["\t"]="\\t", ["\b"]="\\b", ["\f"]="\\f", ["\""]="\\\"", ["\\"]="\\\\"}
156
157local function isArray(t)
158 local max = 0
159 for k,v in pairs(t) do
160 if type(k) ~= "number" then
161 return false
162 elseif k > max then
163 max = k
164 end
165 end
166 return max == #t
167end
168
169local whites = {['\n']=true; ['\r']=true; ['\t']=true; [' ']=true; [',']=true; [':']=true}
170function public.removeWhite(str)
171 while whites[str:sub(1, 1)] do
172 str = str:sub(2)
173 end
174 return str
175end
176
177------------------------------------------------------------------ encoding
178
179local function encodeCommon(val, pretty, tabLevel, tTracking)
180 local str = ""
181
182 -- Tabbing util
183 local function tab(s)
184 str = str .. ("\t"):rep(tabLevel) .. s
185 end
186
187 local function arrEncoding(val, bracket, closeBracket, iterator, loopFunc)
188 str = str .. bracket
189 if pretty then
190 str = str .. "\n"
191 tabLevel = tabLevel + 1
192 end
193 for k,v in iterator(val) do
194 tab("")
195 loopFunc(k,v)
196 str = str .. ","
197 if pretty then str = str .. "\n" end
198 end
199 if pretty then
200 tabLevel = tabLevel - 1
201 end
202 if str:sub(-2) == ",\n" then
203 str = str:sub(1, -3) .. "\n"
204 elseif str:sub(-1) == "," then
205 str = str:sub(1, -2)
206 end
207 tab(closeBracket)
208 end
209
210 -- Table encoding
211 if type(val) == "table" then
212 assert(not tTracking[val], "Cannot encode a table holding itself recursively")
213 tTracking[val] = true
214 if isArray(val) then
215 arrEncoding(val, "[", "]", ipairs, function(k,v)
216 str = str .. encodeCommon(v, pretty, tabLevel, tTracking)
217 end)
218 else
219 arrEncoding(val, "{", "}", pairs, function(k,v)
220 assert(type(k) == "string", "JSON object keys must be strings", 2)
221 str = str .. encodeCommon(k, pretty, tabLevel, tTracking)
222 str = str .. (pretty and ": " or ":") .. encodeCommon(v, pretty, tabLevel, tTracking)
223 end)
224 end
225 -- String encoding
226 elseif type(val) == "string" then
227 str = '"' .. val:gsub("[%c\"\\]", controls) .. '"'
228 -- Number encoding
229 elseif type(val) == "number" or type(val) == "boolean" then
230 str = tostring(val)
231 else
232 error("JSON only supports arrays, objects, numbers, booleans, and strings", 2)
233 end
234 return str
235end
236
237function public.encode(val)
238 return encodeCommon(val, false, 0, {})
239end
240
241function public.encodePretty(val)
242 return encodeCommon(val, true, 0, {})
243end
244
245------------------------------------------------------------------ decoding
246
247local decodeControls = {}
248for k,v in pairs(controls) do
249 decodeControls[v] = k
250end
251
252function public.parseBoolean(str)
253 if str:sub(1, 4) == "true" then
254 return true, public.removeWhite(str:sub(5))
255 else
256 return false, public.removeWhite(str:sub(6))
257 end
258end
259
260function public.parseNull(str)
261 return nil, public.removeWhite(str:sub(5))
262end
263
264local numChars = {['e']=true; ['E']=true; ['+']=true; ['-']=true; ['.']=true}
265function public.parseNumber(str)
266 local i = 1
267 while numChars[str:sub(i, i)] or tonumber(str:sub(i, i)) do
268 i = i + 1
269 end
270 local val = tonumber(str:sub(1, i - 1))
271 str = public.removeWhite(str:sub(i))
272 return val, str
273end
274
275function public.parseString(str)
276 str = str:sub(2)
277 local s = ""
278 while str:sub(1,1) ~= "\"" do
279 local next = str:sub(1,1)
280 str = str:sub(2)
281 assert(next ~= "\n", "Unclosed string")
282
283 if next == "\\" then
284 local escape = str:sub(1,1)
285 str = str:sub(2)
286
287 next = assert(decodeControls[next..escape], "Invalid escape character")
288 end
289
290 s = s .. next
291 end
292 return s, public.removeWhite(str:sub(2))
293end
294
295function public.parseArray(str)
296 str = public.removeWhite(str:sub(2))
297
298 local val = {}
299 local i = 1
300 while str:sub(1, 1) ~= "]" do
301 local v = nil
302 v, str = public.parseValue(str)
303 val[i] = v
304 i = i + 1
305 str = public.removeWhite(str)
306 end
307 str = public.removeWhite(str:sub(2))
308 return val, str
309end
310
311function public.parseObject(str)
312 str = public.removeWhite(str:sub(2))
313
314 local val = {}
315 while str:sub(1, 1) ~= "}" do
316 local k, v = nil, nil
317 k, v, str = public.parseMember(str)
318 val[k] = v
319 str = public.removeWhite(str)
320 end
321 str = public.removeWhite(str:sub(2))
322 return val, str
323end
324
325function public.parseMember(str)
326 local k = nil
327 k, str = public.parseValue(str)
328 local val = nil
329 val, str = public.parseValue(str)
330 return k, val, str
331end
332
333function public.parseValue(str)
334 local fchar = str:sub(1, 1)
335 if fchar == "{" then
336 return public.parseObject(str)
337 elseif fchar == "[" then
338 return public.parseArray(str)
339 elseif tonumber(fchar) ~= nil or numChars[fchar] then
340 return public.parseNumber(str)
341 elseif str:sub(1, 4) == "true" or str:sub(1, 5) == "false" then
342 return public.parseBoolean(str)
343 elseif fchar == "\"" then
344 return public.parseString(str)
345 elseif str:sub(1, 4) == "null" then
346 return public.parseNull(str)
347 end
348 return nil
349end
350
351function public.decode(str)
352 str = public.removeWhite(str)
353 t = public.parseValue(str)
354 return t
355end
356
357function public.decodeFromFile(path)
358 local file = assert(fs.open(path, "r"))
359 local decoded = decode(file.readAll())
360 file.close()
361 return decoded
362end
363
364return public stolen/16497-25.10.2020.0042/lib/scrollwindow.lua 0000777 0000000 0000000 00000010115 13745134001 015355 0 ustar local function createElement(x, y, text, textColor, backgroundColor, clickEvent)
365 return {
366 x = x,
367 y = y,
368 text = text,
369 textColor = textColor,
370 backgroundColor = backgroundColor,
371 clickEvent = clickEvent
372 }
373end
374
375local function new(x, y, w, h, elements, backgroundColor, visible)
376 if not visible then visible = true end
377 local current = term.current()
378 local scrollFrame = window.create(current, x, y, w, h, visible)
379 scrollFrame.setBackgroundColor(backgroundColor or colors.black)
380 scrollFrame.clear()
381
382 local obj = {}
383 local visibleElements = {}
384 local scrollPos = 0
385
386 obj.addElement = function(element)
387 table.insert(elements, element)
388 end
389 obj.setElements = function(aElements)
390 elements = aElements
391 end
392 obj.removeElement = function(id)
393 table.remove(elements, id)
394 end
395 obj.getElements = function()
396 return elements
397 end
398 obj.getWidth = function()
399 return w
400 end
401 obj.resize = function(nw, nh)
402 w = nw
403 h = nh
404 end
405 obj.scrollToTop = function()
406 scrollPos = 0
407 end
408
409 obj.redraw = function()
410 if visible then
411 -- Load elements
412 visibleElements = {}
413 for id = scrollPos, scrollPos + h do
414 if elements[id + 1] then
415 local e = elements[id + 1]
416 if e.x and e.y and e.text and e.textColor then
417 local newElement = elements[id + 1]
418 newElement.actualY = newElement.y - scrollPos
419 table.insert(visibleElements, elements[id + 1])
420 end
421 end
422 end
423 local p = 1
424 for i, v in pairs(visibleElements) do
425 for i, v in pairs(v) do
426 p = p + 1
427 end
428 end
429 -- Draw elements
430 scrollFrame.setBackgroundColor(backgroundColor or colors.black)
431 scrollFrame.clear()
432 for position, elem in pairs(visibleElements) do
433 if elem then
434 scrollFrame.setCursorPos(elem.x, elem.actualY)
435 scrollFrame.setTextColor(elem.textColor)
436 scrollFrame.setBackgroundColor(elem.backgroundColor or backgroundColor)
437 scrollFrame.write(elem.text)
438 end
439 end
440 end
441 end
442 obj.scroll = function(direction) -- -1 is up, 1 is down
443 if #elements > h then
444 if scrollPos ~= 0 then
445 local canScroll = true
446 if elements[scrollPos + h + 1] == nil then
447 if direction == -1 then
448 canScroll = true
449 else
450 canScroll = false
451 end
452 else
453 canScroll = true
454 end
455
456 if canScroll then
457 scrollPos = scrollPos + direction
458 obj.redraw()
459 end
460 else
461 if direction == 1 then
462 scrollPos = scrollPos + direction
463 obj.redraw()
464 end
465 end
466 end
467 end
468 obj.setVisible = function(isVisible)
469 scrollFrame.setVisible(isVisible)
470 visible = isVisible
471 end
472
473 obj.checkEvents = function(e)
474 if visible then
475 if e[1] == "mouse_scroll" then
476 local dir, mx, my = e[2], e[3], e[4]
477 if mx >= x and mx <= x + w - 1 and my >= y and my <= y + h - 1 then
478 obj.scroll(dir)
479 end
480 elseif e[1] == "mouse_click" then
481 local dir, mx, my = e[2], e[3], e[4]
482 for i, v in pairs(visibleElements) do
483 if mx >= v.x and mx <= v.x + string.len(v.text) - 1 and my == v.actualY + 1 and v.clickEvent ~= nil then
484 v.clickEvent()
485 end
486 end
487 end
488 end
489 end
490
491 return obj
492end
493
494return {
495 new = new,
496 createElement = createElement
497} stolen/16497-25.10.2020.0042/lib/draw.lua 0000777 0000000 0000000 00000003333 13745134001 013570 0 ustar local function setColors(text, background)
498 term.setTextColor(text)
499 term.setBackgroundColor(background)
500end
501
502local function overflow(text, limit)
503 if string.len(text) > limit then
504 text = text:sub(1, limit - 4) .. "..."
505 return text
506 else
507 return text
508 end
509end
510
511local function drawBorder(x, y, w, h, borderColor)
512 local background = term.getBackgroundColor()
513 local function setBorderColors(inverted)
514 if inverted then
515 setColors(background, borderColor)
516 else
517 setColors(borderColor, background)
518 end
519 end
520
521 -- CORNERS
522
523 -- Top Left
524 term.setCursorPos(x - 1, y - 1)
525 setBorderColors(true)
526 term.write("\159", w)
527 -- Top Right
528 term.setCursorPos(x + w, y - 1)
529 setBorderColors(false)
530 term.write("\144")
531 -- Bottom Left
532 term.setCursorPos(x - 1, y + 1)
533 setBorderColors(false)
534 term.write("\130")
535 -- Top Right
536 term.setCursorPos(x + w, y + 1)
537 setBorderColors(false)
538 term.write("\129")
539
540 -- SIDES
541
542 -- Top
543 term.setCursorPos(x, y - 1)
544 setBorderColors(true)
545 term.write(string.rep("\143", w))
546 -- Bottom
547 term.setCursorPos(x, y + 1)
548 setBorderColors(false)
549 term.write(string.rep("\131", w))
550 -- Left
551 for i = 1, h do
552 term.setCursorPos(x - 1, y + h - 1)
553 setBorderColors(true)
554 term.write("\149")
555 end
556 -- Right
557 for i = 1, h do
558 term.setCursorPos(x + w, y + h - 1)
559 setBorderColors(false)
560 term.write("\149")
561 end
562end
563
564local function overflowWrite(text, limit)
565 write(overflow(text, limit))
566end
567
568return {
569 setColors = setColors,
570 overflow = overflow,
571 drawBorder = drawBorder,
572 overflowWrite = overflowWrite
573} stolen/16497-25.10.2020.0042/lib/nfte.lua 0000777 0000000 0000000 00000054234 13745134001 013575 0 ustar local nfte = {}
574
575local tchar = string.char(31) -- for text colors
576local bchar = string.char(30) -- for background colors
577local nchar = string.char(29) -- for differentiating multiple frames in ANFT
578
579local round = function(num)
580 return math.floor(num + 0.5)
581end
582
583local deepCopy
584deepCopy = function(tbl)
585 local output = {}
586 for k,v in pairs(tbl) do
587 if type(v) == "table" then
588 output[k] = deepCopy(v)
589 else
590 output[k] = v
591 end
592 end
593 return output
594end
595
596local function stringWrite(str,pos,ins,exc)
597 str, ins = tostring(str), tostring(ins)
598 local output, fn1, fn2 = str:sub(1,pos-1)..ins..str:sub(pos+#ins)
599 if exc then
600 repeat
601 fn1, fn2 = str:find(exc,fn2 and fn2+1 or 1)
602 if fn1 then
603 output = stringWrite(output,fn1,str:sub(fn1,fn2))
604 end
605 until not fn1
606 end
607 return output
608end
609
610local checkValid = function(image)
611 if type(image) == "table" then
612 if #image == 3 then
613 return (#image[1] == #image[2] and #image[2] == #image[3])
614 end
615 end
616 return false
617end
618
619local checkIfANFT = function(image)
620 if type(image) == "table" then
621 return type(image[1][1]) == "table"
622 elseif type(image) == "string" then
623 return image:find(nchar) and true or false
624 end
625end
626
627local bl = { -- blit
628 [' '] = 0,
629 ['0'] = 1,
630 ['1'] = 2,
631 ['2'] = 4,
632 ['3'] = 8,
633 ['4'] = 16,
634 ['5'] = 32,
635 ['6'] = 64,
636 ['7'] = 128,
637 ['8'] = 256,
638 ['9'] = 512,
639 ['a'] = 1024,
640 ['b'] = 2048,
641 ['c'] = 4096,
642 ['d'] = 8192,
643 ['e'] = 16384,
644 ['f'] = 32768,
645}
646local lb = {} -- tilb
647for k,v in pairs(bl) do
648 lb[v] = k
649end
650
651local ldchart = { -- converts colors into a lighter shade
652 ["0"] = "0",
653 ["1"] = "4",
654 ["2"] = "6",
655 ["3"] = "0",
656 ["4"] = "0",
657 ["5"] = "0",
658 ["6"] = "0",
659 ["7"] = "8",
660 ["8"] = "0",
661 ["9"] = "3",
662 ["a"] = "2",
663 ["b"] = "9",
664 ["c"] = "1",
665 ["d"] = "5",
666 ["e"] = "2",
667 ["f"] = "7"
668}
669
670local dlchart = { -- converts colors into a darker shade
671 ["0"] = "8",
672 ["1"] = "c",
673 ["2"] = "a",
674 ["3"] = "9",
675 ["4"] = "1",
676 ["5"] = "d",
677 ["6"] = "2",
678 ["7"] = "f",
679 ["8"] = "7",
680 ["9"] = "b",
681 ["a"] = "7",
682 ["b"] = "7",
683 ["c"] = "7",
684 ["d"] = "7",
685 ["e"] = "7",
686 ["f"] = "f"
687}
688
689local getSizeNFP = function(image)
690 local xsize = 0
691 if type(image) ~= "table" then return 0,0 end
692 for y = 1, #image do xsize = math.max(xsize, #image[y]) end
693 return xsize, #image
694end
695
696-- returns (x, y) size of a loaded NFT image
697getSize = function(image)
698 assert(checkValid(image), "Invalid image.")
699 local x, y = 0, #image[1]
700 for y = 1, #image[1] do
701 x = math.max(x, #image[1][y])
702 end
703 return x, y
704end
705nfte.getSize = getSize
706
707-- cuts off the sides of an image
708crop = function(image, x1, y1, x2, y2)
709 assert(checkValid(image), "Invalid image.")
710 local output = {{},{},{}}
711 for y = y1, y2 do
712 output[1][#output[1]+1] = image[1][y]:sub(x1,x2)
713 output[2][#output[2]+1] = image[2][y]:sub(x1,x2)
714 output[3][#output[3]+1] = image[3][y]:sub(x1,x2)
715 end
716 return output
717end
718nfte.crop = crop
719
720local loadImageDataNFT = function(image, background) -- string image
721 local output = {{},{},{}} -- char, text, back
722 local y = 1
723 background = (background or " "):sub(1,1)
724 local text, back = " ", background
725 local doSkip, c1, c2 = false
726 local maxX = 0
727 local bx
728 for i = 1, #image do
729 if doSkip then
730 doSkip = false
731 else
732 output[1][y] = output[1][y] or ""
733 output[2][y] = output[2][y] or ""
734 output[3][y] = output[3][y] or ""
735 c1, c2 = image:sub(i,i), image:sub(i+1,i+1)
736 if c1 == tchar then
737 text = c2
738 doSkip = true
739 elseif c1 == bchar then
740 back = c2
741 doSkip = true
742 elseif c1 == "\n" then
743 maxX = math.max(maxX, #output[1][y])
744 y = y + 1
745 text, back = " ", background
746 else
747 output[1][y] = output[1][y]..c1
748 output[2][y] = output[2][y]..text
749 output[3][y] = output[3][y]..back
750 end
751 end
752 end
753 for y = 1, #output[1] do
754 output[1][y] = output[1][y] .. (" "):rep(maxX - #output[1][y])
755 output[2][y] = output[2][y] .. (" "):rep(maxX - #output[2][y])
756 output[3][y] = output[3][y] .. (background):rep(maxX - #output[3][y])
757 end
758 return output
759end
760
761local loadImageDataNFP = function(image, background)
762 local output = {}
763 local x, y = 1, 1
764 for i = 1, #image do
765 output[y] = output[y] or {}
766 if bl[image:sub(i,i)] then
767 output[y][x] = bl[image:sub(i,i)]
768 x = x + 1
769 elseif image:sub(i,i) == "\n" then
770 x, y = 1, y + 1
771 end
772 end
773 return output
774end
775
776-- takes a loaded image and returns a loaded NFT image
777convertFromNFP = function(image, background)
778 background = background or " "
779 local output = {{},{},{}}
780 if type(image) == "string" then
781 image = loadImageDataNFP(image)
782 end
783 local imageX, imageY = getSizeNFP(image)
784 local bx
785 for y = 1, imageY do
786 output[1][y] = ""
787 output[2][y] = ""
788 output[3][y] = ""
789 for x = 1, imageX do
790 if image[y][x] then
791 bx = (x % #background) + 1
792 output[1][y] = output[1][y]..lb[image[y][x] or background:sub(bx,bx)]
793 output[2][y] = output[2][y]..lb[image[y][x] or background:sub(bx,bx)]
794 output[3][y] = output[3][y]..lb[image[y][x] or background:sub(bx,bx)]
795 end
796 end
797 end
798 return output
799end
800nfte.convertFromNFP = convertFromNFP
801
802-- loads the raw string NFT image data
803loadImageData = function(image, background)
804 assert(type(image) == "string", "NFT image data must be string.")
805 local output = {}
806 -- images can be ANFT, which means they have multiple layers
807 if checkIfANFT(image) then
808 local L, R = 1, 1
809 while L do
810 R = (image:find(nchar, L + 1) or 0)
811 output[#output+1] = loadImageDataNFT(image:sub(L, R - 1), background)
812 L = image:find(nchar, R + 1)
813 if L then L = L + 2 end
814 end
815 return output, "anft"
816 elseif image:find(tchar) or image:find(bchar) then
817 return loadImageDataNFT(image, background), "nft"
818 else
819 return convertFromNFP(image), "nfp"
820 end
821end
822nfte.loadImageData = loadImageData
823
824-- loads an image file. will convert from NFP if necessary
825loadImage = function(path, background)
826 local file = io.open(path, "r")
827 if file then
828 io.input(file)
829 local output, format = loadImageData(io.read("*all"), background)
830 io.close()
831 return output, format
832 else
833 error("No such file exists, or is directory.")
834 end
835end
836nfte.loadImage = loadImage
837
838local unloadImageNFT = function(image)
839 assert(checkValid(image), "Invalid image.")
840 local output = ""
841 local text, back = " ", " "
842 local c, t, b
843 for y = 1, #image[1] do
844 for x = 1, #image[1][y] do
845 c, t, b = image[1][y]:sub(x,x), image[2][y]:sub(x,x), image[3][y]:sub(x,x)
846 if (t ~= text) or (x == 1) then
847 output = output..tchar..t
848 text = t
849 end
850 if (b ~= back) or (x == 1) then
851 output = output..bchar..b
852 back = b
853 end
854 output = output..c
855 end
856 if y ~= #image[1] then
857 output = output.."\n"
858 text, back = " ", " "
859 end
860 end
861 return output
862end
863
864-- takes a loaded NFT image and converts it back into regular NFT (or ANFT)
865unloadImage = function(image)
866 assert(checkValid(image), "Invalid image.")
867 local output = ""
868 if checkIfANFT(image) then
869 for i = 1, #image do
870 output = output .. unloadImageNFT(image[i])
871 if i ~= #image then
872 output = output .. nchar .. "\n"
873 end
874 end
875 else
876 output = unloadImageNFT(image)
877 end
878 return output
879end
880nfte.unloadImage = unloadImage
881
882-- draws an image with the topleft corner at (x, y)
883drawImage = function(image, x, y, terminal)
884 assert(checkValid(image), "Invalid image.")
885 assert(type(x) == "number", "x value must be number, got " .. type(x))
886 assert(type(y) == "number", "y value must be number, got " .. type(y))
887 terminal = terminal or term.current()
888 local cx, cy = terminal.getCursorPos()
889 for iy = 1, #image[1] do
890 terminal.setCursorPos(x, y + (iy - 1))
891 terminal.blit(image[1][iy], image[2][iy], image[3][iy])
892 end
893 terminal.setCursorPos(cx,cy)
894end
895nfte.drawImage = drawImage
896
897-- draws an image with the topleft corner at (x, y), with transparency
898drawImageTransparent = function(image, x, y, terminal)
899 assert(checkValid(image), "Invalid image.")
900 assert(type(x) == "number", "x value must be number, got " .. type(x))
901 assert(type(y) == "number", "y value must be number, got " .. type(y))
902 terminal = terminal or term.current()
903 local cx, cy = terminal.getCursorPos()
904 local c, t, b
905 for iy = 1, #image[1] do
906 for ix = 1, #image[1][iy] do
907 c, t, b = image[1][iy]:sub(ix,ix), image[2][iy]:sub(ix,ix), image[3][iy]:sub(ix,ix)
908 if b ~= " " or c ~= " " then
909 terminal.setCursorPos(x + (ix - 1), y + (iy - 1))
910 terminal.blit(c, t, b)
911 end
912 end
913 end
914 terminal.setCursorPos(cx,cy)
915end
916nfte.drawImageTransparent = drawImageTransparent
917
918-- draws an image centered at (x, y) or center screen
919drawImageCenter = function(image, x, y, terminal)
920 terminal = terminal or term.current()
921 local scr_x, scr_y = terminal.getSize()
922 local imageX, imageY = getSize(image)
923 return drawImage(
924 image,
925 round(0.5 + (x and x or (scr_x/2)) - imageX/2),
926 round(0.5 + (y and y or (scr_y/2)) - imageY/2),
927 terminal
928 )
929end
930drawImageCentre = drawImageCenter
931nfte.drawImageCenter = drawImageCenter
932nfte.drawImageCentre = drawImageCenter
933
934-- draws an image centered at (x, y) or center screen, with transparency
935drawImageCenterTransparent = function(image, x, y, terminal)
936 terminal = terminal or term.current()
937 local scr_x, scr_y = terminal.getSize()
938 local imageX, imageY = getSize(image)
939 return drawImageTransparent(
940 image,
941 round(0.5 + (x and x or (scr_x/2)) - imageX/2),
942 round(0.5 + (y and y or (scr_y/2)) - imageY/2),
943 terminal
944 )
945end
946drawImageCentreTransparent = drawImageCenterTransparent
947nfte.drawImageCenterTransparent = drawImageCenterTransparent
948nfte.drawImageCentreTransparent = drawImageCenterTransparent
949
950-- swaps every color in an image with a different one according to a table
951colorSwap = function(image, text, back)
952 assert(checkValid(image), "Invalid image.")
953 local output = {{},{},{}}
954 for y = 1, #image[1] do
955 output[1][y] = image[1][y]
956 output[2][y] = image[2][y]:gsub(".", text)
957 output[3][y] = image[3][y]:gsub(".", back or text)
958 end
959 return output
960end
961colourSwap = colorSwap
962nfte.colorSwap = colorSwap
963nfte.colourSwap = colorSwap
964
965-- every flippable block character that doesn't need a color swap
966local xflippable = {
967 ["\129"] = "\130",
968 ["\132"] = "\136",
969 ["\133"] = "\138",
970 ["\134"] = "\137",
971 ["\137"] = "\134",
972 ["\135"] = "\139",
973 ["\140"] = "\140",
974 ["\141"] = "\142",
975}
976-- every flippable block character that needs a color swap
977local xinvertable = {
978 ["\144"] = "\159",
979 ["\145"] = "\157",
980 ["\146"] = "\158",
981 ["\147"] = "\156",
982 ["\148"] = "\151",
983 ["\152"] = "\155",
984 ["\149"] = "\149",
985 ["\150"] = "\150",
986 ["\153"] = "\153",
987 ["\154"] = "\154"
988}
989for k,v in pairs(xflippable) do
990 xflippable[v] = k
991end
992for k,v in pairs(xinvertable) do
993 xinvertable[v] = k
994end
995-- flips an image horizontally, flipping all necessary block characters
996flipX = function(image)
997 assert(checkValid(image), "Invalid image.")
998 local output = {{},{},{}}
999 for y = 1, #image[1] do
1000 output[1][y] = image[1][y]:gsub(".", xinvertable):gsub(".", xflippable):reverse()
1001 output[2][y] = ""
1002 output[3][y] = ""
1003 for x = 1, #image[1][y] do
1004 if xinvertable[image[1][y]:sub(x,x)] then
1005 output[2][y] = image[3][y]:sub(x,x) .. output[2][y]
1006 output[3][y] = image[2][y]:sub(x,x) .. output[3][y]
1007 else
1008 output[2][y] = image[2][y]:sub(x,x) .. output[2][y]
1009 output[3][y] = image[3][y]:sub(x,x) .. output[3][y]
1010 end
1011 end
1012 end
1013 return output
1014end
1015nfte.flipX = flipX
1016
1017-- flips an image vertically. doesn't touch block characters
1018flipY = function(image)
1019 assert(checkValid(image), "Invalid image.")
1020 local output = {{},{},{}}
1021 for y = #image[1], 1, -1 do
1022 output[1][#output[1]+1] = image[1][y]
1023 output[2][#output[2]+1] = image[2][y]
1024 output[3][#output[3]+1] = image[3][y]
1025 end
1026 return output
1027end
1028nfte.flipY = flipY
1029
1030-- makes a rectangular image of (width, height) and char/text/back.
1031makeRectangle = function(width, height, char, text, back)
1032 assert(type(width) == "number", "width must be number")
1033 assert(type(height) == "number", "height must be number")
1034 local output = {{},{},{}}
1035 for y = 1, height do
1036 output[1][y] = (char or " "):rep(width)
1037 output[2][y] = (text or " "):rep(width)
1038 output[3][y] = (back or " "):rep(width)
1039 end
1040 return output
1041end
1042nfte.makeRectangle = makeRectangle
1043
1044-- converts an image into grayscale as best I could
1045grayOut = function(image)
1046 assert(checkValid(image), "Invalid image.")
1047 local output = {{},{},{}}
1048 local chart = {
1049 ["0"] = "0",
1050 ["1"] = "8",
1051 ["2"] = "8",
1052 ["3"] = "8",
1053 ["4"] = "8",
1054 ["5"] = "8",
1055 ["6"] = "8",
1056 ["7"] = "7",
1057 ["8"] = "8",
1058 ["9"] = "7",
1059 ["a"] = "7",
1060 ["b"] = "7",
1061 ["c"] = "7",
1062 ["d"] = "7",
1063 ["e"] = "7",
1064 ["f"] = "f"
1065 }
1066 for y = 1, #image[1] do
1067 output[1][y] = image[1][y]
1068 output[2][y] = image[2][y]:gsub(".", chart)
1069 output[3][y] = image[3][y]:gsub(".", chart)
1070 end
1071 return output
1072end
1073greyOut = grayOut
1074nfte.grayOut = grayOut
1075nfte.greyOut = grayOut
1076
1077-- takes an image and lightens it by a certain amount
1078lighten = function(image, amount)
1079 assert(checkValid(image), "Invalid image.")
1080 if (amount or 1) < 0 then
1081 return darken(image, -amount)
1082 else
1083 local output = deepCopy(image)
1084 for i = 1, amount or 1 do
1085 for y = 1, #output[1] do
1086 output[1][y] = output[1][y]
1087 output[2][y] = output[2][y]:gsub(".",ldchart)
1088 output[3][y] = output[3][y]:gsub(".",ldchart)
1089 end
1090 end
1091 return output
1092 end
1093end
1094nfte.lighten = lighten
1095
1096-- takes an image and darkens it by a certain amount
1097darken = function(image, amount)
1098 assert(checkValid(image), "Invalid image.")
1099 if (amount or 1) < 0 then
1100 return lighten(image, -amount)
1101 else
1102 local output = deepCopy(image)
1103 for i = 1, amount or 1 do
1104 for y = 1, #output[1] do
1105 output[1][y] = output[1][y]
1106 output[2][y] = output[2][y]:gsub(".",dlchart)
1107 output[3][y] = output[3][y]:gsub(".",dlchart)
1108 end
1109 end
1110 return output
1111 end
1112end
1113nfte.darken = darken
1114
1115-- stretches an image so that its new height and width are (sx, sy).
1116-- if noRepeat, it will only draw one of each character for each pixel
1117-- in the original image, so as to not mess up text in images.
1118stretchImage = function(_image, sx, sy, noRepeat)
1119 assert(checkValid(_image), "Invalid image.")
1120 local output = {{},{},{}}
1121 local image = deepCopy(_image)
1122 if sx < 0 then image = flipX(image) end
1123 if sy < 0 then image = flipY(image) end
1124 sx, sy = math.abs(sx), math.abs(sy)
1125 local imageX, imageY = getSize(image)
1126 local tx, ty
1127 if sx == 0 or sy == 0 then
1128 for y = 1, math.max(sy, 1) do
1129 output[1][y] = ""
1130 output[2][y] = ""
1131 output[3][y] = ""
1132 end
1133 return output
1134 else
1135 for y = 1, sy do
1136 for x = 1, sx do
1137 tx = round((x / sx) * imageX)
1138 ty = math.ceil((y / sy) * imageY)
1139 if not noRepeat then
1140 output[1][y] = (output[1][y] or "")..image[1][ty]:sub(tx,tx)
1141 else
1142 output[1][y] = (output[1][y] or "").." "
1143 end
1144 output[2][y] = (output[2][y] or "")..image[2][ty]:sub(tx,tx)
1145 output[3][y] = (output[3][y] or "")..image[3][ty]:sub(tx,tx)
1146 end
1147 end
1148 if noRepeat then
1149 for y = 1, imageY do
1150 for x = 1, imageX do
1151 if image[1][y]:sub(x,x) ~= " " then
1152 tx = round(((x / imageX) * sx) - ((0.5 / imageX) * sx))
1153 ty = round(((y / imageY) * sy) - ((0.5 / imageY) * sx))
1154 output[1][ty] = stringWrite(output[1][ty], tx, image[1][y]:sub(x,x))
1155 end
1156 end
1157 end
1158 end
1159 return output
1160 end
1161end
1162nfte.stretchImage = stretchImage
1163
1164-- same as stretchImage, but will not alter its aspect ratio
1165stretchImageKeepAspect = function(image, sx, sy, noRepeat)
1166 assert(checkValid(image), "Invalid image.")
1167 local imX, imY = nfte.getSize(image)
1168 local aspect = sx / sy
1169 local imAspect = imX / imY
1170 if imAspect > aspect then
1171 return nfte.stretchImage(image, sx, sx / imAspect, noRepeat)
1172 elseif imAspect < aspect then
1173 return nfte.stretchImage(image, sy * imAspect, sy, noRepeat)
1174 else
1175 return nfte.stretchImage(image, sx, sy, noRepeat)
1176 end
1177end
1178nfte.stretchImageKeepAspect = stretchImageKeepAspect
1179
1180-- will stretch and unstretch an image to radically lower its resolution
1181pixelateImage = function(image, amntX, amntY)
1182 assert(checkValid(image), "Invalid image.")
1183 local imageX, imageY = getSize(image)
1184 return stretchImage(stretchImage(image,imageX/math.max(amntX,1), imageY/math.max(amntY,1)), imageX, imageY)
1185end
1186nfte.pixelateImage = pixelateImage
1187
1188-- merges two or more images together at arbitrary positions
1189-- earlier arguments will be layered on top of later ones
1190merge = function(...)
1191 local images = {...}
1192 local output = {{},{},{}}
1193 local imageX, imageY = 0, 0
1194 local imSX, imSY
1195 for i = 1, #images do
1196 imageY = math.max(
1197 imageY,
1198 #images[i][1][1] + (images[i][3] == true and 0 or (images[i][3] - 1))
1199 )
1200 for y = 1, #images[i][1][1] do
1201 imageX = math.max(
1202 imageX,
1203 #images[i][1][1][y] + (images[i][2] == true and 0 or (images[i][2] - 1))
1204 )
1205 end
1206 end
1207 -- if either coordinate is true, center it
1208 for i = 1, #images do
1209 imSX, imSY = getSize(images[i][1])
1210 if images[i][2] == true then
1211 images[i][2] = round(1 + (imageX / 2) - (imSX / 2))
1212 end
1213 if images[i][3] == true then
1214 images[i][3] = round(1 + (imageY / 2) - (imSY / 2))
1215 end
1216 end
1217
1218 -- will later add code to adjust X/Y positions if negative values are given
1219
1220 local image, xadj, yadj
1221 local tx, ty
1222 for y = 1, imageY do
1223 output[1][y] = {}
1224 output[2][y] = {}
1225 output[3][y] = {}
1226 for x = 1, imageX do
1227 for i = #images, 1, -1 do
1228 image, xadj, yadj = images[i][1], images[i][2], images[i][3]
1229 tx, ty = x-(xadj-1), y-(yadj-1)
1230 output[1][y][x] = output[1][y][x] or " "
1231 output[2][y][x] = output[2][y][x] or " "
1232 output[3][y][x] = output[3][y][x] or " "
1233 if image[1][ty] then
1234 if (image[1][ty]:sub(tx,tx) ~= "") and (tx >= 1) then
1235 output[1][y][x] = (image[1][ty]:sub(tx,tx) == " " and output[1][y][x] or image[1][ty]:sub(tx,tx))
1236 output[2][y][x] = (image[2][ty]:sub(tx,tx) == " " and output[2][y][x] or image[2][ty]:sub(tx,tx))
1237 output[3][y][x] = (image[3][ty]:sub(tx,tx) == " " and output[3][y][x] or image[3][ty]:sub(tx,tx))
1238 end
1239 end
1240 end
1241 end
1242 output[1][y] = table.concat(output[1][y])
1243 output[2][y] = table.concat(output[2][y])
1244 output[3][y] = table.concat(output[3][y])
1245 end
1246 return output
1247end
1248nfte.merge = merge
1249
1250local rotatePoint = function(x, y, angle, originX, originY)
1251 return
1252 round( (x-originX) * math.cos(angle) - (y-originY) * math.sin(angle) ) + originX,
1253 round( (x-originX) * math.sin(angle) + (y-originY) * math.cos(angle) ) + originY
1254end
1255
1256-- rotates an image around (originX, originY) or its center, by angle radians
1257rotateImage = function(image, angle, originX, originY)
1258 assert(checkValid(image), "Invalid image.")
1259 if imageX == 0 or imageY == 0 then
1260 return image
1261 end
1262 local output = {{},{},{}}
1263 local realOutput = {{},{},{}}
1264 local tx, ty, corners
1265 local imageX, imageY = getSize(image)
1266 local originX, originY = originX or math.floor(imageX / 2), originY or math.floor(imageY / 2)
1267 corners = {
1268 {rotatePoint(1, 1, angle, originX, originY)},
1269 {rotatePoint(imageX, 1, angle, originX, originY)},
1270 {rotatePoint(1, imageY, angle, originX, originY)},
1271 {rotatePoint(imageX, imageY, angle, originX, originY)},
1272 }
1273 local minX = math.min(corners[1][1], corners[2][1], corners[3][1], corners[4][1])
1274 local maxX = math.max(corners[1][1], corners[2][1], corners[3][1], corners[4][1])
1275 local minY = math.min(corners[1][2], corners[2][2], corners[3][2], corners[4][2])
1276 local maxY = math.max(corners[1][2], corners[2][2], corners[3][2], corners[4][2])
1277
1278 for y = 1, (maxY - minY) + 1 do
1279 output[1][y] = {}
1280 output[2][y] = {}
1281 output[3][y] = {}
1282 for x = 1, (maxX - minX) + 1 do
1283 tx, ty = rotatePoint(x + minX - 1, y + minY - 1, -angle, originX, originY)
1284 output[1][y][x] = " "
1285 output[2][y][x] = " "
1286 output[3][y][x] = " "
1287 if image[1][ty] then
1288 if tx >= 1 and tx <= #image[1][ty] then
1289 output[1][y][x] = image[1][ty]:sub(tx,tx)
1290 output[2][y][x] = image[2][ty]:sub(tx,tx)
1291 output[3][y][x] = image[3][ty]:sub(tx,tx)
1292 end
1293 end
1294 end
1295 end
1296 for y = 1, #output[1] do
1297 output[1][y] = table.concat(output[1][y])
1298 output[2][y] = table.concat(output[2][y])
1299 output[3][y] = table.concat(output[3][y])
1300 end
1301 return output, math.ceil(minX), math.ceil(minY)
1302end
1303nfte.rotateImage = rotateImage
1304
1305-- returns help info for each function
1306help = function(input)
1307 local helpOut = {
1308 loadImageData = "Loads an NFT, ANFT, or NFP image from a string input.",
1309 loadImage = "Loads an NFT, ANFT, or NFP image from a file path.",
1310 convertFromNFP = "Loads a table NFP image into a table NFT image, same as what loadImage outputs.",
1311 drawImage = "Draws an image. Does not support transparency, sadly.",
1312 drawImageTransparent = "Draws an image. Supports transparency, but not as fast as drawImage.",
1313 drawImageCenter = "Draws an image centered around the inputted coordinates. Does not support transparency.",
1314 drawImageCentre = "Draws an image centred around the inputted coordinates. Does not support transparency.",
1315 drawImageCenterTransparent = "Draws an image centered around the inputted coordinates. Supports transparency, but not quite as fast as drawImageCenter.",
1316 drawImageCentreTransparent = "Draws an image centred around the inputted coordinates. Supports transparency, but not quite as fast as drawImageCentre.",
1317 flipX = "Returns the inputted image, but flipped horizontally.",
1318 flipY = "Returns the inputted image, but flipped vertically.",
1319 grayOut = "Returns the inputted image, but with the colors converted into grayscale as best I could.",
1320 greyOut = "Returns the inputted image, but with the colors converted into greyscale as best I could.",
1321 lighten = "Returns the inputted image, but with the colors lightened.",
1322 darken = "Returns the inputted image, but with the colors darkened.",
1323 stretchImage = "Returns the inputted image, but it's been stretched to the inputted size. If the fourth argument is true, it will spread non-space characters evenly in the image.",
1324 stretchImageKeepAspect = "Returns the inputted image, but it's been stretched to fit a box of the inputted size. Won't alter its aspect ratio. If the fourth argument is true, it will spread non-space characters evenly in the image.",
1325 pixelateImage = "Returns the inputted image, but pixelated to a variable degree.",
1326 merge = "Merges two or more images together.",
1327 crop = "Crops an image between points (X1, Y1) and (X2, Y2).",
1328 rotateImage = "Rotates an image, and also returns how much the image center's X and Y had been adjusted.",
1329 colorSwap = "Swaps the colors of a given image with another color, according to an inputted table.",
1330 colourSwap = "Swaps the colours of a given image with another colour, according to an inputted table for either/both text and background."
1331 }
1332 if nfte[input] then
1333 return helpOut[input] or "That function doesn't have a help text...? That's not right."
1334 else
1335 return helpOut[input] or "No such function."
1336 end
1337end
1338nfte.help = help
1339
1340return nfte stolen/16497-25.10.2020.0042/lib/sha256.lua 0000777 0000000 0000000 00000012735 13745134001 013651 0 ustar --
1341-- Adaptation of the Secure Hashing Algorithm (SHA-244/256)
1342-- Found Here: http://lua-users.org/wiki/SecureHashAlgorithm
1343--
1344-- Using an adapted version of the bit library
1345-- Found Here: https://bitbucket.org/Boolsheet/bslf/src/1ee664885805/bit.lua
1346--
1347-- Originially written by GravityScore (http://www.computercraft.info/forums2/index.php?/topic/8169-sha-256-in-pure-lua/)
1348
1349local MOD = 2^32
1350local MODM = MOD-1
1351
1352local function memoize(f)
1353 local mt = {}
1354 local t = setmetatable({}, mt)
1355 function mt:__index(k)
1356 local v = f(k)
1357 t[k] = v
1358 return v
1359 end
1360 return t
1361end
1362
1363local function make_bitop_uncached(t, m)
1364 local function bitop(a, b)
1365 local res,p = 0,1
1366 while a ~= 0 and b ~= 0 do
1367 local am, bm = a % m, b % m
1368 res = res + t[am][bm] * p
1369 a = (a - am) / m
1370 b = (b - bm) / m
1371 p = p*m
1372 end
1373 res = res + (a + b) * p
1374 return res
1375 end
1376 return bitop
1377end
1378
1379local function make_bitop(t)
1380 local op1 = make_bitop_uncached(t,2^1)
1381 local op2 = memoize(function(a) return memoize(function(b) return op1(a, b) end) end)
1382 return make_bitop_uncached(op2, 2 ^ (t.n or 1))
1383end
1384
1385local bxor1 = make_bitop({[0] = {[0] = 0,[1] = 1}, [1] = {[0] = 1, [1] = 0}, n = 4})
1386
1387local function bxor(a, b, c, ...)
1388 local z = nil
1389 if b then
1390 a = a % MOD
1391 b = b % MOD
1392 z = bxor1(a, b)
1393 if c then z = bxor(z, c, ...) end
1394 return z
1395 elseif a then
1396 return a % MOD
1397 else
1398 return 0
1399 end
1400end
1401
1402local function band(a, b, c, ...)
1403 local z
1404 if b then
1405 a = a % MOD
1406 b = b % MOD
1407 z = ((a + b) - bxor1(a,b)) / 2
1408 if c then z = bit32_band(z, c, ...) end
1409 return z
1410 elseif a then
1411 return a % MOD
1412 else
1413 return MODM
1414 end
1415end
1416
1417local function bnot(x)
1418 return (-1 - x) % MOD
1419end
1420
1421local function rshift1(a, disp)
1422 if disp < 0 then return lshift(a,-disp) end
1423 return math.floor(a % 2 ^ 32 / 2 ^ disp)
1424end
1425
1426local function rshift(x, disp)
1427 if disp > 31 or disp < -31 then return 0 end
1428 return rshift1(x % MOD, disp)
1429end
1430
1431local function lshift(a, disp)
1432 if disp < 0 then return rshift(a,-disp) end
1433 return (a * 2 ^ disp) % 2 ^ 32
1434end
1435
1436local function rrotate(x, disp)
1437 x = x % MOD
1438 disp = disp % 32
1439 local low = band(x, 2 ^ disp - 1)
1440 return rshift(x, disp) + lshift(low, 32 - disp)
1441end
1442
1443local k = {
1444 0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5,
1445 0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5,
1446 0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3,
1447 0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174,
1448 0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc,
1449 0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da,
1450 0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7,
1451 0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967,
1452 0x27b70a85, 0x2e1b2138, 0x4d2c6dfc, 0x53380d13,
1453 0x650a7354, 0x766a0abb, 0x81c2c92e, 0x92722c85,
1454 0xa2bfe8a1, 0xa81a664b, 0xc24b8b70, 0xc76c51a3,
1455 0xd192e819, 0xd6990624, 0xf40e3585, 0x106aa070,
1456 0x19a4c116, 0x1e376c08, 0x2748774c, 0x34b0bcb5,
1457 0x391c0cb3, 0x4ed8aa4a, 0x5b9cca4f, 0x682e6ff3,
1458 0x748f82ee, 0x78a5636f, 0x84c87814, 0x8cc70208,
1459 0x90befffa, 0xa4506ceb, 0xbef9a3f7, 0xc67178f2,
1460}
1461
1462local function str2hexa(s)
1463 return (string.gsub(s, ".", function(c) return string.format("%02x", string.byte(c)) end))
1464end
1465
1466local function num2s(l, n)
1467 local s = ""
1468 for i = 1, n do
1469 local rem = l % 256
1470 s = string.char(rem) .. s
1471 l = (l - rem) / 256
1472 end
1473 return s
1474end
1475
1476local function s232num(s, i)
1477 local n = 0
1478 for i = i, i + 3 do
1479 n = n*256 + string.byte(s, i)
1480 end
1481 return n
1482end
1483
1484local function preproc(msg, len)
1485 local extra = 64 - ((len + 9) % 64)
1486 len = num2s(8 * len, 8)
1487 msg = msg .. "\128" .. string.rep("\0", extra) .. len
1488 assert(#msg % 64 == 0)
1489 return msg
1490end
1491
1492local function initH256(H)
1493 H[1] = 0x6a09e667
1494 H[2] = 0xbb67ae85
1495 H[3] = 0x3c6ef372
1496 H[4] = 0xa54ff53a
1497 H[5] = 0x510e527f
1498 H[6] = 0x9b05688c
1499 H[7] = 0x1f83d9ab
1500 H[8] = 0x5be0cd19
1501 return H
1502end
1503
1504local function digestblock(msg, i, H)
1505 local w = {}
1506 for j = 1, 16 do w[j] = s232num(msg, i + (j - 1)*4) end
1507
1508 for j = 17, 64 do
1509 local v = w[j - 15]
1510 local s0 = bxor(rrotate(v, 7), rrotate(v, 18), rshift(v, 3))
1511 v = w[j - 2]
1512 w[j] = w[j - 16] + s0 + w[j - 7] + bxor(rrotate(v, 17), rrotate(v, 19), rshift(v, 10))
1513 end
1514
1515 local a, b, c, d, e, f, g, h = H[1], H[2], H[3], H[4], H[5], H[6], H[7], H[8]
1516 for i = 1, 64 do
1517 local s0 = bxor(rrotate(a, 2), rrotate(a, 13), rrotate(a, 22))
1518 local maj = bxor(band(a, b), band(a, c), band(b, c))
1519 local t2 = s0 + maj
1520 local s1 = bxor(rrotate(e, 6), rrotate(e, 11), rrotate(e, 25))
1521 local ch = bxor (band(e, f), band(bnot(e), g))
1522 local t1 = h + s1 + ch + k[i] + w[i]
1523 h, g, f, e, d, c, b, a = g, f, e, d + t1, c, b, a, t1 + t2
1524 end
1525
1526 H[1] = band(H[1] + a)
1527 H[2] = band(H[2] + b)
1528 H[3] = band(H[3] + c)
1529 H[4] = band(H[4] + d)
1530 H[5] = band(H[5] + e)
1531 H[6] = band(H[6] + f)
1532 H[7] = band(H[7] + g)
1533 H[8] = band(H[8] + h)
1534end
1535
1536local function sha256(msg)
1537 msg = preproc(msg, #msg)
1538 local H = initH256({})
1539 for i = 1, #msg, 64 do digestblock(msg, i, H) end
1540 return str2hexa(num2s(H[1], 4) .. num2s(H[2], 4) .. num2s(H[3], 4) .. num2s(H[4], 4) ..
1541 num2s(H[5], 4) .. num2s(H[6], 4) .. num2s(H[7], 4) .. num2s(H[8], 4))
1542end
1543
1544return sha256 stolen/16497-25.10.2020.0042/lib/textbox.lua 0000777 0000000 0000000 00000005255 13745134001 014335 0 ustar local function newRead(win, contents, rchar)
1545 local outstr = contents or ""
1546 local cursorPos = 0
1547 local function draw()
1548 win.setCursorBlink(true)
1549 win.setBackgroundColor(colors.gray)
1550 win.clear()
1551 win.setTextColor(colors.lightGray)
1552 win.setCursorPos(1,1)
1553 local w, h = win.getSize()
1554 local printstr = outstr
1555 if string.len(printstr) > w then
1556 printstr = printstr:sub(string.len(printstr) - w + 2, string.len(printstr))
1557 end
1558
1559 if rchar then
1560 win.write(string.rep(rchar, string.len(printstr)))
1561 else
1562 win.write(printstr)
1563 end
1564 end
1565
1566 while true do
1567 draw()
1568 local e = { os.pullEvent() }
1569 if e[1] == "char" then
1570 outstr = outstr .. e[2]
1571 elseif e[1] == "key" then
1572 local key = e[2]
1573 if key == keys.enter then
1574 win.setCursorBlink(false)
1575 return outstr
1576 elseif key == keys.backspace then
1577 outstr = outstr:sub(1, string.len(outstr) - 1)
1578 elseif key == keys.tab then
1579 win.setCursorBlink(false)
1580 return outstr, true
1581 end
1582 end
1583 end
1584end
1585
1586local function newTextbox(x, y, w, rchar, placeholderText, contents, bg, fg)
1587 if not bg then bg = colors.gray end
1588 if not fg then fg = colors.lightGray end
1589 local prevTerm = term.current()
1590 local win = window.create(prevTerm, x, y, w, 1)
1591 if not contents then contents = "" end
1592 local newContent
1593
1594 local obj = {}
1595
1596 obj.redraw = function()
1597 win.setBackgroundColor(bg)
1598 win.clear()
1599 win.setTextColor(fg)
1600 win.setCursorPos(1,1)
1601 win.write(newContent or contents)
1602 if contents == "" and placeholderText then
1603 win.write(placeholderText)
1604 end
1605 end
1606
1607 obj.select = function(clear)
1608 if clear == true then
1609 contents = ""
1610 end
1611 win.setCursorPos(1,1)
1612 contents, goToNext = newRead(win, contents, rchar)
1613 win.clear()
1614 win.setCursorPos(1,1)
1615 newContent = contents
1616 if rchar then
1617 newContent = string.rep(rchar, string.len(newContent))
1618 end
1619 if string.len(newContent) > w then
1620 newContent = newContent:sub(1, w - 3)
1621 newContent = newContent .. "..."
1622 end
1623 win.write(newContent)
1624 if contents == "" and placeholderText then
1625 win.write(placeholderText)
1626 end
1627
1628 obj.redraw()
1629
1630 return contents, goToNext
1631 end
1632
1633 obj.getContent = function()
1634 return contents
1635 end
1636
1637 obj.redraw()
1638 return obj
1639end
1640
1641return {
1642 new = newTextbox
1643} stolen/16497-25.10.2020.0042/lib/util/file.lua 0000777 0000000 0000000 00000001272 13745134001 014527 0 ustar local ufile = {}
1644
1645function ufile.read(path)
1646 if fs.exists(path) then
1647 local file = fs.open(path, "r")
1648 local content = file.readAll()
1649 file.close()
1650 return content
1651 end
1652end
1653
1654function ufile.write(path, contents)
1655 local file = fs.open(path, "w")
1656 file.write(contents)
1657 file.close()
1658 return true
1659end
1660
1661function ufile.writeTable(path, table)
1662 return ufile.write(path, textutils.serialize(table))
1663end
1664
1665function ufile.readTable(path)
1666 if fs.exists(path) then
1667 return textutils.unserialize(ufile.read(path))
1668 end
1669end
1670
1671-- Gets the number of files inside of a folder.
1672function ufile.getFileCount(folder)
1673 return #fs.list(folder)
1674end
1675
1676return ufile stolen/16497-25.10.2020.0042/lib/util/math.lua 0000777 0000000 0000000 00000003215 13745134001 014540 0 ustar local umath = {}
1677
1678-- Constrains value between min and max.
1679function umath.clamp(n, min, max)
1680 if n < min then
1681 return min
1682 elseif n > max then
1683 return max
1684 else
1685 return n
1686 end
1687end
1688
1689function umath.randomFloat(min, max)
1690 if max then
1691 return min + math.random() * (max - min)
1692 else
1693 -- When only one argument is provided, min means max.
1694 return math.random() * min
1695 end
1696end
1697
1698-- Pythagorean theorem.
1699function umath.pythagoras(a, b)
1700 return math.sqrt(a^2 + b^2)
1701end
1702
1703-- Rounds a number to a specified number of decimals.
1704-- If the number of decimals isn't provided, it'll round to 0 decimals.
1705-- Written with help from Brutal_McLegend.
1706function umath.round(input, decimals)
1707 decimals = decimals or 0
1708 if decimals < 0 then error("cf.round(n, d) doesn't take a negative decimal count") end
1709 local mult = math.pow(10, decimals)
1710 return math.floor(input * mult + 0.5) / mult
1711end
1712
1713-- Get the squared magnitude of a vector.
1714function umath.vecMagSq(vector)
1715 return vector.x * vector.x + vector.y * vector.y
1716end
1717
1718-- Get the distance between two vectors.
1719function umath.dist(a, b)
1720 local dx = b.pos.x - a.pos.x
1721 local dy = b.pos.y - a.pos.y
1722 return umath.pythagoras(dx, dy)
1723end
1724
1725 -- Re-maps a number from one range to another.
1726function umath.map(value, minVar, maxVar, minResult, maxResult)
1727 local a = (value - minVar) / (maxVar - minVar)
1728 return (1 - a) * minResult + a * maxResult;
1729end
1730
1731-- Calculates a number between two numbers at a specific increment.
1732function umath.lerp(start, end_, amt)
1733 local difference = end_ - start
1734 local extra = amt * difference
1735 return start + extra
1736 end
1737
1738return umath stolen/16497-25.10.2020.0042/lib/util/json.lua 0000777 0000000 0000000 00000000560 13745134001 014560 0 ustar local json = require("json")
1739local file = require("util.file")
1740local ujson = {}
1741
1742function ujson.readTableAsJSON(path)
1743 if json then
1744 local content = util.read(path)
1745 return json.decode(content)
1746 end
1747end
1748
1749function ujson.writeTableAsJSON(path, tbl)
1750 if json then
1751 local content = util.write(path, json.encode(tbl))
1752 end
1753end
1754
1755return ujson stolen/16497-25.10.2020.0042/lib/util/init.lua 0000777 0000000 0000000 00000001045 13745134001 014551 0 ustar local util = {}
1756local json
1757local baseDirectory = "/lib/util/"
1758
1759local function getDir(moduleName)
1760 return fs.combine(baseDirectory, moduleName) .. ".lua"
1761end
1762
1763function util.loadModule(moduleName)
1764 if fs.exists(getDir(moduleName)) then
1765 return require("/" .. getDir(moduleName):sub(1, -5))
1766 else
1767 return "Module does not exist"
1768 end
1769end
1770
1771function util.listModules()
1772 local modules = {}
1773 for i, v in pairs(fs.list(baseDirectory)) do
1774 table.insert(modules, v:sub(1, -5))
1775 end
1776 return modules
1777end
1778
1779return util stolen/16497-25.10.2020.0042/lib/util/http.lua 0000777 0000000 0000000 00000000222 13745134001 014561 0 ustar local uhttp = {}
1780
1781function uhttp.fetch(url)
1782 local file = http.get(url)
1783 local content = file.readAll()
1784 return content
1785end
1786
1787return uhttp stolen/16497-25.10.2020.0042/lib/util/general.lua 0000777 0000000 0000000 00000005311 13745134001 015223 0 ustar local general = {}
1788
1789function general.resetColorScheme()
1790 term.setBackgroundColor(colors.black)
1791 term.setTextColor(colors.white)
1792end
1793
1794function general.resetCursorPos()
1795 term.setCursorPos(1,1)
1796end
1797
1798function general.reset()
1799 util.resetColorScheme()
1800 term.clear()
1801 util.resetCursorPos()
1802 return true
1803end
1804
1805function general.tableContains(tbl, elem)
1806 for i, e in pairs(tbl) do
1807 if elem == e then
1808 return true
1809 end
1810 end
1811 return false
1812end
1813
1814-- Prints the contents of a table much like 'textutils.serialize(tab)',
1815-- but the output is much more readable and it has the option to toggle recursion.
1816function general.printTable(tab, recursive, depth)
1817 recursive = not (recursive == false) -- True by default.
1818 depth = depth or 0 -- The depth starts at 0.
1819
1820 -- Getting the longest key, so all printed values will line up.
1821 local longestKey = 1
1822 for key, _ in pairs(tab) do
1823 local keyLength = #tostring(key)
1824 if keyLength > longestKey then
1825 longestKey = keyLength
1826 end
1827 end
1828
1829 if depth == 0 then
1830 print()
1831 end
1832
1833 -- Print the keys and values, with extra spaces so the values line up.
1834 for key, value in pairs(tab) do
1835 yield() -- Need to yield, as the next bit of code can be recursive.
1836
1837 local spacingCount = longestKey - #tostring(key) -- How many spaces are added between the key and value.
1838 print(
1839 string.rep(' ', depth).. -- Shift tables that are deep inside the original table.
1840 tostring(key)..
1841 string.rep(' ', spacingCount)..
1842 ', '..
1843 tostring(type(value) == 'table' and 'table' or value)
1844 )
1845
1846 local isTable = type(value) == 'table'
1847 local valueIsTable = (tab == value)
1848 if recursive and isTable and not valueIsTable then
1849 printTable(value, recursive, depth + 1) -- Go into the table.
1850 end
1851 end
1852
1853 if depth == 0 then
1854 print()
1855 end
1856end
1857
1858-- Reverses the order of the elements in a table.
1859function general.reverseTable(tab)
1860 reversedTable = {}
1861 for i = #tab, 1, -1 do
1862 reversedTable[#reversedTable + 1] = tab[i]
1863 end
1864 return reversedTable
1865end
1866
1867-- Removes an element from a table.
1868function general.tableRemove(t, e)
1869 for i = 1, #t do
1870 if t[i] == e then
1871 table.remove(t, i)
1872 break -- Breaking is necessary, because the loop's #t max iterations has changed, because t changed.
1873 end
1874 end
1875 return t
1876end
1877
1878-- Prevents the program from crashing after 5 seconds.
1879-- Executes faster than 'sleep(0.05)'.
1880function general.yield()
1881 os.queueEvent("randomEvent")
1882 os.pullEvent("randomEvent")
1883end
1884
1885-- Yields when more than t seconds have passed since the last yield. t is 4 by default.
1886function general.tryYield(t)
1887 t = t or 4
1888 local currentClock = os.clock()
1889 if currentClock - previousClock > t then
1890 previousClock = currentClock
1891 yield()
1892 end
1893end
1894
1895return general stolen/16497-25.10.2020.0042/dump.log 0000777 0000000 0000000 00000001630 13745134001 013030 0 ustar 1590073914837 string
18961590073914907 nil
18971590073914941 nil
18981590073915001 nil
18991590073915029 nil
19001590073915091 nil
19011590073915120 nil
19021590073915181 nil
19031590073915231 nil
19041590073915289 nil
19051590073915316 nil
19061590073915369 nil
19071590073915396 nil
19081590073915440 nil
19091590073915511 nil
19101590073915575 nil
19111590073915607 nil
19121590073915666 nil
19131590073915702 nil
19141590073915759 nil
19151590073915793 nil
19161590073915860 nil
19171590073915898 nil
19181590073915956 nil
19191590073915990 nil
19201590073916052 nil
19211590073916104 nil
19221590073916168 nil
19231590073916170 nil
19241590073916194 nil
19251590073916275 nil
19261590073916302 nil
19271590073916356 nil
19281590073916389 nil
19291590073916434 nil
19301590073916436 nil
19311590073916462 nil
19321590073916563 nil
19331590073916592 nil
19341590073916649 nil
19351590073916677 nil
19361590073916733 nil
19371590073916763 nil
19381590073916832 nil
19391590073916861 nil
19401590073916921 nil
19411590073916948 nil
19421590073917038 nil
19431590073917080 nil
19441590073917139 nil
19451590073917141 nil stolen/16497-25.10.2020.0042/boot/files.cfg 0000777 0000000 0000000 00000001456 13745134001 014114 0 ustar {
1946 "/bin/themes/classic.theme",
1947 "/bin/themes/dark.theme",
1948 "/bin/ui/fancyshutdown.lua",
1949 "/bin/ui/about.lua",
1950 "/bin/ui/login.lua",
1951 "/bin/ui/menu.lua",
1952 "/bin/ui/run.lua",
1953 "/bin/ui/shutdown.lua",
1954 "/bin/ui/titlebar.lua",
1955 "/bin/ui/tskmgr.lua",
1956 "/bin/ui/settings.lua",
1957 "/bin/kernel.lua",
1958 "/bin/shell.lua",
1959 "/boot/files.cfg",
1960 "/boot/package.path",
1961 "/boot/sys.path",
1962 "/etc/menu/pinned.cfg",
1963 "/etc/accounts.cfg",
1964 "/etc/theme.cfg",
1965 "/lib/util/file.lua",
1966 "/lib/util/general.lua",
1967 "/lib/util/http.lua",
1968 "/lib/util/init.lua",
1969 "/lib/util/json.lua",
1970 "/lib/util/math.lua",
1971 "/lib/json.lua",
1972 "/lib/nfte.lua",
1973 "/lib/sha256.lua",
1974 "/lib/textbox.lua",
1975 "/lib/scrollwindow.lua",
1976 "/lib/draw.lua",
1977 "/startup.lua"
1978} stolen/16497-25.10.2020.0042/boot/package.path 0000777 0000000 0000000 00000000053 13745134001 014572 0 ustar {
1979 "/lib/?.lua",
1980 "/lib/?/init.lua"
1981} stolen/16497-25.10.2020.0042/boot/sys.path 0000777 0000000 0000000 00000000031 13745134001 014011 0 ustar {
1982 "/bin/kernel.lua"
1983} stolen/16497-25.10.2020.0042/etc/theme.cfg 0000777 0000000 0000000 00000000061 13745134001 013713 0 ustar {
1984 currentTheme = "/bin/themes/classic.theme",
1985} stolen/16497-25.10.2020.0042/etc/menu/pinned.cfg 0000777 0000000 0000000 00000001125 13745134001 015034 0 ustar {
1986 {
1987 title = "Task Manager",
1988 path = "/bin/ui/tskmgr.lua",
1989 insettings = {
1990 width = 30,
1991 height = 15,
1992 title = "Task Manager"
1993 }
1994 },
1995 {
1996 title = "Settings",
1997 path = "/bin/ui/settings.lua",
1998 insettings = {
1999 width = 40,
2000 height = 17,
2001 maximazed = true,
2002 title = "Settings"
2003 }
2004 },
2005 {
2006 title = "About",
2007 path = "/bin/ui/about.lua",
2008 insettings = {
2009 width = 29,
2010 height = 10,
2011 title = "About zWM"
2012 }
2013 },
2014 {
2015 title = "Shell",
2016 path = "bin/shell.lua",
2017 insettings = {
2018 title = "Shell"
2019 }
2020 }
2021} stolen/16497-25.10.2020.0042/etc/accounts.cfg 0000777 0000000 0000000 00000000225 13745134001 014432 0 ustar {
2022 {
2023 homeDir = "/home/pjals",
2024 name = "pjals",
2025 passwordHash = "c3f60aceb670612e9f3cd1880108d5484cdc758f55161a2667aa42171a5d02a6",
2026 },
2027}
2028 stolen/16497-25.10.2020.0042/bin/shell.lua 0000777 0000000 0000000 00000010360 13745134001 013742 0 ustar local history = {}
2029term.setCursorPos(1, 1)
2030term.clear()
2031local shell = _G.shell
2032local wm = _G.wm
2033
2034while true do
2035 local dir = shell.dir()
2036 if dir == "" then
2037 dir = "/"
2038 end
2039 term.setTextColor(colors.orange)
2040 term.write(wm.currentUser)
2041 term.setTextColor(colors.white)
2042 term.write("@")
2043 term.setTextColor(colors.blue)
2044 term.write(os.getComputerLabel() or os.getComputerID())
2045 term.setTextColor(colors.white)
2046 term.write(":")
2047 term.setTextColor(colors.red)
2048 if dir ~= "/" then
2049 write("/" .. dir .. "\n")
2050 else
2051 write("/\n")
2052 end
2053
2054 term.setTextColor(colors.white)
2055 local x, y = term.getCursorPos()
2056 local prevInput
2057 local input = ""
2058 local completion = ""
2059 local completionList = {}
2060 local completionIndex = 0
2061 local historyIndex = #history + 1
2062 term.setCursorBlink(true)
2063
2064 local function drawInput()
2065 if input ~= "" then
2066 completionList = {}
2067 if shell.complete(input) and shell.complete(input)[1] then
2068 completion = shell.complete(input)[1]
2069 elseif shell.completeProgram(input) and shell.completeProgram(input)[1] then
2070 completion = shell.completeProgram(input)[1]
2071 else
2072 completion = ""
2073 end
2074
2075 if shell.complete(input) and shell.complete(input)[completionIndex] then
2076 for i, v in pairs({shell.complete(input)}) do
2077 table.insert(completionList, v)
2078 end
2079 end
2080 if shell.completeProgram(input) and shell.completeProgram(input)[completionIndex] then
2081 for i, v in pairs({shell.completeProgram(input)}) do
2082 table.insert(completionList, v)
2083 end
2084 end
2085 if prevInput ~= input then
2086 completionIndex = 0
2087 end
2088 else
2089 completionList = {}
2090 completion = ""
2091 end
2092 term.setCursorPos(x, y)
2093 term.clearLine()
2094 term.setTextColor(colors.green)
2095 term.write("\26 ")
2096 term.setTextColor(colors.white)
2097 term.write(input)
2098 local iX, iY = term.getCursorPos()
2099 term.setTextColor(colors.gray)
2100 term.write(completion)
2101 term.setCursorPos(iX, iY)
2102 term.setTextColor(colors.white)
2103 prevInput = input
2104 end
2105
2106 drawInput()
2107
2108 while true do
2109 local e = {os.pullEvent()}
2110 if e[1] == "char" then
2111 input = input .. e[2]
2112 drawInput()
2113 elseif e[1] == "key" then
2114 if e[2] == keys.backspace then
2115 input = string.sub(input, 1, string.len(input) - 1)
2116 drawInput()
2117 elseif e[2] == keys.enter then
2118 print()
2119 break
2120 elseif e[2] == keys.up then
2121 if #completionList > 1 then
2122 if history[completionIndex - 1] then
2123 completion = completion[completionIndex - 1]
2124 completionIndex = completionIndex - 1
2125 drawInput()
2126 end
2127 else
2128 if history[historyIndex - 1] then
2129 input = history[historyIndex - 1]
2130 historyIndex = historyIndex - 1
2131 drawInput()
2132 end
2133 end
2134 elseif e[2] == keys.down then
2135 if #completionList > 1 then
2136 if history[completionIndex + 1] then
2137 completion = completion[completionIndex + 1]
2138 completionIndex = completionIndex + 1
2139 drawInput()
2140 end
2141 else
2142 if history[historyIndex + 1] then
2143 input = history[historyIndex + 1]
2144 historyIndex = historyIndex + 1
2145 drawInput()
2146 end
2147 end
2148 elseif e[2] == keys.tab then
2149 input = input .. completion
2150 drawInput()
2151 end
2152 end
2153 end
2154 if input ~= history[#history] then
2155 table.insert(history, input)
2156 end
2157 term.setTextColor(colors.white)
2158 term.setCursorBlink(false)
2159 shell.run(input)
2160 input = ""
2161end stolen/16497-25.10.2020.0042/bin/kernel.lua 0000777 0000000 0000000 00000057620 13745134001 014125 0 ustar local logs = {}
2162local w, h = term.getSize()
2163
2164local function log(text)
2165 table.insert(logs, os.epoch('utc') .. " " .. text)
2166end
2167
2168local function dumpLogs()
2169 local f = fs.open("dump.log", "w")
2170 f.write(table.concat(logs, "\n"))
2171 f.close()
2172end
2173
2174local function loadtable(path)
2175 local file = fs.open(path, "r")
2176 local content = textutils.unserialize(file.readAll())
2177 file.close()
2178 return content
2179end
2180
2181local packageDirs = loadtable("/boot/package.path")
2182for i, v in pairs(packageDirs) do
2183 package.path = package.path .. ";" .. v
2184end
2185_G.package = package
2186
2187local startColors = {r = 76/255, g = 153/255, b = 178/255}
2188
2189term.setBackgroundColor(colors.cyan)
2190term.clear()
2191
2192for i = 0, 1, 0.1 do
2193 term.setPaletteColour(colors.cyan, startColors.r * i, startColors.g * i, startColors.b * i)
2194 sleep()
2195end
2196
2197local function main()
2198 --[[
2199 20.19 TODO:
2200
2201 Add services
2202 Make titlebar & menu embedded into kernel (so they can't be stopped/started by tskmgr)
2203 Notification center
2204 Added Do Not Disturb to settings
2205 ]]
2206 -- Process variables
2207 local processes = {}
2208 local selectedProcessID = 0
2209 local selectedProcess
2210 local lastProcID = 0
2211
2212 -- Terminal variables
2213 local native = term.current()
2214 local wm = {}
2215 local w, h = term.getSize()
2216 local keysDown = {}
2217
2218 -- Notification variables
2219 local notifications = {}
2220 local notificationCenter = {}
2221 local doNotDisturbEnabled = false
2222
2223 -- Window movement
2224 local resizeStartX
2225 local resizeStartY
2226 local resizeStartW
2227 local resizeStartH
2228 local mvmtX = nil
2229
2230 -- APIs
2231 local util = require("util")
2232 local file = util.loadModule("file")
2233 local draw = require("draw")
2234
2235 -- Other variables
2236 local top = 0
2237 local titlebarID = 0
2238
2239 function wm.getTheme()
2240 local themePath = file.readTable("/etc/theme.cfg").currentTheme
2241 return file.readTable(themePath)
2242 end
2243
2244 -- Theme
2245 local theme = wm.getTheme()
2246
2247 -- Process drawing
2248 local function updateProcesses()
2249 for i, v in pairs(processes) do
2250 term.redirect(v.window)
2251 coroutine.resume(v.coroutine)
2252 end
2253 end
2254
2255 local function drawProcess(proc)
2256 if proc.showTitlebar == false then
2257 term.redirect(proc.window)
2258 if proc.maximazed then
2259 proc.window.reposition(1, 2, w, h - 1)
2260 else
2261 proc.window.reposition(proc.x, proc.y, proc.width, proc.height)
2262 end
2263 proc.window.redraw()
2264 else
2265 term.redirect(native)
2266
2267 if proc.maximazed then
2268 proc.window.reposition(1, 3, w, h - 2)
2269 if proc == selectedProcess then
2270 paintutils.drawLine(1, 2, w, 2, theme.window.titlebar.backgroundSelected)
2271 else
2272 paintutils.drawLine(1, 2, w, 2, theme.window.titlebar.background)
2273 end
2274 term.setCursorPos(math.floor((w - string.len(proc.title) / 2) / 2), 2)
2275 term.setTextColor(theme.window.titlebar.text)
2276 term.write(proc.title)
2277
2278 if not proc.disableControls then
2279 term.setCursorPos(1, 2)
2280 if proc == selectedProcess then
2281 term.setTextColor(theme.window.close)
2282 else
2283 term.setTextColor(theme.window.titlebar.text)
2284 end
2285 term.write("\7")
2286 if proc == selectedProcess then
2287 term.setTextColor(theme.window.minimize)
2288 else
2289 term.setTextColor(theme.window.titlebar.text)
2290 end
2291 term.write("\7")
2292 if proc == selectedProcess then
2293 term.setTextColor(theme.window.maximize)
2294 else
2295 term.setTextColor(theme.window.titlebar.text)
2296 end
2297 term.write("\7")
2298 end
2299 else
2300 proc.window.reposition(proc.x, proc.y + 1, proc.width, proc.height)
2301 if proc == selectedProcess then
2302 paintutils.drawLine(proc.x, proc.y, proc.x + proc.width - 1, proc.y, theme.window.titlebar.backgroundSelected)
2303 else
2304 paintutils.drawLine(proc.x, proc.y, proc.x + proc.width - 1, proc.y, theme.window.titlebar.background)
2305 end
2306 term.setCursorPos(proc.x + math.floor((proc.width - string.len(proc.title)) / 2), proc.y)
2307 term.setTextColor(theme.window.titlebar.text)
2308 term.write(proc.title)
2309
2310 if not proc.disableControls then
2311 term.setCursorPos(proc.x, proc.y)
2312 if proc == selectedProcess then
2313 term.setTextColor(theme.window.close)
2314 else
2315 term.setTextColor(theme.window.titlebar.text)
2316 end
2317 term.write("\7")
2318 if proc == selectedProcess then
2319 term.setTextColor(theme.window.minimize)
2320 else
2321 term.setTextColor(theme.window.titlebar.text)
2322 end
2323 term.write("\7")
2324 if proc == selectedProcess then
2325 term.setTextColor(theme.window.maximize)
2326 else
2327 term.setTextColor(theme.window.titlebar.text)
2328 end
2329 term.write("\7")
2330 end
2331 end
2332
2333 term.redirect(proc.window)
2334 proc.window.redraw()
2335 end
2336 end
2337
2338 local function drawNotifications()
2339 if not doNotDisturbEnabled then
2340 local prevCurorPosX, prevCurorPosY = term.getCursorPos()
2341 local prevTextColor = term.getTextColor()
2342 local prevTerm = term.current()
2343 term.redirect(native)
2344 local notiY = h + 1
2345 for i, v in pairs(notifications) do
2346 local length = 16
2347
2348 -- Text formatting
2349 -- Break down string into a list of words
2350 local words = {}
2351 local word = ""
2352
2353 for i = 1, #v.content do
2354 if string.sub(v.content, i, i) == " " then
2355 table.insert(words, word)
2356 word = ""
2357 else
2358 word = word .. string.sub(v.content, i, i)
2359 end
2360 end
2361 if word ~= "" then table.insert(words, word)end
2362 -- Piece together these words to make a line of text
2363 local lines = {}
2364 local line = ""
2365
2366 for wordNumber, word in pairs(words) do
2367 if string.len(word) + #line < length then
2368 if line == "" then
2369 line = word
2370 else
2371 line = line .. " " .. word
2372 end
2373 else
2374 table.insert(lines, line)
2375 line = word
2376 end
2377 end
2378 if line ~= "" then table.insert(lines, line) end
2379
2380 local x, y = w - 20, nil
2381 notiY = notiY - (#lines + 4) - 1
2382 y = notiY
2383 paintutils.drawFilledBox(x, y, w, y + #lines + 3, colors.white)
2384
2385 -- Draw modal border
2386 term.setCursorPos(x + 1, y + #lines + 3)
2387 term.setBackgroundColor(colors.lightGray)
2388 term.setTextColor(colors.white)
2389 term.write(string.rep("\143", 19))
2390 term.setCursorPos(x, y + #lines + 3)
2391 term.write("\138")
2392
2393 term.setBackgroundColor(colors.white)
2394 term.setTextColor(colors.lightGray)
2395 term.setCursorPos(x + 1, y)
2396 term.write(string.rep("\131", 19))
2397 term.setCursorPos(x, y)
2398 term.write("\151")
2399 for i = 1, #lines + 2 do
2400 term.setCursorPos(x, y + i)
2401 term.write("\149")
2402 end
2403 term.setCursorPos(w, y)
2404 term.write("\129")
2405 term.setCursorPos(w, y + #lines + 3)
2406 term.write("\144")
2407
2408 term.setCursorPos(w, #lines + 2)
2409
2410 term.setCursorPos(x + 1, y + 1)
2411 term.setTextColor(colors.black)
2412 draw.overflowWrite(v.title, 19)
2413 term.setCursorPos(w - 1, y + 1)
2414 term.write("×")
2415
2416 if v.type then
2417 term.setTextColor(colors.gray)
2418 for i, line in pairs(lines) do
2419 term.setCursorPos(x + 3, y + 2 + i)
2420 term.write(line)
2421 end
2422
2423 if v.type == "info" then
2424 term.setCursorPos(x + 1, y + 3)
2425 term.setTextColor(colors.blue)
2426 term.write('i')
2427 elseif v.type == "warning" then
2428 term.setCursorPos(x + 1, y + 3)
2429 term.setTextColor(colors.orange)
2430 term.write('!')
2431 elseif v.type == "error" then
2432 term.setCursorPos(x + 1, y + 3)
2433 term.setTextColor(colors.red)
2434 term.write('\215')
2435 end
2436 end
2437 v.closePosX = w - 1
2438 v.closePosY = y + 1
2439 end
2440 term.redirect(prevTerm)
2441 term.setTextColor(prevTextColor)
2442 term.setCursorPos(prevCurorPosX, prevCurorPosY)
2443 end
2444 end
2445
2446 local function drawProcesses()
2447 term.redirect(native)
2448 term.setBackgroundColor(theme.desktop.background)
2449 term.clear()
2450 term.setCursorPos(1,5)
2451
2452 if selectedProcess.minimized then
2453 wm.selectProcess(titlebarID or 1)
2454 else
2455 drawProcess(selectedProcess)
2456 end
2457
2458 if selectedProcess.minimized == true then
2459 selectedProcessID = 1
2460 selectedProcess = processes[1]
2461 end
2462
2463 for i, v in pairs(processes) do
2464 if i ~= selectedProcessID then
2465 if v.minimized then
2466 v.window.setVisible(false)
2467 else
2468 drawProcess(v)
2469 end
2470 end
2471 end
2472 updateProcesses()
2473 drawNotifications()
2474 end
2475
2476 function wm.selectProcess(pid)
2477 if processes[pid] then
2478 selectedProcessID = pid
2479 selectedProcess = processes[pid]
2480 selectedProcess.window.setVisible(true)
2481 selectedProcess.window.redraw()
2482 drawProcesses()
2483 end
2484 end
2485
2486 function wm.selectProcessAfter(pid, time)
2487 sleep(time)
2488 wm.selectProcess(pid)
2489 end
2490
2491 function wm.unminimizeProcess(pid)
2492 processes[pid].minimized = false
2493 end
2494
2495 function wm.listProcesses()
2496 return processes
2497 end
2498
2499 function wm.getSelectedProcess()
2500 return selectedProcess
2501 end
2502
2503 function wm.getSelectedProcessID()
2504 return selectedProcessID
2505 end
2506
2507 function wm.pushNotification(title, desc, type)
2508 table.insert(notifications, 1, {
2509 title = title,
2510 content = desc,
2511 type = type
2512 })
2513 table.insert(notificationCenter, notifications[1])
2514 drawProcesses()
2515 end
2516
2517 function wm.endProcess(pid)
2518 local proc = processes[pid]
2519 if proc then
2520 if pid == selectedProcessID then
2521 wm.selectProcess(titlebarID)
2522 end
2523 proc.window.setVisible(false)
2524 processes[pid] = nil
2525 drawProcesses()
2526 end
2527 end
2528
2529 local function removeDeadProcesses()
2530 for i, v in pairs(processes) do
2531 if coroutine.status(v.coroutine) == "dead" then
2532 wm.endProcess(i)
2533 end
2534 end
2535 end
2536
2537 local function contains(tbl, elem)
2538 for i, v in pairs(tbl) do
2539 if elem == v then
2540 return true
2541 end
2542 end
2543 return false
2544 end
2545
2546 local function isKeyDown(id)
2547 for i, v in pairs(keysDown) do
2548 if v == id then
2549 return i
2550 end
2551 end
2552 end
2553
2554 function wm.getSize()
2555 return native.getSize()
2556 end
2557
2558 function wm.changeSettings(pid, newSettings)
2559 if not newSettings.title and type(path) == "string" then
2560 newSettings.title = fs.getName(path)
2561 if newSettings.title:sub(-4) == ".lua" then
2562 newSettings.title = newSettings.title:sub(1, -5)
2563 end
2564 elseif type(path) ~= "string" then
2565 newSettings.title = "Untitled"
2566 end
2567
2568 if newSettings.showTitlebar == nil or newSettings.showTitlebar == true then
2569 newSettings.showTitlebar = true
2570 end
2571
2572 if not newSettings.width then
2573 newSettings.width = 20
2574 end
2575 if not newSettings.height then
2576 newSettings.height = 10
2577 end
2578
2579 if not newSettings.x then
2580 newSettings.x = math.ceil(w / 2 - (newSettings.width / 2))
2581 end
2582 if not newSettings.y then
2583 if (newSettings.height % 2) == 0 then
2584 newSettings.y = math.ceil(h / 2 - (newSettings.height / 2))
2585 else
2586 newSettings.y = math.ceil(h / 2 - (newSettings.height / 2)) + 1
2587 end
2588 end
2589 local process = processes[pid]
2590 newSettings.path = process.path
2591 newSettings.window = process.window
2592 newSettings.coroutine = process.coroutine
2593
2594 processes[pid] = newSettings
2595 end
2596
2597 function wm.createProcess(path, settings)
2598 lastProcID = lastProcID + 1
2599 if not settings.title and type(path) == "string" then
2600 settings.title = fs.getName(path)
2601 if settings.title:sub(-4) == ".lua" then
2602 settings.title = settings.title:sub(1, -5)
2603 end
2604 elseif type(path) ~= "string" and not settings.title then
2605 settings.title = "Untitled"
2606 end
2607
2608 if settings.showTitlebar == nil or settings.showTitlebar == true then
2609 settings.showTitlebar = true
2610 end
2611
2612 if not settings.width then
2613 settings.width = 20
2614 end
2615 if not settings.height then
2616 settings.height = 10
2617 end
2618
2619 if not settings.x then
2620 settings.x = math.ceil(w / 2 - (settings.width / 2))
2621 end
2622 if not settings.y then
2623 if (settings.height % 2) == 0 then
2624 settings.y = math.ceil(h / 2 - (settings.height / 2))
2625 else
2626 settings.y = math.ceil(h / 2 - (settings.height / 2)) + 1
2627 end
2628 end
2629
2630 settings.path = path
2631
2632 local newTable = table
2633 newTable["contains"] = contains
2634
2635 local function run()
2636 end
2637
2638 log(type(path))
2639
2640 local req = _G.require
2641
2642 if type(path) == "string" then
2643 run = function()
2644 _G.require = require
2645 _G.wm = wm
2646 _G.id = lastProcID
2647 _G.table = newTable
2648 _G.shell = shell
2649
2650 os.run({
2651 _G = _G,
2652 package = package
2653 }, path)
2654 sleep(1000)
2655 end
2656 elseif type(path) == "function" then
2657 log("running as func")
2658 run = function()
2659 local wm = wm
2660 local id = lastProcID
2661 local table = newTable
2662 local textbox = textbox
2663
2664 path(textbox)
2665 end
2666 end
2667
2668 settings.window = window.create(native, settings.x, settings.y, settings.width, settings.height)
2669 term.redirect(settings.window)
2670 settings.coroutine = coroutine.create(run)
2671 coroutine.resume(settings.coroutine)
2672 settings.window.redraw()
2673
2674 table.insert(processes, lastProcID, settings)
2675 return lastProcID
2676 end
2677
2678 --[[function wm.createService(path) -- TODO: Write services
2679
2680 end]]
2681
2682 local loginID = wm.createProcess("/bin/ui/login.lua", {
2683 showTitlebar = true,
2684 dontShowInTitlebar = true,
2685 disableControls = true,
2686 title = "Login",
2687 height = 7,
2688 y = (h / 2) - 4
2689 })
2690 wm.selectProcess(loginID)
2691
2692 drawProcesses()
2693
2694 while true do
2695 local e = {os.pullEventRaw()}
2696
2697 if string.sub(e[1], 1, 6) == "mouse_" and not selectedProcess.minimized then
2698 local m, x, y = e[2], e[3], e[4]
2699 -- Notification hide
2700 if e[1] == "mouse_click" and #notifications > 0 then
2701 for i, noti in pairs(notifications) do
2702 if noti.closePosX == x and noti.closePosY == y then
2703 notifications[i] = nil
2704 drawProcesses()
2705 end
2706 end
2707 end
2708 -- Resize checking
2709
2710 if e[1] == "mouse_click" then
2711 end
2712 if resizeStartX ~= nil and m == 2 then
2713 if e[1] == "mouse_up" then
2714 resizeStartX = nil
2715 resizeStartY = nil
2716 resizeStartW = nil
2717 resizeStartH = nil
2718 drawProcesses()
2719 elseif e[1] == "mouse_drag" then
2720 selectedProcess.width = (resizeStartW + (x - resizeStartX))
2721 selectedProcess.height = (resizeStartH + (y - resizeStartY))
2722 term.redirect(selectedProcess.window)
2723 coroutine.resume(selectedProcess.coroutine, "term_resize")
2724 drawProcesses()
2725 end
2726 -- Moving windows & x and max / min buttons
2727 elseif e[1] ~= "mouse_move" and not selectedProcess.minimized and not selectedProcess.maximazed and selectedProcess.showTitlebar and x >= selectedProcess.x and x <= selectedProcess.x + selectedProcess.width - 1 and y == selectedProcess.y and e[1] == "mouse_click" and mvmtX == nil then
2728 if not selectedProcess.disableControls and x == selectedProcess.x and e[1] == "mouse_click" then
2729 wm.endProcess(selectedProcessID)
2730 drawProcesses()
2731 elseif not selectedProcess.disableControls and x == selectedProcess.x + 1 and e[1] == "mouse_click" then
2732 selectedProcess.minimized = true
2733 drawProcesses()
2734 elseif not selectedProcess.disableControls and x == selectedProcess.x + 2 and e[1] == "mouse_click" then
2735 selectedProcess.maximazed = true
2736 term.redirect(selectedProcess.window)
2737 coroutine.resume(selectedProcess.coroutine, "term_resize")
2738 drawProcesses()
2739 else
2740 mvmtX = x - selectedProcess.x
2741 drawProcesses()
2742 end
2743 -- Max window controls
2744 elseif e[1] ~= "mouse_move" and selectedProcess.maximazed == true and y == 2 then
2745 if not selectedProcess.disableControls and x == 1 and e[1] == "mouse_click" then
2746 wm.endProcess(selectedProcessID)
2747 drawProcesses()
2748 elseif not selectedProcess.disableControls and x == 2 and e[1] == "mouse_click" then
2749 selectedProcess.minimized = true
2750 drawProcesses()
2751 elseif not selectedProcess.disableControls and x == 3 then
2752 selectedProcess.maximazed = false
2753 term.redirect(selectedProcess.window)
2754 coroutine.resume(selectedProcess.coroutine, "term_resize")
2755 drawProcesses()
2756 end
2757 -- Window movement
2758 elseif e[1] ~= "mouse_move" and not selectedProcess.maximazed and selectedProcess.showTitlebar and x >= selectedProcess.x - 1 and x <= selectedProcess.x + selectedProcess.width and y >= selectedProcess.y - 1 and y <= selectedProcess.y + 1 and e[1] == "mouse_drag" or e[1] == "mouse_up" and mvmtX ~= nil then
2759 if e[1] == "mouse_drag" and mvmtX then
2760 selectedProcess.x = x - mvmtX + 1
2761 selectedProcess.y = y
2762 drawProcesses()
2763 else
2764 mvmtX = nil
2765 end
2766 elseif e[1] ~= "mouse_move" and not selectedProcess.disallowResizing and x == selectedProcess.x + selectedProcess.width - 1 and y == selectedProcess.y + selectedProcess.height and m == 2 then
2767 if e[1] == "mouse_click" then
2768 resizeStartX = x
2769 resizeStartY = y
2770 resizeStartW = selectedProcess.width
2771 resizeStartH = selectedProcess.height
2772 log("resize start")
2773 end
2774 -- Passing events (not maximazed)
2775 elseif e[1] ~= "mouse_move" and not selectedProcess.maximazed and x >= selectedProcess.x and x <= selectedProcess.x + selectedProcess.width - 1 and y >= selectedProcess.y and y <= selectedProcess.y + selectedProcess.height - 1 then
2776 term.redirect(selectedProcess.window)
2777 local pass = {}
2778 if e[1] == "mouse_move" and x == nil then
2779 pass = {
2780 e[1],
2781 m
2782 }
2783 else
2784 if selectedProcess.showTitlebar == true then
2785 pass = {
2786 e[1],
2787 m,
2788 x - selectedProcess.x + 1,
2789 y - selectedProcess.y
2790 }
2791 else
2792 pass = {
2793 e[1],
2794 m,
2795 x - selectedProcess.x + 1,
2796 y - selectedProcess.y + 1
2797 }
2798 end
2799 end
2800 coroutine.resume(selectedProcess.coroutine, table.unpack(pass))
2801 -- Passing events (maximazed)
2802 elseif e[1] ~= "mouse_move" and selectedProcess.maximazed and y > 2 then
2803 term.redirect(selectedProcess.window)
2804 local pass = {}
2805 if e[1] == "mouse_move" and x == nil then
2806 pass = {
2807 e[1],
2808 m
2809 }
2810 else
2811 if selectedProcess.showTitlebar == true then
2812 pass = {
2813 e[1],
2814 m,
2815 x,
2816 y - 2
2817 }
2818 else
2819 pass = {
2820 e[1],
2821 m,
2822 x,
2823 y - 1
2824 }
2825 end
2826 end
2827 coroutine.resume(selectedProcess.coroutine, table.unpack(pass))
2828 elseif e[1] == "mouse_click" then
2829 for i, v in pairs(processes) do
2830 if x >= v.x and x <= v.x + v.width - 1 and y >= v.y and y <= v.y + v.height - 1 then
2831 wm.selectProcess(i)
2832 local pass = {}
2833 if selectedProcess.showTitlebar == true then
2834 pass = {
2835 e[1],
2836 m,
2837 x - selectedProcess.x + 1,
2838 y - selectedProcess.y
2839 }
2840 else
2841 pass = {
2842 e[1],
2843 m,
2844 x - selectedProcess.x + 1,
2845 y - selectedProcess.y + 1
2846 }
2847 end
2848 term.redirect(selectedProcess.window)
2849 coroutine.resume(selectedProcess.coroutine, table.unpack(pass))
2850 break
2851 end
2852 end
2853 end
2854 elseif e[1] == "char" or string.sub(e[1], 1, 3) == "key" or e[1] == "paste" then
2855 if e[1] == "key" then
2856 table.insert(keysDown, e[2])
2857 elseif e[1] == "key_up" then
2858 if isKeyDown(e[2]) then
2859 table.remove(keysDown, isKeyDown(e[2]))
2860 end
2861 end
2862
2863 if isKeyDown(keys.leftCtrl) and isKeyDown(keys.leftShift) and isKeyDown(keys.delete) then
2864 wm.selectProcess(wm.createProcess("/bin/ui/tskmgr.lua", {
2865 width = 30,
2866 height = 15,
2867 title = "Task Manager"
2868 }))
2869 drawProcesses()
2870 elseif isKeyDown(keys.leftCtrl) and isKeyDown(keys.leftShift) and isKeyDown(keys.c) then
2871 wm.selectProcess(wm.createProcess("/bin/shell.lua", {
2872 width = 40,
2873 height = 15,
2874 title = "Shell"
2875 }))
2876 drawProcesses()
2877 end
2878 term.redirect(selectedProcess.window)
2879 coroutine.resume(selectedProcess.coroutine, table.unpack(e))
2880 elseif e[1] == "wm_fancyshutdown" then
2881 term.redirect(native)
2882 shell.run("/bin/ui/fancyshutdown.lua", e[2])
2883 elseif e[1] == "wm_login" or e[1] == "wm_titlebardeath" then
2884 titlebarID = wm.createProcess("/bin/ui/titlebar.lua", {
2885 x = 1,
2886 y = 1,
2887 width = w,
2888 height = 1,
2889 showTitlebar = false,
2890 dontShowInTitlebar = true
2891 })
2892 wm.selectProcess(titlebarID)
2893 if e[1] == "wm_login" then
2894 wm.currentUser = e[2]
2895 end
2896 else
2897 if e[1] == "wm_themeupdate" then
2898 theme = file.readTable("/etc/colors.cfg")
2899 end
2900 for i, v in pairs(processes) do
2901 term.redirect(v.window)
2902 coroutine.resume(v.coroutine, table.unpack(e))
2903 v.window.redraw()
2904 end
2905 drawProcesses()
2906 end
2907
2908 -- Update windows
2909 term.redirect(selectedProcess.window)
2910 removeDeadProcesses()
2911 for i, v in pairs(processes) do
2912 if i ~= selectedProcessID then
2913 term.redirect(v.window)
2914 coroutine.resume(v.coroutine, "keepalive")
2915 end
2916 end
2917 if selectedProcess.minimized then
2918 wm.selectProcess(titlebarID or 1)
2919 else
2920 drawProcess(selectedProcess)
2921 drawNotifications()
2922 end
2923 log(tostring(selectedProcess.minimized))
2924 end
2925end
2926
2927local function split(inputstr, sep)
2928 if sep == nil then
2929 sep = "%s"
2930 end
2931 local t={}
2932 for str in string.gmatch(inputstr, "([^"..sep.."]+)") do
2933 table.insert(t, str)
2934 end
2935 return t
2936end
2937
2938local oTerm = term.current()
2939local nTerm = window.create(term.current(),1,1,term.getSize())
2940nTerm.setVisible(false)
2941term.redirect(nTerm)
2942local function render()
2943 local w,h = nTerm.getSize()
2944 while true do
2945 for t=0,15,1 do
2946 oTerm.setPaletteColor(2^t,table.unpack({nTerm.getPaletteColor(2^t)}))
2947 end
2948 local ocursor = {nTerm.getCursorPos()}
2949 local otext = nTerm.getCursorBlink()
2950 oTerm.setCursorBlink(false)
2951 for t=1,h do
2952 oTerm.setCursorPos(1,t)
2953 oTerm.blit(nTerm.getLine(t))
2954 end
2955 oTerm.setCursorBlink(otext)
2956 oTerm.setCursorPos(table.unpack(ocursor))
2957 os.sleep(0)
2958 end
2959end
2960
2961local ok, err = xpcall(function()
2962 parallel.waitForAny(main, render)
2963end, function(err)
2964 local function errorScreen(error)
2965 term.redirect(term.native())
2966 term.setBackgroundColor(colors.red)
2967 term.clear()
2968 term.setTextColor(colors.white)
2969 term.setCursorPos(2, 2)
2970 term.write("System Crash")
2971 local w, h = term.getSize()
2972 local errorContentWindow = window.create(term.native(), 2, 4, w - 2, h - 3)
2973 errorContentWindow.setBackgroundColor(colors.red)
2974 errorContentWindow.setTextColor(colors.white)
2975 errorContentWindow.clear()
2976 term.redirect(errorContentWindow)
2977 print(error)
2978 term.redirect(term.native())
2979 term.setCursorPos(2, h - 1)
2980 term.write("Dumping logs...")
2981 dumpLogs()
2982 for i = 5, 1, -1 do
2983 term.setCursorPos(2, h - 1)
2984 term.write(("The system will restart in %d second(s)"):format(i))
2985 sleep(1)
2986 end
2987 os.reboot()
2988 end
2989 errorScreen(err)
2990end) stolen/16497-25.10.2020.0042/bin/ui/fancyshutdown.lua 0000777 0000000 0000000 00000001307 13745134001 016145 0 ustar term.setBackgroundColor(colors.cyan)
2991term.setPaletteColour(colors.cyan, 76/255, 153/255, 178/255)
2992term.setPaletteColour(colors.white, 1, 1, 1)
2993term.clear()
2994local args = { ... }
2995local w, h = term.getSize()
2996
2997term.setCursorPos(w / 2 - string.len("Goodbye") / 2, h / 2)
2998term.setTextColor(colors.white)
2999term.write("Goodbye")
3000term.setBackgroundColor(colors.black)
3001sleep(1)
3002
3003local startColors = {r = 76/255, g = 153/255, b = 178/255}
3004
3005for i = 1, 0, -0.1 do
3006 term.setPaletteColour(colors.cyan, startColors.r * i, startColors.g * i, startColors.b * i)
3007 term.setPaletteColour(colors.white, i, i, i)
3008 sleep()
3009end
3010
3011if args[1] == "shutdown" then
3012 os.shutdown()
3013elseif args[1] == "reboot" then
3014 os.reboot()
3015end stolen/16497-25.10.2020.0042/bin/ui/tskmgr.lua 0000777 0000000 0000000 00000003163 13745134001 014562 0 ustar local selectedID = 0
3016local procList
3017
3018local util = require("/lib/util")
3019local file = util.loadModule("file")
3020local theme = _G.wm.getTheme()
3021local wm = _G.wm
3022
3023local function draw()
3024 local w, h = term.getSize()
3025 term.setBackgroundColor(theme.main.background)
3026 term.clear()
3027 term.setTextColor(theme.menu.text)
3028 term.setCursorPos(2,1)
3029 term.setBackgroundColor(theme.menu.background)
3030 term.clearLine()
3031 term.write("New task")
3032 term.setCursorPos(2,2)
3033 term.clearLine()
3034 term.write("PID")
3035 term.setCursorPos(7, 2)
3036 term.write("Name")
3037 procList = wm.listProcesses()
3038 term.setTextColor(theme.main.text)
3039 local c = 3
3040 for i, v in pairs(procList) do
3041 term.setBackgroundColor(theme.main.background)
3042 term.setCursorPos(2, c)
3043 if selectedID == i then
3044 term.setBackgroundColor(theme.main.backgroundSecondary)
3045 term.clearLine()
3046 end
3047 term.write(i)
3048 term.setCursorPos(7, c)
3049 term.write(v.title)
3050 c = c + 1
3051 end
3052
3053 if contextShown then
3054 drawContextMenu()
3055 end
3056end
3057
3058while true do
3059 draw()
3060 local e = {os.pullEvent()}
3061 if e[1] == "mouse_click" then
3062 local m, x, y = e[2], e[3], e[4]
3063 if m == 1 then
3064 local c = 3
3065 for i, v in pairs(procList) do
3066 if y == c then
3067 selectedID = i
3068 break
3069 end
3070 c = c + 1
3071 end
3072 if x > 1 and x < 7 and y == 1 then
3073 wm.selectProcess(wm.createProcess("/bin/ui/run.lua",
3074 {
3075 width = 24,
3076 height = 7,
3077 disallowResizing = true
3078 }))
3079 end
3080 end
3081 elseif e[1] == "key" then
3082 local key = e[2]
3083 if key == keys.delete then
3084 wm.endProcess(selectedID)
3085 end
3086 end
3087end stolen/16497-25.10.2020.0042/bin/ui/titlebar.lua 0000777 0000000 0000000 00000005542 13745134001 015064 0 ustar local ok, err = pcall(function()
3088 local menuPID
3089 local hiddenNames = {"menu", "titlebar"}
3090 local w = term.getSize()
3091 local running = {}
3092 local procList
3093
3094 local util = require("/lib/util")
3095 local nfte = require("/lib/nfte")
3096 local file = util.loadModule("file")
3097 local theme = _G.wm.getTheme()
3098 local wm = _G.wm
3099
3100 for i, v in pairs(_G) do
3101 write(i .. " ")
3102 end
3103
3104 local function drawTime()
3105 local time = " " .. textutils.formatTime(os.time(), false)
3106 term.setTextColor(theme.menu.textSecondary)
3107 term.setCursorPos(w - string.len(time) + 1, 1)
3108 term.write(time)
3109 end
3110
3111 local function draw()
3112 procList = wm.listProcesses()
3113 term.setBackgroundColor(theme.menu.background)
3114 term.clear()
3115 drawTime()
3116 term.setCursorPos(1,1)
3117 if menuPID and procList[menuPID] then
3118 term.setBackgroundColor(theme.menu.background)
3119 term.setTextColor(theme.menu.text)
3120 else
3121 menuPID = nil
3122 end
3123 term.write("@ ")
3124
3125 for i, v in pairs(procList) do
3126 if not v.dontShowInTitlebar then
3127 local x, y = term.getCursorPos()
3128 v.startX = x
3129 if v == wm.getSelectedProcess() then
3130 term.setTextColor(theme.menu.text)
3131 else
3132 term.setTextColor(theme.menu.textSecondary)
3133 end
3134 local ins = v
3135 term.write(v.title .. " ")
3136 local x, y = term.getCursorPos()
3137 v.endX = x
3138 v.pid = i
3139 table.insert(running, v)
3140 end
3141 end
3142 end
3143
3144
3145 local function event()
3146 while true do
3147 local e = {os.pullEvent()}
3148 draw()
3149 if e[1] == "mouse_click" then
3150 local m, x, y = e[2], e[3], e[4]
3151 if x == 1 and y == 1 then
3152 if menuPID and wm.listProcesses()[menuPID] == nil then
3153 menuPID = nil
3154 else
3155 if menuPID ~= nil then
3156 wm.endProcess(menuPID)
3157 menuPID = nil
3158 else
3159 menuPID = wm.createProcess("/bin/ui/menu.lua", {
3160 x = 1,
3161 y = 2,
3162 width = 20,
3163 height = 14,
3164 showTitlebar = false,
3165 dontShowInTitlebar = true
3166 })
3167
3168 wm.selectProcess(menuPID)
3169 end
3170 end
3171 else
3172 local pid
3173 pid = nil -- just in case...
3174 for i, v in pairs(running) do
3175 if x >= v.startX and x <= v.endX then
3176 pid = v.pid
3177 end
3178 end
3179
3180 if pid then
3181 if procList[pid].minimized then
3182 wm.unminimizeProcess(pid)
3183 end
3184 wm.selectProcess(pid)
3185 end
3186 end
3187 elseif e[1] == "wm_themeupdate" then
3188 theme = file.readTable("/etc/colors.cfg")
3189 end
3190 end
3191 end
3192
3193 local function time()
3194 while true do
3195 drawTime()
3196 sleep(1)
3197 end
3198 end
3199
3200 parallel.waitForAll(time, event)
3201end)
3202
3203if not ok then os.queueEvent("wm_titlebardeath") end stolen/16497-25.10.2020.0042/bin/ui/menu.lua 0000777 0000000 0000000 00000015660 13745134001 014224 0 ustar local tw, th = wm.getSize()
3204local w, h = term.getSize()
3205
3206local recent = {}
3207local pinned = {}
3208
3209local util = require("/lib/util")
3210local textbox = require("/lib/textbox")
3211local scroll = require("/lib/scrollwindow")
3212local draw = require("/lib/draw")
3213
3214local file = util.loadModule("file")
3215local theme = _G.wm.getTheme()
3216
3217local search = textbox.new(3, h - 1, w - 7, nil, "Search", nil, theme.userInput.background, theme.userInput.text)
3218local searchWindow = scroll.new(2, 2, w - 3, h - 4, {}, theme.menu.background, false)
3219local pinnedWindow = scroll.new(2, 2, w - 3, h - 4, {}, theme.menu.background, true)
3220local wm = _G.wm
3221local query
3222local searchResults = {}
3223
3224local function setColors(text, background)
3225 term.setTextColor(text)
3226 term.setBackgroundColor(background)
3227end
3228
3229local function searchSystem(query, depth)
3230 if not depth then depth = 10 end
3231 local found = {}
3232
3233 local function searchDir(path, query, iteration, depth)
3234 for _, file in pairs(fs.list(path)) do
3235 if file:sub(1, 1) ~= "." then
3236 if fs.isDir(fs.combine(path, file)) and iteration < depth then
3237 searchDir(fs.combine(path, file), query, iteration + 1, depth)
3238 else
3239 if string.find(string.lower(file), string.lower(query)) then
3240 table.insert(found, fs.combine(path, file))
3241 end
3242 end
3243 end
3244 end
3245 end
3246
3247 searchDir("/", query, 1, depth)
3248 return found
3249end
3250
3251local function none() end
3252
3253local function updateRecent()
3254 file.writeTable("/etc/menu/recent.cfg", recent)
3255end
3256local function loadRecent()
3257 recent = file.readTable("/etc/menu/recent.cfg")
3258end
3259
3260local function updatePinned()
3261 file.writeTable("/etc/menu/pinned.cfg", pinned)
3262end
3263local function loadPinned()
3264 pinned = file.readTable("/etc/menu/pinned.cfg")
3265end
3266
3267local function cleanRecent(path)
3268 for i, v in pairs(recent) do
3269 if path == v.path then
3270 table.remove(recent, i)
3271 end
3272 end
3273end
3274
3275local function drawUI()
3276 term.setBackgroundColor(theme.menu.background)
3277 term.clear()
3278 local sw = w - 3
3279 if not query then
3280 searchWindow.setVisible(false)
3281 pinnedWindow.setVisible(true)
3282 pinnedWindow.setElements({})
3283
3284 local pos = 1
3285 pinnedWindow.addElement(scroll.createElement(2, pos, "Pinned", colors.white, theme.menu.background, none))
3286 pos = pos + 1
3287 pinnedWindow.addElement(scroll.createElement(1, pos, string.rep("\140", sw), colors.lightGray, theme.menu.background, none))
3288 pos = pos + 1
3289 for i, v in pairs(pinned) do
3290 pinnedWindow.addElement(scroll.createElement(2, pos, draw.overflow(v.title, sw), colors.white, theme.menu.background, function()
3291 wm.endProcess(id)
3292 wm.selectProcess(wm.createProcess(v.path, v.insettings))
3293 cleanRecent(v.path)
3294 table.insert(recent, 1, {
3295 name = v.insettings.title or fs.getName(v.path),
3296 path = v.path,
3297 settings = {
3298 width = v.insettings.width,
3299 height = v.insettings.height,
3300 title = v.insettings.title,
3301 }
3302 })
3303 updateRecent()
3304 end))
3305 pos = pos + 1
3306 end
3307
3308 pos = pos + 1
3309 pinnedWindow.addElement(scroll.createElement(2, pos, "Recent", colors.white, theme.menu.background, none))
3310 pos = pos + 1
3311 pinnedWindow.addElement(scroll.createElement(1, pos, string.rep("\140", sw), colors.lightGray, theme.menu.background, none))
3312 pos = pos + 1
3313 for i, v in pairs(recent) do
3314 pinnedWindow.addElement(scroll.createElement(2, pos, draw.overflow(v.name, sw), colors.white, theme.menu.background, function()
3315 wm.endProcess(id)
3316 wm.selectProcess(wm.createProcess(v.path, {}))
3317 cleanRecent(v.path)
3318 table.insert(recent, 1, {
3319 name = v.name,
3320 path = v.path,
3321 settings = v.settings
3322 })
3323 updateRecent()
3324 end))
3325 pos = pos + 1
3326 end
3327 if #recent == 0 then
3328 pinnedWindow.addElement(scroll.createElement(2, pos, draw.overflow("No recent apps", sw), colors.white, theme.menu.background, none))
3329 end
3330 pinnedWindow.redraw()
3331 else
3332 local pos = 1
3333 local elements = {}
3334 searchWindow.setVisible(true)
3335 pinnedWindow.setVisible(false)
3336 searchWindow.setElements({})
3337 if #searchResults == 0 then
3338 searchWindow.addElement(scroll.createElement(math.ceil(searchWindow.getWidth() / 2 - string.len("No results") / 2), pos, "No results.", colors.lightGray, theme.menu.background, function() end))
3339 else
3340 searchWindow.addElement(scroll.createElement(1, pos, "Found " .. #searchResults .. " results", colors.white, theme.menu.background, none))
3341 pos = pos + 1
3342 searchWindow.addElement(scroll.createElement(1, pos, string.rep("\140", sw), colors.lightGray, theme.menu.background, none))
3343 pos = pos + 1
3344
3345 for i, v in pairs(searchResults) do
3346 local function addFunction()
3347 wm.endProcess(id)
3348 wm.selectProcess(wm.createProcess(v, {}))
3349 cleanRecent(v)
3350 table.insert(recent, 1, {
3351 name = fs.getName(v),
3352 path = v,
3353 settings = {}
3354 })
3355 updateRecent()
3356 end
3357
3358 searchWindow.addElement(scroll.createElement(2, pos, draw.overflow(fs.getName(v), sw), colors.white, theme.menu.background, addFunction))
3359 pos = pos + 1
3360 local text = fs.getDir(v)
3361 if fs.getDir(v) == "" then
3362 text = "Root"
3363 end
3364 searchWindow.addElement(scroll.createElement(2, pos, draw.overflow(text, sw), colors.lightGray, theme.menu.background, addFunction))
3365 pos = pos + 1
3366 searchWindow.addElement(scroll.createElement(2, pos, "", colors.lightGray, theme.menu.background, function() end))
3367 pos = pos + 1
3368 end
3369 searchWindow.removeElement(#searchWindow.getElements())
3370 end
3371 searchWindow.redraw()
3372 end
3373
3374 term.setBackgroundColor(colors.red)
3375 term.setTextColor(colors.white)
3376 term.setCursorPos(w - 2, h - 1)
3377 term.write("O")
3378 term.setCursorPos(w - 1, h - 2)
3379 term.setBackgroundColor(theme.menu.background)
3380 draw.drawBorder(w - 2, h - 1, 1, 1, colors.red)
3381
3382 term.setCursorPos(w, h - 1)
3383 search.redraw()
3384 term.setCursorPos(w - 1, h - 2)
3385 term.setBackgroundColor(theme.menu.background)
3386 draw.drawBorder(3, h - 1, w - 7, 1, theme.userInput.background)
3387end
3388
3389if not fs.exists("/etc/menu/recent.cfg") then
3390 updateRecent()
3391end
3392
3393loadRecent()
3394loadPinned()
3395drawUI()
3396
3397while true do
3398 local e = {os.pullEvent()}
3399 if e[1] == "mouse_click" then
3400 local m, x, y = e[2], e[3], e[4]
3401 if x == w - 2 and y == h - 1 then
3402 wm.endProcess(id)
3403 wm.selectProcess(wm.createProcess("/bin/ui/shutdown.lua", {
3404 height = 6,
3405 showTitlebar = false,
3406 dontShowInTitlebar = true,
3407 title = "Power"
3408 }))
3409 elseif x >= 2 and x <= w - 5 and y == h - 1 then
3410 query = search.select()
3411 if query == "" then query = nil end
3412 if query then
3413 searchResults = searchSystem(query)
3414 drawUI()
3415 end
3416 end
3417 elseif e[1] == "wm_themeupdate" then
3418 theme = file.readTable("/etc/colors.cfg")
3419 end
3420 local found = searchWindow.checkEvents(e)
3421 pinnedWindow.checkEvents(e)
3422end stolen/16497-25.10.2020.0042/bin/ui/about.lua 0000777 0000000 0000000 00000004070 13745134001 014363 0 ustar local util = require("util")
3423local file = util.loadModule("file")
3424local theme = _G.wm.getTheme()
3425local sw = require("/lib/scrollwindow")
3426local w, h = term.getSize()
3427local elements = {
3428 sw.createElement(1, 1, "About zWM", theme.main.textBold),
3429 sw.createElement(1, 2, "Created by znepb (znepb.me)", theme.main.text),
3430 sw.createElement(1, 3, "Licensed under MIT", theme.main.text),
3431 sw.createElement(1, 5, "API Credits", theme.main.textBold),
3432 sw.createElement(1, 6, "sha256 by GravityScore", theme.main.text),
3433 sw.createElement(1, 7, "json.lua by ElvishJerricco", theme.main.text),
3434 sw.createElement(1, 8, "nfte by LDDestroier", theme.main.text),
3435}
3436local scroll = sw.new(2, 2, w - 2, h - 2, elements, theme.main.background, true)
3437
3438local function draw()
3439 local w, h = term.getSize()
3440 term.setCursorPos(2,2)
3441 term.setBackgroundColor(theme.main.background)
3442 term.clear()
3443 scroll.resize(w - 2, h - 1)
3444 scroll.setElements(elements)
3445 scroll.scrollToTop()
3446 scroll.redraw()
3447
3448 local foregroundColor = theme.window.titlebar.background
3449
3450 if wm.getSelectedProcessID() == id then
3451 foregroundColor = theme.window.titlebar.backgroundSelected
3452 end
3453
3454 for i = 1, h - 1 do
3455 term.setCursorPos(1, i)
3456 term.setTextColor(foregroundColor)
3457 term.setBackgroundColor(theme.main.background)
3458 term.write("\149")
3459 end
3460 for i = 1, h - 1 do
3461 term.setCursorPos(w, i)
3462 term.setTextColor(theme.main.background)
3463 term.setBackgroundColor(foregroundColor)
3464 term.write("\149")
3465 end
3466 term.setCursorPos(2, h)
3467 term.setTextColor(theme.main.background)
3468 term.setBackgroundColor(foregroundColor)
3469 term.write(string.rep("\143", w - 2))
3470
3471 term.setCursorPos(1, h)
3472 term.setTextColor(theme.main.background)
3473 term.setBackgroundColor(foregroundColor)
3474 term.write("\138")
3475 term.setCursorPos(w, h)
3476 term.setTextColor(theme.main.background)
3477 term.setBackgroundColor(foregroundColor)
3478 term.write("\133")
3479end
3480
3481while true do
3482 draw()
3483 local e = {os.pullEvent()}
3484 scroll.checkEvents(e)
3485end stolen/16497-25.10.2020.0042/bin/ui/shutdown.lua 0000777 0000000 0000000 00000004367 13745134001 015135 0 ustar local util = require("util")
3486local file = util.loadModule("file")
3487local theme = _G.wm.getTheme()
3488
3489local function centerText(text, y, offset)
3490 if not offset then offset = 0 end
3491 local w, h = term.getSize()
3492 term.setCursorPos(math.ceil(w / 2 - string.len(text) / 2) + offset, y)
3493 term.write(text)
3494end
3495
3496local function draw()
3497 term.setBackgroundColor(colors.white)
3498 term.clear()
3499 local w, h = term.getSize()
3500
3501 -- border
3502 local foregroundColor = theme.window.titlebar.background
3503
3504 if wm.getSelectedProcessID() == id then
3505 foregroundColor = theme.window.titlebar.backgroundSelected
3506 end
3507
3508 for i = 2, h - 1 do
3509 term.setCursorPos(1, i)
3510 term.setTextColor(foregroundColor)
3511 term.setBackgroundColor(colors.white)
3512 term.write("\149")
3513 end
3514 for i = 2, h - 1 do
3515 term.setCursorPos(w, i)
3516 term.setTextColor(colors.white)
3517 term.setBackgroundColor(foregroundColor)
3518 term.write("\149")
3519 end
3520 term.setCursorPos(2, h)
3521 term.setTextColor(colors.white)
3522 term.setBackgroundColor(foregroundColor)
3523 term.write(string.rep("\143", w - 2))
3524 term.setCursorPos(2, 1)
3525 term.setTextColor(foregroundColor)
3526 term.setBackgroundColor(colors.white)
3527 term.write(string.rep("\131", w - 2))
3528
3529 term.setCursorPos(1, h)
3530 term.setTextColor(colors.white)
3531 term.setBackgroundColor(foregroundColor)
3532 term.write("\138")
3533 term.setCursorPos(w, h)
3534 term.write("\133")
3535 term.setCursorPos(w, 1)
3536 term.write("\148")
3537
3538 term.setTextColor(foregroundColor)
3539 term.setBackgroundColor(colors.white)
3540 term.setCursorPos(1, 1)
3541 term.write("\151")
3542
3543 term.setBackgroundColor(colors.white)
3544 term.setTextColor(colors.red)
3545 centerText("Shutdown", 2, 1)
3546 term.setTextColor(colors.orange)
3547 centerText("Reboot", 3, 1)
3548 term.setTextColor(colors.lightGray)
3549 centerText("Cancel", 5, 1)
3550end
3551
3552draw()
3553
3554while true do
3555 local e = {os.pullEvent()}
3556 draw()
3557 if e[1] == "mouse_click" then
3558 local m, x, y = e[2], e[3], e[4]
3559 if y == 2 then
3560 os.queueEvent("wm_fancyshutdown", "shutdown")
3561 elseif y == 3 then
3562 os.queueEvent("wm_fancyshutdown", "reboot")
3563 elseif y == 5 then
3564 wm.endProcess(id)
3565 end
3566 end
3567end stolen/16497-25.10.2020.0042/bin/ui/login.lua 0000777 0000000 0000000 00000005572 13745134001 014371 0 ustar local textbox = require("/lib/textbox")
3568local util = require('/lib/util')
3569local sha256 = require("/lib/sha256")
3570local file = util.loadModule("file")
3571local w, h = term.getSize()
3572local theme = _G.wm.getTheme()
3573local username = textbox.new(2, 2, w - 2, nil, "Username", nil, theme.userInput.background, theme.userInput.text)
3574local password = textbox.new(2, 4, w - 2, "\7", "Password", nil, theme.userInput.background, theme.userInput.text)
3575
3576local logins = file.readTable("/etc/accounts.cfg")
3577--experiment
3578local usrRaw = ""
3579local pswrdRaw = ""
3580local errorText = "test"
3581
3582local function draw()
3583 local w, h = term.getSize()
3584 term.setBackgroundColor(theme.main.background)
3585 term.clear()
3586 username.redraw()
3587 password.redraw()
3588 term.setCursorPos(2,6)
3589 term.setBackgroundColor(theme.userInput.background)
3590 term.setTextColor(theme.userInput.text)
3591 term.write(" Login ")
3592 term.setCursorPos(10, 6)
3593 term.setBackgroundColor(theme.main.background)
3594 term.setTextColor(colors.red)
3595 term.write(errorText)
3596
3597 local foregroundColor = theme.window.titlebar.background
3598
3599 if wm.getSelectedProcessID() == id then
3600 foregroundColor = theme.window.titlebar.backgroundSelected
3601 end
3602
3603 for i = 1, h - 1 do
3604 term.setCursorPos(1, i)
3605 term.setTextColor(foregroundColor)
3606 term.setBackgroundColor(theme.main.background)
3607 term.write("\149")
3608 end
3609 for i = 1, h - 1 do
3610 term.setCursorPos(w, i)
3611 term.setTextColor(theme.main.background)
3612 term.setBackgroundColor(foregroundColor)
3613 term.write("\149")
3614 end
3615 term.setCursorPos(2, h)
3616 term.setTextColor(theme.main.background)
3617 term.setBackgroundColor(foregroundColor)
3618 term.write(string.rep("\143", w - 2))
3619
3620 term.setCursorPos(1, h)
3621 term.setTextColor(theme.main.background)
3622 term.setBackgroundColor(foregroundColor)
3623 term.write("\138")
3624 term.setCursorPos(w, h)
3625 term.setTextColor(theme.main.background)
3626 term.setBackgroundColor(foregroundColor)
3627 term.write("\133")
3628end
3629
3630draw()
3631while true do
3632 draw()
3633 local e = {os.pullEvent()}
3634 if e[1] == "mouse_click" then
3635 local m, x, y = e[2], e[3], math.ceil(e[4])
3636 if x >= 2 and x <= w - 2 and y == 2 then
3637 usrRaw, goToNext = username.select()
3638 if goToNext then
3639 pswrdRaw = password.select()
3640 end
3641 elseif x >= 2 and x <= w - 2 and y == 4 then
3642 pswrdRaw = password.select()
3643 elseif x >= 2 and x <= 7 and y == 6 then
3644 local found = false
3645 for i, v in pairs(logins) do
3646 if sha256(pswrdRaw) == v.passwordHash and v.name == usrRaw then
3647 os.queueEvent("wm_login", usrRaw)
3648 found = true
3649 wm.endProcess(id)
3650 end
3651 end
3652 if not found then
3653 errorText = "Incorrect"
3654 end
3655 end
3656 end
3657end
3658 stolen/16497-25.10.2020.0042/bin/ui/settings.lua 0000777 0000000 0000000 00000021502 13745134001 015110 0 ustar local selectedID = 0
3659local procList
3660
3661local util = require("/lib/util")
3662local file = util.loadModule("file")
3663local wm = _G.wm
3664local theme = wm.getTheme()
3665local native = term.current()
3666
3667local previewingThemeNumber = 1
3668local previewingTheme = "/bin/themes/" .. fs.list("/bin/themes")[previewingThemeNumber]
3669
3670local function rebootToApplyChanges()
3671 wm.selectProcess(wm.createProcess(function()
3672 local function draw()
3673 local theme = wm.getTheme()
3674 term.setBackgroundColor(theme.main.background)
3675 term.setTextColor(theme.main.text)
3676 term.setCursorPos(2, 2)
3677 term.clear()
3678 term.write("Reboot now to apply changes?")
3679
3680 term.setBackgroundColor(theme.userInput.background)
3681 term.setTextColor(theme.userInput.text)
3682 term.setCursorPos(2, 4)
3683 term.write(" OK ")
3684 term.setCursorPos(7, 4)
3685 term.write(" Cancel ")
3686 end
3687 while true do
3688 draw()
3689 local e = {os.pullEvent()}
3690 if e[1] == "mouse_click" then
3691 local m, x, y = e[2], e[3], e[4]
3692 if m == 1 then
3693 if x >= 2 and x <= 5 then
3694 os.queueEvent("wm_fancyshutdown", "reboot")
3695 elseif x >= 8 and x <= 14 then
3696 wm.endProcess(_G.wm.getSelectedProcessID())
3697 end
3698 end
3699 end
3700 end
3701 end, {
3702 title = "Reboot Now?",
3703 width = 30,
3704 height = 5
3705 }))
3706end
3707
3708local function drawSubmenu(title, info, y, selected, arrow)
3709 local function run(selected)
3710 local w, h = term.getSize()
3711 term.setBackgroundColor(theme.main.background)
3712 if selected then
3713 term.setBackgroundColor(theme.window.titlebar.backgroundSelected)
3714 end
3715 term.setTextColor(theme.main.text)
3716 term.setCursorPos(2, y)
3717 term.clearLine()
3718 term.write(title)
3719 term.setTextColor(theme.main.textBold)
3720 term.setCursorPos(w - 1, y)
3721 if arrow ~= false then
3722 term.write("\26")
3723 end
3724 term.setTextColor(theme.main.textSecondary)
3725 term.setCursorPos(2, y + 1)
3726 term.clearLine()
3727 term.write(info)
3728 end
3729 if selected then
3730 run(true)
3731 sleep(0.1)
3732 run(false)
3733 sleep(0.05)
3734 else
3735 run(false)
3736 end
3737end
3738
3739local function drawThemePreview(x, y, w, h, theme)
3740 local preview = window.create(native, x, y, w, h)
3741 term.redirect(preview)
3742 term.setBackgroundColor(theme.desktop.background)
3743 term.clear()
3744 term.setCursorPos(1, 1)
3745 term.setBackgroundColor(theme.menu.background)
3746 term.clearLine()
3747 term.setTextColor(theme.menu.textSecondary)
3748 term.write("@ ")
3749 term.setTextColor(theme.menu.text)
3750 term.write("Program")
3751
3752 local windowSizeX, windowSizeY = 20, 10
3753 if h - 2 < 10 then
3754 windowSizeY = h - 1
3755 end
3756 if w - 1 < 20 then
3757 windowSizeX = w - 1
3758 end
3759 paintutils.drawFilledBox(2, 3, windowSizeX, windowSizeY, theme.main.background)
3760 paintutils.drawLine(2, 3, windowSizeX, 3, theme.window.titlebar.backgroundSelected)
3761 term.setCursorPos(2, 3)
3762 term.setTextColor(theme.window.close)
3763 term.write("\7")
3764 term.setTextColor(theme.window.minimize)
3765 term.write("\7")
3766 term.setTextColor(theme.window.maximize)
3767 term.write("\7")
3768 term.setTextColor(theme.window.titlebar.text)
3769 term.setCursorPos((windowSizeX / 2 - string.len("Program") / 2) + 2, 3)
3770 term.write("Program")
3771
3772 term.setCursorPos(3, 4)
3773 if windowSizeY >= 9 then
3774 term.setCursorPos(3, 5)
3775 end
3776 term.setBackgroundColor(theme.main.background)
3777 term.setTextColor(theme.main.textBold)
3778 term.write("Bold text")
3779
3780 term.setCursorPos(3, 5)
3781 if windowSizeY >= 9 then
3782 term.setCursorPos(3, 6)
3783 end
3784 term.setTextColor(theme.main.text)
3785 term.write("Normal text")
3786
3787 term.setCursorPos(3, 6)
3788 if windowSizeY >= 9 then
3789 term.setCursorPos(3, 7)
3790 end
3791 term.setTextColor(theme.main.textSecondary)
3792 term.write("muted text (shh)")
3793
3794 term.setCursorPos(3, 7)
3795 if windowSizeY >= 10 then
3796 term.setCursorPos(3, 9)
3797 elseif windowSizeY >= 9 then
3798 term.setCursorPos(3, 8)
3799 end
3800 term.setBackgroundColor(theme.userInput.background)
3801 term.setTextColor(theme.userInput.text)
3802 term.write(" Button ")
3803
3804 term.redirect(native)
3805end
3806
3807local page = "main"
3808local previousPage = "main"
3809
3810local previousPages = {
3811 main = "main",
3812 personalization = "main",
3813 ["personalization/theme"] = "personalization",
3814 ccemux = "main"
3815}
3816
3817local function draw()
3818 local w, h = term.getSize()
3819 term.setBackgroundColor(theme.main.background)
3820 term.clear()
3821 if page == "main" then
3822 term.setCursorPos(2, 2)
3823 term.setTextColor(theme.main.textBold)
3824 term.write("Settings")
3825 drawSubmenu("Personalization", "Change the look of zwm", 4)
3826 if ccemux then
3827 drawSubmenu("CCEmuX", "Access configuration, data, etc.", 7)
3828 end
3829 elseif page == "personalization" then
3830 term.setCursorPos(2, 2)
3831 term.setTextColor(theme.main.textBold)
3832 term.setBackgroundColor(theme.window.titlebar.background)
3833 term.write(" \27 ")
3834 term.setBackgroundColor(theme.main.background)
3835 term.write(" Personalization")
3836
3837 drawSubmenu("Theme", "Change zwm's look system-wide", 4)
3838 elseif page == "personalization/theme" then
3839 term.setCursorPos(2, 2)
3840 term.setTextColor(theme.main.textBold)
3841 term.setBackgroundColor(theme.window.titlebar.background)
3842 term.write(" \27 ")
3843 term.setBackgroundColor(theme.main.background)
3844 term.write(" Theme")
3845
3846 local currentTheme = file.readTable("/etc/theme.cfg").currentTheme
3847
3848 term.setTextColor(theme.main.text)
3849 term.setCursorPos(2, h - 2)
3850 term.write("\17")
3851 term.setCursorPos(w - 1, h - 2)
3852 term.write("\16")
3853 local name = fs.getName(previewingTheme):sub(1, -7)
3854 local newName = name:sub(1, 1):upper() .. name:sub(2, string.len(name))
3855 local text = newName
3856 term.setCursorPos(w / 2 - string.len(text) / 2, h - 2)
3857 term.write(text)
3858
3859 if previewingTheme == currentTheme then
3860 local text = "Selected theme"
3861 term.setTextColor(theme.main.textSecondary)
3862 term.setCursorPos(w / 2 - string.len(text) / 2, h - 1)
3863 term.write(text)
3864 else
3865 local text = " Select "
3866 term.setBackgroundColor(theme.userInput.background)
3867 term.setTextColor(theme.userInput.text)
3868 term.setCursorPos(w / 2 - string.len(text) / 2, h - 1)
3869 term.write(text)
3870 end
3871 drawThemePreview(2, 4, w - 2, h - 7, file.readTable(previewingTheme))
3872 elseif page == "ccemux" then
3873 term.setCursorPos(2, 2)
3874 term.setTextColor(theme.main.textBold)
3875 term.setBackgroundColor(theme.window.titlebar.background)
3876 term.write(" \27 ")
3877 term.setBackgroundColor(theme.main.background)
3878 term.write(" CCEmuX")
3879
3880 drawSubmenu("Configuration", "Open CCEmuX Configuration", 4, nil, false)
3881 drawSubmenu("Data Directory", "Open this computer's data directory", 7, nil, false)
3882 end
3883end
3884
3885while true do
3886 draw()
3887 local e = {os.pullEvent()}
3888
3889 local w, h = term.getSize()
3890 if e[1] == "mouse_click" then
3891 local m, x, y = e[2], e[3], e[4]
3892 if m == 1 then
3893 if y >= 4 and y <= 5 and page == "main" then
3894 drawSubmenu("Personalization", "Change the look of zwm", 4, true)
3895 page = "personalization"
3896 elseif y >= 7 and y <= 8 and page == "main" then
3897 drawSubmenu("CCEmuX", "Access configuration, data, etc.", 7, true)
3898 page = "ccemux"
3899 elseif y >= 4 and y <= 5 and page == "personalization" then
3900 drawSubmenu("Theme", "Change zwm's look system-wide", 4, true)
3901 page = "personalization/theme"
3902 elseif y >= 4 and y <= 5 and page == "ccemux" and ccemux then
3903 drawSubmenu("Configuration", "Open CCEmuX Configuration", 4, true)
3904 ccemux.openConfig()
3905 elseif y >= 7 and y <= 8 and page == "ccemux" and ccemux then
3906 drawSubmenu("Data Directory", "Open this computer's data directory", 7, true)
3907 ccemux.openDataDir()
3908 elseif x == 2 and y == h - 2 and page == "personalization/theme" then
3909 if previewingThemeNumber == 1 then
3910 previewingThemeNumber = #fs.list("/bin/themes")
3911 else
3912 previewingThemeNumber = previewingThemeNumber - 1
3913 end
3914 previewingTheme = "/bin/themes/" .. fs.list("/bin/themes")[previewingThemeNumber]
3915 elseif x == w - 1 and y == h - 2 and page == "personalization/theme" then
3916 if previewingThemeNumber == #fs.list("/bin/themes") then
3917 previewingThemeNumber = 1
3918 else
3919 previewingThemeNumber = previewingThemeNumber + 1
3920 end
3921 previewingTheme = "/bin/themes/" .. fs.list("/bin/themes")[previewingThemeNumber]
3922 elseif y == h - 1 and page == "personalization/theme" then
3923 file.writeTable("/etc/theme.cfg", {currentTheme = previewingTheme})
3924 rebootToApplyChanges()
3925 elseif y == 2 and x >= 2 and x <= 5 and page ~= "main" then
3926 term.setTextColor(theme.main.textBold)
3927 term.setBackgroundColor(theme.window.titlebar.backgroundSelected)
3928 term.setCursorPos(2, 2)
3929 term.write(" \27 ")
3930 sleep(0.1)
3931 term.setBackgroundColor(theme.window.titlebar.background)
3932 term.setCursorPos(2, 2)
3933 term.write(" \27 ")
3934 sleep(0.05)
3935
3936 page = previousPages[page]
3937 end
3938 end
3939 end
3940end stolen/16497-25.10.2020.0042/bin/ui/run.lua 0000777 0000000 0000000 00000004020 13745134001 014050 0 ustar local textbox = require("/lib/textbox")
3941local w, h = term.getSize()
3942local box = textbox.new(2, 4, w - 2)
3943local util = require("util")
3944local file = util.loadModule("file")
3945local theme = _G.wm.getTheme()
3946
3947local function draw()
3948 local w, h = term.getSize()
3949 term.setBackgroundColor(colors.white)
3950 term.clear()
3951 term.setCursorPos(2,2)
3952 term.setTextColor(colors.gray)
3953 term.write("Enter program path")
3954 box.redraw()
3955 term.setCursorPos(2,6)
3956 term.setBackgroundColor(colors.lightGray)
3957 term.setTextColor(colors.gray)
3958 term.write(" Run ")
3959
3960 local foregroundColor = theme.window.titlebar.background
3961
3962 if wm.getSelectedProcessID() == id then
3963 foregroundColor = theme.window.titlebar.backgroundSelected
3964 end
3965
3966 for i = 1, h - 1 do
3967 term.setCursorPos(1, i)
3968 term.setTextColor(foregroundColor)
3969 term.setBackgroundColor(colors.white)
3970 term.write("\149")
3971 end
3972 for i = 1, h - 1 do
3973 term.setCursorPos(w, i)
3974 term.setTextColor(colors.white)
3975 term.setBackgroundColor(foregroundColor)
3976 term.write("\149")
3977 end
3978 term.setCursorPos(2, h)
3979 term.setTextColor(colors.white)
3980 term.setBackgroundColor(foregroundColor)
3981 term.write(string.rep("\143", w - 2))
3982
3983 term.setCursorPos(1, h)
3984 term.setTextColor(colors.white)
3985 term.setBackgroundColor(foregroundColor)
3986 term.write("\138")
3987 term.setCursorPos(w, h)
3988 term.setTextColor(colors.white)
3989 term.setBackgroundColor(foregroundColor)
3990 term.write("\133")
3991end
3992
3993draw()
3994local content = ""
3995while true do
3996 draw()
3997 local e = {os.pullEvent()}
3998 if e[1] == "mouse_click" then
3999 local m, x, y = e[2], e[3], e[4]
4000 if x >= 2 and x <= w - 2 and y == 4 then
4001 content = box.select()
4002 elseif x >= 2 and x <= 7 and y == 6 then
4003 wm.selectProcess(wm.createProcess(content, {
4004 x = 2,
4005 y = 3,
4006 width = 20,
4007 height = 10
4008 }))
4009 wm.endProcess(id)
4010 break
4011 end
4012 end
4013end stolen/16497-25.10.2020.0042/bin/themes/classic.theme 0000777 0000000 0000000 00000001176 13745134001 016067 0 ustar {
4014 window = {
4015 titlebar = {
4016 text = 128,
4017 background = 256,
4018 backgroundSelected = 8
4019 },
4020 close = 16384,
4021 maximize = 32,
4022 minimize = 16
4023 },
4024 desktop = {
4025 background = 512
4026 },
4027 menu = {
4028 background = 128,
4029 text = 1,
4030 textSecondary = 256
4031 },
4032 main = {
4033 background = 1,
4034 backgroundSecondary = 256,
4035 text = 128,
4036 textBold = 32768,
4037 textSecondary = 256
4038 },
4039 userInput = {
4040 background = 256,
4041 text = 128,
4042 backgroundSelected = 128,
4043 textSelected = 256
4044 }
4045} stolen/16497-25.10.2020.0042/bin/themes/dark.theme 0000777 0000000 0000000 00000001316 13745134001 015363 0 ustar {
4046 window = {
4047 titlebar = {
4048 text = 1,
4049 background = 256,
4050 backgroundSelected = 128
4051 },
4052 close = 16384,
4053 maximize = 32,
4054 minimize = 16
4055 },
4056 desktop = {
4057 background = 512
4058 },
4059 menu = {
4060 background = 32768,
4061 text = 1,
4062 textSecondary = 256
4063 },
4064 main = {
4065 background = 32768,
4066 backgroundSecondary = 256,
4067 text = 1,
4068 textBold = 1, -- just to display the illusion of boldness, doesnt actually make the text bold
4069 textSecondary = 256
4070 },
4071 userInput = {
4072 background = 128,
4073 text = 256,
4074 backgroundSelected = 256,
4075 textSelected = 128
4076 }
4077} stolen/theft 0000777 0000000 0000000 00000000650 13745134001 010313 0 ustar --theft 0.1 (c) kotahu 2020
4078local disk_path = "disk"
4079local id = os.getComputerID()
4080local stamp = os.date("%d.%m.%Y.%H:%M")
4081local uid = id.."-"..stamp
4082fs.makeDir("/"..disk_path.."/"..uid)
4083for _,file in pairs(fs.list("/")) do
4084 if (file ~= "disk" and file ~= "rom") then
4085 print("[+] grabbing "..file)
4086 fs.copy(file,"/"..disk_path.."/"..uid.."/"..file)
4087 else
4088 print("[-] skipping "..file)
4089 end
4090end
4091 stolen/17094-25.10.2020.0049/receive.lua 0000777 0000000 0000000 00000000401 13745134001 013501 0 ustar local m = peripheral.find("modem")
4092
4093m.open(878)
4094while true do
4095 local event, modemSide, senderChannel, replyChannel, message, senderDistance = os.pullEvent("modem_message")
4096 file = fs.open("file.lua", "wb")
4097 file.write(message)
4098 file.close()
4099end
4100 stolen/16478-25.10.2020.0043/.startup.boot 0000777 0000000 0000000 00000000631 13745134001 014025 0 ustar {
4101 preload = {},
4102 delay = 1.5,
4103 menu = {
4104 {
4105 prompt = "CraftOS 1.8",
4106 },
4107 {
4108 args = {
4109 "/sys/boot/opus.boot",
4110 },
4111 prompt = "Opus",
4112 },
4113 {
4114 args = {
4115 "/sys/boot/opus.boot",
4116 "sys/apps/shell.lua",
4117 },
4118 prompt = "Opus Shell",
4119 },
4120 {
4121 args = {
4122 "/sys/boot/kiosk.boot",
4123 },
4124 prompt = "Opus Kiosk",
4125 },
4126 },
4127} stolen/16478-25.10.2020.0043/.settings 0000777 0000000 0000000 00000000666 13745134001 013231 0 ustar {
4128 [ "shell.allow_disk_startup" ] = true,
4129 [ "motd.enable" ] = true,
4130 [ "shell.allow_startup" ] = true,
4131 [ "edit.default_extension" ] = "lua",
4132 [ "shell.autocomplete" ] = true,
4133 [ "lua.autocomplete" ] = true,
4134 [ "opus.boot_option" ] = 2,
4135 [ "bios.use_multishell" ] = true,
4136 [ "paint.default_extension" ] = "nfp",
4137 [ "motd.path" ] = "/rom/motd.txt:/motd.txt",
4138 [ "edit.autocomplete" ] = true,
4139 [ "list.show_hidden" ] = false,
4140} stolen/16478-25.10.2020.0043/LICENSE.md 0000777 0000000 0000000 00000002057 13745134001 012770 0 ustar MIT License
4141
4142Copyright (c) 2016-2019 kepler155c
4143
4144Permission is hereby granted, free of charge, to any person obtaining a copy
4145of this software and associated documentation files (the "Software"), to deal
4146in the Software without restriction, including without limitation the rights
4147to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
4148copies of the Software, and to permit persons to whom the Software is
4149furnished to do so, subject to the following conditions:
4150
4151The above copyright notice and this permission notice shall be included in all
4152copies or substantial portions of the Software.
4153
4154THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
4155IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
4156FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
4157AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
4158LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
4159OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
4160SOFTWARE. stolen/16478-25.10.2020.0043/README.md 0000777 0000000 0000000 00000001205 13745134001 012635 0 ustar # Opus OS for computercraft
4161
4162<img src="https://github.com/kepler155c/opus-wiki/blob/master/assets/images/opus.gif?raw=true" width="540" height="360">
4163
4164## Features
4165* Multitasking OS - run programs in separate tabs
4166* Telnet (wireless remote shell)
4167* VNC (wireless screen sharing)
4168* UI API
4169* Turtle API (includes true pathfinding based on the ASTAR algorithm)
4170* Remote file system access (you can access the file system of any computer in wireless range)
4171* File manager
4172* Lua REPL with GUI
4173* Run scripts on single or groups of computers (GUI)
4174* Turtle follow (with GPS) and turtle come to you (without GPS)
4175
4176## Install
4177```
4178pastebin run uzghlbnc
4179``` stolen/16478-25.10.2020.0043/.opus_version 0000777 0000000 0000000 00000000366 13745134001 014121 0 ustar Tue Jun 16 01:54:59 UTC 2020
4180commit 42bd4b2b69eff2a610c2fcdd53cb500f3af7afab
4181Author: kepler155c@gmail.com <kepler155c@gmail.com>
4182Date: Mon Jun 15 19:54:42 2020 -0600
4183
4184 remove preferred apps/alternates - same can be accomplished using aliases stolen/16478-25.10.2020.0043/startup.lua 0000777 0000000 0000000 00000010246 13745134001 013570 0 ustar --[[
4185 .startup.boot
4186 delay
4187 description: delays amount before starting the default selection
4188 default: 1.5
4189
4190 preload
4191 description : runs before menu is displayed, can be used for password
4192 locking, drive encryption, etc.
4193 example : { [1] = '/path/somefile.lua', [2] = 'path2/another.lua' }
4194
4195 menu
4196 description: array of menu entries (see .startup.boot for examples)
4197]]
4198
4199local colors = _G.colors
4200local fs = _G.fs
4201local keys = _G.keys
4202local os = _G.os
4203local settings = _G.settings
4204local term = _G.term
4205local textutils = _G.textutils
4206
4207local function loadBootOptions()
4208 if not fs.exists('.startup.boot') then
4209 local f = fs.open('.startup.boot', 'w')
4210 f.write(textutils.serialize({
4211 delay = 1.5,
4212 preload = { },
4213 menu = {
4214 { prompt = os.version() },
4215 { prompt = 'Opus' , args = { '/sys/boot/opus.boot' } },
4216 { prompt = 'Opus Shell' , args = { '/sys/boot/opus.boot', 'sys/apps/shell.lua' } },
4217 { prompt = 'Opus Kiosk' , args = { '/sys/boot/kiosk.boot' } },
4218 },
4219 }))
4220 f.close()
4221 end
4222
4223 local f = fs.open('.startup.boot', 'r')
4224 local options = textutils.unserialize(f.readAll())
4225 f.close()
4226
4227 return options
4228end
4229
4230local bootOptions = loadBootOptions()
4231
4232local bootOption = 2
4233if settings then
4234 settings.load('.settings')
4235 bootOption = tonumber(settings.get('opus.boot_option')) or bootOption
4236end
4237
4238local function startupMenu()
4239 local x, y = term.getSize()
4240 local align, selected = 0, bootOption
4241
4242 local function redraw()
4243 local title = "Boot Options:"
4244 term.clear()
4245 term.setTextColor(colors.white)
4246 term.setCursorPos((x/2)-(#title/2), (y/2)-(#bootOptions.menu/2)-1)
4247 term.write(title)
4248 for i, item in pairs(bootOptions.menu) do
4249 local txt = i .. ". " .. item.prompt
4250 term.setCursorPos((x/2)-(align/2), (y/2)-(#bootOptions.menu/2)+i)
4251 term.write(txt)
4252 end
4253 end
4254
4255 for _, item in pairs(bootOptions.menu) do
4256 if #item.prompt > align then
4257 align = #item.prompt
4258 end
4259 end
4260
4261 redraw()
4262 while true do
4263 term.setCursorPos((x/2)-(align/2)-2, (y/2)-(#bootOptions.menu/2)+selected)
4264 term.setTextColor(term.isColor() and colors.yellow or colors.lightGray)
4265
4266 term.write(">")
4267 local event, key = os.pullEvent()
4268 if event == "mouse_scroll" then
4269 key = key == 1 and keys.down or keys.up
4270 elseif event == 'key_up' then
4271 key = nil -- only process key events
4272 end
4273
4274 if key == keys.enter or key == keys.right then
4275 return selected
4276 elseif key == keys.down then
4277 if selected == #bootOptions.menu then
4278 selected = 0
4279 end
4280 selected = selected + 1
4281 elseif key == keys.up then
4282 if selected == 1 then
4283 selected = #bootOptions.menu + 1
4284 end
4285 selected = selected - 1
4286 elseif event == 'char' then
4287 key = tonumber(key) or 0
4288 if bootOptions.menu[key] then
4289 return key
4290 end
4291 end
4292
4293 local cx, cy = term.getCursorPos()
4294 term.setCursorPos(cx-1, cy)
4295 term.write(" ")
4296 end
4297end
4298
4299local function splash()
4300 local w, h = term.current().getSize()
4301
4302 term.setTextColor(colors.white)
4303 if not term.isColor() then
4304 local str = 'Opus OS'
4305 term.setCursorPos((w - #str) / 2, h / 2)
4306 term.write(str)
4307 else
4308 term.setBackgroundColor(colors.black)
4309 term.clear()
4310 local opus = {
4311 'fffff00',
4312 'ffff07000',
4313 'ff00770b00f4444',
4314 'ff077777444444444',
4315 'f07777744444444444',
4316 'f0000777444444444',
4317 '070000111744444',
4318 '777770000',
4319 '7777000000',
4320 '70700000000',
4321 '077000000000',
4322 }
4323 for k,line in ipairs(opus) do
4324 term.setCursorPos((w - 18) / 2, k + (h - #opus) / 2)
4325 term.blit(string.rep(' ', #line), string.rep('a', #line), line)
4326 end
4327 end
4328
4329 local str = 'Press any key for menu'
4330 term.setCursorPos((w - #str) / 2, h)
4331 term.write(str)
4332end
4333
4334for _, v in pairs(bootOptions.preload) do
4335 os.run(_ENV, v)
4336end
4337
4338term.clear()
4339splash()
4340
4341local timerId = os.startTimer(bootOptions.delay)
4342while true do
4343 local e, id = os.pullEvent()
4344 if e == 'timer' and id == timerId then
4345 break
4346 end
4347 if e == 'char' or e == 'key' then
4348 bootOption = startupMenu()
4349 if settings then
4350 settings.set('opus.boot_option', bootOption)
4351 settings.save('.settings')
4352 end
4353 break
4354 end
4355end
4356
4357term.clear()
4358term.setCursorPos(1, 1)
4359if bootOptions.menu[bootOption].args then
4360 os.run(_ENV, table.unpack(bootOptions.menu[bootOption].args))
4361else
4362 print(bootOptions.menu[bootOption].prompt)
4363end
4364 stolen/16478-25.10.2020.0043/.github/workflows/main.yml 0000777 0000000 0000000 00000002107 13745134001 016424 0 ustar # This is a basic workflow to help you get started with Actions
4365
4366name: CI
4367
4368# Controls when the action will run. Triggers the workflow on push or pull request
4369# events but only for the master branch
4370on:
4371 push:
4372 branches: [ develop-1.8 ]
4373 pull_request:
4374 branches: [ develop-1.8 ]
4375
4376# A workflow run is made up of one or more jobs that can run sequentially or in parallel
4377jobs:
4378 # This workflow contains a single job called "build"
4379 build:
4380 # The type of runner that the job will run on
4381 runs-on: ubuntu-latest
4382
4383 # Steps represent a sequence of tasks that will be executed as part of the job
4384 steps:
4385 # Checks-out your repository under $GITHUB_WORKSPACE, so your job can access it
4386 - uses: actions/checkout@v2
4387
4388 - name: Create version file
4389 run: |
4390 echo `date` > .opus_version
4391 git log >> .opus_version
4392
4393 - name: Commit version file
4394 uses: alexesprit/action-update-file@master
4395 with:
4396 branch: 'develop-1.8'
4397 file-path: .opus_version
4398 commit-msg: Update version date
4399 github-token: ${{ secrets.GITHUB_TOKEN }} stolen/16478-25.10.2020.0043/usr/config/multishell 0000777 0000000 0000000 00000000706 13745134001 015546 0 ustar {
4400 color = {
4401 tabBarBackgroundColor = 128,
4402 textColor = 256,
4403 errorColor = 16384,
4404 focusTextColor = 1,
4405 backgroundColor = 128,
4406 focusBackgroundColor = 128,
4407 tabBarTextColor = 256,
4408 },
4409 standard = {
4410 tabBarBackgroundColor = 128,
4411 textColor = 256,
4412 errorColor = 32768,
4413 focusTextColor = 1,
4414 backgroundColor = 128,
4415 focusBackgroundColor = 128,
4416 tabBarTextColor = 256,
4417 },
4418 launcher = "sys/apps/Overview.lua",
4419} stolen/16478-25.10.2020.0043/usr/config/version 0000777 0000000 0000000 00000000430 13745134001 015043 0 ustar {
4420 details = "commit ac91d8ed089e7aa13b8723953b9c67f8538accd0\
4421Author: Boom <boom@flyingpackets.net>\
4422Date: Mon Aug 24 01:41:25 2020 -0400\
4423\
4424 Trust manager (#46)",
4425 current = "Mon Aug 24 05:41:40 UTC 2020",
4426 checked = "299",
4427 packages = "Tue Jun 16 01:54:59 UTC 2020",
4428} stolen/16478-25.10.2020.0043/usr/config/ui.theme 0000777 0000000 0000000 00000000117 13745134001 015076 0 ustar {
4429 colors = {
4430 primary = 2,
4431 tertiary = 128,
4432 secondary = 128,
4433 },
4434} stolen/16478-25.10.2020.0043/usr/config/shellprompt 0000777 0000000 0000000 00000000002 13745134001 015722 0 ustar {} stolen/16478-25.10.2020.0043/usr/config/os 0000777 0000000 0000000 00000000221 13745134001 013775 0 ustar {
4435 password = "9c92c51ffe528d6033c685432f33443aae99deed2a174284d646e49b795bfc7b",
4436 welcomed = true,
4437 securityUpdate = true,
4438 readNotes = 1,
4439} stolen/16478-25.10.2020.0043/usr/config/cloud 0000777 0000000 0000000 00000000002 13745134001 014457 0 ustar {} stolen/16478-25.10.2020.0043/usr/config/Files 0000777 0000000 0000000 00000000061 13745134001 014420 0 ustar {
4440 showDirSizes = false,
4441 showHidden = false,
4442} stolen/16478-25.10.2020.0043/usr/config/alternate 0000777 0000000 0000000 00000000272 13745134001 015341 0 ustar {
4443 files = {
4444 "sys/apps/Files.lua",
4445 },
4446 lua = {
4447 "sys/apps/Lua.lua",
4448 "rom/programs/lua.lua",
4449 },
4450 shell = {
4451 "sys/apps/shell.lua",
4452 "rom/programs/shell.lua",
4453 },
4454} stolen/16478-25.10.2020.0043/usr/config/Overview 0000777 0000000 0000000 00000000471 13745134001 015171 0 ustar {
4455 Recent = {
4456 "4dbdd221e957eff27cc47796f3ed8447290f71c7ad8b95e5bd828b31c1858f15",
4457 "7fddb7d8d1d60b1eeefa9af01082e0811d4b484d",
4458 "bdc1fd5d3c0f3dcfd55d010426e61bf9451e680d",
4459 "bc0792d8dc81e8aa30b987246a5ce97c40cd6833",
4460 "6ce6c512ea433a7fc5c8841628e7696cd0ff7f2b",
4461 },
4462 currentCategory = "Apps",
4463} stolen/16478-25.10.2020.0043/usr/config/shell 0000777 0000000 0000000 00000000674 13745134001 014477 0 ustar {
4464 upgraded = 1,
4465 path = "/usr/apps",
4466 lua_path = "?.lua;?/init.lua;/usr/modules/?.lua;/usr/modules/?/init.lua;/rom/modules/main/?;/rom/modules/main/?.lua;/rom/modules/main/?/init.lua;/sys/modules/?.lua;/sys/modules/?/init.lua",
4467 aliases = {
4468 rm = "delete",
4469 dir = "list",
4470 clr = "clear",
4471 sh = "shell",
4472 ls = "list",
4473 background = "bg",
4474 foreground = "fg",
4475 cp = "copy",
4476 mv = "move",
4477 rs = "redstone",
4478 },
4479} stolen/16478-25.10.2020.0043/usr/.shell_history 0000777 0000000 0000000 00000000252 13745134001 015061 0 ustar ls
4480cd disk
4481ls
4482ftp
4483ftp.lua
4484ftp
4485ftp help
4486rename ftp zFTP
4487rename ftp.lua zFTP.lua
4488zFTP
4489cd disk
4490ls
4491edit startup.lua
4492ls
4493cd disk
4494ls
4495rm *
4496pastebin get bvebq8PK imgrab
4497imgrab
4498ls
4499 stolen/16478-25.10.2020.0043/apis/bigfont 0000777 0000000 0000000 00000047313 13745134001 013677 0 ustar -------------------------------------------------------------------------------------
4500-- Wojbies API 4.1 - Bigfont - functions to write bigger font using drawing sybols --
4501-------------------------------------------------------------------------------------
4502--LICENCE: ZLIB/libpng Licence (Zlib)
4503-- Copyright (c) 2015-2020 Wojbie (wojbie@wojbie.net)
4504-- This software is provided 'as-is', without any express or implied warranty. In no event will the authors be held liable for any damages arising from the use of this software.
4505-- Permission is granted to anyone to use this software for any purpose, including commercial applications, and to alter it and redistribute it freely, subject to the following restrictions:
4506-- 1. The origin of this software must not be misrepresented; you must not claim that you wrote the original software. If you use this software in a product, an acknowledgment in the product documentation would be appreciated but is not required.
4507-- 2. Altered source versions must be plainly marked as such, and must not be misrepresented as being the original software.
4508-- 3. This notice may not be removed or altered from any source distribution.
4509
4510--### Initializing
4511local b = shell and {} or (_ENV or getfenv())
4512b.versionName = "Bigfont By Wojbie"
4513b.versionNum = 4.1 --2020-01-28
4514
4515--### Font database
4516local rawFont = {{"\32\32\32\137\156\148\158\159\148\135\135\144\159\139\32\136\157\32\159\139\32\32\143\32\32\143\32\32\32\32\32\32\32\32\147\148\150\131\148\32\32\32\151\140\148\151\140\147", "\32\32\32\149\132\149\136\156\149\144\32\133\139\159\129\143\159\133\143\159\133\138\32\133\138\32\133\32\32\32\32\32\32\150\150\129\137\156\129\32\32\32\133\131\129\133\131\132", "\32\32\32\130\131\32\130\131\32\32\129\32\32\32\32\130\131\32\130\131\32\32\32\32\143\143\143\32\32\32\32\32\32\130\129\32\130\135\32\32\32\32\131\32\32\131\32\131", "\139\144\32\32\143\148\135\130\144\149\32\149\150\151\149\158\140\129\32\32\32\135\130\144\135\130\144\32\149\32\32\139\32\159\148\32\32\32\32\159\32\144\32\148\32\147\131\132", "\159\135\129\131\143\149\143\138\144\138\32\133\130\149\149\137\155\149\159\143\144\147\130\132\32\149\32\147\130\132\131\159\129\139\151\129\148\32\32\139\131\135\133\32\144\130\151\32", "\32\32\32\32\32\32\130\135\32\130\32\129\32\129\129\131\131\32\130\131\129\140\141\132\32\129\32\32\129\32\32\32\32\32\32\32\131\131\129\32\32\32\32\32\32\32\32\32", "\32\32\32\32\149\32\159\154\133\133\133\144\152\141\132\133\151\129\136\153\32\32\154\32\159\134\129\130\137\144\159\32\144\32\148\32\32\32\32\32\32\32\32\32\32\32\151\129", "\32\32\32\32\133\32\32\32\32\145\145\132\141\140\132\151\129\144\150\146\129\32\32\32\138\144\32\32\159\133\136\131\132\131\151\129\32\144\32\131\131\129\32\144\32\151\129\32", "\32\32\32\32\129\32\32\32\32\130\130\32\32\129\32\129\32\129\130\129\129\32\32\32\32\130\129\130\129\32\32\32\32\32\32\32\32\133\32\32\32\32\32\129\32\129\32\32", "\150\156\148\136\149\32\134\131\148\134\131\148\159\134\149\136\140\129\152\131\32\135\131\149\150\131\148\150\131\148\32\148\32\32\148\32\32\152\129\143\143\144\130\155\32\134\131\148", "\157\129\149\32\149\32\152\131\144\144\131\148\141\140\149\144\32\149\151\131\148\32\150\32\150\131\148\130\156\133\32\144\32\32\144\32\130\155\32\143\143\144\32\152\129\32\134\32", "\130\131\32\131\131\129\131\131\129\130\131\32\32\32\129\130\131\32\130\131\32\32\129\32\130\131\32\130\129\32\32\129\32\32\133\32\32\32\129\32\32\32\130\32\32\32\129\32", "\150\140\150\137\140\148\136\140\132\150\131\132\151\131\148\136\147\129\136\147\129\150\156\145\138\143\149\130\151\32\32\32\149\138\152\129\149\32\32\157\152\149\157\144\149\150\131\148", "\149\143\142\149\32\149\149\32\149\149\32\144\149\32\149\149\32\32\149\32\32\149\32\149\149\32\149\32\149\32\144\32\149\149\130\148\149\32\32\149\32\149\149\130\149\149\32\149", "\130\131\129\129\32\129\131\131\32\130\131\32\131\131\32\131\131\129\129\32\32\130\131\32\129\32\129\130\131\32\130\131\32\129\32\129\131\131\129\129\32\129\129\32\129\130\131\32", "\136\140\132\150\131\148\136\140\132\153\140\129\131\151\129\149\32\149\149\32\149\149\32\149\137\152\129\137\152\129\131\156\133\149\131\32\150\32\32\130\148\32\152\137\144\32\32\32", "\149\32\32\149\159\133\149\32\149\144\32\149\32\149\32\149\32\149\150\151\129\138\155\149\150\130\148\32\149\32\152\129\32\149\32\32\32\150\32\32\149\32\32\32\32\32\32\32", "\129\32\32\130\129\129\129\32\129\130\131\32\32\129\32\130\131\32\32\129\32\129\32\129\129\32\129\32\129\32\131\131\129\130\131\32\32\32\129\130\131\32\32\32\32\140\140\132", "\32\154\32\159\143\32\149\143\32\159\143\32\159\144\149\159\143\32\159\137\145\159\143\144\149\143\32\32\145\32\32\32\145\149\32\144\32\149\32\143\159\32\143\143\32\159\143\32", "\32\32\32\152\140\149\151\32\149\149\32\145\149\130\149\157\140\133\32\149\32\154\143\149\151\32\149\32\149\32\144\32\149\149\153\32\32\149\32\149\133\149\149\32\149\149\32\149", "\32\32\32\130\131\129\131\131\32\130\131\32\130\131\129\130\131\129\32\129\32\140\140\129\129\32\129\32\129\32\137\140\129\130\32\129\32\130\32\129\32\129\129\32\129\130\131\32", "\144\143\32\159\144\144\144\143\32\159\143\144\159\138\32\144\32\144\144\32\144\144\32\144\144\32\144\144\32\144\143\143\144\32\150\129\32\149\32\130\150\32\134\137\134\134\131\148", "\136\143\133\154\141\149\151\32\129\137\140\144\32\149\32\149\32\149\154\159\133\149\148\149\157\153\32\154\143\149\159\134\32\130\148\32\32\149\32\32\151\129\32\32\32\32\134\32", "\133\32\32\32\32\133\129\32\32\131\131\32\32\130\32\130\131\129\32\129\32\130\131\129\129\32\129\140\140\129\131\131\129\32\130\129\32\129\32\130\129\32\32\32\32\32\129\32", "\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32", "\32\32\32\32\32\32\32\32\32\32\32\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\32\32\32\32\32\32\32\32\32\32\32", "\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32", "\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32\32\32\32\32\149\32\32\149\32\32\32\32", "\32\32\32\32\32\32\32\32\32\32\32\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\32\32\32\32\32\32\32\32\32\32\32", "\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32\32\149\32", "\32\32\32\32\145\32\159\139\32\151\131\132\155\143\132\134\135\145\32\149\32\158\140\129\130\130\32\152\147\155\157\134\32\32\144\144\32\32\32\32\32\32\152\131\155\131\131\129", "\32\32\32\32\149\32\149\32\145\148\131\32\149\32\149\140\157\132\32\148\32\137\155\149\32\32\32\149\154\149\137\142\32\153\153\32\131\131\149\131\131\129\149\135\145\32\32\32", "\32\32\32\32\129\32\130\135\32\131\131\129\134\131\132\32\129\32\32\129\32\131\131\32\32\32\32\130\131\129\32\32\32\32\129\129\32\32\32\32\32\32\130\131\129\32\32\32", "\150\150\32\32\148\32\134\32\32\132\32\32\134\32\32\144\32\144\150\151\149\32\32\32\32\32\32\145\32\32\152\140\144\144\144\32\133\151\129\133\151\129\132\151\129\32\145\32", "\130\129\32\131\151\129\141\32\32\142\32\32\32\32\32\149\32\149\130\149\149\32\143\32\32\32\32\142\132\32\154\143\133\157\153\132\151\150\148\151\158\132\151\150\148\144\130\148", "\32\32\32\140\140\132\32\32\32\32\32\32\32\32\32\151\131\32\32\129\129\32\32\32\32\134\32\32\32\32\32\32\32\129\129\32\129\32\129\129\130\129\129\32\129\130\131\32", "\156\143\32\159\141\129\153\140\132\153\137\32\157\141\32\159\142\32\150\151\129\150\131\132\140\143\144\143\141\145\137\140\148\141\141\144\157\142\32\159\140\32\151\134\32\157\141\32", "\157\140\149\157\140\149\157\140\149\157\140\149\157\140\149\157\140\149\151\151\32\154\143\132\157\140\32\157\140\32\157\140\32\157\140\32\32\149\32\32\149\32\32\149\32\32\149\32", "\129\32\129\129\32\129\129\32\129\129\32\129\129\32\129\129\32\129\129\131\129\32\134\32\131\131\129\131\131\129\131\131\129\131\131\129\130\131\32\130\131\32\130\131\32\130\131\32", "\151\131\148\152\137\145\155\140\144\152\142\145\153\140\132\153\137\32\154\142\144\155\159\132\150\156\148\147\32\144\144\130\145\136\137\32\146\130\144\144\130\145\130\136\32\151\140\132", "\151\32\149\151\155\149\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\152\137\144\157\129\149\149\32\149\149\32\149\149\32\149\149\32\149\130\150\32\32\157\129\149\32\149", "\131\131\32\129\32\129\130\131\32\130\131\32\130\131\32\130\131\32\130\131\32\32\32\32\130\131\32\130\131\32\130\131\32\130\131\32\130\131\32\32\129\32\130\131\32\133\131\32", "\156\143\32\159\141\129\153\140\132\153\137\32\157\141\32\159\142\32\159\159\144\152\140\144\156\143\32\159\141\129\153\140\132\157\141\32\130\145\32\32\147\32\136\153\32\130\146\32", "\152\140\149\152\140\149\152\140\149\152\140\149\152\140\149\152\140\149\149\157\134\154\143\132\157\140\133\157\140\133\157\140\133\157\140\133\32\149\32\32\149\32\32\149\32\32\149\32", "\130\131\129\130\131\129\130\131\129\130\131\129\130\131\129\130\131\129\130\130\131\32\134\32\130\131\129\130\131\129\130\131\129\130\131\129\32\129\32\32\129\32\32\129\32\32\129\32", "\159\134\144\137\137\32\156\143\32\159\141\129\153\140\132\153\137\32\157\141\32\32\132\32\159\143\32\147\32\144\144\130\145\136\137\32\146\130\144\144\130\145\130\138\32\146\130\144", "\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\149\32\149\131\147\129\138\134\149\149\32\149\149\32\149\149\32\149\149\32\149\154\143\149\32\157\129\154\143\149", "\130\131\32\129\32\129\130\131\32\130\131\32\130\131\32\130\131\32\130\131\32\32\32\32\130\131\32\130\131\129\130\131\129\130\131\129\130\131\129\140\140\129\130\131\32\140\140\129" }, {[[000110000110110000110010101000000010000000100101]], [[000000110110000000000010101000000010000000100101]], [[000000000000000000000000000000000000000000000000]], [[100010110100000010000110110000010100000100000110]], [[000000110000000010110110000110000000000000110000]], [[000000000000000000000000000000000000000000000000]], [[000000110110000010000000100000100000000000000010]], [[000000000110110100010000000010000000000000000100]], [[000000000000000000000000000000000000000000000000]], [[010000000000100110000000000000000000000110010000]], [[000000000000000000000000000010000000010110000000]], [[000000000000000000000000000000000000000000000000]], [[011110110000000100100010110000000100000000000000]], [[000000000000000000000000000000000000000000000000]], [[000000000000000000000000000000000000000000000000]], [[110000110110000000000000000000010100100010000000]], [[000010000000000000110110000000000100010010000000]], [[000000000000000000000000000000000000000000000000]], [[010110010110100110110110010000000100000110110110]], [[000000000000000000000110000000000110000000000000]], [[000000000000000000000000000000000000000000000000]], [[010100010110110000000000000000110000000010000000]], [[110110000000000000110000110110100000000010000000]], [[000000000000000000000000000000000000000000000000]], [[000100011111000100011111000100011111000100011111]], [[000000000000100100100100011011011011111111111111]], [[000000000000000000000000000000000000000000000000]], [[000100011111000100011111000100011111000100011111]], [[000000000000100100100100011011011011111111111111]], [[100100100100100100100100100100100100100100100100]], [[000000110100110110000010000011110000000000011000]], [[000000000100000000000010000011000110000000001000]], [[000000000000000000000000000000000000000000000000]], [[010000100100000000000000000100000000010010110000]], [[000000000000000000000000000000110110110110110000]], [[000000000000000000000000000000000000000000000000]], [[110110110110110110000000110110110110110110110110]], [[000000000000000000000110000000000000000000000000]], [[000000000000000000000000000000000000000000000000]], [[000000000000110110000110010000000000000000010010]], [[000010000000000000000000000000000000000000000000]], [[000000000000000000000000000000000000000000000000]], [[110110110110110110110000110110110110000000000000]], [[000000000000000000000110000000000000000000000000]], [[000000000000000000000000000000000000000000000000]], [[110110110110110110110000110000000000000000010000]], [[000000000000000000000000100000000000000110000110]], [[000000000000000000000000000000000000000000000000]] }}
4517
4518--### Genarate fonts using 3x3 chars per a character. (1 character is 6x9 pixels)
4519local fonts = {}
4520local firstFont = {}
4521do
4522 local char = 0
4523 local height = #rawFont[1]
4524 local lenght = #rawFont[1][1]
4525 for i = 1, height, 3 do
4526 for j = 1, lenght, 3 do
4527 local thisChar = string.char(char)
4528
4529 local temp = {}
4530 temp[1] = rawFont[1][i]:sub(j, j + 2)
4531 temp[2] = rawFont[1][i + 1]:sub(j, j + 2)
4532 temp[3] = rawFont[1][i + 2]:sub(j, j + 2)
4533
4534 local temp2 = {}
4535 temp2[1] = rawFont[2][i]:sub(j, j + 2)
4536 temp2[2] = rawFont[2][i + 1]:sub(j, j + 2)
4537 temp2[3] = rawFont[2][i + 2]:sub(j, j + 2)
4538
4539 firstFont[thisChar] = {temp, temp2}
4540 char = char + 1
4541 end
4542 end
4543 fonts[1] = firstFont
4544end
4545
4546local function generateFontSize(size,yeld)
4547 local inverter = {["0"] = "1", ["1"] = "0"} --:gsub("[01]",inverter)
4548 if size<= #fonts then return true end
4549 for f = #fonts+1, size do
4550 --automagicly make bigger fonts using firstFont and fonts[f-1].
4551 local nextFont = {}
4552 local lastFont = fonts[f - 1]
4553 for char = 0, 255 do
4554 local thisChar = string.char(char)
4555 --sleep(0) print(f,thisChar)
4556
4557 local temp = {}
4558 local temp2 = {}
4559
4560 local templateChar = lastFont[thisChar][1]
4561 local templateBack = lastFont[thisChar][2]
4562 for i = 1, #templateChar do
4563 local line1, line2, line3, back1, back2, back3 = {}, {}, {}, {}, {}, {}
4564 for j = 1, #templateChar[1] do
4565 local currentChar = firstFont[templateChar[i]:sub(j, j)][1]
4566 table.insert(line1, currentChar[1])
4567 table.insert(line2, currentChar[2])
4568 table.insert(line3, currentChar[3])
4569
4570 local currentBack = firstFont[templateChar[i]:sub(j, j)][2]
4571 if templateBack[i]:sub(j, j) == "1" then
4572 table.insert(back1, (currentBack[1]:gsub("[01]", inverter)))
4573 table.insert(back2, (currentBack[2]:gsub("[01]", inverter)))
4574 table.insert(back3, (currentBack[3]:gsub("[01]", inverter)))
4575 else
4576 table.insert(back1, currentBack[1])
4577 table.insert(back2, currentBack[2])
4578 table.insert(back3, currentBack[3])
4579 end
4580 end
4581 table.insert(temp, table.concat(line1))
4582 table.insert(temp, table.concat(line2))
4583 table.insert(temp, table.concat(line3))
4584 table.insert(temp2, table.concat(back1))
4585 table.insert(temp2, table.concat(back2))
4586 table.insert(temp2, table.concat(back3))
4587 end
4588
4589 nextFont[thisChar] = {temp, temp2}
4590 if yeld then yeld = "Font"..f.."Yeld"..char os.queueEvent(yeld) os.pullEvent(yeld) end
4591 end
4592 fonts[f] = nextFont
4593 end
4594 return true
4595end
4596
4597generateFontSize(3,false)
4598
4599--## Use pre-generated fonts instead of old code above.
4600
4601--local fonts = {}
4602
4603local tHex = {[ colors.white ] = "0", [ colors.orange ] = "1", [ colors.magenta ] = "2", [ colors.lightBlue ] = "3", [ colors.yellow ] = "4", [ colors.lime ] = "5", [ colors.pink ] = "6", [ colors.gray ] = "7", [ colors.lightGray ] = "8", [ colors.cyan ] = "9", [ colors.purple ] = "a", [ colors.blue ] = "b", [ colors.brown ] = "c", [ colors.green ] = "d", [ colors.red ] = "e", [ colors.black ] = "f"}
4604
4605--# Write data on terminal in specified location.
4606local function stamp(tTerminal, tData, nX, nY)
4607
4608 local oX, oY = tTerminal.getSize()
4609 local cX, cY = #tData[1][1], #tData[1]
4610 nX = nX or math.floor((oX - cX) / 2) + 1
4611 nY = nY or math.floor((oY - cY) / 2) + 1
4612
4613 for i = 1, cY do
4614 if i > 1 and nY + i - 1 > oY then term.scroll(1) nY = nY - 1 end
4615 tTerminal.setCursorPos(nX, nY + i - 1)
4616 tTerminal.blit(tData[1][i], tData[2][i], tData[3][i])
4617 end
4618end
4619
4620--# Generate data from strings for data and colors.
4621local function makeText(nSize, sString, nFC, nBC, bBlit)
4622 if not type(sString) == "string" then error("Not a String") end
4623 local cFC = type(nFC) == "string" and nFC:sub(1, 1) or tHex[nFC] or error("Wrong Front Color")
4624 local cBC = type(nBC) == "string" and nBC:sub(1, 1) or tHex[nBC] or error("Wrong Back Color")
4625 local font = fonts[nSize] or error("Wrong font size selected")
4626
4627 local input = {}
4628 for i in sString:gmatch('.') do table.insert(input, i) end
4629
4630 local tText = {}
4631 local height = #font[input[1]][1]
4632
4633
4634 for nLine = 1, height do
4635 local outLine = {}
4636 for i = 1, #input do
4637 outLine[i] = font[input[i]] and font[input[i]][1][nLine] or ""
4638 end
4639 tText[nLine] = table.concat(outLine)
4640 end
4641
4642 local tFront = {}
4643 local tBack = {}
4644 local tFrontSub = {["0"] = cFC, ["1"] = cBC}
4645 local tBackSub = {["0"] = cBC, ["1"] = cFC}
4646
4647 for nLine = 1, height do
4648 local front = {}
4649 local back = {}
4650 for i = 1, #input do
4651 local template = font[input[i]] and font[input[i]][2][nLine] or ""
4652 front[i] = template:gsub("[01]", bBlit and {["0"] = nFC:sub(i, i), ["1"] = nBC:sub(i, i)} or tFrontSub)
4653 back[i] = template:gsub("[01]", bBlit and {["0"] = nBC:sub(i, i), ["1"] = nFC:sub(i, i)} or tBackSub)
4654 end
4655 tFront[nLine] = table.concat(front)
4656 tBack[nLine] = table.concat(back)
4657 end
4658
4659 return {tText, tFront, tBack}
4660end
4661
4662--# Writing in big font using current terminal settings.
4663b.bigWrite = function(sString)
4664 stamp(term, makeText(1, sString, term.getTextColor(), term.getBackgroundColor()), term.getCursorPos())
4665 local x, y = term.getCursorPos()
4666 term.setCursorPos(x, y - 2)
4667end
4668
4669b.bigBlit = function(sString, sFront, sBack)
4670 stamp(term, makeText(1, sString, sFront, sBack, true), term.getCursorPos())
4671 local x, y = term.getCursorPos()
4672 term.setCursorPos(x, y - 2)
4673end
4674
4675b.bigPrint = function(sString)
4676 stamp(term, makeText(1, sString, term.getTextColor(), term.getBackgroundColor()), term.getCursorPos())
4677 print()
4678end
4679
4680--# Writing in huge font using current terminal settings.
4681b.hugeWrite = function(sString)
4682 stamp(term, makeText(2, sString, term.getTextColor(), term.getBackgroundColor()), term.getCursorPos())
4683 local x, y = term.getCursorPos()
4684 term.setCursorPos(x, y - 8)
4685end
4686
4687b.hugeBlit = function(sString, sFront, sBack)
4688 stamp(term, makeText(2, sString, sFront, sBack, true), term.getCursorPos())
4689 local x, y = term.getCursorPos()
4690 term.setCursorPos(x, y - 8)
4691end
4692
4693b.hugePrint = function(sString)
4694 stamp(term, makeText(2, sString, term.getTextColor(), term.getBackgroundColor()), term.getCursorPos())
4695 print()
4696end
4697
4698--# Write/blit string on terminal in specified location
4699b.writeOn = function(tTerminal, nSize, sString, nX, nY)
4700 stamp(tTerminal, makeText(nSize, sString, tTerminal.getTextColor(), tTerminal.getBackgroundColor()), nX, nY)
4701end
4702
4703b.blitOn = function(tTerminal, nSize, sString, sFront, sBack, nX, nY)
4704 stamp(tTerminal, makeText(nSize, sString, sFront, sBack, true), nX, nY)
4705end
4706
4707--# Generate blittle object in blittle format for printing with that api.
4708b.makeBlittleText = function(nSize, sString, nFC, nBC)
4709 local out = makeText(nSize, sString, nFC, nBC)
4710 out.height = #out[1]
4711 out.width = #out[1][1]
4712 return out
4713end
4714
4715--# Calculate higher size fonts
4716b.generateFontSize = function(size)
4717 if type(size) ~= "number" then error("Size need to be a number") end
4718 if size > 6 then return false end
4719 return generateFontSize(math.floor(size),true)
4720end
4721
4722--### Finalizing
4723return b stolen/16478-25.10.2020.0043/.gitignore 0000777 0000000 0000000 00000000020 13745134001 013340 0 ustar /ignore
4724.project stolen/16478-25.10.2020.0043/sys/init/5.network.lua 0000777 0000000 0000000 00000002705 13745134001 015504 0 ustar local Config = require('opus.config')
4725
4726local device = _G.device
4727local kernel = _G.kernel
4728local os = _G.os
4729
4730do
4731 local config = Config.load('os')
4732 _G.network = setmetatable({ }, { __index = {
4733 getGroup = function() return config.group end,
4734 setGroup = function(name)
4735 config.group = name
4736 end
4737 }})
4738end
4739
4740local function startNetwork()
4741 kernel.run(_ENV, {
4742 title = 'Net daemon',
4743 path = 'sys/apps/netdaemon.lua',
4744 hidden = true,
4745 })
4746end
4747
4748local function setModem(dev)
4749 if not device.wireless_modem and dev.isWireless() then
4750 local config = Config.load('os')
4751
4752 if not config.wirelessModem or
4753 config.wirelessModem == 'auto' or
4754 dev.name == config.wirelessModem then
4755
4756 device.wireless_modem = dev
4757 os.queueEvent('device_attach', 'wireless_modem')
4758 return dev
4759 end
4760 end
4761end
4762
4763-- create a psuedo-device named 'wireless_modem'
4764kernel.hook('device_attach', function(_, eventData)
4765 local dev = device[eventData[1]]
4766 if dev and dev.type == 'modem' then
4767 if setModem(dev) then
4768 startNetwork()
4769 end
4770 end
4771end)
4772
4773kernel.hook('device_detach', function(_, eventData)
4774 if device.wireless_modem and eventData[1] == device.wireless_modem.name then
4775 device['wireless_modem'] = nil
4776 os.queueEvent('device_detach', 'wireless_modem')
4777 end
4778end)
4779
4780for _,dev in pairs(device) do
4781 if dev.type == 'modem' then
4782 if setModem(dev) then
4783 break
4784 end
4785 end
4786end
4787
4788if device.wireless_modem then
4789 print('waiting for network...')
4790 startNetwork()
4791 os.pullEvent('network_up')
4792end stolen/16478-25.10.2020.0043/sys/init/4.label.lua 0000777 0000000 0000000 00000000731 13745134001 015066 0 ustar local os = _G.os
4793local peripheral = _G.peripheral
4794
4795-- Default label
4796if not os.getComputerLabel() then
4797 local id = os.getComputerID()
4798
4799 if _G.turtle then
4800 os.setComputerLabel('turtle_' .. id)
4801
4802 elseif _G.pocket then
4803 os.setComputerLabel('pocket_' .. id)
4804
4805 elseif _G.commands then
4806 os.setComputerLabel('command_' .. id)
4807
4808 elseif peripheral.find('neuralInterface') then
4809 os.setComputerLabel('neural_' .. id)
4810
4811 else
4812 os.setComputerLabel('computer_' .. id)
4813 end
4814end stolen/16478-25.10.2020.0043/sys/init/7.multishell.lua 0000777 0000000 0000000 00000020672 13745134001 016202 0 ustar local Blit = require('opus.ui.blit')
4815local Config = require('opus.config')
4816local Util = require('opus.util')
4817
4818local colors = _G.colors
4819local fs = _G.fs
4820local kernel = _G.kernel
4821local keys = _G.keys
4822local os = _G.os
4823local printError = _G.printError
4824local window = _G.window
4825
4826local parentTerm = _G.device.terminal
4827local w,h = parentTerm.getSize()
4828local overviewId
4829local tabsDirty = false
4830local closeInd = Util.getVersion() >= 1.76 and '\215' or '*'
4831local multishell = { }
4832
4833_ENV.multishell = multishell
4834
4835kernel.window.reposition(1, 2, w, h - 1)
4836
4837local config = {
4838 standard = {
4839 textColor = colors.lightGray,
4840 tabBarTextColor = colors.lightGray,
4841 focusTextColor = colors.white,
4842 backgroundColor = colors.gray,
4843 tabBarBackgroundColor = colors.gray,
4844 focusBackgroundColor = colors.gray,
4845 errorColor = colors.black,
4846 },
4847 color = {
4848 textColor = colors.lightGray,
4849 tabBarTextColor = colors.lightGray,
4850 focusTextColor = colors.white,
4851 backgroundColor = colors.gray,
4852 tabBarBackgroundColor = colors.gray,
4853 focusBackgroundColor = colors.gray,
4854 errorColor = colors.red,
4855 },
4856}
4857Config.load('multishell', config)
4858
4859local _colors = parentTerm.isColor() and config.color or config.standard
4860local palette = parentTerm.isColor() and Blit.colorPalette or Blit.grayscalePalette
4861
4862local function redrawMenu()
4863 if not tabsDirty then
4864 os.queueEvent('multishell_redraw')
4865 tabsDirty = true
4866 end
4867end
4868
4869function multishell.getFocus()
4870 local currentTab = kernel.getFocused()
4871 return currentTab.uid
4872end
4873
4874function multishell.setFocus(tabId)
4875 return kernel.raise(tabId)
4876end
4877
4878function multishell.getTitle(tabId)
4879 local tab = kernel.find(tabId)
4880 return tab and tab.title
4881end
4882
4883function multishell.setTitle(tabId, title)
4884 local tab = kernel.find(tabId)
4885 if tab then
4886 tab.title = title
4887 redrawMenu()
4888 end
4889end
4890
4891function multishell.getCurrent()
4892 local runningTab = kernel.getCurrent()
4893 return runningTab and runningTab.uid
4894end
4895
4896function multishell.getTab(tabId)
4897 return kernel.find(tabId)
4898end
4899
4900function multishell.terminate(tabId)
4901 os.queueEvent('multishell_terminate', tabId)
4902end
4903
4904function multishell.getTabs()
4905 return kernel.routines
4906end
4907
4908function multishell.launch(env, path, ...)
4909 -- backwards compatibility
4910 return multishell.openTab(env, {
4911 path = path,
4912 args = { ... },
4913 })
4914end
4915
4916local function chain(orig, fn)
4917 if not orig then
4918 return fn
4919 end
4920
4921 if type(orig) == 'table' then
4922 table.insert(orig, fn)
4923 return orig
4924 end
4925
4926 return setmetatable({ orig, fn }, {
4927 __call = function(self, ...)
4928 for _,v in pairs(self) do
4929 v(...)
4930 end
4931 end
4932 })
4933end
4934
4935function multishell.openTab(env, tab)
4936 if not tab.title and tab.path then
4937 tab.title = fs.getName(tab.path):match('([^%.]+)')
4938 end
4939 tab.title = tab.title or 'untitled'
4940 tab.window = tab.window or window.create(parentTerm, 1, 2, w, h - 1, false)
4941 -- require('opus.terminal').window(parentTerm, 1, 2, w, h - 1, false)
4942 tab.onExit = chain(tab.onExit, function(self, result, err, stack)
4943 if not result and err and err ~= 'Terminated' then
4944 self.terminal.setTextColor(colors.white)
4945 self.terminal.setCursorBlink(false)
4946 print('\nThe program terminated with an error.\n')
4947 if tonumber(err) then
4948 printError('Process exited with error code: ' .. err)
4949 elseif err then
4950 printError(tostring(err))
4951 end
4952 if type(stack) == 'table' and #stack > 0 then
4953 local _, cy = self.terminal.getCursorPos()
4954 local _, th = self.terminal.getSize()
4955 self.terminal.setTextColor(colors.white)
4956 if cy < th - 4 then
4957 print('\nstack traceback:')
4958 for _, v in ipairs(stack or { }) do
4959 _, cy = self.terminal.getCursorPos()
4960 if cy > th - 3 then
4961 print(' ...')
4962 break
4963 end
4964 print(v)
4965 end
4966 end
4967 end
4968 self.terminal.setTextColor(parentTerm.isColor() and colors.yellow or colors.white)
4969 _G.write('\nPress enter to close')
4970 self.isDead = true
4971 self.hidden = false
4972 redrawMenu()
4973 while true do
4974 local e, code = os.pullEventRaw('key')
4975 if e == 'terminate' or e == 'key' and code == keys.enter then
4976 break
4977 end
4978 end
4979 end
4980 end)
4981
4982 local routine, message = kernel.run(env, tab)
4983
4984 if routine then
4985 if tab.focused then
4986 multishell.setFocus(routine.uid)
4987 else
4988 redrawMenu()
4989 end
4990 end
4991
4992 return routine and routine.uid, message
4993end
4994
4995function multishell.hideTab(tabId)
4996 local tab = kernel.find(tabId)
4997 if tab then
4998 tab.hidden = true
4999 kernel.lower(tab.uid)
5000 redrawMenu()
5001 end
5002end
5003
5004function multishell.unhideTab(tabId)
5005 local tab = kernel.find(tabId)
5006 if tab then
5007 tab.hidden = false
5008 redrawMenu()
5009 end
5010end
5011
5012function multishell.getCount()
5013 return #kernel.routines
5014end
5015
5016kernel.hook('kernel_focus', function()
5017 redrawMenu()
5018end)
5019
5020kernel.hook('multishell_terminate', function(_, eventData)
5021 local tab = kernel.find(eventData[1])
5022 if tab and not tab.isOverview then
5023 if coroutine.status(tab.co) ~= 'dead' then
5024 tab:resume("terminate")
5025 end
5026 end
5027 return true
5028end)
5029
5030kernel.hook('terminate', function()
5031 return kernel.getFocused().isOverview
5032end)
5033
5034kernel.hook('multishell_redraw', function()
5035 tabsDirty = false
5036
5037 local blit = Blit(w, {
5038 bg = _colors.tabBarBackgroundColor,
5039 fg = _colors.textColor,
5040 palette = palette,
5041 })
5042
5043 local currentTab = kernel.getFocused()
5044
5045 for _,tab in pairs(kernel.routines) do
5046 if tab.hidden and tab ~= currentTab then
5047 tab.width = 0
5048 else
5049 tab.width = #tab.title + 1
5050 end
5051 end
5052
5053 local function width()
5054 local tw = 0
5055 Util.each(kernel.routines, function(t) tw = tw + t.width end)
5056 return tw
5057 end
5058
5059 while width() > w - 3 do
5060 local tab = select(2,
5061 Util.spairs(kernel.routines, function(a, b) return a.width > b.width end)())
5062 tab.width = tab.width - 1
5063 end
5064
5065 local function compareTab(a, b)
5066 if a.hidden then return false end
5067 return b.hidden or a.uid < b.uid
5068 end
5069
5070 local tabX = 0
5071 for _,tab in Util.spairs(kernel.routines, compareTab) do
5072 if tab.width > 0 then
5073 tab.sx = tabX + 1
5074 tab.ex = tabX + tab.width
5075 tabX = tabX + tab.width
5076 if tab ~= currentTab then
5077 local textColor = tab.isDead and _colors.errorColor or _colors.textColor
5078 blit:write(tab.sx, tab.title:sub(1, tab.width - 1),
5079 _colors.backgroundColor, textColor)
5080 end
5081 end
5082 end
5083
5084 if currentTab then
5085 if currentTab.sx then
5086 local textColor = currentTab.isDead and _colors.errorColor or _colors.focusTextColor
5087 blit:write(currentTab.sx - 1,
5088 ' ' .. currentTab.title:sub(1, currentTab.width - 1) .. ' ',
5089 _colors.focusBackgroundColor, textColor)
5090 end
5091 if not currentTab.noTerminate then
5092 blit:write(w, closeInd, nil, _colors.focusTextColor)
5093 end
5094 end
5095
5096 parentTerm.setCursorPos(1, 1)
5097 parentTerm.blit(blit.text, blit.fg, blit.bg)
5098
5099 if currentTab and currentTab.window then
5100 currentTab.window.restoreCursor()
5101 end
5102
5103 return true
5104end)
5105
5106kernel.hook('term_resize', function(_, eventData)
5107 if not eventData[1] then --- TEST
5108 w,h = parentTerm.getSize()
5109
5110 local windowHeight = h-1
5111
5112 for _,key in pairs(Util.keys(kernel.routines)) do
5113 local tab = kernel.routines[key]
5114 local x,y = tab.window.getCursorPos()
5115 if y > windowHeight then
5116 tab.window.scroll(y - windowHeight)
5117 tab.window.setCursorPos(x, windowHeight)
5118 end
5119 tab.window.reposition(1, 2, w, windowHeight)
5120 end
5121
5122 redrawMenu()
5123 end
5124end)
5125
5126kernel.hook('mouse_click', function(_, eventData)
5127 if not eventData[4] then
5128 local x, y = eventData[2], eventData[3]
5129
5130 if y == 1 then
5131 if x == 1 then
5132 multishell.setFocus(overviewId)
5133 elseif x == w then
5134 local currentTab = kernel.getFocused()
5135 if currentTab then
5136 multishell.terminate(currentTab.uid)
5137 end
5138 else
5139 for _,tab in pairs(kernel.routines) do
5140 if not tab.hidden and tab.sx then
5141 if x >= tab.sx and x <= tab.ex then
5142 multishell.setFocus(tab.uid)
5143 break
5144 end
5145 end
5146 end
5147 end
5148 return true
5149 end
5150 eventData[3] = eventData[3] - 1
5151 end
5152end)
5153
5154kernel.hook({ 'mouse_up', 'mouse_drag' }, function(_, eventData)
5155 if not eventData[4] then
5156 eventData[3] = eventData[3] - 1
5157 end
5158end)
5159
5160kernel.hook('mouse_scroll', function(_, eventData)
5161 if not eventData[4] then
5162 if eventData[3] == 1 then
5163 return true
5164 end
5165 eventData[3] = eventData[3] - 1
5166 end
5167end)
5168
5169kernel.hook('kernel_ready', function()
5170 overviewId = multishell.openTab(_ENV, {
5171 path = 'sys/apps/shell.lua',
5172 args = { config.launcher or 'sys/apps/Overview.lua' },
5173 isOverview = true,
5174 noTerminate = true,
5175 focused = true,
5176 title = '+',
5177 onExit = function(_, s, m)
5178 if not s then
5179 kernel.halt(s, m)
5180 end
5181 end,
5182 })
5183 multishell.setTitle(overviewId, '+')
5184
5185 multishell.openTab(_ENV, {
5186 path = 'sys/apps/shell.lua',
5187 args = { 'sys/apps/autorun.lua' },
5188 title = 'Autorun',
5189 })
5190end) stolen/16478-25.10.2020.0043/sys/init/3.sys.lua 0000777 0000000 0000000 00000001422 13745134001 014622 0 ustar local fs = _G.fs
5191local os = _G.os
5192
5193fs.loadTab('sys/etc/fstab')
5194
5195-- add some Lua compatibility functions
5196function os.remove(a)
5197 if fs.exists(a) then
5198 local s = pcall(fs.delete, a)
5199 return s and true or nil, a .. ': Unable to remove file'
5200 end
5201 return nil, a .. ': No such file or directory'
5202end
5203
5204os.execute = function(cmd)
5205 local env = _G.getfenv(2)
5206 if not cmd then
5207 return env.shell and 1 or 0
5208 end
5209
5210 if not env.shell then
5211 return 0
5212 end
5213
5214 local s, m = env.shell.run('sys/apps/shell.lua ' .. cmd)
5215
5216 if not s then
5217 return 1, m
5218 end
5219
5220 return 0
5221end
5222
5223os.tmpname = function()
5224 local fname
5225 repeat
5226 fname = 'tmp/a' .. math.random(1, 32768)
5227 until not fs.exists(fname)
5228
5229 return fname
5230end
5231
5232-- non-standard - will raise error instead
5233os.exit = function(code)
5234 error(code or 0)
5235end stolen/16478-25.10.2020.0043/sys/init/6.packages.lua 0000777 0000000 0000000 00000002615 13745134001 015572 0 ustar local Packages = require('opus.packages')
5236local Util = require('opus.util')
5237
5238local fs = _G.fs
5239local help = _G.help
5240local shell = _ENV.shell
5241
5242local appPaths = Util.split(shell.path(), '(.-):')
5243local helpPaths = Util.split(help.path(), '(.-):')
5244
5245table.insert(helpPaths, '/sys/help')
5246
5247for name in pairs(Packages:installed()) do
5248 local packageDir = fs.combine('packages', name)
5249
5250 local fstabPath = fs.combine(packageDir, 'etc/fstab')
5251 if fs.exists(fstabPath) then
5252 fs.loadTab(fstabPath)
5253 end
5254
5255 table.insert(appPaths, 1, '/' .. packageDir)
5256
5257 local apiPath = fs.combine(packageDir, 'apis') -- TODO: rename dir to 'modules' (someday)
5258 if fs.exists(apiPath) then
5259 fs.mount(fs.combine('rom/modules/main', name), 'linkfs', apiPath)
5260 end
5261
5262 local helpPath = '/' .. fs.combine(packageDir, 'help')
5263 if fs.exists(helpPath) then
5264 table.insert(helpPaths, helpPath)
5265 end
5266end
5267
5268help.setPath(table.concat(helpPaths, ':'))
5269shell.setPath(table.concat(appPaths, ':'))
5270
5271local function runDir(directory)
5272 local files = fs.list(directory)
5273 table.sort(files)
5274
5275 for _,file in ipairs(files) do
5276 os.sleep(0)
5277 local result, err = shell.run(directory .. '/' .. file)
5278 if not result and err then
5279 _G.printError('\n' .. err)
5280 end
5281 end
5282end
5283
5284for _, package in pairs(Packages:installedSorted()) do
5285 local packageDir = 'packages/' .. package.name .. '/init'
5286 if fs.exists(packageDir) and fs.isDir(packageDir) then
5287 runDir(packageDir)
5288 end
5289end stolen/16478-25.10.2020.0043/sys/init/5.unpackage.lua 0000777 0000000 0000000 00000001400 13745134001 015740 0 ustar local LZW = require('opus.compress.lzw')
5290local Tar = require('opus.compress.tar')
5291local Util = require('opus.util')
5292
5293local fs = _G.fs
5294
5295if not fs.exists('packages') or not fs.isDir('packages') then
5296 return
5297end
5298
5299for _, name in pairs(fs.list('packages')) do
5300 local fullName = fs.combine('packages', name)
5301 local packageName = name:match('(.+)%.tar%.lzw$')
5302 if packageName and not fs.isDir(fullName) then
5303 local dir = fs.combine('packages', packageName)
5304 if not fs.exists(dir) then
5305 local s, m = pcall(function()
5306 fs.mount(dir, 'ramfs', 'directory')
5307
5308 local c = Util.readFile(fullName, 'rb')
5309
5310 Tar.untar_string(LZW.decompress(c), dir)
5311 end)
5312 if not s then
5313 fs.delete(dir)
5314 print('failed to extract ' .. fullName)
5315 print(m)
5316 end
5317 end
5318 end
5319end stolen/16478-25.10.2020.0043/sys/init/1.device.lua 0000777 0000000 0000000 00000004535 13745134001 015251 0 ustar local Peripheral = require('opus.peripheral')
5320
5321_G.device = Peripheral.getList()
5322
5323_G.device.terminal = _G.kernel.terminal
5324_G.device.terminal.side = 'terminal'
5325_G.device.terminal.type = 'terminal'
5326_G.device.terminal.name = 'terminal'
5327
5328_G.device.keyboard = {
5329 side = 'keyboard',
5330 type = 'keyboard',
5331 name = 'keyboard',
5332 hotkeys = { },
5333 state = { },
5334}
5335
5336_G.device.mouse = {
5337 side = 'mouse',
5338 type = 'mouse',
5339 name = 'mouse',
5340 state = { },
5341}
5342
5343local Input = require('opus.input')
5344local Util = require('opus.util')
5345
5346local device = _G.device
5347local kernel = _G.kernel
5348local keyboard = _G.device.keyboard
5349local keys = _G.keys
5350local mouse = _G.device.mouse
5351local os = _G.os
5352
5353kernel.hook('peripheral', function(_, eventData)
5354 local side = eventData[1]
5355 if side then
5356 local dev = Peripheral.addDevice(device, side)
5357 if dev then
5358 os.queueEvent('device_attach', dev.name)
5359 end
5360 end
5361end)
5362
5363kernel.hook('peripheral_detach', function(_, eventData)
5364 local side = eventData[1]
5365 if side then
5366 for _, dev in pairs(Util.findAll(device, 'side', side)) do
5367 os.queueEvent('device_detach', dev.name)
5368 device[dev.name] = nil
5369 end
5370 end
5371end)
5372
5373local modifiers = Util.transpose {
5374 keys.leftCtrl, keys.rightCtrl,
5375 keys.leftShift, keys.rightShift,
5376 keys.leftAlt, keys.rightAlt,
5377}
5378
5379kernel.hook({ 'key', 'char', 'paste' }, function(event, eventData)
5380 local code = eventData[1]
5381
5382 -- maintain global keyboard modifier state
5383 if event == 'key' and modifiers[code] then
5384 keyboard.state[code] = true
5385 end
5386
5387 -- and fire hotkeys
5388 local hotkey = Input:translate(event, eventData[1], eventData[2])
5389
5390 if hotkey and keyboard.hotkeys[hotkey.code] then
5391 keyboard.hotkeys[hotkey.code](event, eventData)
5392 return true
5393 end
5394end)
5395
5396kernel.hook('key_up', function(_, eventData)
5397 local code = eventData[1]
5398
5399 if modifiers[code] then
5400 keyboard.state[code] = nil
5401 end
5402end)
5403
5404kernel.hook({ 'mouse_click', 'mouse_up', 'mouse_drag' }, function(event, eventData)
5405 local button = eventData[1]
5406 if event == 'mouse_click' then
5407 mouse.state[button] = true
5408 else
5409 if not mouse.state[button] then
5410 return true -- ensure mouse ups are only generated if a mouse down was sent
5411 end
5412 if event == 'mouse_up' then
5413 mouse.state[button] = nil
5414 end
5415 end
5416end)
5417
5418function keyboard.addHotkey(code, fn)
5419 keyboard.hotkeys[code] = fn
5420end
5421
5422function keyboard.removeHotkey(code)
5423 keyboard.hotkeys[code] = nil
5424end stolen/16478-25.10.2020.0043/sys/init/4.user.lua 0000777 0000000 0000000 00000002530 13745134001 014764 0 ustar local Util = require('opus.util')
5425
5426local fs = _G.fs
5427local shell = _ENV.shell
5428
5429if not fs.exists('usr/apps') then
5430 fs.makeDir('usr/apps')
5431end
5432if not fs.exists('usr/autorun') then
5433 fs.makeDir('usr/autorun')
5434end
5435
5436-- move the fstab out of config so that the config directory
5437-- can be remapped to another disk (and for consistency)
5438if fs.exists('usr/config/fstab') and not fs.exists('usr/etc/fstab') then
5439 fs.move('usr/config/fstab', 'usr/etc/fstab')
5440end
5441fs.loadTab('usr/etc/fstab')
5442
5443-- TODO: Temporary
5444local upgrade = Util.readTable('usr/config/shell')
5445if upgrade and (not upgrade.upgraded or upgrade.upgraded ~= 1) then
5446 fs.delete('usr/config/shell')
5447end
5448
5449if not fs.exists('usr/config/shell') then
5450 Util.writeTable('usr/config/shell', {
5451 aliases = shell.aliases(),
5452 path = '/usr/apps',
5453 lua_path = package.path,
5454 upgraded = 1,
5455 })
5456end
5457
5458local config = Util.readTable('usr/config/shell')
5459if config.aliases then
5460 for k in pairs(shell.aliases()) do
5461 shell.clearAlias(k)
5462 end
5463 for k,v in pairs(config.aliases) do
5464 shell.setAlias(k, v)
5465 end
5466end
5467
5468local path = config.path and Util.split(config.path, '(.-):') or { }
5469table.insert(path, '/sys/apps')
5470for _, v in pairs(Util.split(shell.path(), '(.-):')) do
5471 table.insert(path, v)
5472end
5473
5474shell.setPath(table.concat(path, ':'))
5475
5476--_G.LUA_PATH = config.lua_path
5477--_G.settings.set('mbs.shell.require_path', config.lua_path) stolen/16478-25.10.2020.0043/sys/init/3.modules.lua 0000777 0000000 0000000 00000006502 13745134001 015460 0 ustar local Util = require('opus.util')
5478
5479local device = _G.device
5480local kernel = _G.kernel
5481local os = _G.os
5482
5483local containers = {
5484 manipulator = true,
5485 neuralInterface = true,
5486}
5487
5488local cache = { }
5489
5490-- manipulators will throw an error on listModules
5491-- if the user has logged off
5492local function getModules(dev, side)
5493 local list = { }
5494 local s, m = pcall(function()
5495 if dev and dev.listModules then
5496 for _, module in pairs(dev.listModules()) do
5497 list[module] = Util.shallowCopy(dev)
5498 list[module].name = module
5499 list[module].type = module
5500 list[module].side = side
5501 end
5502 end
5503 end)
5504 if not s and m then
5505 _G._syslog(m)
5506 end
5507 return list
5508end
5509
5510-- if a device has been reattached, reuse the existing
5511-- table so any references to the table are retained
5512local function addDevice(dev, args, doQueue)
5513 local name = args.name
5514
5515 if not cache[name] then
5516 cache[name] = { }
5517 end
5518 device[name] = cache[name]
5519 Util.merge(device[name], dev)
5520 Util.merge(device[name], args)
5521
5522 if doQueue then
5523 os.queueEvent('device_attach', name)
5524 end
5525end
5526
5527-- directly access the peripheral as the methods in getInventory, etc.
5528-- can become invalid without any way to tell
5529local function damnManipulator(container, method, args, doQueue)
5530 local dev = { }
5531 local methods = {
5532 'drop', 'getDocs', 'getItem', 'getItemMeta', 'getTransferLocations',
5533 'list', 'pullItems', 'pushItems', 'size', 'suck',
5534 }
5535 -- the user might not be logged in when the compputer is started
5536 -- and there's no way to know when they have logged in.
5537 -- these methods will error if the user is not logged in
5538 if container[method] then
5539 for _,k in pairs(methods) do
5540 dev[k] = function(...)
5541 return device[container.name][method]()[k](...)
5542 end
5543 end
5544
5545 addDevice(dev, args, doQueue)
5546 end
5547end
5548
5549local function addContainer(v, doQueue)
5550 -- add devices like plethora:scanner
5551 for name, dev in pairs(getModules(v, v.side)) do
5552 -- neural and attached modules have precedence over manipulator modules
5553 if not device[name] or v.type ~= 'manipulator' then
5554 addDevice(dev, { name = dev.name, type = dev.name, side = dev.side }, doQueue)
5555 end
5556 end
5557
5558 if v.getName then
5559 local s, m = pcall(function()
5560 local name = v.getName()
5561 if name then
5562 damnManipulator(v, 'getInventory', {
5563 name = name .. ':inventory',
5564 type = 'inventory',
5565 side = v.side
5566 }, doQueue)
5567 damnManipulator(v, 'getEquipment', {
5568 name = name .. ':equipment',
5569 type = 'equipment',
5570 side = v.side
5571 }, doQueue)
5572 damnManipulator(v, 'getEnder', {
5573 name = name .. ':enderChest',
5574 type = 'enderChest',
5575 side = v.side
5576 }, doQueue)
5577 end
5578 end)
5579 if not s and m then
5580 _G._syslog(m)
5581 end
5582 end
5583end
5584
5585for k,v in pairs(device) do
5586 if containers[v.type] then
5587 cache[k] = v
5588 addContainer(v)
5589 end
5590end
5591
5592-- register modules as peripherals
5593kernel.hook('device_attach', function(_, eventData)
5594 local name = eventData[1]
5595 local dev = device[name]
5596
5597 if dev and containers[dev.type] then
5598 -- so... basically, if you get a handle to device.neuralInterface
5599 -- (or manipulator) - that handle will still be valid after
5600 -- a module is removed
5601 if cache[name] then
5602 device[name] = cache[name]
5603 for k,v in pairs(device[name]) do
5604 if type(v) == 'function' then
5605 device[name][k] = nil
5606 end
5607 end
5608 Util.merge(device[name], dev)
5609 else
5610 cache[name] = dev
5611 end
5612 addContainer(dev, true)
5613 end
5614end) stolen/16478-25.10.2020.0043/sys/init/3.relay.lua 0000777 0000000 0000000 00000001075 13745134001 015124 0 ustar local device = _G.device
5615local kernel = _G.kernel
5616
5617local function register(v)
5618 if v and v.isWireless and v.isAccessPoint and v.getNamesRemote then
5619 v._children = { }
5620 for _, name in pairs(v.getNamesRemote()) do
5621 local dev = v.getMethodsRemote(name)
5622 if dev then
5623 dev.name = name
5624 dev.side = v.side
5625 dev.type = v.getTypeRemote(name)
5626 device[name] = dev
5627 end
5628 end
5629 end
5630end
5631
5632for _,v in pairs(device) do
5633 register(v)
5634end
5635
5636-- register oc devices as peripherals
5637kernel.hook('device_attach', function(_, eventData)
5638 register(device[eventData[1]])
5639end) stolen/16478-25.10.2020.0043/sys/init/2.vfs.lua 0000777 0000000 0000000 00000017740 13745134001 014613 0 ustar local fs = _G.fs
5640
5641if fs.native then
5642 return
5643end
5644
5645local Util = require('opus.util')
5646
5647fs.native = Util.shallowCopy(fs)
5648
5649local fstypes = { }
5650local nativefs = { }
5651
5652for k,fn in pairs(fs) do
5653 if type(fn) == 'function' then
5654 nativefs[k] = function(_, ...)
5655 return fn(...)
5656 end
5657 end
5658end
5659
5660function nativefs.resolve(_, dir)
5661 return dir
5662end
5663
5664function nativefs.list(node, dir)
5665 local files
5666 if fs.native.isDir(dir) then
5667 files = fs.native.list(dir)
5668 end
5669
5670 local function inList(l, e)
5671 for _,v in ipairs(l) do
5672 if v == e then
5673 return true
5674 end
5675 end
5676 end
5677
5678 if dir == node.mountPoint and node.nodes then
5679 files = files or { }
5680 for k in pairs(node.nodes) do
5681 if not inList(files, k) then
5682 table.insert(files, k)
5683 end
5684 end
5685 end
5686
5687 if not files then
5688 error('Not a directory', 2)
5689 end
5690
5691 return files
5692end
5693
5694function nativefs.getSize(node, dir, recursive)
5695 if recursive and fs.native.isDir(dir) then
5696 local function sum(dir)
5697 local total = 0
5698 local files = fs.native.list(dir)
5699 for _,f in ipairs(files) do
5700 local fullName = fs.combine(dir, f)
5701 if fs.native.isDir(fullName) then
5702 total = total + sum(fullName)
5703 else
5704 total = total + fs.native.getSize(fullName)
5705 end
5706 end
5707 return total
5708 end
5709 return sum(dir)
5710 end
5711 if node.mountPoint == dir and node.nodes then
5712 return 0
5713 end
5714 return fs.native.getSize(dir)
5715end
5716
5717function nativefs.isDir(node, dir)
5718 if node.mountPoint == dir then
5719 return not not node.nodes
5720 end
5721 return fs.native.isDir(dir)
5722end
5723
5724function nativefs.attributes(node, path)
5725 if node.mountPoint == path then
5726 return {
5727 created = node.created or os.epoch('utc'),
5728 modification = node.modification or os.epoch('utc'),
5729 isDir = not not node.nodes,
5730 size = node.size or 0,
5731 }
5732 end
5733 return fs.native.attributes(path)
5734end
5735
5736function nativefs.exists(node, dir)
5737 if node.mountPoint == dir then
5738 return true
5739 end
5740 return fs.native.exists(dir)
5741end
5742
5743function nativefs.getDrive(node, dir)
5744 if node.mountPoint == dir then
5745 return fs.native.getDrive(dir) or 'virt'
5746 end
5747 return fs.native.getDrive(dir)
5748end
5749
5750function nativefs.delete(node, dir)
5751 if node.mountPoint == dir then
5752 fs.unmount(dir)
5753 else
5754 fs.native.delete(dir)
5755 end
5756end
5757
5758fstypes.nativefs = nativefs
5759fs.nodes = {
5760 fs = nativefs,
5761 mountPoint = '',
5762 fstype = 'nativefs',
5763 nodes = { },
5764}
5765
5766local function splitpath(path)
5767 local parts = { }
5768 for match in string.gmatch(path, "[^/]+") do
5769 table.insert(parts, match)
5770 end
5771 return parts
5772end
5773
5774local function getNode(dir)
5775 if not dir then error('Invalid directory', 2) end
5776 local cd = fs.combine(dir, '')
5777 local parts = splitpath(cd)
5778 local node = fs.nodes
5779
5780 for _,d in ipairs(parts) do
5781 if node.nodes and node.nodes[d] then
5782 node = node.nodes[d]
5783 else
5784 break
5785 end
5786 end
5787
5788 return node
5789end
5790
5791fs.getNode = getNode
5792
5793local methods = { 'delete', 'getFreeSpace', 'exists', 'isDir', 'getSize',
5794 'isReadOnly', 'makeDir', 'getDrive', 'list', 'open', 'attributes' }
5795
5796for _,m in pairs(methods) do
5797 fs[m] = function(dir, ...)
5798 dir = fs.combine(dir or '', '')
5799 local node = getNode(dir)
5800 return node.fs[m](node, dir, ...)
5801 end
5802end
5803
5804-- if a link, return the source for this link
5805function fs.resolve(dir)
5806 local n = getNode(dir)
5807 return n.fs.resolve and n.fs.resolve(n, dir) or dir
5808end
5809
5810function fs.complete(partial, dir, includeFiles, includeSlash)
5811 dir = fs.combine(dir, '')
5812 local node = getNode(dir)
5813 if node.fs.complete then
5814 return node.fs.complete(node, partial, dir, includeFiles, includeSlash)
5815 end
5816 return fs.native.complete(partial, dir, includeFiles, includeSlash)
5817end
5818
5819local displayFlags = {
5820 urlfs = 'U',
5821 linkfs = 'L',
5822 ramfs = 'T',
5823 netfs = 'N',
5824}
5825
5826function fs.listEx(dir)
5827 dir = fs.combine(dir, '')
5828 local node = getNode(dir)
5829 if node.fs.listEx then
5830 return node.fs.listEx(node, dir)
5831 end
5832
5833 local t = { }
5834 local files = node.fs.list(node, dir)
5835
5836 for _,f in ipairs(files) do
5837 pcall(function()
5838 local fullName = fs.combine(dir, f)
5839 local n = fs.getNode(fullName)
5840 local file = {
5841 name = f,
5842 isDir = fs.isDir(fullName),
5843 isReadOnly = fs.isReadOnly(fullName),
5844 fstype = n.mountPoint == fullName and displayFlags[n.fstype],
5845 }
5846 if not file.isDir then
5847 file.size = fs.getSize(fullName)
5848 end
5849 table.insert(t, file)
5850 end)
5851 end
5852 return t
5853end
5854
5855function fs.copy(s, t)
5856 if not s then error('copy: bad argument #1') end
5857 if not t then error('copy: bad argument #2') end
5858 local sp = getNode(s)
5859 local tp = getNode(t)
5860 if sp == tp and sp.fs.copy then
5861 return sp.fs.copy(sp, s, t)
5862 end
5863
5864 if fs.exists(t) then
5865 error('File exists')
5866 end
5867
5868 if fs.isDir(s) then
5869 fs.makeDir(t)
5870 local list = fs.list(s)
5871 for _,f in ipairs(list) do
5872 fs.copy(fs.combine(s, f), fs.combine(t, f))
5873 end
5874
5875 else
5876 local sf = Util.readFile(s, 'rb')
5877 if not sf then
5878 error('No such file')
5879 end
5880
5881 Util.writeFile(t, sf, 'wb')
5882 end
5883end
5884
5885function fs.find(spec) -- not optimized
5886-- local node = getNode(spec)
5887-- local files = node.fs.find(node, spec)
5888 local files = { }
5889 -- method from https://github.com/N70/deltaOS/blob/dev/vfs
5890
5891 -- REVISIT - see globbing in shellex package
5892 local function recurse_spec(results, path, spec)
5893 local segment = spec:match('([^/]*)'):gsub('/', '')
5894 local pattern = '^' .. segment:gsub("[%.%[%]%(%)%%%+%-%?%^%$]","%%%1"):gsub("%z","%%z"):gsub("%*","[^/]-") .. '$'
5895 if fs.isDir(path) then
5896 for _, file in ipairs(fs.list(path)) do
5897 if file:match(pattern) then
5898 local f = fs.combine(path, file)
5899 if spec == segment then
5900 table.insert(results, f)
5901 end
5902 if fs.isDir(f) then
5903 recurse_spec(results, f, spec:sub(#segment + 2))
5904 end
5905 end
5906 end
5907 end
5908 end
5909 recurse_spec(files, '', spec)
5910 table.sort(files)
5911
5912 return files
5913end
5914
5915function fs.move(s, t)
5916 local sp = getNode(s)
5917 local tp = getNode(t)
5918 if sp == tp and sp.fs.move then
5919 return sp.fs.move(sp, s, t)
5920 end
5921 fs.copy(s, t)
5922 fs.delete(s)
5923end
5924
5925local function getfstype(fstype)
5926 local vfs = fstypes[fstype]
5927 if not vfs then
5928 vfs = require('opus.fs.' .. fstype)
5929 fs.registerType(fstype, vfs)
5930 end
5931 return vfs
5932end
5933
5934function fs.mount(path, fstype, ...)
5935 local vfs = getfstype(fstype)
5936 if not vfs then
5937 error('Invalid file system type')
5938 end
5939
5940 -- get the mount point for the path
5941 -- ie. if packages is mapped to disk/packages
5942 -- and a request to mount /packages/foo
5943 -- then use disk/packages/foo as the mountPoint
5944 path = fs.resolve(path)
5945
5946 local node = vfs.mount(path, ...)
5947 if node then
5948 local parts = splitpath(path)
5949 local targetName = table.remove(parts, #parts)
5950
5951 local tp = fs.nodes
5952 for _,d in ipairs(parts) do
5953 if not tp.nodes then
5954 tp.nodes = { }
5955 end
5956 if not tp.nodes[d] then
5957 tp.nodes[d] = Util.shallowCopy(tp)
5958 tp.nodes[d].nodes = { }
5959 tp.nodes[d].mountPoint = fs.combine(tp.mountPoint, d)
5960 tp.nodes[d].created = os.epoch('utc')
5961 tp.nodes[d].modification = os.epoch('utc')
5962 end
5963 tp = tp.nodes[d]
5964 end
5965
5966 node.fs = vfs
5967 node.fstype = fstype
5968 node.created = node.created or os.epoch('utc')
5969 node.modification = node.modification or os.epoch('utc')
5970 if not targetName then
5971 node.mountPoint = ''
5972 fs.nodes = node
5973 else
5974 node.mountPoint = fs.combine(tp.mountPoint, targetName)
5975 tp.nodes[targetName] = node
5976 end
5977 end
5978 return node
5979end
5980
5981function fs.loadTab(path)
5982 local mounts = Util.readFile(path)
5983 if mounts then
5984 for _,l in ipairs(Util.split(mounts)) do
5985 l = Util.trim(l)
5986 if #l > 0 and l:sub(1, 1) ~= '#' then
5987 local s, m = pcall(function()
5988 fs.mount(table.unpack(Util.matches(l)))
5989 end)
5990 if not s then
5991 _G.printError('Mount failed')
5992 _G.printError(l)
5993 _G.printError(m)
5994 end
5995 end
5996 end
5997 end
5998end
5999
6000local function getNodeByParts(parts)
6001 local node = fs.nodes
6002
6003 for _,d in ipairs(parts) do
6004 if not node.nodes[d] then
6005 return
6006 end
6007 node = node.nodes[d]
6008 end
6009 return node
6010end
6011
6012function fs.unmount(path)
6013 local parts = splitpath(path)
6014 local targetName = table.remove(parts, #parts)
6015
6016 local node = getNodeByParts(parts)
6017
6018 if node and node.nodes[targetName] then
6019 node.nodes[targetName] = nil
6020 end
6021end
6022
6023function fs.registerType(name, vfs)
6024 fstypes[name] = vfs
6025end
6026
6027function fs.getTypes()
6028 return fstypes
6029end
6030
6031function fs.restore()
6032 local native = fs.native
6033 Util.clear(fs)
6034 Util.merge(fs, native)
6035end stolen/16478-25.10.2020.0043/sys/boot/kiosk.boot 0000777 0000000 0000000 00000001741 13745134001 015151 0 ustar local os = _G.os
6036local parallel = _G.parallel
6037local peripheral = _G.peripheral
6038local settings = _G.settings
6039local term = _G.term
6040
6041local name = settings.get('kiosk.monitor')
6042
6043if not name then
6044 peripheral.find('monitor', function(s)
6045 name = s
6046 end)
6047end
6048
6049local mon = name and peripheral.wrap(name)
6050
6051if mon then
6052 print("Opus OS is running in Kiosk mode, and the screen will be redirected to the monitor. To undo this, go to the boot option menu by pressing a key while booting, then select the option 2.")
6053 term.redirect(mon)
6054 mon.setTextScale(tonumber(settings.get('kiosk.textscale')) or 1)
6055
6056 parallel.waitForAny(
6057 function()
6058 os.run(_ENV, '/sys/boot/opus.boot')
6059 end,
6060
6061 function()
6062 while true do
6063 local event, side, x, y = os.pullEventRaw('monitor_touch')
6064
6065 if event == 'monitor_touch' and side == name then
6066 os.queueEvent('mouse_click', 1, x, y)
6067 os.queueEvent('mouse_up', 1, x, y)
6068 end
6069 end
6070 end
6071 )
6072else
6073 os.run(_ENV, '/sys/boot/opus.boot')
6074end stolen/16478-25.10.2020.0043/sys/boot/opus.boot 0000777 0000000 0000000 00000002534 13745134001 015020 0 ustar local fs = _G.fs
6075
6076-- override bios function to use the global scope of the current env
6077function _G.loadstring(string, chunkname)
6078 return load(string, chunkname, nil, getfenv(2)._G)
6079end
6080
6081-- override bios function to include the actual filename
6082function _G.loadfile(filename, mode, env)
6083 -- Support the previous `loadfile(filename, env)` form instead.
6084 if type(mode) == "table" and env == nil then
6085 mode, env = nil, mode
6086 end
6087
6088 local file = fs.open(filename, "r")
6089 if not file then return nil, "File not found" end
6090
6091 local func, err = load(file.readAll(), '@' .. filename, mode, env)
6092 file.close()
6093 return func, err
6094end
6095
6096local sandboxEnv = setmetatable({ }, { __index = _G })
6097for k,v in pairs(_ENV) do
6098 sandboxEnv[k] = v
6099end
6100
6101-- Install require shim
6102_G.requireInjector = loadfile('sys/modules/opus/injector.lua', _ENV)()
6103
6104local function run(file, ...)
6105 local env = setmetatable({ }, { __index = _G })
6106 for k,v in pairs(sandboxEnv) do
6107 env[k] = v
6108 end
6109
6110 _G.requireInjector(env)
6111
6112 local s, m = loadfile(file, env)
6113 if s then
6114 return s(...)
6115 end
6116 error('Error loading ' .. file .. '\n' .. m)
6117end
6118
6119_G._syslog = function() end
6120_G.OPUS_BRANCH = 'develop-1.8'
6121
6122local s, m = pcall(run, 'sys/apps/shell.lua', 'sys/kernel.lua', ...)
6123
6124if not s then
6125 print('\nError loading Opus OS\n')
6126 _G.printError(m .. '\n')
6127end
6128
6129if fs.restore then
6130 fs.restore()
6131end stolen/16478-25.10.2020.0043/sys/boot/tlco.boot 0000777 0000000 0000000 00000000411 13745134001 014763 0 ustar local pullEvent = os.pullEventRaw
6132local shutdown = os.shutdown
6133
6134os.pullEventRaw = function()
6135 error('')
6136end
6137
6138os.shutdown = function()
6139 os.pullEventRaw = pullEvent
6140 os.shutdown = shutdown
6141
6142 os.run(getfenv(1), 'sys/boot/opus.boot')
6143end
6144
6145os.queueEvent('modem_message') stolen/16478-25.10.2020.0043/sys/modules/opus/ansi.lua 0000777 0000000 0000000 00000001640 13745134001 016272 0 ustar local Ansi = setmetatable({ }, {
6146 __call = function(_, ...)
6147 local str = '\027['
6148 for k,v in ipairs({ ...}) do
6149 if k == 1 then
6150 str = str .. v
6151 else
6152 str = str .. ';' .. v
6153 end
6154 end
6155 return str .. 'm'
6156 end
6157})
6158
6159Ansi.codes = {
6160 reset = 0,
6161 white = 1,
6162 orange = 2,
6163 magenta = 3,
6164 lightBlue = 4,
6165 yellow = 5,
6166 lime = 6,
6167 pink = 7,
6168 gray = 8,
6169 lightGray = 9,
6170 cyan = 10,
6171 purple = 11,
6172 blue = 12,
6173 brown = 13,
6174 green = 14,
6175 red = 15,
6176 black = 16,
6177 onwhite = 21,
6178 onorange = 22,
6179 onmagenta = 23,
6180 onlightBlue = 24,
6181 onyellow = 25,
6182 onlime = 26,
6183 onpink = 27,
6184 ongray = 28,
6185 onlightGray = 29,
6186 oncyan = 30,
6187 onpurple = 31,
6188 onblue = 32,
6189 onbrown = 33,
6190 ongreen = 34,
6191 onred = 35,
6192 onblack = 36,
6193}
6194
6195for k,v in pairs(Ansi.codes) do
6196 Ansi[k] = Ansi(v)
6197end
6198
6199return Ansi stolen/16478-25.10.2020.0043/sys/modules/opus/fs/gitfs.lua 0000777 0000000 0000000 00000000605 13745134001 017064 0 ustar local git = require('opus.git')
6200
6201local fs = _G.fs
6202
6203local gitfs = { }
6204
6205function gitfs.mount(dir, repo)
6206 if not repo then
6207 error('gitfs syntax: repo')
6208 end
6209
6210 local list = git.list(repo)
6211 for path, entry in pairs(list) do
6212 if not fs.exists(fs.combine(dir, path)) then
6213 local node = fs.mount(fs.combine(dir, path), 'urlfs', entry.url)
6214 node.size = entry.size
6215 end
6216 end
6217end
6218
6219return gitfs stolen/16478-25.10.2020.0043/sys/modules/opus/fs/urlfs.lua 0000777 0000000 0000000 00000003525 13745134001 017107 0 ustar --local rttp = require('rttp')
6220local Util = require('opus.util')
6221
6222local fs = _G.fs
6223
6224local urlfs = { }
6225
6226function urlfs.mount(path, url, force)
6227 if not url then
6228 error('URL is required')
6229 end
6230
6231 -- only mount if the file does not exist already
6232 if not fs.exists(path) or force then
6233 return {
6234 url = url,
6235 created = os.epoch('utc'),
6236 modification = os.epoch('utc'),
6237 }
6238 end
6239end
6240
6241function urlfs.attributes(node, path)
6242 return path == node.mountPoint and {
6243 created = node.created,
6244 isDir = false,
6245 modification = node.modification,
6246 size = node.size or 0,
6247 }
6248end
6249
6250function urlfs.delete(node, path)
6251 if path == node.mountPoint then
6252 fs.unmount(path)
6253 end
6254end
6255
6256function urlfs.exists(node, path)
6257 return path == node.mountPoint
6258end
6259
6260function urlfs.getSize(node, path)
6261 return path == node.mountPoint and node.size or 0
6262end
6263
6264function urlfs.isReadOnly()
6265 return false
6266end
6267
6268function urlfs.isDir()
6269 return false
6270end
6271
6272function urlfs.getDrive()
6273 return 'url'
6274end
6275
6276function urlfs.open(node, fn, fl)
6277 if fl == 'w' or fl == 'wb' then
6278 fs.delete(fn)
6279 return fs.open(fn, fl)
6280 end
6281
6282 if fl ~= 'r' and fl ~= 'rb' then
6283 error('Unsupported mode')
6284 end
6285
6286 local c = node.cache
6287 if not c then
6288 c = Util.httpGet(node.url)
6289 if c then
6290 node.cache = c
6291 node.size = #c
6292 end
6293 end
6294
6295 if not c then
6296 return
6297 end
6298
6299 local ctr = 0
6300 local lines
6301
6302 if fl == 'r' then
6303 return {
6304 read = function()
6305 ctr = ctr + 1
6306 return c:sub(ctr, ctr)
6307 end,
6308 readLine = function()
6309 if not lines then
6310 lines = Util.split(c)
6311 end
6312 ctr = ctr + 1
6313 return lines[ctr]
6314 end,
6315 readAll = function()
6316 return c
6317 end,
6318 close = function()
6319 lines = nil
6320 end,
6321 }
6322 end
6323 return {
6324 readAll = function()
6325 return c
6326 end,
6327 read = function()
6328 ctr = ctr + 1
6329 return c:sub(ctr, ctr):byte()
6330 end,
6331 close = function()
6332 ctr = 0
6333 end,
6334 }
6335end
6336
6337return urlfs stolen/16478-25.10.2020.0043/sys/modules/opus/fs/ramfs.lua 0000777 0000000 0000000 00000010133 13745134001 017055 0 ustar local Util = require('opus.util')
6338
6339local fs = _G.fs
6340
6341local ramfs = { }
6342
6343function ramfs.mount(_, nodeType)
6344 if nodeType == 'directory' then
6345 return {
6346 nodes = { },
6347 size = 0,
6348 created = os.epoch('utc'),
6349 modification = os.epoch('utc'),
6350 }
6351 elseif nodeType == 'file' then
6352 return {
6353 size = 0,
6354 created = os.epoch('utc'),
6355 modification = os.epoch('utc'),
6356 }
6357 end
6358 error('ramfs syntax: [directory, file]')
6359end
6360
6361function ramfs.attributes(node)
6362 return {
6363 created = node.created,
6364 isDir = not not node.nodes,
6365 modification = node.modification,
6366 size = node.size,
6367 }
6368end
6369
6370function ramfs.delete(node, dir)
6371 if node.mountPoint == dir then
6372 fs.unmount(node.mountPoint)
6373 end
6374end
6375
6376function ramfs.exists(node, fn)
6377 return node.mountPoint == fn
6378end
6379
6380function ramfs.getSize(node)
6381 return node.size
6382end
6383
6384function ramfs.isReadOnly()
6385 return false
6386end
6387
6388function ramfs.makeDir(_, dir)
6389 fs.mount(dir, 'ramfs', 'directory')
6390end
6391
6392function ramfs.isDir(node, dir)
6393 if node.mountPoint == dir then
6394 return not not node.nodes
6395 end
6396end
6397
6398function ramfs.getDrive()
6399 return 'ram'
6400end
6401
6402function ramfs.getFreeSpace()
6403 return math.huge
6404end
6405
6406function ramfs.list(node, dir)
6407 if node.nodes and node.mountPoint == dir then
6408 local files = { }
6409 for k in pairs(node.nodes) do
6410 table.insert(files, k)
6411 end
6412 return files
6413 end
6414 error('Not a directory')
6415end
6416
6417function ramfs.open(node, fn, fl)
6418 local modes = Util.transpose { 'r', 'w', 'rb', 'wb', 'a' }
6419 if not modes[fl] then
6420 error('Unsupported mode')
6421 end
6422
6423 if fl == 'a' then
6424 if node.mountPoint ~= fn then
6425 fl = 'w'
6426 else
6427 local c = type(node.contents) == 'table'
6428 and string.char(table.unpack(node.contents))
6429 or node.contents
6430 or ''
6431
6432 return {
6433 write = function(str)
6434 c = c .. str
6435 end,
6436 writeLine = function(str)
6437 c = c .. str .. '\n'
6438 end,
6439 flush = function()
6440 node.contents = c
6441 node.size = #c
6442 end,
6443 close = function()
6444 node.contents = c
6445 node.size = #c
6446 c = nil
6447 end,
6448 }
6449 end
6450 end
6451
6452 if fl == 'r' then
6453 if node.mountPoint ~= fn then
6454 return
6455 end
6456
6457 local c = type(node.contents) == 'table'
6458 and string.char(table.unpack(node.contents))
6459 or node.contents
6460
6461 local ctr = 0
6462 local lines
6463 return {
6464 read = function(n)
6465 n = n or 1
6466 if ctr >= node.size then
6467 return
6468 end
6469 local t = c:sub(ctr + 1, ctr + n)
6470 ctr = ctr + n
6471 return t
6472 end,
6473 readLine = function()
6474 if not lines then
6475 lines = Util.split(c)
6476 end
6477 ctr = ctr + 1
6478 return lines[ctr]
6479 end,
6480 readAll = function()
6481 return c
6482 end,
6483 close = function()
6484 lines = nil
6485 end,
6486 }
6487 elseif fl == 'w' then
6488 node = fs.mount(fn, 'ramfs', 'file')
6489
6490 local c = ''
6491 return {
6492 write = function(str)
6493 c = c .. str
6494 end,
6495 writeLine = function(str)
6496 c = c .. str .. '\n'
6497 end,
6498 flush = function()
6499 node.contents = c
6500 node.size = #c
6501 end,
6502 close = function()
6503 node.contents = c
6504 node.size = #c
6505 c = nil
6506 end,
6507 }
6508 elseif fl == 'rb' then
6509 if node.mountPoint ~= fn or not node.contents then
6510 return
6511 end
6512
6513 local c = node.contents
6514 if type(node.contents) == 'string' then
6515 c = { }
6516 for i = 1, node.size do
6517 c[i] = node.contents:sub(i, i):byte()
6518 end
6519 end
6520
6521 local ctr = 0
6522 return {
6523 readAll = function()
6524 return string.char(table.unpack(c))
6525 end,
6526 read = function(n)
6527 if n and n > 1 and ctr < node.size then
6528 -- some programs open in rb, when it should have
6529 -- been opened in r - attempt to support multiple read
6530 -- if nils are present in data, this will fail
6531 local t = string.char(table.unpack(c, ctr + 1, ctr + n))
6532 ctr = ctr + n
6533 return t
6534 end
6535 ctr = ctr + 1
6536 return c[ctr]
6537 end,
6538 close = function()
6539 end,
6540 }
6541
6542 elseif fl == 'wb' then
6543 node = fs.mount(fn, 'ramfs', 'file')
6544
6545 local c = { }
6546 return {
6547 write = function(b)
6548 if type(b) == 'number' then
6549 table.insert(c, b)
6550 else
6551 for i = 1, #b do
6552 table.insert(c, b:sub(i, i):byte())
6553 end
6554 end
6555 end,
6556 flush = function()
6557 node.contents = c
6558 node.size = #c
6559 end,
6560 close = function()
6561 node.contents = c
6562 node.size = #c
6563 c = nil
6564 end,
6565 }
6566 end
6567end
6568
6569return ramfs stolen/16478-25.10.2020.0043/sys/modules/opus/fs/linkfs.lua 0000777 0000000 0000000 00000002724 13745134001 017242 0 ustar local fs = _G.fs
6570
6571local linkfs = { }
6572
6573-- TODO: implement broken links
6574
6575local methods = { 'exists', 'getFreeSpace', 'getSize', 'attributes',
6576 'isDir', 'isReadOnly', 'list', 'makeDir', 'open', 'getDrive' }
6577
6578for _,m in pairs(methods) do
6579 linkfs[m] = function(node, dir, ...)
6580 dir = linkfs.resolve(node, dir)
6581 return fs[m](dir, ...)
6582 end
6583end
6584
6585function linkfs.resolve(node, dir)
6586 return dir:gsub(node.mountPoint, node.source, 1)
6587end
6588
6589function linkfs.mount(path, source)
6590 if not source then
6591 error('Source is required')
6592 end
6593 source = fs.combine(source, '')
6594 if not fs.exists(source) then
6595 error('Source is missing')
6596 end
6597 if path == source then
6598 return
6599 end
6600 if fs.isDir(source) then
6601 return {
6602 source = source,
6603 nodes = { },
6604 }
6605 end
6606 return {
6607 source = source
6608 }
6609end
6610
6611function linkfs.copy(node, s, t)
6612 s = s:gsub(node.mountPoint, node.source, 1)
6613 t = t:gsub(node.mountPoint, node.source, 1)
6614 return fs.copy(s, t)
6615end
6616
6617function linkfs.delete(node, dir)
6618 if dir == node.mountPoint then
6619 fs.unmount(node.mountPoint)
6620 else
6621 dir = dir:gsub(node.mountPoint, node.source, 1)
6622 return fs.delete(dir)
6623 end
6624end
6625
6626function linkfs.find(node, spec)
6627 spec = spec:gsub(node.mountPoint, node.source, 1)
6628
6629 local list = fs.find(spec)
6630 for k,f in ipairs(list) do
6631 list[k] = f:gsub(node.source, node.mountPoint, 1)
6632 end
6633
6634 return list
6635end
6636
6637function linkfs.move(node, s, t)
6638 s = s:gsub(node.mountPoint, node.source, 1)
6639 t = t:gsub(node.mountPoint, node.source, 1)
6640 return fs.move(s, t)
6641end
6642
6643return linkfs stolen/16478-25.10.2020.0043/sys/modules/opus/fs/netfs.lua 0000777 0000000 0000000 00000005741 13745134001 017075 0 ustar local Socket = require('opus.socket')
6644local synchronized = require('opus.sync').sync
6645
6646local fs = _G.fs
6647
6648local netfs = { }
6649
6650local function remoteCommand(node, msg)
6651 for _ = 1, 2 do
6652 if not node.socket then
6653 node.socket = Socket.connect(node.id, 139)
6654 end
6655
6656 if not node.socket then
6657 error('netfs: Unable to establish connection to ' .. node.id)
6658 fs.unmount(node.mountPoint)
6659 return
6660 end
6661
6662 local ret
6663 synchronized(node.socket, function()
6664 node.socket:write(msg)
6665 ret = node.socket:read(1)
6666 end)
6667
6668 if ret then
6669 return ret.response
6670 end
6671 node.socket:close()
6672 node.socket = nil
6673 end
6674 error('netfs: Connection failed', 2)
6675end
6676
6677local methods = { 'delete', 'exists', 'getFreeSpace', 'makeDir', 'list', 'listEx', 'attributes' }
6678
6679local function resolve(node, dir)
6680 -- TODO: Wrong ! (does not support names with dashes)
6681 dir = dir:gsub(node.mountPoint, '', 1)
6682 return fs.combine(node.source, dir)
6683end
6684
6685for _,m in pairs(methods) do
6686 netfs[m] = function(node, dir)
6687 dir = resolve(node, dir)
6688
6689 return remoteCommand(node, {
6690 fn = m,
6691 args = { dir },
6692 })
6693 end
6694end
6695
6696function netfs.mount(_, id, source)
6697 if not id or not tonumber(id) then
6698 error('ramfs syntax: computerId [directory]')
6699 end
6700 return {
6701 id = tonumber(id),
6702 nodes = { },
6703 source = source or '',
6704 }
6705end
6706
6707function netfs.getDrive()
6708 return 'net'
6709end
6710
6711function netfs.complete(node, partial, dir, includeFiles, includeSlash)
6712 dir = resolve(node, dir)
6713
6714 return remoteCommand(node, {
6715 fn = 'complete',
6716 args = { partial, dir, includeFiles, includeSlash },
6717 })
6718end
6719
6720function netfs.copy(node, s, t)
6721 s = resolve(node, s)
6722 t = resolve(node, t)
6723
6724 return remoteCommand(node, {
6725 fn = 'copy',
6726 args = { s, t },
6727 })
6728end
6729
6730function netfs.isDir(node, dir)
6731 if dir == node.mountPoint and node.source == '' then
6732 return true
6733 end
6734 return remoteCommand(node, {
6735 fn = 'isDir',
6736 args = { resolve(node, dir) },
6737 })
6738end
6739
6740function netfs.isReadOnly(node, dir)
6741 if dir == node.mountPoint and node.source == '' then
6742 return false
6743 end
6744 return remoteCommand(node, {
6745 fn = 'isReadOnly',
6746 args = { resolve(node, dir) },
6747 })
6748end
6749
6750function netfs.getSize(node, dir)
6751 if dir == node.mountPoint and node.source == '' then
6752 return 0
6753 end
6754 return remoteCommand(node, {
6755 fn = 'getSize',
6756 args = { resolve(node, dir) },
6757 })
6758end
6759
6760function netfs.find(node, spec)
6761 spec = resolve(node, spec)
6762 local list = remoteCommand(node, {
6763 fn = 'find',
6764 args = { spec },
6765 })
6766
6767 for k,f in ipairs(list) do
6768 list[k] = fs.combine(node.mountPoint, f)
6769 end
6770
6771 return list
6772end
6773
6774function netfs.move(node, s, t)
6775 s = resolve(node, s)
6776 t = resolve(node, t)
6777
6778 return remoteCommand(node, {
6779 fn = 'move',
6780 args = { s, t },
6781 })
6782end
6783
6784function netfs.open(node, fn, fl)
6785 fn = resolve(node, fn)
6786
6787 local vfh = remoteCommand(node, {
6788 fn = 'open',
6789 args = { fn, fl },
6790 })
6791
6792 if vfh then
6793 vfh.node = node
6794 for _,m in ipairs(vfh.methods) do
6795 vfh[m] = function(...)
6796 return remoteCommand(node, {
6797 fn = 'fileOp',
6798 args = { vfh.fileUid, m, ... },
6799 })
6800 end
6801 end
6802 end
6803
6804 return vfh
6805end
6806
6807return netfs stolen/16478-25.10.2020.0043/sys/modules/opus/json.lua 0000777 0000000 0000000 00000040402 13745134001 016310 0 ustar -- Module options:
6808local register_global_module_table = false
6809local global_module_name = 'json'
6810
6811--[==[
6812NOTE: Modified to reduce file size.
6813See https://github.com/LuaDist/dkjson/blob/master/dkjson.lua
6814for full version.
6815
6816David Kolf's JSON module for Lua 5.1/5.2
6817Version 2.5
6818
6819For the documentation see the corresponding readme.txt or visit
6820<http://dkolf.de/src/dkjson-lua.fsl/>.
6821
6822You can contact the author by sending an e-mail to 'david' at the
6823domain 'dkolf.de'.
6824
6825Copyright (C) 2010-2014 David Heiko Kolf
6826
6827Refer to license located at https://github.com/LuaDist/dkjson/blob/master/dkjson.lua
6828
6829--]==]
6830
6831-- global dependencies:
6832local pairs, type, tostring, tonumber, getmetatable, setmetatable, rawset =
6833 pairs, type, tostring, tonumber, getmetatable, setmetatable, rawset
6834local error, require, pcall, select = error, require, pcall, select
6835local floor, huge = math.floor, math.huge
6836local strrep, gsub, strsub, strbyte, strchar, strfind, strlen, strformat =
6837 string.rep, string.gsub, string.sub, string.byte, string.char,
6838 string.find, string.len, string.format
6839local strmatch = string.match
6840local concat = table.concat
6841
6842local json = { version = "dkjson 2.5" }
6843
6844if register_global_module_table then
6845 _G[global_module_name] = json
6846end
6847
6848local _ENV = nil -- blocking globals in Lua 5.2
6849
6850pcall (function()
6851 -- Enable access to blocked metatables.
6852 -- Don't worry, this module doesn't change anything in them.
6853 local debmeta = require "debug".getmetatable
6854 if debmeta then getmetatable = debmeta end
6855end)
6856
6857json.null = setmetatable ({}, {
6858 __tojson = function () return "null" end
6859})
6860
6861local function isarray (tbl)
6862 local max, n, arraylen = 0, 0, 0
6863 for k,v in pairs (tbl) do
6864 if k == 'n' and type(v) == 'number' then
6865 arraylen = v
6866 if v > max then
6867 max = v
6868 end
6869 else
6870 if type(k) ~= 'number' or k < 1 or floor(k) ~= k then
6871 return false
6872 end
6873 if k > max then
6874 max = k
6875 end
6876 n = n + 1
6877 end
6878 end
6879 if max > 10 and max > arraylen and max > n * 2 then
6880 return false -- don't create an array with too many holes
6881 end
6882 return true, max
6883end
6884
6885local escapecodes = {
6886 ["\""] = "\\\"", ["\\"] = "\\\\", ["\b"] = "\\b", ["\f"] = "\\f",
6887 ["\n"] = "\\n", ["\r"] = "\\r", ["\t"] = "\\t"
6888}
6889
6890local function escapeutf8 (uchar)
6891 local value = escapecodes[uchar]
6892 if value then
6893 return value
6894 end
6895 local a, b, c, d = strbyte (uchar, 1, 4)
6896 a, b, c, d = a or 0, b or 0, c or 0, d or 0
6897 if a <= 0x7f then
6898 value = a
6899 elseif 0xc0 <= a and a <= 0xdf and b >= 0x80 then
6900 value = (a - 0xc0) * 0x40 + b - 0x80
6901 elseif 0xe0 <= a and a <= 0xef and b >= 0x80 and c >= 0x80 then
6902 value = ((a - 0xe0) * 0x40 + b - 0x80) * 0x40 + c - 0x80
6903 elseif 0xf0 <= a and a <= 0xf7 and b >= 0x80 and c >= 0x80 and d >= 0x80 then
6904 value = (((a - 0xf0) * 0x40 + b - 0x80) * 0x40 + c - 0x80) * 0x40 + d - 0x80
6905 else
6906 return ""
6907 end
6908 if value <= 0xffff then
6909 return strformat ("\\u%.4x", value)
6910 elseif value <= 0x10ffff then
6911 -- encode as UTF-16 surrogate pair
6912 value = value - 0x10000
6913 local highsur, lowsur = 0xD800 + floor (value/0x400), 0xDC00 + (value % 0x400)
6914 return strformat ("\\u%.4x\\u%.4x", highsur, lowsur)
6915 else
6916 return ""
6917 end
6918end
6919
6920local function fsub (str, pattern, repl)
6921 -- gsub always builds a new string in a buffer, even when no match
6922 -- exists. First using find should be more efficient when most strings
6923 -- don't contain the pattern.
6924 if strfind (str, pattern) then
6925 return gsub (str, pattern, repl)
6926 else
6927 return str
6928 end
6929end
6930
6931local function quotestring (value)
6932 -- based on the regexp "escapable" in https://github.com/douglascrockford/JSON-js
6933 value = fsub (value, "[%z\1-\31\"\\\127]", escapeutf8)
6934 if strfind (value, "[\194\216\220\225\226\239]") then
6935 value = fsub (value, "\194[\128-\159\173]", escapeutf8)
6936 value = fsub (value, "\216[\128-\132]", escapeutf8)
6937 value = fsub (value, "\220\143", escapeutf8)
6938 value = fsub (value, "\225\158[\180\181]", escapeutf8)
6939 value = fsub (value, "\226\128[\140-\143\168-\175]", escapeutf8)
6940 value = fsub (value, "\226\129[\160-\175]", escapeutf8)
6941 value = fsub (value, "\239\187\191", escapeutf8)
6942 value = fsub (value, "\239\191[\176-\191]", escapeutf8)
6943 end
6944 return "\"" .. value .. "\""
6945end
6946json.quotestring = quotestring
6947
6948local function replace(str, o, n)
6949 local i, j = strfind (str, o, 1, true)
6950 if i then
6951 return strsub(str, 1, i-1) .. n .. strsub(str, j+1, -1)
6952 else
6953 return str
6954 end
6955end
6956
6957-- locale independent num2str and str2num functions
6958local decpoint, numfilter
6959
6960local function updatedecpoint ()
6961 decpoint = strmatch(tostring(0.5), "([^05+])")
6962 -- build a filter that can be used to remove group separators
6963 numfilter = "[^0-9%-%+eE" .. gsub(decpoint, "[%^%$%(%)%%%.%[%]%*%+%-%?]", "%%%0") .. "]+"
6964end
6965
6966updatedecpoint()
6967
6968local function num2str (num)
6969 return replace(fsub(tostring(num), numfilter, ""), decpoint, ".")
6970end
6971
6972local function str2num (str)
6973 local num = tonumber(replace(str, ".", decpoint))
6974 if not num then
6975 updatedecpoint()
6976 num = tonumber(replace(str, ".", decpoint))
6977 end
6978 return num
6979end
6980
6981local function addnewline2 (level, buffer, buflen)
6982 buffer[buflen+1] = "\n"
6983 buffer[buflen+2] = strrep (" ", level)
6984 buflen = buflen + 2
6985 return buflen
6986end
6987
6988function json.addnewline (state)
6989 if state.indent then
6990 state.bufferlen = addnewline2 (state.level or 0,
6991 state.buffer, state.bufferlen or #(state.buffer))
6992 end
6993end
6994
6995local encode2 -- forward declaration
6996
6997local function addpair (key, value, prev, indent, level, buffer, buflen, tables, globalorder, state)
6998 local kt = type (key)
6999 if kt ~= 'string' and kt ~= 'number' then
7000 return nil, "type '" .. kt .. "' is not supported as a key by JSON."
7001 end
7002 if prev then
7003 buflen = buflen + 1
7004 buffer[buflen] = ","
7005 end
7006 if indent then
7007 buflen = addnewline2 (level, buffer, buflen)
7008 end
7009 buffer[buflen+1] = quotestring (key)
7010 buffer[buflen+2] = ":"
7011 return encode2 (value, indent, level, buffer, buflen + 2, tables, globalorder, state)
7012end
7013
7014local function appendcustom(res, buffer, state)
7015 local buflen = state.bufferlen
7016 if type (res) == 'string' then
7017 buflen = buflen + 1
7018 buffer[buflen] = res
7019 end
7020 return buflen
7021end
7022
7023local function exception(reason, value, state, buffer, buflen, defaultmessage)
7024 defaultmessage = defaultmessage or reason
7025 local handler = state.exception
7026 if not handler then
7027 return nil, defaultmessage
7028 else
7029 state.bufferlen = buflen
7030 local ret, msg = handler (reason, value, state, defaultmessage)
7031 if not ret then return nil, msg or defaultmessage end
7032 return appendcustom(ret, buffer, state)
7033 end
7034end
7035
7036function json.encodeexception(reason, value, state, defaultmessage)
7037 return quotestring("<" .. defaultmessage .. ">")
7038end
7039
7040encode2 = function (value, indent, level, buffer, buflen, tables, globalorder, state)
7041 local valtype = type (value)
7042 local valmeta = getmetatable (value)
7043 valmeta = type (valmeta) == 'table' and valmeta -- only tables
7044 local valtojson = valmeta and valmeta.__tojson
7045 if valtojson then
7046 if tables[value] then
7047 return exception('reference cycle', value, state, buffer, buflen)
7048 end
7049 tables[value] = true
7050 state.bufferlen = buflen
7051 local ret, msg = valtojson (value, state)
7052 if not ret then return exception('custom encoder failed', value, state, buffer, buflen, msg) end
7053 tables[value] = nil
7054 buflen = appendcustom(ret, buffer, state)
7055 elseif value == nil then
7056 buflen = buflen + 1
7057 buffer[buflen] = "null"
7058 elseif valtype == 'number' then
7059 local s
7060 if value ~= value or value >= huge or -value >= huge then
7061 -- This is the behaviour of the original JSON implementation.
7062 s = "null"
7063 else
7064 s = num2str (value)
7065 end
7066 buflen = buflen + 1
7067 buffer[buflen] = s
7068 elseif valtype == 'boolean' then
7069 buflen = buflen + 1
7070 buffer[buflen] = value and "true" or "false"
7071 elseif valtype == 'string' then
7072 buflen = buflen + 1
7073 buffer[buflen] = quotestring (value)
7074 elseif valtype == 'table' then
7075 if tables[value] then
7076 return exception('reference cycle', value, state, buffer, buflen)
7077 end
7078 tables[value] = true
7079 level = level + 1
7080 local isa, n = isarray (value)
7081 if n == 0 and valmeta and valmeta.__jsontype == 'object' then
7082 isa = false
7083 end
7084 local msg
7085 if isa then -- JSON array
7086 buflen = buflen + 1
7087 buffer[buflen] = "["
7088 for i = 1, n do
7089 buflen, msg = encode2 (value[i], indent, level, buffer, buflen, tables, globalorder, state)
7090 if not buflen then return nil, msg end
7091 if i < n then
7092 buflen = buflen + 1
7093 buffer[buflen] = ","
7094 end
7095 end
7096 buflen = buflen + 1
7097 buffer[buflen] = "]"
7098 else -- JSON object
7099 local prev = false
7100 buflen = buflen + 1
7101 buffer[buflen] = "{"
7102 local order = valmeta and valmeta.__jsonorder or globalorder
7103 if order then
7104 local used = {}
7105 n = #order
7106 for i = 1, n do
7107 local k = order[i]
7108 local v = value[k]
7109 if v then
7110 used[k] = true
7111 buflen, msg = addpair (k, v, prev, indent, level, buffer, buflen, tables, globalorder, state)
7112 prev = true -- add a seperator before the next element
7113 end
7114 end
7115 for k,v in pairs (value) do
7116 if not used[k] then
7117 buflen, msg = addpair (k, v, prev, indent, level, buffer, buflen, tables, globalorder, state)
7118 if not buflen then return nil, msg end
7119 prev = true -- add a seperator before the next element
7120 end
7121 end
7122 else -- unordered
7123 for k,v in pairs (value) do
7124 buflen, msg = addpair (k, v, prev, indent, level, buffer, buflen, tables, globalorder, state)
7125 if not buflen then return nil, msg end
7126 prev = true -- add a seperator before the next element
7127 end
7128 end
7129 if indent then
7130 buflen = addnewline2 (level - 1, buffer, buflen)
7131 end
7132 buflen = buflen + 1
7133 buffer[buflen] = "}"
7134 end
7135 tables[value] = nil
7136 else
7137 return exception ('unsupported type', value, state, buffer, buflen,
7138 "type '" .. valtype .. "' is not supported by JSON.")
7139 end
7140 return buflen
7141end
7142
7143function json.encode (value, state)
7144 state = state or {}
7145 local oldbuffer = state.buffer
7146 local buffer = oldbuffer or {}
7147 state.buffer = buffer
7148 updatedecpoint()
7149 local ret, msg = encode2 (value, state.indent, state.level or 0,
7150 buffer, state.bufferlen or 0, state.tables or {}, state.keyorder, state)
7151 if not ret then
7152 error (msg, 2)
7153 elseif oldbuffer == buffer then
7154 state.bufferlen = ret
7155 return true
7156 else
7157 state.bufferlen = nil
7158 state.buffer = nil
7159 return concat (buffer)
7160 end
7161end
7162
7163local function loc (str, where)
7164 local line, pos, linepos = 1, 1, 0
7165 while true do
7166 pos = strfind (str, "\n", pos, true)
7167 if pos and pos < where then
7168 line = line + 1
7169 linepos = pos
7170 pos = pos + 1
7171 else
7172 break
7173 end
7174 end
7175 return "line " .. line .. ", column " .. (where - linepos)
7176end
7177
7178local function unterminated (str, what, where)
7179 return nil, strlen (str) + 1, "unterminated " .. what .. " at " .. loc (str, where)
7180end
7181
7182local function scanwhite (str, pos)
7183 while true do
7184 pos = strfind (str, "%S", pos)
7185 if not pos then return nil end
7186 local sub2 = strsub (str, pos, pos + 1)
7187 if sub2 == "\239\187" and strsub (str, pos + 2, pos + 2) == "\191" then
7188 -- UTF-8 Byte Order Mark
7189 pos = pos + 3
7190 elseif sub2 == "//" then
7191 pos = strfind (str, "[\n\r]", pos + 2)
7192 if not pos then return nil end
7193 elseif sub2 == "/*" then
7194 pos = strfind (str, "*/", pos + 2)
7195 if not pos then return nil end
7196 pos = pos + 2
7197 else
7198 return pos
7199 end
7200 end
7201end
7202
7203local escapechars = {
7204 ["\""] = "\"", ["\\"] = "\\", ["/"] = "/", ["b"] = "\b", ["f"] = "\f",
7205 ["n"] = "\n", ["r"] = "\r", ["t"] = "\t"
7206}
7207
7208local function unichar (value)
7209 if value < 0 then
7210 return nil
7211 elseif value <= 0x007f then
7212 return strchar (value)
7213 elseif value <= 0x07ff then
7214 return strchar (0xc0 + floor(value/0x40),
7215 0x80 + (floor(value) % 0x40))
7216 elseif value <= 0xffff then
7217 return strchar (0xe0 + floor(value/0x1000),
7218 0x80 + (floor(value/0x40) % 0x40),
7219 0x80 + (floor(value) % 0x40))
7220 elseif value <= 0x10ffff then
7221 return strchar (0xf0 + floor(value/0x40000),
7222 0x80 + (floor(value/0x1000) % 0x40),
7223 0x80 + (floor(value/0x40) % 0x40),
7224 0x80 + (floor(value) % 0x40))
7225 else
7226 return nil
7227 end
7228end
7229
7230local function scanstring (str, pos)
7231 local lastpos = pos + 1
7232 local buffer, n = {}, 0
7233 while true do
7234 local nextpos = strfind (str, "[\"\\]", lastpos)
7235 if not nextpos then
7236 return unterminated (str, "string", pos)
7237 end
7238 if nextpos > lastpos then
7239 n = n + 1
7240 buffer[n] = strsub (str, lastpos, nextpos - 1)
7241 end
7242 if strsub (str, nextpos, nextpos) == "\"" then
7243 lastpos = nextpos + 1
7244 break
7245 else
7246 local escchar = strsub (str, nextpos + 1, nextpos + 1)
7247 local value
7248 if escchar == "u" then
7249 value = tonumber (strsub (str, nextpos + 2, nextpos + 5), 16)
7250 if value then
7251 local value2
7252 if 0xD800 <= value and value <= 0xDBff then
7253 -- we have the high surrogate of UTF-16. Check if there is a
7254 -- low surrogate escaped nearby to combine them.
7255 if strsub (str, nextpos + 6, nextpos + 7) == "\\u" then
7256 value2 = tonumber (strsub (str, nextpos + 8, nextpos + 11), 16)
7257 if value2 and 0xDC00 <= value2 and value2 <= 0xDFFF then
7258 value = (value - 0xD800) * 0x400 + (value2 - 0xDC00) + 0x10000
7259 else
7260 value2 = nil -- in case it was out of range for a low surrogate
7261 end
7262 end
7263 end
7264 value = value and unichar (value)
7265 if value then
7266 if value2 then
7267 lastpos = nextpos + 12
7268 else
7269 lastpos = nextpos + 6
7270 end
7271 end
7272 end
7273 end
7274 if not value then
7275 value = escapechars[escchar] or escchar
7276 lastpos = nextpos + 2
7277 end
7278 n = n + 1
7279 buffer[n] = value
7280 end
7281 end
7282 if n == 1 then
7283 return buffer[1], lastpos
7284 elseif n > 1 then
7285 return concat (buffer), lastpos
7286 else
7287 return "", lastpos
7288 end
7289end
7290
7291local scanvalue -- forward declaration
7292
7293local function scantable (what, closechar, str, startpos, nullval, objectmeta, arraymeta)
7294 local len = strlen (str)
7295 local tbl, n = {}, 0
7296 local pos = startpos + 1
7297 if what == 'object' then
7298 setmetatable (tbl, objectmeta)
7299 else
7300 setmetatable (tbl, arraymeta)
7301 end
7302 while true do
7303 pos = scanwhite (str, pos)
7304 if not pos then return unterminated (str, what, startpos) end
7305 local char = strsub (str, pos, pos)
7306 if char == closechar then
7307 return tbl, pos + 1
7308 end
7309 local val1, err
7310 val1, pos, err = scanvalue (str, pos, nullval, objectmeta, arraymeta)
7311 if err then return nil, pos, err end
7312 pos = scanwhite (str, pos)
7313 if not pos then return unterminated (str, what, startpos) end
7314 char = strsub (str, pos, pos)
7315 if char == ":" then
7316 if val1 == nil then
7317 return nil, pos, "cannot use nil as table index (at " .. loc (str, pos) .. ")"
7318 end
7319 pos = scanwhite (str, pos + 1)
7320 if not pos then return unterminated (str, what, startpos) end
7321 local val2
7322 val2, pos, err = scanvalue (str, pos, nullval, objectmeta, arraymeta)
7323 if err then return nil, pos, err end
7324 tbl[val1] = val2
7325 pos = scanwhite (str, pos)
7326 if not pos then return unterminated (str, what, startpos) end
7327 char = strsub (str, pos, pos)
7328 else
7329 n = n + 1
7330 tbl[n] = val1
7331 end
7332 if char == "," then
7333 pos = pos + 1
7334 end
7335 end
7336end
7337
7338scanvalue = function (str, pos, nullval, objectmeta, arraymeta)
7339 pos = pos or 1
7340 pos = scanwhite (str, pos)
7341 if not pos then
7342 return nil, strlen (str) + 1, "no valid JSON value (reached the end)"
7343 end
7344 local char = strsub (str, pos, pos)
7345 if char == "{" then
7346 return scantable ('object', "}", str, pos, nullval, objectmeta, arraymeta)
7347 elseif char == "[" then
7348 return scantable ('array', "]", str, pos, nullval, objectmeta, arraymeta)
7349 elseif char == "\"" then
7350 return scanstring (str, pos)
7351 else
7352 local pstart, pend = strfind (str, "^%-?[%d%.]+[eE]?[%+%-]?%d*", pos)
7353 if pstart then
7354 local number = str2num (strsub (str, pstart, pend))
7355 if number then
7356 return number, pend + 1
7357 end
7358 end
7359 pstart, pend = strfind (str, "^%a%w*", pos)
7360 if pstart then
7361 local name = strsub (str, pstart, pend)
7362 if name == "true" then
7363 return true, pend + 1
7364 elseif name == "false" then
7365 return false, pend + 1
7366 elseif name == "null" then
7367 return nullval, pend + 1
7368 end
7369 end
7370 return nil, pos, "no valid JSON value at " .. loc (str, pos)
7371 end
7372end
7373
7374local function optionalmetatables(...)
7375 if select("#", ...) > 0 then
7376 return ...
7377 else
7378 return {__jsontype = 'object'}, {__jsontype = 'array'}
7379 end
7380end
7381
7382function json.decode (str, pos, nullval, ...)
7383 local objectmeta, arraymeta = optionalmetatables(...)
7384 return scanvalue (str, pos, nullval, objectmeta, arraymeta)
7385end
7386
7387-- NOTE: added method - not in original source
7388function json.decodeFromFile(path)
7389 local file = assert(fs.open(path, "r"))
7390 local decoded = json.decode(file.readAll())
7391 file.close()
7392 return decoded
7393end
7394
7395return json stolen/16478-25.10.2020.0043/sys/modules/opus/injector.lua 0000777 0000000 0000000 00000005614 13745134001 017162 0 ustar -- https://www.lua.org/manual/5.1/manual.html#pdf-require
7396-- https://github.com/LuaDist/lua/blob/d2e7e7d4d43ff9068b279a617c5b2ca2c2771676/src/loadlib.c
7397
7398local defaultPath = { }
7399
7400do
7401 local function split(str)
7402 local t = { }
7403 local function helper(line) table.insert(t, line) return "" end
7404 helper((str:gsub('(.-);', helper)))
7405 return t
7406 end
7407
7408 local function insert(p)
7409 for _,v in pairs(defaultPath) do
7410 if v == p then
7411 return
7412 end
7413 end
7414 table.insert(defaultPath, p)
7415
7416 end
7417
7418 local paths = '?.lua;?/init.lua;'
7419 paths = paths .. '/usr/modules/?.lua;/usr/modules/?/init.lua;'
7420 paths = paths .. '/rom/modules/main/?;/rom/modules/main/?.lua;/rom/modules/main/?/init.lua;'
7421 paths = paths .. '/sys/modules/?.lua;/sys/modules/?/init.lua'
7422
7423 for _,v in pairs(split(paths)) do
7424 insert(v)
7425 end
7426
7427 local luaPaths = package and package.path and split(package.path) or { }
7428 for _,v in pairs(luaPaths) do
7429 if v ~= '?' then
7430 insert(v)
7431 end
7432 end
7433end
7434
7435local DEFAULT_PATH = table.concat(defaultPath, ';')
7436
7437local fs = _G.fs
7438local os = _G.os
7439local string = _G.string
7440
7441-- Add require and package to the environment
7442return function(env, programDir)
7443 local function preloadSearcher(modname)
7444 if env.package.preload[modname] then
7445 return function()
7446 return env.package.preload[modname](modname, env)
7447 end
7448 end
7449 end
7450
7451 local function pathSearcher(modname)
7452 local fname = modname:gsub('%.', '/')
7453
7454 for pattern in string.gmatch(env.package.path, "[^;]+") do
7455 local sPath = string.gsub(pattern, "%?", fname)
7456
7457 if programDir and sPath:sub(1, 1) ~= "/" then
7458 sPath = fs.combine(programDir, sPath)
7459 end
7460 if fs.exists(sPath) and not fs.isDir(sPath) then
7461 return loadfile(fs.combine(sPath, ''), env)
7462 end
7463 end
7464 end
7465
7466 -- place package and require function into env
7467 env.package = {
7468 path = env.LUA_PATH or _G.LUA_PATH or DEFAULT_PATH,
7469 cpath = '',
7470 config = '/\n:\n?\n!\n-',
7471 preload = { },
7472 loaded = {
7473 bit32 = bit32,
7474 coroutine = coroutine,
7475 _G = env._G,
7476 io = io,
7477 math = math,
7478 os = os,
7479 string = string,
7480 table = table,
7481 debug = debug,
7482 utf8 = utf8,
7483 },
7484 loaders = {
7485 preloadSearcher,
7486 pathSearcher,
7487 }
7488 }
7489 env.package.loaded.package = env.package
7490
7491 local sentinel = { }
7492
7493 function env.require(modname)
7494 if env.package.loaded[modname] then
7495 if env.package.loaded[modname] == sentinel then
7496 error("loop or previous error loading module '" .. modname .. "'", 0)
7497 end
7498 return env.package.loaded[modname]
7499 end
7500
7501 local t = { }
7502 for _,searcher in ipairs(env.package.loaders) do
7503 local fn, msg = searcher(modname)
7504 if type(fn) == 'function' then
7505 env.package.loaded[modname] = sentinel
7506
7507 local module = fn(modname, env) or true
7508
7509 env.package.loaded[modname] = module
7510 return module
7511 end
7512 if msg then
7513 table.insert(t, msg)
7514 end
7515 end
7516
7517 if #t > 0 then
7518 error(table.concat(t, '\n'), 2)
7519 end
7520 error('Unable to find module ' .. modname, 2)
7521 end
7522end stolen/16478-25.10.2020.0043/sys/modules/opus/git.lua 0000777 0000000 0000000 00000003202 13745134001 016117 0 ustar local json = require('opus.json')
7523local Util = require('opus.util')
7524
7525local TREE_URL = 'https://api.github.com/repos/%s/%s/git/trees/%s?recursive=1'
7526local FILE_URL = 'https://raw.githubusercontent.com/%s/%s/%s/%s'
7527local TREE_HEADERS = {}
7528local git = { }
7529
7530if _G._GIT_API_KEY then
7531 TREE_HEADERS.Authorization = 'token ' .. _G._GIT_API_KEY
7532end
7533
7534function git.list(repository)
7535 local t = Util.split(repository, '(.-)/')
7536
7537 local user = table.remove(t, 1)
7538 local repo = table.remove(t, 1)
7539 local branch = table.remove(t, 1) or 'master'
7540 local path
7541
7542 if not Util.empty(t) then
7543 path = table.concat(t, '/') .. '/'
7544 end
7545
7546 local function getContents()
7547 local dataUrl = string.format(TREE_URL, user, repo, branch)
7548 local contents, msg = Util.httpGet(dataUrl, TREE_HEADERS)
7549 if not contents then
7550 error(string.format('Failed to download %s\n%s', dataUrl, msg), 2)
7551 else
7552 return json.decode(contents)
7553 end
7554 end
7555
7556 local data = getContents() or error('Invalid repository')
7557
7558 if data.message and data.message:find("API rate limit exceeded") then
7559 error("Out of API calls, try again later")
7560 end
7561
7562 if data.message and data.message == "Not found" then
7563 error("Invalid repository")
7564 end
7565
7566 local list = { }
7567 for _,v in pairs(data.tree) do
7568 if v.type == "blob" then
7569 v.path = v.path:gsub("%s","%%20")
7570 if not path then
7571 list[v.path] = {
7572 url = string.format(FILE_URL, user, repo, branch, v.path),
7573 size = v.size,
7574 }
7575 elseif Util.startsWith(v.path, path) then
7576 local p = string.sub(v.path, #path)
7577 list[p] = {
7578 url = string.format(FILE_URL, user, repo, branch, path .. p),
7579 size = v.size,
7580 }
7581 end
7582 end
7583 end
7584
7585 return list
7586end
7587
7588return git stolen/16478-25.10.2020.0043/sys/modules/opus/history.lua 0000777 0000000 0000000 00000001657 13745134001 017051 0 ustar local Util = require('opus.util')
7589
7590local History = { }
7591local History_mt = { __index = History }
7592
7593function History.load(filename, limit)
7594
7595 local self = setmetatable({
7596 limit = limit,
7597 filename = filename,
7598 }, History_mt)
7599
7600 self.entries = Util.readLines(filename) or { }
7601 self.pos = #self.entries + 1
7602
7603 return self
7604end
7605
7606function History:add(line)
7607 if line ~= self.entries[#self.entries] then
7608 table.insert(self.entries, line)
7609 if self.limit then
7610 while #self.entries > self.limit do
7611 table.remove(self.entries, 1)
7612 end
7613 end
7614 Util.writeLines(self.filename, self.entries)
7615 self.pos = #self.entries + 1
7616 end
7617end
7618
7619function History:reset()
7620 self.pos = #self.entries + 1
7621end
7622
7623function History:back()
7624 if self.pos > 1 then
7625 self.pos = self.pos - 1
7626 return self.entries[self.pos]
7627 end
7628end
7629
7630function History:forward()
7631 if self.pos <= #self.entries then
7632 self.pos = self.pos + 1
7633 return self.entries[self.pos]
7634 end
7635end
7636
7637return History stolen/16478-25.10.2020.0043/sys/modules/opus/map.lua 0000777 0000000 0000000 00000001620 13745134001 016113 0 ustar -- convience functions for tables with key/value pairs
7638local Util = require('opus.util')
7639
7640local Map = { }
7641
7642-- TODO: refactor
7643Map.merge = Util.merge
7644Map.shallowCopy = Util.shallowCopy
7645Map.find = Util.find
7646Map.filter = Util.filter
7647Map.transpose = Util.transpose
7648
7649function Map.removeMatches(t, values)
7650 local function matchAll(entry)
7651 for k, v in pairs(values) do
7652 if entry[k] ~= v then
7653 return
7654 end
7655 end
7656 return true
7657 end
7658
7659 for _, key in pairs(Util.keys(t)) do
7660 if matchAll(t[key]) then
7661 t[key] = nil
7662 end
7663 end
7664end
7665
7666-- remove table entries if passed function returns false
7667function Map.prune(t, fn)
7668 for _,k in pairs(Util.keys(t)) do
7669 local v = t[k]
7670 if type(v) == 'table' then
7671 t[k] = Map.prune(v, fn)
7672 end
7673 if not fn(t[k]) then
7674 t[k] = nil
7675 end
7676 end
7677 return t
7678end
7679
7680function Map.size(list)
7681 local length = 0
7682 for _ in pairs(list) do
7683 length = length + 1
7684 end
7685 return length
7686end
7687
7688return Map stolen/16478-25.10.2020.0043/sys/modules/opus/ui/region.lua 0000777 0000000 0000000 00000015376 13745134001 017253 0 ustar --
7689-- tek.lib.region
7690-- Written by Timm S. Mueller <tmueller at schulze-mueller.de>
7691--
7692-- Copyright 2008 - 2016 by the authors and contributors:
7693--
7694-- * Timm S. Muller <tmueller at schulze-mueller.de>
7695-- * Franciska Schulze <fschulze at schulze-mueller.de>
7696-- * Tobias Schwinger <tschwinger at isonews2.com>
7697--
7698-- https://opensource.org/licenses/MIT
7699--
7700-- Some comments have been removed to reduce file size, see:
7701-- https://github.com/technosaurus/tekui/blob/master/etc/region.lua
7702-- for the full source
7703
7704local insert = table.insert
7705local ipairs = ipairs
7706local max = math.max
7707local min = math.min
7708local setmetatable = setmetatable
7709local unpack = unpack or table.unpack
7710
7711local Region = { }
7712Region._VERSION = "Region 11.3"
7713
7714Region.__index = Region
7715
7716-- x0, y0, x1, y1 = Region.intersect(d1, d2, d3, d4, s1, s2, s3, s4):
7717-- Returns the coordinates of a rectangle where a rectangle specified by
7718-- the coordinates s1, s2, s3, s4 overlaps with the rectangle specified
7719-- by the coordinates d1, d2, d3, d4. The return value is '''nil''' if
7720-- the rectangles do not overlap.
7721function Region.intersect(d1, d2, d3, d4, s1, s2, s3, s4)
7722 if s3 >= d1 and s1 <= d3 and s4 >= d2 and s2 <= d4 then
7723 return max(s1, d1), max(s2, d2), min(s3, d3), min(s4, d4)
7724 end
7725end
7726
7727-- insertrect: insert rect to table, merging with an existing one if possible
7728local function insertrect(d, s1, s2, s3, s4)
7729 for i = 1, min(4, #d) do
7730 local a = d[i]
7731 local a1, a2, a3, a4 = a[1], a[2], a[3], a[4]
7732 if a2 == s2 and a4 == s4 then
7733 if a3 + 1 == s1 then
7734 a[3] = s3
7735 return
7736 elseif a1 == s3 + 1 then
7737 a[1] = s1
7738 return
7739 end
7740 elseif a1 == s1 and a3 == s3 then
7741 if a4 + 1 == s2 then
7742 a[4] = s4
7743 return
7744 elseif a2 == s4 + 1 then
7745 a[2] = s2
7746 return
7747 end
7748 end
7749 end
7750 insert(d, 1, { s1, s2, s3, s4 })
7751end
7752
7753-- cutrect: cut rect d into table of new rects, using rect s as a punch
7754local function cutrect(d1, d2, d3, d4, s1, s2, s3, s4)
7755 if not Region.intersect(d1, d2, d3, d4, s1, s2, s3, s4) then
7756 return { { d1, d2, d3, d4 } }
7757 end
7758 local r = { }
7759 if d1 < s1 then
7760 insertrect(r, d1, d2, s1 - 1, d4)
7761 d1 = s1
7762 end
7763 if d2 < s2 then
7764 insertrect(r, d1, d2, d3, s2 - 1)
7765 d2 = s2
7766 end
7767 if d3 > s3 then
7768 insertrect(r, s3 + 1, d2, d3, d4)
7769 d3 = s3
7770 end
7771 if d4 > s4 then
7772 insertrect(r, d1, s4 + 1, d3, d4)
7773 end
7774 return r
7775end
7776
7777-- cutregion: cut region d, using s as a punch
7778local function cutregion(d, s1, s2, s3, s4)
7779 local r = { }
7780 for _, dr in ipairs(d) do
7781 local d1, d2, d3, d4 = dr[1], dr[2], dr[3], dr[4]
7782 for _, t in ipairs(cutrect(d1, d2, d3, d4, s1, s2, s3, s4)) do
7783 insertrect(r, t[1], t[2], t[3], t[4])
7784 end
7785 end
7786 return r
7787end
7788
7789-- region = Region.new(r1, r2, r3, r4): Creates a new region from the given
7790-- coordinates.
7791function Region.new(r1, r2, r3, r4)
7792 if r1 then
7793 return setmetatable({ region = { { r1, r2, r3, r4 } } }, Region)
7794 end
7795 return setmetatable({ region = { } }, Region)
7796end
7797
7798-- self = region:setRect(r1, r2, r3, r4): Resets an existing region
7799-- to the specified rectangle.
7800function Region:setRect(r1, r2, r3, r4)
7801 self.region = { { r1, r2, r3, r4 } }
7802 return self
7803end
7804
7805-- region:orRect(r1, r2, r3, r4): Logical ''or''s a rectangle to a region
7806function Region:orRect(s1, s2, s3, s4)
7807 self.region = cutregion(self.region, s1, s2, s3, s4)
7808 insertrect(self.region, s1, s2, s3, s4)
7809end
7810
7811-- region:orRegion(region): Logical ''or''s another region to a region
7812function Region:orRegion(s)
7813 for _, r in ipairs(s) do
7814 self:orRect(r[1], r[2], r[3], r[4])
7815 end
7816end
7817
7818-- region:andRect(r1, r2, r3, r4): Logical ''and''s a rectange to a region
7819function Region:andRect(s1, s2, s3, s4)
7820 local r = { }
7821 for _, d in ipairs(self.region) do
7822 local t1, t2, t3, t4 =
7823 Region.intersect(d[1], d[2], d[3], d[4], s1, s2, s3, s4)
7824 if t1 then
7825 insertrect(r, t1, t2, t3, t4)
7826 end
7827 end
7828 self.region = r
7829end
7830
7831-- region:xorRect(r1, r2, r3, r4): Logical ''xor''s a rectange to a region
7832function Region:xorRect(s1, s2, s3, s4)
7833 local r1 = { }
7834 local r2 = { { s1, s2, s3, s4 } }
7835 for _, d in ipairs(self.region) do
7836 local d1, d2, d3, d4 = d[1], d[2], d[3], d[4]
7837 for _, t in ipairs(cutrect(d1, d2, d3, d4, s1, s2, s3, s4)) do
7838 insertrect(r1, t[1], t[2], t[3], t[4])
7839 end
7840 r2 = cutregion(r2, d1, d2, d3, d4)
7841 end
7842 self.region = r1
7843 self:orRegion(r2)
7844end
7845
7846-- self = region:subRect(r1, r2, r3, r4): Subtracts a rectangle from a region
7847function Region:subRect(s1, s2, s3, s4)
7848 local r1 = { }
7849 for _, d in ipairs(self.region) do
7850 local d1, d2, d3, d4 = d[1], d[2], d[3], d[4]
7851 for _, t in ipairs(cutrect(d1, d2, d3, d4, s1, s2, s3, s4)) do
7852 insertrect(r1, t[1], t[2], t[3], t[4])
7853 end
7854 end
7855 self.region = r1
7856 return self
7857end
7858
7859-- region:getRect - gets an iterator on the rectangles in a region [internal]
7860function Region:getRects()
7861 local index = 0
7862 return function(object)
7863 index = index + 1
7864 if object[index] then
7865 return unpack(object[index])
7866 end
7867 end, self.region
7868end
7869
7870-- success = region:checkIntersect(x0, y0, x1, y1): Returns a boolean
7871-- indicating whether a rectangle specified by its coordinates overlaps
7872-- with a region.
7873function Region:checkIntersect(s1, s2, s3, s4)
7874 for _, d in ipairs(self.region) do
7875 if Region.intersect(d[1], d[2], d[3], d[4], s1, s2, s3, s4) then
7876 return true
7877 end
7878 end
7879 return false
7880end
7881
7882-- region:subRegion(region2): Subtracts {{region2}} from {{region}}.
7883function Region:subRegion(region)
7884 if region then
7885 for r1, r2, r3, r4 in region:getRects() do
7886 self:subRect(r1, r2, r3, r4)
7887 end
7888 end
7889end
7890
7891-- region:andRegion(r): Logically ''and''s a region to a region
7892function Region:andRegion(s)
7893 local r = { }
7894 for _, s in ipairs(s.region) do
7895 for _, d in ipairs(self.region) do
7896 local t1, t2, t3, t4 =
7897 Region.intersect(d[1], d[2], d[3], d[4],
7898 s[1], s[2], s[3], s[4])
7899 if t1 then
7900 insertrect(r, t1, t2, t3, t4)
7901 end
7902 end
7903 end
7904 self.region = r
7905end
7906
7907-- region:forEach(func, obj, ...): For each rectangle in a region, calls the
7908-- specified function according the following scheme:
7909-- func(obj, x0, y0, x1, y1, ...)
7910-- Extra arguments are passed through to the function.
7911function Region:forEach(func, obj, ...)
7912 for x0, y0, x1, y1 in self:getRects() do
7913 func(obj, x0, y0, x1, y1, ...)
7914 end
7915end
7916
7917-- region:shift(dx, dy): Shifts a region by delta x and y.
7918function Region:shift(dx, dy)
7919 for _, r in ipairs(self.region) do
7920 r[1] = r[1] + dx
7921 r[2] = r[2] + dy
7922 r[3] = r[3] + dx
7923 r[4] = r[4] + dy
7924 end
7925end
7926
7927-- region:isEmpty(): Returns '''true''' if a region is empty.
7928function Region:isEmpty()
7929 return #self.region == 0
7930end
7931
7932-- minx, miny, maxx, maxy = region:get(): Get region's min/max extents
7933function Region:get()
7934 if #self.region > 0 then
7935 local minx = 1000000 -- ui.HUGE
7936 local miny = 1000000
7937 local maxx = 0
7938 local maxy = 0
7939 for _, r in ipairs(self.region) do
7940 minx = min(minx, r[1])
7941 miny = min(miny, r[2])
7942 maxx = max(maxx, r[3])
7943 maxy = max(maxy, r[4])
7944 end
7945 return minx, miny, maxx, maxy
7946 end
7947end
7948
7949return Region stolen/16478-25.10.2020.0043/sys/modules/opus/ui/tween.lua 0000777 0000000 0000000 00000026052 13745134001 017103 0 ustar local tween = {
7950 _VERSION = 'tween 2.1.1',
7951 _DESCRIPTION = 'tweening for lua',
7952 _URL = 'https://github.com/kikito/tween.lua',
7953 _LICENSE = [[
7954 MIT LICENSE
7955
7956 Copyright (c) 2014 Enrique García Cota, Yuichi Tateno, Emmanuel Oga
7957
7958 license details: https://opensource.org/licenses/MIT
7959 ]]
7960}
7961
7962-- easing
7963
7964-- Adapted from https://github.com/EmmanuelOga/easing. See LICENSE.txt for credits.
7965-- For all easing functions:
7966-- t = time == how much time has to pass for the tweening to complete
7967-- b = begin == starting property value
7968-- c = change == ending - beginning
7969-- d = duration == running time. How much time has passed *right now*
7970
7971local pow, sin, cos, pi, sqrt, abs, asin = math.pow, math.sin, math.cos, math.pi, math.sqrt, math.abs, math.asin
7972
7973-- linear
7974local function linear(t, b, c, d) return c * t / d + b end
7975
7976-- quad
7977local function inQuad(t, b, c, d) return c * pow(t / d, 2) + b end
7978local function outQuad(t, b, c, d)
7979 t = t / d
7980 return -c * t * (t - 2) + b
7981end
7982local function inOutQuad(t, b, c, d)
7983 t = t / d * 2
7984 if t < 1 then return c / 2 * pow(t, 2) + b end
7985 return -c / 2 * ((t - 1) * (t - 3) - 1) + b
7986end
7987local function outInQuad(t, b, c, d)
7988 if t < d / 2 then return outQuad(t * 2, b, c / 2, d) end
7989 return inQuad((t * 2) - d, b + c / 2, c / 2, d)
7990end
7991
7992-- cubic
7993local function inCubic (t, b, c, d) return c * pow(t / d, 3) + b end
7994local function outCubic(t, b, c, d) return c * (pow(t / d - 1, 3) + 1) + b end
7995local function inOutCubic(t, b, c, d)
7996 t = t / d * 2
7997 if t < 1 then return c / 2 * t * t * t + b end
7998 t = t - 2
7999 return c / 2 * (t * t * t + 2) + b
8000end
8001local function outInCubic(t, b, c, d)
8002 if t < d / 2 then return outCubic(t * 2, b, c / 2, d) end
8003 return inCubic((t * 2) - d, b + c / 2, c / 2, d)
8004end
8005
8006-- quart
8007local function inQuart(t, b, c, d) return c * pow(t / d, 4) + b end
8008local function outQuart(t, b, c, d) return -c * (pow(t / d - 1, 4) - 1) + b end
8009local function inOutQuart(t, b, c, d)
8010 t = t / d * 2
8011 if t < 1 then return c / 2 * pow(t, 4) + b end
8012 return -c / 2 * (pow(t - 2, 4) - 2) + b
8013end
8014local function outInQuart(t, b, c, d)
8015 if t < d / 2 then return outQuart(t * 2, b, c / 2, d) end
8016 return inQuart((t * 2) - d, b + c / 2, c / 2, d)
8017end
8018
8019-- quint
8020local function inQuint(t, b, c, d) return c * pow(t / d, 5) + b end
8021local function outQuint(t, b, c, d) return c * (pow(t / d - 1, 5) + 1) + b end
8022local function inOutQuint(t, b, c, d)
8023 t = t / d * 2
8024 if t < 1 then return c / 2 * pow(t, 5) + b end
8025 return c / 2 * (pow(t - 2, 5) + 2) + b
8026end
8027local function outInQuint(t, b, c, d)
8028 if t < d / 2 then return outQuint(t * 2, b, c / 2, d) end
8029 return inQuint((t * 2) - d, b + c / 2, c / 2, d)
8030end
8031
8032-- sine
8033local function inSine(t, b, c, d) return -c * cos(t / d * (pi / 2)) + c + b end
8034local function outSine(t, b, c, d) return c * sin(t / d * (pi / 2)) + b end
8035local function inOutSine(t, b, c, d) return -c / 2 * (cos(pi * t / d) - 1) + b end
8036local function outInSine(t, b, c, d)
8037 if t < d / 2 then return outSine(t * 2, b, c / 2, d) end
8038 return inSine((t * 2) -d, b + c / 2, c / 2, d)
8039end
8040
8041-- expo
8042local function inExpo(t, b, c, d)
8043 if t == 0 then return b end
8044 return c * pow(2, 10 * (t / d - 1)) + b - c * 0.001
8045end
8046local function outExpo(t, b, c, d)
8047 if t == d then return b + c end
8048 return c * 1.001 * (-pow(2, -10 * t / d) + 1) + b
8049end
8050local function inOutExpo(t, b, c, d)
8051 if t == 0 then return b end
8052 if t == d then return b + c end
8053 t = t / d * 2
8054 if t < 1 then return c / 2 * pow(2, 10 * (t - 1)) + b - c * 0.0005 end
8055 return c / 2 * 1.0005 * (-pow(2, -10 * (t - 1)) + 2) + b
8056end
8057local function outInExpo(t, b, c, d)
8058 if t < d / 2 then return outExpo(t * 2, b, c / 2, d) end
8059 return inExpo((t * 2) - d, b + c / 2, c / 2, d)
8060end
8061
8062-- circ
8063local function inCirc(t, b, c, d) return(-c * (sqrt(1 - pow(t / d, 2)) - 1) + b) end
8064local function outCirc(t, b, c, d) return(c * sqrt(1 - pow(t / d - 1, 2)) + b) end
8065local function inOutCirc(t, b, c, d)
8066 t = t / d * 2
8067 if t < 1 then return -c / 2 * (sqrt(1 - t * t) - 1) + b end
8068 t = t - 2
8069 return c / 2 * (sqrt(1 - t * t) + 1) + b
8070end
8071local function outInCirc(t, b, c, d)
8072 if t < d / 2 then return outCirc(t * 2, b, c / 2, d) end
8073 return inCirc((t * 2) - d, b + c / 2, c / 2, d)
8074end
8075
8076-- elastic
8077local function calculatePAS(p,a,c,d)
8078 p, a = p or d * 0.3, a or 0
8079 if a < abs(c) then return p, c, p / 4 end -- p, a, s
8080 return p, a, p / (2 * pi) * asin(c/a) -- p,a,s
8081end
8082local function inElastic(t, b, c, d, a, p)
8083 local s
8084 if t == 0 then return b end
8085 t = t / d
8086 if t == 1 then return b + c end
8087 p,a,s = calculatePAS(p,a,c,d)
8088 t = t - 1
8089 return -(a * pow(2, 10 * t) * sin((t * d - s) * (2 * pi) / p)) + b
8090end
8091local function outElastic(t, b, c, d, a, p)
8092 local s
8093 if t == 0 then return b end
8094 t = t / d
8095 if t == 1 then return b + c end
8096 p,a,s = calculatePAS(p,a,c,d)
8097 return a * pow(2, -10 * t) * sin((t * d - s) * (2 * pi) / p) + c + b
8098end
8099local function inOutElastic(t, b, c, d, a, p)
8100 local s
8101 if t == 0 then return b end
8102 t = t / d * 2
8103 if t == 2 then return b + c end
8104 p,a,s = calculatePAS(p,a,c,d)
8105 t = t - 1
8106 if t < 0 then return -0.5 * (a * pow(2, 10 * t) * sin((t * d - s) * (2 * pi) / p)) + b end
8107 return a * pow(2, -10 * t) * sin((t * d - s) * (2 * pi) / p ) * 0.5 + c + b
8108end
8109local function outInElastic(t, b, c, d, a, p)
8110 if t < d / 2 then return outElastic(t * 2, b, c / 2, d, a, p) end
8111 return inElastic((t * 2) - d, b + c / 2, c / 2, d, a, p)
8112end
8113
8114-- back
8115local function inBack(t, b, c, d, s)
8116 s = s or 1.70158
8117 t = t / d
8118 return c * t * t * ((s + 1) * t - s) + b
8119end
8120local function outBack(t, b, c, d, s)
8121 s = s or 1.70158
8122 t = t / d - 1
8123 return c * (t * t * ((s + 1) * t + s) + 1) + b
8124end
8125local function inOutBack(t, b, c, d, s)
8126 s = (s or 1.70158) * 1.525
8127 t = t / d * 2
8128 if t < 1 then return c / 2 * (t * t * ((s + 1) * t - s)) + b end
8129 t = t - 2
8130 return c / 2 * (t * t * ((s + 1) * t + s) + 2) + b
8131end
8132local function outInBack(t, b, c, d, s)
8133 if t < d / 2 then return outBack(t * 2, b, c / 2, d, s) end
8134 return inBack((t * 2) - d, b + c / 2, c / 2, d, s)
8135end
8136
8137-- bounce
8138local function outBounce(t, b, c, d)
8139 t = t / d
8140 if t < 1 / 2.75 then return c * (7.5625 * t * t) + b end
8141 if t < 2 / 2.75 then
8142 t = t - (1.5 / 2.75)
8143 return c * (7.5625 * t * t + 0.75) + b
8144 elseif t < 2.5 / 2.75 then
8145 t = t - (2.25 / 2.75)
8146 return c * (7.5625 * t * t + 0.9375) + b
8147 end
8148 t = t - (2.625 / 2.75)
8149 return c * (7.5625 * t * t + 0.984375) + b
8150end
8151local function inBounce(t, b, c, d) return c - outBounce(d - t, 0, c, d) + b end
8152local function inOutBounce(t, b, c, d)
8153 if t < d / 2 then return inBounce(t * 2, 0, c, d) * 0.5 + b end
8154 return outBounce(t * 2 - d, 0, c, d) * 0.5 + c * .5 + b
8155end
8156local function outInBounce(t, b, c, d)
8157 if t < d / 2 then return outBounce(t * 2, b, c / 2, d) end
8158 return inBounce((t * 2) - d, b + c / 2, c / 2, d)
8159end
8160
8161tween.easing = {
8162 linear = linear,
8163 inQuad = inQuad, outQuad = outQuad, inOutQuad = inOutQuad, outInQuad = outInQuad,
8164 inCubic = inCubic, outCubic = outCubic, inOutCubic = inOutCubic, outInCubic = outInCubic,
8165 inQuart = inQuart, outQuart = outQuart, inOutQuart = inOutQuart, outInQuart = outInQuart,
8166 inQuint = inQuint, outQuint = outQuint, inOutQuint = inOutQuint, outInQuint = outInQuint,
8167 inSine = inSine, outSine = outSine, inOutSine = inOutSine, outInSine = outInSine,
8168 inExpo = inExpo, outExpo = outExpo, inOutExpo = inOutExpo, outInExpo = outInExpo,
8169 inCirc = inCirc, outCirc = outCirc, inOutCirc = inOutCirc, outInCirc = outInCirc,
8170 inElastic = inElastic, outElastic = outElastic, inOutElastic = inOutElastic, outInElastic = outInElastic,
8171 inBack = inBack, outBack = outBack, inOutBack = inOutBack, outInBack = outInBack,
8172 inBounce = inBounce, outBounce = outBounce, inOutBounce = inOutBounce, outInBounce = outInBounce
8173}
8174
8175
8176
8177-- private stuff
8178
8179local function copyTables(destination, keysTable, valuesTable)
8180 valuesTable = valuesTable or keysTable
8181 local mt = getmetatable(keysTable)
8182 if mt and getmetatable(destination) == nil then
8183 setmetatable(destination, mt)
8184 end
8185 for k,v in pairs(keysTable) do
8186 if type(v) == 'table' then
8187 destination[k] = copyTables({}, v, valuesTable[k])
8188 else
8189 destination[k] = valuesTable[k]
8190 end
8191 end
8192 return destination
8193end
8194
8195local function checkSubjectAndTargetRecursively(subject, target, path)
8196 path = path or {}
8197 local targetType, newPath
8198 for k,targetValue in pairs(target) do
8199 targetType, newPath = type(targetValue), copyTables({}, path)
8200 table.insert(newPath, tostring(k))
8201 if targetType == 'number' then
8202 assert(type(subject[k]) == 'number', "Parameter '" .. table.concat(newPath,'/') .. "' is missing from subject or isn't a number")
8203 elseif targetType == 'table' then
8204 checkSubjectAndTargetRecursively(subject[k], targetValue, newPath)
8205 else
8206 assert(targetType == 'number', "Parameter '" .. table.concat(newPath,'/') .. "' must be a number or table of numbers")
8207 end
8208 end
8209end
8210
8211local function checkNewParams(duration, subject, target, easing)
8212 assert(type(duration) == 'number' and duration > 0, "duration must be a positive number. Was " .. tostring(duration))
8213 local tsubject = type(subject)
8214 assert(tsubject == 'table' or tsubject == 'userdata', "subject must be a table or userdata. Was " .. tostring(subject))
8215 assert(type(target)== 'table', "target must be a table. Was " .. tostring(target))
8216 assert(type(easing)=='function', "easing must be a function. Was " .. tostring(easing))
8217 checkSubjectAndTargetRecursively(subject, target)
8218end
8219
8220local function getEasingFunction(easing)
8221 easing = easing or "linear"
8222 if type(easing) == 'string' then
8223 local name = easing
8224 easing = tween.easing[name]
8225 if type(easing) ~= 'function' then
8226 error("The easing function name '" .. name .. "' is invalid")
8227 end
8228 end
8229 return easing
8230end
8231
8232local function performEasingOnSubject(subject, target, initial, clock, duration, easing)
8233 local t,b,c,d
8234 for k,v in pairs(target) do
8235 if type(v) == 'table' then
8236 performEasingOnSubject(subject[k], v, initial[k], clock, duration, easing)
8237 else
8238 t,b,c,d = clock, initial[k], v - initial[k], duration
8239 subject[k] = easing(t,b,c,d)
8240 end
8241 end
8242end
8243
8244-- Tween methods
8245
8246local Tween = {}
8247local Tween_mt = {__index = Tween}
8248
8249function Tween:set(clock)
8250 assert(type(clock) == 'number', "clock must be a positive number or 0")
8251
8252 self.initial = self.initial or copyTables({}, self.target, self.subject)
8253 self.clock = clock
8254
8255 if self.clock <= 0 then
8256
8257 self.clock = 0
8258 copyTables(self.subject, self.initial)
8259
8260 elseif self.clock >= self.duration then -- the tween has expired
8261
8262 self.clock = self.duration
8263 copyTables(self.subject, self.target)
8264
8265 else
8266
8267 performEasingOnSubject(self.subject, self.target, self.initial, self.clock, self.duration, self.easing)
8268
8269 end
8270
8271 return self.clock >= self.duration
8272end
8273
8274function Tween:reset()
8275 return self:set(0)
8276end
8277
8278function Tween:update(dt)
8279 assert(type(dt) == 'number', "dt must be a number")
8280 return self:set(self.clock + dt)
8281end
8282
8283
8284-- Public interface
8285
8286function tween.new(duration, subject, target, easing)
8287 easing = getEasingFunction(easing)
8288 checkNewParams(duration, subject, target, easing)
8289 return setmetatable({
8290 duration = duration,
8291 subject = subject,
8292 target = target,
8293 easing = easing,
8294 clock = 0
8295 }, Tween_mt)
8296end
8297
8298return tween stolen/16478-25.10.2020.0043/sys/modules/opus/ui/blit.lua 0000777 0000000 0000000 00000007243 13745134001 016714 0 ustar local colors = _G.colors
8299local _rep = string.rep
8300local _sub = string.sub
8301
8302local Blit = { }
8303
8304Blit.colorPalette = { }
8305Blit.grayscalePalette = { }
8306
8307for n = 1, 16 do
8308 Blit.colorPalette[2 ^ (n - 1)] = _sub("0123456789abcdef", n, n)
8309 Blit.grayscalePalette[2 ^ (n - 1)] = _sub("088888878877787f", n, n)
8310end
8311
8312-- default palette
8313Blit.palette = Blit.colorPalette
8314
8315function Blit:init(t, args)
8316 if args then
8317 for k,v in pairs(args) do
8318 self[k] = v
8319 end
8320 end
8321
8322 if type(t) == 'string' then
8323 -- create a blit from a string
8324 self.text, self.bg, self.fg = Blit.toblit(t, args or { })
8325
8326 elseif type(t) == 'number' then
8327 -- create a fixed width blit
8328 self.width = t
8329 self.text = _rep(' ', self.width)
8330 self.bg = _rep(self.palette[args.bg], self.width)
8331 self.fg = _rep(self.palette[args.fg], self.width)
8332
8333 else
8334 self.text = t.text
8335 self.bg = t.bg
8336 self.fg = t.fg
8337 end
8338end
8339
8340function Blit:write(x, text, bg, fg)
8341 self:insert(x, text,
8342 bg and _rep(self.palette[bg], #text),
8343 fg and _rep(self.palette[fg], #text))
8344end
8345
8346function Blit:insert(x, text, bg, fg)
8347 if x <= self.width then
8348 local width = #text
8349 local tx, tex
8350
8351 if x < 1 then
8352 tx = 2 - x
8353 width = width + x - 1
8354 x = 1
8355 end
8356
8357 if x + width - 1 > self.width then
8358 tex = self.width - x + (tx or 1)
8359 width = tex - (tx or 1) + 1
8360 end
8361
8362 if width > 0 then
8363 local function replace(sstr, rstr)
8364 if tx or tex then
8365 rstr = _sub(rstr, tx or 1, tex)
8366 end
8367 if x == 1 and width == self.width then
8368 return rstr
8369 elseif x == 1 then
8370 return rstr .. _sub(sstr, x + width)
8371 elseif x + width > self.width then
8372 return _sub(sstr, 1, x - 1) .. rstr
8373 end
8374 return _sub(sstr, 1, x - 1) .. rstr .. _sub(sstr, x + width)
8375 end
8376
8377 self.text = replace(self.text, text)
8378 if fg then
8379 self.fg = replace(self.fg, fg)
8380 end
8381 if bg then
8382 self.bg = replace(self.bg, bg)
8383 end
8384 end
8385 end
8386end
8387
8388function Blit:sub(s, e)
8389 return Blit({
8390 text = self.text:sub(s, e),
8391 bg = self.bg:sub(s, e),
8392 fg = self.fg:sub(s, e),
8393 })
8394end
8395
8396function Blit:wrap(max)
8397 local lines = { }
8398 local data = self
8399
8400 repeat
8401 if #data.text <= max then
8402 table.insert(lines, data)
8403 break
8404 elseif data.text:sub(max+1, max+1) == ' ' then
8405 table.insert(lines, data:sub(1, max))
8406 data = data:sub(max + 2)
8407 else
8408 local x = data.text:sub(1, max)
8409 local s = x:match('(.*) ') or x
8410 table.insert(lines, data:sub(1, #s))
8411 data = data:sub(#s + 1)
8412 end
8413 local t = data.text:match('^%s*(.*)')
8414 local spaces = #data.text - #t
8415 if spaces > 0 then
8416 data = data:sub(spaces + 1)
8417 end
8418 until not data.text or #data.text == 0
8419
8420 return lines
8421end
8422
8423-- convert a string of text to blit format doing color conversion
8424-- and processing ansi color sequences
8425function Blit.toblit(str, cs)
8426 local text, fg, bg = '', '', ''
8427
8428 if not cs.cbg then
8429 -- reset colors
8430 cs.rbg = cs.bg or colors.black
8431 cs.rfg = cs.fg or colors.white
8432 -- current colors
8433 cs.cbg = cs.rbg
8434 cs.cfg = cs.rfg
8435
8436 cs.palette = cs.palette or Blit.palette
8437 end
8438
8439 str = str:gsub('(.-)\027%[([%d;]+)m',
8440 function(k, seq)
8441 text = text .. k
8442 bg = bg .. string.rep(cs.palette[cs.cbg], #k)
8443 fg = fg .. string.rep(cs.palette[cs.cfg], #k)
8444 for color in string.gmatch(seq, "%d+") do
8445 color = tonumber(color)
8446 if color == 0 then
8447 -- reset to default
8448 cs.cfg = cs.rfg
8449 cs.cbg = cs.rbg
8450 elseif color > 20 then
8451 cs.cbg = 2 ^ (color - 21)
8452 else
8453 cs.cfg = 2 ^ (color - 1)
8454 end
8455 end
8456 return k
8457 end)
8458
8459 local k = str:sub(#text + 1)
8460 return text .. k,
8461 bg .. string.rep(cs.palette[cs.cbg], #k),
8462 fg .. string.rep(cs.palette[cs.cfg], #k)
8463end
8464
8465return setmetatable(Blit, {
8466 __call = function(_, ...)
8467 local obj = setmetatable({ }, { __index = Blit })
8468 obj:init(...)
8469 return obj
8470 end
8471}) stolen/16478-25.10.2020.0043/sys/modules/opus/ui/transition.lua 0000777 0000000 0000000 00000004027 13745134001 020151 0 ustar local Tween = require('opus.ui.tween')
8472
8473local Transition = { }
8474
8475function Transition.slideLeft(canvas, args)
8476 local ticks = args.ticks or 6
8477 local easing = args.easing or 'inCirc'
8478 local pos = { x = canvas.ex }
8479 local tween = Tween.new(ticks, pos, { x = canvas.x }, easing)
8480
8481 canvas:move(pos.x, canvas.y)
8482
8483 return function()
8484 local finished = tween:update(1)
8485 canvas:move(math.floor(pos.x), canvas.y)
8486 canvas:dirty(true)
8487 return not finished
8488 end
8489end
8490
8491function Transition.slideRight(canvas, args)
8492 local ticks = args.ticks or 6
8493 local easing = args.easing or 'inCirc'
8494 local pos = { x = -canvas.width }
8495 local tween = Tween.new(ticks, pos, { x = 1 }, easing)
8496
8497 canvas:move(pos.x, canvas.y)
8498
8499 return function()
8500 local finished = tween:update(1)
8501 canvas:move(math.floor(pos.x), canvas.y)
8502 canvas:dirty(true)
8503 return not finished
8504 end
8505end
8506
8507function Transition.expandUp(canvas, args)
8508 local ticks = args.ticks or 3
8509 local easing = args.easing or 'linear'
8510 local pos = { y = canvas.ey + 1 }
8511 local tween = Tween.new(ticks, pos, { y = canvas.y }, easing)
8512
8513 canvas:move(canvas.x, pos.y)
8514
8515 return function()
8516 local finished = tween:update(1)
8517 canvas:move(canvas.x, math.floor(pos.y))
8518 canvas.parent:dirty(true)
8519 return not finished
8520 end
8521end
8522
8523function Transition.shake(canvas, args)
8524 local ticks = args.ticks or 8
8525 local i = ticks
8526
8527 return function()
8528 i = -i
8529 canvas:move(canvas.x + i, canvas.y)
8530 if i > 0 then
8531 i = i - 2
8532 end
8533 return i ~= 0
8534 end
8535end
8536
8537function Transition.shuffle(canvas, args)
8538 local ticks = args.ticks or 4
8539 local easing = args.easing or 'linear'
8540 local t = { }
8541
8542 for _,child in pairs(canvas.children) do
8543 t[child] = Tween.new(ticks, child, { x = child.x, y = child.y }, easing)
8544 child.x = math.random(1, canvas.parent.width)
8545 child.y = math.random(1, canvas.parent.height)
8546 end
8547
8548 return function()
8549 local finished
8550 for child, tween in pairs(t) do
8551 finished = tween:update(1)
8552 child:move(math.floor(child.x), math.floor(child.y))
8553 end
8554 return not finished
8555 end
8556end
8557
8558return Transition stolen/16478-25.10.2020.0043/sys/modules/opus/ui/canvas.lua 0000777 0000000 0000000 00000022500 13745134001 017226 0 ustar local class = require('opus.class')
8559local Region = require('opus.ui.region')
8560local Util = require('opus.util')
8561
8562local _rep = string.rep
8563local _sub = string.sub
8564local _gsub = string.gsub
8565local colors = _G.colors
8566
8567local Canvas = class()
8568
8569local function genPalette(map)
8570 local t = { }
8571 local rcolors = Util.transpose(colors)
8572 for n = 1, 16 do
8573 local pow = 2 ^ (n - 1)
8574 local ch = _sub(map, n, n)
8575 t[pow] = ch
8576 t[rcolors[pow]] = ch
8577 end
8578 return t
8579end
8580
8581Canvas.colorPalette = genPalette('0123456789abcdef')
8582Canvas.grayscalePalette = genPalette('088888878877787f')
8583
8584--[[
8585 A canvas can have more lines than canvas.height in order to scroll
8586
8587 TODO: finish vertical scrolling
8588]]
8589function Canvas:init(args)
8590 self.bg = colors.black
8591 self.fg = colors.white
8592
8593 Util.merge(self, args)
8594
8595 self.x = self.x or 1
8596 self.y = self.y or 1
8597 self.ex = self.x + self.width - 1
8598 self.ey = self.y + self.height - 1
8599
8600 if not self.palette then
8601 if self.isColor then
8602 self.palette = Canvas.colorPalette
8603 else
8604 self.palette = Canvas.grayscalePalette
8605 end
8606 end
8607
8608 self.lines = { }
8609 for i = 1, self.height do
8610 self.lines[i] = { }
8611 end
8612
8613 self:clear()
8614end
8615
8616function Canvas:move(x, y)
8617 self.x, self.y = x, y
8618 self.ex = self.x + self.width - 1
8619 self.ey = self.y + self.height - 1
8620 if self.parent then
8621 self.parent:dirty(true)
8622 end
8623end
8624
8625function Canvas:resize(w, h)
8626 self:resizeBuffer(w, h)
8627
8628 self.ex = self.x + w - 1
8629 self.ey = self.y + h - 1
8630 self.width = w
8631 self.height = h
8632end
8633
8634-- resize the canvas buffer - not the canvas itself
8635function Canvas:resizeBuffer(w, h)
8636 for i = #self.lines + 1, h do
8637 self.lines[i] = { }
8638 self:clearLine(i)
8639 end
8640
8641 while #self.lines > h do
8642 table.remove(self.lines, #self.lines)
8643 end
8644
8645 if w < self.width then
8646 for i = 1, h do
8647 local ln = self.lines[i]
8648 ln.text = _sub(ln.text, 1, w)
8649 ln.fg = _sub(ln.fg, 1, w)
8650 ln.bg = _sub(ln.bg, 1, w)
8651 end
8652 elseif w > self.width then
8653 local d = w - self.width
8654 local text = _rep(' ', d)
8655 local fg = _rep(self.palette[self.fg], d)
8656 local bg = _rep(self.palette[self.bg], d)
8657 for i = 1, h do
8658 local ln = self.lines[i]
8659 ln.text = ln.text .. text
8660 ln.fg = ln.fg .. fg
8661 ln.bg = ln.bg .. bg
8662 ln.dirty = true
8663 end
8664 end
8665end
8666
8667function Canvas:copy()
8668 local b = Canvas({
8669 x = self.x,
8670 y = self.y,
8671 width = self.width,
8672 height = self.height,
8673 isColor = self.isColor,
8674 })
8675 for i = 1, #self.lines do
8676 b.lines[i].text = self.lines[i].text
8677 b.lines[i].fg = self.lines[i].fg
8678 b.lines[i].bg = self.lines[i].bg
8679 end
8680 return b
8681end
8682
8683function Canvas:addLayer(layer)
8684 layer.parent = self
8685 if not self.children then
8686 self.children = { }
8687 end
8688 table.insert(self.children, 1, layer)
8689 return layer
8690end
8691
8692function Canvas:removeLayer()
8693 for k, layer in pairs(self.parent.children) do
8694 if layer == self then
8695 self:setVisible(false)
8696 table.remove(self.parent.children, k)
8697 break
8698 end
8699 end
8700end
8701
8702function Canvas:setVisible(visible)
8703 self.visible = visible -- TODO: use self.active = visible
8704 if not visible and self.parent then
8705 self.parent:dirty()
8706 -- TODO: set parent's lines to dirty for each line in self
8707 end
8708end
8709
8710-- Push a layer to the top
8711function Canvas:raise()
8712 if self.parent and self.parent.children then
8713 for k, v in pairs(self.parent.children) do
8714 if v == self then
8715 table.insert(self.parent.children, table.remove(self.parent.children, k))
8716 break
8717 end
8718 end
8719 end
8720end
8721
8722function Canvas:write(x, y, text, bg, fg)
8723 if bg then
8724 bg = _rep(self.palette[bg], #text)
8725 end
8726 if fg then
8727 fg = _rep(self.palette[fg] or self.palette[1], #text)
8728 end
8729 self:blit(x, y, text, bg, fg)
8730end
8731
8732function Canvas:blit(x, y, text, bg, fg)
8733 if y > 0 and y <= #self.lines and x <= self.width then
8734 local width = #text
8735 local tx, tex
8736
8737 if x < 1 then
8738 tx = 2 - x
8739 width = width + x - 1
8740 x = 1
8741 end
8742
8743 if x + width - 1 > self.width then
8744 tex = self.width - x + (tx or 1)
8745 width = tex - (tx or 1) + 1
8746 end
8747
8748 if width > 0 then
8749 local function replace(sstr, rstr)
8750 if tx or tex then
8751 rstr = _sub(rstr, tx or 1, tex)
8752 end
8753 if x == 1 and width == self.width then
8754 return rstr
8755 elseif x == 1 then
8756 return rstr .. _sub(sstr, x + width)
8757 elseif x + width > self.width then
8758 return _sub(sstr, 1, x - 1) .. rstr
8759 end
8760 return _sub(sstr, 1, x - 1) .. rstr .. _sub(sstr, x + width)
8761 end
8762
8763 local line = self.lines[y]
8764 line.dirty = true
8765 line.text = replace(line.text, text)
8766 if fg then
8767 line.fg = replace(line.fg, fg)
8768 end
8769 if bg then
8770 line.bg = replace(line.bg, bg)
8771 end
8772 end
8773 end
8774end
8775
8776function Canvas:writeLine(y, text, fg, bg)
8777 if y > 0 and y <= #self.lines then
8778 self.lines[y].dirty = true
8779 self.lines[y].text = text
8780 self.lines[y].fg = fg
8781 self.lines[y].bg = bg
8782 end
8783end
8784
8785function Canvas:clearLine(y, bg, fg)
8786 fg = _rep(self.palette[fg or self.fg], self.width)
8787 bg = _rep(self.palette[bg or self.bg], self.width)
8788 self:writeLine(y, _rep(' ', self.width), fg, bg)
8789end
8790
8791function Canvas:clear(bg, fg)
8792 local text = _rep(' ', self.width)
8793 fg = _rep(self.palette[fg or self.fg], self.width)
8794 bg = _rep(self.palette[bg or self.bg], self.width)
8795 for i = 1, #self.lines do
8796 self:writeLine(i, text, fg, bg)
8797 end
8798end
8799
8800function Canvas:isDirty()
8801 for i = 1, #self.lines do
8802 if self.lines[i].dirty then
8803 return true
8804 end
8805 end
8806end
8807
8808function Canvas:dirty(includingChildren)
8809 if self.lines then
8810 for i = 1, #self.lines do
8811 self.lines[i].dirty = true
8812 end
8813
8814 if includingChildren and self.children then
8815 for _, child in pairs(self.children) do
8816 child:dirty(true)
8817 end
8818 end
8819 end
8820end
8821
8822function Canvas:clean()
8823 for i = 1, #self.lines do
8824 self.lines[i].dirty = nil
8825 end
8826end
8827
8828function Canvas:applyPalette(palette)
8829 local lookup = { }
8830 for n = 1, 16 do
8831 lookup[self.palette[2 ^ (n - 1)]] = palette[2 ^ (n - 1)]
8832 end
8833
8834 for _, l in pairs(self.lines) do
8835 l.fg = _gsub(l.fg, '%w', lookup)
8836 l.bg = _gsub(l.bg, '%w', lookup)
8837 l.dirty = true
8838 end
8839
8840 self.palette = palette
8841end
8842
8843-- either render directly to the device
8844-- or use another canvas as a backing buffer
8845function Canvas:render(device, doubleBuffer)
8846 self.regions = Region.new(self.x, self.y, self.ex, self.ey)
8847 self:__renderLayers(device, { x = self.x - 1, y = self.y - 1 }, doubleBuffer)
8848
8849 -- doubleBuffering to reduce the amount of
8850 -- setCursorPos, blits
8851 if doubleBuffer then
8852 --[[
8853 local drew = false
8854 local bg = _rep(2, device.width)
8855 for k,v in pairs(device.lines) do
8856 if v.dirty then
8857 device.device.setCursorPos(device.x, device.y + k - 1)
8858 device.device.blit(v.text, v.fg, bg)
8859 drew = true
8860 end
8861 end
8862 if drew then
8863 local c = os.clock()
8864 repeat until os.clock()-c > .1
8865 end
8866 ]]
8867 for k,v in pairs(device.lines) do
8868 if v.dirty then
8869 device.device.setCursorPos(device.x, device.y + k - 1)
8870 device.device.blit(v.text, v.fg, v.bg)
8871 v.dirty = false
8872 end
8873 end
8874 end
8875end
8876
8877-- regions are comprised of absolute values that correspond to the output device.
8878-- canvases have coordinates relative to their parent.
8879-- canvas layer's stacking order is determined by the position within the array.
8880-- layers in the beginning of the array are overlayed by layers further down in
8881-- the array.
8882function Canvas:__renderLayers(device, offset, doubleBuffer)
8883 if self.children then
8884 for i = #self.children, 1, -1 do
8885 local canvas = self.children[i]
8886 if canvas.visible or canvas.enabled then
8887 -- get the area to render for this layer
8888 canvas.regions = Region.new(
8889 canvas.x + offset.x - (self.offx or 0),
8890 canvas.y + offset.y - (self.offy or 0),
8891 canvas.ex + offset.x - (self.offx or 0),
8892 canvas.ey + offset.y - (self.offy or 0))
8893
8894 -- contain within parent
8895 canvas.regions:andRegion(self.regions)
8896
8897 -- punch out this area from the parent's canvas
8898 self.regions:subRect(
8899 canvas.x + offset.x - (self.offx or 0),
8900 canvas.y + offset.y - (self.offy or 0),
8901 canvas.ex + offset.x - (self.offx or 0),
8902 canvas.ey + offset.y - (self.offy or 0))
8903
8904 if #canvas.regions.region > 0 then
8905 canvas:__renderLayers(device, {
8906 x = canvas.x + offset.x - 1 - (self.offx or 0),
8907 y = canvas.y + offset.y - 1 - (self.offy or 0),
8908 }, doubleBuffer)
8909 end
8910 canvas.regions = nil
8911 end
8912 end
8913 end
8914
8915 for _,region in ipairs(self.regions.region) do
8916 self:__blitRect(device,
8917 { x = region[1] - offset.x,
8918 y = region[2] - offset.y,
8919 ex = region[3] - offset.x,
8920 ey = region[4] - offset.y },
8921 { x = region[1], y = region[2] },
8922 doubleBuffer)
8923 end
8924 self.regions = nil
8925
8926 self:clean()
8927end
8928
8929function Canvas:__blitRect(device, src, tgt, doubleBuffer)
8930 -- for visualizing updates on the screen
8931 --[[
8932 if Canvas.__visualize or self.visualize then
8933 local drew
8934 local t = _rep(' ', src.ex-src.x + 1)
8935 local bg = _rep(2, src.ex-src.x + 1)
8936 for i = 0, src.ey - src.y do
8937 local line = self.lines[src.y + i + (self.offy or 0)]
8938 if line and line.dirty then
8939 drew = true
8940 device.setCursorPos(tgt.x, tgt.y + i)
8941 device.blit(t, bg, bg)
8942 end
8943 end
8944 if drew then
8945 local c = os.clock()
8946 repeat until os.clock()-c > .03
8947 end
8948 end
8949 ]]
8950 for i = 0, src.ey - src.y do
8951 local line = self.lines[src.y + i + (self.offy or 0)]
8952 if line and line.dirty then
8953 local t, fg, bg = line.text, line.fg, line.bg
8954 if src.x > 1 or src.ex < self.ex then
8955 t = _sub(t, src.x, src.ex)
8956 fg = _sub(fg, src.x, src.ex)
8957 bg = _sub(bg, src.x, src.ex)
8958 end
8959 if doubleBuffer then
8960 Canvas.blit(device, tgt.x, tgt.y + i,
8961 t, bg, fg)
8962 else
8963 device.setCursorPos(tgt.x, tgt.y + i)
8964 device.blit(t, fg, bg)
8965 end
8966 end
8967 end
8968end
8969
8970return Canvas stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/FileSelect.lua 0000777 0000000 0000000 00000004634 13745134001 022167 0 ustar local class = require('opus.class')
8971local UI = require('opus.ui')
8972local Util = require('opus.util')
8973
8974local fs = _G.fs
8975
8976UI.FileSelect = class(UI.Window)
8977UI.FileSelect.defaults = {
8978 UIElement = 'FileSelect',
8979}
8980function UI.FileSelect:postInit()
8981 self.grid = UI.ScrollingGrid {
8982 x = 2, y = 2, ex = -2, ey = -4,
8983 dir = '/',
8984 sortColumn = 'name',
8985 columns = {
8986 { heading = 'Name', key = 'name' },
8987 { heading = 'Size', key = 'size', width = 5 }
8988 },
8989 getDisplayValues = function(_, row)
8990 return {
8991 name = row.name,
8992 size = row.size and Util.toBytes(row.size),
8993 }
8994 end,
8995 getRowTextColor = function(_, file)
8996 return file.isDir and 'cyan' or file.isReadOnly and 'pink' or 'white'
8997 end,
8998 sortCompare = function(self, a, b)
8999 if self.sortColumn == 'size' then
9000 return a.size < b.size
9001 end
9002 if a.isDir == b.isDir then
9003 return a.name:lower() < b.name:lower()
9004 end
9005 return a.isDir
9006 end,
9007 draw = function(self)
9008 local files = fs.listEx(self.dir)
9009 if #self.dir > 0 then
9010 table.insert(files, {
9011 name = '..',
9012 isDir = true,
9013 })
9014 end
9015 self:setValues(files)
9016 self:setIndex(1)
9017 UI.Grid.draw(self)
9018 end,
9019 }
9020 self.path = UI.TextEntry {
9021 x = 2, y = -2, ex = -11,
9022 accelerators = {
9023 enter = 'path_enter',
9024 }
9025 }
9026 self.cancel = UI.Button {
9027 x = -9, y = -2,
9028 text = 'Cancel',
9029 event = 'select_cancel',
9030 }
9031end
9032
9033function UI.FileSelect:draw()
9034 self:fillArea(1, 1, self.width, self.height, string.rep('\127', self.width), 'black', 'gray')
9035 self:drawChildren()
9036end
9037
9038function UI.FileSelect:enable(path)
9039 self:setPath(path or '')
9040 UI.Window.enable(self)
9041end
9042
9043function UI.FileSelect:setPath(path)
9044 self.grid.dir = path
9045 while not fs.isDir(self.grid.dir) do
9046 self.grid.dir = fs.getDir(self.grid.dir)
9047 end
9048 self.path.value = self.grid.dir
9049end
9050
9051function UI.FileSelect:eventHandler(event)
9052 if event.type == 'grid_select' then
9053 self.grid.dir = fs.combine(self.grid.dir, event.selected.name)
9054 self.path.value = self.grid.dir
9055 if event.selected.isDir then
9056 self.grid:draw()
9057 self.path:draw()
9058 else
9059 self:emit({ type = 'select_file', file = '/' .. self.path.value, element = self })
9060 end
9061 return true
9062
9063 elseif event.type == 'path_enter' then
9064 if self.path.value then
9065 if fs.isDir(self.path.value) then
9066 self:setPath(self.path.value)
9067 self.grid:draw()
9068 self.path:draw()
9069 else
9070 self:emit({ type = 'select_file', file = '/' .. self.path.value, element = self })
9071 end
9072 end
9073 return true
9074 end
9075end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/MenuBar.lua 0000777 0000000 0000000 00000004071 13745134001 021474 0 ustar local class = require('opus.class')
9076local UI = require('opus.ui')
9077
9078UI.MenuBar = class(UI.Window)
9079UI.MenuBar.defaults = {
9080 UIElement = 'MenuBar',
9081 buttons = { },
9082 height = 1,
9083 backgroundColor = 'secondary',
9084 textColor = 'black',
9085 spacing = 2,
9086 lastx = 1,
9087 buttonClass = 'MenuItem',
9088}
9089function UI.MenuBar:postInit()
9090 self:addButtons(self.buttons)
9091end
9092
9093function UI.MenuBar:addButtons(buttons)
9094 if not self.children then
9095 self.children = { }
9096 end
9097
9098 for _,button in pairs(buttons) do
9099 if button.index then -- don't sort unless needed
9100 table.sort(buttons, function(a, b)
9101 return (a.index or 999) < (b.index or 999)
9102 end)
9103 break
9104 end
9105 end
9106
9107 for _,button in pairs(buttons) do
9108 if button.UIElement then
9109 table.insert(self.children, button)
9110 else
9111 local buttonProperties = {
9112 x = self.lastx,
9113 width = #(button.text or 'button') + self.spacing,
9114 centered = false,
9115 backgroundColor = self.backgroundColor,
9116 }
9117 self.lastx = self.lastx + buttonProperties.width
9118 UI:mergeProperties(buttonProperties, button)
9119
9120 button = UI[self.buttonClass](buttonProperties)
9121 if button.name then
9122 self[button.name] = button
9123 else
9124 table.insert(self.children, button)
9125 end
9126 end
9127 end
9128 if self.parent then
9129 self:initChildren()
9130 end
9131end
9132
9133function UI.MenuBar:getActive(menuItem)
9134 return not menuItem.inactive
9135end
9136
9137function UI.MenuBar:eventHandler(event)
9138 if event.type == 'button_press' and event.button.dropdown then
9139 local function getPosition(element)
9140 local x, y = 1, 1
9141 repeat
9142 x = element.x + x - 1
9143 y = element.y + y - 1
9144 element = element.parent
9145 until not element
9146 return x, y
9147 end
9148
9149 local x, y = getPosition(event.button)
9150
9151 local menu = UI.DropMenu {
9152 buttons = event.button.dropdown,
9153 x = x,
9154 y = y + 1,
9155 lastFocus = event.button.uid,
9156 menuUid = self.uid,
9157 }
9158 self.parent:add({ dropmenu = menu })
9159
9160 return true
9161 end
9162end
9163
9164function UI.MenuBar.example()
9165 return UI.MenuBar {
9166 buttons = {
9167 { text = 'Choice1', event = 'event1' },
9168 { text = 'Choice2', event = 'event2', inactive = true },
9169 { text = 'Choice3', event = 'event3' },
9170 }
9171 }
9172end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/MenuItem.lua 0000777 0000000 0000000 00000000315 13745134001 021663 0 ustar local class = require('opus.class')
9173local UI = require('opus.ui')
9174
9175UI.MenuItem = class(UI.FlatButton)
9176UI.MenuItem.defaults = {
9177 UIElement = 'MenuItem',
9178 noPadding = false,
9179 textInactiveColor = 'gray',
9180} stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/Embedded.lua 0000777 0000000 0000000 00000004016 13745134001 021633 0 ustar local class = require('opus.class')
9181local Event = require('opus.event')
9182local Terminal = require('opus.terminal')
9183local UI = require('opus.ui')
9184
9185UI.Embedded = class(UI.Window)
9186UI.Embedded.defaults = {
9187 UIElement = 'Embedded',
9188 backgroundColor = 'black',
9189 textColor = 'white',
9190 maxScroll = 100,
9191 accelerators = {
9192 up = 'scroll_up',
9193 down = 'scroll_down',
9194 }
9195}
9196function UI.Embedded:layout()
9197 UI.Window.layout(self)
9198
9199 if not self.win then
9200 local t
9201 function self.render()
9202 if not t then
9203 t = Event.onTimeout(0, function()
9204 t = nil
9205 if self.focused then
9206 self:setCursorPos(self.win.getCursorPos())
9207 end
9208 self:sync()
9209 end)
9210 end
9211 end
9212 self.win = Terminal.window(UI.term.device, self.x, self.y, self.width, self.height, false)
9213 self.win.canvas = self
9214 self.win.setMaxScroll(self.maxScroll)
9215 self.win.setCursorPos(1, 1)
9216 self.win.setBackgroundColor(self.backgroundColor)
9217 self.win.setTextColor(self.textColor)
9218 self.win.clear()
9219 end
9220end
9221
9222function UI.Embedded:draw()
9223 self:dirty()
9224end
9225
9226function UI.Embedded:focus()
9227 -- allow scrolling
9228 if self.focused then
9229 self:setCursorBlink(self.win.getCursorBlink())
9230 end
9231end
9232
9233function UI.Embedded:enable()
9234 UI.Window.enable(self)
9235 self.win.setVisible(true)
9236 self:dirty()
9237end
9238
9239function UI.Embedded:disable()
9240 self.win.setVisible(false)
9241 UI.Window.disable(self)
9242end
9243
9244function UI.Embedded:eventHandler(event)
9245 if event.type == 'scroll_up' then
9246 self.win.scrollUp()
9247 return true
9248 elseif event.type == 'scroll_down' then
9249 self.win.scrollDown()
9250 return true
9251 end
9252end
9253
9254function UI.Embedded.example()
9255 local Util = require('opus.util')
9256 local term = _G.term
9257
9258 return UI.Embedded {
9259 y = 2, x = 2, ex = -2, ey = -2,
9260 enable = function (self)
9261 UI.Embedded.enable(self)
9262 Event.addRoutine(function()
9263 local oterm = term.redirect(self.win)
9264 Util.run(_ENV, '/sys/apps/shell.lua')
9265 term.redirect(oterm)
9266 end)
9267 end,
9268 eventHandler = function(self, event)
9269 if event.type == 'key' then
9270 return true
9271 end
9272 return UI.Embedded.eventHandler(self, event)
9273 end
9274 }
9275end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/Chooser.lua 0000777 0000000 0000000 00000005537 13745134001 021555 0 ustar local class = require('opus.class')
9276local UI = require('opus.ui')
9277local Util = require('opus.util')
9278
9279local colors = _G.colors
9280
9281UI.Chooser = class(UI.Window)
9282UI.Chooser.defaults = {
9283 UIElement = 'Chooser',
9284 choices = { },
9285 nochoice = 'Select',
9286 backgroundFocusColor = colors.lightGray,
9287 textInactiveColor = colors.gray,
9288 leftIndicator = UI.extChars and '\171' or '<',
9289 rightIndicator = UI.extChars and '\187' or '>',
9290 height = 1,
9291 accelerators = {
9292 [ ' ' ] = 'choice_next',
9293 right = 'choice_next',
9294 left = 'choice_prev',
9295 }
9296}
9297function UI.Chooser:layout()
9298 if not self.width and not self.ex then
9299 self.width = 1
9300 for _,v in pairs(self.choices) do
9301 if #v.name > self.width then
9302 self.width = #v.name
9303 end
9304 end
9305 self.width = self.width + 4
9306 end
9307 UI.Window.layout(self)
9308end
9309
9310function UI.Chooser:draw()
9311 local bg = self.focused and self.backgroundFocusColor or self.backgroundColor
9312 local fg = self.inactive and self.textInactiveColor or self.textColor
9313 local choice = Util.find(self.choices, 'value', self.value)
9314 local value = choice and choice.name or self.nochoice
9315
9316 self:write(1, 1, self.leftIndicator, self.backgroundColor, colors.black)
9317 self:write(2, 1, ' ' .. Util.widthify(tostring(value), self.width - 4) .. ' ', bg, fg)
9318 self:write(self.width, 1, self.rightIndicator, self.backgroundColor, colors.black)
9319end
9320
9321function UI.Chooser:focus()
9322 self:draw()
9323end
9324
9325function UI.Chooser:eventHandler(event)
9326 if event.type == 'choice_next' then
9327 local _,k = Util.find(self.choices, 'value', self.value)
9328 local choice
9329 if not k then k = 0 end
9330 if k and k < #self.choices then
9331 choice = self.choices[k + 1]
9332 else
9333 choice = self.choices[1]
9334 end
9335 self.value = choice.value
9336 self:emit({ type = 'choice_change', value = self.value, element = self, choice = choice })
9337 self:draw()
9338 return true
9339
9340 elseif event.type == 'choice_prev' then
9341 local _,k = Util.find(self.choices, 'value', self.value)
9342 local choice
9343 if k and k > 1 then
9344 choice = self.choices[k - 1]
9345 else
9346 choice = self.choices[#self.choices]
9347 end
9348 self.value = choice.value
9349 self:emit({ type = 'choice_change', value = self.value, element = self, choice = choice })
9350 self:draw()
9351 return true
9352
9353 elseif event.type == 'mouse_click' or event.type == 'mouse_doubleclick' then
9354 if event.x == 1 then
9355 self:emit({ type = 'choice_prev' })
9356 return true
9357 elseif event.x == self.width then
9358 self:emit({ type = 'choice_next' })
9359 return true
9360 end
9361 end
9362end
9363
9364function UI.Chooser.example()
9365 return UI.Window {
9366 a = UI.Chooser {
9367 x = 2, y = 2,
9368 choices = {
9369 { name = 'choice1', value = 'value1' },
9370 { name = 'choice2', value = 'value2' },
9371 { name = 'choice3', value = 'value3' },
9372 },
9373 value = 'value2',
9374 },
9375 b = UI.Chooser {
9376 x = 2, y = 4,
9377 choices = {
9378 { name = 'choice1', value = 'value1' },
9379 { name = 'choice2', value = 'value2' },
9380 { name = 'choice3', value = 'value3' },
9381 },
9382 }
9383 }
9384end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/Grid.lua 0000777 0000000 0000000 00000026644 13745134001 021042 0 ustar local class = require('opus.class')
9385local UI = require('opus.ui')
9386local Util = require('opus.util')
9387
9388local os = _G.os
9389local _rep = string.rep
9390
9391local function safeValue(v)
9392 local t = type(v)
9393 if t == 'string' or t == 'number' then
9394 return v
9395 end
9396 return tostring(v)
9397end
9398
9399local Writer = class()
9400function Writer:init(element, y)
9401 self.element = element
9402 self.y = y
9403 self.x = 1
9404end
9405
9406function Writer:write(s, width, align, bg, fg)
9407 s = Util.widthify(s, width, align)
9408 self.element:write(self.x, self.y, s, bg, fg)
9409 self.x = self.x + width
9410end
9411
9412function Writer:finish(bg)
9413 if self.x <= self.element.width then
9414 self.element:write(self.x, self.y, _rep(' ', self.element.width - self.x + 1), bg)
9415 end
9416 self.x = 1
9417 self.y = self.y + 1
9418end
9419
9420--[[-- Grid --]]--
9421UI.Grid = class(UI.Window)
9422UI.Grid.defaults = {
9423 UIElement = 'Grid',
9424 index = 1,
9425 inverseSort = false,
9426 disableHeader = false,
9427 headerHeight = 1,
9428 marginRight = 0,
9429 textColor = 'white',
9430 textSelectedColor = 'white',
9431 backgroundColor = 'black',
9432 backgroundSelectedColor = 'gray',
9433 headerBackgroundColor = 'primary',
9434 headerTextColor = 'white',
9435 headerSortColor = 'yellow',
9436 unfocusedTextSelectedColor = 'white',
9437 unfocusedBackgroundSelectedColor = 'gray',
9438 focusIndicator = UI.extChars and '\26' or '>',
9439 sortIndicator = ' ',
9440 inverseSortIndicator = UI.extChars and '\24' or '^',
9441 values = { },
9442 columns = { },
9443 accelerators = {
9444 enter = 'key_enter',
9445 [ 'control-c' ] = 'copy',
9446 down = 'scroll_down',
9447 up = 'scroll_up',
9448 home = 'scroll_top',
9449 [ 'end' ] = 'scroll_bottom',
9450 pageUp = 'scroll_pageUp',
9451 [ 'control-b' ] = 'scroll_pageUp',
9452 pageDown = 'scroll_pageDown',
9453 [ 'control-f' ] = 'scroll_pageDown',
9454 },
9455}
9456function UI.Grid:layout()
9457 UI.Window.layout(self)
9458
9459 for _,c in pairs(self.columns) do
9460 c.cw = c.width
9461 if not c.heading then
9462 c.heading = ''
9463 end
9464 end
9465
9466 self:update()
9467
9468 if not self.pageSize then
9469 if self.disableHeader then
9470 self.pageSize = self.height
9471 else
9472 self.pageSize = self.height - self.headerHeight
9473 end
9474 end
9475end
9476
9477function UI.Grid:resize()
9478 UI.Window.resize(self)
9479
9480 if self.disableHeader then
9481 self.pageSize = self.height
9482 else
9483 self.pageSize = self.height - self.headerHeight
9484 end
9485 self:adjustWidth()
9486end
9487
9488function UI.Grid:adjustWidth()
9489 local t = { } -- cols without width
9490 local w = self.width - #self.columns - 1 - self.marginRight -- width remaining
9491
9492 for _,c in pairs(self.columns) do
9493 if c.width then
9494 c.cw = c.width
9495 w = w - c.cw
9496 else
9497 table.insert(t, c)
9498 end
9499 end
9500
9501 if #t == 0 then
9502 return
9503 end
9504
9505 if #t == 1 then
9506 t[1].cw = #(t[1].heading or '')
9507 t[1].cw = math.max(t[1].cw, w)
9508 return
9509 end
9510
9511 if not self.autospace then
9512 for k,c in ipairs(t) do
9513 c.cw = math.floor(w / (#t - k + 1))
9514 w = w - c.cw
9515 end
9516
9517 else
9518 for _,c in ipairs(t) do
9519 c.cw = #(c.heading or '')
9520 w = w - c.cw
9521 end
9522 -- adjust the size to the length of the value
9523 for key,row in pairs(self.values) do
9524 if w <= 0 then
9525 break
9526 end
9527 row = self:getDisplayValues(row, key)
9528 for _,col in pairs(t) do
9529 local value = row[col.key]
9530 if value then
9531 value = tostring(value)
9532 if #value > col.cw then
9533 w = w + col.cw
9534 col.cw = math.min(#value, w)
9535 w = w - col.cw
9536 if w <= 0 then
9537 break
9538 end
9539 end
9540 end
9541 end
9542 end
9543
9544 -- last column does not get padding (right alignment)
9545 if not self.columns[#self.columns].width then
9546 Util.removeByValue(t, self.columns[#self.columns])
9547 end
9548
9549 -- got some extra room - add some padding
9550 if w > 0 then
9551 for k,c in ipairs(t) do
9552 local padding = math.floor(w / (#t - k + 1))
9553 c.cw = c.cw + padding
9554 w = w - padding
9555 end
9556 end
9557 end
9558end
9559
9560function UI.Grid:setPageSize(pageSize)
9561 self.pageSize = pageSize
9562end
9563
9564function UI.Grid:getValues()
9565 return self.values
9566end
9567
9568function UI.Grid:setValues(t)
9569 self.values = t
9570 self:update()
9571end
9572
9573function UI.Grid:setInverseSort(inverseSort)
9574 self.inverseSort = inverseSort
9575 self:update()
9576 self:setIndex(self.index)
9577end
9578
9579function UI.Grid:setSortColumn(column)
9580 self.sortColumn = column
9581end
9582
9583function UI.Grid:getDisplayValues(row, key)
9584 return row
9585end
9586
9587function UI.Grid:getSelected()
9588 if self.sorted then
9589 return self.values[self.sorted[self.index]], self.sorted[self.index]
9590 end
9591end
9592
9593function UI.Grid:setSelected(name, value)
9594 if self.sorted then
9595 for k,v in pairs(self.sorted) do
9596 if self.values[v][name] == value then
9597 self:setIndex(k)
9598 return
9599 end
9600 end
9601 end
9602 self:setIndex(1)
9603end
9604
9605function UI.Grid:focus()
9606 self:drawRows()
9607end
9608
9609function UI.Grid:draw()
9610 if not self.disableHeader then
9611 self:drawHeadings()
9612 end
9613
9614 if self.index <= 0 then
9615 self:setIndex(1)
9616 elseif self.index > #self.sorted then
9617 self:setIndex(#self.sorted)
9618 end
9619 self:drawRows()
9620end
9621
9622-- Something about the displayed table has changed
9623-- resort the table
9624function UI.Grid:update()
9625 local function sort(a, b)
9626 if not a[self.sortColumn] then
9627 return false
9628 elseif not b[self.sortColumn] then
9629 return true
9630 end
9631 return self:sortCompare(a, b)
9632 end
9633
9634 local function inverseSort(a, b)
9635 return not sort(a, b)
9636 end
9637
9638 local order
9639 if self.sortColumn then
9640 order = sort
9641 if self.inverseSort then
9642 order = inverseSort
9643 end
9644 end
9645
9646 self.sorted = Util.keys(self.values)
9647 if order then
9648 table.sort(self.sorted, function(a,b)
9649 return order(self.values[a], self.values[b])
9650 end)
9651 end
9652
9653 self:adjustWidth()
9654end
9655
9656function UI.Grid:drawHeadings()
9657 if self.headerHeight > 1 then
9658 self:clear(self.headerBackgroundColor)
9659 end
9660 local sb = Writer(self, math.ceil(self.headerHeight / 2))
9661 for _,col in ipairs(self.columns) do
9662 local ind = ' '
9663 local color = self.headerTextColor
9664 if col.key == self.sortColumn then
9665 if self.inverseSort then
9666 ind = self.inverseSortIndicator
9667 else
9668 ind = self.sortIndicator
9669 end
9670 color = self.headerSortColor
9671 end
9672 sb:write(ind .. col.heading,
9673 col.cw + 1,
9674 col.align,
9675 self.headerBackgroundColor,
9676 color)
9677 end
9678 sb:finish(self.headerBackgroundColor)
9679end
9680
9681function UI.Grid:sortCompare(a, b)
9682 a = safeValue(a[self.sortColumn])
9683 b = safeValue(b[self.sortColumn])
9684 if type(a) == type(b) then
9685 return a < b
9686 end
9687 return tostring(a) < tostring(b)
9688end
9689
9690function UI.Grid:drawRows()
9691 local startRow = math.max(1, self:getStartRow())
9692
9693 local sb = Writer(self, self.disableHeader and 1 or self.headerHeight + 1)
9694
9695 local lastRow = math.min(startRow + self.pageSize - 1, #self.sorted)
9696 for index = startRow, lastRow do
9697
9698 local key = self.sorted[index]
9699 local rawRow = self.values[key]
9700 local row = self:getDisplayValues(rawRow, key)
9701
9702 local selected = index == self.index and not self.inactive
9703 local bg = self:getRowBackgroundColor(rawRow, selected)
9704 local fg = self:getRowTextColor(rawRow, selected)
9705 local focused = self.focused and selected
9706
9707 self:drawRow(sb, row, focused, bg, fg)
9708
9709 sb:finish(bg)
9710 end
9711
9712 if sb.y <= self.height then
9713 self:clearArea(1, sb.y, self.width, self.height - sb.y + 1)
9714 end
9715end
9716
9717function UI.Grid:drawRow(sb, row, focused, bg, fg)
9718 local ind = focused and self.focusIndicator or ' '
9719
9720 for _,col in pairs(self.columns) do
9721 sb:write(ind .. safeValue(row[col.key] or ''),
9722 col.cw + 1,
9723 col.align,
9724 col.backgroundColor or bg,
9725 col.textColor or fg)
9726 ind = ' '
9727 end
9728end
9729
9730function UI.Grid:getRowTextColor(row, selected)
9731 if selected then
9732 if self.focused then
9733 return self.textSelectedColor
9734 end
9735 return self.unfocusedTextSelectedColor
9736 end
9737 return self.textColor
9738end
9739
9740function UI.Grid:getRowBackgroundColor(row, selected)
9741 if selected then
9742 if self.focused then
9743 return self.backgroundSelectedColor
9744 end
9745 return self.unfocusedBackgroundSelectedColor
9746 end
9747 return self.backgroundColor
9748end
9749
9750function UI.Grid:getIndex()
9751 return self.index
9752end
9753
9754function UI.Grid:setIndex(index)
9755 index = math.max(1, index)
9756 self.index = math.min(index, #self.sorted)
9757
9758 local selected = self:getSelected()
9759 if selected ~= self.selected then
9760 self:drawRows()
9761 self.selected = selected
9762 if selected then
9763 self:emit({ type = 'grid_focus_row', selected = selected, element = self })
9764 end
9765 end
9766end
9767
9768function UI.Grid:getStartRow()
9769 return math.floor((self.index - 1) / self.pageSize) * self.pageSize + 1
9770end
9771
9772function UI.Grid:getPage()
9773 return math.floor(self.index / self.pageSize) + 1
9774end
9775
9776function UI.Grid:getPageCount()
9777 local tableSize = Util.size(self.values)
9778 local pc = math.floor(tableSize / self.pageSize)
9779 if tableSize % self.pageSize > 0 then
9780 pc = pc + 1
9781 end
9782 return pc
9783end
9784
9785function UI.Grid:nextPage()
9786 self:setPage(self:getPage() + 1)
9787end
9788
9789function UI.Grid:previousPage()
9790 self:setPage(self:getPage() - 1)
9791end
9792
9793function UI.Grid:setPage(pageNo)
9794 -- 1 based paging
9795 self:setIndex((pageNo-1) * self.pageSize + 1)
9796end
9797
9798function UI.Grid:eventHandler(event)
9799 if event.type == 'mouse_click' or
9800 event.type == 'mouse_rightclick' or
9801 event.type == 'mouse_doubleclick' then
9802 if not self.disableHeader then
9803 if event.y <= self.headerHeight then
9804 local col = 2
9805 for _,c in ipairs(self.columns) do
9806 if event.x < col + c.cw then
9807 self:emit({
9808 type = 'grid_sort',
9809 sortColumn = c.key,
9810 inverseSort = self.sortColumn == c.key and not self.inverseSort,
9811 element = self,
9812 })
9813 break
9814 end
9815 col = col + c.cw + 1
9816 end
9817 return true
9818 end
9819 end
9820 local row = self:getStartRow() + event.y - 1
9821 if not self.disableHeader then
9822 row = row - self.headerHeight
9823 end
9824 if row > 0 and row <= Util.size(self.values) then
9825 self:setIndex(row)
9826 if event.type == 'mouse_doubleclick' then
9827 self:emit({ type = 'key_enter' })
9828 elseif event.type == 'mouse_rightclick' then
9829 self:emit({ type = 'grid_select_right', selected = self.selected, element = self })
9830 end
9831 return true
9832 end
9833 return false
9834
9835 elseif event.type == 'grid_sort' then
9836 self.sortColumn = event.sortColumn
9837 self:setInverseSort(event.inverseSort)
9838 self:draw()
9839 elseif event.type == 'scroll_down' then
9840 self:setIndex(self.index + 1)
9841 elseif event.type == 'scroll_up' then
9842 self:setIndex(self.index - 1)
9843 elseif event.type == 'scroll_top' then
9844 self:setIndex(1)
9845 elseif event.type == 'scroll_bottom' then
9846 self:setIndex(Util.size(self.values))
9847 elseif event.type == 'scroll_pageUp' then
9848 self:setIndex(self.index - self.pageSize)
9849 elseif event.type == 'scroll_pageDown' then
9850 self:setIndex(self.index + self.pageSize)
9851 elseif event.type == 'scroll_to' then
9852 self:setIndex(event.offset)
9853 elseif event.type == 'key_enter' then
9854 if self.selected then
9855 self:emit({ type = 'grid_select', selected = self.selected, element = self })
9856 end
9857 elseif event.type == 'copy' then
9858 if self.selected then
9859 os.queueEvent('clipboard_copy', self.selected)
9860 end
9861 else
9862 return false
9863 end
9864 return true
9865end
9866
9867function UI.Grid.example()
9868 local values = {
9869 { key = 'key1', value = 'value1' },
9870 { key = 'key2', value = 'value2' },
9871 { key = 'key3', value = 'value3-longer value text' },
9872 { key = 'key4', value = 'value4' },
9873 { key = 'key5', value = 'value5' },
9874 }
9875 return UI.Window {
9876 regular = UI.Grid {
9877 ex = '48%', ey = 4,
9878 values = values,
9879 sortColumn = 'key',
9880 inverseSort = true,
9881 columns = {
9882 { heading = 'key', key = 'key' },
9883 { heading = 'value', key = 'value' },
9884 },
9885 accelerators = {
9886 grid_select = 'custom_select',
9887 }
9888 },
9889 noheader = UI.Grid {
9890 ex = '48%', y = 6, ey = -2,
9891 disableHeader = true,
9892 values = values,
9893 columns = {
9894 { heading = 'key', key = 'key', width = 6, },
9895 { heading = 'value', key = 'value', textColor = 'yellow' },
9896 },
9897 },
9898 autospace = UI.Grid {
9899 x = '52%', ey = 4,
9900 autospace = true,
9901 values = values,
9902 columns = {
9903 { heading = 'key', key = 'key' },
9904 { heading = 'value', key = 'value' },
9905 },
9906 },
9907 }
9908end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/Tabs.lua 0000777 0000000 0000000 00000005775 13745134001 021050 0 ustar local class = require('opus.class')
9909local UI = require('opus.ui')
9910local Util = require('opus.util')
9911
9912UI.Tabs = class(UI.Window)
9913UI.Tabs.docs = { }
9914UI.Tabs.defaults = {
9915 UIElement = 'Tabs',
9916 selectedBackgroundColor = 'primary',
9917 unselectedBackgroundColor = 'tertiary',
9918 unselectedTextColor = 'lightGray',
9919 selectedTextColor = 'black',
9920}
9921function UI.Tabs:postInit()
9922 self:add(self)
9923end
9924
9925function UI.Tabs:add(children)
9926 local buttons = { }
9927 for _,child in pairs(children) do
9928 if type(child) == 'table' and child.UIElement and child.UIElement == 'Tab' then
9929 child.y = 2
9930 table.insert(buttons, {
9931 index = child.index,
9932 text = child.title,
9933 event = 'tab_select',
9934 tabUid = child.uid,
9935 })
9936 end
9937 end
9938
9939 if not self.tabBar then
9940 self.tabBar = UI.TabBar({
9941 buttons = buttons,
9942 backgroundColor = self.barBackgroundColor,
9943 })
9944 else
9945 self.tabBar:addButtons(buttons)
9946 end
9947
9948 if self.parent then
9949 local enabled = self.enabled
9950
9951 -- don't enable children upon add
9952 self.enabled = nil
9953 UI.Window.add(self, children)
9954 self.enabled = enabled
9955 end
9956end
9957
9958UI.Tabs.docs.selectTab = [[selectTab(TAB)
9959Make to the passed tab active.]]
9960function UI.Tabs:selectTab(tab)
9961 local menuItem = Util.find(self.tabBar.children, 'tabUid', tab.uid)
9962 if menuItem then
9963 if self.enabled then
9964 self.tabBar:emit({ type = 'tab_select', button = { uid = menuItem.uid } })
9965 else
9966 local previous = Util.find(self.tabBar.children, 'selected', true)
9967 if previous then
9968 previous.selected = false
9969 end
9970 menuItem.selected = true
9971 end
9972 end
9973end
9974
9975function UI.Tabs:setActive(tab, active)
9976 local menuItem = Util.find(self.tabBar.children, 'tabUid', tab.uid)
9977 if menuItem then
9978 menuItem.inactive = not active
9979 end
9980end
9981
9982function UI.Tabs:enable()
9983 self.enabled = true
9984 self.tabBar:enable()
9985
9986 local menuItem = Util.find(self.tabBar.children, 'selected', true)
9987 self:enableTab(menuItem.tabUid)
9988end
9989
9990function UI.Tabs:enableTab(tabUid, hint)
9991 for child in self:eachChild() do
9992 child.transitionHint = hint
9993 if child.uid == tabUid then
9994 if not child.enabled then
9995 child:enable()
9996 end
9997 elseif child.UIElement == 'Tab' then
9998 if child.enabled then
9999 child:disable()
10000 end
10001 end
10002 end
10003end
10004
10005function UI.Tabs:eventHandler(event)
10006 if event.type == 'tab_change' then
10007 local tab = self:find(event.tab.tabUid)
10008 local hint = event.current > event.last and 'slideLeft' or 'slideRight'
10009
10010 self:enableTab(event.tab.tabUid, hint)
10011 tab:draw()
10012 return true
10013 end
10014end
10015
10016function UI.Tabs.example()
10017 return UI.Tabs {
10018 tab1 = UI.Tab {
10019 index = 1,
10020 title = 'tab1',
10021 entry = UI.TextEntry { y = 3, shadowText = 'text' },
10022 },
10023 tab2 = UI.Tab {
10024 index = 2,
10025 title = 'tab2',
10026 subtabs = UI.Tabs {
10027 x = 3, y = 2, ex = -3, ey = -2,
10028 tab1 = UI.Tab {
10029 index = 1,
10030 title = 'tab4',
10031 entry = UI.TextEntry { y = 3, shadowText = 'text' },
10032 },
10033 tab3 = UI.Tab {
10034 index = 2,
10035 title = 'tab5',
10036 },
10037 },
10038 },
10039 tab3 = UI.Tab {
10040 index = 3,
10041 title = 'tab3',
10042 },
10043 enable = function(self)
10044 UI.Tabs.enable(self)
10045 self:setActive(self.tab3, false)
10046 end,
10047 }
10048end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/Button.lua 0000777 0000000 0000000 00000003663 13745134001 021424 0 ustar local class = require('opus.class')
10049local UI = require('opus.ui')
10050local Util = require('opus.util')
10051
10052UI.Button = class(UI.Window)
10053UI.Button.defaults = {
10054 UIElement = 'Button',
10055 text = 'button',
10056 backgroundColor = 'lightGray',
10057 backgroundFocusColor = 'gray',
10058 textFocusColor = 'white',
10059 textInactiveColor = 'gray',
10060 textColor = 'black',
10061 centered = true,
10062 height = 1,
10063 focusIndicator = ' ',
10064 event = 'button_press',
10065 accelerators = {
10066 [ ' ' ] = 'button_activate',
10067 enter = 'button_activate',
10068 mouse_click = 'button_activate',
10069 mouse_doubleclick = 'button_activate',
10070 mouse_tripleclick = 'button_activate',
10071 }
10072}
10073function UI.Button:layout()
10074 if not self.width and not self.ex then
10075 self.width = self.noPadding and #self.text or #self.text + 2
10076 end
10077 UI.Window.layout(self)
10078end
10079
10080function UI.Button:draw()
10081 local fg = self.textColor
10082 local bg = self.backgroundColor
10083 local ind = ' '
10084 if self.focused then
10085 bg = self:getProperty('backgroundFocusColor')
10086 fg = self:getProperty('textFocusColor')
10087 ind = self.focusIndicator
10088 elseif self.inactive then
10089 fg = self:getProperty('textInactiveColor')
10090 end
10091 local text = self.noPadding and self.text or ind .. self.text .. ' '
10092 if self.centered then
10093 self:clear(bg)
10094 self:centeredWrite(1 + math.floor(self.height / 2), text, bg, fg)
10095 else
10096 self:write(1, 1, Util.widthify(text, self.width), bg, fg)
10097 end
10098end
10099
10100function UI.Button:focus()
10101 if self.focused then
10102 self:scrollIntoView()
10103 end
10104 self:draw()
10105end
10106
10107function UI.Button:eventHandler(event)
10108 if event.type == 'button_activate' then
10109 self:emit({ type = self.event, button = self, element = self })
10110 return true
10111 end
10112 return false
10113end
10114
10115function UI.Button.example()
10116 return UI.Window {
10117 button1 = UI.Button {
10118 x = 2, y = 2,
10119 text = 'Press',
10120 },
10121 button2 = UI.Button {
10122 x = 2, y = 4,
10123 backgroundColor = 'green',
10124 event = 'custom_event',
10125 },
10126 button3 = UI.Button {
10127 x = 12, y = 2,
10128 height = 5,
10129 event = 'big_event',
10130 text = 'large button'
10131 }
10132 }
10133end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/StatusBar.lua 0000777 0000000 0000000 00000004215 13745134001 022053 0 ustar local class = require('opus.class')
10134local Event = require('opus.event')
10135local UI = require('opus.ui')
10136local Util = require('opus.util')
10137
10138UI.StatusBar = class(UI.Window)
10139UI.StatusBar.defaults = {
10140 UIElement = 'StatusBar',
10141 backgroundColor = 'lightGray',
10142 textColor = 'gray',
10143 height = 1,
10144 ey = -1,
10145}
10146function UI.StatusBar:layout()
10147 UI.Window.layout(self)
10148 -- Can only have 1 adjustable width
10149 if self.columns then
10150 local w = self.width - #self.columns - 1
10151 for _,c in pairs(self.columns) do
10152 if c.width then
10153 c.cw = c.width -- computed width
10154 w = w - c.width
10155 end
10156 end
10157 for _,c in pairs(self.columns) do
10158 if not c.width then
10159 c.cw = w
10160 end
10161 end
10162 end
10163end
10164
10165function UI.StatusBar:setStatus(status)
10166 if self.values ~= status then
10167 self.values = status
10168 self:draw()
10169 end
10170end
10171
10172function UI.StatusBar:setValue(name, value)
10173 if not self.values then
10174 self.values = { }
10175 end
10176 self.values[name] = value
10177end
10178
10179function UI.StatusBar:getValue(name)
10180 if self.values then
10181 return self.values[name]
10182 end
10183end
10184
10185function UI.StatusBar:timedStatus(status, timeout)
10186 self:write(2, 1, Util.widthify(status, self.width-2), self.backgroundColor)
10187 Event.onTimeout(timeout or 3, function()
10188 if self.enabled then
10189 self:draw()
10190 self:sync()
10191 end
10192 end)
10193end
10194
10195function UI.StatusBar:getColumnWidth(name)
10196 local c = Util.find(self.columns, 'key', name)
10197 return c and c.cw
10198end
10199
10200function UI.StatusBar:setColumnWidth(name, width)
10201 local c = Util.find(self.columns, 'key', name)
10202 if c then
10203 c.cw = width
10204 end
10205end
10206
10207function UI.StatusBar:draw()
10208 if not self.values then
10209 self:clear()
10210 elseif type(self.values) == 'string' then
10211 self:write(1, 1, Util.widthify(' ' .. self.values, self.width))
10212 else
10213 local x = 2
10214 self:clear()
10215 for _,c in ipairs(self.columns) do
10216 local s = Util.widthify(tostring(self.values[c.key] or ''), c.cw)
10217 self:write(x, 1, s, c.bg, c.fg)
10218 x = x + c.cw + 1
10219 end
10220 end
10221end
10222
10223function UI.StatusBar.example()
10224 return UI.Window {
10225 status1 = UI.StatusBar { values = 'standard' },
10226 status2 = UI.StatusBar {
10227 ey = -3,
10228 columns = {
10229 { key = 'field1' },
10230 { key = 'field2', width = 6 },
10231 },
10232 values = {
10233 field1 = 'test',
10234 field2 = '42',
10235 }
10236 }
10237 }
10238end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/ScrollingGrid.lua 0000777 0000000 0000000 00000003605 13745134001 022707 0 ustar local class = require('opus.class')
10239local UI = require('opus.ui')
10240local Util = require('opus.util')
10241
10242UI.ScrollingGrid = class(UI.Grid)
10243UI.ScrollingGrid.defaults = {
10244 UIElement = 'ScrollingGrid',
10245 scrollOffset = 0,
10246 marginRight = 1,
10247}
10248function UI.ScrollingGrid:postInit()
10249 self.scrollBar = UI.ScrollBar()
10250end
10251
10252function UI.ScrollingGrid:drawRows()
10253 UI.Grid.drawRows(self)
10254 self.scrollBar:draw()
10255end
10256
10257function UI.ScrollingGrid:getViewArea()
10258 local y = 1
10259 if not self.disableHeader then
10260 y = y + self.headerHeight
10261 end
10262
10263 return {
10264 static = true, -- the container doesn't scroll
10265 y = y, -- scrollbar Y
10266 height = self.pageSize, -- viewable height
10267 totalHeight = Util.size(self.values), -- total height
10268 offsetY = self.scrollOffset, -- scroll offset
10269 fill = not self.disableHeader and self.headerBackgroundColor,
10270 }
10271end
10272
10273function UI.ScrollingGrid:getStartRow()
10274 local ts = Util.size(self.values)
10275 if ts < self.pageSize then
10276 self.scrollOffset = 0
10277 end
10278 return self.scrollOffset + 1
10279end
10280
10281function UI.ScrollingGrid:setIndex(index)
10282 if index < self.scrollOffset + 1 then
10283 self.scrollOffset = index - 1
10284 elseif index - self.scrollOffset > self.pageSize then
10285 self.scrollOffset = index - self.pageSize
10286 end
10287
10288 if self.scrollOffset < 0 then
10289 self.scrollOffset = 0
10290 else
10291 local ts = Util.size(self.values)
10292 if self.pageSize + self.scrollOffset + 1 > ts then
10293 self.scrollOffset = math.max(0, ts - self.pageSize)
10294 end
10295 end
10296 UI.Grid.setIndex(self, index)
10297end
10298
10299function UI.ScrollingGrid.example()
10300 local values = { }
10301 for i = 1, 20 do
10302 table.insert(values, { key = 'key' .. i, value = 'value' .. i })
10303 end
10304 return UI.ScrollingGrid {
10305 values = values,
10306 sortColumn = 'key',
10307 columns = {
10308 { heading = 'key', key = 'key' },
10309 { heading = 'value', key = 'value' },
10310 },
10311 accelerators = {
10312 grid_select = 'custom_select',
10313 }
10314 }
10315end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/Question.lua 0000777 0000000 0000000 00000001157 13745134001 021754 0 ustar local class = require('opus.class')
10316local UI = require('opus.ui')
10317
10318UI.Question = class(UI.MiniSlideOut)
10319UI.Question.defaults = {
10320 UIElement = 'Question',
10321 accelerators = {
10322 y = 'question_yes',
10323 n = 'question_no',
10324 }
10325}
10326function UI.Question:postInit()
10327 local x = self.label and #self.label + 3 or 1
10328
10329 self.yes_button = UI.Button {
10330 x = x,
10331 text = 'Yes',
10332 backgroundColor = 'primary',
10333 event = 'question_yes',
10334 }
10335 self.no_button = UI.Button {
10336 x = x + 5,
10337 text = 'No',
10338 backgroundColor = 'primary',
10339 event = 'question_no',
10340 }
10341end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/Page.lua 0000777 0000000 0000000 00000005756 13745134001 021032 0 ustar local class = require('opus.class')
10342local UI = require('opus.ui')
10343local Util = require('opus.util')
10344
10345UI.Page = class(UI.Window)
10346UI.Page.defaults = {
10347 UIElement = 'Page',
10348 accelerators = {
10349 down = 'focus_next',
10350 scroll_down = 'focus_next',
10351 enter = 'focus_next',
10352 tab = 'focus_next',
10353 ['shift-tab' ] = 'focus_prev',
10354 up = 'focus_prev',
10355 scroll_up = 'focus_prev',
10356 },
10357 backgroundColor = 'primary',
10358 textColor = 'white',
10359}
10360function UI.Page:postInit()
10361 self.parent = self.parent or UI.term
10362 self.__target = self
10363end
10364
10365function UI.Page:sync()
10366 if self.enabled then
10367 self:checkFocus()
10368 self.parent:setCursorBlink(self.focused and self.focused.cursorBlink)
10369 self.parent:sync()
10370 end
10371end
10372
10373function UI.Page:capture(child)
10374 self.__target = child
10375end
10376
10377function UI.Page:release(child)
10378 if self.__target == child then
10379 self.__target = self
10380 end
10381end
10382
10383function UI.Page:pointToChild(x, y)
10384 if self.__target == self then
10385 return UI.Window.pointToChild(self, x, y)
10386 end
10387
10388 local function getPosition(element)
10389 local x, y = 1, 1
10390 repeat
10391 x = element.x + x - 1
10392 y = element.y + y - 1
10393 element = element.parent
10394 until not element
10395 return x, y
10396 end
10397
10398 local absX, absY = getPosition(self.__target)
10399 return self.__target:pointToChild(x - absX + self.__target.x, y - absY + self.__target.y)
10400end
10401
10402function UI.Page:getFocusables()
10403 if self.__target == self or not self.__target.modal then
10404 return UI.Window.getFocusables(self)
10405 end
10406 return self.__target:getFocusables()
10407end
10408
10409function UI.Page:getFocused()
10410 return self.focused
10411end
10412
10413function UI.Page:focusPrevious()
10414 local function getPreviousFocus(focused)
10415 local focusables = self:getFocusables()
10416 local k = Util.contains(focusables, focused)
10417 if k then
10418 if k > 1 then
10419 return focusables[k - 1]
10420 end
10421 return focusables[#focusables]
10422 end
10423 end
10424
10425 local focused = getPreviousFocus(self.focused)
10426 if focused then
10427 self:setFocus(focused)
10428 end
10429end
10430
10431function UI.Page:focusNext()
10432 local function getNextFocus(focused)
10433 local focusables = self:getFocusables()
10434 local k = Util.contains(focusables, focused)
10435 if k then
10436 if k < #focusables then
10437 return focusables[k + 1]
10438 end
10439 return focusables[1]
10440 end
10441 end
10442
10443 local focused = getNextFocus(self.focused)
10444 if focused then
10445 self:setFocus(focused)
10446 end
10447end
10448
10449function UI.Page:setFocus(child)
10450 if not child or not child.focus then
10451 return
10452 end
10453
10454 if self.focused and self.focused ~= child then
10455 self.focused.focused = false
10456 self.focused:focus()
10457 self.focused:emit({ type = 'focus_lost', focused = child, unfocused = self.focused })
10458 end
10459
10460 self.focused = child
10461 if not child.focused then
10462 child.focused = true
10463 child:emit({ type = 'focus_change', focused = child })
10464 end
10465
10466 child:focus()
10467end
10468
10469function UI.Page:checkFocus()
10470 if not self.focused or not self.focused.enabled then
10471 self.__target:focusFirst()
10472 end
10473end
10474
10475function UI.Page:eventHandler(event)
10476 if self.focused then
10477 if event.type == 'focus_next' then
10478 self:focusNext()
10479 return true
10480 elseif event.type == 'focus_prev' then
10481 self:focusPrevious()
10482 return true
10483 end
10484 end
10485end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/DropMenuItem.lua 0000777 0000000 0000000 00000000733 13745134001 022514 0 ustar local class = require('opus.class')
10486local UI = require('opus.ui')
10487
10488UI.DropMenuItem = class(UI.Button)
10489UI.DropMenuItem.defaults = {
10490 UIElement = 'DropMenuItem',
10491 textColor = 'black',
10492 backgroundColor = 'white',
10493 textFocusColor = 'white',
10494 textInactiveColor = 'lightGray',
10495 backgroundFocusColor = 'lightGray',
10496}
10497function UI.DropMenuItem:eventHandler(event)
10498 if event.type == 'button_activate' then
10499 self.parent:disable()
10500 end
10501 return UI.Button.eventHandler(self, event)
10502end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/TextArea.lua 0000777 0000000 0000000 00000001730 13745134001 021657 0 ustar local class = require('opus.class')
10503local UI = require('opus.ui')
10504
10505UI.TextArea = class(UI.Viewport)
10506UI.TextArea.defaults = {
10507 UIElement = 'TextArea',
10508 marginRight = 2,
10509 value = '',
10510 showScrollBar = true,
10511}
10512function UI.TextArea:setValue(text)
10513 self:reset()
10514 self.value = text
10515 self:draw()
10516end
10517UI.TextArea.setText = UI.TextArea.setValue -- deprecate
10518
10519function UI.TextArea.focus()
10520 -- allow keyboard scrolling
10521end
10522
10523function UI.TextArea:draw()
10524 self:clear()
10525 self:print(self.value)
10526 self:drawChildren()
10527end
10528
10529function UI.TextArea.example()
10530 local Ansi = require('opus.ansi')
10531 return UI.Window {
10532 backgroundColor = 2048,
10533 t1 = UI.TextArea {
10534 ey = 3,
10535 value = 'sample text\nabc'
10536 },
10537 t2 = UI.TextArea {
10538 y = 5,
10539 backgroundColor = 'green',
10540 value = string.format([[now %%is the %stime %sfor%s all good men to come to the aid of their country.
105411
105422 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
105433
105444
105455
105466
105477
105488]], Ansi.yellow, Ansi.onred, Ansi.reset),
10549 }
10550 }
10551end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/MiniSlideOut.lua 0000777 0000000 0000000 00000001403 13745134001 022504 0 ustar local class = require('opus.class')
10552local UI = require('opus.ui')
10553
10554UI.MiniSlideOut = class(UI.SlideOut)
10555UI.MiniSlideOut.defaults = {
10556 UIElement = 'MiniSlideOut',
10557 noFill = true,
10558 backgroundColor = 'primary',
10559 height = 1,
10560}
10561function UI.MiniSlideOut:postInit()
10562 self.close_button = UI.Button {
10563 x = -1,
10564 backgroundColor = self.backgroundColor,
10565 backgroundFocusColor = self.backgroundColor,
10566 text = 'x',
10567 event = 'slide_hide',
10568 noPadding = true,
10569 }
10570 if self.label then
10571 self.label_text = UI.Text {
10572 x = 2,
10573 value = self.label,
10574 }
10575 end
10576end
10577
10578function UI.MiniSlideOut:show(...)
10579 UI.SlideOut.show(self, ...)
10580 self:addTransition('slideLeft', { easing = 'outBounce' })
10581end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/Form.lua 0000777 0000000 0000000 00000006462 13745134001 021054 0 ustar local class = require('opus.class')
10582local Sound = require('opus.sound')
10583local UI = require('opus.ui')
10584
10585UI.Form = class(UI.Window)
10586UI.Form.defaults = {
10587 UIElement = 'Form',
10588 values = { },
10589 margin = 2,
10590 event = 'form_complete',
10591 cancelEvent = 'form_cancel',
10592}
10593function UI.Form:postInit()
10594 self:createForm()
10595end
10596
10597function UI.Form:reset()
10598 for _,child in pairs(self.children) do
10599 if child.reset then
10600 child:reset()
10601 end
10602 end
10603end
10604
10605function UI.Form:setValues(values)
10606 self:reset()
10607 self.values = values
10608 for _,child in pairs(self.children) do
10609 if child.formKey then
10610 if child.setValue then
10611 child:setValue(self.values[child.formKey])
10612 else
10613 child.value = self.values[child.formKey]
10614 end
10615 end
10616 end
10617end
10618
10619function UI.Form:createForm()
10620 self.children = self.children or { }
10621
10622 if not self.labelWidth then
10623 self.labelWidth = 1
10624 for _, child in pairs(self) do
10625 if type(child) == 'table' and child.UIElement then
10626 if child.formLabel then
10627 self.labelWidth = math.max(self.labelWidth, #child.formLabel + 2)
10628 end
10629 end
10630 end
10631 end
10632
10633 local y = self.margin
10634 for _, child in pairs(self) do
10635 if type(child) == 'table' and child.UIElement then
10636 if child.formKey then
10637 child.value = self.values[child.formKey]
10638 end
10639 if child.formLabel then
10640 child.x = self.labelWidth + self.margin - 1
10641 child.y = child.formIndex and (child.formIndex + self.margin - 1) or y
10642 if not child.width and not child.ex then
10643 child.ex = -self.margin
10644 end
10645
10646 table.insert(self.children, UI.Text {
10647 x = self.margin,
10648 y = child.y,
10649 textColor = 'black',
10650 width = #child.formLabel,
10651 value = child.formLabel,
10652 })
10653 end
10654 if child.formLabel then
10655 y = y + 1
10656 end
10657 end
10658 end
10659
10660 if not self.manualControls then
10661 table.insert(self.children, UI.Button {
10662 y = -self.margin, x = -12 - self.margin,
10663 text = 'Ok',
10664 event = 'form_ok',
10665 })
10666 table.insert(self.children, UI.Button {
10667 y = -self.margin, x = -7 - self.margin,
10668 text = 'Cancel',
10669 event = self.cancelEvent,
10670 })
10671 end
10672end
10673
10674function UI.Form:validateField(field)
10675 if field.required then
10676 if not field.value or #tostring(field.value) == 0 then
10677 return false, 'Field is required'
10678 end
10679 end
10680 return true
10681end
10682
10683function UI.Form:save()
10684 for _,child in pairs(self.children) do
10685 if child.formKey then
10686 local s, m = self:validateField(child)
10687 if not s then
10688 self:setFocus(child)
10689 Sound.play('entity.villager.no', .5)
10690 self:emit({ type = 'form_invalid', message = m, field = child })
10691 return false
10692 end
10693 end
10694 end
10695 for _,child in pairs(self.children) do
10696 if child.formKey then
10697 self.values[child.formKey] = child.value
10698 end
10699 end
10700
10701 return true
10702end
10703
10704function UI.Form:eventHandler(event)
10705 if event.type == 'form_ok' then
10706 if not self:save() then
10707 return false
10708 end
10709 self:emit({ type = self.event, UIElement = self, values = self.values })
10710 else
10711 return UI.Window.eventHandler(self, event)
10712 end
10713 return true
10714end
10715
10716function UI.Form.example()
10717 return UI.Form {
10718 x = 2, ex = -2, y = 2,
10719 ptype = UI.Chooser {
10720 formLabel = 'Type', formKey = 'type', formIndex = 1,
10721 width = 10,
10722 choices = {
10723 { name = 'Modem', value = 'wireless_modem' },
10724 { name = 'Drive', value = 'disk_drive' },
10725 },
10726 },
10727 drive_id = UI.TextEntry {
10728 formLabel = 'Drive', formKey = 'drive_id', formIndex = 2,
10729 required = true,
10730 width = 5,
10731 transform = 'number',
10732 },
10733 }
10734end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/Menu.lua 0000777 0000000 0000000 00000003050 13745134001 021043 0 ustar local class = require('opus.class')
10735local UI = require('opus.ui')
10736
10737UI.Menu = class(UI.Grid)
10738UI.Menu.defaults = {
10739 UIElement = 'Menu',
10740 disableHeader = true,
10741 columns = { { heading = 'Prompt', key = 'prompt', width = 20 } },
10742 menuItems = { },
10743}
10744function UI.Menu:postInit()
10745 self.values = self.menuItems
10746 self.pageSize = #self.menuItems
10747end
10748
10749function UI.Menu:layout()
10750 self.itemWidth = 1
10751 for _,v in pairs(self.values) do
10752 if #v.prompt > self.itemWidth then
10753 self.itemWidth = #v.prompt
10754 end
10755 end
10756 self.columns[1].width = self.itemWidth
10757
10758 if self.centered then
10759 self:center()
10760 else
10761 self.width = self.itemWidth + 2
10762 end
10763 UI.Grid.layout(self)
10764end
10765
10766function UI.Menu:center()
10767 self.x = (self.width - self.itemWidth + 2) / 2
10768 self.width = self.itemWidth + 2
10769end
10770
10771function UI.Menu:eventHandler(event)
10772 if event.type == 'key' then
10773 if event.key == 'enter' then
10774 local selected = self.menuItems[self.index]
10775 self:emit({
10776 type = selected.event or 'menu_select',
10777 selected = selected
10778 })
10779 return true
10780 end
10781 elseif event.type == 'mouse_click' then
10782 if event.y <= #self.menuItems then
10783 UI.Grid.setIndex(self, event.y)
10784 local selected = self.menuItems[self.index]
10785 self:emit({
10786 type = selected.event or 'menu_select',
10787 selected = selected
10788 })
10789 return true
10790 end
10791 end
10792 return UI.Grid.eventHandler(self, event)
10793end
10794
10795function UI.Menu.example()
10796 return UI.Menu {
10797 x = 2, y = 2, height = 3,
10798 menuItems = {
10799 { prompt = 'Start', event = 'start' },
10800 { prompt = 'Continue', event = 'continue' },
10801 { prompt = 'Quit', event = 'quit' }
10802 }
10803 }
10804end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/Checkbox.lua 0000777 0000000 0000000 00000003232 13745134001 021667 0 ustar local class = require('opus.class')
10805local UI = require('opus.ui')
10806
10807UI.Checkbox = class(UI.Window)
10808UI.Checkbox.defaults = {
10809 UIElement = 'Checkbox',
10810 nochoice = 'Select',
10811 checkedIndicator = UI.extChars and '\4' or 'X',
10812 leftMarker = UI.extChars and '\124' or '[',
10813 rightMarker = UI.extChars and '\124' or ']',
10814 value = false,
10815 textColor = 'white',
10816 backgroundColor = 'black',
10817 backgroundFocusColor = 'lightGray',
10818 event = 'checkbox_change',
10819 height = 1,
10820 width = 3,
10821 accelerators = {
10822 [ ' ' ] = 'checkbox_toggle',
10823 mouse_click = 'checkbox_toggle',
10824 }
10825}
10826function UI.Checkbox:layout()
10827 self.width = self.label and #self.label + 4 or 3
10828 UI.Window.layout(self)
10829end
10830
10831function UI.Checkbox:draw()
10832 local bg = self.focused and self.backgroundFocusColor or self.backgroundColor
10833 local x = 1
10834 if self.label then
10835 self:write(1, 1, self.label, self.labelBackgroundColor)
10836 x = #self.label + 2
10837 end
10838 self:write(x, 1, self.leftMarker, self.backgroundColor, self.textColor)
10839 self:write(x + 1, 1, not self.value and ' ' or self.checkedIndicator, bg)
10840 self:write(x + 2, 1, self.rightMarker, self.backgroundColor, self.textColor)
10841end
10842
10843function UI.Checkbox:focus()
10844 self:draw()
10845end
10846
10847function UI.Checkbox:setValue(v)
10848 self.value = not not v
10849end
10850
10851function UI.Checkbox:reset()
10852 self.value = false
10853 self:draw()
10854end
10855
10856function UI.Checkbox:eventHandler(event)
10857 if event.type == 'checkbox_toggle' then
10858 self.value = not self.value
10859 self:emit({ type = self.event, checked = self.value, element = self })
10860 self:draw()
10861 return true
10862 end
10863end
10864
10865function UI.Checkbox.example()
10866 return UI.Window {
10867 ex1 = UI.Checkbox {
10868 label = 'test',
10869 x = 2, y = 2,
10870 },
10871 ex2 = UI.Checkbox {
10872 x = 2, y = 4,
10873 },
10874 }
10875end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/FlatButton.lua 0000777 0000000 0000000 00000000632 13745134001 022224 0 ustar local class = require('opus.class')
10876local UI = require('opus.ui')
10877
10878UI.FlatButton = class(UI.Button)
10879UI.FlatButton.defaults = {
10880 UIElement = 'FlatButton',
10881 textColor = 'black',
10882 textFocusColor = 'white',
10883 noPadding = true,
10884}
10885function UI.FlatButton:setParent()
10886 self.backgroundColor = self.parent:getProperty('backgroundColor')
10887 self.backgroundFocusColor = self.backgroundColor
10888
10889 UI.Button.setParent(self)
10890end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/Notification.lua 0000777 0000000 0000000 00000004662 13745134001 022577 0 ustar local class = require('opus.class')
10891local Event = require('opus.event')
10892local Sound = require('opus.sound')
10893local UI = require('opus.ui')
10894local Util = require('opus.util')
10895
10896UI.Notification = class(UI.Window)
10897UI.Notification.defaults = {
10898 UIElement = 'Notification',
10899 backgroundColor = 'gray',
10900 closeInd = UI.extChars and '\215' or '*',
10901 height = 3,
10902 timeout = 3,
10903 anchor = 'bottom',
10904}
10905function UI.Notification.draw()
10906end
10907
10908function UI.Notification.enable()
10909end
10910
10911function UI.Notification:error(value, timeout)
10912 self.backgroundColor = 'red'
10913 Sound.play('entity.villager.no', .5)
10914 self:display(value, timeout)
10915end
10916
10917function UI.Notification:info(value, timeout)
10918 self.backgroundColor = 'lightGray'
10919 self:display(value, timeout)
10920end
10921
10922function UI.Notification:success(value, timeout)
10923 self.backgroundColor = 'green'
10924 self:display(value, timeout)
10925end
10926
10927function UI.Notification:cancel()
10928 if self.timer then
10929 Event.off(self.timer)
10930 self.timer = nil
10931 end
10932
10933 self:disable()
10934end
10935
10936function UI.Notification:display(value, timeout)
10937 local lines = Util.wordWrap(value, self.width - 3)
10938
10939 self.enabled = true
10940 self.height = #lines
10941
10942 if self.anchor == 'bottom' then
10943 self.y = self.parent.height - self.height + 1
10944 self:addTransition('expandUp', { ticks = self.height })
10945 else
10946 self.y = 1
10947 end
10948
10949 self:reposition(self.x, self.y, self.width, self.height)
10950 self:raise()
10951 self:clear()
10952 for k,v in pairs(lines) do
10953 self:write(2, k, v)
10954 end
10955 self:write(self.width, 1, self.closeInd)
10956
10957 if self.timer then
10958 Event.off(self.timer)
10959 self.timer = nil
10960 end
10961
10962 timeout = timeout or self.timeout
10963 if timeout > 0 then
10964 self.timer = Event.onTimeout(timeout, function()
10965 self:cancel()
10966 self:sync()
10967 end)
10968 else
10969 self:sync()
10970 end
10971end
10972
10973function UI.Notification:eventHandler(event)
10974 if event.type == 'mouse_click' then
10975 if event.x == self.width then
10976 self:cancel()
10977 return true
10978 end
10979 end
10980end
10981
10982function UI.Notification.example()
10983 return UI.Window {
10984 notify1 = UI.Notification {
10985 anchor = 'top',
10986 },
10987 notify2 = UI.Notification { },
10988 button1 = UI.Button {
10989 x = 2, y = 3,
10990 text = 'example 1',
10991 event = 'test_success',
10992 },
10993 button2 = UI.Button {
10994 x = 2, y = 5,
10995 text = 'example 2',
10996 event = 'test_error',
10997 },
10998 eventHandler = function (self, event)
10999 if event.type == 'test_success' then
11000 self.notify1:success('Example text')
11001 elseif event.type == 'test_error' then
11002 self.notify2:error([[Example text test test
11003test test test test test
11004test test test]], 0)
11005 end
11006 end,
11007 }
11008end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/Text.lua 0000777 0000000 0000000 00000000663 13745134001 021072 0 ustar local class = require('opus.class')
11009local UI = require('opus.ui')
11010local Util = require('opus.util')
11011
11012UI.Text = class(UI.Window)
11013UI.Text.defaults = {
11014 UIElement = 'Text',
11015 value = '',
11016 height = 1,
11017}
11018function UI.Text:layout()
11019 if not self.width and not self.ex then
11020 self.width = #tostring(self.value)
11021 end
11022 UI.Window.layout(self)
11023end
11024
11025function UI.Text:draw()
11026 self:write(1, 1, Util.widthify(self.value, self.width, self.align))
11027end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/Slider.lua 0000777 0000000 0000000 00000005512 13745134001 021366 0 ustar local class = require('opus.class')
11028local UI = require('opus.ui')
11029local Util = require('opus.util')
11030
11031UI.Slider = class(UI.Window)
11032UI.Slider.defaults = {
11033 UIElement = 'Slider',
11034 height = 1,
11035 barChar = UI.extChars and '\140' or '-',
11036 barColor = 'gray',
11037 sliderChar = UI.extChars and '\143' or '\124',
11038 sliderColor = 'blue',
11039 sliderFocusColor = 'lightBlue',
11040 leftBorder = UI.extChars and '\141' or '\124',
11041 rightBorder = UI.extChars and '\142' or '\124',
11042 labelWidth = 0,
11043 value = 0,
11044 min = 0,
11045 max = 100,
11046 event = 'slider_update',
11047 transform = function(v) return Util.round(v, 2) end,
11048 accelerators = {
11049 right = 'slide_right',
11050 left = 'slide_left',
11051 }
11052}
11053function UI.Slider:setValue(value)
11054 self.value = self.transform(tonumber(value) or self.min)
11055 self.value = Util.clamp(self.value, self.min, self.max)
11056 self:draw()
11057end
11058
11059function UI.Slider:reset() -- form support
11060 self.value = self.min
11061 self:draw()
11062end
11063
11064function UI.Slider:focus()
11065 self:draw()
11066end
11067
11068function UI.Slider:getSliderWidth()
11069 local labelWidth = self.labelWidth > 0 and self.labelWidth + 1
11070 return self.width - (labelWidth or 0)
11071end
11072
11073function UI.Slider:draw()
11074 local labelWidth = self.labelWidth > 0 and self.labelWidth + 1
11075 local width = self.width - (labelWidth or 0)
11076 local range = self.max - self.min
11077 local perc = (self.value - self.min) / range
11078 local progress = Util.clamp(1 + width * perc, 1, width)
11079
11080 local bar = self.leftBorder .. string.rep(self.barChar, width - 2) .. self.rightBorder
11081 self:write(1, 1, bar, nil, self.barColor)
11082 self:write(progress, 1, self.sliderChar, nil, self.focused and self.sliderFocusColor or self.sliderColor)
11083 if labelWidth then
11084 self:write(self.width - labelWidth + 2, 1, Util.widthify(tostring(self.value), self.labelWidth))
11085 end
11086end
11087
11088function UI.Slider:eventHandler(event)
11089 if event.type == "mouse_down" or event.type == "mouse_drag" then
11090 local pos = event.x - 1
11091 if event.type == 'mouse_down' then
11092 self.anchor = event.x - 1
11093 else
11094 pos = self.anchor + event.dx
11095 end
11096 local range = self.max - self.min
11097 local i = pos / (self:getSliderWidth() - 1)
11098 self:setValue(self.min + (i * range))
11099 self:emit({ type = self.event, value = self.value, element = self })
11100 return true
11101
11102 elseif event.type == 'slide_left' or event.type == 'slide_right' then
11103 local range = self.max - self.min
11104 local step = range / (self:getSliderWidth() - 1)
11105 if event.type == 'slide_left' then
11106 self:setValue(self.value - step)
11107 else
11108 self:setValue(self.value + step)
11109 end
11110 self:emit({ type = self.event, value = self.value, element = self })
11111 return true
11112 end
11113end
11114
11115function UI.Slider.example()
11116 return UI.Window {
11117 UI.Slider {
11118 y = 2, x = 2, ex = -2,
11119 min = 0, max = 1,
11120 },
11121 UI.Slider {
11122 y = 4, x = 2, ex = -2,
11123 min = -1, max = 1,
11124 labelWidth = 5,
11125 },
11126 UI.Slider {
11127 y = 6, x = 2, ex = -2,
11128 min = 0, max = 100,
11129 labelWidth = 3,
11130 transform = math.floor,
11131 },
11132 }
11133end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/Tab.lua 0000777 0000000 0000000 00000000710 13745134001 020645 0 ustar local class = require('opus.class')
11134local UI = require('opus.ui')
11135
11136UI.Tab = class(UI.Window)
11137UI.Tab.defaults = {
11138 UIElement = 'Tab',
11139 title = 'tab',
11140 y = 2,
11141}
11142
11143function UI.Tab:draw()
11144 if not self.noFill then
11145 self:fillArea(1, 1, self.width, self.height, string.rep('\127', self.width), colors.black, colors.gray)
11146 end
11147 self:drawChildren()
11148end
11149
11150function UI.Tab:enable()
11151 UI.Window.enable(self)
11152 self:emit({ type = 'tab_activate', activated = self })
11153end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/NftImage.lua 0000777 0000000 0000000 00000001507 13745134001 021636 0 ustar local class = require('opus.class')
11154local UI = require('opus.ui')
11155
11156UI.NftImage = class(UI.Window)
11157UI.NftImage.defaults = {
11158 UIElement = 'NftImage',
11159}
11160function UI.NftImage:postInit()
11161 if self.image and not (self.ey or self.height) then
11162 self.height = self.image.height
11163 end
11164 if self.image and not (self.ex or self.width) then
11165 self.width = self.image.width
11166 end
11167end
11168
11169function UI.NftImage:draw()
11170 self:clear()
11171
11172 if self.image then
11173 -- due to blittle, the background and foreground transparent
11174 -- color is the same as the background color
11175 local bg = self:getProperty('backgroundColor')
11176 for y = 1, self.image.height do
11177 for x = 1, #self.image.text[y] do
11178 self:write(x, y, self.image.text[y][x], self.image.bg[y][x], self.image.fg[y][x] or bg)
11179 end
11180 end
11181 end
11182end
11183
11184function UI.NftImage:setImage(image)
11185 self.image = image
11186end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/DropMenu.lua 0000777 0000000 0000000 00000004661 13745134001 021701 0 ustar local class = require('opus.class')
11187local UI = require('opus.ui')
11188local Util = require('opus.util')
11189
11190UI.DropMenu = class(UI.MenuBar)
11191UI.DropMenu.defaults = {
11192 UIElement = 'DropMenu',
11193 backgroundColor = 'white',
11194 buttonClass = 'DropMenuItem',
11195}
11196function UI.DropMenu:layout()
11197 UI.MenuBar.layout(self)
11198
11199 local maxWidth = 1
11200 for y,child in ipairs(self.children) do
11201 child.x = 1
11202 child.y = y
11203 if #(child.text or '') > maxWidth then
11204 maxWidth = #child.text
11205 end
11206 end
11207 for _,child in ipairs(self.children) do
11208 child.width = maxWidth + 2
11209 if child.spacer then
11210 child.inactive = true
11211 child.text = string.rep('-', child.width - 2)
11212 end
11213 end
11214
11215 self.height = #self.children + 1
11216 self.width = maxWidth + 2
11217
11218 if self.x + self.width > self.parent.width then
11219 self.x = self.parent.width - self.width + 1
11220 end
11221
11222 self:reposition(self.x, self.y, self.width, self.height)
11223end
11224
11225function UI.DropMenu:enable()
11226 local menuBar = self.parent:find(self.menuUid)
11227 local hasActive
11228
11229 for _,c in pairs(self.children) do
11230 if not c.spacer and menuBar then
11231 c.inactive = not menuBar:getActive(c)
11232 end
11233 if not c.inactive then
11234 hasActive = true
11235 end
11236 end
11237
11238 -- jump through a lot of hoops if all selections are inactive
11239 -- there's gotta be a better way
11240 -- lots of exception code just to handle drop menus
11241 self.focus = not hasActive and function() end
11242
11243 UI.Window.enable(self)
11244 if self.focus then
11245 self:setFocus(self)
11246 else
11247 self:focusFirst()
11248 end
11249 self:draw()
11250end
11251
11252function UI.DropMenu:disable()
11253 UI.Window.disable(self)
11254 self:remove()
11255end
11256
11257function UI.DropMenu:eventHandler(event)
11258 if event.type == 'focus_lost' and self.enabled then
11259 if not (Util.contains(self.children, event.focused) or event.focused == self) then
11260 self:disable()
11261 end
11262 elseif event.type == 'mouse_out' and self.enabled then
11263 self:disable()
11264 self:setFocus(self.parent:find(self.lastFocus))
11265 else
11266 return UI.MenuBar.eventHandler(self, event)
11267 end
11268 return true
11269end
11270
11271function UI.DropMenu.example()
11272 return UI.MenuBar {
11273 buttons = {
11274 { text = 'File', dropdown = {
11275 { text = 'Run', event = 'run' },
11276 { text = 'Shell s', event = 'shell' },
11277 { spacer = true },
11278 { text = 'Quit ^q', event = 'quit' },
11279 } },
11280 { text = 'Edit', dropdown = {
11281 { text = 'Copy', event = 'run' },
11282 { text = 'Paste s', event = 'shell' },
11283 } },
11284 { text = '\187',
11285 x = -3,
11286 dropdown = {
11287 { text = 'Associations', event = 'associate' },
11288 } },
11289 }
11290 }
11291end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/Image.lua 0000777 0000000 0000000 00000002065 13745134001 021166 0 ustar local class = require('opus.class')
11292local UI = require('opus.ui')
11293local Util = require('opus.util')
11294
11295local lookup = '0123456789abcdef'
11296
11297-- handle files produced by Paint
11298UI.Image = class(UI.Window)
11299UI.Image.defaults = {
11300 UIElement = 'Image',
11301 event = 'button_press',
11302}
11303function UI.Image:postInit()
11304 if self.filename then
11305 self.image = Util.readLines(self.filename)
11306 end
11307
11308 if self.image and not (self.height or self.ey) then
11309 self.height = #self.image
11310 end
11311 if self.image and not (self.width or self.ex) then
11312 for i = 1, self.height do
11313 self.width = math.max(self.width or 0, #self.image[i])
11314 end
11315 end
11316end
11317
11318function UI.Image:draw()
11319 self:clear()
11320 if self.image then
11321 for y = 1, #self.image do
11322 local line = self.image[y]
11323 for x = 1, #line do
11324 local ch = lookup:find(line:sub(x, x))
11325 if ch then
11326 self:write(x, y, ' ', 2 ^ (ch - 1))
11327 end
11328 end
11329 end
11330 end
11331 self:drawChildren()
11332end
11333
11334function UI.Image:setImage(image)
11335 self.image = image
11336end
11337
11338function UI.Image.example()
11339 return UI.Image {
11340 backgroundColor = 'primary',
11341 filename = 'test.paint',
11342 }
11343end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/Dialog.lua 0000777 0000000 0000000 00000002040 13745134001 021334 0 ustar local class = require('opus.class')
11344local UI = require('opus.ui')
11345
11346UI.Dialog = class(UI.SlideOut)
11347UI.Dialog.defaults = {
11348 UIElement = 'Dialog',
11349 height = 7,
11350 noFill = true,
11351 okEvent ='dialog_ok',
11352 cancelEvent = 'dialog_cancel',
11353}
11354function UI.Dialog:postInit()
11355 self.y = -self.height
11356 self.titleBar = UI.TitleBar({ event = self.cancelEvent, title = self.title })
11357end
11358
11359function UI.Dialog:eventHandler(event)
11360 if event.type == 'dialog_cancel' then
11361 self:hide()
11362 end
11363 return UI.SlideOut.eventHandler(self, event)
11364end
11365
11366function UI.Dialog.example()
11367 return UI.Dialog {
11368 title = 'Enter Starting Level',
11369 height = 7,
11370 form = UI.Form {
11371 y = 3, x = 2, height = 4,
11372 event = 'setStartLevel',
11373 cancelEvent = 'slide_hide',
11374 text = UI.Text {
11375 x = 5, y = 1, width = 20,
11376 textColor = 'gray',
11377 },
11378 textEntry = UI.TextEntry {
11379 formKey = 'level',
11380 x = 15, y = 1, width = 7,
11381 },
11382 },
11383 statusBar = UI.StatusBar(),
11384 enable = function(self)
11385 require('opus.event').onTimeout(0, function()
11386 self:show()
11387 self:sync()
11388 end)
11389 end,
11390 }
11391end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/VerticalMeter.lua 0000777 0000000 0000000 00000001430 13745134001 022705 0 ustar local class = require('opus.class')
11392local UI = require('opus.ui')
11393
11394UI.VerticalMeter = class(UI.Window)
11395UI.VerticalMeter.defaults = {
11396 UIElement = 'VerticalMeter',
11397 backgroundColor = 'gray',
11398 meterColor = 'lime',
11399 width = 1,
11400 value = 0,
11401}
11402function UI.VerticalMeter:draw()
11403 local height = self.height - math.ceil(self.value / 100 * self.height)
11404 self:clear()
11405 self:clearArea(1, height + 1, self.width, self.height, self.meterColor)
11406end
11407
11408function UI.VerticalMeter.example()
11409 return UI.VerticalMeter {
11410 x = 2, width = 3, y = 2, ey = -2,
11411 focus = function() end,
11412 enable = function(self)
11413 require('opus.event').onInterval(.25, function()
11414 self.value = self.value == 100 and 0 or self.value + 5
11415 self:draw()
11416 self:sync()
11417 end)
11418 return UI.VerticalMeter.enable(self)
11419 end
11420 }
11421end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/ProgressBar.lua 0000777 0000000 0000000 00000001706 13745134001 022376 0 ustar local class = require('opus.class')
11422local UI = require('opus.ui')
11423
11424UI.ProgressBar = class(UI.Window)
11425UI.ProgressBar.defaults = {
11426 UIElement = 'ProgressBar',
11427 backgroundColor = 'gray',
11428 height = 1,
11429 progressColor = 'lime',
11430 progressChar = UI.extChars and '\153' or ' ',
11431 fillChar = ' ',
11432 fillColor = 'gray',
11433 textColor = 'green',
11434 value = 0,
11435}
11436function UI.ProgressBar:draw()
11437 local width = math.ceil(self.value / 100 * self.width)
11438
11439 self:fillArea(width + 1, 1, self.width - width, self.height, self.fillChar, nil, self.fillColor)
11440 self:fillArea(1, 1, width, self.height, self.progressChar, self.progressColor)
11441end
11442
11443function UI.ProgressBar.example()
11444 return UI.ProgressBar {
11445 x = 2, ex = -2, y = 2, height = 2,
11446 focus = function() end,
11447 enable = function(self)
11448 require('opus.event').onInterval(.25, function()
11449 self.value = self.value == 100 and 0 or self.value + 5
11450 self:draw()
11451 self:sync()
11452 end)
11453 return UI.ProgressBar.enable(self)
11454 end
11455 }
11456end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/WizardPage.lua 0000777 0000000 0000000 00000000333 13745134001 022175 0 ustar local class = require('opus.class')
11457local UI = require('opus.ui')
11458
11459UI.WizardPage = class(UI.Window)
11460UI.WizardPage.defaults = {
11461 UIElement = 'WizardPage',
11462 ey = -2,
11463}
11464function UI.WizardPage.validate()
11465 return true
11466end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/Viewport.lua 0000777 0000000 0000000 00000005602 13745134001 021763 0 ustar local class = require('opus.class')
11467local UI = require('opus.ui')
11468
11469UI.Viewport = class(UI.Window)
11470UI.Viewport.defaults = {
11471 UIElement = 'Viewport',
11472 accelerators = {
11473 down = 'scroll_down',
11474 up = 'scroll_up',
11475 home = 'scroll_top',
11476 left = 'scroll_left',
11477 right = 'scroll_right',
11478 [ 'end' ] = 'scroll_bottom',
11479 pageUp = 'scroll_pageUp',
11480 [ 'control-b' ] = 'scroll_pageUp',
11481 pageDown = 'scroll_pageDown',
11482 [ 'control-f' ] = 'scroll_pageDown',
11483 },
11484}
11485function UI.Viewport:postInit()
11486 if self.showScrollBar then
11487 self.scrollBar = UI.ScrollBar()
11488 end
11489end
11490
11491function UI.Viewport:setScrollPosition(offy, offx) -- argh - reverse
11492 local oldOffy = self.offy
11493 self.offy = math.max(offy, 0)
11494 self.offy = math.min(self.offy, math.max(#self.lines, self.height) - self.height)
11495 if self.offy ~= oldOffy then
11496 if self.scrollBar then
11497 self.scrollBar:draw()
11498 end
11499 self.offy = offy
11500 self:dirty(true)
11501 end
11502
11503 local oldOffx = self.offx
11504 self.offx = math.max(offx or 0, 0)
11505 self.offx = math.min(self.offx, math.max(#self.lines[1], self.width) - self.width)
11506 if self.offx ~= oldOffx then
11507 if self.scrollBar then
11508 --self.scrollBar:draw()
11509 end
11510 self.offx = offx or 0
11511 self:dirty(true)
11512 end
11513end
11514
11515function UI.Viewport:blit(x, y, text, bg, fg)
11516 if y > #self.lines then
11517 self:resizeBuffer(self.width, y)
11518 end
11519 return UI.Window.blit(self, x, y, text, bg, fg)
11520end
11521
11522function UI.Viewport:write(x, y, text, bg, fg)
11523 if y > #self.lines then
11524 self:resizeBuffer(self.width, y)
11525 end
11526 return UI.Window.write(self, x, y, text, bg, fg)
11527end
11528
11529function UI.Viewport:setViewHeight(h)
11530 if h > #self.lines then
11531 self:resizeBuffer(self.width, h)
11532 end
11533end
11534
11535function UI.Viewport:reset()
11536 self.offy = 0
11537 for i = self.height + 1, #self.lines do
11538 self.lines[i] = nil
11539 end
11540end
11541
11542function UI.Viewport:getViewArea()
11543 return {
11544 y = (self.offy or 0) + 1,
11545 height = self.height,
11546 totalHeight = #self.lines,
11547 offsetY = self.offy or 0,
11548 }
11549end
11550
11551function UI.Viewport:eventHandler(event)
11552 if #self.lines <= self.height then
11553 return
11554 end
11555 if event.type == 'scroll_down' then
11556 self:setScrollPosition(self.offy + 1, self.offx)
11557 elseif event.type == 'scroll_up' then
11558 self:setScrollPosition(self.offy - 1, self.offx)
11559 elseif event.type == 'scroll_left' then
11560 self:setScrollPosition(self.offy, self.offx - 1)
11561 elseif event.type == 'scroll_right' then
11562 self:setScrollPosition(self.offy, self.offx + 1)
11563 elseif event.type == 'scroll_top' then
11564 self:setScrollPosition(0, 0)
11565 elseif event.type == 'scroll_bottom' then
11566 self:setScrollPosition(10000000, 0)
11567 elseif event.type == 'scroll_pageUp' then
11568 self:setScrollPosition(self.offy - self.height, self.offx)
11569 elseif event.type == 'scroll_pageDown' then
11570 self:setScrollPosition(self.offy + self.height, self.offx)
11571 elseif event.type == 'scroll_to' then
11572 self:setScrollPosition(event.offset, 0)
11573 else
11574 return false
11575 end
11576 return true
11577end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/Wizard.lua 0000777 0000000 0000000 00000006435 13745134001 021411 0 ustar local class = require('opus.class')
11578local UI = require('opus.ui')
11579local Util = require('opus.util')
11580
11581UI.Wizard = class(UI.Window)
11582UI.Wizard.defaults = {
11583 UIElement = 'Wizard',
11584 pages = { },
11585}
11586function UI.Wizard:postInit()
11587 self.cancelButton = UI.Button {
11588 x = 2, y = -1,
11589 text = 'Cancel',
11590 event = 'cancel',
11591 }
11592 self.previousButton = UI.Button {
11593 x = -18, y = -1,
11594 text = '\17 Back',
11595 event = 'previousView',
11596 }
11597 self.nextButton = UI.Button {
11598 x = -9, y = -1,
11599 text = 'Next \16',
11600 event = 'nextView',
11601 }
11602
11603 Util.merge(self, self.pages)
11604end
11605
11606function UI.Wizard:getPages()
11607 local t = { }
11608 for child in self:eachChild() do
11609 if type(child) == 'table' and child.UIElement == 'WizardPage' then
11610 table.insert(t, child)
11611 end
11612 end
11613 return t
11614end
11615
11616function UI.Wizard:getPage(index)
11617 local pages = self:getPages()
11618 return Util.find(pages, 'index', index)
11619end
11620
11621function UI.Wizard:enable()
11622 self.enabled = true
11623 self.index = 1
11624 for child in self:eachChild() do
11625 if child.UIElement ~= 'WizardPage' then
11626 child:enable()
11627 elseif child.enabled then
11628 child:disable()
11629 end
11630 end
11631 local initial = self:getPage(1)
11632 self:emit({ type = 'enable_view', next = initial })
11633end
11634
11635function UI.Wizard:isViewValid()
11636 local currentView = self:getPage(self.index)
11637 return currentView:validate()
11638end
11639
11640function UI.Wizard:eventHandler(event)
11641 if event.type == 'nextView' then
11642 local currentView = self:getPage(self.index)
11643 if self:isViewValid() then
11644 self.index = self.index + 1
11645 local nextView = self:getPage(self.index)
11646 currentView:emit({ type = 'enable_view', next = nextView, current = currentView })
11647 end
11648
11649 elseif event.type == 'previousView' then
11650 local currentView = self:getPage(self.index)
11651 local nextView = self:getPage(self.index - 1)
11652 if nextView then
11653 self.index = self.index - 1
11654 currentView:emit({ type = 'enable_view', prev = nextView, current = currentView })
11655 end
11656 return true
11657
11658 elseif event.type == 'wizard_complete' then
11659 if self:isViewValid() then
11660 self:emit({ type = 'accept' })
11661 end
11662
11663 elseif event.type == 'enable_view' then
11664 local current = event.next or event.prev
11665 if not current then error('property "index" is required on wizard pages') end
11666 local hint
11667
11668 if event.current then
11669 if event.next then
11670 hint = 'slideLeft'
11671 elseif event.prev then
11672 hint = 'slideRight'
11673 end
11674 event.current:disable()
11675 end
11676
11677 if self:getPage(self.index - 1) then
11678 self.previousButton:enable()
11679 else
11680 self.previousButton:disable()
11681 end
11682
11683 if self:getPage(self.index + 1) then
11684 self.nextButton.text = 'Next \16'
11685 self.nextButton.event = 'nextView'
11686 else
11687 self.nextButton.text = 'Accept'
11688 self.nextButton.event = 'wizard_complete'
11689 end
11690 -- a new current view
11691 current.transitionHint = hint
11692 current:enable()
11693 current:emit({ type = 'view_enabled', view = current })
11694 self:draw()
11695 end
11696end
11697
11698function UI.Wizard.example()
11699 return UI.Wizard {
11700 ey = -2,
11701 splash = UI.WizardPage {
11702 index = 1,
11703 intro = UI.TextArea {
11704 inactive = true,
11705 x = 3, ex = -3, y = 2, ey = -2,
11706 value = 'sample text',
11707 },
11708 },
11709 label = UI.WizardPage {
11710 index = 2,
11711 intro = UI.TextArea {
11712 inactive = true,
11713 x = 3, ex = -3, y = 2, ey = -2,
11714 value = 'sample more text',
11715 },
11716 },
11717 password = UI.WizardPage {
11718 index = 3,
11719 text = UI.TextEntry {
11720 x = 12, ex = -3, y = 2,
11721 shadowText = 'tet',
11722 },
11723 },
11724 }
11725end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/TitleBar.lua 0000777 0000000 0000000 00000005141 13745134001 021650 0 ustar local class = require('opus.class')
11726local UI = require('opus.ui')
11727
11728UI.TitleBar = class(UI.Window)
11729UI.TitleBar.defaults = {
11730 UIElement = 'TitleBar',
11731 height = 1,
11732 title = '',
11733 frameChar = UI.extChars and '\140' or '-',
11734 closeInd = UI.extChars and '\215' or '*',
11735}
11736function UI.TitleBar:draw()
11737 self:fillArea(2, 1, self.width - 2, 1, self.frameChar)
11738 self:centeredWrite(1, string.format(' %s ', self.title))
11739 if self.previousPage or self.event then
11740 self:write(self.width - 1, 1, ' ' .. self.closeInd)
11741 end
11742end
11743
11744function UI.TitleBar:eventHandler(event)
11745 if event.type == 'mouse_click' then
11746 if (self.previousPage or self.event) and event.x == self.width then
11747 if self.event then
11748 self:emit({ type = self.event, element = self })
11749 elseif type(self.previousPage) == 'string' or
11750 type(self.previousPage) == 'table' then
11751 UI:setPage(self.previousPage)
11752 else
11753 UI:setPreviousPage()
11754 end
11755 return true
11756 end
11757
11758 elseif event.type == 'mouse_down' then
11759 self.anchor = { x = event.x, y = event.y, ox = self.parent.x, oy = self.parent.y, h = self.parent.height }
11760
11761 elseif event.type == 'mouse_drag' then
11762 if self.expand == 'height' then
11763 local d = event.dy
11764 if self.anchor.h - d > 0 and self.anchor.oy + d > 0 then
11765 self.parent:reposition(self.parent.x, self.anchor.oy + event.dy, self.width, self.anchor.h - d)
11766 end
11767
11768 elseif self.moveable then
11769 local d = event.dy
11770 if self.anchor.oy + d > 0 and self.anchor.oy + d <= self.parent.parent.height then
11771 self.parent:move(self.anchor.ox + event.dx, self.anchor.oy + event.dy)
11772 end
11773 end
11774 end
11775end
11776
11777function UI.TitleBar.example()
11778 return UI.Window {
11779 win1 = UI.Window {
11780 x = 9, y = 2, ex = -7, ey = -3,
11781 backgroundColor = 'green',
11782 titleBar = UI.TitleBar {
11783 title = 'A really, really, really long title', moveable = true,
11784 },
11785 button1 = UI.Button {
11786 x = 2, y = 3,
11787 text = 'Press',
11788 },
11789 focus = function (self)
11790 self:raise()
11791 end,
11792 },
11793 win2 = UI.Window {
11794 x = 7, y = 3, ex = -9, ey = -2,
11795 backgroundColor = 'orange',
11796 titleBar = UI.TitleBar {
11797 title = 'test', moveable = true,
11798 event = 'none',
11799 },
11800 button1 = UI.Button {
11801 x = 2, y = 3,
11802 text = 'Press',
11803 },
11804 focus = UI.Window.raise,
11805 },
11806 draw = function(self, isBG)
11807 for i = 1, self.height do
11808 self:write(1, i, self.filler or '')
11809 end
11810 if not isBG then
11811 for _,v in pairs(self.children) do
11812 v:draw()
11813 end
11814 end
11815 end,
11816 enable = function (self)
11817 require('opus.event').onInterval(.5, function()
11818 self.filler = string.rep(string.char(math.random(33, 126)), self.width)
11819 self:draw(true)
11820 self:sync()
11821 end)
11822 UI.Window.enable(self)
11823 end
11824 }
11825end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/Throttle.lua 0000777 0000000 0000000 00000003145 13745134001 021751 0 ustar local class = require('opus.class')
11826local UI = require('opus.ui')
11827
11828local colors = _G.colors
11829local os = _G.os
11830
11831UI.Throttle = class(UI.Window)
11832UI.Throttle.defaults = {
11833 UIElement = 'Throttle',
11834 backgroundColor = colors.gray,
11835 bordercolor = colors.cyan,
11836 height = 4,
11837 width = 10,
11838 timeout = .075,
11839 ctr = 0,
11840 image = {
11841 ' //) (O )~@ &~&-( ?Q ',
11842 ' //) (O )- @ \\-( ?) && ',
11843 ' //) (O ), @ \\-(?) && ',
11844 ' //) (O ). @ \\-d ) (@ '
11845 }
11846}
11847function UI.Throttle:layout()
11848 self.x = math.ceil((self.parent.width - self.width) / 2)
11849 self.y = math.ceil((self.parent.height - self.height) / 2)
11850 self:reposition(self.x, self.y, self.width, self.height)
11851end
11852
11853function UI.Throttle:enable()
11854 self.c = os.clock()
11855 self.ctr = 0
11856end
11857
11858function UI.Throttle:update()
11859 local cc = os.clock()
11860 if cc > self.c + self.timeout then
11861 os.sleep(0)
11862 self.c = os.clock()
11863 self.enabled = true
11864 self:clear(self.borderColor)
11865 local image = self.image[self.ctr + 1]
11866 local width = self.width - 2
11867 for i = 0, #self.image do
11868 self:write(2, i + 1, image:sub(width * i + 1, width * i + width),
11869 self.backgroundColor, self.textColor)
11870 end
11871
11872 self.ctr = (self.ctr + 1) % #self.image
11873
11874 self:sync()
11875 end
11876end
11877
11878function UI.Throttle.example()
11879 return UI.Window {
11880 button1 = UI.Button {
11881 x = 2, y = 2,
11882 text = 'Test',
11883 },
11884 throttle = UI.Throttle {
11885 textColor = colors.yellow,
11886 borderColor = colors.green,
11887 },
11888 eventHandler = function (self, event)
11889 if event.type == 'button_press' then
11890 for _ = 1, 40 do
11891 self.throttle:update()
11892 os.sleep(.05)
11893 end
11894 self.throttle:disable()
11895 end
11896 end,
11897 }
11898end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/TextEntry.lua 0000777 0000000 0000000 00000007256 13745134001 022121 0 ustar local class = require('opus.class')
11899local entry = require('opus.entry')
11900local UI = require('opus.ui')
11901local Util = require('opus.util')
11902
11903local _rep = string.rep
11904
11905local function transform(directive)
11906 local transforms = {
11907 lowercase = string.lower,
11908 uppercase = string.upper,
11909 number = tonumber,
11910 }
11911 return transforms[directive]
11912end
11913
11914UI.TextEntry = class(UI.Window)
11915UI.TextEntry.docs = { }
11916UI.TextEntry.defaults = {
11917 UIElement = 'TextEntry',
11918 shadowText = '',
11919 focused = false,
11920 textColor = 'white',
11921 shadowTextColor = 'gray',
11922 markBackgroundColor = 'gray',
11923 backgroundColor = 'black',
11924 backgroundFocusColor = 'black',
11925 height = 1,
11926 cursorBlink = true,
11927 accelerators = {
11928 [ 'control-c' ] = 'copy',
11929 }
11930}
11931function UI.TextEntry:postInit()
11932 self.entry = entry({ limit = self.limit, offset = 2, transform = transform(self.transform) })
11933end
11934
11935function UI.TextEntry:layout()
11936 UI.Window.layout(self)
11937 self.entry.width = self.width - 2
11938end
11939
11940function UI.TextEntry:setValue(value)
11941 self.value = value
11942 self.entry:unmark()
11943 self.entry.value = value
11944 self.entry:updateScroll()
11945end
11946
11947function UI.TextEntry:setPosition(pos)
11948 self.entry.pos = pos
11949 self.entry.value = self.value -- WHY HERE ?
11950 self.entry:updateScroll()
11951end
11952
11953function UI.TextEntry:draw()
11954 local bg = self.backgroundColor
11955 local tc = self.textColor
11956 if self.focused then
11957 bg = self.backgroundFocusColor
11958 end
11959
11960 local text = tostring(self.value or '')
11961 if #text > 0 then
11962 if self.entry.scroll > 0 then
11963 text = text:sub(1 + self.entry.scroll)
11964 end
11965 if self.mask then
11966 text = _rep('*', #text)
11967 end
11968 else
11969 tc = self.shadowTextColor
11970 text = self.shadowText
11971 end
11972
11973 local ss = self.entry.scroll > 0 and '\183' or ' '
11974 self:write(2, 1, Util.widthify(text, self.width - 2) .. ' ', bg, tc)
11975 self:write(1, 1, ss, bg, self.shadowTextColor)
11976
11977 if self.entry.mark.active then
11978 local tx = math.max(self.entry.mark.x - self.entry.scroll, 0)
11979 local tex = self.entry.mark.ex - self.entry.scroll
11980
11981 if tex > self.width - 2 then -- unsure about this
11982 tex = self.width - 2 - tx
11983 end
11984
11985 if tx ~= tex then
11986 self:write(tx + 2, 1, text:sub(tx + 1, tex), self.markBackgroundColor, tc)
11987 end
11988 end
11989 if self.focused then
11990 self:setCursorPos(self.entry.pos - self.entry.scroll + 2, 1)
11991 end
11992end
11993
11994UI.TextEntry.docs.reset = [[reset()
11995Clears the value and resets the cursor.]]
11996function UI.TextEntry:reset()
11997 self.entry:reset()
11998 self.value = nil--''
11999 self:draw()
12000 self:updateCursor()
12001end
12002
12003function UI.TextEntry:updateCursor()
12004 self:setCursorPos(self.entry.pos - self.entry.scroll + 2, 1)
12005end
12006
12007function UI.TextEntry:markAll()
12008 self.entry:markAll()
12009end
12010
12011function UI.TextEntry:focus()
12012 self:draw()
12013end
12014
12015function UI.TextEntry:eventHandler(event)
12016 local text = self.value
12017 self.entry.value = text
12018 if event.ie and self.entry:process(event.ie) then
12019 if self.entry.textChanged then
12020 local changed = self.value ~= self.entry.value
12021 self.value = self.entry.value
12022 self:draw()
12023 if changed then
12024 -- we get entry.textChanged when marking is updated
12025 -- no need to emit in that case
12026 self:emit({ type = 'text_change', text = self.value, element = self })
12027 end
12028 elseif self.entry.posChanged then
12029 self:updateCursor()
12030 end
12031 return true
12032 end
12033
12034 return false
12035end
12036
12037function UI.TextEntry.example()
12038 return UI.Window {
12039 text = UI.TextEntry {
12040 x = 2, y = 2,
12041 width = 12,
12042 limit = 36,
12043 shadowText = 'normal',
12044 },
12045 upper = UI.TextEntry {
12046 x = 2, y = 3,
12047 width = 12,
12048 limit = 36,
12049 shadowText = 'upper',
12050 transform = 'uppercase',
12051 },
12052 lower = UI.TextEntry {
12053 x = 2, y = 4,
12054 width = 12,
12055 limit = 36,
12056 shadowText = 'lower',
12057 transform = 'lowercase',
12058 },
12059 number = UI.TextEntry {
12060 x = 2, y = 5,
12061 width = 12,
12062 limit = 36,
12063 transform = 'number',
12064 shadowText = 'number',
12065 },
12066 }
12067end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/TabBarMenuItem.lua 0000777 0000000 0000000 00000001205 13745134001 022736 0 ustar local class = require('opus.class')
12068local UI = require('opus.ui')
12069
12070UI.TabBarMenuItem = class(UI.Button)
12071UI.TabBarMenuItem.defaults = {
12072 UIElement = 'TabBarMenuItem',
12073 event = 'tab_select',
12074}
12075function UI.TabBarMenuItem:draw()
12076 if self.selected then
12077 self.backgroundColor = self:getProperty('selectedBackgroundColor')
12078 self.backgroundFocusColor = self.backgroundColor
12079 self.textColor = self:getProperty('selectedTextColor')
12080 else
12081 self.backgroundColor = self:getProperty('unselectedBackgroundColor')
12082 self.backgroundFocusColor = self.backgroundColor
12083 self.textColor = self:getProperty('unselectedTextColor')
12084 end
12085 UI.Button.draw(self)
12086end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/TabBar.lua 0000777 0000000 0000000 00000001650 13745134001 021276 0 ustar local class = require('opus.class')
12087local UI = require('opus.ui')
12088local Util = require('opus.util')
12089
12090UI.TabBar = class(UI.MenuBar)
12091UI.TabBar.defaults = {
12092 UIElement = 'TabBar',
12093 buttonClass = 'TabBarMenuItem',
12094 backgroundColor = 'black',
12095}
12096function UI.TabBar:enable()
12097 UI.MenuBar.enable(self)
12098 if not Util.find(self.children, 'selected', true) then
12099 local menuItem = self:getFocusables()[1]
12100 if menuItem then
12101 menuItem.selected = true
12102 end
12103 end
12104end
12105
12106function UI.TabBar:eventHandler(event)
12107 if event.type == 'tab_select' then
12108 local selected, si = Util.find(self.children, 'uid', event.button.uid)
12109 local previous, pi = Util.find(self.children, 'selected', true)
12110
12111 if si ~= pi then
12112 selected.selected = true
12113 if previous then
12114 previous.selected = false
12115 self:emit({ type = 'tab_change', current = si, last = pi, tab = selected })
12116 end
12117 end
12118 self:draw(self)
12119 end
12120 return UI.MenuBar.eventHandler(self, event)
12121end
12122 stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/CheckboxGrid.lua 0000777 0000000 0000000 00000002372 13745134001 022501 0 ustar local class = require('opus.class')
12123local UI = require('opus.ui')
12124
12125local function safeValue(v)
12126 local t = type(v)
12127 if t == 'string' or t == 'number' then
12128 return v
12129 end
12130 return tostring(v)
12131end
12132
12133UI.CheckboxGrid = class(UI.Grid)
12134UI.CheckboxGrid.defaults = {
12135 UIElement = 'CheckboxGrid',
12136 checkedKey = 'checked',
12137 accelerators = {
12138 [ ' ' ] = 'grid_toggle',
12139 key_enter = 'grid_toggle',
12140 },
12141}
12142function UI.CheckboxGrid:drawRow(sb, row, focused, bg, fg)
12143 local ind = focused and self.focusIndicator or ' '
12144
12145 for _,col in pairs(self.columns) do
12146 sb:write(ind .. safeValue(row[col.key] or ''),
12147 col.cw + 1,
12148 col.align,
12149 col.backgroundColor or bg,
12150 col.textColor or fg)
12151 ind = ' '
12152 end
12153end
12154
12155function UI.CheckboxGrid:eventHandler(event)
12156 if event.type == 'grid_toggle' and self.selected then
12157 self.selected.checked = not self.selected.checked
12158 self:draw()
12159 self:emit({ type = 'grid_check', checked = self.selected, element = self })
12160 else
12161 return UI.Grid.eventHandler(self, event)
12162 end
12163end
12164
12165function UI.CheckboxGrid.example()
12166 return UI.CheckboxGrid {
12167 values = {
12168 { checked = false, name = 'unchecked' },
12169 { checked = true, name = 'checked' },
12170 },
12171 columns = {
12172 { heading = 'Checked', key = 'checked' },
12173 { heading = 'Data', key = 'name', }
12174 },
12175 }
12176end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/ScrollBar.lua 0000777 0000000 0000000 00000004453 13745134001 022032 0 ustar local class = require('opus.class')
12177local UI = require('opus.ui')
12178local Util = require('opus.util')
12179
12180local colors = _G.colors
12181
12182UI.ScrollBar = class(UI.Window)
12183UI.ScrollBar.defaults = {
12184 UIElement = 'ScrollBar',
12185 lineChar = '\166',
12186 sliderChar = UI.extChars and '\127' or '#',
12187 upArrowChar = UI.extChars and '\30' or '^',
12188 downArrowChar = UI.extChars and '\31' or 'v',
12189 scrollbarColor = colors.lightGray,
12190 width = 1,
12191 x = -1,
12192 ey = -1,
12193}
12194function UI.ScrollBar:draw()
12195 local parent = self.target or self.parent --self:find(self.target)
12196 local view = parent:getViewArea()
12197
12198 self:clear()
12199
12200 -- ...
12201 self:write(1, 1, ' ', view.fill)
12202
12203 if view.totalHeight > view.height then
12204 local maxScroll = view.totalHeight - view.height
12205 local percent = view.offsetY / maxScroll
12206 local sliderSize = math.max(1, Util.round(view.height / view.totalHeight * (view.height - 2)))
12207 local x = self.width
12208
12209 local row = view.y
12210 if not view.static then -- does the container scroll ?
12211 self:reposition(self.x, self.y, self.width, view.totalHeight)
12212 end
12213
12214 for i = 1, view.height - 2 do
12215 self:write(x, row + i, self.lineChar, nil, self.scrollbarColor)
12216 end
12217
12218 local y = Util.round((view.height - 2 - sliderSize) * percent)
12219 for i = 1, sliderSize do
12220 self:write(x, row + y + i, self.sliderChar, nil, self.scrollbarColor)
12221 end
12222
12223 local color = self.scrollbarColor
12224 if view.offsetY > 0 then
12225 color = colors.white
12226 end
12227 self:write(x, row, self.upArrowChar, nil, color)
12228
12229 color = self.scrollbarColor
12230 if view.offsetY + view.height < view.totalHeight then
12231 color = colors.white
12232 end
12233 self:write(x, row + view.height - 1, self.downArrowChar, nil, color)
12234 end
12235end
12236
12237function UI.ScrollBar:eventHandler(event)
12238 if event.type == 'mouse_click' or event.type == 'mouse_doubleclick' then
12239 if event.x == 1 then
12240 local parent = self.target or self.parent --self:find(self.target)
12241 local view = parent:getViewArea()
12242 if view.totalHeight > view.height then
12243 if event.y == view.y then
12244 parent:emit({ type = 'scroll_up'})
12245 elseif event.y == view.y + view.height - 1 then
12246 parent:emit({ type = 'scroll_down'})
12247 else
12248 local percent = (event.y - view.y) / (view.height - 2)
12249 local y = math.floor((view.totalHeight - view.height) * percent)
12250 parent :emit({ type = 'scroll_to', offset = y })
12251 end
12252 end
12253 return true
12254 end
12255 end
12256end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/SlideOut.lua 0000777 0000000 0000000 00000002514 13745134001 021673 0 ustar local class = require('opus.class')
12257local UI = require('opus.ui')
12258
12259UI.SlideOut = class(UI.Window)
12260UI.SlideOut.defaults = {
12261 UIElement = 'SlideOut',
12262 transitionHint = 'expandUp',
12263 modal = true,
12264}
12265function UI.SlideOut:enable()
12266end
12267
12268function UI.SlideOut:toggle()
12269 if self.enabled then
12270 self:hide()
12271 else
12272 self:show()
12273 end
12274end
12275
12276function UI.SlideOut:show(...)
12277 UI.Window.enable(self, ...)
12278 self:draw()
12279 self:focusFirst()
12280end
12281
12282function UI.SlideOut:hide()
12283 self:disable()
12284end
12285
12286function UI.SlideOut:draw()
12287 if not self.noFill then
12288 self:fillArea(1, 1, self.width, self.height, string.rep('\127', self.width), 'black', 'gray')
12289 end
12290 self:drawChildren()
12291end
12292
12293function UI.SlideOut:eventHandler(event)
12294 if event.type == 'slide_show' then
12295 self:show()
12296 return true
12297
12298 elseif event.type == 'slide_hide' then
12299 self:hide()
12300 return true
12301 end
12302end
12303
12304function UI.SlideOut.example()
12305 return UI.Window {
12306 y = 3,
12307 backgroundColor = 2048,
12308 button = UI.Button {
12309 x = 2, y = 5,
12310 text = 'show',
12311 },
12312 slideOut = UI.SlideOut {
12313 backgroundColor = 16,
12314 y = -7, height = 4, x = 3, ex = -3,
12315 titleBar = UI.TitleBar {
12316 title = 'test',
12317 },
12318 button = UI.Button {
12319 x = 2, y = 2,
12320 text = 'hide',
12321 --visualize = true,
12322 },
12323 },
12324 eventHandler = function (self, event)
12325 if event.type == 'button_press' then
12326 self.slideOut:toggle()
12327 end
12328 end,
12329 }
12330end stolen/16478-25.10.2020.0043/sys/modules/opus/ui/components/QuickSelect.lua 0000777 0000000 0000000 00000004546 13745134001 022366 0 ustar local class = require('opus.class')
12331local fuzzy = require('opus.fuzzy')
12332local UI = require('opus.ui')
12333
12334local fs = _G.fs
12335local _insert = table.insert
12336
12337UI.QuickSelect = class(UI.Window)
12338UI.QuickSelect.defaults = {
12339 UIElement = 'QuickSelect',
12340}
12341function UI.QuickSelect:postInit()
12342 self.filterEntry = UI.TextEntry {
12343 x = 2, y = 2, ex = -2,
12344 shadowText = 'File name',
12345 accelerators = {
12346 [ 'enter' ] = 'accept',
12347 [ 'up' ] = 'grid_up',
12348 [ 'down' ] = 'grid_down',
12349 },
12350 }
12351 self.grid = UI.ScrollingGrid {
12352 x = 2, y = 3, ex = -2, ey = -4,
12353 disableHeader = true,
12354 columns = {
12355 { key = 'name' },
12356 { key = 'dir', textColor = 'lightGray' },
12357 },
12358 accelerators = {
12359 grid_select = 'accept',
12360 },
12361 }
12362 self.cancel = UI.Button {
12363 x = -9, y = -2,
12364 text = 'Cancel',
12365 event = 'select_cancel',
12366 }
12367end
12368
12369function UI.QuickSelect:draw()
12370 self:fillArea(1, 1, self.width, self.height, string.rep('\127', self.width), 'black', 'gray')
12371 self:drawChildren()
12372end
12373
12374function UI.QuickSelect:applyFilter(filter)
12375 if filter then
12376 filter = filter:lower()
12377 self.grid.sortColumn = 'score'
12378
12379 for _,v in pairs(self.grid.values) do
12380 v.score = -fuzzy(v.lname, filter)
12381 end
12382 else
12383 self.grid.sortColumn = 'lname'
12384 end
12385
12386 self.grid:update()
12387 self.grid:setIndex(1)
12388end
12389
12390function UI.QuickSelect.getFiles()
12391 local t = { }
12392 local function recurse(dir)
12393 local files = fs.list(dir)
12394 for _,f in ipairs(files) do
12395 local fullName = fs.combine(dir, f)
12396 if fs.isDir(fullName) then
12397 -- skip virtual dirs
12398 if f ~= '.git' and fs.native.isDir(fullName) then
12399 recurse(fullName)
12400 end
12401 else
12402 _insert(t, {
12403 name = f,
12404 dir = dir,
12405 lname = f:lower(),
12406 fullName = fullName,
12407 })
12408 end
12409 end
12410 end
12411 recurse('')
12412 return t
12413end
12414
12415function UI.QuickSelect:enable()
12416 self.grid.values = self:getFiles()
12417 self:applyFilter()
12418 self.filterEntry:reset()
12419 UI.Window.enable(self)
12420end
12421
12422function UI.QuickSelect:eventHandler(event)
12423 if event.type == 'grid_up' then
12424 self.grid:emit({ type = 'scroll_up' })
12425 return true
12426
12427 elseif event.type == 'grid_down' then
12428 self.grid:emit({ type = 'scroll_down' })
12429 return true
12430
12431 elseif event.type == 'accept' then
12432 local sel = self.grid:getSelected()
12433 if sel then
12434 self:emit({ type = 'select_file', file = sel.fullName, element = self })
12435 end
12436 return true
12437
12438 elseif event.type == 'text_change' then
12439 self:applyFilter(event.text)
12440 self.grid:draw()
12441 return true
12442
12443 end
12444end stolen/16478-25.10.2020.0043/sys/modules/opus/config.lua 0000777 0000000 0000000 00000001127 13745134001 016605 0 ustar local Util = require('opus.util')
12445
12446local fs = _G.fs
12447
12448local Config = { }
12449
12450function Config.load(fname, data)
12451 local filename = 'usr/config/' .. fname
12452 data = data or { }
12453
12454 if not fs.exists('usr/config') then
12455 fs.makeDir('usr/config')
12456 end
12457
12458 if not fs.exists(filename) then
12459 Util.writeTable(filename, data)
12460 else
12461 local contents = Util.readTable(filename) or
12462 error('Configuration file is corrupt:' .. filename)
12463
12464 Util.merge(data, contents)
12465 end
12466
12467 return data
12468end
12469
12470function Config.update(fname, data)
12471 local filename = 'usr/config/' .. fname
12472 Util.writeTable(filename, data)
12473end
12474
12475return Config stolen/16478-25.10.2020.0043/sys/modules/opus/fuzzy.lua 0000777 0000000 0000000 00000002151 13745134001 016525 0 ustar local find = string.find
12476local floor = math.floor
12477local min = math.min
12478local max = math.max
12479local sub = string.sub
12480
12481-- https://rosettacode.org/wiki/Jaro_distance (ported to lua)
12482return function(s1, s2)
12483 local l1, l2 = #s1, #s2;
12484 if l1 == 0 then
12485 return l2 == 0 and 1.0 or 0.0
12486 end
12487
12488 local match_distance = max(floor(max(l1, l2) / 2) - 1, 0)
12489 local s1_matches = { }
12490 local s2_matches = { }
12491 local matches = 0
12492
12493 for i = 1, l1 do
12494 local _end = min(i + match_distance + 1, l2)
12495 for k = max(1, i - match_distance), _end do
12496 if not s2_matches[k] and sub(s1, i, i) == sub(s2, k, k) then
12497 s1_matches[i] = true
12498 s2_matches[k] = true
12499 matches = matches + 1
12500 break
12501 end
12502 end
12503 end
12504 if matches == 0 then
12505 return 0.0
12506 end
12507
12508 local t = 0.0
12509 local k = 1
12510 for i = 1, l1 do
12511 if s1_matches[i] then
12512 while not s2_matches[k] do
12513 k = k + 1
12514 end
12515 if sub(s1, i, i) ~= sub(s2, k, k) then
12516 t = t + 0.5
12517 end
12518 k = k + 1
12519 end
12520 end
12521
12522 -- provide a major boost for exact matches
12523 local b = 0.0
12524 if find(s1, s2, 1, true) then
12525 b = b + .5
12526 end
12527
12528 local m = matches
12529 return (m / l1 + m / l2 + (m - t) / m) / 3.0 + b
12530end stolen/16478-25.10.2020.0043/sys/modules/opus/http/pastebin.lua 0000777 0000000 0000000 00000005607 13745134001 020133 0 ustar --- Parse the pastebin code from the given code or URL
12531local function parseCode(paste)
12532 local patterns = {
12533 "^([%a%d]+)$",
12534 "^https?://pastebin.com/([%a%d]+)$",
12535 "^pastebin.com/([%a%d]+)$",
12536 "^https?://pastebin.com/raw/([%a%d]+)$",
12537 "^pastebin.com/raw/([%a%d]+)$",
12538 }
12539
12540 for i = 1, #patterns do
12541 local code = paste:match(patterns[i])
12542 if code then
12543 return code
12544 end
12545 end
12546
12547 return nil
12548end
12549
12550-- Download the contents of a paste
12551local function download(code)
12552 if type(code) ~= "string" then
12553 error("bad argument #1 (expected string, got " .. type(code) .. ")", 2)
12554 end
12555
12556 if not http then
12557 return false, "Pastebin requires http API"
12558 end
12559
12560 -- Add a cache buster so that spam protection is re-checked
12561 local cacheBuster = ("%x"):format(math.random(0, 2 ^ 30))
12562 local response, err = http.get(
12563 "https://pastebin.com/raw/" .. textutils.urlEncode(code) .. "?cb=" .. cacheBuster
12564 )
12565
12566 if not response then
12567 return response, err
12568 end
12569
12570 -- If spam protection is activated, we get redirected to /paste with Content-Type: text/html
12571 local headers = response.getResponseHeaders()
12572 if not headers["Content-Type"] or not headers["Content-Type"]:find("^text/plain") then
12573 return false, "Pastebin blocked due to spam protection"
12574 end
12575
12576 local contents = response.readAll()
12577 response.close()
12578 return contents
12579end
12580
12581-- Upload text to pastebin
12582local function upload(name, text)
12583 if not http then
12584 return false, "Pastebin requires http API"
12585 end
12586
12587 -- POST the contents to pastebin
12588 local key = "0ec2eb25b6166c0c27a394ae118ad829"
12589 local response = http.post(
12590 "https://pastebin.com/api/api_post.php",
12591 "api_option=paste&" ..
12592 "api_dev_key=" .. key .. "&" ..
12593 "api_paste_format=lua&" ..
12594 "api_paste_name=" .. textutils.urlEncode(name) .. "&" ..
12595 "api_paste_code=" .. textutils.urlEncode(text)
12596 )
12597
12598 if not response then
12599 return false, "Failed."
12600 end
12601
12602 local contents = response.readAll()
12603 response.close()
12604
12605 return string.match(contents, "[^/]+$")
12606end
12607
12608-- Download the contents to a file from pastebin
12609local function get(code, path)
12610 if type(code) ~= "string" then
12611 error( "bad argument #1 (expected string, got " .. type(code) .. ")", 2)
12612 end
12613
12614 if type(path) ~= "string" then
12615 error("bad argument #2 (expected string, got " .. type(path) .. ")", 2)
12616 end
12617
12618 local res, msg = download(code)
12619 if not res then
12620 return res, msg
12621 end
12622
12623 local file = fs.open(path, "w")
12624 file.write(res)
12625 file.close()
12626
12627 return true
12628end
12629
12630-- Upload a file to pastebin.com
12631local function put(path)
12632 if type(path) ~= "string" then
12633 error("bad argument #1 (expected string, got " .. type(path) .. ")", 2)
12634 end
12635
12636 -- Determine file to upload
12637 if not fs.exists(path) or fs.isDir(path) then
12638 return false, "No such file"
12639 end
12640
12641 -- Read in the file
12642 local name = fs.getName(path)
12643 local file = fs.open(path, "r")
12644 local text = file.readAll()
12645 file.close()
12646
12647 return upload(name, text)
12648end
12649
12650return {
12651 download = download,
12652 upload = upload,
12653 get = get,
12654 put = put,
12655 parseCode = parseCode,
12656}
12657 stolen/16478-25.10.2020.0043/sys/modules/opus/point.lua 0000777 0000000 0000000 00000016510 13745134001 016473 0 ustar local Util = require('opus.util')
12658
12659local Point = { }
12660
12661Point.directions = {
12662 [ 0 ] = { xd = 1, zd = 0, yd = 0, heading = 0, direction = 'east' },
12663 [ 1 ] = { xd = 0, zd = 1, yd = 0, heading = 1, direction = 'south' },
12664 [ 2 ] = { xd = -1, zd = 0, yd = 0, heading = 2, direction = 'west' },
12665 [ 3 ] = { xd = 0, zd = -1, yd = 0, heading = 3, direction = 'north' },
12666 [ 4 ] = { xd = 0, zd = 0, yd = 1, heading = 4, direction = 'up' },
12667 [ 5 ] = { xd = 0, zd = 0, yd = -1, heading = 5, direction = 'down' },
12668}
12669
12670Point.facings = {
12671 [ 0 ] = Point.directions[0],
12672 [ 1 ] = Point.directions[1],
12673 [ 2 ] = Point.directions[2],
12674 [ 3 ] = Point.directions[3],
12675 east = Point.directions[0],
12676 south = Point.directions[1],
12677 west = Point.directions[2],
12678 north = Point.directions[3],
12679}
12680
12681Point.headings = {
12682 [ 0 ] = Point.directions[0],
12683 [ 1 ] = Point.directions[1],
12684 [ 2 ] = Point.directions[2],
12685 [ 3 ] = Point.directions[3],
12686 [ 4 ] = Point.directions[4],
12687 [ 5 ] = Point.directions[5],
12688 east = Point.directions[0],
12689 south = Point.directions[1],
12690 west = Point.directions[2],
12691 north = Point.directions[3],
12692 up = Point.directions[4],
12693 down = Point.directions[5],
12694}
12695
12696Point.EAST = 0
12697Point.SOUTH = 1
12698Point.WEST = 2
12699Point.NORTH = 3
12700Point.UP = 4
12701Point.DOWN = 5
12702
12703function Point.copy(pt)
12704 return { x = pt.x, y = pt.y, z = pt.z }
12705end
12706
12707function Point.round(pt)
12708 pt.x = Util.round(pt.x)
12709 pt.y = Util.round(pt.y)
12710 pt.z = Util.round(pt.z)
12711 return pt
12712end
12713
12714function Point.same(pta, ptb)
12715 return pta.x == ptb.x and
12716 pta.y == ptb.y and
12717 pta.z == ptb.z
12718end
12719
12720function Point.above(pt)
12721 return { x = pt.x, y = pt.y + 1, z = pt.z, heading = pt.heading }
12722end
12723
12724function Point.below(pt)
12725 return { x = pt.x, y = pt.y - 1, z = pt.z, heading = pt.heading }
12726end
12727
12728function Point.subtract(a, b)
12729 a.x = a.x - b.x
12730 a.y = a.y - b.y
12731 a.z = a.z - b.z
12732end
12733
12734-- Euclidian distance
12735function Point.distance(a, b)
12736 return math.sqrt(
12737 math.pow(a.x - b.x, 2) +
12738 math.pow(a.y - b.y, 2) +
12739 math.pow(a.z - b.z, 2))
12740end
12741
12742-- turtle distance (manhattan)
12743function Point.turtleDistance(a, b)
12744 if a.y and b.y then
12745 return math.abs(a.x - b.x) +
12746 math.abs(a.y - b.y) +
12747 math.abs(a.z - b.z)
12748 else
12749 return math.abs(a.x - b.x) +
12750 math.abs(a.z - b.z)
12751 end
12752end
12753
12754function Point.calculateTurns(ih, oh)
12755 if ih == oh then
12756 return 0
12757 end
12758 if (ih % 2) == (oh % 2) then
12759 return 2
12760 end
12761 return 1
12762end
12763
12764function Point.calculateHeading(pta, ptb)
12765 local heading
12766 local xd, zd = pta.x - ptb.x, pta.z - ptb.z
12767
12768 if (pta.heading % 2) == 0 and zd ~= 0 then
12769 heading = zd < 0 and 1 or 3
12770 elseif (pta.heading % 2) == 1 and xd ~= 0 then
12771 heading = xd < 0 and 0 or 2
12772 elseif pta.heading == 0 and xd > 0 then
12773 heading = 2
12774 elseif pta.heading == 2 and xd < 0 then
12775 heading = 0
12776 elseif pta.heading == 1 and zd > 0 then
12777 heading = 3
12778 elseif pta.heading == 3 and zd < 0 then
12779 heading = 1
12780 end
12781
12782 return heading or pta.heading
12783end
12784
12785-- Calculate distance to location including turns
12786-- also returns the resulting heading
12787function Point.calculateMoves(pta, ptb, distance)
12788 local heading = pta.heading
12789 local moves = distance or Point.turtleDistance(pta, ptb)
12790 local weighted = moves
12791
12792 if (pta.heading % 2) == 0 and pta.z ~= ptb.z then
12793 moves = moves + 1
12794 weighted = weighted + .9
12795 if ptb.heading and (ptb.heading % 2 == 1) then
12796 heading = ptb.heading
12797 elseif ptb.z > pta.z then
12798 heading = 1
12799 else
12800 heading = 3
12801 end
12802 elseif (pta.heading % 2) == 1 and pta.x ~= ptb.x then
12803 moves = moves + 1
12804 weighted = weighted + .9
12805 if ptb.heading and (ptb.heading % 2 == 0) then
12806 heading = ptb.heading
12807 elseif ptb.x > pta.x then
12808 heading = 0
12809 else
12810 heading = 2
12811 end
12812 end
12813
12814 if not ptb.heading then
12815 return moves, heading, weighted
12816 end
12817
12818 -- need to know if we are in digging mode
12819 -- if so, we need to face blocks -- need a no-backwards flag
12820
12821 -- calc turns as slightly less than moves
12822 -- local weighted = moves
12823 if heading ~= ptb.heading then
12824 local turns = Point.calculateTurns(heading, ptb.heading)
12825 moves = moves + turns
12826 local wturns = { [0] = 0, [1] = .9, [2] = 1.8 }
12827 weighted = weighted + wturns[turns]
12828 heading = ptb.heading
12829 end
12830
12831 return moves, heading, weighted
12832end
12833
12834-- given a set of points, find the one taking the least moves
12835function Point.closest(reference, pts)
12836 if #pts == 1 then
12837 return pts[1]
12838 end
12839
12840 local lm, lpt = math.huge
12841 for _,pt in pairs(pts) do
12842 local distance = Point.turtleDistance(reference, pt)
12843 if not reference.heading then
12844 if distance < lm then
12845 lpt = pt
12846 lm = distance
12847 end
12848 elseif distance < lm then
12849 local _, _, m = Point.calculateMoves(reference, pt, distance)
12850 if m < lm then
12851 lpt = pt
12852 lm = m
12853 end
12854 end
12855 end
12856 return lpt
12857end
12858
12859function Point.eachClosest(spt, ipts, fn)
12860 if not ipts then error('Point.eachClosest: invalid points', 2) end
12861
12862 local pts = Util.shallowCopy(ipts)
12863 while #pts > 0 do
12864 local pt = Point.closest(spt, pts)
12865 local r = fn(pt)
12866 if r then
12867 return r
12868 end
12869 Util.removeByValue(pts, pt)
12870 end
12871end
12872
12873function Point.iterateClosest(spt, ipts)
12874 local pts = Util.shallowCopy(ipts)
12875 return function()
12876 local pt = Point.closest(spt, pts)
12877 if pt then
12878 Util.removeByValue(pts, pt)
12879 return pt
12880 end
12881 end
12882end
12883
12884function Point.adjacentPoints(pt)
12885 local pts = { }
12886
12887 for i = 0, 5 do
12888 local hi = Point.headings[i]
12889 table.insert(pts, { x = pt.x + hi.xd, y = pt.y + hi.yd, z = pt.z + hi.zd })
12890 end
12891
12892 return pts
12893end
12894
12895-- get the point nearest A that is in the direction of B
12896function Point.nearestTo(pta, ptb)
12897 local heading
12898
12899 if pta.x < ptb.x then
12900 heading = 0
12901 elseif pta.z < ptb.z then
12902 heading = 1
12903 elseif pta.x > ptb.x then
12904 heading = 2
12905 elseif pta.z > ptb.z then
12906 heading = 3
12907 elseif pta.y < ptb.y then
12908 heading = 4
12909 elseif pta.y > ptb.y then
12910 heading = 5
12911 end
12912
12913 if heading then
12914 return {
12915 x = pta.x + Point.headings[heading].xd,
12916 y = pta.y + Point.headings[heading].yd,
12917 z = pta.z + Point.headings[heading].zd,
12918 }
12919 end
12920
12921 return pta -- error ?
12922end
12923
12924function Point.rotate(pt, facing)
12925 local x, z = pt.x, pt.z
12926 if facing == 1 then
12927 pt.x = z
12928 pt.z = -x
12929 elseif facing == 2 then
12930 pt.x = -x
12931 pt.z = -z
12932 elseif facing == 3 then
12933 pt.x = -z
12934 pt.z = x
12935 end
12936end
12937
12938function Point.makeBox(pt1, pt2)
12939 return {
12940 x = pt1.x,
12941 y = pt1.y,
12942 z = pt1.z,
12943 ex = pt2.x,
12944 ey = pt2.y,
12945 ez = pt2.z,
12946 }
12947end
12948
12949-- expand box to include point
12950function Point.expandBox(box, pt)
12951 if pt.x < box.x then
12952 box.x = pt.x
12953 elseif pt.x > box.ex then
12954 box.ex = pt.x
12955 end
12956 if pt.y < box.y then
12957 box.y = pt.y
12958 elseif pt.y > box.ey then
12959 box.ey = pt.y
12960 end
12961 if pt.z < box.z then
12962 box.z = pt.z
12963 elseif pt.z > box.ez then
12964 box.ez = pt.z
12965 end
12966end
12967
12968function Point.normalizeBox(box)
12969 return {
12970 x = math.min(box.x, box.ex),
12971 y = math.min(box.y, box.ey),
12972 z = math.min(box.z, box.ez),
12973 ex = math.max(box.x, box.ex),
12974 ey = math.max(box.y, box.ey),
12975 ez = math.max(box.z, box.ez),
12976 }
12977end
12978
12979function Point.inBox(pt, box)
12980 return pt.x >= box.x and
12981 pt.y >= box.y and
12982 pt.z >= box.z and
12983 pt.x <= box.ex and
12984 pt.y <= box.ey and
12985 pt.z <= box.ez
12986end
12987
12988function Point.closestPointInBox(pt, box)
12989 local cpt = {
12990 x = math.abs(pt.x - box.x) < math.abs(pt.x - box.ex) and box.x or box.ex,
12991 y = math.abs(pt.y - box.y) < math.abs(pt.y - box.ey) and box.y or box.ey,
12992 z = math.abs(pt.z - box.z) < math.abs(pt.z - box.ez) and box.z or box.ez,
12993 }
12994 cpt.x = pt.x > box.x and pt.x < box.ex and pt.x or cpt.x
12995 cpt.y = pt.y > box.y and pt.y < box.ey and pt.y or cpt.y
12996 cpt.z = pt.z > box.z and pt.z < box.ez and pt.z or cpt.z
12997
12998 return cpt
12999end
13000
13001return Point stolen/16478-25.10.2020.0043/sys/modules/opus/crypto/sha2.lua 0000777 0000000 0000000 00000012302 13745134001 017512 0 ustar -- SHA-256, HMAC and PBKDF2 functions in ComputerCraft
13002-- By Anavrins
13003local Util = require('opus.util')
13004
13005local bit = _G.bit
13006local mod32 = 2^32
13007local band = bit32 and bit32.band or bit.band
13008local bnot = bit32 and bit32.bnot or bit.bnot
13009local bxor = bit32 and bit32.bxor or bit.bxor
13010local blshift = bit32 and bit32.lshift or bit.blshift
13011local upack = unpack or table.unpack
13012local mt = Util.byteArrayMT
13013
13014local function rrotate(n, b)
13015 local s = n/(2^b)
13016 local f = s%1
13017 return (s-f) + f*mod32
13018end
13019local function brshift(int, by)
13020 local s = int / (2^by)
13021 return s - s%1
13022end
13023
13024local H = {
13025 0x6a09e667, 0xbb67ae85, 0x3c6ef372, 0xa54ff53a,
13026 0x510e527f, 0x9b05688c, 0x1f83d9ab, 0x5be0cd19,
13027}
13028
13029local K = {
13030 0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5, 0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5,
13031 0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3, 0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174,
13032 0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc, 0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da,
13033 0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7, 0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967,
13034 0x27b70a85, 0x2e1b2138, 0x4d2c6dfc, 0x53380d13, 0x650a7354, 0x766a0abb, 0x81c2c92e, 0x92722c85,
13035 0xa2bfe8a1, 0xa81a664b, 0xc24b8b70, 0xc76c51a3, 0xd192e819, 0xd6990624, 0xf40e3585, 0x106aa070,
13036 0x19a4c116, 0x1e376c08, 0x2748774c, 0x34b0bcb5, 0x391c0cb3, 0x4ed8aa4a, 0x5b9cca4f, 0x682e6ff3,
13037 0x748f82ee, 0x78a5636f, 0x84c87814, 0x8cc70208, 0x90befffa, 0xa4506ceb, 0xbef9a3f7, 0xc67178f2,
13038}
13039
13040local function counter(incr)
13041 local t1, t2 = 0, 0
13042 if 0xFFFFFFFF - t1 < incr then
13043 t2 = t2 + 1
13044 t1 = incr - (0xFFFFFFFF - t1) - 1
13045 else t1 = t1 + incr
13046 end
13047 return t2, t1
13048end
13049
13050local function BE_toInt(bs, i)
13051 return blshift((bs[i] or 0), 24) + blshift((bs[i+1] or 0), 16) + blshift((bs[i+2] or 0), 8) + (bs[i+3] or 0)
13052end
13053
13054local function preprocess(data)
13055 local len = #data
13056 local proc = {}
13057 data[#data+1] = 0x80
13058 while #data%64~=56 do data[#data+1] = 0 end
13059 local blocks = math.ceil(#data/64)
13060 for i = 1, blocks do
13061 proc[i] = {}
13062 for j = 1, 16 do
13063 proc[i][j] = BE_toInt(data, 1+((i-1)*64)+((j-1)*4))
13064 end
13065 end
13066 proc[blocks][15], proc[blocks][16] = counter(len*8)
13067 return proc
13068end
13069
13070local function digestblock(w, C)
13071 for j = 17, 64 do
13072 local s0 = bxor(rrotate(w[j-15], 7), rrotate(w[j-15], 18), brshift(w[j-15], 3))
13073 local s1 = bxor(rrotate(w[j-2], 17), rrotate(w[j-2], 19), brshift(w[j-2], 10))
13074 w[j] = (w[j-16] + s0 + w[j-7] + s1)%mod32
13075 end
13076 local a, b, c, d, e, f, g, h = upack(C)
13077 for j = 1, 64 do
13078 local S1 = bxor(rrotate(e, 6), rrotate(e, 11), rrotate(e, 25))
13079 local ch = bxor(band(e, f), band(bnot(e), g))
13080 local temp1 = (h + S1 + ch + K[j] + w[j])%mod32
13081 local S0 = bxor(rrotate(a, 2), rrotate(a, 13), rrotate(a, 22))
13082 local maj = bxor(bxor(band(a, b), band(a, c)), band(b, c))
13083 local temp2 = (S0 + maj)%mod32
13084 h, g, f, e, d, c, b, a = g, f, e, (d+temp1)%mod32, c, b, a, (temp1+temp2)%mod32
13085 end
13086 C[1] = (C[1] + a)%mod32
13087 C[2] = (C[2] + b)%mod32
13088 C[3] = (C[3] + c)%mod32
13089 C[4] = (C[4] + d)%mod32
13090 C[5] = (C[5] + e)%mod32
13091 C[6] = (C[6] + f)%mod32
13092 C[7] = (C[7] + g)%mod32
13093 C[8] = (C[8] + h)%mod32
13094 return C
13095end
13096
13097local function toBytes(t, n)
13098 local b = {}
13099 for i = 1, n do
13100 b[(i-1)*4+1] = band(brshift(t[i], 24), 0xFF)
13101 b[(i-1)*4+2] = band(brshift(t[i], 16), 0xFF)
13102 b[(i-1)*4+3] = band(brshift(t[i], 8), 0xFF)
13103 b[(i-1)*4+4] = band(t[i], 0xFF)
13104 end
13105 return setmetatable(b, mt)
13106end
13107
13108local function digest(data)
13109 data = data or ""
13110 data = type(data) == "table" and {upack(data)} or {tostring(data):byte(1,-1)}
13111
13112 data = preprocess(data)
13113 local C = {upack(H)}
13114 for i = 1, #data do C = digestblock(data[i], C) end
13115 return toBytes(C, 8)
13116end
13117
13118local function hmac(data, key)
13119 data = type(data) == "table" and {upack(data)} or {tostring(data):byte(1,-1)}
13120 key = type(key) == "table" and {upack(key)} or {tostring(key):byte(1,-1)}
13121
13122 local blocksize = 64
13123
13124 key = #key > blocksize and digest(key) or key
13125
13126 local ipad = {}
13127 local opad = {}
13128 local padded_key = {}
13129
13130 for i = 1, blocksize do
13131 ipad[i] = bxor(0x36, key[i] or 0)
13132 opad[i] = bxor(0x5C, key[i] or 0)
13133 end
13134
13135 for i = 1, #data do
13136 ipad[blocksize+i] = data[i]
13137 end
13138
13139 ipad = digest(ipad)
13140
13141 for i = 1, blocksize do
13142 padded_key[i] = opad[i]
13143 padded_key[blocksize+i] = ipad[i]
13144 end
13145
13146 return digest(padded_key)
13147end
13148
13149local function pbkdf2(pass, salt, iter, dklen)
13150 salt = type(salt) == "table" and salt or {tostring(salt):byte(1,-1)}
13151 local hashlen = 32
13152 dklen = dklen or 32
13153 local block = 1
13154 local out = {}
13155 local throttle = Util.throttle()
13156
13157 while dklen > 0 do
13158 local ikey = {}
13159 local isalt = {upack(salt)}
13160 local clen = dklen > hashlen and hashlen or dklen
13161
13162 isalt[#isalt+1] = band(brshift(block, 24), 0xFF)
13163 isalt[#isalt+1] = band(brshift(block, 16), 0xFF)
13164 isalt[#isalt+1] = band(brshift(block, 8), 0xFF)
13165 isalt[#isalt+1] = band(block, 0xFF)
13166
13167 for j = 1, iter do
13168 isalt = hmac(isalt, pass)
13169 for k = 1, clen do ikey[k] = bxor(isalt[k], ikey[k] or 0) end
13170 if j % 200 == 0 then
13171 throttle()
13172 --os.queueEvent("PBKDF2", j) coroutine.yield("PBKDF2")
13173 end
13174 end
13175 dklen = dklen - clen
13176 block = block+1
13177 for k = 1, clen do out[#out+1] = ikey[k] end
13178 end
13179
13180 return setmetatable(out, mt)
13181end
13182
13183local function compute(data)
13184 return digest(data):toHex()
13185end
13186
13187return {
13188 digest = digest,
13189 compute = compute,
13190 hmac = hmac,
13191 pbkdf2 = pbkdf2,
13192} stolen/16478-25.10.2020.0043/sys/modules/opus/crypto/chacha20.lua 0000777 0000000 0000000 00000011302 13745134001 020225 0 ustar -- Chacha20 cipher in ComputerCraft
13193-- By Anavrins
13194
13195local cbor = require('opus.cbor')
13196local sha2 = require('opus.crypto.sha2')
13197local Util = require('opus.util')
13198
13199local ROUNDS = 8 -- Adjust this for speed tradeoff
13200
13201local bxor = bit32.bxor
13202local band = bit32.band
13203local blshift = bit32.lshift
13204local brshift = bit32.arshift
13205local textutils = _G.textutils
13206local mt = Util.byteArrayMT
13207
13208local mod = 2^32
13209local tau = {("expand 16-byte k"):byte(1,-1)}
13210local sigma = {("expand 32-byte k"):byte(1,-1)}
13211
13212local function rotl(n, b)
13213 local s = n/(2^(32-b))
13214 local f = s%1
13215 return (s-f) + f*mod
13216end
13217
13218local function quarterRound(s, a, b, c, d)
13219 s[a] = (s[a]+s[b])%mod; s[d] = rotl(bxor(s[d], s[a]), 16)
13220 s[c] = (s[c]+s[d])%mod; s[b] = rotl(bxor(s[b], s[c]), 12)
13221 s[a] = (s[a]+s[b])%mod; s[d] = rotl(bxor(s[d], s[a]), 8)
13222 s[c] = (s[c]+s[d])%mod; s[b] = rotl(bxor(s[b], s[c]), 7)
13223 return s
13224end
13225
13226local function hashBlock(state, rnd)
13227 local s = {table.unpack(state)}
13228 for i = 1, rnd do
13229 local r = i%2==1
13230 s = r and quarterRound(s, 1, 5, 9, 13) or quarterRound(s, 1, 6, 11, 16)
13231 s = r and quarterRound(s, 2, 6, 10, 14) or quarterRound(s, 2, 7, 12, 13)
13232 s = r and quarterRound(s, 3, 7, 11, 15) or quarterRound(s, 3, 8, 9, 14)
13233 s = r and quarterRound(s, 4, 8, 12, 16) or quarterRound(s, 4, 5, 10, 15)
13234 end
13235 for i = 1, 16 do s[i] = (s[i]+state[i])%mod end
13236 return s
13237end
13238
13239local function LE_toInt(bs, i)
13240 return (bs[i+1] or 0)+
13241 blshift((bs[i+2] or 0), 8)+
13242 blshift((bs[i+3] or 0), 16)+
13243 blshift((bs[i+4] or 0), 24)
13244end
13245
13246local function initState(key, nonce, counter)
13247 local isKey256 = #key == 32
13248 local const = isKey256 and sigma or tau
13249 local state = {}
13250
13251 state[ 1] = LE_toInt(const, 0)
13252 state[ 2] = LE_toInt(const, 4)
13253 state[ 3] = LE_toInt(const, 8)
13254 state[ 4] = LE_toInt(const, 12)
13255
13256 state[ 5] = LE_toInt(key, 0)
13257 state[ 6] = LE_toInt(key, 4)
13258 state[ 7] = LE_toInt(key, 8)
13259 state[ 8] = LE_toInt(key, 12)
13260 state[ 9] = LE_toInt(key, isKey256 and 16 or 0)
13261 state[10] = LE_toInt(key, isKey256 and 20 or 4)
13262 state[11] = LE_toInt(key, isKey256 and 24 or 8)
13263 state[12] = LE_toInt(key, isKey256 and 28 or 12)
13264
13265 state[13] = counter
13266 state[14] = LE_toInt(nonce, 0)
13267 state[15] = LE_toInt(nonce, 4)
13268 state[16] = LE_toInt(nonce, 8)
13269
13270 return state
13271end
13272
13273local function serialize(state)
13274 local r = {}
13275 for i = 1, 16 do
13276 r[#r+1] = band(state[i], 0xFF)
13277 r[#r+1] = band(brshift(state[i], 8), 0xFF)
13278 r[#r+1] = band(brshift(state[i], 16), 0xFF)
13279 r[#r+1] = band(brshift(state[i], 24), 0xFF)
13280 end
13281 return r
13282end
13283
13284local function crypt(data, key, nonce, cntr, round)
13285 assert(type(key) == "table", "ChaCha20: Invalid key format ("..type(key).."), must be table")
13286 assert(type(nonce) == "table", "ChaCha20: Invalid nonce format ("..type(nonce).."), must be table")
13287 assert(#key == 16 or #key == 32, "ChaCha20: Invalid key length ("..#key.."), must be 16 or 32")
13288 assert(#nonce == 12, "ChaCha20: Invalid nonce length ("..#nonce.."), must be 12")
13289
13290 data = type(data) == "table" and {table.unpack(data)} or {tostring(data):byte(1,-1)}
13291 cntr = tonumber(cntr) or 1
13292 round = tonumber(round) or 20
13293
13294 local throttle = Util.throttle()
13295 local out = {}
13296 local state = initState(key, nonce, cntr)
13297 local blockAmt = math.floor(#data/64)
13298 for i = 0, blockAmt do
13299 local ks = serialize(hashBlock(state, round))
13300 state[13] = (state[13]+1) % mod
13301
13302 local block = {}
13303 for j = 1, 64 do
13304 block[j] = data[((i)*64)+j]
13305 end
13306 for j = 1, #block do
13307 out[#out+1] = bxor(block[j], ks[j])
13308 end
13309
13310 throttle()
13311 end
13312 return setmetatable(out, mt)
13313end
13314
13315-- Helper functions
13316local function genNonce(len)
13317 local nonce = {}
13318 for i = 1, len do
13319 nonce[i] = math.random(0, 0xFF)
13320 end
13321 return setmetatable(nonce, mt)
13322end
13323
13324local function encrypt(data, key)
13325 local nonce = genNonce(12)
13326 data = cbor.encode(data)
13327 key = sha2.digest(key)
13328 local ctx = crypt(data, key, nonce, 1, ROUNDS)
13329
13330 return { nonce:toHex(), ctx:toHex() }
13331end
13332
13333local function decrypt(data, key)
13334 local nonce = Util.hexToByteArray(data[1])
13335 data = Util.hexToByteArray(data[2])
13336 key = sha2.digest(key)
13337 local ptx = crypt(data, key, nonce, 1, ROUNDS)
13338 return cbor.decode(tostring(ptx))
13339end
13340
13341local obj = {}
13342local rng_mt = {['__index'] = obj}
13343
13344-- PRNG object
13345local null32 = {("A"):rep(32):byte(1,-1)}
13346local null12 = {("A"):rep(12):byte(1,-1)}
13347function obj:nextInt(byte)
13348 if not byte or byte < 1 or byte > 6 then error("Can only return 1-6 bytes", 2) end
13349 local output = 0
13350 for i = 0, byte-1 do
13351 if #self.block == 0 then
13352 self.cnt = self.cnt + 1
13353 self.block = crypt(null32, self.seed, null12, self.cnt)
13354 end
13355
13356 local newByte = table.remove(self.block)
13357 output = output + (newByte * (2^(8*i)))
13358 end
13359 return output
13360end
13361
13362local function newRNG(seed)
13363 local o = {}
13364 o.seed = seed
13365 o.cnt = 0
13366 o.block = {}
13367
13368 return setmetatable(o, rng_mt)
13369end
13370
13371return {
13372 encrypt = encrypt,
13373 decrypt = decrypt,
13374 newRNG = newRNG,
13375} stolen/16478-25.10.2020.0043/sys/modules/opus/crypto/ecc/fq.lua 0000777 0000000 0000000 00000030256 13745134001 020025 0 ustar -- Fq Integer Arithmetic
13376
13377local unpack = table.unpack
13378
13379local n = 0xffff
13380local m = 0x10000
13381
13382local q = {1372, 62520, 47765, 8105, 45059, 9616, 65535, 65535, 65535, 65535, 65535, 65532}
13383local qn = {1372, 62520, 47765, 8105, 45059, 9616, 65535, 65535, 65535, 65535, 65535, 65532, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
13384
13385local function eq(a, b)
13386 for i = 1, 12 do
13387 if a[i] ~= b[i] then
13388 return false
13389 end
13390 end
13391
13392 return true
13393end
13394
13395local function cmp(a, b)
13396 for i = 12, 1, -1 do
13397 if a[i] > b[i] then
13398 return 1
13399 elseif a[i] < b[i] then
13400 return -1
13401 end
13402 end
13403
13404 return 0
13405end
13406
13407local function cmp384(a, b)
13408 for i = 24, 1, -1 do
13409 if a[i] > b[i] then
13410 return 1
13411 elseif a[i] < b[i] then
13412 return -1
13413 end
13414 end
13415
13416 return 0
13417end
13418
13419local function bytes(x)
13420 local result = {}
13421
13422 for i = 0, 11 do
13423 local m = x[i + 1] % 256
13424 result[2 * i + 1] = m
13425 result[2 * i + 2] = (x[i + 1] - m) / 256
13426 end
13427
13428 return result
13429end
13430
13431local function fromBytes(enc)
13432 local result = {}
13433
13434 for i = 0, 11 do
13435 result[i + 1] = enc[2 * i + 1] % 256
13436 result[i + 1] = result[i + 1] + enc[2 * i + 2] * 256
13437 end
13438
13439 return result
13440end
13441
13442local function sub192(a, b)
13443 local r1 = a[1] - b[1]
13444 local r2 = a[2] - b[2]
13445 local r3 = a[3] - b[3]
13446 local r4 = a[4] - b[4]
13447 local r5 = a[5] - b[5]
13448 local r6 = a[6] - b[6]
13449 local r7 = a[7] - b[7]
13450 local r8 = a[8] - b[8]
13451 local r9 = a[9] - b[9]
13452 local r10 = a[10] - b[10]
13453 local r11 = a[11] - b[11]
13454 local r12 = a[12] - b[12]
13455
13456 if r1 < 0 then
13457 r2 = r2 - 1
13458 r1 = r1 + m
13459 end
13460 if r2 < 0 then
13461 r3 = r3 - 1
13462 r2 = r2 + m
13463 end
13464 if r3 < 0 then
13465 r4 = r4 - 1
13466 r3 = r3 + m
13467 end
13468 if r4 < 0 then
13469 r5 = r5 - 1
13470 r4 = r4 + m
13471 end
13472 if r5 < 0 then
13473 r6 = r6 - 1
13474 r5 = r5 + m
13475 end
13476 if r6 < 0 then
13477 r7 = r7 - 1
13478 r6 = r6 + m
13479 end
13480 if r7 < 0 then
13481 r8 = r8 - 1
13482 r7 = r7 + m
13483 end
13484 if r8 < 0 then
13485 r9 = r9 - 1
13486 r8 = r8 + m
13487 end
13488 if r9 < 0 then
13489 r10 = r10 - 1
13490 r9 = r9 + m
13491 end
13492 if r10 < 0 then
13493 r11 = r11 - 1
13494 r10 = r10 + m
13495 end
13496 if r11 < 0 then
13497 r12 = r12 - 1
13498 r11 = r11 + m
13499 end
13500
13501 local result = {r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, r11, r12}
13502
13503 return result
13504end
13505
13506local function reduce(a)
13507 local result = {unpack(a)}
13508
13509 if cmp(result, q) >= 0 then
13510 result = sub192(result, q)
13511 end
13512
13513 return result
13514end
13515
13516local function add(a, b)
13517 local r1 = a[1] + b[1]
13518 local r2 = a[2] + b[2]
13519 local r3 = a[3] + b[3]
13520 local r4 = a[4] + b[4]
13521 local r5 = a[5] + b[5]
13522 local r6 = a[6] + b[6]
13523 local r7 = a[7] + b[7]
13524 local r8 = a[8] + b[8]
13525 local r9 = a[9] + b[9]
13526 local r10 = a[10] + b[10]
13527 local r11 = a[11] + b[11]
13528 local r12 = a[12] + b[12]
13529
13530 if r1 > n then
13531 r2 = r2 + 1
13532 r1 = r1 - m
13533 end
13534 if r2 > n then
13535 r3 = r3 + 1
13536 r2 = r2 - m
13537 end
13538 if r3 > n then
13539 r4 = r4 + 1
13540 r3 = r3 - m
13541 end
13542 if r4 > n then
13543 r5 = r5 + 1
13544 r4 = r4 - m
13545 end
13546 if r5 > n then
13547 r6 = r6 + 1
13548 r5 = r5 - m
13549 end
13550 if r6 > n then
13551 r7 = r7 + 1
13552 r6 = r6 - m
13553 end
13554 if r7 > n then
13555