recall-compiler/examples/landing.rcl at main · semanticintent/recall-compiler · GitHub

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
IDENTIFICATION DIVISION.
   PROGRAM-ID.    RECALL-LANDING.
   AUTHOR.        SEMANTICINTENT.
   DATE-WRITTEN.  2026-04-03.
   PAGE-TITLE.    "RECALL — The Source That Remembers".
   DESCRIPTION.   "A declarative web interface language with COBOL-inspired syntax. The source is the artifact. Every compiled page embeds its own origin.".
   FAVICON.       "/favicon.ico".

ENVIRONMENT DIVISION.
   COPY FROM "theme.rcpy".

DATA DIVISION.
   WORKING-STORAGE SECTION.
      01 HERO-HEADING    PIC X(60)  VALUE "STILL HERE.".
      01 HERO-SUBHEADING PIC X(60)  VALUE "STILL RUNNING.".
      01 HERO-BODY       PIC X(200) VALUE "RECALL is a declarative web interface language with COBOL-inspired syntax. It transpiles to self-contained, dependency-free HTML files. The source is always embedded in the output.".
      01 CTA-PRIMARY     PIC X(30)  VALUE "READ THE SPEC".
      01 CTA-SECONDARY   PIC X(30)  VALUE "VIEW ON GITHUB".
      01 INSTALL-CMD     PIC X(40)  VALUE "npm install -g @semanticintent/recall".
      01 COMPILE-CMD     PIC X(40)  VALUE "recall compile portfolio.rcl".
      01 WHY-COBOL-HEAD  PIC X(40)  VALUE "Why COBOL.".
      01 PRINCIPLE-HEAD  PIC X(40)  VALUE "What RECALL believes.".
      01 EXAMPLE-HEAD    PIC X(40)  VALUE "What it looks like.".
      01 EXAMPLE-CODE    PIC X(200) VALUE "IDENTIFICATION DIVISION.   PROGRAM-ID. MY-SITE.   PAGE-TITLE. Hello World.   DATA DIVISION.   WORKING-STORAGE SECTION.   01 HEADING PIC X(20) VALUE Hello World.   PROCEDURE DIVISION.   RENDER-HERO.   DISPLAY HEADING-1 HEADING.   STOP SECTION.   STOP RUN.".

   ITEMS SECTION.
      01 WHY-COBOL-ITEMS.
         05 WHY-1.
            10 PROJ-TITLE  PIC X(60)  VALUE "AI'S BEST TRAINING LANGUAGE.".
            10 PROJ-DESC   PIC X(200) VALUE "COBOL has been encoding business intent in plain English since 1959. More semantic signal per line than any modern language. The intent is readable, not inferred. That is not a coincidence — it is the design.".
            10 PROJ-TAG    PIC X(20)  VALUE "SINCE 1959".
            10 PROJ-HREF   PIC X(80)  VALUE "#".
         05 WHY-2.
            10 PROJ-TITLE  PIC X(60)  VALUE "SEMANTIC INTENT BY CONSTRUCTION.".
            10 PROJ-DESC   PIC X(200) VALUE "Every .rcl file is a semantic intent document. An AI can read, modify, generate, and audit RECALL source without a schema — because the intent is in the syntax, not hidden behind it.".
            10 PROJ-TAG    PIC X(20)  VALUE "BY DESIGN".
            10 PROJ-HREF   PIC X(80)  VALUE "#".
         05 WHY-3.
            10 PROJ-TITLE  PIC X(60)  VALUE "BUILT FOR THE AI COLLABORATION LOOP.".
            10 PROJ-DESC   PIC X(200) VALUE "HTML has no grammar. An AI generating HTML can do anything — including things you did not ask for. RECALL's constrained syntax makes AI output predictable, round-trippable, and auditable. Ask for a page. Get back valid .rcl. Compile. Done.".
            10 PROJ-TAG    PIC X(20)  VALUE "THE LOOP".
            10 PROJ-HREF   PIC X(80)  VALUE "#".

      01 PRINCIPLE-ITEMS.
         05 PRINCIPLE-1.
            10 PROJ-TITLE  PIC X(60)  VALUE "THE SOURCE IS THE ARTIFACT".
            10 PROJ-DESC   PIC X(200) VALUE "Every compiled .html file embeds its .rcl source in a comment block at the top. View source on any RECALL page and you will see COBOL divisions.".
            10 PROJ-TAG    PIC X(20)  VALUE "CORE".
            10 PROJ-HREF   PIC X(80)  VALUE "#".
         05 PRINCIPLE-2.
            10 PROJ-TITLE  PIC X(60)  VALUE "ZERO DEPENDENCIES".
            10 PROJ-DESC   PIC X(200) VALUE "Output is one HTML file. Inline CSS. Vanilla JS where needed. No CDN links. No frameworks. No build step to run the result.".
            10 PROJ-TAG    PIC X(20)  VALUE "CONSTRAINT".
            10 PROJ-HREF   PIC X(80)  VALUE "#".
         05 PRINCIPLE-3.
            10 PROJ-TITLE  PIC X(60)  VALUE "VERBOSE IS A FEATURE".
            10 PROJ-DESC   PIC X(200) VALUE "COBOL's English-like verbosity is intentional legibility. A RECALL source file reads like a structured document. The intent is visible without a comment.".
            10 PROJ-TAG    PIC X(20)  VALUE "PHILOSOPHY".
            10 PROJ-HREF   PIC X(80)  VALUE "#".
         05 PRINCIPLE-4.
            10 PROJ-TITLE  PIC X(60)  VALUE "LEGACY FORWARD".
            10 PROJ-DESC   PIC X(200) VALUE "This is not nostalgia. COBOL systems from the 1960s are still running payroll. RECALL asks: what would a web language look like if it was designed to last?".
            10 PROJ-TAG    PIC X(20)  VALUE "STATEMENT".
            10 PROJ-HREF   PIC X(80)  VALUE "#".

