Minimal programming language prototype, created with goal to have very small compiler, so that anyone can write his own compiler for it.
25개 이상의 토픽을 선택하실 수 없습니다. Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

75 lines
2.0KB

  1. тип број је 4 бајт;
  2. тип слово је 1 бајт;
  3. тип логика је (
  4. лаж,
  5. истина)
  6. тип системски_позив је (
  7. системски_позив_читај = 0,
  8. системски_позив_пиши = 1,
  9. системски_позив_отвори = 2,
  10. системски_позив_затвори = 3,
  11. системски_позив_изађи = 60)
  12. тип описивач је (
  13. стандардни_улаз,
  14. стандардни_излаз)
  15. улаз програм је главна
  16. процедура дужина_текста (текст је низ слово) је
  17. дужина је број = 0
  18. док текст (дужина) није 0 онда
  19. дужина ++
  20. назад
  21. процедура штампај (текст) је
  22. системски_код (системски_позив_пиши, класични_излаз, текст, дужина_текста (текст).дужина)
  23. крај
  24. здраво () штампај ("Здраво!")
  25. видимо_се () штампај ("Видимо се!")
  26. глобална_константа = 666
  27. процедура главна је
  28. здраво ()
  29. док а је 1 ... 17 је
  30. ако а % 3 је 0 или а % 5 је 0 онда
  31. штампај ("физ + баз")
  32. иначе ако а % 3 је 0 онда
  33. штампај ("физ")
  34. иначе ако а % 5 је 0 онда
  35. штампај ("баз")
  36. иначе
  37. штампај ("<->")
  38. штампај ("\n")
  39. крај
  40. видимо_се
  41. врати 60
  42. крај
  43. -----------------------------------------------
  44. одреди слово = 1;
  45. одреди број = 4;
  46. одреди описивач (
  47. улаз,
  48. излаз)
  49. одреди системски_позив (
  50. читај = 0,
  51. пиши = 1,
  52. отвори = 2,
  53. затвори = 3,
  54. изађи = 60)
  55. текст: слово = "Здраво свете!";
  56. дужина: број = 12;
  57. главна_процедура ():
  58. изврши (пиши, излаз, #текст, дужина);
  59. врати;;