Digital Mark λ ☕️ 🕹 👽

Digital Mark λ ☕️ 🕹 👽

3 weeks ago • •

Digital Mark λ ☕️ 🕹 👽
3 weeks ago • •

I need to do more sysadmin shit. Probably do that in a few hours.

But I also really do need a nicer scripting thing. I don't want to write front-end scripts, like game spells or mob AI, in JS.

I'm considering reviving my old Aspic Lisp-like. Original's Obj-C (mostly C), this'd be JS. It has a nice file of unit tests in itself.

#decemberAdventure

#decemberadventure

in reply to Digital Mark λ ☕️ 🕹 👽

Ramin Honary

in reply to Digital Mark λ ☕️ 🕹 👽 • 3 weeks ago • •

what do you think of LIPS Scheme? I haven’t used it for anything yet, but I am pretty impressed with it from the documentation.

Powerful Scheme interpreter in JavaScript | LIPS Scheme

Powerful Scheme based Lisp in JavaScript

^lips.js.org

This entry was edited (3 weeks ago)

in reply to Digital Mark λ ☕️ 🕹 👽

Digital Mark λ ☕️ 🕹 👽

in reply to Digital Mark λ ☕️ 🕹 👽 • 3 weeks ago • •

Got it to tokenize, parse, and eval (a single function):
$\o/$

[[Log] tokens="line comment"
(
display
"hello, world!
"
)
[Log] program=line comment
display,hello, world!
[Log] RUN: line comment
[Log] RUN: display,hello, world!
[Log] eval display,hello, world!
[Log] evalArg hello, world!
[Log] display: hello, world!
[Log] hello, world! (aspic.js, line 119)

Am I good? I'm OK. Did past Mark (ca.2009) kick all available ass? YES.

Gotta write all the rest of the primitives.
#aspic #lisp #cyberhole

#lisp #cyberhole #aspic

in reply to Digital Mark λ ☕️ 🕹 👽

Digital Mark λ ☕️ 🕹 👽

in reply to Digital Mark λ ☕️ 🕹 👽 • 3 weeks ago • •

6 hours + 24 oz of coffee = working Lisp-y able to sing 99 Bottles of Beer.

(still have a dozen more primitives, then it's done)

#cyberhole #lisp #aspic

; 99 Bottles of Beer on the Wall

(define (bottles n) (begin
(cond
((eq n 0) (str "no bottles"))
((eq n 1) (str "one bottle"))
(1 (str n " bottles"))
)
))

(define (beer n) (begin
(display (bottles n) " of beer on the wall, " (bottles n) " of beer!\n")
(display "Take one down, pass it around, " (bottles (sub n 1)) " of beer on the wall!\n")
(sub n 1)
))

(define (beersong nbeers) (begin
(while nbeers
(set nbeers (beer nbeers))
)
(display "No more bottles of beer on the wall!\n")
))

(beersong 10)

[Log] RUN: beersong,10
[Log] 10 bottles of beer on the wall, 10 bottles of beer!
[Log] Take one down, pass it around, 9 bottles of beer on the wall!
[Log] 9 bottles of beer on the wall, 9 bottles of beer!
[Log] Take one down, pass it around, 8 bottles of beer on the wall!
[Log] 8 bottles of beer on the wall, 8 bottles of beer!
[Log] Take one down, pass it around, 7 bottles of beer on the wall!
[Log] 7 bottles of beer on the wall, 7 bottles of beer!
[Log] Take one down, pass it around, 6 bottles of beer on the wall!
[Log] 6 bottles of beer on the wall, 6 bottles of beer!
[Log] Take one down, pass it around, 5 bottles of beer on the wall!
[Log] 5 bottles of beer on the wall, 5 bottles of beer!
[Log] Take one down, pass it around, 4 bottles of beer on the wall!
[Log] 4 bottles of beer on the wall, 4 bottles of beer!
[Log] Take one down, pass it around, 3 bottles of beer on the wall!
[Log] 3 bottles of beer on the wall, 3 bottles of beer!
[Log] Take one down, pass it around, 2 bottles of beer on the wall!
[Log] 2 bottles of beer on the wall, 2 bottles of beer!
[Log] Take one down, pass it around, one bottle of beer on the wall!
[Log] one bottle of beer on the wall, one bottle of beer!
[Log] Take one down, pass it around, no bottles of beer on the wall!
[Log] No more bottles of beer on the wall!

#lisp #cyberhole #aspic

in reply to Digital Mark λ ☕️ 🕹 👽

Digital Mark λ ☕️ 🕹 👽

in reply to Digital Mark λ ☕️ 🕹 👽 • 3 weeks ago • •

It's interesting just how close Objective-C 1.0/1.1 was to JavaScript. A lot of the gritty code just copy-paste and works, as long as you remember to turn [foo message:bar] into foo.message(bar) and change ls.count to ls.length (which tripped me a few times). The object model's different, but you'll never notice in normal work.

Once the whip-me-beat-me C++ freaks started littering Obj-C with a bunch of type-shit, it got harder.
#objectivec #objc #javascript

#javascript #ObjectiveC #objc

in reply to Digital Mark λ ☕️ 🕹 👽

Digital Mark λ ☕️ 🕹 👽

in reply to Digital Mark λ ☕️ 🕹 👽 • 3 weeks ago • •

First update of Aspic

ON THE CYBERHOLE

cyberhole.online/aspic/

Read your browser console to see it doing stuff. I'll make it more packageable when I finish up tomorrow.

And phlog post as usual:

cyberhole.online

#cyberhole #lisp #gopher

Aspic

^{cyberhole.online}

#lisp #gopher #cyberhole

in reply to Digital Mark λ ☕️ 🕹 👽

Digital Mark λ ☕️ 🕹 👽

in reply to Digital Mark λ ☕️ 🕹 👽 • 3 weeks ago • •

I'm trying to make a logo for Aspic (lisp-y), so I can move on to the next task. Image search of aspic (food) is less helpful. There's of course a ton of mid-century misuses, a few cute pics of aspic desserts.

Hm. I don't really want to buy photos on shutterstock, but that may be the option? Where else do people get royalty-free pictures of random subjects?
#aspic

#aspic

in reply to Digital Mark λ ☕️ 🕹 👽

Joshua Thayer

in reply to Digital Mark λ ☕️ 🕹 👽 • 3 weeks ago • •

Lots of flickr content is CC licensed

in reply to Digital Mark λ ☕️ 🕹 👽

Digital Mark λ ☕️ 🕹 👽

in reply to Digital Mark λ ☕️ 🕹 👽 • 3 weeks ago • •

So I cobbled something together from free vector images. Yay. It is a *minefield* of fucking AI and other spam out there.

Also realized I don't have an icon for TinyBasicWeb. That's easier & harder: It should be an 8-bit screen. I can make one on my (emulated) Atari! Rainbow but like, not intentionally stepping on Pride, check.

Drawing tiny text: Too small. Well, I'll just plot pixels from memory: OH HA HA right, memory is not in ATASCII order. I'll get it.
#aspic #cyberhole #retrocomputing