Changeset 60288f5 in buchla-68k for ram/ldfield.c
- Timestamp:
- 07/09/2017 12:23:40 AM (7 years ago)
- Branches:
- master
- Children:
- 6dd74a9
- Parents:
- 0c834c5
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ram/ldfield.c
r0c834c5 r60288f5 25 25 extern void select(void); 26 26 extern short whatbox(void); 27 extern short nokey(void); 27 extern void nokey(void); 28 extern short nonf(short k); 28 29 extern void cxkstd(void); 29 30 extern void cykstd(void); 30 31 extern void stdmkey(void); 31 extern short et_null( void);32 extern short ef_null( void);33 extern short rd_null( void);34 extern short nd_null( void);32 extern short et_null(short n); 33 extern short ef_null(short n); 34 extern short rd_null(short n); 35 extern short nd_null(short n, short k); 35 36 extern void lmwclr(void); 36 37 extern void vcputsv(int *obase, int nw, int fg, int bg, int row, int col, char *str, int pitch); … … 101 102 extern short ldmap[]; 102 103 103 extern PFS(*swpt)[];104 extern PFS(*oldsw)[];104 extern LPF (*swpt)[]; 105 extern LPF (*oldsw)[]; 105 106 106 107 extern struct selbox *csbp; … … 110 111 111 112 void ld_prmv(void); 112 shortldxkey(void);113 void ldxkey(void); 113 114 void ldmkey(void); 114 shortldkey(short k);115 void ldkey(short k); 115 116 void ldcxupd(void); 116 117 void ldcyupd(void); … … 177 178 ldmkey, /* m_key */ 178 179 ldkey, /* d_key */ 179 no key, /* not_fld */180 nonf, /* not_fld */ 180 181 ld_fet1, /* curfet */ 181 182 ldboxes, /* csbp */ … … 197 198 */ 198 199 199 shortldxkey(void)200 void ldxkey(void) 200 201 { 201 202 register char *fn; … … 204 205 205 206 if (NOT astat) /* only on key closure */ 206 return (FAILURE);207 return; /* FAILURE */ 207 208 208 209 clrerms(); … … 217 218 ldmap[slot] = -1; 218 219 dpy_scr(ldbox[1][4], slot); 219 return (SUCCESS);220 return; /* SUCCESS */ 220 221 221 222 } else 222 return (FAILURE);223 return; /* FAILURE */ 223 224 } 224 225 225 226 if (lcancel(2)) 226 return (SUCCESS);227 return; /* SUCCESS */ 227 228 228 229 if (NOT ldelsw) { /* deletion not yet selected ? */ … … 233 234 234 235 if (-1 EQ (slot = lin2slt(stcrow))) 235 return (FAILURE);236 return; /* FAILURE */ 236 237 237 238 if (ltagged) { … … 242 243 ltagged = FALSE; 243 244 showcat(); 244 return (FAILURE);245 return; /* FAILURE */ 245 246 } 246 247 … … 266 267 } 267 268 268 return (SUCCESS);269 return; /* SUCCESS */ 269 270 } 270 271 271 272 if ((stccol < 13) OR (stccol > 20)) /* name ? */ 272 return (FAILURE);273 return; /* FAILURE */ 273 274 274 275 if (-1 NE (ldslot = lin2slt(ldrow))) { … … 278 279 dslslot(ldslot, exp_c(LD_DELC), ldrow); 279 280 ldelsw = TRUE; 280 return (SUCCESS);281 return; /* SUCCESS */ 281 282 } 282 283 /* … … 293 294 memset(ldfile, ' ', 8); 294 295 ldswin(3); 295 return (SUCCESS);296 return; /* SUCCESS */ 296 297 297 298 } else if (stccol GE 27) { … … 301 302 memset(ldcmnt, ' ', 37); 302 303 ldswin(5); 303 return (SUCCESS);304 return; /* SUCCESS */ 304 305 } 305 306 } 306 307 307 return (FAILURE);308 return; /* FAILURE */ 308 309 } 309 310 … … 330 331 showsiz(); 331 332 332 return (SUCCESS);333 return; /* SUCCESS */ 333 334 } 334 335 335 336 ldelsw = FALSE; 336 337 showcat(); 337 return (SUCCESS);338 return; /* SUCCESS */ 338 339 } 339 340 } … … 501 502 */ 502 503 503 shortldkey(short k)504 void ldkey(short k) 504 505 { 505 506 register short c, col, row, slot; … … 507 508 508 509 if (NOT astat) /* only on key closure */ 509 return (FAILURE);510 return; 510 511 511 512 if (NOT catin) /* catalog must be valid */
Note:
See TracChangeset
for help on using the changeset viewer.