/*
Copyright (C) 2019 Andreas Franz Borchert
----------------------------------------------------------------------------
The Astl Library for ULMasm is free software; you can redistribute it
and/or modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either version
2 of the License, or (at your option) any later version.
The Astl Library for ULMasm is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty
of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
sub convert_octal_value(literal) {
var val = 0;
var res;
while (res = literal =~ m{(.)(.*)}) {
val = val * 8 + res[0];
literal = res[1];
}
return val;
}