WordPressで「Pascal 日和 ホームページ」と同様にSyntaxHighlighterの設定ができました。
Ada(GNAT)の例です。
|
1 2 3 4 5 6 |
with Greetings; procedure Gmain is begin Greetings.Hello; Greetings.Goodbye; end Gmain; |
枠と背景色をつけるとこんな感じ。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
pragma Ada_05; -- pragma Wide_Character_Encoding('s'); with Ada.Wide_Text_IO; use Ada.Wide_Text_IO; package body Greetings is pragma Implicit_Packing; type elm is range 1 .. 100; type arr is array (1 .. 100) of elm; -- pragma Pack(arr); pragma Component_Alignment (Form => Storage_Unit, Name => arr); for arr'Size use 800; procedure Hello is -- 各種数値表現 a : Integer := -16#22#E2; b : Integer := -12_323e3; c : Integer := 8#5#; d : Integer := 3e+4; x : Float := +0.3_212E-4; y : Float := 16#11234_f.E#E3; begin a := 3 + 2; Put_Line ("Hello WORLD!"); Put ('A'); -- Put ('あ'); -- 「あ」は1文字 - 「pragma Wide_Character_Encoding('s')」が必要 Put ("あ"); -- 「あ」は文字列 Put ('"'); -- ダブルクォーテーション1文字 Put ('''); -- シングルクォーテーション1文字 Put_Line ("ハロー、ワールド！"); end Hello; procedure Goodbye is begin Put_Line ("Goodbye WORLD!"); end Goodbye; end Greetings; |