#include <stdio.h>
#define StackElementType char
#define Stack_Size 100
typedef struct
{StackElementType elem[Stack_Size];
int top;
}SeqStack;

void InitStack(SeqStack *s);/*初始化栈*/
void Push(SeqStack *s,StackElementType x); /*进栈操作*/
void Pop(SeqStack *s,StackElementType *x);/*出栈操作*/
void GetTop(SeqStack *s,StackElementType *x);/*取栈顶元素*/
int IsEmpty(SeqStack *s);/*判断栈是否为空*/
void GhostLanage();/*魔王语言翻译函数*/


/*主函数*/
main()
{
GhostLanage();
printf("\n\t按任意键退出\n\n");

}


/*初始化栈*/
void InitStack(SeqStack *s)
{s->top=-1;
}


/*进栈操作*/
void Push(SeqStack *s,StackElementType x)
{if(s->top==Stack_Size-1)
    printf("\n\t栈已满！");
else {s->top++;s->elem[s->top]=x;}
}


/*出栈操作*/
void Pop(SeqStack *s,StackElementType *x)
{if(s->top==-1)
printf("\n\t栈为空！");
else {*x=s->elem[s->top];s->top--;}
}


/*取栈顶元素*/
void GetTop(SeqStack *s,StackElementType *x)
{if(s->top==-1)
printf("\n\t栈为空！");
else *x=s->elem[s->top];
}


/*判断栈是否为空*/
int IsEmpty(SeqStack *s)
{if(s->top==-1) return(0);
else return(1);
}


/*魔王语言翻译函数*/
void GhostLanage()
{SeqStack B,A,s,B1,A1,r,M;
StackElementType ch,ch1,ch2,x;
char aa[100];
int choice,i=0,n;
InitStack(&B);InitStack(&A);InitStack(&s);InitStack(&r);InitStack(&M);
printf("\n\n 请选择魔王语言的转换形式：\n\t1.B->tAdA   A->sae\n\t2.^^^^\n\t3.^^^^\n");
scanf("%d",&choice);
switch(choice)
{case 1: Push(&B,'t');Push(&B,'A');Push(&B,'d');Push(&B,'A');
           Push(&A,'s');Push(&A,'a');Push(&A,'e');break;
   case 2:;break;
   case 3:;break;
}

if(choice==1)
printf("\n\t你选择的是：B->tAdA   A->sae\n");
if(choice==2)
printf("\n\t你选择的是：^^^\n");
if(choice==3)
printf("\n\t你选择的是：^^^\n");
printf("\n\t请输入要翻译的魔王语言\n");
scanf("%s",aa);
for(i=0;aa[i]!='\0';i++)
Push(&s,aa[i]);
while(IsEmpty(&s))
{Pop(&s,&ch);
     if(ch=='B')
       {B1=B;
        while(IsEmpty(&B1))
   {Pop(&B1,&ch1);
           if(ch1=='A')
             {A1=A;
              while(IsEmpty(&A1))
                    {Pop(&A1,&ch2);
                     Push(&r,ch2);
                    }
             }
           else Push(&r,ch1);
          }
       }
     else if(ch=='A')
             {A1=A;
              while(IsEmpty(&A1))
                    {Pop(&A1,&ch2);
                     Push(&r,ch2);
                    }
             }
     else if(ch==')')
           {Pop(&s,&ch2);
              while(ch2!='(')
                 {Push(&M,ch2);
                  Pop(&s,&ch2);
                 }
      GetTop(&M,&ch2);
      x=ch2;
             Pop(&M,&ch2);
              while(IsEmpty(&M))
                 {Push(&r,x);
                  Pop(&M,&ch2);
    Push(&r,ch2);
                 }
               Push(&r,x);
           }
     else Push(&r,ch);
}
M=r;
printf("\n\n\t翻译的结果为：");
while(IsEmpty(&M))
   {Pop(&M,&ch);
    printf("%c",ch);
   }
printf("\n\n\t是否继续翻译为汉语：（1-继续，0-不继续）");
scanf("%d",&n);
if(n==1)
{ printf("\n\n\t翻译为汉语的结果为：\n\n\t");
     M=r;  
     while(IsEmpty(&M))
      {Pop(&M,&ch);
       if(ch=='t') printf("天");
       else if(ch=='d') printf("地");
       else if(ch=='s') printf("上");
       else if(ch=='a') printf("一只");
       else if(ch=='e') printf("鹅");
       else if(ch=='z') printf("追");
       else if(ch=='g') printf("赶");
       else if(ch=='x') printf("下");
       else if(ch=='n') printf("蛋");
       else if(ch=='h') printf("恨");
      }
    printf("\n");
}
else ;
}