nix-archive-1 ( type directory entry ( name etc node ( type directory entry ( name common-lisp node ( type directory entry ( name asdf-output-translations.conf.d node ( type directory entry ( name 50-magic-ed.conf node ( type regular contents (("/gnu/store/03z4nrbfd1k1y9w8fsbjkscxf2glbc73-ecl-magic-ed-0.2-1.30bb278/share/common-lisp/ecl/magic-ed"
:**/
:*.*.*)
("/gnu/store/03z4nrbfd1k1y9w8fsbjkscxf2glbc73-ecl-magic-ed-0.2-1.30bb278/lib/common-lisp/ecl/magic-ed"
:**/
:*.*.*))
) ) ) ) entry ( name source-registry.conf.d node ( type directory entry ( name 50-magic-ed.conf node ( type regular contentsq (:tree "/gnu/store/03z4nrbfd1k1y9w8fsbjkscxf2glbc73-ecl-magic-ed-0.2-1.30bb278/share/common-lisp/ecl/magic-ed")
) ) ) ) ) ) ) ) entry ( name lib node ( type directory entry ( name common-lisp node ( type directory entry ( name ecl node ( type directory entry ( name magic-ed node ( type directory entry ( name src node ( type directory entry ( name magic-ed.fas node ( type regular
executable contents5 ELF 4 1 4
( d d X. X> X> ( 8 . > > l) l) l) ( ( Stdl) l) l) ( ( Ptd% % % D D Qtd RtdX. X> X> %
! $ "
# " (" $ TLy|-% M c , C i 1 - < F " v @ U h __gmon_start__ _ITM_deregisterTMCloneTable _ITM_registerTMCloneTable __cxa_finalize init_fas_CODE ecl_make_codeblock _eclMj5hglL3_T3NXI971 ecl_init_module ecl_process_env cl_open _ecl_frs_push cl_symbols _setjmp ecl_stack_push_values cl_close ecl_stack_pop_values ecl_stack_frame_open cl_file_length cl_make_string cl_read_sequence ecl_stack_frame_push_values ecl_stack_frame_pop_values ecl_stack_frame_close ecl_cs_overflow FEstack_advance ecl_unwind cl_parse_key cl_load _ecl_va_sp cl_error si_ecase_error ecl_make_constant_base_string ecl_function_dispatch si_select_package ecl_cmp_defun libecl.so.24.5 libgmp.so.10 libgc.so.1 libffi.so.8 libm.so.6 libgcc_s.so.1 libc.so.6 _end GLIBC_2.1.3 GLIBC_2.0 /gnu/store/gzji9nhzkpgwg2d83vs10qn0ylrfil8h-ecl-24.5.10/lib/:/gnu/store/0hr9jpczkcgpgqkhf4q4868xd57h5a62-glibc-2.35/lib:/gnu/store/v268li21yk9l6vqiq2mrw6vvpx2bnm5c-gcc-11.3.0-lib/lib:/gnu/store/gzji9nhzkpgwg2d83vs10qn0ylrfil8h-ecl-24.5.10/lib:/gnu/store/82bynxabzp0drav81l70azszayp8wm11-gmp-6.2.1/lib:/gnu/store/5zydbv97cly5mijfmnc6vrk2148qxd1n-libgc-8.2.2/lib:/gnu/store/fjfmffrarqi08fgm69swp4biff17yji4-libffi-3.4.4/lib:/gnu/store/v268li21yk9l6vqiq2mrw6vvpx2bnm5c-gcc-11.3.0-lib/lib/gcc/i686-unknown-linux-gnu/11.3.0/../../.. s i ii
X> \> `> x> > > |@ ? ? " ? ?
? ? @ @ @ @ @ @ $@ (@ ,@ 0@
4@ 8@ <@ @@ D@ H@ L@ P@ T@ X@ \@ `@ d@ h@ l@ p@ t@ x@ ! S / tЃ[ h h h h h h( $ h0 ( h8 p, h@ `0 hH P4 hP @8 hX 0< h` @ hh D hp H hx L h P h T h X h \ h ` h d h h h pl h `p h Pt h @x h 0f $ffffff - 9t tUQЃÍt& Í& «- US )ȉ tt
PQ҃]Í& fUSWW- u't | 5ƃ ]Í& f[$fffWVSD$, t@ [^_Í& f G <x P p [^_ffffW , UWVSÃLD$D$ $D$ 9t D$`Pj\$|$D$0 + D$4 <$D$ |$` $|$ $D$$ \ D$ $ T P\$dƋD$ t#\$T$ H QPRjfVt$ \$D$4 4$L$ 9 $ BL[^_]Ív j D$4Pl$ U\$D$8|$8D$0$ZYPj ƋD$$PVjxuE <$E D$ D$ tD$ Pj\$ W\$HL$AD$8$t& \$& v \$GPPt$t$ \$tt& UWVS77* <|$PuƍD$9t D$T|$ D$?n D$ ~l$ D$P(T$j j D$0P (PjD$0P9 |$( |$,|$ D$$D$ @ 9t 9x 6 ( T$ UjP tTtO uGM w;T$@ 9t} 9x U<[^_]Í& v F <[^_]ÐB D$ Vt& |$,@ 3B @ D$ B& |$ tYUj렍& f j l$,D$(P(T$t& C F FQQpjRRpWh& UWVS( t$0tV`F F F0 F F, jP F4 [^_]Í& v Nj P pH rW $ jjvjjjvjjj6j Ѓ46eXZ D$ PWY v v QL$$2jЃt$ WqZv } j1 L$ Q2jЋ p }YX p W, vU2jЃt$ WZ v v L$ QrjЃt$ W Yv$jt$ rjЋ p$X Zp W v(UrjЃ [^_]Ë$S''& [ @EcLtAg_fas:init_fas_CODE@ /gnu/store/03z4nrbfd1k1y9w8fsbjkscxf2glbc73-ecl-magic-ed-0.2-1.30bb278/share/common-lisp/ecl/magic-ed/src/magic-ed.lisp @EcLtAg:_eclMj5hglL3_T3NXI971@ magic-ed::slurp-file magic-ed::magic-ed (:file :string) :string 0 "Received bad output type. For now only ':file' and ':string' are supported" si::dodefpackage 0 si::set-documentation 0 :output :eval #1="MAGIC-ED" ("CL") (#1#) (defun magic-ed::slurp-file) (#2=#P"/gnu/store/03z4nrbfd1k1y9w8fsbjkscxf2glbc73-ecl-magic-ed-0.2-1.30bb278/share/common-lisp/ecl/magic-ed/src/magic-ed.lisp" . 170) (magic-ed::path) "Slurp file from given path." (defun magic-ed::magic-ed) (#2# . 3586) (&optional magic-ed::file &key (magic-ed::output :file) (eval t)) "Call editor from REPL and depending on options, return to REPL or evaluate the file content in REPL.
This function will try to use implmentation specific (ed) function, which will in turn invoke editor set in
EDITOR environment variable. Some Common Lisp implementations uses different strategy for setting external
editor, so if unsure what they are, make sure to consult your implementation documentation first.
If called without file, this function will invoke editor without file argument.
Supported options are:
:eval (t or nil) - if :eval was set to nil, saved content will not be evaluated
:output (:file or :string) - by default, content will be saved to file; if you want the content to
be returned as escaped string, set ':output :string'." ;@ T\ $ 4 H zR | F J tx ?;*2$" @ D T h AA Aa
AAJ WK A ND AA L KA AAE`mhAlBp\`ilKpL`bdAhAlBpH`ChAlDpP`s
AA AAD CdBhElEp^lAhAlBpHdGhAlBpZ`_hAlBpL`ClAp_`ldAhDlDp T X AA AANPVXB\B`EdJhBlEpHPJXK\B`FP~\A`HPC
AA AAK J
AA AAB JXA\B`HPN\B`QP|
TAXC\B`E ATAXC\A`< AA AAN0Q8i p ' 8 Q ` m x
X> \> t oT
@
h o o o o > 6 F V f v & 6 F V f v |@ GCC: (GNU) 11.3.0 .shstrtab .gnu.hash .dynsym .dynstr .gnu.version .gnu.version_r .rel.dyn .rel.plt .init .plt.got .text .fini .rodata .eh_frame_hdr .eh_frame .note.gnu.property .init_array .fini_array .data.rel.ro .dynamic .got.plt .data .bss .comment t t o T T , P % o J 2 o 0 A
h J B
S N Y b h n 2 v % % D & & \ l) l) ( X> X. \> \. `> `. X > . ] ? / @ 0 | |@ |0 @ 0 0 0 0 ) ) entry ( name
magic-ed.o node ( type regular contents ELF 4 (
UWVSÃLD$D$ $D$ 9t D$`Pj\$|$D$0 + D$4 <$D$ |$` $|$ $D$$ \ D$ $ T P\$ƋD$ t#\$T$ H QPRjVt$ \$D$4 4$L$ 9 $ BL[^_]Ív j D$4Pl$ U\$D$8|$8D$0$ZYPj ƋD$$PVjuE <$E D$ D$ tD$ Pj\$ W\$L$AD$8$t& \$& v \$PPt$t$ \$t& UWVS <|$PƍD$9t D$T|$ D$?n D$ ~l$ D$P(T$j j D$0P (PjD$0P |$( |$,|$ D$$D$ @ 9t 9x 6 ( T$ UjP tTtO uGM w;T$@ 9t} 9x U<[^_]Í& v F <[^_]ÐB D$ Vt& |$,@ 3B @ D$ B& |$ tYUj렍& f j l$,D$(P(T$t& C F FQQpjRRpW& UWVS t$0tV F F F0 F F, jP F4 [^_]Í& v Nj P pH rW $ jjvjjjvjjj6j Ѓ46 XZ D$ PWY v v QL$$2jЃt$ WZv } j1 L$ Q2jЋ p YX p W vU2jЃt$ WZ v v L$ QrjЃt$ W Yv$jt$ rjЋ p$X Zp W v(UrjЃ [^_]/gnu/store/03z4nrbfd1k1y9w8fsbjkscxf2glbc73-ecl-magic-ed-0.2-1.30bb278/share/common-lisp/ecl/magic-ed/src/magic-ed.lisp @EcLtAg:_eclMj5hglL3_T3NXI971@ magic-ed::slurp-file magic-ed::magic-ed (:file :string) :string 0 "Received bad output type. For now only ':file' and ':string' are supported" si::dodefpackage 0 si::set-documentation 0 :output :eval #1="MAGIC-ED" ("CL") (#1#) (defun magic-ed::slurp-file) (#2=#P"/gnu/store/03z4nrbfd1k1y9w8fsbjkscxf2glbc73-ecl-magic-ed-0.2-1.30bb278/share/common-lisp/ecl/magic-ed/src/magic-ed.lisp" . 170) (magic-ed::path) "Slurp file from given path." (defun magic-ed::magic-ed) (#2# . 3586) (&optional magic-ed::file &key (magic-ed::output :file) (eval t)) "Call editor from REPL and depending on options, return to REPL or evaluate the file content in REPL.
This function will try to use implmentation specific (ed) function, which will in turn invoke editor set in
EDITOR environment variable. Some Common Lisp implementations uses different strategy for setting external
editor, so if unsure what they are, make sure to consult your implementation documentation first.
If called without file, this function will invoke editor without file argument.
Supported options are:
:eval (t or nil) - if :eval was set to nil, saved content will not be evaluated
:output (:file or :string) - by default, content will be saved to file; if you want the content to
be returned as escaped string, set ':output :string'." ' P 8 $Ë $ GCC: (GNU) 11.3.0 GNU zR | L KA AAE`mhAlBp\`ilKpL`bdAhAlBpH`ChAlDpP`s
AA AAD CdBhElEp^lAhAlBpHdGhAlBpZ`_hAlBpL`ClAp_`ldAhDlDp P AA AANPVXB\B`EdJhBlEpHPJXK\B`FP~\A`HPC
AA AAK J
AA AAB JXA\B`HPN\B`QP|
TAXC\B`E ATAXC\A`< p AA AAN0Q8i' support
(defun known-editor (e)
(member e '("vim" "emacs" "emacsclient") :test 'string=))
(when thing
(typecase thing
(pathname (sb-ext:native-namestring (translate-logical-pathname thing) :as-file t))
(string thing)
(t
(let* ((source (sb-introspect:find-definition-source (fdefinition thing)))
(pathname (sb-introspect:definition-source-pathname source))
(offset (or (sb-introspect:definition-source-character-offset source) 0)))
(unless pathname
(error "Don't know where the definition of ~S is, sorry." thing))
(if (known-editor editor)
(format nil "+~A ~A" offset (namestring-for-editor editor pathname))
(format nil "~A" (namestring-for-editor editor pathname)) ))))))
#+sbcl
(unless sb-ext:*ed-functions*
(defun ed-editor (thing)
;; simple FFI for system() call
(define-alien-routine system int (command c-string))
(let* ((editor (sb-ext:posix-getenv "EDITOR"))
(editor (or editor "vi")))
(system
(format nil "~A~@[ ~A~]" editor (namestring-for-editor editor thing)))))
;; save it
(push 'ed-editor sb-ext:*ed-functions*))
#+ccl
(unless ccl:*resident-editor-hook*
(defun ed-editor (thing)
(let* ((editor (ccl:getenv "EDITOR"))
(editor (or editor "vi")))
(ccl::os-command
(format nil "~A ~A" editor thing))))
;; set it
(setf ccl:*resident-editor-hook* 'ed-editor))
;; TODO: check if Hemlock was set
#+(or cmu scl)
(when t
(defun ed-editor (&optional thing)
(let* ((editor (cdr (assoc :EDITOR ext:*environment-list*)))
(editor (or editor "vi"))
;; shamelessly stolen from ASDF
(split-string
(lambda (string &key (item #\space) (test #'char=))
;; Splits the string into substrings at spaces.
(let ((len (length string))
(index 0) result)
(dotimes (i len
(progn (unless (= index len)
(push (subseq string index) result))
(reverse result)))
(when (funcall test (char string i) item)
(unless (= index i) ;; two spaces in a row
(push (subseq string index i) result))
(setf index (1+ i)))))))
;; CMUCL (run-program) is a bit sensitive and if running program has spaces
;; it will fail. We then must split the string, pick up the program name and
;; move everything else as arguments.
(parts (funcall split-string editor))
(editor (first parts))
(args (append (rest parts) (when thing
(list thing)))))
(extensions:run-program editor args :input t :output t)))
;; overwrite (ed) with our definition
(setf (symbol-function 'cl:ed) (symbol-function 'magic-ed:ed-editor)))
(defun magic-ed (&optional file &key (output :file) (eval t))
"Call editor from REPL and depending on options, return to REPL or evaluate the file content in REPL.
This function will try to use implmentation specific (ed) function, which will in turn invoke editor set in
EDITOR environment variable. Some Common Lisp implementations uses different strategy for setting external
editor, so if unsure what they are, make sure to consult your implementation documentation first.
If called without file, this function will invoke editor without file argument.
Supported options are:
:eval (t or nil) - if :eval was set to nil, saved content will not be evaluated
:output (:file or :string) - by default, content will be saved to file; if you want the content to
be returned as escaped string, set ':output :string'."
;; first assure we have valid parameters if we got them
(unless (member output '(:file :string))
(error "Received bad output type. For now only ':file' and ':string' are supported"))
(let ((status (ed file)))
(if (and file
status
(stringp file))
(ecase output
(:file
;; if user does not want to evaluate file
(if eval (load file)))
(:string
(slurp-file file)))
;; invoked plain (ed), return it's status
status)))
) ) ) ) ) ) ) ) ) ) entry ( name doc node ( type directory entry ( name ecl-magic-ed-0.2-1.30bb278 node ( type directory entry ( name LICENSE node ( type regular contents< MIT License
Copyright (c) 2020 Sanel Zukan, Alex Ponomarev
Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:
The above copyright notice and this permission notice shall be included in all
copies or substantial portions of the Software.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
SOFTWARE.
) ) ) ) ) ) ) ) )