archive/boot/boot.c

/*
 *  boot.c
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include <hourglass.h>
#include <os.h>
#include <osmodule.h>
#include <wimp.h>
#include <wimpreadsysinfo.h>

int main(int argc, char *argv[])
{
  FILE *file, *log;
  int error = 0, tasks, len;
  char command[200], s1[300], s2[200];
  os_error *err;
  wimp_t task = 0;

  if (argc < 3)
  {
    fprintf(stderr, "\007Syntax: boot <script> <log>\n");
    return 1;
  }

  file = fopen(argv[1], "r");
  if (!file)
  {
    fprintf(stderr, "boot: unable to open '%s' for input\n", argv[1]);
    return 1;
  }

  log = fopen(argv[2], "w");
  if (!file)
  {
    fprintf(stderr, "boot: unable to open '%s' for output\n", argv[2]);
    return 1;
  }

  xhourglass_on();

  if ((err = xwimpreadsysinfo_task_count(&tasks)) != NULL)
    fprintf(log, "Wimp_ReadSysInfo error %i: %s\n", err->errnum, err->errmess);

  if (tasks > 0)
    if ((err = xwimp_initialise(wimp_VERSION_RO2, "Boot", NULL, NULL, &task)) != NULL)
      fprintf(log, "Wimp_Initialise error %i: %s\n", err->errnum, err->errmess);

  fseek(file, SEEK_END, 0);
  len = ftell(file);
  rewind(file);

  while (fscanf(file, "%s", command) != EOF)
  {
    if (strcmp(command, "sysvar") == 0)
    {
      fscanf(file, "%s ", s1);
      fgets(s2, 300, file);
      s2[strlen(s2)-1] = 0;
      fprintf(log, "sysvar %s %s\n", s1, s2);
      if ((err = xos_set_var_val(s1, s2, (int) strlen(s2), 0,
                       os_VARTYPE_LITERAL_STRING, NULL, NULL)) != NULL)
      {
        fprintf(log, " error %i: %s\n", err->errnum, err->errmess);
        error = 1;
      }
    }
    else if (strcmp(command, "module") == 0)
    {
      fscanf(file, " ");
      fgets(s1, 300, file);
      s1[strlen(s1)-1] = 0;
//      fscanf(file, "%s", s1);
      fprintf(log, "module %s\n", s1);
      if ((err = xosmodule_load(s1)) != NULL)
      {
        fprintf(log, " error %i: %s\n", err->errnum, err->errmess);
        error = 1;
      }
    }
    else if (strcmp(command, "oscli") == 0)
    {
      fscanf(file, " ");
      fgets(s1, 300, file);
      s1[strlen(s1)-1] = 0;
      fprintf(log, "oscli %s\n", s1);
      system(s1);     /* good reason for this */
