Re: [Lisp] Någon som gör som Fare och scriptar med lisp?

[Elias Mårtenson]

Jag använder Common Lisp för sådana ändamål. Som t.ex. ett verktyg som
synkroniserar Active Directory med OpenLDAP. Det krävde bl.a. att jag
implementerade GSSAPI-stöd till trivial-ldap
, som använder min mappning av
GSSAPI  till CL.

Det extra jobbet var dock värt besväret för att jag skulle slippa
implementera det i något annat språk. :-)

Elias

2014-11-21 22:11 GMT+08:00 Andreas Davour :

> On Tue, 18 Nov 2014, Mathias Dahl wrote:
>
>  Jag har en massa elisp-hack för liknande uppgifter jag gör på jobbet.
>> Emacs
>> rular! ;)
>>
>
> Har du sagt så mycket måste du ju dela med dig! ;)
>
> -andreas
>
> --
> "economics is a pseudoscience; the astrology of our time"
> Kim Stanley Robinson
> ___
> Lisp mailing list
> Lisp@lisp.se
> http://mailman.nocrew.org/cgi-bin/mailman/listinfo/lisp
>
>
___
Lisp mailing list
Lisp@lisp.se
http://mailman.nocrew.org/cgi-bin/mailman/listinfo/lisp

Re: [Lisp] Någon som gör som Fare och scriptar med lisp?

[Mathias Dahl]

Jag har en massa elisp-hack för liknande uppgifter jag gör på jobbet. Emacs
rular! ;)

/Mathias

On Thu, Nov 13, 2014 at 12:25 PM, Lars Brinkhoff  wrote:

>
>
> Nu har jag det.
>
> Istället för att göra ett hack i shell, gjorde jag följande för att
> konvertera radslut till CRLF i Emacs.  Jag vet att det finns unix2dos
> och liknande, men jag ville ha lite mer kontroll på hantering av
> binära filer m m.
>
> (defun map-files (fn dir)
>   "Apply function FN to all files in DIR, including subdirectories.
> The function is called with a file loaded into a buffer, which is saved
> when the function returns.  Doesn't descend into the .hg subdirectory."
>   (dolist (i (directory-files dir t))
> (unless (member (file-name-nondirectory i) '("." ".." ".hg"))
>   (if (file-directory-p i)
>   (map-files fn i)
>   (with-current-buffer (find-file-noselect i)
> (funcall fn)
> (when (buffer-modified-p)
>   (save-buffer))
> (kill-buffer))
>
> (defun set-buffer-crlf ()
>   (when (eql (coding-system-eol-type buffer-file-coding-system) 0)
> (let ((coding (coding-system-change-eol-conversion
>buffer-file-coding-system 1)))
>   (when coding
> (set-buffer-file-coding-system coding)
>
> (defun convert-to-crlf ()
>   "Convert all files to CRLF line endings."
>   (map-files #'set-buffer-crlf "/foo/bar/baz"))
>
>
> ___
> Lisp mailing list
> Lisp@lisp.se
> http://mailman.nocrew.org/cgi-bin/mailman/listinfo/lisp
>
___
Lisp mailing list
Lisp@lisp.se
http://mailman.nocrew.org/cgi-bin/mailman/listinfo/lisp

Re: [Lisp] Någon som gör som Fare och scriptar med lisp?

[Lars Brinkhoff]

Nu har jag det.

Istället för att göra ett hack i shell, gjorde jag följande för att
konvertera radslut till CRLF i Emacs.  Jag vet att det finns unix2dos
och liknande, men jag ville ha lite mer kontroll på hantering av
binära filer m m.

(defun map-files (fn dir)
  "Apply function FN to all files in DIR, including subdirectories.
The function is called with a file loaded into a buffer, which is saved
when the function returns.  Doesn't descend into the .hg subdirectory."
  (dolist (i (directory-files dir t))
(unless (member (file-name-nondirectory i) '("." ".." ".hg"))
  (if (file-directory-p i)
  (map-files fn i)
  (with-current-buffer (find-file-noselect i)
(funcall fn)
(when (buffer-modified-p)
  (save-buffer))
(kill-buffer))

(defun set-buffer-crlf ()
  (when (eql (coding-system-eol-type buffer-file-coding-system) 0)
(let ((coding (coding-system-change-eol-conversion
   buffer-file-coding-system 1)))
  (when coding
(set-buffer-file-coding-system coding)

(defun convert-to-crlf ()
  "Convert all files to CRLF line endings."
  (map-files #'set-buffer-crlf "/foo/bar/baz"))


___
Lisp mailing list
Lisp@lisp.se
http://mailman.nocrew.org/cgi-bin/mailman/listinfo/lisp

Re: [Lisp] Någon som gör som Fare och scriptar med lisp?

[Per Danielsson]

On Sep 1, 2014, at 16:20, Andreas Davour wrote:

> Den som vill kan ju roa sig med att försöka implementera följande i lisp!
> 
> let apa=1; for i in `cat delete.data `; do if [[ $apa -ge 1000 ]]; then 
> printf "$i\n" >>ffile; let apa=1; else printf "$i|" >> ffile; let apa=$apa+1; 
> fi; done

Jag har en jättefin implementation i scsh, men den får tyvärr inte plats här i 
marginalen!

PD
--
"Martians are people too"


___
Lisp mailing list
Lisp@lisp.se
http://mailman.nocrew.org/cgi-bin/mailman/listinfo/lisp