*** muldif.rr	Tue Apr  1 11:52:29 2014
--- os_muldif.rr	Tue Apr  1 11:51:51 2014
***************
*** 1,3 ****
--- 1,4 ----
+ #define USEMODULE 1
  /*             muldif.rr (Library for Risa/Asir) 
   *          Toshio Oshima (Nov. 2007 - Mar. 2014)
   *
***************
*** 8,15 ****
   */
  
  ord([zz,dz,dy,dx])$
- Muldif.rr="001403030"$
  AMSTeX=1$
  TeXEq=5$
  TeXLim=80$
  DIROUT="%HOME%\\tex"$
--- 9,255 ----
   */
  
  ord([zz,dz,dy,dx])$
  AMSTeX=1$
+ 
+ #ifdef USEMODULE
+ module os_md;
+ static Muldif.rr$
+ static TeXEq$
+ static TeXLim$
+ static DIROUT$
+ static DVIOUTL$
+ static DVIOUTA$
+ static DVIOUTH$
+ static ErMsg$
+ static FLIST$
+ 
+ Muldif.rr="001403030"$
+ TeXEq=5$
+ TeXLim=80$
+ DIROUT="%HOME%\\tex"$
+ DVIOUTL="%ASIRROOT%\\bin\\risatex0.bat"$
+ DVIOUTA="%ASIRROOT%\\bin\\risatex.bat"$
+ DVIOUTH="start dviout -2 \"%ASIRROOT%\\help\\muldif.dvi\" #%LABEL%"$
+ ErMsg = newvect(3,[
+  "irregal argument", /* 0 */
+  "too big size",     /* 1 */
+  "irregal option"    /* 2 */
+ ])$
+ FLIST=0$
+ 
+ localf erno$
+ localf chkfun$
+ localf makev$
+ localf vweyl$
+ localf mycat$
+ localf mycat0$
+ localf findin$
+ localf countin$
+ localf mycoef$
+ localf mydiff$
+ localf myediff$
+ localf m2l$
+ localf mydeg$
+ localf mymindeg$
+ localf m1div$
+ localf mulsubst$
+ localf cmpsimple$
+ localf simplify$
+ localf monotos$
+ localf monototex$
+ localf vnext$
+ localf ldict$
+ localf ndict$
+ localf nextsub$
+ localf nextpart$
+ localf transpart$
+ localf trpos$
+ localf sprod$
+ localf sinv$
+ localf slen$
+ localf sord$
+ localf vprod$
+ localf mulseries$
+ localf pluspower$
+ localf vtozv$
+ localf dupmat$
+ localf matrtop$
+ localf mydet$
+ localf mperm$
+ localf mtranspose$
+ localf mtoupper$
+ localf mydet2$
+ localf myrank$
+ localf meigen$
+ localf vgen$
+ localf mmc$
+ localf lpgcd$
+ localf mdivisor$
+ localf mdsimplify$
+ localf m2mc$
+ localf easierpol$
+ localf mykernel$
+ localf myimage$
+ localf mymod$
+ localf mmod$
+ localf llbase$
+ localf lsort$
+ localf lsol$
+ localf lnsol$
+ localf m2v$
+ localf lv2m$
+ localf m2lv$
+ localf s2m$
+ localf m2diag$
+ localf myinv$
+ localf madj$
+ localf mpower$
+ localf texlen$
+ localf isdif$
+ localf fctrtos$
+ localf texlim$
+ localf fmult$
+ localf radd$
+ localf getel$
+ localf ptol$
+ localf rmul$
+ localf mtransbys$
+ localf mysubst$
+ localf mmulbys$
+ localf appldo$
+ localf appledo$
+ localf muldo$
+ localf adj$
+ localf laplace1$
+ localf laplace$
+ localf mce$
+ localf mc$
+ localf rede$
+ localf ad$
+ localf add$
+ localf vadd$
+ localf addl$
+ localf cotr$
+ localf rcotr$
+ localf muledo$
+ localf mulpdo$
+ localf mulpdo$
+ localf transpdosub$
+ localf transpdo$
+ localf rpdiv$
+ localf mygcd$
+ localf mylcm$
+ localf sftpexp$
+ localf applpdo$
+ localf tranlpdo$
+ localf divdo$
+ localf qdo$
+ localf sqrtdo$
+ localf ghg$
+ localf ev4s$
+ localf b2e$
+ localf sftpow$
+ localf sftpowext$
+ localf polinsft$
+ localf pol2sft$
+ localf binom$
+ localf expower$
+ localf toeul$
+ localf fromeul$
+ localf sftexp$
+ localf fractrans$
+ localf soldif$
+ localf chkexp$
+ localf getroot$
+ localf expat$
+ localf polbyroot$
+ localf polbyvalue$
+ localf pcoef$
+ localf prehombf$
+ localf prehombfold$
+ localf sub3e$
+ localf fuchs3e$
+ localf okubo3e$
+ localf eosub$
+ localf even4e$
+ localf odd5e$
+ localf extra6e$
+ localf rigid211$
+ localf solpokuboe$
+ localf stoe$
+ localf dform$
+ localf polinvsym$
+ localf polinsym$
+ localf tohomog$
+ localf substblock$
+ localf okuboetos$
+ localf heun$
+ localf fspt$
+ localf abs$
+ localf calc$
+ localf isint$
+ localf isalpha$
+ localf isnum$
+ localf isalphanum$
+ localf isvar$
+ localf isall$
+ localf sproot$
+ localf spgen$
+ localf chkspt$
+ localf cterm$
+ localf terms$
+ localf polcut$
+ localf redgrs$
+ localf cutgrs$
+ localf mcgrs$
+ localf str_char$
+ localf str_pair$
+ localf str_cut$
+ localf str_str$
+ localf ssubgrs$
+ localf verb_tex_form$
+ localf my_tex_form$
+ localf smallmattex$
+ localf str_subst$
+ localf dviout0$
+ localf myhelp$
+ localf isMs$
+ localf showbyshell$
+ localf getbyshell$
+ localf show$
+ localf dviout$
+ localf rtotex$
+ localf mtotex$
+ localf ltotex$
+ localf str_tb$
+ localf getbygrs$
+ localf shiftop$
+ localf conf1sp$
+ localf pgen$
+ localf mgen$
+ localf newbmat$
+ localf pfrac$
+ localf s2sp$
+ localf sp2grs$
+ localf intpoly$
+ localf powsum$
+ localf bernoulli$
+ localf lft01$
+ localf linfrac01$
+ localf ptype$
+ localf init$
+ #else
+ extern Muldif.rr$
+ extern TeXEq$
+ extern TeXLim$
+ extern DIROUT$
+ extern DVIOUTL$
+ extern DVIOUTA$
+ extern DVIOUTH$
+ extern ErMsg$
+ extern FLIST$
+ 
+ Muldif.rr="001403030"$
  TeXEq=5$
  TeXLim=80$
  DIROUT="%HOME%\\tex"$
