The Russian Electronic Developer Magazine
	Русский электронный журнал разработчика

Пpогpаммиpование в OS/2.

Дмитpий Завалишин
( Dmitry Zavalishin <dz@phantom.ru> )

Все мы время от времени сталкиваемся с чем-либо необычным, неизвестным, непонятным или просто новым для нас. Это и в обычном-то мире не редкость, а уж в компьютерном едва ли найдется год, который не ознаменовался бы глобальными переменами, и две-три революции на десятилетие у компьютерных богов наверняка припасены.
Умение быстро адаптироваться и привыкать к новым условиям - пожалуй, один из важнейших 'секретов' сегодняшнего профессионального программиста. Опытные люди знают, что ко всему в этом мире нужен правильный подход, понимание специфики, традиций, если угодно. Можно потратить массу усилий, открывая дверь автомобиля тем же методом, что и дверь кухни: сколько ни толкай - не поможет. И щеколды нет. А знай толкающий, что нужно просто повернуть одну ручку - и нет у него проблем. И наоборот: дверь кухни 'овтомобильным' способом тоже не откроешь - тут свои правила.
Статья сия имеет своей целью рассказать читатателям о 'правилах хорошего тона' при программировании в среде OS/2, о тех мелочах, понимание которых позволяет сэкономить массу усилий. Иногда для этого нужно всего лишь взглянуть на проблему с другой стороны.

Тем, кто писал только для DOS

Пpоблема пеpвая: опpос клавиатуры, мыши, часы и другие мелочи

Проблема вторая и вторичная

Проблема, вызванная отсутствием проблем с памятью

int fd = open (filename,mode);
long size_of_file = filesize(fd);
char * input = malloc(size_of_file);
read(fd, input, (unsigned) size_of_file);

Проблема с последовательными портами или 'где мой fossil' ?

Пример 1

#define INCL_DOSFILEMGR
#define INCL_DOSDEVIOCTL
#include 

HFILE hf;              // Дескриптор файла
USHORT usBPS = 9600;   // Скорость
ULONG  ulParmLen = 2;  // Размер списка параметров
ULONG  ulAction;       // Результат работы DosOpen
APIRET rc;             // Код возврата

rc = DosOpen("\\dev\\com2", &hf, &ulAction, 0, FILE_NORMAL, FILE_OPEN,
OPEN_ACCESS_READWRITE | OPEN_SHARE_DENYNONE, (PEAOP2) NULL);

rc = DosDevIOCtl(hf,     // Дескриптор устройства
       IOCTL_ASYNC,      // Мы будем давать команды этого класса
       ASYNC_SETBAUDRATE,// Конкретно -- установим скорость
       (PULONG) &usBPS,  // Скорость будет вот такой
       sizeof(usBPS),    // Размер предыдущего параметра -вот такой
       &ulParmLen,       // А реально -- вот столько использовано
       NULL,             // Пакет данных не используем в этот раз
       0,                // Потому он и нулевого размера
       NULL);            // И реального размера у него нет

... здесь мы будем использовать порт ...

rc = DosClose(hf);         // Закрой за собой файл

Проблема с прямым доступом к диску

Проблема с прямым доступом к экрану

Пример 2

static struct  _VIOMODEINFO orig;

#define BUFSIZE 12
#define FBTYPE 3

PCH Init320x200(void)
  {
  static stiuct  _VIOPHYSBUF phys:
  static struct  _VIOMODEINFO mode;
  unsigned rc,

  phys.pBuf=(unsigned char *) OxAOOOO;
  phys.cb =65536;
  mode.cb =BUFSIZE;
  mode.fbType=FBTYPE:
  mode.color =8;   // Число битов на точку
  mode.col =40;    // Сколько символов в строке
  mode.row =25;    // Сколько строк
  mode.hres =320;  // Точек по горизонтали
  mode.vres =200;  // Точек по вертикали

  VioGetMode(&orig, HANDLE);     // Запомним старый Видеорежим

  rc = VioSetMode(&mode, HANDLE);// Установим новый
  if(rc) return (NULL);

  rc = VioGetPhysBuf(&phys, HANDLE):
  if(rc) return (NULL):

  // А вот и адрес видеобуфера.
  return ((char *) MAKEP(phys.asel[0],0));
  }

