pc-tools/fontgen/src/main.c

   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 }