seqlists.h

该包是数据结构的实验软件,来源于合肥工业大学人工智能与数据挖掘实验室,用来实现数据结构.

     { dec(L.Last,i);
       display_SeqList_Last(L); }

 void handle_SeqList_event(pmenunode& pmenu,SeqList& L)
   {int  xl=0,yl=0,xr=0,yr=0,randmin=0,randmax=0,dd=0;
    boolean sv;
    int sb1=0,sb2=0, holv=0,dssb=0,agw=0,agh=0;
    unsigned char  ss[60]="";
     switch(pmenu->command)
      {
      case  ComInputGrpArr: {  input_SeqList(L);   }break;
      case  ComRandGrpArr:  {  Inputintinwnd(20,4,60,"设置随机数范围, 下限: ",randmin);
			      Inputintinwnd(20,4,60,"设置随机数范围, 上限: ",randmax);
			      rand_SeqList(L,randmin,randmax);
			    }break;
      case  ComModiGrpArr:  modi_SeqList(L); break;
      case  ComReadGrpArr:  load_SeqList(L); break;
      case  ComSaveGrpArr:  save_SeqList(L); break;
      case  ComSetrange:    set_SeqList_range(L); break;
      case  ComDisp:        display_SeqList(L);   break;
      case  ComMove1:      {  Inputstrinwnd(20,3,60,"选择新显示区域 ",ss);
			     SeqList_range(L,xl,yl,xr,yr);
			     move1_SeqList(L);
			     Clear_range(xl,yl,xr,yr);
			     //display_SeqList(L);
				}   break;
      case  ComMove2:      { Inputstrinwnd(20,4,60,"选择新显示区域 ",ss);
			    move_SeqList(L);
			   }break;
       case ComEditsub1GrpArr:
			   { sb1=L.ag.sub1;
			      Editintinwnd(20,4,60,"数组下标下限: ",sb1);
			      if (sb1<(L.ag.asub1) )
				 {
				 Error("数据范围错! ");
				 return;
				 }
			      else if (sb1!=L.ag.sub1)
			       { L.ag.sub1=sb1;
				// initial_SeqList(L);
				 display_SeqList(L);
				}
			      }break;
      case ComEditsub2GrpArr:   {
			   sb2=L.ag.sub1+L.ag.count-1;
			   Editintinwnd(20,4,60,"数组下标上限: ",sb2);
			  if ( (sb2<L.ag.sub1)||(sb2>L.ag.asub2) )
				{
				Error("数据范围错! ");
				return;
				}
			else if (sb2!=L.ag.sub1+L.ag.count-1)
			      { L.ag.count=sb2-L.ag.sub1+1;
				//initial_SeqList(L);
				display_SeqList(L);
				}
			}break;
      case ComHorLevGrpArr:   { holv=L.ag.ho_lev;
				Editintinwnd(20,4,64,"水平或垂直显示:0--垂直显示, 1--水平显示 ",holv);
				if (! (holv==0||holv==1) )
				   {
				   Error("数据范围错! ");
				   return;
				   }
				else if  (L.ag.ho_lev!=holv )
				    { L.ag.ho_lev=(HorOrLev)holv;
				      setcolor(WHITE);
					    setfillpattern(fillmode,fillcolor);
					    if( L.ag.havefd==true)
					      farfree(L.ag.datafild[L.ag.fdsub]);
					   L.ag.havefd=true;
					   L.ag.fdsub=L.ag.ho_lev;
					   bar(1,1,L.ag.w-2,L.ag.h-2);
					   L.ag.size=imagesize(1,1,L.ag.w-2,L.ag.h-2);
					   L.ag.datafild[L.ag.fdsub]=farmalloc(L.ag.size);
					  getimage(1,1,L.ag.w-2,L.ag.h-2,L.ag.datafild[L.ag.fdsub]);
					  putimage(1,1,L.ag.datafild[L.ag.fdsub],1);
					  L.ag.dx=L.ag.ho_lev*L.ag.w;
					  L.ag.dy=(1-L.ag.ho_lev)*L.ag.h;
					  L.ag.sx=25*(1+L.ag.decinc)+( (getmaxx()-200)*L.ag.ho_lev+ 50 )/2*(1-L.ag.decinc);
					  L.ag.sy=25*(1+L.ag.decinc)+( (getmaxy()-150)*(1-L.ag.ho_lev)+50)/2*(1-L.ag.decinc) ;
					  //initial_SeqList(L);
				    display_SeqList(L);
					}
				  }break;
      case ComDisSubGrpArr:    {  dssb=L.ag.dsb;
				  Editintinwnd(20,4,64,"是否显示下标: 0--不显示下标  1--显示下标 ",dssb);
				   if (!(dssb==0||dssb==1) )
				   {
				     Error("数据范围错! ");
				     return;
				   }
				 else if (dssb!=L.ag.dsb )
				      {
				       L.ag.dsb=boolean(dssb==1);
				       display_SeqList(L);
				       }
				 } break;
      case ComDecIncGrpArr:    if(L.ag.dsb==1)
				  {  dd=(L.ag.decinc+1)/2;
				     Editintinwnd(20,4,64,"下标按增或减方向: 0--递减, 1--递增 ",dd);
				     if (! (dd==0||dd==1) )
					{
					  Error("数据范围错! ");
					   return;
					 }
					else if (dd!=(L.ag.decinc+1)/2)
					  {
					  L.ag.decinc=(d_or_i)(2*dd-1);
					  L.ag.sx=25*(1+L.ag.decinc)+( (getmaxx()-200)*L.ag.ho_lev+ 50 )/2*(1-L.ag.decinc);
					   L.ag.sy=25*(1+L.ag.decinc)+( (getmaxy()-150)*(1-L.ag.ho_lev)+50)/2*(1-L.ag.decinc) ;

					  //initial_SeqList(L);
					  display_SeqList(L);
					   }
				    }
				else
				 ;
				break;

      case ComSetHighGrpArr:     {  agh=L.ag.h;
				     Editintinwnd(20,4,60,"设置元素显示高度点数[8..50]: ",agh);
				      if (! (agh>=8&&agh<=50) )
				       { Error("数据范围错! ");
					 return;
					 }
				       else if (agh!=h)
					{ L.ag.h=agh;
					  setcolor(WHITE);
					    setfillpattern(fillmode,fillcolor);
					    if( L.ag.havefd==true)
					      farfree(L.ag.datafild[L.ag.fdsub]);
					   L.ag.havefd=true;
					   L.ag.fdsub=L.ag.ho_lev;
					   bar(1,1,L.ag.w-2,L.ag.h-2);
					   L.ag.size=imagesize(1,1,L.ag.w-2,L.ag.h-2);
					   L.ag.datafild[L.ag.fdsub]=farmalloc(L.ag.size);
					  getimage(1,1,L.ag.w-2,L.ag.h-2,L.ag.datafild[L.ag.fdsub]);
					  putimage(1,1,L.ag.datafild[L.ag.fdsub],1);
					  L.ag.dx=L.ag.ho_lev*L.ag.w;
					  L.ag.dy=(1-L.ag.ho_lev)*L.ag.h;
					  L.ag.sx=25*(1+L.ag.decinc)+( (getmaxx()-200)*L.ag.ho_lev+ 50 )/2*(1-L.ag.decinc);
					  L.ag.sy=25*(1+L.ag.decinc)+( (getmaxy()-150)*(1-L.ag.ho_lev)+50)/2*(1-L.ag.decinc) ;

					  //initial_SeqList(L);
					  display_SeqList(L);
					  }
					} break;
      case ComSetWidthGrpArr:   {  agw=L.ag.w;
				   Editintinwnd(20,4,60,"设置元素显示宽度点数[8..70]: ",agw);
				   if (!(agw>=8&&agw<=70) )
				    {
				     Error("数据范围错! ");
				     return;
				     }
				     else if (agw!=L.ag.w)
				     { L.ag.w=agw;
				     setcolor(WHITE);
					    setfillpattern(fillmode,fillcolor);
					    if( L.ag.havefd==true)
					      farfree(L.ag.datafild[L.ag.fdsub]);
					   L.ag.havefd=true;
					   L.ag.fdsub=L.ag.ho_lev;
					   bar(1,1,L.ag.w-2,L.ag.h-2);
					   L.ag.size=imagesize(1,1,L.ag.w-2,L.ag.h-2);
					   L.ag.datafild[L.ag.fdsub]=farmalloc(L.ag.size);
					  getimage(1,1,L.ag.w-2,L.ag.h-2,L.ag.datafild[L.ag.fdsub]);
					  putimage(1,1,L.ag.datafild[L.ag.fdsub],1);
					  L.ag.dx=L.ag.ho_lev*L.ag.w;
					  L.ag.dy=(1-L.ag.ho_lev)*L.ag.h;
					  L.ag.sx=25*(1+L.ag.decinc)+( (getmaxx()-200)*L.ag.ho_lev+ 50 )/2*(1-L.ag.decinc);
					  L.ag.sy=25*(1+L.ag.decinc)+( (getmaxy()-150)*(1-L.ag.ho_lev)+50)/2*(1-L.ag.decinc) ;

				     //initial_SeqList(L);
				     display_SeqList(L);
				      }
				   }break;
			   }
	     }
 void handle_SeqList_menu( mymenu& GrpArrmenu1, boolean& selectorno,
			       pmenunode& pmenu, SeqList& L)
   {
     Mymenu_selectmenu( GrpArrmenu1,pmenu,selectorno);
	if (selectorno)
	    if (Mymenu_issubmenuitem(GrpArrmenu1))
	       {
		      Mymenu_disabledispsubmenu(GrpArrmenu1,pmenu->numofmenu/100);
		      handle_SeqList_event(pmenu,L);
		   }
	     else
		return;
	else
	      return;
     }

 void handle_SeqList(SeqList& L)
  { mymenu GrpArrmenu2;
    pmenunode BMp=Newmenu1(
	 Newsubmenu1("设置显示方式",
	    Newmenu1(
	      Newitem1("数组下标下限"," ",0,0,ComEditsub1GrpArr,
	      Newitem1("数组下标上限"," ",0,0,ComEditsub2GrpArr,
	      Newitem1("水平或垂直显示"," ",0,0,ComHorLevGrpArr,
	      Newitem1("是否显示下标"," ",0,0,ComDisSubGrpArr,
	      Newitem1("下标按增或减方向"," ",0,0,ComDecIncGrpArr,
	      Newitem1("设置元素显示高度","Set Elmn High [dots] ",0,0,ComSetHighGrpArr,
	      Newitem1("设置元素显示宽度","Set Elmn width [dots] ",0,0,ComSetWidthGrpArr,
	      nil)))))))),
	 Newsubmenu1("输入数据",
	    Newmenu1(
	      Newitem1("逐个输入数据","Input data from KeyBoard ",0,0,ComInputGrpArr,
	      Newitem1("随机输入数据","Rand data to Array ",0,0,ComRandGrpArr,
	      Newitem1("修改原有数组","Modify Array data ",0,0,ComModiGrpArr,
	      Newitem1("从文件读入数组","Read Array data from file ",0,0,ComReadGrpArr,
	      Newitem1("存盘","Save Array data to file ",0,0,ComSaveGrpArr,
	      nil)))))),
	 Newsubmenu1("显示数组",
	    Newmenu1(
	      Newitem1("设定显示区域"," ",0,0,ComSetrange,
	      Newitem1("按原定位置显示","Display Array ",0,0,ComDisp,
	      Newitem1("平移显示  并清除原位","Move to New Position ",0,0,ComMove1,
	      Newitem1("平移显示  不清除原位","Move to New Position, Keep Old",0,0,ComMove2,
	      nil))))),
	 Newsubmenu1("返回",nil,nil)))));
      Mymenu_init(GrpArrmenu2,BMp);

      do
	  handle_SeqList_menu(GrpArrmenu2,selectorno,pmenu,L);
	 while(strcmp(pmenu->menuname,"返回") );
	  Mymenu_clearmainmenu(GrpArrmenu2);
	  Mymenu_reset_cursubmenu(GrpArrmenu2);
	  Mymenu_done(GrpArrmenu2);
  }
 void get_SeqList(SeqList& L)
   { handle_SeqList(L);  }
#endif