From 16f6a48daf0ba690dbdd6d8fc48d9b2a2ba54068 Mon Sep 17 00:00:00 2001 From: pzinn Date: Thu, 28 Nov 2024 20:27:57 +1100 Subject: [PATCH] start actors5.d cleanup --- M2/Macaulay2/d/actors5.d | 83 ---------------------------------------- 1 file changed, 83 deletions(-) diff --git a/M2/Macaulay2/d/actors5.d b/M2/Macaulay2/d/actors5.d index af1ac01285..56c14238f4 100644 --- a/M2/Macaulay2/d/actors5.d +++ b/M2/Macaulay2/d/actors5.d @@ -23,12 +23,6 @@ export makeKeywordFun(e:Expr):Expr := ( ); setupfun("makeKeyword",makeKeywordFun); -LongDoubleRightArrowFun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,LongDoubleRightArrowS); -setup(LongDoubleRightArrowS,LongDoubleRightArrowFun); - -LongLongDoubleRightArrowFun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,LongLongDoubleRightArrowS); -setup(LongLongDoubleRightArrowS,LongLongDoubleRightArrowFun); - LongDoubleLeftArrowFun1(rhs:Code):Expr := unarymethod(rhs,LongDoubleLeftArrowS); LongDoubleLeftArrowFun2(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,LongDoubleLeftArrowS); setup(LongDoubleLeftArrowS,LongDoubleLeftArrowFun1,LongDoubleLeftArrowFun2); @@ -37,9 +31,6 @@ LongLongDoubleLeftArrowFun1(rhs:Code):Expr := unarymethod(rhs,LongLongDoubleLeft LongLongDoubleLeftArrowFun2(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,LongLongDoubleLeftArrowS); setup(LongLongDoubleLeftArrowS,LongLongDoubleLeftArrowFun1,LongLongDoubleLeftArrowFun2); -LongBiDoubleArrowFun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,LongBiDoubleArrowS); -setup(LongBiDoubleArrowS,LongBiDoubleArrowFun); - binaryDeductionFun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,DeductionS); unaryDeductionFun(rhs:Code):Expr := unarymethod(rhs,DeductionS); setup(DeductionS,unaryDeductionFun,binaryDeductionFun); @@ -147,76 +138,10 @@ integermod(e:Expr):Expr := ( else WrongNumArgs(2)); installMethod(PercentS,ZZClass,ZZClass,integermod); -modC(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,PercentS); -setup(PercentS,modC); - -AtAtfun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,AtAtS); -setup(AtAtS,AtAtfun); - -StarStarfun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,StarStarS); -setup(StarStarS,StarStarfun); - -doubleplusfun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,PlusPlusS); -setup(PlusPlusS,doubleplusfun); - lesslessfun2(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,LessLessS); lesslessfun1(rhs:Code):Expr := unarymethod(rhs,LessLessS); setup(LessLessS,lesslessfun1,lesslessfun2); -greatergreaterfun2(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,GreaterGreaterS); -setup(GreaterGreaterS,greatergreaterfun2); - -barfun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,BarS); -setup(BarS,barfun); - -BarUnderscorefun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,BarUnderscoreS); -setup(BarUnderscoreS,BarUnderscorefun); - -UnderscoreGreaterfun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,UnderscoreGreaterS); -setup(UnderscoreGreaterS,UnderscoreGreaterfun); - -UnderscoreGreaterEqualfun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,UnderscoreGreaterEqualS); -setup(UnderscoreGreaterEqualS,UnderscoreGreaterEqualfun); - -UnderscoreLessfun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,UnderscoreLessS); -setup(UnderscoreLessS,UnderscoreLessfun); - -UnderscoreLessEqualfun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,UnderscoreLessEqualS); -setup(UnderscoreLessEqualS,UnderscoreLessEqualfun); - -PowerGreaterfun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,PowerGreaterS); -setup(PowerGreaterS,PowerGreaterfun); - -PowerGreaterEqualfun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,PowerGreaterEqualS); -setup(PowerGreaterEqualS,PowerGreaterEqualfun); - -PowerLessfun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,PowerLessS); -setup(PowerLessS,PowerLessfun); - -PowerLessEqualfun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,PowerLessEqualS); -setup(PowerLessEqualS,PowerLessEqualfun); - -PowerStarStarfun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,PowerStarStarS); -setup(PowerStarStarS,PowerStarStarfun); - -colonfun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,ColonS); -setup(ColonS,colonfun); - -ampersandfun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,AmpersandS); -setup(AmpersandS,ampersandfun); - -hathatfun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,HatHatS); -setup(HatHatS,hathatfun); - -interpunctfun(lhs:Code, rhs:Code):Expr := binarymethod(lhs, rhs, InterpunctS); -setup(InterpunctS, interpunctfun); - -boxtimesfun(lhs:Code, rhs:Code):Expr := binarymethod(lhs, rhs, BoxTimesS); -setup(BoxTimesS, boxtimesfun); - -shuffleproductfun(lhs:Code, rhs:Code):Expr := binarymethod(lhs, rhs, ShuffleProductS); -setup(ShuffleProductS, shuffleproductfun); - Tildefun(rhs:Code):Expr := unarymethod(rhs,TildeS); setuppostfix(TildeS,Tildefun); @@ -266,9 +191,6 @@ installMethod(ExclamationS,RRClass,factorial); installMethod(ExclamationS,ZZClass,factorial); installMethod(ExclamationS,QQClass,factorial); -underscorefun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,UnderscoreS); -setup(UnderscoreS,underscorefun); - dotfun(lhs:Code,rhs:Code):Expr := ( left := eval(lhs); when left is Error do left @@ -290,11 +212,6 @@ dotQfun(lhs:Code,rhs:Code):Expr := ( else False); setup(DotQuestionS,dotQfun); -atfun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,AtS); -setup(AtS,atfun); - -leftDividefun(lhs:Code,rhs:Code):Expr := binarymethod(lhs,rhs,LeftDivideS); -setup(LeftDivideS,leftDividefun); header " #ifdef HAVE_SYS_IOCTL_H