/*      if ((err = xos_cli(s1)) != NULL)
      {
        fprintf(log, " error %i: %s\n", err->errnum, err->errmess);
        error = 1;
      }*/
    }
    else if (strcmp(command, "start") == 0)
    {
      fscanf(file, " ");
      fgets(s1, 300, file);
      s1[strlen(s1)-1] = 0;
      fprintf(log, "start %s\n", s1);
      if ((err = xwimp_start_task(s1, NULL)) != NULL)
      {
        fprintf(log, " error 0x%x: %s\n", err->errnum, err->errmess);
        error = 1;
      }
    }
    else if (strcmp(command, "echo") == 0)
    {
      fscanf(file, " ");
      fgets(s1, 300, file);
      s1[strlen(s1)-1] = 0;
      fprintf(log, "echo %s\n", s1);
      printf("%s\n", s1);
    }
    else
    {
      fgets(s1, 300, file);
      fprintf(log, "unknown command %s\n", command);
      error = 1;
    }
    xhourglass_percentage(ftell(file) * 100 / len);
  }

  fclose(log);
  fclose(file);

  if (task > 0)
  {
    if (error)
    {
      sprintf(s1, "Filer_Run %s", argv[2]);
      xwimp_start_task(s1, NULL);
    }
    if ((err = xwimp_close_down(task)) != NULL)
      fprintf(log, "Wimp_CloseDown error 0x%x: %s\n", err->errnum, err->errmess);
  }
  else if (error)
  {
    fprintf(stderr, "\007Errors occurred, log file '%s'\007\n", argv[2]);
  }

  xhourglass_smash();

  return 0;
}
1	james	24	/*
2			* boot.c
3			*/
4
5			#include <stdio.h>
6			#include <stdlib.h>
7			#include <string.h>
8
9			#include <hourglass.h>
10			#include <os.h>
11			#include <osmodule.h>
12			#include <wimp.h>
13			#include <wimpreadsysinfo.h>
14
15			int main(int argc, char *argv[])
16			{
17			FILE file, log;
18			int error = 0, tasks, len;
19			char command[200], s1[300], s2[200];
20			os_error *err;
21			wimp_t task = 0;
22
23			if (argc < 3)
24			{
25			fprintf(stderr, "\007Syntax: boot <script> <log>\n");
26			return 1;
27			}
28
29			file = fopen(argv[1], "r");
30			if (!file)
31			{
32			fprintf(stderr, "boot: unable to open '%s' for input\n", argv[1]);
33			return 1;
34			}
35
36			log = fopen(argv[2], "w");
37			if (!file)
38			{
39			fprintf(stderr, "boot: unable to open '%s' for output\n", argv[2]);
40			return 1;
41			}
42
43			xhourglass_on();
44
45			if ((err = xwimpreadsysinfo_task_count(&tasks)) != NULL)
46			fprintf(log, "Wimp_ReadSysInfo error %i: %s\n", err->errnum, err->errmess);
47
48			if (tasks > 0)
49			if ((err = xwimp_initialise(wimp_VERSION_RO2, "Boot", NULL, NULL, &task)) != NULL)
50			fprintf(log, "Wimp_Initialise error %i: %s\n", err->errnum, err->errmess);
51
52			fseek(file, SEEK_END, 0);
53			len = ftell(file);
54			rewind(file);
55
56			while (fscanf(file, "%s", command) != EOF)
57			{
58			if (strcmp(command, "sysvar") == 0)
59			{
60			fscanf(file, "%s ", s1);
61			fgets(s2, 300, file);
62			s2[strlen(s2)-1] = 0;
63			fprintf(log, "sysvar %s %s\n", s1, s2);
64			if ((err = xos_set_var_val(s1, s2, (int) strlen(s2), 0,
65			os_VARTYPE_LITERAL_STRING, NULL, NULL)) != NULL)
66			{
67			fprintf(log, " error %i: %s\n", err->errnum, err->errmess);
68			error = 1;
69			}
70			}
71			else if (strcmp(command, "module") == 0)
72			{
73			fscanf(file, " ");
74			fgets(s1, 300, file);
75			s1[strlen(s1)-1] = 0;
76			// fscanf(file, "%s", s1);
77			fprintf(log, "module %s\n", s1);
78			if ((err = xosmodule_load(s1)) != NULL)
79			{
80			fprintf(log, " error %i: %s\n", err->errnum, err->errmess);
81			error = 1;
82			}
83			}
84			else if (strcmp(command, "oscli") == 0)
85			{
86			fscanf(file, " ");
87			fgets(s1, 300, file);
88			s1[strlen(s1)-1] = 0;
89			fprintf(log, "oscli %s\n", s1);
90			system(s1); /* good reason for this */
91			/* if ((err = xos_cli(s1)) != NULL)
92			{
93			fprintf(log, " error %i: %s\n", err->errnum, err->errmess);
94			error = 1;
95			}*/
96			}
97			else if (strcmp(command, "start") == 0)
98			{
99			fscanf(file, " ");
100			fgets(s1, 300, file);
101			s1[strlen(s1)-1] = 0;
102			fprintf(log, "start %s\n", s1);
103			if ((err = xwimp_start_task(s1, NULL)) != NULL)
104			{
105			fprintf(log, " error 0x%x: %s\n", err->errnum, err->errmess);
106			error = 1;
107			}
108			}
109			else if (strcmp(command, "echo") == 0)
110			{
111			fscanf(file, " ");
112			fgets(s1, 300, file);
113			s1[strlen(s1)-1] = 0;
114			fprintf(log, "echo %s\n", s1);
115			printf("%s\n", s1);
116			}
117			else
118			{
119			fgets(s1, 300, file);
120			fprintf(log, "unknown command %s\n", command);
121			error = 1;
122			}
123			xhourglass_percentage(ftell(file) * 100 / len);
124			}
125
126			fclose(log);
127			fclose(file);
128
129			if (task > 0)
130			{
131			if (error)
132			{
133			sprintf(s1, "Filer_Run %s", argv[2]);
134			xwimp_start_task(s1, NULL);
135			}
136			if ((err = xwimp_close_down(task)) != NULL)
137			fprintf(log, "Wimp_CloseDown error 0x%x: %s\n", err->errnum, err->errmess);
138			}
139			else if (error)
140			{
141			fprintf(stderr, "\007Errors occurred, log file '%s'\007\n", argv[2]);
142			}
143
144			xhourglass_smash();
145
146			return 0;
147			}