Взаимодействия среды

Функциональный readbytes чувствителен к переменной окружения READPATH. Во-первых, файл ищется в “рабочей директории”. Если это не может быть найдено там, все пути в READPATH ищутся.

Пример 1

Запишите последовательность чисел в файл test.tst с настройками по умолчанию. Затем загрузите их, въезжайте задним ходом:

writebytes("test.tst", [42, 17, 1, 3, 5, 7, 127, 250]):

readbytes("test.tst")

Считайте вышеупомянутые данные с некоторой другой опцией: SignedByte интерпретирует все значения от 0 до 127 точно, как Byte делает. Более высокие значения x, однако, интерпретированы как x - 256. Например, 250 - 256 = - 6:

readbytes("test.tst", SignedByte)

Short интерпретирует два байта, чтобы быть одним номером. Поэтому восемь записанных байтов интерпретированы как четыре числа. Например, первый 2-байтовый урожай ^42 28 + 17 = 10769:

readbytes("test.tst", Short)

С флагом LittleEndian инвертируется порядок байтов. Например, первые 2 байта теперь уступают ^17 28 + 42 = 4394:

readbytes("test.tst", Short, LittleEndian)

Word интерпретирует четыре байта, чтобы быть одним номером. Поэтому восемь записанных байтов дают два числа. Первый 4-байтовый урожай ^10769 216 + 259 = 705757443:

readbytes("test.tst", Word)

Double интерпретирует восемь байтов, чтобы представлять одно число с плавающей запятой. Интерпретация является зависимым машины и может отличаться для вас:

readbytes("test.tst", Double)

Пример 2

Используйте readbytes и writebytes, чтобы зашифровать файл, созданный в предыдущем примере с простым “кодированием типа Цезаря”: Любой целочисленный x (байт) заменяется x + 13 mod 256:

L := readbytes("test.tst"): 
L := map(L, x -> (x + 13 mod 256)):
writebytes("test.tst", L):

Зная шифрование и его ключ, можно успешно дешифровать файл:

L := readbytes("test.tst")

map(L, x -> (x - 13 mod 256))

delete L:

Пример 3

Используйте fopen, чтобы записать и считать файл во фрагментах:

n := fopen("test.tst", Write, Raw):               
for i from 1 to 10 do writebytes(n, [i]) end_for: 
fclose(n):

Эквивалентно, можно записать все данные сразу:

n := fopen("test.tst", Write, Raw):               
writebytes(n, [i $ i = 1..10]):
fclose(n):

Считайте байт данных байтом:

n := fopen("test.tst", Read, Raw): 
readbytes(n, 1), readbytes(n, 1), readbytes(n, 1);
fclose(n):

Следующая команда читает во фрагментах 5 байтов каждого:

n := fopen("test.tst", Read, Raw): 
readbytes(n, 5), readbytes(n, 5);
fclose(n):

delete n, i:

Пример 4

Вот то, что происходит, если количество байтов в файле не совпадает с кратным модулям заданного формата. Поскольку и SignedShort и Float состоят из четного числа байтов, запаздывающий 5-й байт, соответствующий 11, проигнорирован:

writebytes("test.tst", [42, 17, 7, 9, 11], Byte):
readbytes("test.tst", SignedShort), 
readbytes("test.tst", Float)

Пример 5

Задайте порядок байтов при помощи BigEndian и LittleEndian:

writebytes("test.tst", [129, 255, 145, 171, 191, 253], Byte):
L1 := readbytes("test.tst", Short, BigEndian)

L2 := readbytes("test.tst", Short, LittleEndian)

Посмотрите на данные в бинарном представлении. (См. numlib::g_adic для деталей). Эффект использования LittleEndian вместо BigEndian состоит в том, чтобы обмениваться первыми 8 битами и последними 8 битами каждого номера:

map(L1, numlib::g_adic, 2)

map(L2, numlib::g_adic, 2)

delete L1, L2:

Пример 6

Считайте данные из файла и создайте DOM_HFARRAY с данными с помощью опции ReturnType:

writebytes("test.tst", 
  [    0.2703,   12.8317, -33.1531, 9999.9948, 0.2662,  -14.3421, 
    1000.1801,    0.4521, -34.6787,  -67.3549, 0.6818,   13], Double):
readbytes("test.tst", ReturnType=[DOM_HFARRAY,2,6]);
readbytes("test.tst", ReturnType=[DOM_HFARRAY,2,3,2]);

hfarray(1..2, 1..3, 1..2, [0.2703, 12.8317, -33.1531, 9999.9948, 0.2662, -\
14.3421, 1000.1801, 0.4521, -34.6787, -67.3549, 0.6818, 13.0])

При попытке считать больше элементов, точно элементы массива читаются.

readbytes("test.tst", ReturnType=[DOM_HFARRAY,2,4]);
readbytes("test.tst", 12, ReturnType=[DOM_HFARRAY,2,3]);

Если вы читаете только часть массива, другие элементы инициализируются с 0,0.

readbytes("test.tst", ReturnType=[DOM_HFARRAY,2,7]);
readbytes("test.tst", 4, ReturnType=[DOM_HFARRAY,2,6]);

При попытке считать все данные из файла с помощью опции ReturnType без размерности для DOM_HFARRAY, одномерный массив правильного размера создается.

 
readbytes("test.tst", ReturnType=DOM_HFARRAY)

Пример 7

Запишите DOM_HFARRAY с комплексными числами к файлу и попытайтесь восстановить его путем чтения данных.

A := hfarray(1..2, 1..3,
             [[2342.133 + 56*I, -342.56, PI + I],
              [           -3*E, I^2 + I,     13]]);
writebytes("test.tst", A);
fd := fopen("test.tst", Read, Raw):   
B := readbytes(fd, ReturnType = [DOM_HFARRAY, 2, 3]);
C := readbytes(fd, ReturnType = [DOM_HFARRAY, 2, 3]);
bool(A = B + C*I);
flose(fd):

delete A, B, C, fd:

Возвращаемые значения

Список цифр MuPAD (или целые числа или числа с плавающей запятой) или массив оборудования значения с плавающей точкой типа DOM_HFARRAY. Его тип зависит от установки опции ReturnType.