chr15m / flk Goto Github PK

stdin doesnt read to EOF. only till end of first form

$ cat test.flk 
(println "Hello world!") (println "Hostname:" (sh* "hostname")))

$ ./flk test.flk 
Hello world!
Hostname: vash

$ cat test.flk | ./flk 
Hello world!

$ echo "(do $(cat test.flk))" | ./flk 
Hello world!
Hostname: vash

Ensure it's possible to download the release link via curl first.

👋

Tried the following and couldn't get it to run:

#!/usr/bin/env flk
(println "hello world")

$ ./test.clj
$

Currently looking into what we should do to make this work 🤔

In interactive mode errors are thrown:

$ ./flk
Fleck
user> (bleep bloop)
Error: "'bleep' not found"

In non-interactive mode they are not:

$ cat test.clj 
(bleep bloop)
$ ./flk test.clj
[ no output ]

Given a file called core-fns.txt containing strings like this:

 [hello]=hello
 [something]=something

The following invocation fails to capture the [hello]:

(sh* "grep -oE '.*\]' core-fns.txt")

Internally the asterisk is escaped into __STAR__ and passed through to bash. The following behaves in an identical way:

(sh* "grep -oE '.__STAR__\]' core-fns.txt")

@kanaka I know it's been a long time since you looked at this but if you have any hints off the top if your head how a user can get around this to pass an asterisk do let me know.

Use dc because it's generally present everywhere, even in old busybox distributions.

