find-calls.janet demo

gistfile1.txt

$ janet find-calls.janet file/write ~/src/git-some-janets/repos
/home/user/src/git-some-janets/repos/codeberg.org/amano.kenji/j3blocks/j3blocks/modules/cmd.janet:
  (file/write stderr (string $ "\n"))
/home/user/src/git-some-janets/repos/codeberg.org/veqq/deforester/deforester.janet:
  (file/write f (time-string) " " data "\n")
  (file/write f data "," "\n")
/home/user/src/git-some-janets/repos/git.sr.ht/~nullevoid/jermbox/examples/example.janet:
  (file/write stdout (string/from-bytes (jermbox/event-character env)))
/home/user/src/git-some-janets/repos/git.sr.ht/~subsetpark/bagatto/demo/vendoring/janet_modules/tester.janet:
  (file/write stdout "\n\e[31mx\e[0m ")
/home/user/src/git-some-janets/repos/git.sr.ht/~maxgyver83/emailbook-janet/emailbook.janet:
  (file/write f (string line "\n"))
  (file/write f (string mailbox-sanitized "\n"))
/home/user/src/git-some-janets/repos/git.sr.ht/~bakpakin/jvk/bundle/sh.janet:
  (file/write dst bytes)
/home/user/src/git-some-janets/repos/git.sr.ht/~alect/camp-wanna-tya-knot/make-jaylib-janet-shim.janet:
  (file/write jjf
                    (string "(def " cf " " cf ")\n"))
search failed for: /home/user/src/git-some-janets/repos/notabug.org/debris/collider-janet/example_guess.janet
/home/user/src/git-some-janets/repos/notabug.org/debris/lllm-janet/src/main.janet:
  (file/write f str)
/home/user/src/git-some-janets/repos/github.com/saikyun/freja/freja/file-handling.janet:
  (file/write f (-> props
                      commit!
                      (get :text)))
/home/user/src/git-some-janets/repos/github.com/saikyun/freja/freja/checkpoint.janet:
  (file/write f content)
/home/user/src/git-some-janets/repos/github.com/saikyun/janet-find-in-files/replace_in_files.janet:
  (file/write f result)
  (file/write f new-content)
search failed for: /home/user/src/git-some-janets/repos/github.com/saikyun/text-experiment/src/lul.janet
/home/user/src/git-some-janets/repos/github.com/saikyun/text-experiment/src/text_api.janet:
  (file/write f (marshal props))
/home/user/src/git-some-janets/repos/github.com/saikyun/text-experiment/src/file_handling.janet:
  (file/write f (-> props
                      commit!
                      (get :text)))
/home/user/src/git-some-janets/repos/github.com/pepe/jesty/test/helper.janet:
  (file/write stdout "\e[32m✔\e[0m")
  (file/write stdout "\n\e[31m✘\e[0m  ")
