?? driver.c
return FALSE;
}
if (cpos == 's') {
filenamescreen = argv[1];
argc--; argv++;
break;
} else if (cpos == '0')
operation ^= DASHo0;
operation ^= DASHo;
filenameout = argv[1];
extralines = argv;
do {
argc--; argv++;
extracount++;
} while (argc > 1 && argv[1][0] != '-' && argv[1][0] != '/');
break;
/* Switches which affect what information is used in a chart: */
case 'R':
if (cpos == 'T') {
c = (char *)ignore2;
cpos = argv[0][++pos];
} else
c = (char *)ignore;
if (cpos == '0')
for (i = 0; i <= total; i++)
c[i] = TRUE;
else if (cpos == '1') {
for (i = 0; i <= total; i++)
c[i] = FALSE;
operation |= DASHC | DASHu;
universe = TRUE;
} else if (cpos == 'C')
for (i = C_LO; i <= C_HI; i++)
c[i] = !c[i];
else if (cpos == 'u')
for (i = U_LO; i <= U_HI; i++)
c[i] = !c[i];
else if (cpos == 'U')
for (i = S_LO; i <= S_HI; i++)
c[i] = !c[i];
else if (argc <= 1 || (!atoi(argv[1]))) {
for (i = 11; i <= 15; i++)
c[i] = !c[i];
c[_FOR] = !c[_FOR]; c[_VTX] = !c[_VTX];
}
while (argc > 1 && (i = atoi(argv[1])))
if (!IsItem(i)) {
BadVal("R", i);
return FALSE;
} else {
c[i] = !c[i];
argc--; argv++;
}
break;
case 'C':
operation ^= DASHC;
break;
case 'u':
operation ^= DASHu;
break;
case 'U':
if (cpos == 'n' || cpos == 'b' || cpos == 'z' || cpos == 'l')
universe = cpos;
else
universe = !universe;
break;
case 'A':
if (argc <= 1 || atoi(argv[1]) == 0) {
andisplay ^= DASHA;
break;
}
if (cpos != 'o' && cpos != 'm' && cpos != 'd') {
aspects = atoi(argv[1]);
if (!IsValidAspect(aspects)) {
BadVal("A", aspects);
return FALSE;
}
argc--; argv++;
} else {
if (argc <= 2) {
TooFew("A");
return FALSE;
}
i = atoi(argv[1]);
if (i < 1 || i > (cpos == 'o' ? ASPECTS : BASE)) {
BadVal("A", i);
return FALSE;
}
k = atof(argv[2]);
if (k < -DEGREES || k > DEGREES) {
BadVal2("A", k);
return FALSE;
}
if (cpos == 'm')
planetorb[i] = k;
else if (cpos == 'd')
planetadd[i] = k;
else
aspectorb[i] = k;
argc -= 2; argv += 2;
}
break;
/* Switches which affect how a chart is computed: */
case 'b':
if (cpos == '0')
seconds = !seconds;
placalc = !placalc;
break;
case 'c':
if (argc <= 1) {
TooFew("c");
return FALSE;
}
housesystem = atoi(argv[1]);
if (!IsValidSystem(housesystem)) {
BadVal("c", housesystem);
return FALSE;
}
argc--; argv++;
break;
case 's':
if (cpos != '0')
operation ^= DASHs;
else
operation ^= DASHs0;
break;
case 'h':
if (argc > 1 && (centerplanet = atoi(argv[1]))) {
argc--; argv++;
} else
centerplanet = 1;
if (centerplanet < 0 || centerplanet == _MOO ||
!IsObject(centerplanet) || centerplanet > U_HI) {
BadVal("h", centerplanet);
return FALSE;
}
c = objectname[0];
objectname[0] = objectname[centerplanet];
objectname[centerplanet] = c;
centerplanet = 1-centerplanet;
break;
case 'p':
if (cpos == '0') {
operation |= DASHp0;
}
progress = TRUE;
#ifdef TIME
if (cpos == 'n') {
GetTimeNow(&Mon, &Day, &Yea, &Tim, defzone);
Jdp = (real)MdyToJulian(Mon, Day, Yea) + Tim / 24.0;
break;
}
#endif
if (cpos == 'd') {
if (argc <= 1) {
TooFew("pd");
return FALSE;
}
progday = atof(argv[1]);
if (progday == 0.0) {
BadVal2("pd", progday);
return FALSE;
}
argc--; argv++;
break;
}
if (argc <= 3) {
TooFew("p");
return FALSE;
}
Mon = atoi(argv[1]);
Day = atoi(argv[2]);
Yea = atoi(argv[3]);
if (!IsValidMon(Mon)) {
BadVal2("p", Mon);
return FALSE;
} else if (!IsValidDay(Day, Mon, Yea)) {
BadVal2("p", Day);
return FALSE;
} else if (!IsValidYea(Yea)) {
BadVal2("p", Yea);
return FALSE;
}
Jdp = (real)MdyToJulian(Mon, Day, Yea) + defzone / 24.0;
argc -= 3; argv += 3;
break;
case 'x':
if (argc <= 1) {
TooFew("x");
return FALSE;
}
multiplyfactor = atoi(argv[1]);
if (multiplyfactor < 1 || multiplyfactor > DEGREES) {
BadVal("x", multiplyfactor);
return FALSE;
}
argc--; argv++;
break;
case '1':
if (argc > 1 && (onasc = atoi(argv[1]))) {
argc--; argv++;
} else
onasc = 1;
if (onasc < 1 || onasc > total) {
BadVal("1", onasc);
return FALSE;
}
break;
case '2':
if (argc > 1 && (onasc = atoi(argv[1]))) {
argc--; argv++;
} else
onasc = 1;
if (onasc < 1 || onasc > total) {
BadVal("2", onasc);
return FALSE;
}
onasc = -onasc;
break;
case '3':
operation ^= DASH3;
break;
case 'f':
operation ^= DASHf;
break;
case 'G':
operation ^= DASHG;
break;
case 'F':
if (argc <= 3) {
TooFew("F");
return FALSE;
}
i = atoi(argv[1]);
if (!IsItem(i)) {
BadVal("F", i);
return FALSE;
}
force[i] = (atof(argv[2])-1.0)*30.0+DecToDeg(atof(argv[3]));
if (force[i] < 0.0 || force[i] >= DEGREES) {
BadVal2("F", force[i]);
return FALSE;
} else
force[i] += DEGREES;
argc -= 3; argv += 3;
break;
case '+':
if (argc > 1 && (i = atoi(argv[1])) != 0) {
argc--; argv++;
} else
i = 1;
Delta += i * (cpos == 'y' ? 365 : (cpos == 'm' ? 30 : 1));
break;
case '-': case '\0':
if (argc > 1 && (i = atoi(argv[1])) != 0) {
argc--; argv++;
} else
i = 1;
Delta -= i * (cpos == 'y' ? 365 : (cpos == 'm' ? 30 : 1));
break;
/* Switches for relationship and comparison charts: */
case 'r':
if (argc <= 2) {
TooFew("r");
return FALSE;
}
if (cpos == 'c')
relation = DASHrc;
else if (cpos == 'm')
relation = DASHrm;
else if (cpos == 'd')
relation = DASHrd;
#ifdef BIORHYTHM
else if (cpos == 'b')
relation = DASHrb;
#endif
else if (cpos == '0')
relation = DASHr0;
else if (cpos == 'p')
relation = DASHrp;
else
relation = DASHr;
filename = argv[1]; filename2 = argv[2];
argc -= 2; argv += 2;
break;
#ifdef TIME
case 'y':
if (argc <= 1) {
TooFew("y");
return FALSE;
}
if (cpos == 'd')
relation = DASHrd;
#ifdef BIORHYTHM
else if (cpos == 'b')
relation = DASHrb;
#endif
else if (cpos == 'p')
relation = DASHrp;
else
relation = DASHr0;
filename = argv[1]; filename2 = "now";
argc--; argv++;
break;
#endif
/* Switches to access graphics options: */
case 'k':
ansi = !ansi;
break;
#ifdef MSG
case 'V':
if (argc <= 1) {
TooFew("V");
return FALSE;
}
textrows = atoi(argv[1]);
if (!IsValidTextrows(textrows)) {
BadVal("V", textrows);
return FALSE;
}
argc--; argv++;
break;
#endif
#ifdef GRAPH
case 'X':
i = XProcessSwitches(argc, argv, pos);
if (i < 0)
return FALSE;
operation |= DASHX;
argc -= i; argv += i;
break;
#endif
case '.': /* "-." is usually used to exit the -Q loop. */
Terminate(_FORCE);
case 'B': /* For no useful reason, -B will sound a beep. */
printc(BELL);
break;
default:
sprintf(string, "Unknown switch '%s'.", argv[0]);
PrintError(string);
return FALSE;
}
argc--; argv++;
}
return TRUE;
}
/* The main program, the starting point for Astrolog, follows. This routine */
/* basically consists of a loop, inside which we read a command line, and */
/* go process it, before actually calling a routine to do the neat stuff. */
#ifdef SWITCHES
void main(argc, argv)
int argc;
char **argv;
{
#else
void main()
{
int argc;
char **argv;
#endif
char commandline[256];
char *pointers[MAXSWITCHES];
InputDefaults(); /* Read in info from the astrolog.dat file. */
Begin:
#ifdef MSG
if (textrows > 0) {
_settextrows(textrows);
textrows = -textrows;
}
#endif
if (noswitches) { /* Go prompt for */
argc = InputSwitches(commandline, pointers); /* switches if we */
argv = pointers; /* don't have them. */
}
progname = ProcessProgname(argv[0]);
if (ProcessSwitches(argc, argv)) {
if (!noswitches && (operation & DASHQ0)) {
noswitches = TRUE;
goto Begin;
}
#ifdef MSG
if (textrows > 0) {
_settextrows(textrows);
textrows = -textrows;
}
#endif
Action();
}
if (operation & DASHQ) { /* If -Q in effect, loop back and get switch */
printl2(); /* information for another chart to display. */
InitVariables();
operation |= DASHQ;
noswitches = TRUE;
goto Begin;
}
Terminate(_OK); /* The only standard place to exit Astrolog is here. */
}
/* driver.c */
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -