From d941986c2ca3be82e039b347434c9e0e761d8e53 Mon Sep 17 00:00:00 2001 From: Mahrud Sayrafi Date: Wed, 11 Sep 2024 22:49:19 +0200 Subject: [PATCH] aligned code for codePosition --- M2/Macaulay2/d/common.d | 80 ++++++++++++++++++++--------------------- 1 file changed, 40 insertions(+), 40 deletions(-) diff --git a/M2/Macaulay2/d/common.d b/M2/Macaulay2/d/common.d index 3a9411fdce..e840a594ca 100644 --- a/M2/Macaulay2/d/common.d +++ b/M2/Macaulay2/d/common.d @@ -4,46 +4,46 @@ use binding; use stdiop0; export codePosition(c:Code):Position := ( -- TODO retire - when c - is f:adjacentCode do f.position - is f:augmentedAssignmentCode do f.position - is f:arrayCode do f.position - is f:angleBarListCode do f.position - is f:binaryCode do f.position - is f:catchCode do f.position - is f:Error do f.position - is f:evaluatedCode do f.position - is f:forCode do f.position - is f:functionCode do f.position - is f:globalAssignmentCode do f.position - is f:globalMemoryReferenceCode do f.position - is f:globalSymbolClosureCode do f.position - is f:ifCode do f.position - is f:integerCode do f.position - is f:listCode do f.position - is f:localAssignmentCode do f.position - is f:localMemoryReferenceCode do f.position - is f:localSymbolClosureCode do f.position - is f:multaryCode do f.position - is f:newCode do f.position - is f:newFromCode do f.position - is f:newOfCode do f.position - is f:newOfFromCode do f.position - is f:nullCode do dummyPosition - is f:parallelAssignmentCode do f.position - is f:realCode do f.position - is f:semiCode do f.position - is f:sequenceCode do f.position - is f:stringCode do f.position - is f:ternaryCode do f.position - is f:threadMemoryReferenceCode do f.position - is f:threadSymbolClosureCode do f.position - is f:tryCode do f.position - is f:unaryCode do f.position - is f:whileDoCode do f.position - is f:whileListCode do f.position - is f:whileListDoCode do f.position - ); + when c + is f:nullCode do dummyPosition + is f:realCode do f.position + is f:stringCode do f.position + is f:integerCode do f.position + is f:globalMemoryReferenceCode do f.position + is f:threadMemoryReferenceCode do f.position + is f:localMemoryReferenceCode do f.position + is f:globalAssignmentCode do f.position + is f:localAssignmentCode do f.position + is f:parallelAssignmentCode do f.position + is f:augmentedAssignmentCode do f.position + is f:evaluatedCode do f.position + is f:globalSymbolClosureCode do f.position + is f:threadSymbolClosureCode do f.position + is f:localSymbolClosureCode do f.position + is f:unaryCode do f.position + is f:binaryCode do f.position + is f:ternaryCode do f.position + is f:multaryCode do f.position + is f:sequenceCode do f.position + is f:listCode do f.position + is f:arrayCode do f.position + is f:angleBarListCode do f.position + is f:semiCode do f.position + is f:newCode do f.position + is f:newFromCode do f.position + is f:newOfCode do f.position + is f:newOfFromCode do f.position + is f:forCode do f.position + is f:whileDoCode do f.position + is f:whileListCode do f.position + is f:whileListDoCode do f.position + is f:ifCode do f.position + is f:tryCode do f.position + is f:adjacentCode do f.position + is f:functionCode do f.position + is f:catchCode do f.position + is f:Error do f.position + ); export pos(c:Code):void := ( -- for use in the debugger stdIO << codePosition(c) << endl;