void DeInit(void)
  {
  VioScrUnLock(HANDLE);      //  а всякий случай отопрем замок
  VioSetMode(&orig,HANDLE);  // Восстановим старый режим
  }

Если вы пишете новую программу, то я рекомендую вам не пользоваться прямым доступом к видеопамяти, поскольку на сегодня графические адаптеры вполне разумной стоимости дают весьма неплохую скорость обновления даже в графическом режиме, и для большинства задач этой скорости вполне достаточно. Прошли уже времена, когда скроллинг текста в графическом режиме раздражал даже самых флегматичных из нас.

Если вы думаете о будущем, то учтите, что переносимые версии ОS/2, вероятно, не будут содержать подсистемы VIO.

Если вам достаточно текстового режима и хочется, чтобы программа работала не только в полноэкранных сессиях OS/2, но и в окне Presentation Manager, то лучше воспользоваться другими функциями VIO. Например, можно работать через логический видеобуфер, или просто выводить информацию через функции VIO, или даже (не смейтесь) использовать стандартный вывод и коды ANSI - быстродействие дисплейной подсистемы OS/2 достаточно велико, и эти методы дают неожиданно хорошие результаты, пригодные если не для всех, то для большинства применений.
И последнее: зачем вам тот прямой доступ к экрану ?! Ныряйте в DIVE !

DIVE: Игры по-цивилизованному, с оконным соусом

... Легко разрешимые проблемы общения

Общение: пути и методы

Традиционные каналы

Пример 3

ulong ReadHandle;
ulong WriteHandle;
APIRET rc;
const PipeSize = 4096;

// Создаем канал, в переменной ReadHandle получаем дескриптор
// для чтения из  канала, WriteHandle - для записи в канал.
// Размер канала - 4 килобайта.
rc = DosCreatePipe (&ReadHandle, &WriteHandle, PipeSize);
if (rc != 0)
  {
  error(EI_Full, "DosCreatePipe error: return code = %ld", rc);
  return Err;
  }

int stdin_save = dup(0);      // припрячем наш стандартный ввод

if( 0 != dup2(ReadHandle, 0)) // подложим вместо него выход канала
  {
  error(EI_Full, "Can't dup2");
  return Err;
  }

DosClose(ReadHandle);      // старый выход закроем, чтобы не текло

// Тут хитро: мы просим систему при порождении нашего дочернего
// процесса не давать ему в наследство этот конец канала.
// Остальные дескрипторы файлов он  унаследует, а этот мы 
// припрячем - самим нужен.

DosSetFHState(WriteHandle,OPEN_FLAGS_NOINHERIT);

bool ret = Ok;

// Запустим параллельный процесс, не ожидая его завершения
if (spawnv( P_NOWAIT, "rmail.exe", argv) < 0)
  {
  error(EI_Full, "Can't execute rmail" );
  ret = Err;
  }

// Теперь все, что мы будем записывать в канал через наше
// отверстие, будет вливаться в стандартный ввод запущенного 
// нами процесса так, как если бы, например, это все 
// вводилось с клавиатуры
if (ret != Err)
  write(WriteHandle, data, strlen(data));

// Закончили? Закроем за собой наш конец канала - это приведет
// к тому, что rmail.exe при очередном считывании получит
// признак конца файла. Это, как  правило, важно.
DosClose(WriteHandle);

// Вернем на место 'заныканный' stdin - вдруг он нам 
// самим еще пригодится  ?
if (0 != dup2(stdin_save, 0))
  {
  error(EI_Full, "Can't dup2(%d, 0)", stdin_save);
  ret = Err;
  }

// И закроем его копию.
DosClose(stdin_save);

Именованные каналы

Именованные семафоры

TCP/IP

(c)dz

Интересные ссылки: Смотрите услуги юриста адвокат на сайте.

Комментариев к странице: 0 | Добавить комментарий

Редактор: Дмитрий Бан
Оформление: Евгений Кулешов