***************
*** 22,38 ****
   "irregal option"    /* 2 */
  ])$
  FLIST=0$
  
  def erno(N)
  {
!   	extern ErMsg;
  	print(ErMsg[N]);
  }
  
  def chkfun(Fu, Fi)
  {
! 	extern FLIST;
! 	extern Muldif.rr;
  
  	if(type(Fu) <= 1){
  		if(Fu==1)
--- 262,279 ----
   "irregal option"    /* 2 */
  ])$
  FLIST=0$
+ #endif
  
  def erno(N)
  {
!   	// extern ErMsg;
  	print(ErMsg[N]);
  }
  
  def chkfun(Fu, Fi)
  {
! 	// extern FLIST;
! 	// extern Muldif.rr;
  
  	if(type(Fu) <= 1){
  		if(Fu==1)
***************
*** 1940,1946 ****
  
  def fctrtos(P)
  {
! 	extern TeXLim;
  
  	if(!chkfun("write_to_tb", "names.rr"))
  		return 0;
--- 2181,2187 ----
  
  def fctrtos(P)
  {
! 	// extern TeXLim;
  
  	if(!chkfun("write_to_tb", "names.rr"))
  		return 0;
***************
*** 2153,2159 ****
  
  def texlim(S,Lim)
  {
! 	extern TeXLim;
  	if(S==1 && Lim>10){
  		TeXLim=Lim;
  		mycat(["Set TeXLim =",Lim]);
--- 2394,2400 ----
  
  def texlim(S,Lim)
  {
! 	// extern TeXLim;
  	if(S==1 && Lim>10){
  		TeXLim=Lim;
  		mycat(["Set TeXLim =",Lim]);
***************
*** 5503,5511 ****
  
  def myhelp(T)
  {
! 	extern DVIOUT;
! 	extern HDVI;
! 	extern DVIOUTH;
  
  	if(type(T)==2){
  		if(T==getbygrs){
--- 5744,5752 ----
  
  def myhelp(T)
  {
! 	// extern DVIOUT;
! 	// extern HDVI;
! 	// extern DVIOUTH;
  
  	if(type(T)==2){
  		if(T==getbygrs){
***************
*** 5555,5561 ****
  
  def isMs()
  {
! 	if(type(Tmp=getenv("temp"))!=7) Tmp=getenv("tmp");
  	if(str_chr(Tmp,0,"\\")==2) return 1;
  	else return 0;
  }
--- 5796,5804 ----
  
  def isMs()
  {
! 	if(type(Tmp=getenv("temp"))!=7) {
!        if (type(Tmp=getenv("tmp")) != 7) Tmp=getenv("TMP");
!     }
  	if(str_chr(Tmp,0,"\\")==2) return 1;
  	else return 0;
  }
***************
*** 5571,5577 ****
  
  def getbyshell(S)
  {
! 	extern DIROUT;
  
  	if(type(Tmp=getenv("temp"))!=7 && type(Tmp=getenv("tmp")) != 7)
  		Tmp=str_subst(DIROUT,["%HOME%","%ASIRROOT%"],[getenv("HOME"),get_rootdir()]);
--- 5814,5820 ----
  
  def getbyshell(S)
  {
! 	// extern DIROUT;
  
  	if(type(Tmp=getenv("temp"))!=7 && type(Tmp=getenv("tmp")) != 7)
  		Tmp=str_subst(DIROUT,["%HOME%","%ASIRROOT%"],[getenv("HOME"),get_rootdir()]);
***************
*** 5684,5690 ****
  						 fctr=1 */
  def dviout(L)
  {
! 	extern AMSTeX, TeXEq, DIROUT, DVIOUTA, DVIOUTL;
  
  	MyEq = [
  		["\\[\n ","\\]"],
--- 5927,5933 ----
  						 fctr=1 */
  def dviout(L)
  {
! 	// extern AMSTeX, TeXEq, DIROUT, DVIOUTA, DVIOUTL;
  
  	MyEq = [
  		["\\[\n ","\\]"],
***************
*** 5859,5865 ****
  
  def mtotex(M)
  {
! 	extern TexLim;
  
  	MB=mat(["(",")","p"],["\\{","\\}","B"],["[","]","b"],["|","|","v"],
  		["\\|","\\|","V"], [".",".",""]);
--- 6102,6108 ----
  
  def mtotex(M)
  {
! 	// extern TexLim;
  
  	MB=mat(["(",")","p"],["\\{","\\}","B"],["[","]","b"],["|","|","v"],
  		["\\|","\\|","V"], [".",".",""]);
***************
*** 5985,5991 ****
  
  def ltotex(L)
  {
! 	extern TeXLim;
  
  	if(type(L)==5)
  		L = vtol(L);
--- 6228,6234 ----
  
  def ltotex(L)
  {
! 	// extern TeXLim;
  
  	if(type(L)==5)
  		L = vtol(L);
***************
*** 6155,6161 ****
  		=11: recurrence */ 
  def getbygrs(M, TT)
  {
! 	extern TeXEq;
  
  	if(type(M)==7) M=s2sp(M);
  	if(type(M) != 4 || TT =="help"){
--- 6398,6404 ----
  		=11: recurrence */ 
  def getbygrs(M, TT)
  {
! 	// extern TeXEq;
  
  	if(type(M)==7) M=s2sp(M);
  	if(type(M) != 4 || TT =="help"){
***************
*** 7768,7780 ****
  	return (lsort(L,vars(nm(P)),2)==[])?1:2;
  }
  
! if(!access(get_rootdir()+"/help/muldif.dvi")||!access(get_rootdir()+"/help/muldif.pdf")){
! 	mycat(["Put muldif.dvi and muldif.pdf in", get_rootdir()+(isMs()?"\\help.":"/help.")]);}else;$
! if(isMs());else{
  	DIROUT="%HOME%/Asir/tex";
  	DVIOUTA=str_subst(DVIOUTA,"\\","/");
  	DVIOUTL=str_subst(DVIOUTL,"\\","/");
! }$
! if(access(get_rootdir()+"/bin/.muldif")){load(get_rootdir()+"/bin/.muldif");}else;$
! chkfun(1,0)$
  end$
--- 8011,8032 ----
  	return (lsort(L,vars(nm(P)),2)==[])?1:2;
  }
  
! def init() {
!  if(!access(get_rootdir()+"/help/muldif.dvi")||!access(get_rootdir()+"/help/muldif.pdf")){
! 	 mycat(["Put muldif.dvi and muldif.pdf in", get_rootdir()+(isMs()?"\\help.":"/help.")]);}else;$
!  if(isMs());else{
  	DIROUT="%HOME%/Asir/tex";
  	DVIOUTA=str_subst(DVIOUTA,"\\","/");
  	DVIOUTL=str_subst(DVIOUTL,"\\","/");
!  }$
!  if(access(get_rootdir()+"/bin/.muldif")){load(get_rootdir()+"/bin/.muldif");}else;$
!  chkfun(1,0)$
! }
! #ifdef USEMODULE
! endmodule;
! os_md.init()$
! #else
! init()$
! #endif
! 
  end$