/*
Fonction :
Description:
Return:
*/
khawi _w9ra(war9a w,joumla fichier,ra9m kifach){
_7arf str[200];
w = NULL;
switch(kifach){
case 1:
w = xw7al(fichier,"r");
if (!w){
ktabhda(str,"fichier : %s",fichier);
ktab("%s introuvable\n",fichier);
}
else {
ktabhda(str,"fichier : %s",fichier);
ktab("%s ouvert !\n",fichier);
}
break;
case 2:
w = xw7al(fichier,"w");
ktabhda(str,"fichier : %s",fichier);
ktab("%s tsayeb\n",fichier);
break;
default:
ktab("Maymkench :D");
break;
}
return ;
}
/*
Fonction :
Description:
Return:
*/
khawi bdakolchi(_7arf smit_lprojet[100])
{
_7arf str[200];
#ifdef WIN32
ktabhda(str,"title = %s",smit_lprojet);
f3al(str);
#endif
ktab("======================= MPP ==================\n");
ktab("MPP is a C-based programming language that allows you to code more easily in Darija.\n");
ktab("[+]web site : blog.naper.eu || mpp-project.eu\n\n");
}
/*
Fonction :
Description:
Return:
*/
khawi mpp_error(joumla message,...){
set_color_to(31);
ktab("[MPP : ERROR]: ");
_7arf temp[1000];
va_list ap;
va_start(ap, message);
vsprintf(temp, message, ap);
va_end(ap);
ktab(temp);
lkimakan();
}
/*
Fonction :
Description:
Return:
*/
war9a wsayeb(joumla fichier,joumla message){
war9a w;
w = WALOU;
w = xw7al(fichier,"w");
ktab("%s\n",message);
return w;
}
ivocab() {
static int direct, kword, mm, mark;
if( (F3=fopen("advvocab","r")) == NULL ) fatal();
printf("vocabulary words :");
while(getlin()) {
mark=line(1);
if( mark=='m' ) { /* message */
rtext(mm)=putmes();
} else {
if( mark=='d' ) { /* directional words */
direct=direct+1; kword=direct;
} else if( mark=='s' ) { /* special words */
mm=ranm-mesimp;
kword=mm+(specwr*1000);
mesimp=mesimp+1;
} else {
printf("\n%s%.10s\n","неверный маркер: ",_line); fatal();
}
p=4 /* read list of words */;
while(getwrd()) {
if( vocab(_word) >= 0 ) {
printf("\n%s%.4s\n","дважды определено: ",_word);
fatal();
}
nvoc=nvoc+1;
ktab(nvoc)=kword; atab(nvoc) = *rword;
screen(nvoc);
}
}
}
printf("%8d %s %6d %s\n",nvoc,"of",vocw,"used");
fclose(F3);
}
/*
Fonction :
Description:
Return:
*/
ra9m rlstar(joumla message ,...){
va_list arg;
ra9m k;
va_start (arg, message);
k = _xwktab (stdout, message, arg);
va_end (arg);
ktab("\n");
return k;
}
/*
Fonction :
Description:
Return:
*/
khawi kzra9(joumla message,...){
set_color_to(34);
char temp[1000];
va_list ap;
va_start(ap, message);
vsprintf(temp, message, ap);
va_end(ap);
ktab(temp);
lkimakan();
return ;
}
/*
Fonction :
Description:
Return:
*/
khawi lkimakan(){
ktab("\033[0m");
return ;
}
/*
Fonction :
Description:
Return:
*/
khawi ila_ra9m(ra9m a , ra9m b, _7arf message[MAX]){
if (a == b){
ktab("%s",message);
}
return ;
}
/*
Fonction :
Description:
Return:
*/
khawi wari(_7arf message[], ra9m a){
ktab("%s %d\n",message,a);
return ;
}
/*
Fonction :
Description:
Return:
*/
khawi wari_ra9me(_ra9me a){
ktab("%d\n",a);
return ;
}
/*
Fonction :
Description:
Return:
*/
khawi wari_3o9adi(r3o9adi a){
ktab("%f + %fi\n",a.r7a9i9i,a.rtakhayouli);
}