roland@ttds.UUCP (Roland Karlsson) (09/20/85)
Hejsan.
Problem uppst}r d} man skall macgetta och macputta filer somm inneh}ller
svenska tecken. H{r f|ljer tv} kommandofiler med tillh|rande program
vilka konverterar och laddar filer.
kommandofilerna m}ste naturligtvis editeras f|r att st{mma med var du
placerar programmen M2s och S2M.
Roland Karlsson.
---------- Sk{r h{r ----------------------------------------------------------
: This is a shar archive. Extract with sh, not csh.
: This archive ends with exit, so do not worry about trailing junk.
echo 'Extracting macputSwe'
sed 's/^X//' > macputSwe << '+ END-OF-FILE macputSwe'
X/usr/alla/roland/bin/S2M < $1 > S2M.tmp
Xmacput -u -a MACA -t TEXT -n $1 S2M.tmp
Xrm S2M.tmp
+ END-OF-FILE macputSwe
chmod 'u=rwx,g=rx,o=rx' 'macputSwe'
echo ' -rwxr-xr-x 1 roland 91 Sep 19 12:54 macputSwe (as sent)'
echo -n ' '
/bin/ls -l macputSwe
echo 'Extracting macgetSwe'
sed 's/^X//' > macgetSwe << '+ END-OF-FILE macgetSwe'
Xmacget -u M2S.tmp
X/usr/alla/roland/bin/M2S < M2S.tmp.text > TmpFile.$$
Xecho file saved as TmpFile.$$
Xrm M2S.tmp.text
+ END-OF-FILE macgetSwe
chmod 'u=rwx,g=rx,o=rx' 'macgetSwe'
echo ' -rwxr-xr-x 1 roland 117 Sep 19 14:05 macgetSwe (as sent)'
echo -n ' '
/bin/ls -l macgetSwe
echo 'Extracting M2S.c'
sed 's/^X//' > M2S.c << '+ END-OF-FILE M2S.c'
X# include "stdio.h"
X
Xmain(){
X int c;
X
X while((c = getchar()) != EOF){
X switch(c){
X case 0x8c:
X putchar('}');
X break;
X case 0x8a:
X putchar('{');
X break;
X case 0x9a:
X putchar('|');
X break;
X case 0x81:
X putchar(']');
X break;
X case 0x80:
X putchar('[');
X break;
X case 0x85:
X putchar('\\');
X break;
X default:
X putchar((char) c);
X }
X }
X}
+ END-OF-FILE M2S.c
chmod 'u=rw,g=r,o=r' 'M2S.c'
echo ' -rw-r--r-- 1 roland 386 Sep 19 13:50 M2S.c (as sent)'
echo -n ' '
/bin/ls -l M2S.c
echo 'Extracting S2M.c'
sed 's/^X//' > S2M.c << '+ END-OF-FILE S2M.c'
X# include "stdio.h"
X
Xmain(){
X char c;
X
X while((c = getchar()) != EOF){
X switch(c){
X case '}':
X putchar(0x8c);
X break;
X case '{':
X putchar(0x8a);
X break;
X case '|':
X putchar(0x9a);
X break;
X case ']':
X putchar(0x81);
X break;
X case '[':
X putchar(0x80);
X break;
X case '\\':
X putchar(0x85);
X break;
X default:
X putchar(c);
X }
X }
X}
+ END-OF-FILE S2M.c
chmod 'u=rw,g=r,o=r' 'S2M.c'
echo ' -rw-r--r-- 1 roland 380 Sep 19 11:15 S2M.c (as sent)'
echo -n ' '
/bin/ls -l S2M.c
exit 0