initial import

(automatically generated log message)

1 files changed, 75 insertions, 0 deletions

diff --git a/statgen/upper.c b/statgen/upper.c
new file mode 100644
index 0000000..be1a01c
--- /dev/null
+++ b/statgen/upper.c
@@ -0,0 +1,75 @@
+#include <stdio.h>
+#include <unistd.h>
+#include <ctype.h>
+#include <locale.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+
+
+main(int argc, char *argv[]) {
+    FILE *f;
+    struct stat st;
+    unsigned char *text;
+    char locale[32];
+    int i;
+
+
+    if (argc!=3) {
+	printf("Usage: %s <file name> <encoding>\n",argv[0]);
+	exit(0);
+    }
+
+    if (strlen(argv[2])>12) {
+	printf("Invalid encoding(%s) specified!\n",argv[2]);
+	exit(1);
+    }
+    
+    if ((!strcasecmp(argv[2],"koi"))||(!strcasecmp(argv[2],"koi8"))||(!strcasecmp(argv[2],"koi-8"))||(!strcasecmp(argv[2],"koi8-r")))
+    	sprintf(locale,"ru_RU.%s","KOI8-R");
+    else if ((!strcasecmp(argv[2],"win"))||(!strcasecmp(argv[2],"cp1251"))||(!strcasecmp(argv[2],"cp-1251"))||(!strcasecmp(argv[2],"win1251"))||(!strcasecmp(argv[2],"win-1251")))
+	sprintf(locale,"ru_RU.%s","CP1251");
+    else
+	sprintf(locale,"ru_RU.%s",argv[2]);
+    if (!setlocale(LC_CTYPE,locale)) {
+	printf("Can't set locale %s!\n",argv[2]);
+	exit(1);
+    }
+    
+    if (stat(argv[1],&st)) {
+	printf("Specified file can't be stated!\n");
+	exit(1);
+    }
+    
+    if (!S_ISREG(st.st_mode)) {
+	printf("Specified file isn't regular file!\n");
+	exit(1);
+    }
+    
+    text=(unsigned char*)malloc(st.st_size);
+    if (!text) {
+	printf("Can't allocate %lu bytes of memory!\n",st.st_size);
+	exit(1);
+    }
+    
+    f=fopen(argv[1],"r");
+    if (!f) {
+	printf("Failed to open specified file. Check permissions!\n");
+	free(text);
+	exit(1);
+    }
+    if (fread(text,1,st.st_size,f)!=st.st_size) {
+	printf("Problem reading specified file!\n");
+	free(text);
+	fclose(f);
+	exit(1);
+    }
+    fclose(f);
+    
+    for (i=0;i<st.st_size;i++) 
+	text[i]=toupper(text[i]);
+    
+    f=fopen("UPPED.OUT","w");
+    fwrite(text,1,st.st_size,f);
+    fclose(f);
+    free(text);
+}