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); }