Skip to content

Examples of using cp866 code page and utf-8 #1087

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
VictorMiasnikov wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Examples of using cp866 code page and utf-8 #1087

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
142 changes: 142 additions & 0 deletions examples/hellocp866/src/Hellocp866.m3
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,142 @@


MODULE Hellocp866 EXPORTS Main;
(* Each module must have a name, which is declared in the "MODULE"
statement. By convention, the main module for an executable
program exports the interface "Main", as does the "Hello" module here.

Each module can also import interfaces exported by other modules.
This is how you reuse code from libraries or your own modules.
Here, we have imported interface "IO" which is a simple
input/output interface.

From the browser, you can learn what the imported interfaces do
by following the link associated with their name. *)

IMPORT IO;

(* The main body of a module or the initialization section includes
statements that are executed at the begining of the program.
In this case, we are the main module, and all we do is print
"Hello World!" on standard output.

Demo of using:

D:\cm3\src\examples\hellocp866>chcp 866
Active code page: 866

D:\cm3\src\examples\hellocp866>.\AMD64_NT\hellocp866.exe

���-����? ���� �����. ���� ������ ��� ����!
���-���? ���� �����. ��� �㦤� 業 墮�!
���-���? ���� �����. ��� �㦤� 業 墮�!

� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �
� �-->� �

Box drawing alignment tests: �
~
�����ͻ �����Ŀ ~�����~ ~�����~ ~~~~~~~ ~~~~ ~ ~ ~~~ �~� ~ ~~~~~~~
����Ŀ� ����ͻ� ����͸� ���~ķ� ~��~Ŀ~ ~~~~ ~�~~~~~�~ ~~~ ~ ~~~~~~~
��~ ~�� �� �� �� � �� �� ~ �� ~� ~ �~ ~~~~ ~ ~ ~~~ �~� � ~~~~~~~
̵ ~ ƹ ö Ǵ �����Ŵ ���~�״ ~~~�~~~ ~~~~ �~~� ~ ~~~~ ~ ~ ~~~~~~~
��~ ~�� �� �� �� � �� �� ~ �� ~� ~ �~ �������� ~ ~ ~ ~ ~ ~ ~
�����ٺ ����ͼ� ����;� ���~Ľ� ~��~��~ �������� ~ ~ ~ ~ ~ ~ ~
�����ͼ ������� ~�����~ ~�����~ ~~~~~~~ �~~� ~ ~~~~ ~ ~~~�~~~�


D:\cm3\src\examples\hellocp866>
*)

BEGIN

IO.Put (" \n");
IO.Put ("���-����? ���� �����. ���� ������ ��� ����!\n");
IO.Put ("���-���? ���� �����. ��� �㦤� 業 墮�!\n");
IO.Put ("���-���? ���� �����. ��� �㦤� 業 墮�!\n");
IO.Put (" \n");


IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");
IO.PutChar('�'); IO.Put (" "); IO.PutChar('�'); IO.Put ("-->"); IO.PutChar(W'�'); IO.Put (" "); IO.PutChar(W'�'); IO.Put ("\n");

IO.Put (" \n");
IO.Put ("Box drawing alignment tests: � \n");
IO.Put (" ~ \n");
IO.Put (" �����ͻ �����Ŀ ~�����~ ~�����~ ~~~~~~~ ~~~~ ~ ~ ~~~ �~� ~ ~~~~~~~\n");
IO.Put (" ����Ŀ� ����ͻ� ����͸� ���~ķ� ~��~Ŀ~ ~~~~ ~�~~~~~�~ ~~~ ~ ~~~~~~~\n");
IO.Put (" ��~ ~�� �� �� �� � �� �� ~ �� ~� ~ �~ ~~~~ ~ ~ ~~~ �~� � ~~~~~~~\n");
IO.Put (" ̵ ~ ƹ ö Ǵ �����Ŵ ���~�״ ~~~�~~~ ~~~~ �~~� ~ ~~~~ ~ ~ ~~~~~~~\n");
IO.Put (" ��~ ~�� �� �� �� � �� �� ~ �� ~� ~ �~ �������� ~ ~ ~ ~ ~ ~ ~ \n");
IO.Put (" �����ٺ ����ͼ� ����;� ���~Ľ� ~��~��~ �������� ~ ~ ~ ~ ~ ~ ~ \n");
IO.Put (" �����ͼ ������� ~�����~ ~�����~ ~~~~~~~ �~~� ~ ~~~~ ~ ~~~�~~~�\n");
IO.Put (" \n");

END Hellocp866.

(* Don't forget to include the module name in the last "END" in your
program. *)


28 changes: 28 additions & 0 deletions examples/hellocp866/src/m3makefile
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,28 @@

% Each package contains an m3makefile which describes
% the components of a package and how it should be
% built.

% It turns out that this program is simple enough
% that you don't need an m3makefile. If you run
% cm3 in the directory, even if you didn't have
% an m3makefile, it'd figure out what it has to do.
% So, this file is here for pedgagogical reasons.

% To build most programs, you first have to
% install the standard Modula-3 libraries.

import ("libm3")

% An implementation is a module that doesn't export
% an interface under its name.

implementation ("Hellocp866")

% Each package can have a README file or an index.html which
% will be viewable from CM3_IDE user interface. This is very
% handy for external documentation. You don't have to
% include the external documentation as part of the package.

program ("hellocp866")

Loading