/home/user/src/git-some-janets/repos/github.com/pepe/smw/jpm_tree/lib/spork/sh.janet:
  (file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/pepe/deviman/deviman/init.janet:
  (file/write f (make-image store))
  (file/write f (marshal [time entry]))
/home/user/src/git-some-janets/repos/github.com/joy-framework/bundler/src/bundler.janet:
  (file/write f contents)
/home/user/src/git-some-janets/repos/github.com/joy-framework/tester/src/tester.janet:
  (file/write stdout "\n\e[31mx\e[0m ")
/home/user/src/git-some-janets/repos/github.com/joy-framework/db/src/db/helper.janet:
  (file/write f content)
/home/user/src/git-some-janets/repos/github.com/joy-framework/joy/src/joy/cli/controller.janet:
  (file/write f route-string)
  (file/write f1 new-main)
/home/user/src/git-some-janets/repos/github.com/joy-framework/joy/src/joy/cli/migrations.janet:
  (file/write f
        (string "-- up\n" (or up "") "\n\n-- down\n" (or down "")))
/home/user/src/git-some-janets/repos/github.com/joy-framework/joy/src/joy/cli/route.janet:
  (file/write f new-pages)
  (file/write f1 new-main)
/home/user/src/git-some-janets/repos/github.com/joy-framework/joy/src/joy/http.janet:
  (file/write temp-file body)
/home/user/src/git-some-janets/repos/github.com/joy-framework/joy/src/joy/helper.janet:
  (file/write f)
/home/user/src/git-some-janets/repos/github.com/janet-lang/spork/spork/declare-cc.janet:
  (file/write out "#include <stddef.h>\n\nstatic const unsigned char bytes[] = {")
  (file/write out buf)
  (file/write out "};\n\n"
                "const unsigned char * const " name "_embed = bytes;\n"
                "const size_t " name "_embed_size = sizeof(bytes);\n")
/home/user/src/git-some-janets/repos/github.com/janet-lang/spork/spork/sh.janet:
  (file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/janet-lang/jpm/jpm/cc.janet:
  (file/write out
              "#include <janet.h>\n"
              "static const unsigned char bytes[] = {"
              (string/join (interpose ", " chunks))
              "};\n\n"
              "const unsigned char *" name "_embed = bytes;\n"
              "size_t " name "_embed_size = sizeof(bytes);\n")
/home/user/src/git-some-janets/repos/github.com/janet-lang/janet/src/boot/boot.janet:
  (file/write f contents)
  (file/write fto b)
  (file/write stdout prompt)
/home/user/src/git-some-janets/repos/github.com/janet-lang/janet/test/suite-io.janet:
  (file/write f "foo\n")
/home/user/src/git-some-janets/repos/github.com/janet-lang/janet/examples/life.janet:
  (file/write stdout (if (get cellset [x y]) "X " ". "))
/home/user/src/git-some-janets/repos/github.com/ianthehenry/to-do/src/main.janet:
  (file/write f (string/format "- [%s] %s\n" (print-state state) text))
/home/user/src/git-some-janets/repos/github.com/Ruin0x11/janet-shiori/shiori.janet:
  (file/write log str)
/home/user/src/git-some-janets/repos/github.com/volodymyrpukha/smw/jpm_tree/lib/spork/sh.janet:
  (file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/cendyne/image-processor/src/main.janet:
  (file/write tempfile (codec/decode (get data "image")))
  (file/write f output-value)
/home/user/src/git-some-janets/repos/github.com/Holmqvist1990/choosing-a-scripting-language/janet/pcm_db.janet:
  (file/write (json/encode db)
      (file/flush)
      (file/close))
/home/user/src/git-some-janets/repos/github.com/pyrmont/markable/bundle/spork/declare-cc.janet:
  (file/write out "#include <stddef.h>\n\nstatic const unsigned char bytes[] = {")
  (file/write out buf)
  (file/write out "};\n\n"
                "const unsigned char * const " name "_embed = bytes;\n"
                "const size_t " name "_embed_size = sizeof(bytes);\n")
/home/user/src/git-some-janets/repos/github.com/pyrmont/markable/bundle/spork/sh.janet:
  (file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/pyrmont/predoc/bundle/spork/declare-cc.janet:
  (file/write out "#include <stddef.h>\n\nstatic const unsigned char bytes[] = {")
  (file/write out buf)
  (file/write out "};\n\n"
                "const unsigned char * const " name "_embed = bytes;\n"
                "const size_t " name "_embed_size = sizeof(bytes);\n")
/home/user/src/git-some-janets/repos/github.com/pyrmont/predoc/bundle/spork/sh.janet:
  (file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/pyrmont/predoc/test/executable.janet:
  (file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/pyrmont/jeep/res/helpers/util.janet:
  (file/write dest-file bytes)
/home/user/src/git-some-janets/repos/github.com/pyrmont/jeep/lib/util.janet:
  (file/write f s)
/home/user/src/git-some-janets/repos/github.com/pyrmont/jeep/deps/spork/spork/declare-cc.janet:
  (file/write out "#include <stddef.h>\n\nstatic const unsigned char bytes[] = {")
  (file/write out buf)
  (file/write out "};\n\n"
                "const unsigned char * const " name "_embed = bytes;\n"
                "const size_t " name "_embed_size = sizeof(bytes);\n")
/home/user/src/git-some-janets/repos/github.com/pyrmont/jeep/deps/spork/spork/sh.janet:
  (file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/pyrmont/bencodobi/test/iostream.janet:
  (file/write file "hello")
/home/user/src/git-some-janets/repos/github.com/pyrmont/remarkable/tools/make-entities.janet:
  (file/write dest "(def entity-map\n  {\n")
  (file/write dest indent)
  (file/write dest (string/format "%j %j\n" k (get-chars mappings k)))
  (file/write dest "})")
  (file/write dest "\n\n\n")
  (file/write dest valid-entity-fn)
  (file/write dest "\n\n\n")
  (file/write dest to-grapheme-fn)
/home/user/src/git-some-janets/repos/github.com/pyrmont/remarkable/tools/make-folding.janet:
  (file/write dest "(def lower\n  {\n")
  (file/write dest indent)
  (file/write dest (string "0x" before " [" (string/join afters " ") "]\n"))
  (file/write dest "})\n")
  (file/write dest "\n\n")
  (file/write dest case-fold-fn)
/home/user/src/git-some-janets/repos/github.com/pyrmont/arnie/benchmarks/reverse-complement/revcomp.janet:
  (file/write stdout header)
  (file/write stdout outbuf)
/home/user/src/git-some-janets/repos/github.com/pyrmont/arnie/benchmarks/reverse-complement/revcomp2.janet:
  (file/write stdout header)
  (file/write stdout outbuf)
/home/user/src/git-some-janets/repos/github.com/pyrmont/arnie/benchmarks/reverse-complement/revcomp2_113.janet:
  (file/write stdout header)
  (file/write stdout outbuf)
/home/user/src/git-some-janets/repos/github.com/pyrmont/arnie/deps/spork/sh.janet:
  (file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/rwtolbert/adopt-janet/adopt/init.janet:
  (file/write stream (apply string/format args))
  (file/write stream "\n")
  (file/write stream string-or-array)
  (file/write stream "\n")
/home/user/src/git-some-janets/repos/github.com/rwtolbert/fltk-janet/examples/native-filechooser.janet:
  (file/write fp "Hello world\n")
/home/user/src/git-some-janets/repos/github.com/good-place/mansion/test/helper.janet:
  (file/write stdout "\e[32m✔\e[0m")
  (file/write stdout "\n\e[31m✘\e[0m  ")
/home/user/src/git-some-janets/repos/github.com/jeannekamikaze/janet-filesystem/filesystem.janet:
  (file/write file buf)
  (file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/Putnam3145/janet-d/source/tests/suite7.janet:
  (file/write f "foo\n")
/home/user/src/git-some-janets/repos/github.com/Putnam3145/janet-d/source/tests/helper.janet:
  (file/write stdout "\e[32m✔\e[0m")
  (file/write stdout "\n\e[31m✘\e[0m  ")
/home/user/src/git-some-janets/repos/github.com/tionis/toolbox/src/sh.janet:
  (file/write tmpf f)
  (file/write tmpf f)
/home/user/src/git-some-janets/repos/github.com/tionis/cosmo/cosmo/filesystem.janet:
  (file/write file buf)
  (file/write dst bytes)
/home/user/src/git-some-janets/repos/github.com/rokf/janet-lucide/src/generate.janet:
  (file/write f (make-image out-env))
/home/user/src/git-some-janets/repos/github.com/hackberrydev/alas/src/file_repository.janet:
  (file/write file text)
/home/user/src/git-some-janets/repos/github.com/hackberrydev/alas/src/commands/backup.janet:
  (file/write backup-file (file/read plan-file :all))
/home/user/src/git-some-janets/repos/github.com/agent-kilo/janetland/project.janet:
  (file/write keysym-table-file
              "(def xkb-key {\n")
  (file/write keysym-table-file
                  (string/format "  :%s    (int/u64 %d)%s\n"
                                 name
                                 value
                                 (if (nil? comment)
                                   ""
                                   (string/format "    # %s" comment))))
  (file/write keysym-table-file
              "})\n")
/home/user/src/git-some-janets/repos/github.com/agent-kilo/jwno/src/log.janet:
  (file/write log-file msg)
/home/user/src/git-some-janets/repos/github.com/agent-kilo/jwno/project.janet:
  (file/write out-file (string/format "#define %s %v\n" k (v :value)))
/home/user/src/git-some-janets/repos/github.com/sepisoad/jurl/test/main.janet:
  (file/write file buf)
/home/user/src/git-some-janets/repos/github.com/sepisoad/super-janet-typist/script/profile.janet:
  (file/write file (string score))
  (file/write file (string streak))
  (file/write file (string score))
  (file/write file (string streak))
/home/user/src/git-some-janets/repos/github.com/sepisoad/labgoo/codes/helpers.janet:
  (file/write f (string/format `{:title "%s"` name))
  (file/write f "\n ")
  (file/write f `:template "page.html"`)
  (file/write f "\n ")
  (file/write f `:kind "page"`)
  (file/write f "\n ")
  (file/write f (string/format `:refs %j` (tuple/brackets ;refs)))
  (file/write f "\n ")
  (file/write f ":older ")
  (file/write f (string/format "%j" (string older ".html")))
  (file/write f (string/format "%j" nil))
  (file/write f "\n ")
  (file/write f ":newer ")
  (file/write f (string/format "%j" (string newer ".html")))
  (file/write f (string/format "%j" nil))
  (file/write f "}")
  (file/write f "\n---\n")
  (file/write f (string/format `{:title "%s"` tag))
  (file/write f "\n ")
  (file/write f `:template "tag.html"`)
  (file/write f "\n ")
  (file/write f `:kind "page"`)
  (file/write f "\n ")
  (file/write f (string/format `:pages %j` (tuple/brackets ;(map |(string/trimr $ ".mdz") pages))))
  (file/write f "\n ")
  (file/write f "}")
  (file/write f "\n---\n")
/home/user/src/git-some-janets/repos/github.com/s-lambert/janet-game/src/tile-editor.janet:
  (file/write level-file tile-txt)
/home/user/src/git-some-janets/repos/github.com/JohnDoneth/janet-language-server/language-server/src/main.janet:
  (file/write (dyn :logfile) (string output "\n"))
  (file/write stderr (string output "\n"))
  (file/write file (string "Content-Length: " (length response) (line-ending)))
  (file/write file response)
/home/user/src/git-some-janets/repos/github.com/MikeBeller/janet-benchmarksgame/reverse-complement/revcomp.janet:
  (file/write stdout header)
  (file/write stdout outbuf)
/home/user/src/git-some-janets/repos/github.com/MikeBeller/janet-benchmarksgame/reverse-complement/revcomp2.janet:
  (file/write stdout header)
  (file/write stdout outbuf)
/home/user/src/git-some-janets/repos/github.com/MikeBeller/janet-benchmarksgame/reverse-complement/revcomp2_113.janet:
  (file/write stdout header)
  (file/write stdout outbuf)
/home/user/src/git-some-janets/repos/github.com/cellularmitosis/janet-lzo/misc/zbench.janet:
  (file/write stderr (string "running: " cmd "\n"))
/home/user/src/git-some-janets/repos/github.com/ishehadeh/janet-format/examples/streaming.janet:
  (file/write f (if (string? s) s (string/from-bytes s)))
/home/user/src/git-some-janets/repos/github.com/mpwillson/fcgi/log.janet:
  (file/write lfh (string/format "%s %s\n" (timestamp) msg))
  (file/write stderr (string/format "%s %s\n" (timestamp) msg))
  (file/write stderr (string/format "fcgi: cannot open log-file: %s\n"
                                      log-file))
/home/user/src/git-some-janets/repos/github.com/sogaiu/index-janet/index-janet/main.janet:
  (file/write tf
                  (string "!_TAG_FILE_SORTED\t"
                          "1\t"
                          "/0=unsorted, 1=sorted, 2=foldcase/\n"))
  (file/write tf line)
  (file/write tf "\n")
/home/user/src/git-some-janets/repos/github.com/sogaiu/index-janet/support/idk-janet.janet:
  (file/write tf
                  (string "!_TAG_FILE_SORTED\t"
                          "1\t"
                          "/0=unsorted, 1=sorted, 2=foldcase/\n"))
  (file/write tf line)
  (file/write tf "\n")
/home/user/src/git-some-janets/repos/github.com/sogaiu/jaylib-wasm-demo/make-jaylib-janet-shim.janet:
  (file/write jjf
                    (string "(def " cf " " cf ")\n"))
/home/user/src/git-some-janets/repos/github.com/sogaiu/ajrepl/ajrepl/custom-repl.janet:
  (file/write stdout prmpt)
/home/user/src/git-some-janets/repos/github.com/sogaiu/janet-ref/janet-ref/repl.janet:
  (file/write stdout prompt)
/home/user/src/git-some-janets/repos/github.com/sogaiu/janet-ref/janet-ref/usages/with.janet:
  (file/write f "a")
/home/user/src/git-some-janets/repos/github.com/CFiggers/janet-lsp/src/logging.janet:
  (file/write stderr (string/format "error while trying to write to log file: %q\n" e))
  (file/write stderr (string output "\n"))
/home/user/src/git-some-janets/repos/github.com/CFiggers/janet-lsp/src/main.janet:
  (file/write file (string "Content-Length: " (length response) (case (os/which)
                                                                  :windows "\n\n" "\r\n\r\n")))
  (file/write file response)
/home/user/src/git-some-janets/repos/github.com/CFiggers/teddy-editor/src/teddy.janet:
  (file/write stdout (string/from-bytes key))
/home/user/src/git-some-janets/repos/github.com/CFiggers/joule-editor/src/joule.janet:
  (file/write stdout abuf)
  (file/write stdout "\e[H")
/home/user/src/git-some-janets/repos/github.com/AlecTroemel/craft-bin/craft-bin/ideas/repl.janet:
  (file/write stdout prompt)
/home/user/src/git-some-janets/repos/github.com/andrewchambers/hermes/src/fetch.janet:
  (file/write outf buf)
/home/user/src/git-some-janets/repos/github.com/andrewchambers/hermes/src/hermes-main.janet:
  (file/write f $)
/home/user/src/git-some-janets/repos/github.com/andrewchambers/hermes/src/builtins.janet:
  (file/write tmpf $)
/home/user/src/git-some-janets/repos/github.com/andrewchambers/hermes/src/protocol.janet:
  (file/write f sz-buf)
  (file/write f msg-buf)
  (file/write f sz-buf)
  (file/write f buf)
  (file/write recv-to buf)
/home/user/src/git-some-janets/repos/github.com/andrewchambers/janet-sh/sh.janet:
  (file/write tmpf f)
  (file/write tmpf f)
/home/user/src/git-some-janets/repos/github.com/andrewchambers/janet-process/process.janet:
  (file/write tmpf f)
/home/user/src/git-some-janets/repos/github.com/andrewchambers/janetsh/src/sh.janet:
  (file/write stderr (string "error: " e "\n"))
  (file/write stderr (string e "\n"))
  (file/write stderr (string "unrecoverable internal error: " e))
  (file/write stdout xln)
  (file/write stderr (string "exec failed: " e "\n"))
  (file/write stdout "\x1b[H\x1b[2J")
  (file/write stdout "alias name [commands]\n")
  (file/write stdout
                (string "alias " alias " " (string/join cmd " ") "\n"))
  (file/write stdout
                (string "alias " alias " " (string/join cmd " ") "\n"))
/home/user/src/git-some-janets/repos/github.com/andrewchambers/poolparty/poolparty.janet:
  (file/write outf buf)
/home/user/src/git-some-janets/repos/github.com/dalygbarron/kowari/test/kowari.janet:
  (file/write file (string/format format ;bits))
  (file/write file "name,x,y,w,h\n")
/home/user/src/git-some-janets/repos/github.com/dalygbarron/pingo/test/pingo.janet:
  (file/write f written-bytes)
/home/user/src/git-some-janets/repos/github.com/dbridges/jty/jty.janet:
  (file/write debug-f (string str))
  (file/write debug-f "\n")
/home/user/src/git-some-janets/repos/github.com/dlisboa/janet-slog/slog/init.janet:
  (if (buffer? stream) buffer/push file/write)
/home/user/src/git-some-janets/repos/github.com/runejuhl/toggle-leds/main.janet:
  (file/write stderr
                (string "writing "
                        new-value
                        " to "
                        brightness
                        " (was " current-brightness ")"
                        "\n"))
  (file/write out new-value)
  (file/write stderr
                "no targets; exiting\n")