void sd_init()
{
sd_m33_attach(sd_notify, NULL, NULL);
sd_set_gpio_character(sd_gpio_int, sd_gpio_lock);
// sd_set_gpio_id(sd_gpio_int, sd_gpio_lock);
sd_open((struct sd_device*)dev_get_by_type(NULL, HLD_DEV_TYPE_SD));
}
open_all()
{
sd_open(leave);
ss_open();
co_open();
oc_open();
getparms(0);
}
open_all()
{
sd_open(leave);
ss_open();
database_open();
pmfile_open(AUTOLOCK);
pmfile_setkey(1);
log_open(AUTOLOCK);
}
/*
*open all files
*/
open_all()
{
database_open();
sd_open(leave);
ss_open();
co_open();
oc_open();
od_open();
getparms(0);
}
/*-------------------------------------------------------------------------*
* Open All Files
*-------------------------------------------------------------------------*/
open_all()
{
database_open();
sd_open(leave);
ss_open();
co_open();
getparms(0);
pmfile_open(READONLY);
prodfile_open(READONLY);
}
main()
{
putenv("_=diskette_diags");
chdir(getenv("HOME"));
ss_open();
sd_open(leave);
fix(diskette_diags);
sd_screen_off();
sd_clear_screen();
sd_text(diskette_diags);
sd_screen_on();
while (1)
{
memset(buf, 0, 2);
t = sd_input(&fld1,sd_prompt(&fld1,0),&rm,buf,0);
if(t == EXIT) leave();
if (t == UP_CURSOR) continue;
*buf = tolower(*buf);
if (*buf == 'n') continue;
if (*buf != 'y')
{
eh_post(ERR_CODE, buf[0]);
continue;
}
/*
* Format Diskette
*/
system("dosformat -fq a:");
eh_post(ERR_CONFIRM, "Format diskette");
memset(buf, 0, 2);
t = sd_input(&fld2,sd_prompt(&fld2,0),&rm,buf,0);
if(t == EXIT) leave();
if (t == UP_CURSOR) continue;
*buf = tolower(*buf);
if (*buf == 'n') leave();
if (*buf == 'y') continue;
eh_post(ERR_CODE, buf);
}
} /* end main */
/*
*open all files
*/
open_all()
{
database_open();
sd_open(leave);
ss_open();
co_open();
picker_open(AUTOLOCK);
picker_setkey(0);
picker_order_open(AUTOLOCK);
picker_order_setkey(0);
return 0;
}
void process_gcode_command() {
uint32_t backup_f;
// convert relative to absolute
if (next_target.option_all_relative) {
next_target.target.axis[X] += startpoint.axis[X];
next_target.target.axis[Y] += startpoint.axis[Y];
next_target.target.axis[Z] += startpoint.axis[Z];
}
// E relative movement.
// Matches Sprinter's behaviour as of March 2012.
if (next_target.option_e_relative)
next_target.target.e_relative = 1;
else
next_target.target.e_relative = 0;
if (next_target.option_all_relative && !next_target.option_e_relative)
next_target.target.axis[E] += startpoint.axis[E];
// implement axis limits
#ifdef X_MIN
if (next_target.target.axis[X] < (int32_t)(X_MIN * 1000.))
next_target.target.axis[X] = (int32_t)(X_MIN * 1000.);
#endif
#ifdef X_MAX
if (next_target.target.axis[X] > (int32_t)(X_MAX * 1000.))
next_target.target.axis[X] = (int32_t)(X_MAX * 1000.);
#endif
#ifdef Y_MIN
if (next_target.target.axis[Y] < (int32_t)(Y_MIN * 1000.))
next_target.target.axis[Y] = (int32_t)(Y_MIN * 1000.);
#endif
#ifdef Y_MAX
if (next_target.target.axis[Y] > (int32_t)(Y_MAX * 1000.))
next_target.target.axis[Y] = (int32_t)(Y_MAX * 1000.);
#endif
#ifdef Z_MIN
if (next_target.target.axis[Z] < (int32_t)(Z_MIN * 1000.))
next_target.target.axis[Z] = (int32_t)(Z_MIN * 1000.);
#endif
#ifdef Z_MAX
if (next_target.target.axis[Z] > (int32_t)(Z_MAX * 1000.))
next_target.target.axis[Z] = (int32_t)(Z_MAX * 1000.);
#endif
// The GCode documentation was taken from http://reprap.org/wiki/Gcode .
if (next_target.seen_T) {
//? --- T: Select Tool ---
//?
//? Example: T1
//?
//? Select extruder number 1 to build with. Extruder numbering starts at 0.
next_tool = next_target.T;
}
if (next_target.seen_G) {
uint8_t axisSelected = 0;
switch (next_target.G) {
case 0:
//? G0: Rapid Linear Motion
//?
//? Example: G0 X12
//?
//? In this case move rapidly to X = 12 mm. In fact, the RepRap firmware uses exactly the same code for rapid as it uses for controlled moves (see G1 below), as - for the RepRap machine - this is just as efficient as not doing so. (The distinction comes from some old machine tools that used to move faster if the axes were not driven in a straight line. For them G0 allowed any movement in space to get to the destination as fast as possible.)
//?
temp_wait();
backup_f = next_target.target.F;
next_target.target.F = MAXIMUM_FEEDRATE_X * 2L;
enqueue(&next_target.target);
next_target.target.F = backup_f;
break;
case 1:
//? --- G1: Linear Motion at Feed Rate ---
//?
//? Example: G1 X90.6 Y13.8 E22.4
//?
//? Go in a straight line from the current (X, Y) point to the point (90.6, 13.8), extruding material as the move happens from the current extruded length to a length of 22.4 mm.
//?
temp_wait();
enqueue(&next_target.target);
break;
// G2 - Arc Clockwise
// unimplemented
// G3 - Arc Counter-clockwise
// unimplemented
case 4:
//? --- G4: Dwell ---
//?
//? Example: G4 P200
//?
//? In this case sit still doing nothing for 200 milliseconds. During delays the state of the machine (for example the temperatures of its extruders) will still be preserved and controlled.
//?
queue_wait();
// delay
if (next_target.seen_P) {
for (;next_target.P > 0;next_target.P--) {
clock();
delay_ms(1);
}
}
break;
case 20:
//? --- G20: Set Units to Inches ---
//?
//? Example: G20
//?
//? Units from now on are in inches.
//?
next_target.option_inches = 1;
break;
case 21:
//? --- G21: Set Units to Millimeters ---
//?
//? Example: G21
//?
//? Units from now on are in millimeters. (This is the RepRap default.)
//?
next_target.option_inches = 0;
break;
case 28:
//? --- G28: Home ---
//?
//? Example: G28
//?
//? This causes the RepRap machine to search for its X, Y and Z
//? endstops. It does so at high speed, so as to get there fast. When
//? it arrives it backs off slowly until the endstop is released again.
//? Backing off slowly ensures more accurate positioning.
//?
//? If you add axis characters, then just the axes specified will be
//? seached. Thus
//?
//? G28 X Y72.3
//?
//? will zero the X and Y axes, but not Z. Coordinate values are
//? ignored.
//?
queue_wait();
if (next_target.seen_X) {
#if defined X_MIN_PIN
home_x_negative();
#elif defined X_MAX_PIN
home_x_positive();
#endif
axisSelected = 1;
}
if (next_target.seen_Y) {
#if defined Y_MIN_PIN
home_y_negative();
#elif defined Y_MAX_PIN
home_y_positive();
#endif
axisSelected = 1;
}
if (next_target.seen_Z) {
#if defined Z_MIN_PIN
home_z_negative();
#elif defined Z_MAX_PIN
home_z_positive();
#endif
axisSelected = 1;
}
// there's no point in moving E, as E has no endstops
if (!axisSelected) {
home();
}
break;
case 90:
//? --- G90: Set to Absolute Positioning ---
//?
//? Example: G90
//?
//? All coordinates from now on are absolute relative to the origin
//? of the machine. This is the RepRap default.
//?
//? If you ever want to switch back and forth between relative and
//? absolute movement keep in mind, X, Y and Z follow the machine's
//? coordinate system while E doesn't change it's position in the
//? coordinate system on relative movements.
//?
// No wait_queue() needed.
next_target.option_all_relative = 0;
break;
case 91:
//? --- G91: Set to Relative Positioning ---
//?
//? Example: G91
//?
//? All coordinates from now on are relative to the last position.
//?
// No wait_queue() needed.
next_target.option_all_relative = 1;
break;
case 92:
//? --- G92: Set Position ---
//?
//? Example: G92 X10 E90
//?
//? Allows programming of absolute zero point, by reseting the current position to the values specified. This would set the machine's X coordinate to 10, and the extrude coordinate to 90. No physical motion will occur.
//?
queue_wait();
if (next_target.seen_X) {
startpoint.axis[X] = next_target.target.axis[X];
axisSelected = 1;
}
if (next_target.seen_Y) {
startpoint.axis[Y] = next_target.target.axis[Y];
axisSelected = 1;
}
if (next_target.seen_Z) {
startpoint.axis[Z] = next_target.target.axis[Z];
axisSelected = 1;
}
if (next_target.seen_E) {
startpoint.axis[E] = next_target.target.axis[E];
axisSelected = 1;
}
if (axisSelected == 0) {
startpoint.axis[X] = next_target.target.axis[X] =
startpoint.axis[Y] = next_target.target.axis[Y] =
startpoint.axis[Z] = next_target.target.axis[Z] =
startpoint.axis[E] = next_target.target.axis[E] = 0;
}
dda_new_startpoint();
break;
case 161:
//? --- G161: Home negative ---
//?
//? Find the minimum limit of the specified axes by searching for the limit switch.
//?
#if defined X_MIN_PIN
if (next_target.seen_X)
home_x_negative();
#endif
#if defined Y_MIN_PIN
if (next_target.seen_Y)
home_y_negative();
#endif
#if defined Z_MIN_PIN
if (next_target.seen_Z)
home_z_negative();
#endif
break;
case 162:
//? --- G162: Home positive ---
//?
//? Find the maximum limit of the specified axes by searching for the limit switch.
//?
#if defined X_MAX_PIN
if (next_target.seen_X)
home_x_positive();
#endif
#if defined Y_MAX_PIN
if (next_target.seen_Y)
home_y_positive();
#endif
#if defined Z_MAX_PIN
if (next_target.seen_Z)
home_z_positive();
#endif
break;
// unknown gcode: spit an error
default:
sersendf_P(PSTR("E: Bad G-code %d\n"), next_target.G);
return;
}
}
else if (next_target.seen_M) {
uint8_t i;
switch (next_target.M) {
case 0:
//? --- M0: machine stop ---
//?
//? Example: M0
//?
//? http://linuxcnc.org/handbook/RS274NGC_3/RS274NGC_33a.html#1002379
//? Unimplemented, especially the restart after the stop. Fall trough to M2.
//?
case 2:
case 84: // For compatibility with slic3rs default end G-code.
//? --- M2: program end ---
//?
//? Example: M2
//?
//? http://linuxcnc.org/handbook/RS274NGC_3/RS274NGC_33a.html#1002379
//?
queue_wait();
for (i = 0; i < NUM_HEATERS; i++)
temp_set(i, 0);
power_off();
serial_writestr_P(PSTR("\nstop\n"));
break;
case 6:
//? --- M6: tool change ---
//?
//? Undocumented.
tool = next_tool;
break;
#ifdef SD
case 20:
//? --- M20: list SD card. ---
sd_list("/");
break;
case 21:
//? --- M21: initialise SD card. ---
//?
//? Has to be done before doing any other operation, including M20.
sd_mount();
break;
case 22:
//? --- M22: release SD card. ---
//?
//? Not mandatory. Just removing the card is fine, but results in
//? odd behaviour when trying to read from the card anyways. M22
//? makes also sure SD card printing is disabled, even with the card
//? inserted.
sd_unmount();
break;
case 23:
//? --- M23: select file. ---
//?
//? This opens a file for reading. This file is valid up to M22 or up
//? to the next M23.
sd_open(gcode_str_buf);
break;
case 24:
//? --- M24: start/resume SD print. ---
//?
//? This makes the SD card available as a G-code source. File is the
//? one selected with M23.
gcode_sources |= GCODE_SOURCE_SD;
break;
case 25:
//? --- M25: pause SD print. ---
//?
//? This removes the SD card from the bitfield of available G-code
//? sources. The file is kept open. The position inside the file
//? is kept as well, to allow resuming.
gcode_sources &= ! GCODE_SOURCE_SD;
break;
#endif /* SD */
case 82:
//? --- M82 - Set E codes absolute ---
//?
//? This is the default and overrides G90/G91.
//? M82/M83 is not documented in the RepRap wiki, behaviour
//? was taken from Sprinter as of March 2012.
//?
//? While E does relative movements, it doesn't change its
//? position in the coordinate system. See also comment on G90.
//?
// No wait_queue() needed.
next_target.option_e_relative = 0;
break;
case 83:
//? --- M83 - Set E codes relative ---
//?
//? Counterpart to M82.
//?
// No wait_queue() needed.
next_target.option_e_relative = 1;
break;
// M3/M101- extruder on
case 3:
case 101:
//? --- M101: extruder on ---
//?
//? Undocumented.
temp_wait();
#ifdef DC_EXTRUDER
heater_set(DC_EXTRUDER, DC_EXTRUDER_PWM);
#endif
break;
// M5/M103- extruder off
case 5:
case 103:
//? --- M103: extruder off ---
//?
//? Undocumented.
#ifdef DC_EXTRUDER
heater_set(DC_EXTRUDER, 0);
#endif
break;
case 104:
//? --- M104: Set Extruder Temperature (Fast) ---
//?
//? Example: M104 S190
//?
//? Set the temperature of the current extruder to 190<sup>o</sup>C
//? and return control to the host immediately (''i.e.'' before that
//? temperature has been reached by the extruder). For waiting, see M116.
//?
//? Teacup supports an optional P parameter as a zero-based temperature
//? sensor index to address (e.g. M104 P1 S100 will set the temperature
//? of the heater connected to the second temperature sensor rather
//? than the extruder temperature).
//?
if ( ! next_target.seen_S)
break;
if ( ! next_target.seen_P)
#ifdef HEATER_EXTRUDER
next_target.P = HEATER_EXTRUDER;
#else
next_target.P = 0;
#endif
temp_set(next_target.P, next_target.S);
break;
case 105:
//? --- M105: Get Temperature(s) ---
//?
//? Example: M105
//?
//? Request the temperature of the current extruder and the build base
//? in degrees Celsius. For example, the line sent to the host in
//? response to this command looks like
//?
//? <tt>ok T:201 B:117</tt>
//?
//? Teacup supports an optional P parameter as a zero-based temperature
//? sensor index to address.
//?
#ifdef ENFORCE_ORDER
queue_wait();
#endif
if ( ! next_target.seen_P)
next_target.P = TEMP_SENSOR_none;
temp_print(next_target.P);
break;
case 7:
case 106:
//? --- M106: Set Fan Speed / Set Device Power ---
//?
//? Example: M106 S120
//?
//? Control the cooling fan (if any).
//?
//? Teacup supports an optional P parameter as a zero-based heater
//? index to address. The heater index can differ from the temperature
//? sensor index, see config.h.
#ifdef ENFORCE_ORDER
// wait for all moves to complete
queue_wait();
#endif
if ( ! next_target.seen_P)
#ifdef HEATER_FAN
next_target.P = HEATER_FAN;
#else
next_target.P = 0;
#endif
if ( ! next_target.seen_S)
break;
heater_set(next_target.P, next_target.S);
break;
case 110:
//? --- M110: Set Current Line Number ---
//?
//? Example: N123 M110
//?
//? Set the current line number to 123. Thus the expected next line after this command will be 124.
//? This is a no-op in Teacup.
//?
break;
#ifdef DEBUG
case 111:
//? --- M111: Set Debug Level ---
//?
//? Example: M111 S6
//?
//? Set the level of debugging information transmitted back to the host to level 6. The level is the OR of three bits:
//?
//? <Pre>
//? #define DEBUG_PID 1
//? #define DEBUG_DDA 2
//? #define DEBUG_POSITION 4
//? </pre>
//?
//? This command is only available in DEBUG builds of Teacup.
if ( ! next_target.seen_S)
break;
debug_flags = next_target.S;
break;
#endif /* DEBUG */
case 112:
//? --- M112: Emergency Stop ---
//?
//? Example: M112
//?
//? Any moves in progress are immediately terminated, then the printer
//? shuts down. All motors and heaters are turned off. Only way to
//? restart is to press the reset button on the master microcontroller.
//? See also M0.
//?
timer_stop();
queue_flush();
power_off();
cli();
for (;;)
wd_reset();
break;
case 114:
//? --- M114: Get Current Position ---
//?
//? Example: M114
//?
//? This causes the RepRap machine to report its current X, Y, Z and E coordinates to the host.
//?
//? For example, the machine returns a string such as:
//?
//? <tt>ok C: X:0.00 Y:0.00 Z:0.00 E:0.00</tt>
//?
#ifdef ENFORCE_ORDER
// wait for all moves to complete
queue_wait();
#endif
update_current_position();
sersendf_P(PSTR("X:%lq,Y:%lq,Z:%lq,E:%lq,F:%lu\n"),
current_position.axis[X], current_position.axis[Y],
current_position.axis[Z], current_position.axis[E],
current_position.F);
if (mb_tail_dda != NULL) {
if (DEBUG_POSITION && (debug_flags & DEBUG_POSITION)) {
sersendf_P(PSTR("Endpoint: X:%ld,Y:%ld,Z:%ld,E:%ld,F:%lu,c:%lu}\n"),
mb_tail_dda->endpoint.axis[X],
mb_tail_dda->endpoint.axis[Y],
mb_tail_dda->endpoint.axis[Z],
mb_tail_dda->endpoint.axis[E],
mb_tail_dda->endpoint.F,
#ifdef ACCELERATION_REPRAP
mb_tail_dda->end_c
#else
mb_tail_dda->c
#endif
);
}
print_queue();
}
break;
case 115:
//? --- M115: Get Firmware Version and Capabilities ---
//?
//? Example: M115
//?
//? Request the Firmware Version and Capabilities of the current microcontroller
//? The details are returned to the host computer as key:value pairs separated by spaces and terminated with a linefeed.
//?
//? sample data from firmware:
//? FIRMWARE_NAME:Teacup FIRMWARE_URL:http://github.com/traumflug/Teacup_Firmware/ PROTOCOL_VERSION:1.0 MACHINE_TYPE:Mendel EXTRUDER_COUNT:1 TEMP_SENSOR_COUNT:1 HEATER_COUNT:1
//?
sersendf_P(PSTR("FIRMWARE_NAME:Teacup FIRMWARE_URL:http://github.com/traumflug/Teacup_Firmware/ PROTOCOL_VERSION:1.0 MACHINE_TYPE:Mendel EXTRUDER_COUNT:%d TEMP_SENSOR_COUNT:%d HEATER_COUNT:%d\n"), 1, NUM_TEMP_SENSORS, NUM_HEATERS);
break;
case 116:
//? --- M116: Wait ---
//?
//? Example: M116
//?
//? Wait for temperatures and other slowly-changing variables to arrive at their set values.
temp_set_wait();
break;
case 119:
//? --- M119: report endstop status ---
//? Report the current status of the endstops configured in the
//? firmware to the host.
power_on();
endstops_on();
delay_ms(10); // allow the signal to stabilize
{
#if ! (defined(X_MIN_PIN) || defined(X_MAX_PIN) || \
defined(Y_MIN_PIN) || defined(Y_MAX_PIN) || \
defined(Z_MIN_PIN) || defined(Z_MAX_PIN))
serial_writestr_P(PSTR("No endstops defined."));
#else
const char* const open = PSTR("open ");
const char* const triggered = PSTR("triggered ");
#endif
#if defined(X_MIN_PIN)
serial_writestr_P(PSTR("x_min:"));
x_min() ? serial_writestr_P(triggered) : serial_writestr_P(open);
#endif
#if defined(X_MAX_PIN)
serial_writestr_P(PSTR("x_max:"));
x_max() ? serial_writestr_P(triggered) : serial_writestr_P(open);
#endif
#if defined(Y_MIN_PIN)
serial_writestr_P(PSTR("y_min:"));
y_min() ? serial_writestr_P(triggered) : serial_writestr_P(open);
#endif
#if defined(Y_MAX_PIN)
serial_writestr_P(PSTR("y_max:"));
y_max() ? serial_writestr_P(triggered) : serial_writestr_P(open);
#endif
#if defined(Z_MIN_PIN)
serial_writestr_P(PSTR("z_min:"));
z_min() ? serial_writestr_P(triggered) : serial_writestr_P(open);
#endif
#if defined(Z_MAX_PIN)
serial_writestr_P(PSTR("z_max:"));
z_max() ? serial_writestr_P(triggered) : serial_writestr_P(open);
#endif
}
endstops_off();
serial_writechar('\n');
break;
#ifdef EECONFIG
case 130:
//? --- M130: heater P factor ---
//? Undocumented.
// P factor in counts per degreeC of error
if ( ! next_target.seen_P)
#ifdef HEATER_EXTRUDER
next_target.P = HEATER_EXTRUDER;
#else
next_target.P = 0;
#endif
if (next_target.seen_S)
pid_set_p(next_target.P, next_target.S);
break;
case 131:
//? --- M131: heater I factor ---
//? Undocumented.
// I factor in counts per C*s of integrated error
if ( ! next_target.seen_P)
#ifdef HEATER_EXTRUDER
next_target.P = HEATER_EXTRUDER;
#else
next_target.P = 0;
#endif
if (next_target.seen_S)
pid_set_i(next_target.P, next_target.S);
break;
case 132:
//? --- M132: heater D factor ---
//? Undocumented.
// D factor in counts per degreesC/second
if ( ! next_target.seen_P)
#ifdef HEATER_EXTRUDER
next_target.P = HEATER_EXTRUDER;
#else
next_target.P = 0;
#endif
if (next_target.seen_S)
pid_set_d(next_target.P, next_target.S);
break;
case 133:
//? --- M133: heater I limit ---
//? Undocumented.
if ( ! next_target.seen_P)
#ifdef HEATER_EXTRUDER
next_target.P = HEATER_EXTRUDER;
#else
next_target.P = 0;
#endif
if (next_target.seen_S)
pid_set_i_limit(next_target.P, next_target.S);
break;
case 134:
//? --- M134: save PID settings to eeprom ---
//? Undocumented.
heater_save_settings();
break;
#endif /* EECONFIG */
#ifdef DEBUG
case 136:
//? --- M136: PRINT PID settings to host ---
//? Undocumented.
//? This comand is only available in DEBUG builds.
if ( ! next_target.seen_P)
#ifdef HEATER_EXTRUDER
next_target.P = HEATER_EXTRUDER;
#else
next_target.P = 0;
#endif
heater_print(next_target.P);
break;
#endif /* DEBUG */
case 140:
//? --- M140: Set heated bed temperature ---
//? Undocumented.
#ifdef HEATER_BED
if ( ! next_target.seen_S)
break;
temp_set(HEATER_BED, next_target.S);
#endif
break;
case 220:
//? --- M220: Set speed factor override percentage ---
if ( ! next_target.seen_S)
break;
// Scale 100% = 256
next_target.target.f_multiplier = (next_target.S * 64 + 12) / 25;
break;
case 221:
//? --- M221: Control the extruders flow ---
if ( ! next_target.seen_S)
break;
// Scale 100% = 256
next_target.target.e_multiplier = (next_target.S * 64 + 12) / 25;
break;
#ifdef DEBUG
case 240:
//? --- M240: echo off ---
//? Disable echo.
//? This command is only available in DEBUG builds.
debug_flags &= ~DEBUG_ECHO;
serial_writestr_P(PSTR("Echo off\n"));
break;
case 241:
//? --- M241: echo on ---
//? Enable echo.
//? This command is only available in DEBUG builds.
debug_flags |= DEBUG_ECHO;
serial_writestr_P(PSTR("Echo on\n"));
break;
#endif /* DEBUG */
// unknown mcode: spit an error
default:
sersendf_P(PSTR("E: Bad M-code %d\n"), next_target.M);
} // switch (next_target.M)
} // else if (next_target.seen_M)
} // process_gcode_command()
main()
{
register long k;
unsigned char t, incode[2], ans[2], yn[2], again[2];
unsigned char timestr[30], datetime[15], intime[20];
long systime;
long pid, status;
putenv("_=transac_output");
chdir(getenv("HOME"));
open_all();
fix(transac_output);
sd_screen_off();
sd_clear_screen();
sd_text(transac_output);
sd_screen_on();
sd_prompt(&fld[0], 0);
while(1)
{
for (k = 15; k <= 20; k++)
{
sd_cursor(0, k, 1);
sd_clear_line();
}
while(1)
{
memset(incode, 0, 2);
t = sd_input(&fld[0], 0, 0, incode, 0);
if(t == EXIT) leave();
if(t == UP_CURSOR) continue;
if (!*incode) break;
*incode = tolower(*incode);
if (*incode != 'c' && *incode != 'd' &&
*incode != 'p' && *incode != 'e')
{
eh_post(ERR_CODE, incode);
continue;
}
break;
}
if (*incode == 'p')
{
if (sp->sp_to_flag != 'y' && sp->sp_to_flag != 'b')
{
eh_post(LOCAL_MSG, "No Transaction File Feature");
continue;
}
sd_wait();
if((pid = fork()) == 0)
{
ss_close();
execlp("transac_short_rpt", "transac_short_rpt", 0);
exit(1);
}
else pid = wait(&status);
if (pid > 0 && !status) eh_post(ERR_CONFIRM, "Short Printing");
else eh_post(CRASH_MSG, "tranac_short_rpt failed");
continue;
}
if (*incode == 'e')
{
if (sp->sp_to_flag != 'y' && sp->sp_to_flag != 'b')
{
eh_post(LOCAL_MSG, "No Transaction File Feature");
continue;
}
while(1)
{
memset(ans, 0, 2); /* are you sure response */
memset(yn, 0, 2);
t = sd_input(&fld[5],sd_prompt(&fld[5],0), 0, yn, 0);
if (t == EXIT) leave();
if (t == UP_CURSOR) break;
*ans = code_to_caps(*yn);
if(*ans != 'y' && *ans != 'n')
{
eh_post(ERR_YN,0);
continue;
}
if(*ans == 'y')
{
eh_post(LOCAL_MSG, "Purging Transaction File");
database_open();
xt_open();
transaction_setkey(0);
begin_work();
while (!transaction_next(&xt, LOCK))
{
transaction_delete();
commit_work();
begin_work();
}
commit_work();
xt_close();
database_close();
sp->sp_to_count = 0;
eh_post(PURGE_TRANS, 0);
}
break;
} /* end while(1) */
continue;
} /* end if */
if (*incode == 'c' || *incode == 'd')
{
if (sp->sp_to_mode != 0x20 || sp->sp_oi_mode == *incode) /* F071395 */
{
eh_post(LOCAL_MSG, "Device/Port In Use");
continue;
}
}
if (*incode == 'd')
{
while(1)
{
memset(ans, 0, 2);
memset(yn, 0, 2);
t = sd_input(&fld[1],sd_prompt(&fld[1],0), 0, yn, 0);
if (t == EXIT) leave();
if (t == UP_CURSOR) break;
*ans = code_to_caps(*yn);
if(*ans != 'y' && *ans != 'n')
{
eh_post(ERR_YN,0);
continue;
}
break;
}
if (t == UP_CURSOR) continue;
if (*ans == 'n') continue; /* abort diskette in */
}
while(1)
{
memset(again, 0, 2); /* retransmit response */
memset(yn, 0, 2);
t = sd_input(&fld[2],sd_prompt(&fld[2],0), 0, yn, 0);
if (t == EXIT) leave();
if (t == UP_CURSOR) break;
*again = code_to_caps(*yn);
if (*again != 'y' && *again != 'n')
{
eh_post(ERR_YN, 0);
continue;
}
break;
}
if (t == UP_CURSOR) continue;
while(1)
{
memset(ans, 0, 2); /* purge response */
memset(yn, 0, 2);
t = sd_input(&fld[3],sd_prompt(&fld[3],0), 0, yn, 0);
if(t == EXIT) leave();
if(t == UP_CURSOR) break;
*ans = code_to_caps(*yn);
if(*ans != 'y' && *ans != 'n')
{
eh_post(ERR_YN,0);
continue;
}
break;
}
if(*ans == 'y')
{
sd_prompt(&fld[4],0);
systime = time(0) - sp->sp_purge_window;
strcpy(timestr, ctime(&systime));
timestr[24] = 0;
sd_cursor(0,18,25);
sd_text("Default Date/Time:");
sd_cursor(0,18,54);
sd_text(×tr[4]);
sd_cursor(0,20,25);
sd_text("Format is:");
sd_cursor(0,20,54);
sd_text("mm/dd/yyyy hh:mm:ss");
while(1)
{
t = sd_input(&fld[4], 0, 0, intime, 0);
if(t == EXIT) leave();
if(t == UP_CURSOR) break;
if(*intime != 0)
{
if(!time_convert(intime, &systime))
{
eh_post(ERR_TIME, intime);
continue;
}
}
eh_post(LOCAL_MSG, "Purging Orders");
if ((pid = fork()) == 0)
{
sprintf(datetime, "%d", systime);
ss_close();
execlp("order_purge", "order_purge", datetime, 0);
exit(1);
}
else pid = wait(&status);
if (pid > 0 && !status) eh_post(ERR_CONFIRM, "Order purge");
else eh_post(CRASH_MSG, "order_purge failed");
break;
}
if (t == UP_CURSOR) continue;
}
if (*again == 'n') /* transmit current file */
{
eh_post(LOCAL_MSG, "Extracting Transactions");
if ((pid = fork()) == 0)
{
ss_close();
execlp("transac_copy", "transac_copy", 0);
exit(1);
}
else pid = wait(&status);
if (pid < 0 || status)
{
eh_post(LOCAL_MSG, "transac_copy failed");
continue;
}
eh_post(ERR_CONFIRM, "Transaction File");
}
/*
* Start Transaction Output Operations
*/
if (*incode == 'c') /* comm output */
{
if (sp->sp_commo_trans_out == 'n')
{
eh_post(LOCAL_MSG, "No Communication Feature");
continue;
}
eh_post(LOCAL_MSG, "Sending Transactions");
sd_close();
sp->sp_to_mode = 'c';
if (fork() == 0)
{
if (sp->sp_commo_trans_out == 'k')
{
ss_close();
execlp("com_kermit_out", "com_kermit_out", 0);
}
else
{
ss_close();
execlp("comsend", "comsend", 0);
}
ss_open();
sd_open();
sp->sp_to_mode = 0x20;
eh_post(LOCAL_MSG, "Program Not Found");
continue;
}
pid = wait(&status);
sp->sp_to_mode = 0x20;
sd_open();
if (pid < 0 || status)
{
eh_post(LOCAL_MSG, "Communications Failed");
}
else eh_post(ERR_CONFIRM, "Transactions Output");
continue;
}
if (*incode == 'd')
{
sd_wait();
sp->sp_to_mode = 'd';
sprintf(message, command);
status = system(message);
sp->sp_to_mode = 0x20;
if (status) eh_post(LOCAL_MSG, "Diskette output failed");
else eh_post(ERR_CONFIRM, "Tranaction Output");
}
}
}
/* function to transfer control back to the calling program*/
open_all()
{
sd_open(leave);
ss_open();
}
main()
{
register long k;
unsigned char t;
struct fld_parms fld;
putenv("_=record_format_srn");
chdir(getenv("HOME"));
sd_open(leave);
sd_echo_flag = 0x20;
ss_open();
co_open();
fix(record_format_srn);
sd_screen_off();
sd_clear_screen();
sd_text(record_format_srn);
sd_screen_on();
memcpy(&x, rf, sizeof(struct rf_item));
for (k = 0; k < NUM_PROMPTS; k++) show_field(k);
/*
* Only Super Operator May Input Data
*/
getparms(0);
if (!SUPER_OP)
{
eh_post(ERR_SUPER, 0);
sd_cursor(0, 23, 3);
sd_text("* * * Hit Any Key * * *");
t = sd_keystroke(NOECHO);
leave();
}
k = 0;
while (1)
{
fld.irow = field[k].row;
fld.icol = field[k].col;
fld.pcol = 0;
fld.arrow = 0;
fld.length = &field[k].len;
fld.prompt = 0;
fld.type = field[k].type;
get_field(k);
t = sd_input(&fld, 0, 0, buf, 0);
put_field(k);
if (t == EXIT) leave();
if (field[k].type == 'a')
{
if (field[k].valid)
{
if (!memchr(field[k].valid, *buf, strlen(field[k].valid)))
{
eh_post(ERR_CODE, buf);
continue;
}
}
}
else
{
if (value < field[k].min || value > field[k].max)
{
eh_post(ERR_CODE, buf);
continue;
}
}
switch(k)
{
case 0: if (x.rf_rp == 0x20 || !x.rf_rp)
{
eh_post(ERR_PREFACE, 0);
x.rf_rp = rf->rf_rp;
continue;
}
break;
case 1: if (x.rf_rt == 0x20) x.rf_rt = 0; break;
case 2: if (x.rf_ft == 0x20) x.rf_ft = 0; break;
case 3: if (x.rf_eof == 0x20) x.rf_eof = 0; break;
case 13: if (x.rf_box_pos > x.rf_rmks)
{
eh_post(ERR_CODE, buf);
continue;
}
break;
case 14: if (x.rf_box_len && !x.rf_rmks)
{
eh_post(ERR_CODE, buf);
continue;
}
break;
case 15: if (x.rf_box_count && !x.rf_box_len)
{
eh_post(ERR_CODE, buf);
continue;
}
break;
}
show_field(k);
if (t == UP_CURSOR) {if (k > 0) k--;}
else if (t == RETURN) break;
else
{
k++;
if (k >= NUM_PROMPTS) k = 0;
}
}
sd_prompt(&fld1, 0);
memset(buf, 0, 2);
t = sd_input(&fld1, 0, 0, buf, 0);
if (t == EXIT) leave();
*buf = tolower(*buf);
if (*buf == 'y')
{
memcpy(rf, &x, sizeof(struct rf_item));
system("ss_dump -sp= -rf=sys/rf_text 1>/dev/null 2>/dev/null");
}
leave();
}
open_all()
{
ss_open();
sd_open(leave);
getparms(0);
}
