записывает байт или слово в заданном двоичном формате
mput(x [, type, fd])
вектор целых чисел или чисел с плавающей запятой.
скаляр: дескриптор файла, возвращённый функцией
mopen
. Значение по умолчанию равно -1,
что означает последний файл, открытый функцией
mopen
.
строка: двоичный формат, используемый для записи всех элементов x
.
Функция mput
записывает данные в выход,
определённый параметром потока fd
. Данные
записываются в место, на которое в данный момент указывает указатель
положения в файле, и передвигает указатель дальше соответствующим
образом.
Параметр type
-- это определитель преобразования, который может быть установлен любым из следующих символов (значение по умолчанию "l"
):
для записи соответственно типов long long, int(long
int), short, unsigned long long, unsigned int(long int), unsigned short, double, float, char и unsigned char. Байты, которые записываются, автоматически переставляются, если нужно (это проверяется статусом прямого порядка байтов) для того, чтобы сделать двоичные файлы, независимые от машины. Режим перестановки байтов по умолчанию может быть подавлен добавлением флага swap = 0
в функции mopen
.
Можно также записывать в режиме обратной и прямой последовательности байтов, добавляя символ "l"
или "b"
в конец указателя типа type
. Например,
"db"
будет записывать тип double в режиме обратного порядка байтов.
filen = 'test.bin'; mopen(filen,'wb'); mput(1996,'l');mput(1996,'i');mput(1996,'s');mput(98,'c'); // force little-endian mput(1996,'ll');mput(1996,'il');mput(1996,'sl');mput(98,'cl'); // force big-endian mput(1996,'lb');mput(1996,'ib');mput(1996,'sb');mput(98,'cb'); mclose(); mopen(filen,'rb'); if 1996<>mget(1,'l') then pause,end if 1996<>mget(1,'i') then pause,end if 1996<>mget(1,'s') then pause,end if 98<>mget(1,'c') then pause,end // force little-endian if 1996<>mget(1,'ll') then pause,end if 1996<>mget(1,'il') then pause,end if 1996<>mget(1,'sl') then pause,end if 98<>mget(1,'cl') then pause,end // force big-endian if 1996<>mget(1,'lb') then pause,end if 1996<>mget(1,'ib') then pause,end if 1996<>mget(1,'sb') then pause,end if 98<>mget(1,'cb') then pause,end mclose(); | ![]() | ![]() |