replace == by =

This commit is contained in:
Naej 2017-01-01 23:51:26 +01:00
parent 462f5b13ce
commit 02a2640ac8
1 changed files with 16 additions and 16 deletions

View File

@ -32,7 +32,7 @@ BEGIN
getCellValue <- ERROR getCellValue <- ERROR
endif endif
if (findMatrixElem( matrix , ColPos , RowPos ) == NULL) if (findMatrixElem( matrix , ColPos , RowPos ) = NULL)
getCellValue <- false getCellValue <- false
endif endif
@ -45,7 +45,7 @@ BEGIN
elem:*cellElement <- NULL elem:*cellElement <- NULL
Row <- getElementPos(rows(matrix),RowPos) Row <- getElementPos(rows(matrix),RowPos)
if (Row == NULL) if (Row = NULL)
findMatrixElem <- NULL findMatrixElem <- NULL
endif endif
@ -63,7 +63,7 @@ END
```C ```C
setCellValue(matrix:Matrix, ColPos:integer, RowPos:integer,value:bool):bool setCellValue(matrix:Matrix, ColPos:integer, RowPos:integer,value:bool):bool
BEGIN BEGIN
if (value == true) if (value = true)
setCellValue <- createMatrixElem(matrix,ColPos,RowPos) setCellValue <- createMatrixElem(matrix,ColPos,RowPos)
else else
if ( deleteMatrixElem(matrix,ColPos,RowPos) >= 0 ) if ( deleteMatrixElem(matrix,ColPos,RowPos) >= 0 )
@ -93,7 +93,7 @@ createMatrixElem( matrix:Matrix, ColPos:integer, RowPos:integer):bool
Row <- getElementPos(rows(matrix),RowPos) Row <- getElementPos(rows(matrix),RowPos)
if (Row != NULL AND data(Row) != NULL) if (Row != NULL AND data(Row) != NULL)
if (colIndex(data(Row)) == ColPos) if (colIndex(data(Row)) = ColPos)
error ++ error ++
else else
if (colIndex(data(Row)) > ColPos) if (colIndex(data(Row)) > ColPos)
@ -107,7 +107,7 @@ createMatrixElem( matrix:Matrix, ColPos:integer, RowPos:integer):bool
tmp <- nextCol(tmp) tmp <- nextCol(tmp)
endwhile endwhile
if ( nextCol(tmp) == NULL OR colIndex(nextCol(tmp)) > ColPos) if ( nextCol(tmp) = NULL OR colIndex(nextCol(tmp)) > ColPos)
nextCol(elem) <- nextCol(tmp) nextCol(elem) <- nextCol(tmp)
nextCol(tmp) <- elem nextCol(tmp) <- elem
else else
@ -123,7 +123,7 @@ createMatrixElem( matrix:Matrix, ColPos:integer, RowPos:integer):bool
Col <- getElementPos(cols(matrix),ColPos) Col <- getElementPos(cols(matrix),ColPos)
if (Col != NULL AND data(Col) != NULL) if (Col != NULL AND data(Col) != NULL)
if (rowIndex(data(Col)) == RowPos) if (rowIndex(data(Col)) = RowPos)
error ++ error ++
else else
if (rowIndex(data(Col)) > RowPos) if (rowIndex(data(Col)) > RowPos)
@ -136,7 +136,7 @@ createMatrixElem( matrix:Matrix, ColPos:integer, RowPos:integer):bool
tmp <- nextRow(tmp) tmp <- nextRow(tmp)
endwhile endwhile
if (nextRow(tmp) == NULL OR rowIndex(nextRow(tmp)) > RowPos) if (nextRow(tmp) = NULL OR rowIndex(nextRow(tmp)) > RowPos)
nexRow(elem) <- nextRow(tmp) nexRow(elem) <- nextRow(tmp)
newRow(tmp) <- elem newRow(tmp) <- elem
else else
@ -168,21 +168,21 @@ BEGIN
Col : *ListElement <- NULL Col : *ListElement <- NULL
elem <- findMatrixElem(matrix,ColPos,RowPos) elem <- findMatrixElem(matrix,ColPos,RowPos)
if (elem == NULL) if (elem = NULL)
deleteMatrixElem <- 0 deleteMatrixElem <- 0
endif endif
Row <- getElementPos(rows(matrix),RowPos) Row <- getElementPos(rows(matrix),RowPos)
if (Row == NULL) if (Row = NULL)
deleteMatrixElem <- -1 deleteMatrixElem <- -1
endif endif
if (data(Row) == NULL) if (data(Row) = NULL)
removeElementPos(rows(matrix),RowPos) removeElementPos(rows(matrix),RowPos)
deleteMatrixElem <- -1 deleteMatrixElem <- -1
endif endif
if (colIndex(data(Row)) == ColPos) if (colIndex(data(Row)) = ColPos)
data(Row) <- nextCol(elem) data(Row) <- nextCol(elem)
else else
tmp <- data(Row) tmp <- data(Row)
@ -197,21 +197,21 @@ BEGIN
endif endif
if (data(Row) == NULL) if (data(Row) = NULL)
removeElementPos(rows(matrix),RowPos) removeElementPos(rows(matrix),RowPos)
endif endif
Col <- getElementPos(cols(matrix),ColPos) Col <- getElementPos(cols(matrix),ColPos)
if (Col == NULL) if (Col = NULL)
deleteMatrixElem <- -2 deleteMatrixElem <- -2
endif endif
if (data(Col) == NULL) if (data(Col) = NULL)
removeElementPos(cols(matrix),ColPos) removeElementPos(cols(matrix),ColPos)
deleteMatrixElem <- -1 deleteMatrixElem <- -1
endif endif
if (rowIndex(data(Col)) == RowPos) if (rowIndex(data(Col)) = RowPos)
data(Col) <- nextRow(elem) data(Col) <- nextRow(elem)
else else
tmp <- data(Col) tmp <- data(Col)
@ -225,7 +225,7 @@ BEGIN
endif endif
if (data(Col) == NULL) if (data(Col) = NULL)
removeElementPos(cols(matrix),ColPos) removeElementPos(cols(matrix),ColPos)
endif endif