Mercurial > repo

comparison interps/c-intercal/src/convickt.c @ 996:859f9b4339e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<Gregor> tar xf egobot.tar.xz
author HackBot
date Sun, 09 Dec 2012 19:30:08 +0000
parents
children
comparison
equal deleted inserted replaced
995:6883f5911eb7 996:859f9b4339e6
1 /*****************************************************************************
2
3 NAME
4 convickt.c -- translate between various INTERCAL formats
5
6 LICENSE TERMS
7 Copyright (C) 2007 Alex Smith
8
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2 of the License, or
12 (at your option) any later version.
13
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
18
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
22
23 ***************************************************************************/
24
25 #include <stdio.h>
26 #include <stdlib.h>
27 #include <time.h>
28 #include <string.h>
29 #include <unistd.h>
30
31 extern int ick_clc_cset_convert(const char* in, /*@partial@*/ char* out, const char* incset,
32 const char* outcset, int padstyle, size_t outsize,
33 /*@null@*/ FILE* errsto);
34
35 /* For communication with clc_cset.c */
36 /*@observer@*/ char* ick_globalargv0;
37 /*@-redef@*/ /* it's never the case that both definitions are used at once */
38 /*@observer@*/ /*@dependent@*/ const char* ick_datadir;
39 /*@=redef@*/
40 /* We want to read the latest versions of the character sets from disk. */
41 /*@null@*/ const char* ick_clc_cset_atari=0;
42 /*@null@*/ const char* ick_clc_cset_baudot=0;
43 /*@null@*/ const char* ick_clc_cset_ebcdic=0;
44 /*@null@*/ const char* ick_clc_cset_latin1=0;
45
46 #ifndef ICKDATADIR
47 #define ICKDATADIR "/usr/local/share/ick-0.27"
48 #endif
49
50 /*@-redef@*/ /* because only one main is used at a time */
51 int main(int argc, char** argv)
52 /*@=redef@*/
53 {
54 size_t allocsize=100;
55 char* in;
56 char* out;
57 size_t i=0;
58 int ti;
59 int c;
60 int padding=-1;
61 ick_globalargv0=argv[0];
62 srand((unsigned)time(NULL));
63 if(argc<3||argc>5)
64 {
65 fprintf(stderr,"Usage: convickt informat outformat [padding [arrayname]]\n");
66 fprintf(stderr,"Available formats are:\n");
67 fprintf(stderr,"\tPrinceton: latin1, baudot, ebcdic\n");
68 fprintf(stderr,"\tAtari: atari (7-bit ASCII)\n");
69 fprintf(stderr,"Possible values for padding are:\n");
70 fprintf(stderr,"\tprintable: try to leave the output in char range "
71 "32-126\n");
72 fprintf(stderr,"\tzero: leave the output with 0s in the high bits\n");
73 fprintf(stderr,"\trandom: pad with random data\n");
74 fprintf(stderr,"Padding only has an effect on character sets with less\n");
75 fprintf(stderr,"than 8 bits used per bytes; default is 'printable'.\n");
76 fprintf(stderr,"If arrayname is given, which must be a legal name for\n");
77 fprintf(stderr,"a tail array, the output will instead be a portable\n");
78 fprintf(stderr,"INTERCAL program that stores the required byte pattern\n");
79 fprintf(stderr,"in that array.\n");
80 return 0;
81 }
82 if(argc>=4&&!strcmp(argv[3],"printable")) padding=1;
83 if(argc>=4&&!strcmp(argv[3],"zero")) padding=0;
84 if(argc>=4&&!strcmp(argv[3],"random")) padding=2;
85 if(argc>=4&&padding==-1)
86 {
87 fprintf(stderr,"Error: padding value not recognized.\n");
88 return 1;
89 }
90 if(!(ick_datadir=getenv("ICKDATADIR")))
91 ick_datadir=ICKDATADIR;
92 in=malloc(allocsize);
93 if(!in) {perror("Error: Memory allocation failure"); return 0;}
94 while((c=getchar())!=EOF)
95 {
96 in[i++]=(char)c;
97 if(i+1>=allocsize)
98 {
99 char* temp=in;
100 allocsize*=2;
101 in=realloc(in,allocsize);
102 if(!in)
103 {
104 perror("Error: Memory allocation failure");
105 /* Annotation, because in hasn't been freed here; that's what the
106 error return from realloc means. */
107 /*@-usereleased@*/
108 if(temp) free(temp);
109 /*@=usereleased@*/
110 return 0;
111 }
112 }
113 }
114 in[i]='\0';
115 out=malloc(allocsize*6+6);
116 if(!out)
117 {
118 perror("Error: Memory allocation failure");
119 free(in);
120 return 0;
121 }
122 ti=ick_clc_cset_convert(in,out,argv[1],argv[2],padding,allocsize*6+6,stderr);
123 if(ti>=0&&argc<5) (void) fwrite(out,1,(size_t)ti,stdout);
124 else if(ti>=0&&argc==5)
125 {
126 int pleasedelay=2;
127 printf("\tDO %s <- #%d\n",argv[4],ti);
128 while(ti--)
129 {
130 printf("\t");
131 if(!--pleasedelay) {printf("PLEASE "); pleasedelay=4;}
132 printf("DO %s SUB #%d <- #%d\n",argv[4],ti+1,(int)(out[ti]));
133 }
134 }
135 free(in);
136 free(out);
137 return ti<0;
138 }