Commit 385a2296 authored by Per Cederqvist's avatar Per Cederqvist

.

parents
all:
(cd src; ${MAKE})
install:
echo elisp-client not installed (do that manually)
clean:
rm -vf misc/*~ *~
(cd src; ${MAKE} clean)
depend:;
;;; testfil
(defun test ()
(message "din server {r: %s" "laila.lysator.liu.se"))
#!/bin/sh -x
# argument lyskom.el [lyskom.elc]
# Detta {r en enklare variant av lyskom-send som f|ruts{tter att man st}r
# i ett iordninggjort dir.
#
# P -- PARTS.xx {r distributionen d{r delarna {r var f|r sig
# A -- ALL.xx {r lyskom.el sharad
# adir -- lyskom.el uuencodedad.
# B -- BYTEC.xx {r lyskom.elc sharad
# udir -- lyskom.elc {r obel18 versionen av klienten med r{tt skyddskod.
# D -- DOC.xx {r klientdocumentationen sharad.
# ddir -- elisp-client-*.txt {r klientdocumentationen.
# I -- IDOC.xx {r klientdocumentationen sharad.
# idir -- elisp-client-*.txt {r klientdocumentationen.
maillist=/usr/local/src/2kom/elisp-client/lib/mailing-do-list
set -- `getopt m: $*`
if [ $1 != -- ]
then
# just sending an announcement message
recipients=`
while read status options
do
if [ X$status != XACTIVE ]
then continue
fi
set -- \`getopt BCLOU: $options\`
while [ $1 != -- ]
do
shift;
done
echo $2
done < $maillist`
if [ $2 = - ]
then
echo Recipients: $recipients
echo Type your message. End with EOF
messagefile=/tmp/lyskom-message
cat > $messagefile
temps="$messagefile $temps"
else
messagefile=$2
fi
echo Mailing message to $recipients
Mail -s "Message on the lyskom source list" $recipients < $messagefile
rm $temps
exit;
fi
shift
while read status options
do
if [ X$status != XACTIVE ]
then continue
fi
files=
all=
udir=
doc=
idoc=
set -- `getopt PBu:Aa:Dd:Ii: $options`
# defaults
while [ $1 != -- ]
do
case $1 in
-P) files="$files `echo PARTS.*`" ;;
-B) files="$files `echo BYTEC.*`" ;;
-u) shift;
udir=$1 ;;
-A) files="$files `echo ALL.*`" ;;
-a) shift;
all=$1 ;;
-D) files="$files `echo DOC.*`" ;;
-d) shift;
doc=$1;;
-I) files="$files `echo IDOC.*`" ;;
-i) shift;
idoc=$1;;
esac
shift
done
shift
echo sending to $1
for file in $files --
do
if [ $file != -- ]
then
Mail -s $file $1 < $file ;
fi
done
if [ X$all != X ]
then
uuencode lyskom.el ${all}lyskom.el | Mail -s lyskom.el $1;
fi
if [ X$udir != X ]
then
uuencode lyskom.elc ${udir}lyskom.elc | Mail -s lyskom.elc $1;
fi
if [ X$doc != X ]
then
file=elisp-client-*.txt;
uuencode $file ${doc}$file | Mail -s $file $1;
fi
if [ X$idoc != X ]
then
file=elisp-client-*;
uuencode $file ${idoc}$file | Mail -s $file $1;
fi
done < $maillist
#!/bin/sh
# argument lyskom.el [lyskom.elc]
EMACSBATCH="emacs -batch -l /usr/local/lib/elisp/bytecomp"
temps=
maillist=/usr/local/src/2kom/elisp-client/lib/mailing-list
set -- `getopt m: $*`
if [ $1 != -- ]
then
# just sending an announcement message
recipients=`
while read status options
do
if [ X$status != XACTIVE ]
then continue
fi
set -- \`getopt BCLOU: $options\`
while [ $1 != -- ]
do
shift;
done
echo $2
done < $maillist`
if [ $2 = - ]
then
echo Recipients: $recipients
echo Type your message. End with EOF
messagefile=/tmp/lyskom-message
cat > $messagefile
temps="$messagefile $temps"
else
messagefile=$2
fi
echo Mailing message to $recipients
Mail -s "Message on the lyskom source list" $recipients < $messagefile
rm $temps
exit;
fi
shift
LYSKOMEL=$1
LYSKOMELC=$2
NAME=`basename $LYSKOMEL .el`
if [ -z "$LYSKOMELC" ]
then
# Oh no. We have to byte-compile.
echo Byte-compiling
cp $LYSKOMEL /tmp/lyskom.el
$EMACSBATCH -f batch-byte-compile /tmp/lyskom.el
LYSKOMELC=/tmp/lyskom.elc
temps="/tmp/lyskom.el $LYSKOMELC $temps"
fi
# LYSKOMEL LYSKOMELC {r nu filerna som skall s{ndas
# b}da m}ste finnas
LYSKOMOEL=/tmp/lyskom-sparc.el
LYSKOMOELC=/tmp/lyskom-sparc.elc
echo Patching laila.lysator.liu.se - obel18
sed 's/laila\.lysator\.liu\.se/obel18.ida.liu.se/g' < $LYSKOMEL > $LYSKOMOEL
sed 's/laila\.lysator\.liu\.se/obel18.ida.liu.se/g' < $LYSKOMELC> $LYSKOMOELC
chmod 644 $LYSKOMOEL $LYSKOMOELC
temps="$LYSKOMOEL $LYSKOMOELC $temps"
while read status options
do
if [ X$status != XACTIVE ]
then continue
fi
set -- `getopt BCLOU: $options`
# defaults
file=$LYSKOMEL
uuencode='cat $file'
compress=cat
type=laila
dir=
bytecomp=el
iscompress=no
while [ $1 != -- ]
do
case $1 in
-B) uuencode=yes;
bytecomp=elc;
;;
-C) uuencode=yes;
iscompress=yes;
compress="compress";
;;
-O) type=obel18;
;;
-U) uuencode=yes;
shift;
dir=$1
;;
esac
shift
done
shift
if [ $type = laila ]
then
if [ $bytecomp = elc ]
then file=$LYSKOMELC
else file=$LYSKOMEL
fi
else
if [ bytecomp = yes ]
then file=$LYSKOMOELC
else file=$LYSKOMOEL
fi
fi
if [ $compress = compress ]
then bytecomp="$bytecomp.Z";
fi
if [ "$uuencode" = yes ]
then uuencode="uuencode \$file ${dir}${NAME}.$bytecomp";
fi
echo sending to $1
if [ $compress = compress ]
then
compress < $file > /tmp/lyskom.Z
chmod 644 /tmp/lyskom.Z
file=/tmp/lyskom.Z
fi
eval $uuencode | Mail -s ${NAME}.$bytecomp $1;
if [ $compress = compress ]
then
rm /tmp/lyskom.Z
fi
done < $maillist
rm $temps
VERSION = 0.34
DOCFILE = elisp-client-$(VERSION)
# If you edit this, make sure it works afterwards also. /Linus
elisp-client: ../doc/$(DOCFILE).latexinfo
emacs -batch -l /usr/local/lib/elisp/latexinfo-mode \
-l /usr/local/lib/elisp/latexinfo \
-f batch-latexinfo-format $?
$(DOCFILE).txt: ../doc/elisp-client
emacs -batch -l `pwd`/info-nuke -f batch-info-nuke $?
mv elisp-client.txt $(DOCFILE).txt
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
;;; Author: Linus Tolke linus@lysator.liu.se
(defun nuke-info (file)
"Takes an info file. (Only works on an single file) and creates a ascii-file."
(interactive "fName of info file:")
(let* ((buf (find-file-noselect file))
(name (concat (buffer-file-name buf) ".nuked"))
(new (find-file-noselect name))
pos)
(set-buffer new)
(erase-buffer)
(insert-buffer buf)
(switch-to-buffer new)
; Most of the work
(delete-matching-lines "^File:.*Node:")
(goto-char (point-min))
(while (search-forward "* Menu:" (point-max) 'limit)
(delete-region (progn
(beginning-of-line 1)
(point))
(1- (progn
(search-forward "")
(point)))))
; remove everythin before the first 
(goto-char (point-min))
(search-forward "")
(backward-char 1)
(delete-region (point-min) (point))
; now remove the tags-table
(if (search-forward " \nTag table:" (point-max) 'limit)
(progn
(beginning-of-line 0)
(forward-char 1)
(delete-region (point) (point-max))))
; Now process every page the same way.
(goto-char (point-min))
(setq pos (point))
(while (search-forward "" (point-max) 'limit)
(delete-backward-char 1)
(delete-blank-lines)
; short nodes are removed (indexes.)
(if (< (count-lines pos (point)) 6)
(delete-region pos (point)))
(setq pos (point))
(newline)
(newline))
; Now fix Notes.
(goto-char (point-min))
(while (re-search-forward "(\\*Note .*:" (point-max) 'limit)
(replace-match "(Se {ven" t t))
(message "You can save the file %s now." new)))
(defun batch-info-nuke ()
"Usage: emacs -l info-nuke -f batch-info-nuke file"
(if (not noninteractive)
(error "batch-info-nuke may only be used -batch."))
(let ((file))
(while command-line-args-left
(setq file (expand-file-name (car command-line-args-left)))
(if (not (file-exists-p file))
(message ">> %s does not exist!" file)
(nuke-info file)
(write-file (concat file ".txt")))
(setq command-line-args-left (cdr command-line-args-left)))))
;;;; Let's start with a minor investigation: Where are strings stored?
;;;; Variable (LIT = literal) Use (ERRor message, INSert, PROmpt)
;;;; -----------------------------------------------------------------
;;;; lyskom-header-separator "--- Skriv texten nedanf|r denna rad "
;;;; lyskom-text-start "/rader/"
;;;; lyskom-commands Commands under 'a'
;;;; LIT lyskom PRO "LysKOM server? ("
;;;; INS "LysKOM elisp-klient version "
;;;; INS "F|rs|ker koppla upp mot "
;;;; LIT lyskom-connect-filter ERR "Protocol error. Servers says: "
;;;; LIT lyskom-server-info INS "Uppkopplingen klar. Serverns ver"
;;;; LIT kom-start-anew PRO "Vad heter du? "
;;;; LIT lyskom-start-anew-loginERR " returned "
;;;; LIT lyskom-start-anew-login-1-5
;;;; PRO "L\senord? "
;;;; LIT lyskom-start-anew-login-2
;;;; ERR "Fel l|sen."
;;;; INS "Du {r nu inloggad. V{nta ett tag"
;;;; LIT lyskom-start-anew-new-person
;;;; INS "Det tycks vara f|rsta g}ngen du "
;;;; PRO "[r det f|rsta g}ngen du anv{nder"
;;;; PRO "Ange personligt l|sen"
;;;; PRO "Repetera f|r kontroll: "
;;;; INS "Du angav inte samma password b{g"
;;;; LIT lyskom-start-anew-create-handler
;;;; INS "Det gick inte att skapa personen"
;;;; LIT lyskom-mode INS (mode-line) "LysKOM (server: %b)"
;;;; LIT kom-queue-resume ERR "kom-queue-resume called on an un"
;;;; LIT lyskom-resume ERR "lyskom-resume called on an unuse"
;;;; ERR "lyskom-resume:" "(not halted)"
;;;; LIT lyskom-process-send-string
;;;; INS "Nu n}r jag inte servern. TCP/IP-"
;;;; INS "Jag f|rs|ker igen."
;;;; LIT lyskom-check-call ERR "unknown key:"
;;;; lyskom-parse-incomplete ERR "LysKOM internal error: Parse inc"
;;;; LIT lyskom-expect-char ERR "Expecting " " but got "
;;;; LIT lyskom-parse-num ERR "Expected number, got "
;;;; LIT lyskom-parse-misc-info-list
;;;; ERR "Expected * or {, got "
;;;; LIT lyskom-parse-misc-info-list-sub
;;;; ERR "Unknown misc-type "
;;;; LIT lyskom-parse-misc-recipient
;;;; ERR "No loc-no after recipient."
;;;; LIT kom-get-appreciation INS "F} Uppmuntran"
;;;; INS "Du {r mycket vacker och mycket k"
;;;; LIT kom-get-abuse INS "F} Sk{ll"
;;;; INS "Du {r mycket ful och mycket dum."
;;;; LIT kom-delete-conf PRO "Vilket m|te/person vill du utpl}"
;;;; LIT lyskom-delete-conf PRO "Ta bort " "personen " "m|tet" "?"
;;;; INS "Utpl}ningen avbruten"
;;;; INS "N}gon annan tog precis bort m|te"
;;;; LIT lyskom-delete-conf-2 INS "Ok, nu {r " " utpl}nad"
;;;; INS " kunde inte utpl}nas av dig."
;;;; LIT kom-delete-text PRO "Vilket inl{gg skall tas bort?"
;;;; INS "Radering av text %d..."
;;;; LIT lyskom-delete-text INS "klart."
;;;; INS "det gick inte."
;;;; LIT kom-review-presentationINS "]terse presentation"
;;;; PRO "Vilket m|te/person? "
;;;; LIT lyskom-review-presentation
;;;; INS " har ingen presentation."
;;;; INS "N}gon tog precis bort m|tet."
;;;; LIT lyskom-view-commented-text
;;;; INS "]terse text nummer %d."
;;;; INS "Det finns inget kommenterat inl{"
;;;; LIT kom-send-letter PRO "Vem vill du skicka brev till? "
;;;; LIT lyskom-send-letter-2 INS " har en lapp p} d|rren:"
;;;; LIT lyskom-send-letter-3 PRO "Vill du fortfarande skicka breve"
;;;; LIT lyskom-do-send-letter PRO "[rende: "
;;;; LIT kom-add-member PRO "Vem vill du addera? "
;;;; LIT lyskom-add-member PRO "Vilket m|te skall han/hon addera"
;;;; LIT kom-add-self PRO "Vilket m|te vill du bli medlem i"
;;;; LIT lyskom-add-member-3 PRO "Prioritet p} m|tet? (0 (l}g) - 2"
;;;; PRO "Placering p} listan? (0-%d) "
;;;; INS "Bli medlem i "
;;;; INS "Addera " " till "
;;;; LIT lyskom-add-member-answer
;;;; INS "Det gick inte."
;;;; INS "klart"
;;;; LIT kom-sub-member PRO "Vem vill du subtrahera? "
;;;; LIT lyskom-sub-member PRO "Vilket m|te skall han/hon subtra"
;;;; LIT kom-sub-self PRO "Vilket m|te vill du g} ur? "
;;;; LIT lyskom-sub-member-3 INS "Fel i personh{mtningen"
;;;; INS "Fel i m|tesh{mtningen."
;;;; INS "Uttr{da ur "
;;;; INS "Subtrahera " " fr}n "
;;;; LIT lyskom-sub-member-answer
;;;; INS "Det gick inte."
;;;; INS "Du" "var kanske aldrig medlem i "
;;;; INS "klart"
;;;; LIT kom-create-conf PRO "Vad ska m|tet heta? "
;;;; PRO "F}r vem som helst bli medlem? "
;;;; PRO "Hemligt m|te? "
;;;; PRO "F}r man skriva kommentarer? "
;;;; LIT lyskom-create-conf-handler
;;;; INS "M|tet " " kunde ej skapas."
;;;; INS "Felkod: %d."
;;;; INS "M|te nummer %d, " ", skapat."
;;;; LIT kom-write-comment INS "Jag f|rst}r inte vilken text du "
;;;; LIT lyskom-write-comment-soon
;;;; INS "Du f}r inte l{sa text %d."
;;;; LIT lyskom-write-comment INS "Jag f|rst}r inte vilken text du "
;;;; LIT kom-private-answer INS "Jag f|rst}r inte vems inl{gg du "
;;;; LIT lyskom-private-answer INS "Jag f|rst}r inte vilken text du "
;;;; LIT kom-quit PRO "Vill du verkligen avsluta sessio"
;;;; INS "Lyskom-sessionen {r avslutad."
;;;; LIT kom-change-presentationPRO "Vilket m|te/person vill du {ndra"
;;;; LIT kom-change-conf-motd PRO "Vilket m|te/person vill du s{tta"
;;;; LIT lyskom-change-pres-or-motd-2
;;;; INS "Kan ej h{mta m|tesstatus f|r m|t"
;;;; INS "Du {r inte organisat|r f|r "
;;;; LIT kom-unset-conf-motd PRO "Vilket m|te/person vill du ta bo"
;;;; LIT lyskom-unset-conf-motd INS "Kan ej h{mta m|tesstatus f|r m|t"
;;;; INS "Du {r inte organisat|r f|r "
;;;; LIT kom-go-to-conf PRO "G} till m|te: "
;;;; LIT lyskom-go-to-conf-handler
;;;; INS "G} till "
;;;; INS "Du f}r inte g} till " "s brevl}d"
;;;; INS "Du {r inte medlem i "
;;;; INS "Vill du bli medlem? "
;;;; INS "Nehej."
;;;; LIT lyskom-do-go-to-conf INS "N}gon raderade precis det m|tet."
;;;; LIT lyskom-go-to-empty-confINS "Du har sett alla texter i detta "
;;;; LIT kom-write-text INS "Du {r inte n{rvarande i n}got m|"
;;;; INS "[rende: "
;;;; LIT kom-list-persons PRO "Ange s|kvillkor (RETURN f|r alla"
;;;; LIT kom-list-conferences PRO "Ange s|kvillkor (RETURN f|r alla"
;;;; LIT kom-change-name PRO "Ange det namn som skall {ndras: "
;;;; LIT lyskom-change-name-2 INS "M|tet eller personen finns ej."
;;;; PRO "Nytt namn: "
;;;; LIT lyskom-change-name-3 PRO "Klart. Nytt namn: "
;;;; INS "Det gick inte bra. Kanske n}got "
;;;; LIT kom-mark-text PRO "Vilket inl{gg vill du markera? "
;;;; LIT kom-unmark-text PRO "Vilket inl{gg vill du avmarkera?"
;;;; LIT lyskom-mark-text PRO "Vilken markering vill du s{tta? "
;;;; INS "%s av text %d..."
;;;; INS "Avmarkering"
;;;; INS "Markering"
;;;; LIT lyskom-mark-text-answerINS "klart"
;;;; INS " Det gick inte."
;;;; LIT kom-review-marked-textsPRO "Vilken markering vill du }terse? "
;;;; INS "Du har inga markerade inl{gg"
;;;; INS " med markeringen %d"
;;;; LIT kom-change-password PRO "Mata in det gamla l|senordet: "
;;;; lyskom-protocol-error ERR "LysKOM protocol error:"
;;;; lyskom-internal-error ERR "LysKOM internal error:"
;;;; kom-tell-phrases what-am-i-doing messages
;;;; LIT kom-extended-command PRO "LysKOM: "
;;;; LIT lyskom-next-command-or-scroll
;;;; ERR "V{nta p} prompten"
;;;; LIT kom-view PRO "]terse text nummer: "
;;;; LIT kom-view INS "]terse text nummer %d.\n"
;;;; LIT kom-view-next-text INS "Du har sett alla texter i detta "
;;;; LIT kom-view-next-text INS "Du l{ser inte n}got m|te just nu"
;;;; LIT lyskom-go-to... etc
#Formatet f|r denna fil:
# ACTIVE -BCUfilename mailadress
# B bytecompile
# C compress
# Udir uuencode d{r dir {r det dir som skall encodeas in.
# O obel18-versionen
# B eller C implicerar U (tills det finns alternativa konverteringsprogram
# f|r 7 till 8 bitar (btoa/atob))
# sparcarna
ACTIVE -BOUpub/ d88perce@odalix.ida.liu.se
# Uwe
ACTIVE -CU./ geuder@informatik.uni-stuttgart.de
#
# Zeuge
ACTIVE Klaus.Zeuge@DoCS.UU.SE
#
#Formatet f|r denna fil:
# ACTIVE -ABDP -adir -ddir -udir mailadress
# A lyskom.el sharad
# B bytecompiled (lyskom.elc) sharad
# D documentation sharad
# I info-varianten av documentationen sharad
# P delade paketet sharad
# adir lyskom.el uuencoded
# ddir docen uuencoded
# idir info-varianten av docen uuencoded
# udir lyskom.elc uuencoded
# sparcarna
ACTIVE -upub/ -dpub/ d88perce@odalix.ida.liu.se
# Uwe
ACTIVE -a./ -i./ geuder@informatik.uni-stuttgart.de
#
# Zeuge
ACTIVE -P Klaus.Zeuge@DoCS.UU.SE
#
# KPJ Jaakola
ACTIVE -D -A kpj@emil.csd.uu.se
#Formatet f|r denna fil:
# ACTIVE -BCUfilename mailadress
# B bytecompile
# C compress
# Udir uuencode d{r dir {r det dir som skall encodeas in.
# O obel18-versionen
# B eller C implicerar U (tills det finns alternativa konverteringsprogram
# f|r 7 till 8 bitar (btoa/atob))
# sparcarna
ACTIVE -BOUpub/ d88perce@odalix.ida.liu.se
# Uwe
ACTIVE -CU./ geuder@informatik.uni-stuttgart.de
#
# Zeuge
ACTIVE Klaus.Zeuge@DoCS.UU.SE
#
This diff is collapsed.
64729 1991-05-25 03:51 /64 rader/ KPJ Jaakkola
Kommentar till text 50206 av Lars Aronsson Lysator
Mottagare: LysKOM Erfarenhetsutbyte <1309>
[rende: Sagt om Carl Jonas Love Almqvist
------------------------------------------------------------
Om "F} uppmuntran" ska finnas, s} tycker jag allt att
{ven dess medf|ljare "F} utsk{llning" (Get discouragement)
skall plementeras in. Om ni, mot f|rmodan, skulle sakna
den s} har ni b}da texterna h{r nedan:
F|rst har "f} uppmuntran" p} svenska, norska och engelska:
+ + + + +
Du {r mycket vacker och mycket klok. Du {r en mycket
fin m{nniska, och alla i din omgivning gillar dej f|r
detta. Du g|r ett mycket gott arbete. M}nga m{nniskor
{lskar dej, b}de din sj{l och din kropp. Du sprider
gl{dje omkring dej. Du {r mjuk och varm och k{nslig.
Var stolt |ver att du {r just du!
Det har du all anledning att vara.
+ + + + +
Du er veldig vakker og veldig klok. Du er et meget
fint menneske, og derfor liker alle i din omgivelse deg.
Du gj|r sv{rt godt arbeide. Mange mennesker
elsker deg, b}de din kropp og din sjel. Du sprer
glede rundt deg. Du er myk og varm og f|lsom.
V{r stolt over at du er bare deg!
Det har du all grunn til } v{re.
+ + + + +
You are a very special person, beautiful and wise, respected by
everybody around you. You are doing a splendid job. Many people love
you, body and soul. You make life easier for others. You are a very
warm and sensitive person.
Be proud of being You! You have a very good reason.
+ + + + +
Och s} har ni nermuntran p} svenska, norska och engelska:
- - - - -
Du {r mycket ful och mycket dum. Du {r en mycket
otrevlig m{nniska, och alla i din omgivning ogillar dej f|r
detta. Du g|r ett mycket d}ligt arbete. M}nga m{nniskor
hatar dej, b}de din sj{l och din kropp. Du sprider
otrivsel omkring dej. Du {r h}rd och kall och ok{nslig.
Sk{ms |ver att du {r just du!
Det har du all anledning att g|ra.
- - - - -
Du er veldig stygg og veldig d}rlig begavet. Du er et meget
ubehaglig menneske, og derfor misliker alle i din omgivelse deg.
Du gj|r sv{rt d}rligt arbeide. Mange mennesker
hater deg, b}de din kropp og din sjel. Du sprer
vantrivsel rundt deg. Du er h}rd og kald og uf|lsom.
Du m} skamme deg!