Deleted stale code.
This commit is contained in:
Bruce Hill
parent
90b2888d46
commit
6668918b2e
@ -1,150 +0,0 @@
|
|||||||
# This is just a comment
|
|
||||||
#.. Block comments
|
|
||||||
start with a #.. and
|
|
||||||
continue until dedent
|
|
||||||
|
|
||||||
require "lib/core.nom"
|
|
||||||
|
|
||||||
say "foo"
|
|
||||||
|
|
||||||
say (-4 + (1.5 - .25))
|
|
||||||
|
|
||||||
#.. "rule" is just a macro that takes a function call spec and a block of code to run,
|
|
||||||
and stores the function definition
|
|
||||||
rule [fart] =: say "poot"
|
|
||||||
|
|
||||||
# multi-line strings:
|
|
||||||
say ".."
|
|
||||||
| Once upon a time
|
|
||||||
|there was a very
|
|
||||||
|
|
||||||
|
|
||||||
|long string
|
|
||||||
|
|
|
||||||
| with
|
|
||||||
| rather
|
|
||||||
| silly # fake comments and
|
|
||||||
# Real comments look like this
|
|
||||||
| indentation
|
|
||||||
|
|
||||||
| and "quotes"
|
|
||||||
|.." (even fakeouts like that) "
|
|
||||||
|(done)
|
|
||||||
|
|
|
||||||
|^and trailing spaces
|
|
||||||
|
|
|
||||||
|
|
||||||
say "Strings have interpolation: \(1 + 2) <- like that"
|
|
||||||
|
|
||||||
rule [doublefart] =: # this farts twice
|
|
||||||
say "poot"
|
|
||||||
say "poot"
|
|
||||||
|
|
||||||
doublefart
|
|
||||||
|
|
||||||
rule [subex work] =: "subexpressions work"
|
|
||||||
|
|
||||||
say (subex work)
|
|
||||||
|
|
||||||
say (..)
|
|
||||||
subex work
|
|
||||||
|
|
||||||
say ["lists", "work"]
|
|
||||||
|
|
||||||
say []
|
|
||||||
|
|
||||||
say [..]
|
|
||||||
1, 2
|
|
||||||
3
|
|
||||||
|
|
||||||
rule [say both %1 and %2] =:
|
|
||||||
say %1
|
|
||||||
say %2
|
|
||||||
|
|
||||||
say both [..]
|
|
||||||
1,2
|
|
||||||
..and [..]
|
|
||||||
3,4
|
|
||||||
|
|
||||||
|
|
||||||
rule [three] =: 3
|
|
||||||
say both
|
|
||||||
.."a list:"
|
|
||||||
..and [..]
|
|
||||||
1,2,three,4
|
|
||||||
|
|
||||||
if 1: yes
|
|
||||||
..else: no
|
|
||||||
|
|
||||||
if 1 {yes} else {no}
|
|
||||||
|
|
||||||
say (do {return 5})
|
|
||||||
|
|
||||||
# Some variables
|
|
||||||
rule [do %one also %two] =:
|
|
||||||
do %one
|
|
||||||
do %two
|
|
||||||
|
|
||||||
do: say "one liner"
|
|
||||||
..also: say "another one liner"
|
|
||||||
|
|
||||||
say (do {return "wow"})
|
|
||||||
|
|
||||||
say (1 + (-(2 * 3)))
|
|
||||||
|
|
||||||
say (..)
|
|
||||||
2 + (..)
|
|
||||||
3 * 4
|
|
||||||
|
|
||||||
when:
|
|
||||||
* (%x == 1):
|
|
||||||
say "one"
|
|
||||||
* (%x == 2):
|
|
||||||
say "two"
|
|
||||||
* %x:
|
|
||||||
say "nonzero"
|
|
||||||
* else:
|
|
||||||
say "???"
|
|
||||||
|
|
||||||
when %x == ?:
|
|
||||||
* 1:
|
|
||||||
say "one"
|
|
||||||
* 2:
|
|
||||||
say "two"
|
|
||||||
* else:
|
|
||||||
say "???"
|
|
||||||
|
|
||||||
|
|
||||||
if %x:
|
|
||||||
say "one"
|
|
||||||
..else:
|
|
||||||
if %y:
|
|
||||||
say "two"
|
|
||||||
..else:
|
|
||||||
say "three"
|
|
||||||
|
|
||||||
|
|
||||||
say ".."
|
|
||||||
|this is a longstring
|
|
||||||
|
|
|
||||||
| with multiple lines
|
|
||||||
| and an interpolated expression: \2 + 5\
|
|
||||||
|
|
||||||
rule [%n bottles] =:
|
|
||||||
lua do> ".."
|
|
||||||
|print("running raw lua code...")
|
|
||||||
|for i=\(%n),1,-1 do
|
|
||||||
| print(tostring(i).." bottles of beer on the wall. Take one down, pass it around,")
|
|
||||||
|end
|
|
||||||
|print("no more bottles of beer on the wall.")
|
|
||||||
nil
|
|
||||||
9 bottles
|
|
||||||
|
|
||||||
rule [dumsum %nums] =:
|
|
||||||
%sum = 0
|
|
||||||
for %n in %nums:
|
|
||||||
%sum += %n
|
|
||||||
return %sum
|
|
||||||
|
|
||||||
say (dumsum [1,2,3])
|
|
||||||
|
|
||||||
@ -1,287 +0,0 @@
|
|||||||
require "lib/core.nom"
|
|
||||||
require "lib/permissions.nom"
|
|
||||||
require "lib/secrets.nom"
|
|
||||||
require "lib/plurals.nom"
|
|
||||||
|
|
||||||
# Users:
|
|
||||||
with secrets:
|
|
||||||
secret %users = (..)
|
|
||||||
=lua ".."
|
|
||||||
|setmetatable({}, {__index={
|
|
||||||
| by_name=function(self, key) return "User<"..key..">"; end,
|
|
||||||
| add=function(self, key) self[key] = self:by_name(key); end,
|
|
||||||
|}})
|
|
||||||
rule [find user %name, @%name] =:
|
|
||||||
=lua "secrets.users:by_name(vars.name) or nomsu:error('Failed to find user: '..tostring(vars.name))"
|
|
||||||
rule [add user %name] =:
|
|
||||||
=lua "secrets.users:add(vars.name)"
|
|
||||||
rule [everybody, everyone] =:
|
|
||||||
(%entry's "key") for %entry in (entries in (secret %users))
|
|
||||||
|
|
||||||
rule [rules that change users] =: ["add user %"]
|
|
||||||
|
|
||||||
# Inventory:
|
|
||||||
with secrets:
|
|
||||||
secret %inventory = (..)
|
|
||||||
=lua ".."
|
|
||||||
|setmetatable({}, {__index=function(self,key)
|
|
||||||
| local t = setmetatable({}, {__index=function() return 0; end});
|
|
||||||
| self[key] = t;
|
|
||||||
| return t;
|
|
||||||
|end});
|
|
||||||
|
|
||||||
rule [inventory] =: dict (..)
|
|
||||||
[%inv's "key", dict (%entry for %entry in (entries in (%inv's "value")))]
|
|
||||||
..for %inv in (entries in (secret %inventory))
|
|
||||||
|
|
||||||
rule [%person's inventory] =:
|
|
||||||
dict (%entry for %entry in (entries in ((secret %inventory)->%person)))
|
|
||||||
|
|
||||||
rule [%person's stock of %item] =:
|
|
||||||
%item = (canonicalize %item)
|
|
||||||
(((secret %inventory) -> %person) -> %item)
|
|
||||||
|
|
||||||
rule [%person's stock of %item as str] =:
|
|
||||||
%item = (canonicalize %item)
|
|
||||||
%count = (%person's stock of %item)
|
|
||||||
"\(%count) \((singular %item) if (%count == 1) else (plural %item))"
|
|
||||||
|
|
||||||
rule [give %person %count %item] =:
|
|
||||||
%item = (canonicalize %item)
|
|
||||||
(((secret %inventory) -> %person) -> %item) += %count
|
|
||||||
|
|
||||||
rule [give %person %count %item from %donor] =:
|
|
||||||
%item = (canonicalize %item)
|
|
||||||
if ((%donor's stock of %item) < %count):
|
|
||||||
say ".."
|
|
||||||
|\(%donor) does not have enough \(%item) to transfer
|
|
||||||
..else:
|
|
||||||
(((secret %inventory) -> %person) -> %item) += %count
|
|
||||||
(((secret %inventory) -> %donor) -> %item) -= %count
|
|
||||||
|
|
||||||
rule [%person has %item, %person has a %item, %person has an %item] =:
|
|
||||||
(%person's stock of %item) > 0
|
|
||||||
|
|
||||||
rule [rules that change the inventory] =: [..]
|
|
||||||
"give % % %", "give % % % from %"
|
|
||||||
|
|
||||||
rule [rules that view the inventory] =: [..]
|
|
||||||
"inventory", "%'s inventory", "%'s stock of %", "%'s stock of % as str"
|
|
||||||
|
|
||||||
rule [you] =:
|
|
||||||
=lua "(nomsu.you or 'Anonymous')"
|
|
||||||
|
|
||||||
rule [make %person %action, make %person do %action] =:
|
|
||||||
lua> ".."
|
|
||||||
|local old_you = nomsu.you
|
|
||||||
|nomsu.you = vars.person
|
|
||||||
do %action
|
|
||||||
lua> ".."
|
|
||||||
|nomsu.you = old_you
|
|
||||||
|
|
||||||
say "===================================================="
|
|
||||||
say " NEW GAME"
|
|
||||||
say "===================================================="
|
|
||||||
|
|
||||||
# Unanimity for proposals
|
|
||||||
with secrets:
|
|
||||||
rule [pending proposal] =:
|
|
||||||
secret %pending
|
|
||||||
|
|
||||||
rule [propose source %src] =:
|
|
||||||
if (secret %pending):
|
|
||||||
error "A proposal is already pending."
|
|
||||||
secret %pending = %src
|
|
||||||
secret %approvals = []
|
|
||||||
say ".."
|
|
||||||
|\(underscore)\(yellow)Proposal:\(reset color)
|
|
||||||
|\(bright)\(blue)\(%src)\(reset color)
|
|
||||||
|
|
||||||
parse [propose %action] as:
|
|
||||||
propose source (..)
|
|
||||||
source code from tree \%action
|
|
||||||
|
|
||||||
rule [with everyone's approval do %action] =:
|
|
||||||
run %action
|
|
||||||
|
|
||||||
rule [mark %who as approving] =:
|
|
||||||
if (not (pending proposal)):
|
|
||||||
say "No action pending"
|
|
||||||
return
|
|
||||||
|
|
||||||
(secret %approvals)-> %who = (yes)
|
|
||||||
|
|
||||||
# Check for uncounted votes:
|
|
||||||
for %user in (everybody):
|
|
||||||
if (not ((secret %approvals)->%user)):
|
|
||||||
return
|
|
||||||
|
|
||||||
# No one dissents
|
|
||||||
with everyone's approval do (pending proposal)
|
|
||||||
secret %pending = (nil)
|
|
||||||
secret %approvals = (nil)
|
|
||||||
|
|
||||||
rule [mark %who as rejecting] =:
|
|
||||||
secret %pending = (nil)
|
|
||||||
secret %approvals = (nil)
|
|
||||||
|
|
||||||
rule [approve, vote yes, vote yea] =:
|
|
||||||
mark (you) as approving
|
|
||||||
|
|
||||||
rule [reject, vote no, vote nay, veto, disapprove] =:
|
|
||||||
mark (you) as rejecting
|
|
||||||
|
|
||||||
restrict "with everyone's approval do %" to within "mark % as approving"
|
|
||||||
restrict "mark % as approving" to within "approve"
|
|
||||||
restrict "mark % as rejecting" to within "reject"
|
|
||||||
|
|
||||||
rule [join] =:
|
|
||||||
add user (you)
|
|
||||||
say ".."
|
|
||||||
|\(on yellow)\(black)Welcome to the game, \(you)!\(reset color)
|
|
||||||
|
|
||||||
restrict (rules that change users) to within "join"
|
|
||||||
|
|
||||||
restrict (..)
|
|
||||||
flatten [..]
|
|
||||||
["rule % = %", "make % %", "restrict % to within %"]
|
|
||||||
(rules that change the inventory)
|
|
||||||
..to within "with everyone's approval do %"
|
|
||||||
say "Rule making is now restricted"
|
|
||||||
|
|
||||||
join
|
|
||||||
|
|
||||||
propose:
|
|
||||||
say "Hello world"
|
|
||||||
approve
|
|
||||||
|
|
||||||
propose:
|
|
||||||
say "Hello world again"
|
|
||||||
approve
|
|
||||||
|
|
||||||
propose:
|
|
||||||
give "democracy" 1 "possibility"
|
|
||||||
if ("democracy" has "possibility"):
|
|
||||||
say "DEMOCRACY WORKS!!!"
|
|
||||||
..else:
|
|
||||||
say "democracy has failed :("
|
|
||||||
approve
|
|
||||||
|
|
||||||
propose:
|
|
||||||
rule [fart] =:
|
|
||||||
say "poot"
|
|
||||||
say "fart should have been defined"
|
|
||||||
approve
|
|
||||||
say "doop"
|
|
||||||
fart
|
|
||||||
|
|
||||||
propose:
|
|
||||||
with secrets:
|
|
||||||
rule [open election %candidates %action] =:
|
|
||||||
if (secret %candidates):
|
|
||||||
error "An election is already in progress."
|
|
||||||
..else:
|
|
||||||
secret %candidates = %candidates
|
|
||||||
secret %votes = []
|
|
||||||
secret %action = %action
|
|
||||||
secret %winner = (nil)
|
|
||||||
|
|
||||||
rule [close the election] =:
|
|
||||||
secret %candidates = (nil)
|
|
||||||
secret %votes = (nil)
|
|
||||||
secret %action = (nil)
|
|
||||||
secret %winner = (nil)
|
|
||||||
|
|
||||||
rule [votes for %candidate] =:
|
|
||||||
%votes = []
|
|
||||||
for %entry in (entries in (secret %votes)):
|
|
||||||
if ((%entry's "value") == %candidate):
|
|
||||||
add (%entry's "key") to %votes
|
|
||||||
%votes
|
|
||||||
|
|
||||||
rule [after winning a fair election do %action] =:
|
|
||||||
do %action
|
|
||||||
|
|
||||||
rule [the winner] =: secret %winner
|
|
||||||
|
|
||||||
rule [vote for %candidate] =:
|
|
||||||
for %c in (secret %candidates):
|
|
||||||
if (%c == %candidate):
|
|
||||||
go to %candidate_is_legit
|
|
||||||
error ".."
|
|
||||||
|Invalid candidate: \(%candidate)
|
|
||||||
-> %candidate_is_legit
|
|
||||||
|
|
||||||
(secret %votes)->(you) =: %candidate
|
|
||||||
%vote_percent = ((number of (votes for %candidate)) / (number of (everyone)))
|
|
||||||
say ".."
|
|
||||||
|Vote cast. \(%candidate) now has \(100 * %vote_percent)% of the votes.
|
|
||||||
if (%vote_percent > 0.5):
|
|
||||||
secret %winner = %candidate
|
|
||||||
after winning a fair election do (secret %action)
|
|
||||||
close the election
|
|
||||||
|
|
||||||
rule [rules that change the election] =: [..]
|
|
||||||
"open election %", "close the election", "vote for %"
|
|
||||||
|
|
||||||
rule [rules that view the election] =: [..]
|
|
||||||
"votes for %"
|
|
||||||
|
|
||||||
approve
|
|
||||||
|
|
||||||
propose:
|
|
||||||
rule [as bill %action] =:
|
|
||||||
if ((you) == "Anonymous"):
|
|
||||||
make "bill" do %action
|
|
||||||
..else:
|
|
||||||
say ".."
|
|
||||||
|Who do you think you are, \(you)?
|
|
||||||
allow ["as bill %"] to use ["make % %"]
|
|
||||||
approve
|
|
||||||
as bill: join
|
|
||||||
|
|
||||||
propose:
|
|
||||||
rule [as dave %action] =:
|
|
||||||
if ((you) == "Anonymous"):
|
|
||||||
make "dave" do %action
|
|
||||||
..else:
|
|
||||||
say ".."
|
|
||||||
|Who do you think you are, \(you)?
|
|
||||||
allow ["as dave %"] to use ["make % %"]
|
|
||||||
approve
|
|
||||||
as bill: approve
|
|
||||||
as dave: join
|
|
||||||
|
|
||||||
propose:
|
|
||||||
rule [declare war] =: say "\(red)WAR!!!\(reset color)"
|
|
||||||
with secrets:
|
|
||||||
secret %president = (nil)
|
|
||||||
rule [elect president from %candidates] =:
|
|
||||||
open election %candidates:
|
|
||||||
say ".."
|
|
||||||
|Hail to the chief: \(the winner)
|
|
||||||
secret %president = (the winner)
|
|
||||||
|
|
||||||
rule [as the president do %action] =: do %action
|
|
||||||
|
|
||||||
restrict "declare war" to within "as the president do %"
|
|
||||||
approve
|
|
||||||
as bill: approve
|
|
||||||
as dave: approve
|
|
||||||
|
|
||||||
elect president from ["tom", "dick", "harry"]
|
|
||||||
vote for "dick"
|
|
||||||
as bill: vote for "dick"
|
|
||||||
as dave:
|
|
||||||
as the president do:
|
|
||||||
declare war
|
|
||||||
|
|
||||||
propose:
|
|
||||||
rule [take a shit] =: say "shit taken."
|
|
||||||
|
|
||||||
approve
|
|
||||||
as bill: approve
|
|
||||||
as dave: approve
|
|
||||||
take a shit
|
|
||||||
say "Done."
|
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user