lexer: Ferro 의 렉서를 Ferro 로 쓴다

셀프호스팅에 손대기 전의 강제 함수다. 아픈 자리를 전부 건드린다: R4 아래의
토큰 구조체, 태그드 유니온, 진단 출력, 유닛 경계.

토큰은 자기가 나온 글자를 담지 않는다. R4 가 대여를 집합 저장소에서 막으므로,
어디서 시작해 얼마나 긴지를 적고 소스는 옆에서 같이 다닌다. 위치도 &mut usize
로 옆에서 다닌다 -- 슬라이스와 함께 구조체에 들어갈 수 없기 때문이다. 이것이
R11 이 말하는 모양이고, 쓸 수 있다.

  first keyword unit @1 / number 42 @3 / text "hi" @3 / arrow -> @5
  keyword 6 name 7 number 1 text 1 punct 15 / total 30

길에서 고친 것:

- binding.Type.Variant 가 안 풀렸다. 유닛 경계 이름 조회가 심볼만 보고 타입을
  보지 않았다.
- 문자열 const 전역이 빈 슬라이스로 나갔다. 포인터는 링커만 아는 수라서 바이트에
  구멍을 두고 링커가 채우게 한다.
- exec.py 가 OUTPUT 마커를 여러 개 적어도 마지막 하나만 검사했다. 고치자마자
  readfile 의 낡은 기대가 드러났다.

run.py 217/217, exec.py 27/27.

fec/src/x86.c

@@ -634,10 +634,29 @@ void fe_x86_emit(const FeIrModule *m, FILE *out)
             fprintf(out, "        db      %lu dup(0)\n", g->size ? g->size : 1UL);
             continue;
         }
-        for (i = 0; i < g->size; ++i) {
-            if (i % 16 == 0) fputs("        db      ", out);
-            fprintf(out, "%u%s", g->init[i],
-                    (i + 1 == g->size || (i % 16) == 15) ? "\n" : ",");
+        for (i = 0; i < g->size; ) {
+            unsigned r;
+            unsigned long j;
+            for (r = 0; r < g->reloc_count; ++r)
+                if (g->relocs[r].at == i) break;
+            if (r < g->reloc_count) {
+                /* A hole the linker fills with an address. */
+                fprintf(out, "        dd      offset %s\n",
+                        g->relocs[r].symbol);
+                i += 4;
+                continue;
+            }
+            fputs("        db      ", out);
+            j = 0;
+            while (i < g->size && j < 16) {
+                unsigned q;
+                for (q = 0; q < g->reloc_count; ++q)
+                    if (g->relocs[q].at == i) break;
+                if (q < g->reloc_count) break;
+                fprintf(out, "%s%u", j ? "," : "", g->init[i]);
+                ++i; ++j;
+            }
+            fputc('\n', out);
         }
         if (!g->size) fputs("        db      0\n", out);
     }