| 1 | #include <stdio.h> |
| 2 | #include <stdlib.h> |
| 3 | #include <fcntl.h> |
| 4 | #include <unistd.h> |
| 5 | #include "fontgen.h" |
| 6 | void version(void){ |
| 7 | |
| 8 | printf( |
| 9 | "Application: %s, Version %s\n" |
| 10 | "Date: %s\n" |
| 11 | "Host: %s\n", |
| 12 | BUILD_APPLICATION, |
| 13 | BUILD_VERSION, |
| 14 | BUILD_DATE, |
| 15 | BUILD_HOST |
| 16 | ); |
| 17 | } |
| 18 | |
| 19 | #define PROCESS(name) { close(1); open("font_" #name ".asm",O_WRONLY+O_TRUNC+O_CREAT,0644); } |
| 20 | #define OP_FONT(name,base,top) {name.f_base=base; name.f_top=top;name.f_offset=((top-base)*7)/4; op_font(&name);} |
| 21 | int main(int argc, char** argv){ |
| 22 | |
| 23 | font_init(); |
| 24 | int i; |
| 25 | for (i=0;i<51;i++){ |
| 26 | |
| 27 | switch(i){ |
| 28 | case 0: |
| 29 | PROCESS(cyrilc); |
| 30 | OP_FONT(font_cyrilc,-9,12); |
| 31 | break; |
| 32 | case 1: |
| 33 | PROCESS(gothgbt); |
| 34 | OP_FONT(font_gothgbt,-9,12); |
| 35 | break; |
| 36 | case 2: |
| 37 | PROCESS(gothgrt); |
| 38 | OP_FONT(font_gothgrt,-9,12); |
| 39 | break; |
| 40 | case 3: |
| 41 | PROCESS(gothitt); |
| 42 | OP_FONT(font_gothitt,-9,12); |
| 43 | break; |
| 44 | case 4: |
| 45 | PROCESS(greekc); |
| 46 | OP_FONT(font_greekc,-9,12); |
| 47 | break; |
| 48 | case 5: |
| 49 | PROCESS(greekcs); |
| 50 | OP_FONT(font_greekcs,-6,7); |
| 51 | break; |
| 52 | case 6: |
| 53 | PROCESS(greekp); |
| 54 | OP_FONT(font_greekp,-5,4); |
| 55 | break; |
| 56 | case 7: |
| 57 | PROCESS(greeks); |
| 58 | OP_FONT(font_greeks,-9,12); |
| 59 | break; |
| 60 | case 8: |
| 61 | PROCESS(italicc); |
| 62 | OP_FONT(font_italicc,-9,12); |
| 63 | break; |
| 64 | case 9: |
| 65 | PROCESS(italiccs); |
| 66 | OP_FONT(font_italiccs,-6,7); |
| 67 | break; |
| 68 | case 10: |
| 69 | PROCESS(italict); |
| 70 | OP_FONT(font_italict,-9,12); |
| 71 | break; |
| 72 | case 11: |
| 73 | PROCESS(romanc); |
| 74 | OP_FONT(font_romanc,-9,12); |
| 75 | break; |
| 76 | case 12: |
| 77 | PROCESS(romancs); |
| 78 | OP_FONT(font_romancs,-6,7); |
| 79 | break; |
| 80 | case 13: |
| 81 | PROCESS(romand); |
| 82 | OP_FONT(font_romand,-9,12); |
| 83 | break; |
| 84 | case 14: |
| 85 | PROCESS(romanp); |
| 86 | OP_FONT(font_romanp,-5,4); |
| 87 | break; |
| 88 | case 15: |
| 89 | PROCESS(romans); |
| 90 | OP_FONT(font_romans,-9,12); |
| 91 | break; |
| 92 | case 16: |
| 93 | PROCESS(romant); |
| 94 | OP_FONT(font_romant,-9,12); |
| 95 | break; |
| 96 | case 17: |
| 97 | PROCESS(scriptc); |
| 98 | OP_FONT(font_scriptc,-9,12); |
| 99 | break; |
| 100 | case 18: |
| 101 | PROCESS(scripts); |
| 102 | OP_FONT(font_scripts,-9,12); |
| 103 | break; |
| 104 | |
| 105 | case 19: PROCESS(astrology); OP_FONT(font_astrology,-9,12);break; |
| 106 | case 20: PROCESS(cursive); OP_FONT(font_cursive,-9,12);break; |
| 107 | // case 21: PROCESS(cyrilc_1); OP_FONT(font_cyrilc_1);break; |
| 108 | // case 22: PROCESS(cyrillic); OP_FONT(font_cyrillic,-9,12);break; |
| 109 | case 23: PROCESS(futural); OP_FONT(font_futural,-9,12);break; |
| 110 | case 24: PROCESS(futuram); OP_FONT(font_futuram,-9,12);break; |
| 111 | case 25: PROCESS(gothgbt); OP_FONT(font_gothgbt,-9,12);break; |
| 112 | case 26: PROCESS(gothgrt); OP_FONT(font_gothgrt,-9,12);break; |
| 113 | // case 27: PROCESS(gothiceng); OP_FONT(font_gothiceng,-9,12);break; |
| 114 | // case 28: PROCESS(gothicger); OP_FONT(font_gothicger,-9,12);break; |
| 115 | case 29: PROCESS(gothicita); OP_FONT(font_gothicita,-9,12);break; |
| 116 | // case 30: PROCESS(gothitt); OP_FONT(font_gothitt,-9,12);break; |
| 117 | // case 31: PROCESS(greekc); OP_FONT(font_greekc,-9,12);break; |
| 118 | // case 32: PROCESS(greek); OP_FONT(font_greek,-9,12);break; |
| 119 | // case 33: PROCESS(greeks); OP_FONT(font_greeks,-9,12);break; |
| 120 | // case 34: PROCESS(japanese); OP_FONT(font_japanese,-9,12);break; |
| 121 | case 35: PROCESS(markers); OP_FONT(font_markers,-9,12);break; |
| 122 | case 36: PROCESS(mathlow); OP_FONT(font_mathlow,-9,12);break; |
| 123 | case 37: PROCESS(mathupp); OP_FONT(font_mathupp,-5,4);break; |
| 124 | case 38: PROCESS(meteorology); OP_FONT(font_meteorology,-9,12);break; |
| 125 | case 39: PROCESS(music); OP_FONT(font_music,-9,12);break; |
| 126 | case 40: PROCESS(rowmand); OP_FONT(font_rowmand,-9,12);break; |
| 127 | case 41: PROCESS(rowmans); OP_FONT(font_rowmans,-9,12);break; |
| 128 | case 42: PROCESS(rowmant); OP_FONT(font_rowmant,-9,12);break; |
| 129 | // case 43: PROCESS(scriptc_1); OP_FONT(font_scriptc,-9,12);break; |
| 130 | // case 44: PROCESS(scripts_1); OP_FONT(font_scripts,-9,12);break; |
| 131 | case 45: PROCESS(symbolic); OP_FONT(font_symbolic,-9,12);break; |
| 132 | case 46: PROCESS(timesg); OP_FONT(font_timesg,-9,12);break; |
| 133 | case 47: PROCESS(timesib); OP_FONT(font_timesib,-9,12);break; |
| 134 | case 48: PROCESS(timesi); OP_FONT(font_timesi,-9,12);break; |
| 135 | case 49: PROCESS(timesrb); OP_FONT(font_timesrb,-9,12);break; |
| 136 | case 50: PROCESS(timesr); OP_FONT(font_timesr,-9,12);break; |
| 137 | |
| 138 | |
| 139 | |
| 140 | } |
| 141 | } |
| 142 | |
| 143 | pl_font f; |
| 144 | |
| 145 | PROCESS(hp_charset0_2); |
| 146 | f=hp_convert(charset0 ,2); |
| 147 | op_font(&f); |
| 148 | |
| 149 | PROCESS(hp_charset1_2); |
| 150 | f=hp_convert(charset1 ,2); |
| 151 | op_font(&f); |
| 152 | |
| 153 | PROCESS(hp_charset2_2); |
| 154 | f=hp_convert(charset2 ,2); |
| 155 | op_font(&f); |
| 156 | |
| 157 | PROCESS(hp_charset3_2); |
| 158 | f=hp_convert(charset3 ,2); |
| 159 | op_font(&f); |
| 160 | |
| 161 | PROCESS(hp_charset4_2); |
| 162 | f=hp_convert(charset4 ,2); |
| 163 | op_font(&f); |
| 164 | |
| 165 | PROCESS(hp_charset5_2); |
| 166 | f=hp_convert(charset5 ,2); |
| 167 | op_font(&f); |
| 168 | |
| 169 | PROCESS(hp_charset6_2); |
| 170 | f=hp_convert(charset6 ,2); |
| 171 | op_font(&f); |
| 172 | |
| 173 | PROCESS(hp_charset7_2); |
| 174 | f=hp_convert(charset7 ,2); |
| 175 | op_font(&f); |
| 176 | |
| 177 | PROCESS(hp_charset173_2); |
| 178 | f=hp_convert(charset173,2); |
| 179 | op_font(&f); |
| 180 | |
| 181 | PROCESS(hp_charset205_2); |
| 182 | f=hp_convert(charset205 ,2); |
| 183 | op_font(&f); |
| 184 | |
| 185 | PROCESS(hp_charset0_3); |
| 186 | f=hp_convert(charset0 ,3); |
| 187 | op_font(&f); |
| 188 | |
| 189 | PROCESS(hp_charset1_3); |
| 190 | f=hp_convert(charset1 ,3); |
| 191 | op_font(&f); |
| 192 | |
| 193 | PROCESS(hp_charset2_3); |
| 194 | f=hp_convert(charset2 ,3); |
| 195 | op_font(&f); |
| 196 | |
| 197 | PROCESS(hp_charset3_3); |
| 198 | f=hp_convert(charset3 ,3); |
| 199 | op_font(&f); |
| 200 | |
| 201 | PROCESS(hp_charset4_3); |
| 202 | f=hp_convert(charset4 ,3); |
| 203 | op_font(&f); |
| 204 | |
| 205 | PROCESS(hp_charset5_3); |
| 206 | f=hp_convert(charset5 ,3); |
| 207 | op_font(&f); |
| 208 | |
| 209 | PROCESS(hp_charset6_3); |
| 210 | f=hp_convert(charset6 ,3); |
| 211 | op_font(&f); |
| 212 | |
| 213 | PROCESS(hp_charset7_3); |
| 214 | f=hp_convert(charset7 ,3); |
| 215 | op_font(&f); |
| 216 | |
| 217 | PROCESS(hp_charset173_3); |
| 218 | f=hp_convert(charset173,3); |
| 219 | op_font(&f); |
| 220 | |
| 221 | PROCESS(hp_charset205_3); |
| 222 | f=hp_convert(charset205 ,3); |
| 223 | op_font(&f); |
| 224 | |
| 225 | PROCESS(hp_charset0_4); |
| 226 | f=hp_convert(charset0 ,4); |
| 227 | op_font(&f); |
| 228 | |
| 229 | PROCESS(hp_charset1_4); |
| 230 | f=hp_convert(charset1 ,4); |
| 231 | op_font(&f); |
| 232 | |
| 233 | PROCESS(hp_charset2_4); |
| 234 | f=hp_convert(charset2 ,4); |
| 235 | op_font(&f); |
| 236 | |
| 237 | PROCESS(hp_charset3_4); |
| 238 | f=hp_convert(charset3 ,4); |
| 239 | op_font(&f); |
| 240 | |
| 241 | PROCESS(hp_charset4_4); |
| 242 | f=hp_convert(charset4 ,4); |
| 243 | op_font(&f); |
| 244 | |
| 245 | PROCESS(hp_charset5_4); |
| 246 | f=hp_convert(charset5 ,4); |
| 247 | op_font(&f); |
| 248 | |
| 249 | PROCESS(hp_charset6_4); |
| 250 | f=hp_convert(charset6 ,4); |
| 251 | op_font(&f); |
| 252 | |
| 253 | PROCESS(hp_charset7_4); |
| 254 | f=hp_convert(charset7 ,4); |
| 255 | op_font(&f); |
| 256 | |
| 257 | PROCESS(hp_charset173_4); |
| 258 | f=hp_convert(charset173,4); |
| 259 | op_font(&f); |
| 260 | |
| 261 | PROCESS(hp_charset205_4); |
| 262 | f=hp_convert(charset205 ,4); |
| 263 | op_font(&f); |
| 264 | |
| 265 | |
| 266 | PROCESS(hp_charset0_1); |
| 267 | f=hp_convert(charset0 ,1); |
| 268 | op_font(&f); |
| 269 | |
| 270 | PROCESS(hp_charset1_1); |
| 271 | f=hp_convert(charset1 ,1); |
| 272 | op_font(&f); |
| 273 | |
| 274 | PROCESS(hp_charset2_1); |
| 275 | f=hp_convert(charset2 ,1); |
| 276 | op_font(&f); |
| 277 | |
| 278 | PROCESS(hp_charset3_1); |
| 279 | f=hp_convert(charset3 ,1); |
| 280 | op_font(&f); |
| 281 | |
| 282 | PROCESS(hp_charset4_1); |
| 283 | f=hp_convert(charset4 ,1); |
| 284 | op_font(&f); |
| 285 | |
| 286 | PROCESS(hp_charset5_1); |
| 287 | f=hp_convert(charset5 ,1); |
| 288 | op_font(&f); |
| 289 | |
| 290 | PROCESS(hp_charset6_1); |
| 291 | f=hp_convert(charset6 ,1); |
| 292 | op_font(&f); |
| 293 | |
| 294 | PROCESS(hp_charset7_1); |
| 295 | f=hp_convert(charset7 ,1); |
| 296 | op_font(&f); |
| 297 | |
| 298 | PROCESS(hp_charset173_1); |
| 299 | f=hp_convert(charset173,1); |
| 300 | op_font(&f); |
| 301 | |
| 302 | PROCESS(hp_charset205_1); |
| 303 | f=hp_convert(charset205 ,1); |
| 304 | op_font(&f); |
| 305 | |
| 306 | exit(0); |
| 307 | } |