Вывод текста в консоль Linux

[alik1]

Возникла проблемка в .so на Linux-е. После инициализации crt, гробится консольный вывод (т.е. например хостаппликация, текст нормально уже не может вывести, строчки не начинаются с начала строки). Никто не сталкивался? как лечить?

[Deepthroat]

По-моему, там в документации написано, что такое возможно и обычно бывает. Выход - не использовать crt, а поискать ему замену.

[alik1]

а чем пользоватся? нашел nCrt, но он не компилируется ...

[Deepthroat]

Лично я для Delphi и FPC для винды свое писал. Но там все на WinApi, так что никакой кроссплатформенности.

[Сквозняк]

строчки не начинаются с начала строки

Перед первым выводом текста использовать Writeln('');

[trifon]

а чем пользоваться? нашел nCrt, но он не компилируется ...

Что значит он не компилируется, он в стандартном комплекте fpc идет, заходим в fpc_source/packages/extra/ncurses, и там смотрим.
Все демо имеющиеся там у меня собирались, и прекрасно работали, ни каких различий с сишными, есть демо из родного ncurses переписаное на fpc.
Читаем в юните ocrt.pp - "Purpose - crt unit replacement plus OOP windows using ncurses", по моему то что нужно.
Там же демо для него - ocrt_demo.pp.
К сожалению поддержка ncurses не полная, в частности нет form, а главное ни каких упоминаний о юникоде. В СИ ncurses для использования юникоде линкуется с ncursesw, вместо ncurses, в фпс такой возможности как я понял не предусмотрено, когда я попробовал самостоятельно задать, фпс прилинковал их обе - тупизм полный.

[HomeCraft]

Ну у меня тоже проблема с консолью. При выводе русских букв (UTF-8) консоль сокращается в два раза от этого смещаются все выводы через gotoXY. Например вывод предложения из 45 букв в консоль размером 100х35 приводит к переносу на новую строку.
Нашел выход пока такой:

Код: Выделить всё

function writestr(const s:string):integer;
var i:integer;
begin
  for i:=1 to length(s) do write(s[i]);
  writestr:=i;
end;


Может у кого-нибудь есть другие соображения?

[Alexander]

Код: Выделить всё

begin
WriteLn('Слово !');
end.

Работает без проблем, а в чём проблема то я не понял, как
воспроизвести ?

Может у тебя консоль не UTF8, а ты на неё в утф8 выводишь ?

[HomeCraft]

Ну правильно - так оно по-любому нормально. Показываю программу:

Код: Выделить всё

program textdemo;
uses crt;
function writestr(const s:string):integer;
var i:integer;
begin
  for i:=1 to length(s) do write(s[i]);
  writestr:=i;
end;
const s:string='Это слишком длинная сторка для того чтобы уместиться в консольном окне любого размера!';
var i:integer;
begin
  writeln('Стандартный вывод:');
  writeln(s);
  writeln('Мой вывод');
  i:=writestr(s+#10#13);
  writeln('Размер строки: ',i);
  readln;
end.


и вот что она выводит:

Код: Выделить всё

Стандартный вывод:
Это слишком длинная сторка для того чтобы уместиться в консольном о
кне любого размера!
Мой вывод
Это слишком длинная сторка для того чтобы уместиться в консольном окне любого размера!
Размер строки: 161


Получается что под русские буквы выделяется по 2 позиции текста!
Как с этим бороться?

[Alexander]

Да, есть такое дело, похоже на баг ФПК (CRT ни при чём).

При твоём коде всё как у тебя, а при модификации так (исходник в UTF8):

Код: Выделить всё

program t;
function writestr(const s:utf8string):integer;
var i:integer;
begin
  for i:=1 to length(s) do write(s[i]);
  writestr:=i;
end;
const s:utf8string='Это слишком длинная сторка для того чтобы уместиться в консольном окне любого размера!';
var i:integer;
begin
  writeln('Стандартный вывод:');
  writeln(s);
  writeln('Мой вывод');
  i:=writestr(s+#10#13);
  writeln('Размер строки: ',i);
  readln;
end.

Код: Выделить всё

fpc -FcUTF8 t.pas

Код: Выделить всё

./t

Код: Выделить всё

??????????? ?????:
??? ??????? ??????? ?????? ??? ???? ????? ?????????? ? ?????????? ???? ?????? ???????!
??? ?????
??? ??????? ??????? ?????? ??? ???? ????? ?????????? ? ?????????? ???? ?????? ???????!
?????? ??????: 88

[Alexander]

Хотя нет, CRT меняет картину. При uses crt, происходит неправильный
перенос, а без - нет. Но размер строки всё равно неправильный.

(хотя при ключе -FcUTF8, uses crt не влияет никак)

[HomeCraft]

Так надо сообщить куда надо !