PROCEDURE DIVISION.

   RENDER-NAV.
      COPY FROM "components/nav.rcpy".

   RENDER-HERO.
      DISPLAY SECTION ID "hero"
         WITH LAYOUT CENTERED
         WITH PADDING LARGE.
         DISPLAY HEADING-1 HERO-HEADING
            WITH STYLE MONO.
         DISPLAY HEADING-2 HERO-SUBHEADING
            WITH STYLE MONO.
         DISPLAY PARAGRAPH HERO-BODY.
         DISPLAY BUTTON CTA-PRIMARY
            ON-CLICK GOTO "https://github.com/semanticintent/recall/blob/main/docs/RECALL_SPEC.md"
            WITH STYLE PRIMARY.
         DISPLAY BUTTON CTA-SECONDARY
            ON-CLICK GOTO "https://github.com/semanticintent/recall"
            WITH STYLE GHOST.
      STOP SECTION.

   RENDER-WHY.
      DISPLAY SECTION ID "why-cobol"
         WITH LAYOUT STACK
         WITH PADDING MEDIUM.
         DISPLAY LABEL "WHY COBOL".
         DISPLAY HEADING-2 WHY-COBOL-HEAD
            WITH STYLE MONO.
         DISPLAY CARD-LIST USING WHY-COBOL-ITEMS
            WITH STYLE BORDERED
            WITH COLUMNS 3
            WITH HOVER-LIFT YES.
      STOP SECTION.

   RENDER-INSTALL.
      DISPLAY SECTION ID "install"
         WITH LAYOUT STACK
         WITH PADDING MEDIUM.
         DISPLAY LABEL "GET STARTED".
         DISPLAY CODE-BLOCK INSTALL-CMD
            WITH LANGUAGE "bash".
         DISPLAY CODE-BLOCK COMPILE-CMD
            WITH LANGUAGE "bash".
      STOP SECTION.

   RENDER-PRINCIPLES.
      DISPLAY SECTION ID "principles"
         WITH LAYOUT STACK
         WITH PADDING MEDIUM.
         DISPLAY LABEL "DESIGN PRINCIPLES".
         DISPLAY HEADING-2 PRINCIPLE-HEAD
            WITH STYLE MONO.
         DISPLAY CARD-LIST USING PRINCIPLE-ITEMS
            WITH STYLE BORDERED
            WITH COLUMNS 2
            WITH HOVER-LIFT YES.
      STOP SECTION.

   RENDER-EXAMPLE.
      DISPLAY SECTION ID "example"
         WITH LAYOUT STACK
         WITH PADDING MEDIUM.
         DISPLAY LABEL "SYNTAX".
         DISPLAY HEADING-2 EXAMPLE-HEAD
            WITH STYLE MONO.
         DISPLAY CODE-BLOCK EXAMPLE-CODE
            WITH LANGUAGE "cobol".
      STOP SECTION.

   RENDER-FOOTER.
      COPY FROM "components/footer.rcpy".

   STOP RUN.