nsis-20b4-support-20031209
[openafs.git] / src / config / util_cr.c
1 /* crlf.c : Defines the entry point for the console application.*/
2
3 /* Copyright 2000, International Business Machines Corporation and others.
4         All Rights Reserved.
5  
6         This software has been released under the terms of the IBM Public
7         License.  For details, see the LICENSE file in the top-level source
8         directory or online at http://www.openafs.org/dl/license10.html
9
10 */
11
12 #undef _CRTDBG_MAP_ALLOC
13 #include "stdio.h"
14 #include "io.h"
15 #include <assert.h>
16 #include "string.h"
17 #include "process.h"
18 #include "windows.h"
19 #include "malloc.h"
20 #include "time.h"
21 #include "stdlib.h"
22 #include "windows.h"
23
24 #ifndef  intptr_t
25 #define intptr_t long
26 #endif
27
28 void
29 usuage()
30 {
31     printf("util_cr file ;remove cr (from crlf)\n\
32         OR util_cr } ProductVersion in_filename out_filename ; substitute for %%1-%%5 in file\n\
33            %%1=Major version, %%2=Minor version, %%3=Patch(first digit) %%4=(last two digits) %%5=Version display string \n\
34            ProductVersion=maj.min.pat.pat2 ;maj=numeric, min=numeric pat,pat2 are not more than 3 digits or 1-2 digits and one alpha \n\
35            e.g 1.0.4.1, 1.0.4 a 1.0.401, 1.0.4a  all represent the same version\n\
36         OR util_cr + file ;add cr\n \
37         OR util_cr * \"+[register key value] x=y\" ; add register key value\n\
38         OR util_cr * \"-[register key value]\" ; aremove register key value\n\
39         OR util_cr @ file.ini \"[SectionKey]variable=value\" ; update ini-ipr-pwf file\n\
40         OR util_cr @ file.ini \"[SectionKey]variable=value*DatE*\" ; update ini-ipr-pwf file, insert date\n\
41         OR util_cr ~  ;force error\n\
42         OR util_cr _del  [/q=quiet /s=recurese] [*. *. *.] ;delete \n\
43         OR util_cr _cpy [/q=quiet ] [*. *. *.] destinationFolder;\n\
44         OR util_cr _isOS [nt xp 98 9x w2] ;test for OS, return 1 if match else 0\n\
45         OR util_cr _dir !build type!source!object! set current directory in file->home base is used for offset\n\
46         OR unil_cr _ver return compiler version\n");
47     exit(0xc000);
48 }
49
50 struct TRANSLATION {
51     WORD langID;                // language ID
52     WORD charset;               // character set (code page)
53 };
54
55 int
56 CheckVersion(int argc, char *argv[])
57 {
58     OSVERSIONINFO VersionInfo;
59     int i;
60     memset(&VersionInfo, 0, sizeof(VersionInfo));
61     VersionInfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
62     if (!GetVersionEx(&VersionInfo)) {
63         return 0XC000;
64     }
65     for (i = 2; i < argc; i++) {
66         if (stricmp(argv[i], "nt") == 0) {
67             if ((VersionInfo.dwPlatformId == VER_PLATFORM_WIN32_NT)
68                 && (VersionInfo.dwMajorVersion == 4)
69                 && (VersionInfo.dwMinorVersion == 0))
70                 return 1;
71         }
72         if (stricmp(argv[i], "xp") == 0) {
73             if ((VersionInfo.dwPlatformId == VER_PLATFORM_WIN32_NT)
74                 && (VersionInfo.dwMajorVersion == 5)
75                 && (VersionInfo.dwMinorVersion == 1))
76                 return 1;
77         }
78         if (stricmp(argv[i], "w2") == 0) {
79             if ((VersionInfo.dwPlatformId == VER_PLATFORM_WIN32_NT)
80                 && (VersionInfo.dwMajorVersion == 5)
81                 && (VersionInfo.dwMinorVersion == 0))
82                 return 1;
83         }
84         if (stricmp(argv[i], "98") == 0) {
85             if ((VersionInfo.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS)
86                 && (VersionInfo.dwMinorVersion == 10))
87                 return 1;
88         }
89         if (stricmp(argv[i], "95") == 0) {
90             if ((VersionInfo.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS)
91                 && (VersionInfo.dwMinorVersion == 0))
92
93                 return 1;
94         }
95         if (stricmp(argv[i], "9x") == 0) {
96             if (VersionInfo.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS)
97                 return 1;
98         }
99         if (stricmp(argv[i], "_") == 0)
100             return 0;
101     }
102     return 0;
103 }
104
105 void
106 Addkey(const char *hkey, const char *subkey, const char *stag,
107        const char *sval)
108 {
109     DWORD disposition, result;
110     HKEY kPkey, kHkey = 0;
111     if (strcmp(hkey, "HKEY_CLASSES_ROOT") == 0)
112         kHkey = HKEY_CLASSES_ROOT;
113     if (strcmp(hkey, "HKEY_CURRENT_USER") == 0)
114         kHkey = HKEY_CURRENT_USER;
115     if (strcmp(hkey, "HKEY_LOCAL_MACHINE") == 0)
116         kHkey = HKEY_LOCAL_MACHINE;
117     if (kHkey == 0)
118         usuage();
119     result = (RegCreateKeyEx(kHkey      /*HKEY_LOCAL_MACHINE */
120                              , subkey, 0, NULL, REG_OPTION_NON_VOLATILE,
121                              KEY_ALL_ACCESS, NULL, &kPkey,
122                              &disposition) == ERROR_SUCCESS);
123     if (!result) {
124         printf("AFS Error - Could Not create a registration key\n");
125         exit(0xc000);
126     }
127     if (stag == NULL)
128         return;
129     if ((sval) && (strlen(sval))) {
130         if (*stag == '@')
131             result =
132                 RegSetValueEx(kPkey, "", 0, REG_SZ, (CONST BYTE *) sval,
133                               strlen(sval));
134         else
135             result =
136                 RegSetValueEx(kPkey, stag, 0, REG_SZ, (CONST BYTE *) sval,
137                               strlen(sval));
138     } else {
139
140         if (*stag == '@')
141             result =
142                 (RegSetValueEx(kPkey, "", 0, REG_SZ, (CONST BYTE *) "", 0));
143         else
144             result =
145                 (RegSetValueEx(kPkey, stag, 0, REG_SZ, (CONST BYTE *) "", 0));
146     }
147     if (result != ERROR_SUCCESS) {
148         printf("AFS Error - Could Not create a registration key\n");
149         exit(0xc000);
150     }
151 }
152
153 void
154 Subkey(const char *hkey, const char *subkey)
155 {
156     DWORD result;
157     HKEY kHkey = 0;
158     if (strcmp(hkey, "HKEY_CLASSES_ROOT") == 0)
159         kHkey = HKEY_CLASSES_ROOT;
160     if (strcmp(hkey, "HKEY_CURRENT_USER") == 0)
161         kHkey = HKEY_CURRENT_USER;
162     if (strcmp(hkey, "HKEY_LOCAL_MACHINE") == 0)
163         kHkey = HKEY_LOCAL_MACHINE;
164     if (kHkey == 0)
165         usuage();
166     result = RegDeleteKey(kHkey, subkey);
167     if (result != ERROR_SUCCESS) {
168         printf("AFS Error - Could Not create a registration key\n");
169         exit(0xc000);
170     }
171 }
172
173 void
174 doremove(BOOL bRecurse, BOOL bQuiet, char *argv)
175 {
176     char *pParm;
177     char parm[MAX_PATH + 1];
178     char basdir[MAX_PATH + 1];
179     strcpy(parm, argv);
180     pParm = parm;
181     GetCurrentDirectory(sizeof(basdir), basdir);
182     if (strrchr(parm, '\\') != NULL) {  /*jump to base directory */
183         pParm = strrchr(parm, '\\');
184         *pParm = 0;
185         if (!SetCurrentDirectory(parm))
186             return;
187         pParm++;
188     }
189     if (!bRecurse) {
190         struct _finddata_t fileinfo;
191         intptr_t hfile;
192         BOOL bmore;
193         char basdir[MAX_PATH + 1];
194         GetCurrentDirectory(sizeof(basdir), basdir);
195         hfile = _findfirst(pParm, &fileinfo);
196         bmore = (hfile != -1);
197         while (bmore) {
198             if ((DeleteFile(fileinfo.name) == 1) && (!bQuiet))
199                 printf("Remove %s\\%s\n", basdir, fileinfo.name);
200             bmore = (_findnext(hfile, &fileinfo) == 0);
201         }
202         _findclose(hfile);
203     } else {
204         /*RECURSIVE LOOP - SCAN directories */
205         struct _finddata_t fileinfo;
206         intptr_t hfile;
207         BOOL bmore;
208         doremove(FALSE, bQuiet, pParm);
209         hfile = _findfirst("*.*", &fileinfo);
210         bmore = (hfile != -1);
211         while (bmore) {
212             if (fileinfo.attrib & _A_SUBDIR) {
213                 if ((strcmp(fileinfo.name, ".") != 0)
214                     && (strcmp(fileinfo.name, "..") != 0)) {
215                     if (SetCurrentDirectory(fileinfo.name))
216                         doremove(TRUE, bQuiet, pParm);
217                     SetCurrentDirectory(basdir);
218                 }
219             }
220             bmore = (_findnext(hfile, &fileinfo) == 0);
221         }
222         _findclose(hfile);
223     }
224     SetCurrentDirectory(basdir);
225 }
226
227 void
228 gencurdir(char *val)
229 {
230     char bld[MAX_PATH + 1], parm[MAX_PATH + 1], src[MAX_PATH + 1],
231         obj[MAX_PATH + 1], dir[MAX_PATH + 1], curdir[MAX_PATH + 1];
232     char *p, *po;
233     FILE *f;
234     BOOL isObjAbs, isSrcAbs;    /* two flags to determine if either string is not relative */
235     strcpy(bld, val + 1);       /*it better be checked or free */
236     strcpy(src, strchr(bld, '!') + 1);
237     strcpy(obj, strchr(src, '!') + 1);
238     *strchr(bld, '!') = 0;
239     *strchr(obj, '!') = 0;
240     *strchr(src, '!') = 0;
241     isObjAbs = ((*obj == '\\') || (strstr(obj, ":")));
242     isSrcAbs = ((*src == '\\') || (strstr(src, ":")));
243     GetCurrentDirectory(MAX_PATH, dir);
244     strlwr(bld);
245     strlwr(dir);
246     strlwr(src);
247     strlwr(obj);
248     strcpy(curdir, dir);
249     strcat(curdir, "\\ \n");
250     if (GetTempPath(MAX_PATH, parm) == 0)
251         exit(0xc000);
252     strcat(parm, "home");
253     if ((f = fopen(parm, "w")) == NULL)
254         exit(0xc000);
255     __try {
256         __try {
257             if (obj[strlen(obj) - 1] != '\\')
258                 strcat(obj, "\\");
259             if (src[strlen(src) - 1] != '\\')
260                 strcat(src, "\\");
261             do {                /* try to match src or obj */
262                 if ((p = strstr(dir, src)) && isSrcAbs) {
263                     po = p;
264                     p += strlen(src);
265                 } else if ((p = strstr(dir, src)) && !isSrcAbs
266                            && *(p - 1) == '\\') {
267                     po = p;
268                     p += strlen(src);
269                 } else if ((p = strstr(dir, obj)) && isObjAbs) {
270                     po = p;
271                     p += strlen(obj);
272                 } else if ((p = strstr(dir, obj)) && !isObjAbs
273                            && *(p - 1) == '\\') {
274                     po = p;
275                     p += strlen(obj);
276                 }
277             } while (strstr(p, src) || strstr(p, obj));
278             if (isObjAbs) {
279                 sprintf(parm, "OJT=%s%s\\%s \n", obj, bld, p);
280             } else {
281                 *po = 0;
282                 sprintf(parm, "OJT=%s%s%s\\%s \n", dir, obj, bld, p);
283             }
284             if (strcmp(curdir, parm + 4) == 0)  /* current directory is object */
285                 strcpy(parm, "OJT= \n");
286             fwrite(parm, strlen(parm), 1, f);
287             if (isSrcAbs) {
288                 sprintf(parm, "SRT=%s%s\\ \n", src, p);
289             } else {
290                 *(p - strlen(src)) = 0;
291                 sprintf(parm, "SRT=%s%s%s\\ \n", dir, src, p);
292             }
293             if (strcmp(curdir, parm + 4) == 0)  /* current directory is object */
294                 strcpy(parm, "SRT= \n");
295             fwrite(parm, strlen(parm), 1, f);
296             /* now lets set the AFS_LASTCMP environment variable */
297             sprintf(parm, "AFS_LASTCMP=%s\\%s", src, p);
298         }
299         __except(EXCEPTION_EXECUTE_HANDLER) {
300             exit(0xc000);
301         }
302     }
303     __finally {
304         fclose(f);
305     }
306 }
307
308 int
309 isequal(char *msg1, char *msg2, char *disp)
310 {
311     strlwr(msg1);
312     strlwr(msg2);
313     if (strcmp(msg1, msg2) != 0)
314         return 0;
315     printf("ERROR -- %s \n", disp);
316     exit(0xc000);
317 }
318
319 int
320 SetSysEnv(int argc, char *argv[])
321 {
322     DWORD dwResult;
323     printf("assignment %s %s\n", argv[2], argv[3]);
324     Addkey("HKEY_LOCAL_MACHINE",
325            "System\\CurrentControlSet\\Control\\Session Manager\\Environment",
326            argv[2]
327            , argv[3]
328         );
329     SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0,
330                        (DWORD) "Environment", SMTO_NORMAL, 1, &dwResult);
331     return 0;
332 }
333
334 int
335 main(int argc, char *argv[])
336 {
337 /*      typedef char * CHARP;*/
338     char fname[128];
339     FILE *file;
340     int l, i;
341     char **pvar, *ch, *save;
342     long len;
343     BOOL bRecurse = FALSE;
344     BOOL bQuiet = FALSE;
345     if (argc < 2)
346         usuage();
347
348    /* RSM4: Add an "ECHO" that doesn't append a new line... */
349    if (strcmp(argv[1], "_echo") == 0) {
350       if(argc<3)
351          usuage();
352       printf("%s",argv[2]);
353       return 0;
354    }
355
356     if (strcmp(argv[1], "_sysvar") == 0) {
357         if (argc < 4)
358             usuage();
359         return (SetSysEnv(argc, argv));
360
361     }
362     if (strnicmp(argv[1], "_dir", 4) == 0) {    /*get current directory routine */
363         gencurdir(argv[1]);
364         return 0;
365     }
366     if (strnicmp(argv[1], "_isequal", 4) == 0) {        /*get current directory routine */
367         return isequal(argv[2], argv[3], argv[4]);
368     }
369     if (stricmp(argv[1], "_del") == 0) {        /*DELETE routine */
370         int iargc = 2;
371         if ((argc > iargc) && (stricmp(argv[iargc], "/s") == 0)) {
372             iargc++;
373             bRecurse = TRUE;
374         }
375         if ((argc > iargc) && (stricmp(argv[iargc], "/q") == 0)) {
376             iargc++;
377             bQuiet = TRUE;
378         }
379         if ((argc > iargc) && (stricmp(argv[iargc], "/s") == 0)) {
380             iargc++;
381             bRecurse = TRUE;
382         }
383         while (iargc < argc) {
384             doremove(bRecurse, bQuiet, argv[iargc]);
385             iargc++;
386         }
387         return 0;
388     }
389     if (strcmp(argv[1], "_ver") == 0) {
390         return _MSC_VER;
391     }
392     if (argc < 3)
393         usuage();
394     if (strcmp(argv[1], "_isOS") == 0)
395         return CheckVersion(argc, argv);
396     if (strcmp(argv[1], "}") == 0) {
397         char v1[4], v2[4], v3[4], v4[4];
398         char v5[132];
399         char *ptr = NULL;
400         char *buf;
401         int maj;
402         int min;
403         int pat, pat2;
404         strcpy(v5, argv[2]);
405         if (argc < 5)
406             usuage();
407         if ((ptr = strtok(argv[2], ". \n")) == NULL)
408             return 0;
409         maj = atoi(ptr);
410         if ((ptr = strtok(NULL, ". \n")) == NULL)
411             return 0;
412         min = atoi(ptr);
413         if ((ptr = strtok(NULL, ". \n")) == NULL)
414             return 0;
415         pat2 = -1;
416         switch (strlen(ptr)) {
417         case 0:
418             usuage();
419         case 1:
420             pat = atoi(ptr);
421             if (isdigit(*ptr) != 0)
422                 break;
423             usuage();
424         case 2:         //ONLY 1.0.44 is interpreted as 1.0.4.4 or 1.0.4a as 1.0.4.a
425             if (isdigit(*ptr) == 0)
426                 usuage();
427             pat = *ptr - '0';
428             ptr++;
429             if (isalpha(*ptr) == 0) {
430                 pat2 = atoi(ptr);
431             } else if (isalpha(*ptr) != 0) {
432                 pat2 = tolower(*ptr) - 'a' + 1;
433             } else
434                 usuage();
435             break;
436         case 3:         //1.0.401 or 1.0.40a are the same; 
437             if ((isdigit(*ptr) == 0)    // first 2 must be digit
438                 || (isdigit(*(ptr + 1)) == 0)
439                 || (*(ptr + 1) != '0' && isdigit(*(ptr + 2)) == 0)      // disallow 1.0.4b0  or 1.0.41a 
440                 )
441                 usuage();
442             pat = *ptr - '0';
443             ptr++;
444             pat2 = atoi(ptr);
445             ptr++;
446             if (isalpha(*ptr))
447                 pat2 = tolower(*ptr) - 'a' + 1;
448             break;
449         default:
450             usuage();
451         }
452         // last can be 1-2 digits or one alpha (if pat2 hasn't been set)
453         if ((ptr = strtok(NULL, ". \n")) != NULL) {
454             if (pat2 >= 0)
455                 usuage();
456             switch (strlen(ptr)) {
457             case 1:
458                 pat2 = (isdigit(*ptr)) ? atoi(ptr) : tolower(*ptr) - 'a' + 1;
459                 break;
460             case 2:
461                 if (isdigit(*ptr) == 0 || isdigit(*(ptr + 1)) == 0)
462                     usuage();
463                 pat2 = atoi(ptr);
464                 break;
465             default:
466                 usuage();
467             }
468         }
469         file = fopen(argv[3], "r");
470         if (file == NULL)
471             usuage();
472         len = filelength(_fileno(file));
473         save = (char *)malloc(len + 1);
474         buf = save;
475         len = fread(buf, sizeof(char), len, file);
476         buf[len] = 0;           //set eof
477         fclose(file);
478         file = fopen(argv[4], "w");
479         if (file == NULL)
480             usuage();
481         sprintf(v1, "%i", maj);
482         sprintf(v2, "%i", min);
483         sprintf(v3, "%i", pat);
484         sprintf(v4, "%02i", pat2);
485         while (1) {
486             ptr = strstr(buf, "%");
487             fwrite(buf, 1, (ptr) ? ptr - buf : strlen(buf), file);      //write file if no % found or up to %
488             if (ptr == NULL)
489                 break;
490             switch (*(ptr + 1)) //skip first scan if buf="1...."
491             {
492             case '1':
493                 fwrite(v1, 1, strlen(v1), file);
494                 ptr++;
495                 break;
496             case '2':
497                 fwrite(v2, 1, strlen(v2), file);
498                 ptr++;
499                 break;
500             case '3':
501                 fwrite(v3, 1, strlen(v3), file);
502                 ptr++;
503                 break;
504             case '4':
505                 fwrite(v4, 1, strlen(v4), file);
506                 ptr++;
507                 break;
508             case '5':
509                 fwrite(v5, 1, strlen(v5), file);
510                 ptr++;
511                 break;
512             default:
513                 fwrite("%", 1, 1, file);        //either % at end of file or no %1...
514                 break;
515             }
516             buf = ptr + 1;
517         }
518         fclose(file);
519         free(save);
520         return 0;
521     }
522     if (strcmp(argv[1], "~") == 0) {    //check for file presence
523         if (fopen(argv[2], "r"))
524             return (0);
525         if (argc < 4)
526             printf("ERROR --- File not present %s\n", argv[2]);
527         else
528             printf("Error---%s\n", argv[3]);
529         exit(0xc000);
530     }
531     if (strcmp(argv[1], "*") == 0) {    /* "[HKEY_CLASSES_ROOT\CLSID\{DC515C27-6CAC-11D1-BAE7-00C04FD140D2}]  @=AFS Client Shell Extension" */
532         if (argc < 3)
533             usuage();
534         for (i = 2; argc >= 3; i++) {
535             char *ssub = strtok(argv[i], "[");
536             BOOL option;
537             char *skey = strtok(NULL, "]");
538             char *sval, *stag;
539             if ((ssub == NULL) || (skey == NULL)) {
540                 printf("format error parameter %s\n", argv[i]);
541                 exit(0xc000);
542             }
543             option = (*ssub == '-');
544             stag = strtok(NULL, "\0");
545             if (stag)
546                 while (*stag == ' ')
547                     stag++;
548             ssub = strtok(skey, "\\");
549             ssub = strtok(NULL, "\0");
550             sval = strtok(stag, "=");
551             sval = strtok(NULL, "\0");
552             switch (option) {
553             case 0:
554                 Addkey(skey, ssub, stag, sval);
555                 break;
556             default:
557                 if (stag)
558                     Addkey(skey, ssub, stag, "");
559                 else
560                     Subkey(skey, ssub);
561                 break;
562             }
563
564             argc -= 1;
565         }
566         return 0;
567     }
568     if (strcmp(argv[1], "@") == 0) {
569         char msg[256], msgt[256];
570         char *ptr;
571         if (argc < 4)
572             usuage();
573         for (i = 3; argc >= 4; i++) {
574
575             char *ssect = strstr(argv[i], "[");
576             char *skey = strstr(ssect, "]");
577             char *sval;
578             if ((ssect == NULL) || (skey == NULL)) {
579                 printf("format error parameter %s\n", argv[i]);
580                 exit(0xc000);
581             }
582             ssect++;
583             *skey = 0;
584             if ((strlen(skey + 1) == 0) || (strlen(ssect) == 0)) {
585                 printf("format error parameter %s\n", argv[i]);
586                 exit(0xc000);
587             }
588             while (*++skey == ' ');
589             sval = strstr(skey, "=");
590             if (sval == NULL) {
591                 printf("format error parameter %s\n", argv[i]);
592                 exit(0xc000);
593             }
594             ptr = sval;
595             while (*--ptr == ' ');
596             *(ptr + 1) = 0;
597             while (*++sval == ' ');
598             if (ptr = strstr(sval, "*DatE*")) { // ok so lets substitute date in this string;
599                 char tmpbuf[32];
600                 *(ptr) = 0;
601                 strcpy(msg, sval);
602                 _tzset();
603                 _strdate(tmpbuf);
604                 strcat(msg, tmpbuf);
605                 strcat(msg, ptr + 6);
606                 sval = msg;
607             }
608             if (ptr = strstr(sval, "*TimE*")) {
609                 char tmpbuf[32];
610                 *(ptr) = 0;
611                 strcpy(msgt, sval);
612                 _strtime(tmpbuf);
613                 strncat(msgt, tmpbuf, 5);
614                 strcat(msgt, ptr + 6);
615                 sval = msgt;
616             }
617             if (WritePrivateProfileString(ssect, skey, sval, argv[2]) == 0) {
618                 LPVOID lpMsgBuf;
619                 FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER |
620                               FORMAT_MESSAGE_FROM_SYSTEM |
621                               FORMAT_MESSAGE_IGNORE_INSERTS, NULL,
622                               GetLastError(), MAKELANGID(LANG_NEUTRAL,
623                                                          SUBLANG_DEFAULT),
624                               (LPTSTR) & lpMsgBuf, 0, NULL);
625                 printf("Error writing profile string - %s", lpMsgBuf);
626                 LocalFree(lpMsgBuf);
627                 exit(0xc000);
628             }
629             argc -= 1;
630         }
631         return 0;
632     }
633     strcpy(fname, argv[2]);
634     if (strcmp(argv[1], "+") == 0) {
635         file = fopen(fname, "rb");
636         if (file == NULL)
637             exit(0xc000);
638         len = filelength(_fileno(file));
639         save = (char *)malloc(len + 2);
640         ch = save;
641         *ch++ = 0;              /* a small hack to allow matching /r/n if /n is first character */
642         len = fread(ch, sizeof(char), len, file);
643         file = freopen(fname, "wb", file);
644         while (len-- > 0) {
645             if ((*ch == '\n') && (*(ch - 1) != '\r')) { /*line feed alone */
646                 fputc('\r', file);
647             }
648             fputc(*ch, file);
649             ch++;
650         }
651         fclose(file);
652         free(save);
653         return 0;
654     }
655     if (strcmp(argv[1], "-") == 0) {
656         strcpy(fname, argv[2]);
657         file = fopen(fname, "rb");
658         if (file == NULL)
659             exit(0xc000);
660         len = filelength(_fileno(file));
661         save = (char *)malloc(len + 1);
662         ch = save;
663         len = fread(ch, sizeof(char), len, file);
664         file = freopen(fname, "wb", file);
665         while (len-- > 0) {
666             if (*ch != '\r')
667                 fputc(*ch, file);
668             ch++;
669         }
670         fclose(file);
671         free(save);
672         return 0;
673     }
674     if (strstr(fname, ".et") == NULL)
675         strcat(fname, ".et");
676     file = fopen(fname, "rb");
677     if (file == NULL)
678         exit(0xc000);
679     len = filelength(_fileno(file));
680     save = (char *)malloc(len + 1);
681     ch = save;
682     len = fread(ch, sizeof(char), len, file);
683     file = freopen(fname, "wb", file);
684     while (len-- > 0) {
685         if (*ch != '\r')
686             fputc(*ch, file);
687         ch++;
688     }
689     fclose(file);
690     pvar = (char **)malloc(argc * sizeof(char *));
691     for (i = 1; i < argc - 1; i++)
692         pvar[i] = argv[i + 1];
693     pvar[argc - 1] = NULL;
694     pvar[0] = argv[1];
695     (void)_spawnvp(_P_WAIT, argv[1], pvar);
696     if (save)
697         free(save);
698     if (pvar)
699         free(pvar);
700     return 0;
701 }