int main(int argc, char **argv) { int opt; char *user =0; char *host; unsigned long port; int pid; int s; int conn; int delim; progname =*argv; phccmax =0; #ifdef SSLSVD while ((opt =getopt(argc, (const char **)argv, "c:C:i:x:u:l:Eb:hpt:vVU:/:Z:K:")) != opteof) { #else while ((opt =getopt(argc, (const char **)argv, "c:C:i:x:u:l:Eb:hpt:vV")) != opteof) { #endif switch(opt) { case 'c': scan_ulong(optarg, &cmax); if (cmax < 1) usage(); break; case 'C': delim =scan_ulong(optarg, &phccmax); if (phccmax < 1) usage(); if (optarg[delim] == ':') { if (ipsvd_fmt_msg(&msg, optarg +delim +1) == -1) die_nomem(); if (! stralloc_0(&msg)) die_nomem(); phccmsg =msg.s; } break; case 'i': if (instructs) usage(); instructs =optarg; break; case 'x': if (instructs) usage(); instructs =optarg; iscdb =1; break; case 'u': user =(char*)optarg; break; case 'l': if (! stralloc_copys(&local_hostname, optarg)) die_nomem(); if (! stralloc_0(&local_hostname)) die_nomem(); break; case 'E': ucspi =0; break; case 'b': scan_ulong(optarg, &backlog); break; case 'h': lookuphost =1; break; case 'p': lookuphost =1; paranoid =1; break; case 't': scan_ulong(optarg, &timeout); break; case 'v': ++verbose; break; #ifdef SSLSVD case 'U': ssluser =(char*)optarg; break; case '/': root =(char*)optarg; break; case 'Z': cert =(char*)optarg; break; case 'K': key =(char*)optarg; break; #endif case 'V': strerr_warn1(VERSION, 0); case '?': usage(); } } argv +=optind; if (! argv || ! *argv) usage(); host =*argv++; if (! argv || ! *argv) usage(); local_port =*argv++; if (! argv || ! *argv) usage(); prog =(const char **)argv; if (phccmax > cmax) phccmax =cmax; if (user) if (! uidgids_get(&ugid, user)) { if (errno) strerr_die4sys(111, FATAL, "unable to get user/group: ", user, ": "); strerr_die3x(100, FATAL, "unknown user/group: ", user); } #ifdef SSLSVD svuser =user; client =0; if ((getuid() == 0) && (! ssluser)) strerr_die2x(100, FATAL, "-U ssluser must be set when running as root"); if (ssluser) if (! uidgids_get(&sslugid, ssluser)) { if (errno) strerr_die4sys(111, FATAL, "unable to get user/group: ", ssluser, ": "); strerr_die3x(100, FATAL, "unknown user/group: ", ssluser); } if (! cert) cert ="./cert.pem"; if (! key) key =cert; if (matrixSslOpen() < 0) fatal("unable to initialize ssl"); if (matrixSslReadKeys(&keys, cert, key, 0, ca) < 0) { if (client) fatal("unable to read cert, key, or ca file"); fatal("unable to read cert or key file"); } if (matrixSslNewSession(&ssl, keys, 0, SSL_FLAGS_SERVER) < 0) strerr_die2x(111, FATAL, "unable to create ssl session"); #endif dns_random_init(seed); sig_block(sig_child); sig_catch(sig_child, sig_child_handler); sig_catch(sig_term, sig_term_handler); sig_ignore(sig_pipe); if (phccmax) if (ipsvd_phcc_init(cmax) == -1) die_nomem(); if (str_equal(host, "")) host ="0.0.0.0"; if (str_equal(host, "0")) host ="0.0.0.0"; if (! ipsvd_scan_port(local_port, "tcp", &port)) strerr_die3x(100, FATAL, "unknown port number or name: ", local_port); if (! stralloc_copys(&sa, host)) die_nomem(); if ((dns_ip4(&ips, &sa) == -1) || (ips.len < 4)) if (dns_ip4_qualify(&ips, &fqdn, &sa) == -1) fatal2("unable to look up ip address", host); if (ips.len < 4) strerr_die3x(100, FATAL, "unable to look up ip address: ", host); ips.len =4; if (! stralloc_0(&ips)) die_nomem(); local_ip[ipsvd_fmt_ip(local_ip, ips.s)] =0; if (! lookuphost) { if (! stralloc_copys(&remote_hostname, "")) die_nomem(); if (! stralloc_0(&remote_hostname)) die_nomem(); } if ((s =socket_tcp()) == -1) fatal("unable to create socket"); if (socket_bind4_reuse(s, ips.s, port) == -1) fatal("unable to bind socket"); if (listen(s, backlog) == -1) fatal("unable to listen"); ndelay_off(s); #ifdef SSLSVD #else if (user) { /* drop permissions */ if (setgroups(ugid.gids, ugid.gid) == -1) fatal("unable to set groups"); if (setgid(*ugid.gid) == -1) fatal("unable to set gid"); if (prot_uid(ugid.uid) == -1) fatal("unable to set uid"); } #endif close(0); if (verbose) { out(INFO); out("listening on "); outfix(local_ip); out(":"); outfix(local_port); #ifdef SSLSVD #else if (user) { bufnum[fmt_ulong(bufnum, (unsigned long)ugid.uid)] =0; out(", uid "); out(bufnum); bufnum[fmt_ulong(bufnum, (unsigned long)ugid.gid)] =0; out(", gid "); out(bufnum); } #endif flush(", starting.\n"); } for (;;) { while (cnum >= cmax) sig_pause(); socka_size =sizeof(socka); sig_unblock(sig_child); conn =accept(s, (struct sockaddr *)&socka, &socka_size); sig_block(sig_child); if (conn == -1) { if (errno != error_intr) warn("unable to accept connection"); continue; } cnum++; if (verbose) connection_status(); if (phccmax) phcc =ipsvd_phcc_add((char*)&socka.sin_addr); if ((pid =fork()) == -1) { warn2("drop connection", "unable to fork"); close(conn); continue; } if (pid == 0) { /* child */ close(s); #ifdef SSLSVD if (*progname) *progname ='\\'; #endif connection_accept(conn); } if (phccmax) ipsvd_phcc_setpid(pid); close(conn); } _exit(0); }
void connection_accept(int c) { int ac; const char **run; const char *args[4]; char *ip =(char*)&socka.sin_addr; remote_ip[ipsvd_fmt_ip(remote_ip, ip)] =0; if (verbose) { out(INFO); out("pid "); bufnum[fmt_ulong(bufnum, getpid())] =0; out(bufnum); out(" from "); outfix(remote_ip); flush("\n"); } remote_port[ipsvd_fmt_port(remote_port, (char*)&socka.sin_port)] =0; if (lookuphost) { if (ipsvd_hostname(&remote_hostname, ip, paranoid) == -1) warn2("unable to look up hostname", remote_ip); if (! stralloc_0(&remote_hostname)) drop_nomem(); } socka_size =sizeof(socka); if (getsockname(c, (struct sockaddr*)&socka, &socka_size) == -1) drop("unable to get local address"); if (! local_hostname.len) { if (dns_name4(&local_hostname, (char*)&socka.sin_addr) == -1) drop("unable to look up local hostname"); if (! stralloc_0(&local_hostname)) die_nomem(); } local_ip[ipsvd_fmt_ip(local_ip, (char*)&socka.sin_addr)] =0; if (ucspi) ucspi_env(); if (instructs) { ac =ipsvd_check(iscdb, &inst, &match, (char*)instructs, remote_ip, remote_hostname.s, timeout); if (ac == -1) drop2("unable to check inst", remote_ip); if (ac == IPSVD_ERR) drop2("unable to read", (char*)instructs); } else ac =IPSVD_DEFAULT; if (phccmax) { if (phcc > phccmax) { ac =IPSVD_DENY; if (phccmsg) { ndelay_on(c); if (write(c, phccmsg, str_len(phccmsg)) == -1) warn("unable to write concurrency message"); } } if (verbose) { bufnum[fmt_ulong(bufnum, getpid())] =0; out(INFO); out("concurrency "); out(bufnum); out(" "); outfix(remote_ip); out(" "); bufnum[fmt_ulong(bufnum, phcc)] =0; out(bufnum); out("/"); bufnum[fmt_ulong(bufnum, phccmax)] =0; out(bufnum); out("\n"); } } if (verbose) { out(INFO); switch(ac) { case IPSVD_DENY: out("deny "); break; case IPSVD_DEFAULT: case IPSVD_INSTRUCT: out("start "); break; case IPSVD_EXEC: out("exec "); break; } bufnum[fmt_ulong(bufnum, getpid())] =0; out(bufnum); out(" "); outfix(local_hostname.s); out(":"); out(local_ip); out(" :"); outfix(remote_hostname.s); out(":"); outfix(remote_ip); out(":"); outfix(remote_port); if (instructs) { out(" "); if (iscdb) { out((char*)instructs); out("/"); } outfix(match.s); if(inst.s && inst.len && (verbose > 1)) { out(": "); outinst(&inst); } } flush("\n"); } if (ac == IPSVD_DENY) { close(c); _exit(100); } if (ac == IPSVD_EXEC) { args[0] ="/bin/sh"; args[1] ="-c"; args[2] =inst.s; args[3] =0; run =args; } else run =prog; if ((fd_move(0, c) == -1) || (fd_copy(1, 0) == -1)) drop("unable to set filedescriptor"); sig_uncatch(sig_term); sig_uncatch(sig_pipe); sig_uncatch(sig_child); sig_unblock(sig_child); #ifdef SSLSVD pid =getpid(); id[fmt_ulong(id, pid)] =0; ssl_io(0, run); #else pathexec(run); #endif drop2("unable to run", (char *)*prog); }
void mainbody( void ) { initialize () ; if ( ! organize () ) uexit ( 1 ) ; dosimplethings () ; if ( nl > 0 ) { {register integer for_end; ai = 0 ;for_end = nl - 1 ; if ( ai <= for_end) do activity [ai ]= 0 ; while ( ai++ < for_end ) ;} if ( tfm [4 * ( ligkernbase + ( 0 ) ) ]== 255 ) { left () ; Fputs ( plfile , "BOUNDARYCHAR" ) ; boundarychar = tfm [4 * ( ligkernbase + ( 0 ) ) + 1 ]; outchar ( boundarychar ) ; right () ; activity [0 ]= 1 ; } if ( tfm [4 * ( ligkernbase + ( nl - 1 ) ) ]== 255 ) { r = 256 * tfm [4 * ( ligkernbase + ( nl - 1 ) ) + 2 ]+ tfm [4 * ( ligkernbase + ( nl - 1 ) ) + 3 ]; if ( r >= nl ) { perfect = false ; { putc ( ' ' , stderr ); putc ( '\n', stderr ); } Fputs ( stderr , "Ligature/kern starting index for boundarychar is too large;" ) ; fprintf ( stderr , "%s\n", "so I removed it." ) ; } else { labelptr = 1 ; labeltable [1 ].cc = 256 ; labeltable [1 ].rr = r ; bcharlabel = r ; activity [r ]= 2 ; } activity [nl - 1 ]= 1 ; } } {register integer for_end; c = bc ;for_end = ec ; if ( c <= for_end) do if ( ( tfm [4 * ( charbase + c ) + 2 ]% 4 ) == 1 ) { r = tfm [4 * ( charbase + c ) + 3 ]; if ( r < nl ) { if ( tfm [4 * ( ligkernbase + ( r ) ) ]> 128 ) { r = 256 * tfm [4 * ( ligkernbase + ( r ) ) + 2 ]+ tfm [4 * ( ligkernbase + ( r ) ) + 3 ]; if ( r < nl ) { if ( activity [tfm [4 * ( charbase + c ) + 3 ]]== 0 ) activity [tfm [4 * ( charbase + c ) + 3 ]]= 1 ; } } } if ( r >= nl ) { perfect = false ; { putc ( ' ' , stderr ); putc ( '\n', stderr ); } Fputs ( stderr , "Ligature/kern starting index for character " ) ; printoctal ( c ) ; fprintf ( stderr , "%s\n", " is too large;" ) ; fprintf ( stderr , "%s\n", "so I removed it." ) ; tfm [4 * ( charbase + c ) + 2 ]= 4 * ( tfm [4 * ( charbase + c ) + 2 ]/ 4 ) + 0 ; } else { sortptr = labelptr ; while ( labeltable [sortptr ].rr > r ) { labeltable [sortptr + 1 ]= labeltable [sortptr ]; sortptr = sortptr - 1 ; } labeltable [sortptr + 1 ].cc = c ; labeltable [sortptr + 1 ].rr = r ; labelptr = labelptr + 1 ; activity [r ]= 2 ; } } while ( c++ < for_end ) ;} labeltable [labelptr + 1 ].rr = ligsize ; if ( nl > 0 ) { left () ; Fputs ( plfile , "LIGTABLE" ) ; outln () ; {register integer for_end; ai = 0 ;for_end = nl - 1 ; if ( ai <= for_end) do if ( activity [ai ]== 2 ) { r = tfm [4 * ( ligkernbase + ( ai ) ) ]; if ( r < 128 ) { r = r + ai + 1 ; if ( r >= nl ) { { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s%ld%s\n", "Bad TFM file: " , "Ligature/kern step " , (long)ai , " skips too far;" ) ; } fprintf ( stderr , "%s\n", "I made it stop." ) ; tfm [4 * ( ligkernbase + ( ai ) ) ]= 128 ; } else activity [r ]= 2 ; } } while ( ai++ < for_end ) ;} sortptr = 1 ; {register integer for_end; acti = 0 ;for_end = nl - 1 ; if ( acti <= for_end) do if ( activity [acti ]!= 1 ) { i = acti ; if ( activity [i ]== 0 ) { if ( level == 1 ) { left () ; Fputs ( plfile , "COMMENT THIS PART OF THE PROGRAM IS NEVER USED!" ) ; outln () ; } } else if ( level == 2 ) right () ; while ( i == labeltable [sortptr ].rr ) { left () ; Fputs ( plfile , "LABEL" ) ; if ( labeltable [sortptr ].cc == 256 ) Fputs ( plfile , " BOUNDARYCHAR" ) ; else outchar ( labeltable [sortptr ].cc ) ; right () ; sortptr = sortptr + 1 ; } { k = 4 * ( ligkernbase + ( i ) ) ; if ( tfm [k ]> 128 ) { if ( 256 * tfm [k + 2 ]+ tfm [k + 3 ]>= nl ) { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s\n", "Bad TFM file: " , "Ligature unconditional stop command address is too big." ) ; } } else if ( tfm [k + 2 ]>= 128 ) { if ( ( ( tfm [k + 1 ]< bc ) || ( tfm [k + 1 ]> ec ) || ( tfm [ 4 * ( charbase + tfm [k + 1 ]) ]== 0 ) ) ) { if ( tfm [k + 1 ]!= boundarychar ) { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s%s", "Bad TFM file: " , "Kern step for" , " nonexistent character " ) ; printoctal ( tfm [k + 1 ]) ; { putc ( '.' , stderr ); putc ( '\n', stderr ); } tfm [k + 1 ]= bc ; } } left () ; Fputs ( plfile , "KRN" ) ; outchar ( tfm [k + 1 ]) ; r = 256 * ( tfm [k + 2 ]- 128 ) + tfm [k + 3 ]; if ( r >= nk ) { { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s\n", "Bad TFM file: " , "Kern index too large." ) ; } Fputs ( plfile , " R 0.0" ) ; } else outfix ( 4 * ( kernbase + r ) ) ; right () ; } else { if ( ( ( tfm [k + 1 ]< bc ) || ( tfm [k + 1 ]> ec ) || ( tfm [ 4 * ( charbase + tfm [k + 1 ]) ]== 0 ) ) ) { if ( tfm [k + 1 ]!= boundarychar ) { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s%s", "Bad TFM file: " , "Ligature step for" , " nonexistent character " ) ; printoctal ( tfm [k + 1 ]) ; { putc ( '.' , stderr ); putc ( '\n', stderr ); } tfm [k + 1 ]= bc ; } } if ( ( ( tfm [k + 3 ]< bc ) || ( tfm [k + 3 ]> ec ) || ( tfm [ 4 * ( charbase + tfm [k + 3 ]) ]== 0 ) ) ) { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s%s", "Bad TFM file: " , "Ligature step produces the" , " nonexistent character " ) ; printoctal ( tfm [k + 3 ]) ; { putc ( '.' , stderr ); putc ( '\n', stderr ); } tfm [k + 3 ]= bc ; } left () ; r = tfm [k + 2 ]; if ( ( r == 4 ) || ( ( r > 7 ) && ( r != 11 ) ) ) { fprintf ( stderr , "%s\n", "Ligature step with nonstandard code changed to LIG" ) ; r = 0 ; tfm [k + 2 ]= 0 ; } if ( r % 4 > 1 ) putc ( '/' , plfile ); Fputs ( plfile , "LIG" ) ; if ( odd ( r ) ) putc ( '/' , plfile ); while ( r > 3 ) { putc ( '>' , plfile ); r = r - 4 ; } outchar ( tfm [k + 1 ]) ; outchar ( tfm [k + 3 ]) ; right () ; } if ( tfm [k ]> 0 ) { if ( level == 1 ) { if ( tfm [k ]>= 128 ) Fputs ( plfile , "(STOP)" ) ; else { count = 0 ; {register integer for_end; ai = i + 1 ;for_end = i + tfm [k ]; if ( ai <= for_end) do if ( activity [ai ]== 2 ) count = count + 1 ; while ( ai++ < for_end ) ;} fprintf ( plfile , "%s%ld%c", "(SKIP D " , (long)count , ')' ) ; } outln () ; } } } } while ( acti++ < for_end ) ;} if ( level == 2 ) right () ; right () ; hashptr = 0 ; yligcycle = 256 ; {register integer for_end; hh = 0 ;for_end = hashsize ; if ( hh <= for_end) do hash [hh ]= 0 ; while ( hh++ < for_end ) ;} {register integer for_end; c = bc ;for_end = ec ; if ( c <= for_end) do if ( ( tfm [4 * ( charbase + c ) + 2 ]% 4 ) == 1 ) { i = tfm [4 * ( charbase + c ) + 3 ]; if ( tfm [4 * ( ligkernbase + ( i ) ) ]> 128 ) i = 256 * tfm [4 * ( ligkernbase + ( i ) ) + 2 ]+ tfm [4 * ( ligkernbase + ( i ) ) + 3 ]; do { hashinput () ; k = tfm [4 * ( ligkernbase + ( i ) ) ]; if ( k >= 128 ) i = nl ; else i = i + 1 + k ; } while ( ! ( i >= nl ) ) ; } while ( c++ < for_end ) ;} if ( bcharlabel < nl ) { c = 256 ; i = bcharlabel ; do { hashinput () ; k = tfm [4 * ( ligkernbase + ( i ) ) ]; if ( k >= 128 ) i = nl ; else i = i + 1 + k ; } while ( ! ( i >= nl ) ) ; } if ( hashptr == hashsize ) { fprintf ( stderr , "%s\n", "Sorry, I haven't room for so many ligature/kern pairs!" ) ; uexit ( 1 ) ; } {register integer for_end; hh = 1 ;for_end = hashptr ; if ( hh <= for_end) do { r = hashlist [hh ]; if ( classvar [r ]> 0 ) r = ffn ( r , ( hash [r ]- 1 ) / 256 , ( hash [r ]- 1 ) % 256 ) ; } while ( hh++ < for_end ) ;} if ( yligcycle < 256 ) { Fputs ( stderr , "Infinite ligature loop starting with " ) ; if ( xligcycle == 256 ) Fputs ( stderr , "boundary" ) ; else printoctal ( xligcycle ) ; Fputs ( stderr , " and " ) ; printoctal ( yligcycle ) ; { putc ( '!' , stderr ); putc ( '\n', stderr ); } Fputs ( plfile , "(INFINITE LIGATURE LOOP MUST BE BROKEN!)" ) ; uexit ( 1 ) ; } } if ( ne > 0 ) {register integer for_end; c = 0 ;for_end = ne - 1 ; if ( c <= for_end) do {register integer for_end; d = 0 ;for_end = 3 ; if ( d <= for_end) do { k = 4 * ( extenbase + c ) + d ; if ( ( tfm [k ]> 0 ) || ( d == 3 ) ) { if ( ( ( tfm [k ]< bc ) || ( tfm [k ]> ec ) || ( tfm [4 * ( charbase + tfm [k ]) ]== 0 ) ) ) { { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s%s", "Bad TFM file: " , "Extensible recipe involves the" , " nonexistent character " ) ; printoctal ( tfm [k ]) ; { putc ( '.' , stderr ); putc ( '\n', stderr ); } } if ( d < 3 ) tfm [k ]= 0 ; } } } while ( d++ < for_end ) ;} while ( c++ < for_end ) ;} docharacters () ; if ( verbose ) { putc ( '.' , stderr ); putc ( '\n', stderr ); } if ( level != 0 ) fprintf ( stderr , "%s\n", "This program isn't working!" ) ; if ( ! perfect ) { Fputs ( plfile , "(COMMENT THE TFM FILE WAS BAD, SO THE DATA HAS BEEN CHANGED!)" ) ; putc ('\n', plfile ); } }
void dosimplethings ( void ) { short i ; { fonttype = 0 ; if ( lh >= 12 ) { { checkBCPL ( 32 , 40 ) ; if ( ( tfm [32 ]>= 11 ) && ( tfm [33 ]== 84 ) && ( tfm [34 ]== 69 ) && ( tfm [35 ]== 88 ) && ( tfm [36 ]== 32 ) && ( tfm [37 ] == 77 ) && ( tfm [38 ]== 65 ) && ( tfm [39 ]== 84 ) && ( tfm [40 ]== 72 ) && ( tfm [41 ]== 32 ) ) { if ( ( tfm [42 ]== 83 ) && ( tfm [43 ]== 89 ) ) fonttype = 1 ; else if ( ( tfm [42 ]== 69 ) && ( tfm [43 ]== 88 ) ) fonttype = 2 ; } } if ( lh >= 17 ) { left () ; Fputs ( plfile , "FAMILY" ) ; checkBCPL ( 72 , 20 ) ; outBCPL ( 72 ) ; right () ; if ( lh >= 18 ) { left () ; Fputs ( plfile , "FACE" ) ; outface ( 95 ) ; right () ; {register integer for_end; i = 18 ;for_end = lh - 1 ; if ( i <= for_end) do { left () ; fprintf ( plfile , "%s%ld", "HEADER D " , (long)i ) ; outoctal ( 24 + 4 * i , 4 ) ; right () ; } while ( i++ < for_end ) ;} } } left () ; Fputs ( plfile , "CODINGSCHEME" ) ; outBCPL ( 32 ) ; right () ; } left () ; Fputs ( plfile , "DESIGNSIZE" ) ; if ( tfm [28 ]> 127 ) { { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s%s%c\n", "Bad TFM file: " , "Design size " , "negative" , '!' ) ; } fprintf ( stderr , "%s\n", "I've set it to 10 points." ) ; Fputs ( plfile , " D 10" ) ; } else if ( ( tfm [28 ]== 0 ) && ( tfm [29 ]< 16 ) ) { { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s%s%c\n", "Bad TFM file: " , "Design size " , "too small" , '!' ) ; } fprintf ( stderr , "%s\n", "I've set it to 10 points." ) ; Fputs ( plfile , " D 10" ) ; } else outfix ( 28 ) ; right () ; Fputs ( plfile , "(COMMENT DESIGNSIZE IS IN POINTS)" ) ; outln () ; Fputs ( plfile , "(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)" ) ; outln () ; left () ; Fputs ( plfile , "CHECKSUM" ) ; outoctal ( 24 , 4 ) ; right () ; if ( ( lh > 17 ) && ( tfm [92 ]> 127 ) ) { left () ; Fputs ( plfile , "SEVENBITSAFEFLAG TRUE" ) ; right () ; } } if ( np > 0 ) { left () ; Fputs ( plfile , "FONTDIMEN" ) ; outln () ; {register integer for_end; i = 1 ;for_end = np ; if ( i <= for_end) do { left () ; if ( i == 1 ) Fputs ( plfile , "SLANT" ) ; else { if ( ( tfm [4 * ( parambase + i ) ]> 0 ) && ( tfm [4 * ( parambase + i ) ]< 255 ) ) { tfm [4 * ( parambase + i ) ]= 0 ; tfm [( 4 * ( parambase + i ) ) + 1 ]= 0 ; tfm [( 4 * ( parambase + i ) ) + 2 ]= 0 ; tfm [( 4 * ( parambase + i ) ) + 3 ]= 0 ; { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s%c%ld%s\n", "Bad TFM file: " , "Parameter" , ' ' , (long)i , " is too big;" ) ; } fprintf ( stderr , "%s\n", "I have set it to zero." ) ; } if ( i <= 7 ) switch ( i ) {case 2 : Fputs ( plfile , "SPACE" ) ; break ; case 3 : Fputs ( plfile , "STRETCH" ) ; break ; case 4 : Fputs ( plfile , "SHRINK" ) ; break ; case 5 : Fputs ( plfile , "XHEIGHT" ) ; break ; case 6 : Fputs ( plfile , "QUAD" ) ; break ; case 7 : Fputs ( plfile , "EXTRASPACE" ) ; break ; } else if ( ( i <= 22 ) && ( fonttype == 1 ) ) switch ( i ) {case 8 : Fputs ( plfile , "NUM1" ) ; break ; case 9 : Fputs ( plfile , "NUM2" ) ; break ; case 10 : Fputs ( plfile , "NUM3" ) ; break ; case 11 : Fputs ( plfile , "DENOM1" ) ; break ; case 12 : Fputs ( plfile , "DENOM2" ) ; break ; case 13 : Fputs ( plfile , "SUP1" ) ; break ; case 14 : Fputs ( plfile , "SUP2" ) ; break ; case 15 : Fputs ( plfile , "SUP3" ) ; break ; case 16 : Fputs ( plfile , "SUB1" ) ; break ; case 17 : Fputs ( plfile , "SUB2" ) ; break ; case 18 : Fputs ( plfile , "SUPDROP" ) ; break ; case 19 : Fputs ( plfile , "SUBDROP" ) ; break ; case 20 : Fputs ( plfile , "DELIM1" ) ; break ; case 21 : Fputs ( plfile , "DELIM2" ) ; break ; case 22 : Fputs ( plfile , "AXISHEIGHT" ) ; break ; } else if ( ( i <= 13 ) && ( fonttype == 2 ) ) { if ( i == 8 ) Fputs ( plfile , "DEFAULTRULETHICKNESS" ) ; else fprintf ( plfile , "%s%ld", "BIGOPSPACING" , (long)i - 8 ) ; } else fprintf ( plfile , "%s%ld", "PARAMETER D " , (long)i ) ; } outfix ( 4 * ( parambase + i ) ) ; right () ; } while ( i++ < for_end ) ;} right () ; } if ( ( fonttype == 1 ) && ( np != 22 ) ) fprintf ( stderr , "%s%ld%s\n", "Unusual number of fontdimen parameters for a math symbols font (" , (long)np , " not 22)." ) ; else if ( ( fonttype == 2 ) && ( np != 13 ) ) fprintf ( stderr , "%s%ld%s\n", "Unusual number of fontdimen parameters for an extension font (" , (long)np , " not 13)." ) ; if ( ( tfm [4 * widthbase ]> 0 ) || ( tfm [4 * widthbase + 1 ]> 0 ) || ( tfm [4 * widthbase + 2 ]> 0 ) || ( tfm [4 * widthbase + 3 ]> 0 ) ) { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s\n", "Bad TFM file: " , "width[0] should be zero." ) ; } if ( ( tfm [4 * heightbase ]> 0 ) || ( tfm [4 * heightbase + 1 ]> 0 ) || ( tfm [4 * heightbase + 2 ]> 0 ) || ( tfm [4 * heightbase + 3 ]> 0 ) ) { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s\n", "Bad TFM file: " , "height[0] should be zero." ) ; } if ( ( tfm [4 * depthbase ]> 0 ) || ( tfm [4 * depthbase + 1 ]> 0 ) || ( tfm [4 * depthbase + 2 ]> 0 ) || ( tfm [4 * depthbase + 3 ]> 0 ) ) { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s\n", "Bad TFM file: " , "depth[0] should be zero." ) ; } if ( ( tfm [4 * italicbase ]> 0 ) || ( tfm [4 * italicbase + 1 ]> 0 ) || ( tfm [4 * italicbase + 2 ]> 0 ) || ( tfm [4 * italicbase + 3 ]> 0 ) ) { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s\n", "Bad TFM file: " , "italic[0] should be zero." ) ; } {register integer for_end; i = 0 ;for_end = nw - 1 ; if ( i <= for_end) do if ( ( tfm [4 * ( widthbase + i ) ]> 0 ) && ( tfm [4 * ( widthbase + i ) ]< 255 ) ) { tfm [4 * ( widthbase + i ) ]= 0 ; tfm [( 4 * ( widthbase + i ) ) + 1 ]= 0 ; tfm [( 4 * ( widthbase + i ) ) + 2 ]= 0 ; tfm [( 4 * ( widthbase + i ) ) + 3 ]= 0 ; { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s%c%ld%s\n", "Bad TFM file: " , "Width" , ' ' , (long)i , " is too big;" ) ; } fprintf ( stderr , "%s\n", "I have set it to zero." ) ; } while ( i++ < for_end ) ;} {register integer for_end; i = 0 ;for_end = nh - 1 ; if ( i <= for_end) do if ( ( tfm [4 * ( heightbase + i ) ]> 0 ) && ( tfm [4 * ( heightbase + i ) ]< 255 ) ) { tfm [4 * ( heightbase + i ) ]= 0 ; tfm [( 4 * ( heightbase + i ) ) + 1 ]= 0 ; tfm [( 4 * ( heightbase + i ) ) + 2 ]= 0 ; tfm [( 4 * ( heightbase + i ) ) + 3 ]= 0 ; { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s%c%ld%s\n", "Bad TFM file: " , "Height" , ' ' , (long)i , " is too big;" ) ; } fprintf ( stderr , "%s\n", "I have set it to zero." ) ; } while ( i++ < for_end ) ;} {register integer for_end; i = 0 ;for_end = nd - 1 ; if ( i <= for_end) do if ( ( tfm [4 * ( depthbase + i ) ]> 0 ) && ( tfm [4 * ( depthbase + i ) ]< 255 ) ) { tfm [4 * ( depthbase + i ) ]= 0 ; tfm [( 4 * ( depthbase + i ) ) + 1 ]= 0 ; tfm [( 4 * ( depthbase + i ) ) + 2 ]= 0 ; tfm [( 4 * ( depthbase + i ) ) + 3 ]= 0 ; { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s%c%ld%s\n", "Bad TFM file: " , "Depth" , ' ' , (long)i , " is too big;" ) ; } fprintf ( stderr , "%s\n", "I have set it to zero." ) ; } while ( i++ < for_end ) ;} {register integer for_end; i = 0 ;for_end = ni - 1 ; if ( i <= for_end) do if ( ( tfm [4 * ( italicbase + i ) ]> 0 ) && ( tfm [4 * ( italicbase + i ) ]< 255 ) ) { tfm [4 * ( italicbase + i ) ]= 0 ; tfm [( 4 * ( italicbase + i ) ) + 1 ]= 0 ; tfm [( 4 * ( italicbase + i ) ) + 2 ]= 0 ; tfm [( 4 * ( italicbase + i ) ) + 3 ]= 0 ; { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s%c%ld%s\n", "Bad TFM file: " , "Italic correction" , ' ' , (long)i , " is too big;" ) ; } fprintf ( stderr , "%s\n", "I have set it to zero." ) ; } while ( i++ < for_end ) ;} if ( nk > 0 ) {register integer for_end; i = 0 ;for_end = nk - 1 ; if ( i <= for_end) do if ( ( tfm [4 * ( kernbase + i ) ]> 0 ) && ( tfm [4 * ( kernbase + i ) ]< 255 ) ) { tfm [4 * ( kernbase + i ) ]= 0 ; tfm [( 4 * ( kernbase + i ) ) + 1 ]= 0 ; tfm [( 4 * ( kernbase + i ) ) + 2 ]= 0 ; tfm [( 4 * ( kernbase + i ) ) + 3 ]= 0 ; { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s%c%ld%s\n", "Bad TFM file: " , "Kern" , ' ' , (long)i , " is too big;" ) ; } fprintf ( stderr , "%s\n", "I have set it to zero." ) ; } while ( i++ < for_end ) ;} }
void docharacters ( void ) { byte c ; indextype k ; integer ai ; sortptr = 0 ; {register integer for_end; c = bc ;for_end = ec ; if ( c <= for_end) do if ( tfm [4 * ( charbase + c ) ]> 0 ) { if ( charsonline == 8 ) { { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 1 ; } else { if ( charsonline > 0 ) putc ( ' ' , stderr ); if ( verbose ) charsonline = charsonline + 1 ; } if ( verbose ) printoctal ( c ) ; left () ; Fputs ( plfile , "CHARACTER" ) ; outchar ( c ) ; outln () ; { left () ; Fputs ( plfile , "CHARWD" ) ; if ( tfm [4 * ( charbase + c ) ]>= nw ) { perfect = false ; { putc ( ' ' , stderr ); putc ( '\n', stderr ); } fprintf ( stderr , "%s%s", "Width" , " index for character " ) ; printoctal ( c ) ; fprintf ( stderr , "%s\n", " is too large;" ) ; fprintf ( stderr , "%s\n", "so I reset it to zero." ) ; } else outfix ( 4 * ( widthbase + tfm [4 * ( charbase + c ) ]) ) ; right () ; } if ( ( tfm [4 * ( charbase + c ) + 1 ]/ 16 ) > 0 ) { if ( ( tfm [4 * ( charbase + c ) + 1 ]/ 16 ) >= nh ) { perfect = false ; { putc ( ' ' , stderr ); putc ( '\n', stderr ); } fprintf ( stderr , "%s%s", "Height" , " index for character " ) ; printoctal ( c ) ; fprintf ( stderr , "%s\n", " is too large;" ) ; fprintf ( stderr , "%s\n", "so I reset it to zero." ) ; } else { left () ; Fputs ( plfile , "CHARHT" ) ; outfix ( 4 * ( heightbase + ( tfm [4 * ( charbase + c ) + 1 ]/ 16 ) ) ) ; right () ; } } if ( ( tfm [4 * ( charbase + c ) + 1 ]% 16 ) > 0 ) { if ( ( tfm [4 * ( charbase + c ) + 1 ]% 16 ) >= nd ) { perfect = false ; { putc ( ' ' , stderr ); putc ( '\n', stderr ); } fprintf ( stderr , "%s%s", "Depth" , " index for character " ) ; printoctal ( c ) ; fprintf ( stderr , "%s\n", " is too large;" ) ; fprintf ( stderr , "%s\n", "so I reset it to zero." ) ; } else { left () ; Fputs ( plfile , "CHARDP" ) ; outfix ( 4 * ( depthbase + ( tfm [4 * ( charbase + c ) + 1 ]% 16 ) ) ) ; right () ; } } if ( ( tfm [4 * ( charbase + c ) + 2 ]/ 4 ) > 0 ) { if ( ( tfm [4 * ( charbase + c ) + 2 ]/ 4 ) >= ni ) { perfect = false ; { putc ( ' ' , stderr ); putc ( '\n', stderr ); } fprintf ( stderr , "%s%s", "Italic correction" , " index for character " ) ; printoctal ( c ) ; fprintf ( stderr , "%s\n", " is too large;" ) ; fprintf ( stderr , "%s\n", "so I reset it to zero." ) ; } else { left () ; Fputs ( plfile , "CHARIC" ) ; outfix ( 4 * ( italicbase + ( tfm [4 * ( charbase + c ) + 2 ]/ 4 ) ) ) ; right () ; } } switch ( ( tfm [4 * ( charbase + c ) + 2 ]% 4 ) ) {case 0 : ; break ; case 1 : { left () ; Fputs ( plfile , "COMMENT" ) ; outln () ; i = tfm [4 * ( charbase + c ) + 3 ]; r = 4 * ( ligkernbase + ( i ) ) ; if ( tfm [r ]> 128 ) i = 256 * tfm [r + 2 ]+ tfm [r + 3 ]; do { { k = 4 * ( ligkernbase + ( i ) ) ; if ( tfm [k ]> 128 ) { if ( 256 * tfm [k + 2 ]+ tfm [k + 3 ]>= nl ) { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s\n", "Bad TFM file: " , "Ligature unconditional stop command address is too big." ) ; } } else if ( tfm [k + 2 ]>= 128 ) { if ( ( ( tfm [k + 1 ]< bc ) || ( tfm [k + 1 ]> ec ) || ( tfm [4 * ( charbase + tfm [k + 1 ]) ]== 0 ) ) ) { if ( tfm [k + 1 ]!= boundarychar ) { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s%s", "Bad TFM file: " , "Kern step for" , " nonexistent character " ) ; printoctal ( tfm [k + 1 ]) ; { putc ( '.' , stderr ); putc ( '\n', stderr ); } tfm [k + 1 ]= bc ; } } left () ; Fputs ( plfile , "KRN" ) ; outchar ( tfm [k + 1 ]) ; r = 256 * ( tfm [k + 2 ]- 128 ) + tfm [k + 3 ]; if ( r >= nk ) { { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s\n", "Bad TFM file: " , "Kern index too large." ) ; } Fputs ( plfile , " R 0.0" ) ; } else outfix ( 4 * ( kernbase + r ) ) ; right () ; } else { if ( ( ( tfm [k + 1 ]< bc ) || ( tfm [k + 1 ]> ec ) || ( tfm [4 * ( charbase + tfm [k + 1 ]) ]== 0 ) ) ) { if ( tfm [k + 1 ]!= boundarychar ) { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s%s", "Bad TFM file: " , "Ligature step for" , " nonexistent character " ) ; printoctal ( tfm [k + 1 ]) ; { putc ( '.' , stderr ); putc ( '\n', stderr ); } tfm [k + 1 ]= bc ; } } if ( ( ( tfm [k + 3 ]< bc ) || ( tfm [k + 3 ]> ec ) || ( tfm [4 * ( charbase + tfm [k + 3 ]) ]== 0 ) ) ) { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s%s", "Bad TFM file: " , "Ligature step produces the" , " nonexistent character " ) ; printoctal ( tfm [k + 3 ]) ; { putc ( '.' , stderr ); putc ( '\n', stderr ); } tfm [k + 3 ]= bc ; } left () ; r = tfm [k + 2 ]; if ( ( r == 4 ) || ( ( r > 7 ) && ( r != 11 ) ) ) { fprintf ( stderr , "%s\n", "Ligature step with nonstandard code changed to LIG" ) ; r = 0 ; tfm [k + 2 ]= 0 ; } if ( r % 4 > 1 ) putc ( '/' , plfile ); Fputs ( plfile , "LIG" ) ; if ( odd ( r ) ) putc ( '/' , plfile ); while ( r > 3 ) { putc ( '>' , plfile ); r = r - 4 ; } outchar ( tfm [k + 1 ]) ; outchar ( tfm [k + 3 ]) ; right () ; } if ( tfm [k ]> 0 ) { if ( level == 1 ) { if ( tfm [k ]>= 128 ) Fputs ( plfile , "(STOP)" ) ; else { count = 0 ; {register integer for_end; ai = i + 1 ;for_end = i + tfm [k ]; if ( ai <= for_end) do if ( activity [ai ]== 2 ) count = count + 1 ; while ( ai++ < for_end ) ;} fprintf ( plfile , "%s%ld%c", "(SKIP D " , (long)count , ')' ) ; } outln () ; } } } if ( tfm [k ]>= 128 ) i = nl ; else i = i + 1 + tfm [k ]; } while ( ! ( i >= nl ) ) ; right () ; } break ; case 2 : { r = tfm [4 * ( charbase + c ) + 3 ]; if ( ( ( r < bc ) || ( r > ec ) || ( tfm [4 * ( charbase + r ) ]== 0 ) ) ) { { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s%s", "Bad TFM file: " , "Character list link to" , " nonexistent character " ) ; printoctal ( r ) ; { putc ( '.' , stderr ); putc ( '\n', stderr ); } } tfm [4 * ( charbase + c ) + 2 ]= 4 * ( tfm [4 * ( charbase + c ) + 2 ]/ 4 ) + 0 ; } else { while ( ( r < c ) && ( ( tfm [4 * ( charbase + r ) + 2 ]% 4 ) == 2 ) ) r = tfm [4 * ( charbase + r ) + 3 ]; if ( r == c ) { { perfect = false ; if ( charsonline > 0 ) { putc ( ' ' , stderr ); putc ( '\n', stderr ); } charsonline = 0 ; fprintf ( stderr , "%s%s\n", "Bad TFM file: " , "Cycle in a character list!" ) ; } Fputs ( stderr , "Character " ) ; printoctal ( c ) ; fprintf ( stderr , "%s\n", " now ends the list." ) ; tfm [4 * ( charbase + c ) + 2 ]= 4 * ( tfm [4 * ( charbase + c ) + 2 ]/ 4 ) + 0 ; } else { left () ; Fputs ( plfile , "NEXTLARGER" ) ; outchar ( tfm [4 * ( charbase + c ) + 3 ]) ; right () ; } } } break ; case 3 : if ( tfm [4 * ( charbase + c ) + 3 ]>= ne ) { { perfect = false ; { putc ( ' ' , stderr ); putc ( '\n', stderr ); } fprintf ( stderr , "%s%s", "Extensible" , " index for character " ) ; printoctal ( c ) ; fprintf ( stderr , "%s\n", " is too large;" ) ; fprintf ( stderr , "%s\n", "so I reset it to zero." ) ; } tfm [4 * ( charbase + c ) + 2 ]= 4 * ( tfm [4 * ( charbase + c ) + 2 ]/ 4 ) + 0 ; } else { left () ; Fputs ( plfile , "VARCHAR" ) ; outln () ; {register integer for_end; k = 0 ;for_end = 3 ; if ( k <= for_end) do if ( ( k == 3 ) || ( tfm [4 * ( extenbase + tfm [4 * ( charbase + c ) + 3 ]) + k ]> 0 ) ) { left () ; switch ( k ) {case 0 : Fputs ( plfile , "TOP" ) ; break ; case 1 : Fputs ( plfile , "MID" ) ; break ; case 2 : Fputs ( plfile , "BOT" ) ; break ; case 3 : Fputs ( plfile , "REP" ) ; break ; } if ( ( ( tfm [4 * ( extenbase + tfm [4 * ( charbase + c ) + 3 ]) + k ]< bc ) || ( tfm [4 * ( extenbase + tfm [4 * ( charbase + c ) + 3 ]) + k ]> ec ) || ( tfm [4 * ( charbase + tfm [4 * ( extenbase + tfm [4 * ( charbase + c ) + 3 ]) + k ] ) ]== 0 ) ) ) outchar ( c ) ; else outchar ( tfm [4 * ( extenbase + tfm [4 * ( charbase + c ) + 3 ]) + k ]) ; right () ; } while ( k++ < for_end ) ;} right () ; } break ; } right () ; } while ( c++ < for_end ) ;} }