Example call: (calc '+ 5 5 5 5) translates to dc <<< '5 5 + 5 + 5 + p'.

➜  bin flk                                                            
Fleck
user> ({:foo "bar"} :foo)
/home/dan/bin/flk: line 1359: __5bal7_hmap_572: command not found
(:foo)
user> (:foo {})
/home/dan/bin/flk: line 1359: ʞfoo: command not found
({})
user> (:foo {:foo :bar})
/home/dan/bin/flk: line 1359: ʞfoo: command not found
({:foo :bar})
user>

Am I doing something wrong?

Not only is there no "range" function implemented directly, I can't even use (sh* "seq 10") to get a number range to do stuff like pinging a IP Range.

because of the use of declare -A

https://wiki-dev.bash-hackers.org/bash4

Hi!

I have and maintain a number of bash scripts to do multiple tasks around a dev infrastructure.
I was quite excited when I saw fleck because it gave me hope to finally use a decent language and still benefit from not needing to install anything specific to run my scripts on a target machine.

Now.. My scripts need CLI arguments, like deploy -on target_machine some_project. But I can't seem to understand how a fleck script would get those CLI args...

Imagining the contrived example of a sillyecho script, what I was looking for was something like:

#!/usr/bin/env flk

(map (fn [l] (println l)) ARGV)

Where ARGV would be some construct that would give me the arguments from the CLI.

This would be invoked like: sillyecho One Two Three
And would output:

One
Two
Three

Is this possible?
If not, could this be added in?

Thanks!

Fixed in kanaka/mal#471

Hi! Nice project!

Some suggestions, though (maybe I'll work on some of them sometime):

• add tests + CI pipeline
• stop versioning the flk file and use github releases instead
• split flk into a sourceable file + bin entrypoint: I would like to reuse flk's data structure implementations in my existing bash scripts, for example, but flk has code that is run outside functions (autorun when sourced)
• add an flk --eval option
• add formula to brew

WDYT?

There is a good way to serialize and deserialize variables... I build a pmap code and it runs creating a subshell and eval... the result is save in /dev/shm/<key> and I need to save it save and back the values

_pmap_with_type () {
    local constructor="${1}"; shift
    local f="${1}"; shift
    local items="${ANON["${1}"]}"; shift

    # core count
    local cores=0
    while read -r line; do
        if [[ "$line" =~ "processor" ]]; then
            ((cores++))
        fi
    done < "/proc/cpuinfo"

    # create id for shared memory
    time_ms; local pmap_id="${ANON["${r}"]}"

    eval "${constructor}"; local new_seq="${r}"

    local index=0
    for v in ${items}; do        
        (
            eval ${f%%@*} "${v}" "${@}" 
            [[ "${__ERROR}" ]] && r= && return 1;

            # send result to shared memory
            echo "${index} ${r} \"${ANON["${r}"]}\"" >> "/dev/shm/pmap_${pmap_id}"
        ) &

        ((index++))
        
        # threads = cores + 1
        if [[ $(jobs -r -p | wc -l) -gt $cores ]]; then
            wait -n
        fi
    done

    # wait for inital threads
    wait
    
    while  IFS= read -r line; do
        declare -a _array_line="(${line})"

        _obj_type "${_array_line[1]}"
        eval "_${r}" "${_array_line[2]}"
        _conj! "${new_seq}" "${r}";

    done < <(sort -n "/dev/shm/pmap_${pmap_id}")
    rm "/dev/shm/pmap_${pmap_id}"

    r="${new_seq}"
}

The result of code execution:

(1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946 17711 28657 46368 75025 121393 196418 317811 514229 832040 1346269 2178309 3524578 5702887 9227465 14930352 24157817 39088169 63245986 102334155 165580141 267914296 433494437 701408733 1134903170 1836311903 2971215073 4807526976 7778742049 12586269025 20365011074 32951280099 53316291173 86267571272 139583862445 225851433717 365435296162 591286729879 956722026041 1548008755920)


 pmap 8138 ms
(1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946 17711 28657 46368 75025 121393 196418 317811 514229 832040 1346269 2178309 3524578 5702887 9227465 14930352 24157817 39088169 63245986 102334155 165580141 267914296 433494437 701408733 1134903170 1836311903 2971215073 4807526976 7778742049 12586269025 20365011074 32951280099 53316291173 86267571272 139583862445 225851433717 365435296162 591286729879 956722026041 1548008755920)


 map 32914 ms

I'm running OSX catalina... and getting the following errors:
$ bash --version
GNU bash, version 3.2.57(1)-release (x86_64-apple-darwin19)
Copyright (C) 2007 Free Software Foundation, Inc.
$ ./flk
./flk: line 9: declare: -A: invalid option
declare: usage: declare [-afFirtx] [-p] [name[=value] ...]
./flk: line 1089: syntax error near unexpected token <' ./flk: line 1089: [<]=num_lt'
./flk: line 1090: =]=num_lte: No such file or directory
./flk: line 1091: [: missing ]' ./flk: line 1092: [: missing ]'
./flk: line 1093: [+]=num_plus: command not found
./flk: line 1094: [-]=num_minus: command not found
./flk: line 1095: [STAR]=num_multiply: command not found
./flk: line 1096: [/]=num_divide: No such file or directory
./flk: line 1097: [time-ms]=time_ms: command not found
./flk: line 1099: [list]=_list: command not found
./flk: line 1100: [list?]=list?: command not found
./flk: line 1101: [vector]=_vector: command not found
./flk: line 1102: [vector?]=vector?: command not found
./flk: line 1103: [hash-map]=_hash_map: command not found
./flk: line 1104: [map?]=hash_map?: command not found
./flk: line 1105: [assoc]=assoc: command not found
./flk: line 1106: [dissoc]=dissoc: command not found
./flk: line 1107: [get]=get: command not found
./flk: line 1108: [contains?]=contains?: command not found
./flk: line 1109: [keys]=keys: command not found
./flk: line 1110: [vals]=vals: command not found
./flk: line 1112: [sequential?]=sequential?: command not found
./flk: line 1113: [cons]=cons: command not found
./flk: line 1114: [concat]=concat: command not found
./flk: line 1115: [nth]=nth: command not found
./flk: line 1116: [first]=_first: command not found
./flk: line 1117: [rest]=_rest: command not found
./flk: line 1118: [empty?]=empty?: command not found
./flk: line 1119: [count]=count: command not found
./flk: line 1120: [apply]=apply: command not found
./flk: line 1121: [map]=map: command not found
./flk: line 1123: [conj]=conj: command not found
./flk: line 1124: [seq]=seq: command not found
./flk: line 1126: [with-meta]=with_meta: command not found
./flk: line 1127: [meta]=meta: command not found
./flk: line 1128: [atom]=_atom: command not found
./flk: line 1129: [atom?]=atom?: command not found
./flk: line 1130: [deref]=deref: command not found
./flk: line 1131: [reset!]=reset_BANG: command not found
./flk: line 1132: syntax error near unexpected token )' ./flk: line 1132: [swap!]=swap_BANG)'

cat examples/ip-addresses.clj | ./flk

Thanks to @shinohai for flagging this.

I see upstream mal is MPL-2.0 (at that, the GPL-incompatible flavor thereof), but given that MPL is file-level copyleft, I can't use that to make assumptions about flk's license. If you could throw a LICENSE or COPYING file in the tree and tag a new version, that would be awesome (otherwise, it's not safe to use, or to package in Linux distros, Brew, etc.)

When attempting to compile a script using the Makefile example in README:
make DEST=wow INSERT=./wow.clj NOREPL=1 I get the following error:
"./flk: line 1510: warning: here-document at line 1431 delimited by end-of-file (wanted `INLINEMALFILE')"

I am using GNU bash, version 4.4.23(1)-release (x86_64-pc-linux-gnu)

I will keep plugging away at it to see if I can find a cause, but perhaps a reader can shed light on this for me.

Leave a reply below if you have run any code on Fleck. I'd love to hear about your experience.

(sh! 'ping ["goober.com"]) should result in (error-code stdout-result stderr-result).