/* X esperanto al Win Xavier Godivier julio 1998
Tiu programo sxangxas 'x supersignajn literojn' cx gx jx... en vera supersignajn literojn.
godivier@istia.univ-angers.fr
http://www.istia.univ-angers.fr/~godivier

-> xalwin.exe */

#include <stdio.h>

#define NB 12

char litero1, litero2, litero[NB+1]={"cghjsuCGHJSUù"}, vide[6]={""};

int winlitero[NB]={230, 248, 182, 188, 254, 253, 198, 216, 166, 172, 222, 221}; int i ;

FILE *fajlo_en; FILE *fajlo_el;

void main(int nb,char **arg)

{ if (nb!=3){printf("xalwin [origina fajlo] [destina fajlo]\n");

printf("codas esperantan teksajxon sen supersignoj (kiu uzas 'x')\n");

printf("al teksajxo kun supersignoj en window literaro.\n");

printf("*** x esperanto al Win *** X. Godivier julio 98 ***\n");exit(1);} if((fajlo_en=fopen(arg[1],"rt"))==NULL) printf("erreur fichier %s\n",arg[1]); if(strcmp(arg[1],arg[2])==0) {printf("La destina fajlo kaj la origina fajlo\n"); printf("devas diferenci\n"); exit(1);}

if((fajlo_el=fopen(arg[2],"wt"))==NULL) printf("fajla eraro %s\n",arg[2]);

strcpy(litero2,vide); fscanf(fajlo_en,"%c",&litero1);

while(fscanf(fajlo_en,"%c",&litero2)==1) {if((litero2==120)||(litero2==88)||(litero2==94)) { i=0; while((litero1!=litero[i])&&(i