home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / old / ckermit80 / edit206 / ckmsav.c < prev    next >
C/C++ Source or Header  |  2020-01-01  |  24KB  |  797 lines
  1. /* $Id: ckmsav.c,v 1.7 91/12/15 23:17:50 rick Exp $
  2.  * $Source: /uw/mackermit/RCS/ckmsav.c,v $
  3.  *------------------------------------------------------------------
  4.  * $Log:    ckmsav.c,v $
  5.  * Revision 1.7  91/12/15  23:17:50  rick
  6.  * ut9
  7.  * 
  8.  * Revision 1.6  91/10/13  13:43:36  rick
  9.  * UT(7)
  10.  * 
  11.  * Revision 1.5  91/10/01  12:16:56  rick
  12.  * UT(5)
  13.  * 
  14.  * Revision 1.4  91/09/25  12:17:32  rick
  15.  * Command window in TE. Multiple vt100 windows for command window.
  16.  * 
  17.  * Revision 1.3  91/09/12  21:50:51  rick
  18.  * UT(3). Install on watsun
  19.  * 
  20.  * Revision 1.2  1991/09/10  22:21:47  rick
  21.  * Update to UTexas(2)
  22.  *
  23.  * Revision 1.1  1991/09/10  19:18:03  rick
  24.  * Initial revision
  25.  *
  26.  *------------------------------------------------------------------
  27.  * $Endlog$
  28.  */
  29.  
  30. /* Paul Placeway, Ohio State -- changed the format of saved Is and Cs to */
  31. /*  {number, item, item, ...} */
  32. /* Version 0.8(35) - Jim Noble at Planning Research Corporation, June 1987. */
  33. /* Ported to Megamax native Macintosh C compiler. */
  34. /* Edit by Frank on Jun 20 17:20 */
  35. /* Don't set sio chip parity */
  36. /* Edit by Bill on May 29 01:01 */
  37. /* Add key configurator */
  38. /* Edit by Bill on May 10 9:24 */
  39. /* Saving settings file to a different disk doesn't work and may bomb */
  40. /* Edit by Bill on May 8 7:17 */
  41. /* Save default file settings, now incompatable with existing save files! */
  42. /* Edit by Bill & Jeff on May 1 14:16 */
  43. /* findfinderfiles was bombing because of fName[1] definition of myAppFile */
  44. /* Edit by Bill on Apr 30 05:50 */
  45. /* Call FlushVol after saving the settings */
  46.  
  47. /*
  48.  * file ckmsav.c
  49.  *
  50.  * Module of MacKermit containing code for saving and restoring
  51.  * various variables.
  52.  *
  53.   Copyright (C) 1985, 1992, Trustees of Columbia University in the City of New
  54.   York.  Permission is granted to any individual or institution to use this
  55.   software as long as it is not sold for profit.  This copyright notice must be
  56.   retained.  This software may not be included in commercial products without
  57.   written permission of Columbia University.
  58.  *
  59.  */
  60.  
  61. #include "ckcdeb.h"        /* Kermit definitions */
  62. #include "ckcker.h"        /* Kermit definitions */
  63.  
  64. #include "ckmdef.h"        /* Common Mac module definitions */
  65. #include "ckmres.h"        /* resource defs */
  66. #include "ckmcon.h"
  67. #include "ckmptp.h"        /* ckm* Prototypes */
  68.  
  69. /*
  70.  * These are referenced externally
  71.  */
  72. OSType kermtype = ApplCreator, settingstype = 'KERS';
  73. OSType texttype = 'TEXT';
  74. OSType loadlist[] = {'KERS','TEXT'};
  75.  
  76. /*
  77.  * Intermediate place holders for per-window values
  78.  */
  79. static int scr_invert;        /* intermediate container for screeninvert */
  80. static int scr_size;        /* ditto for size */
  81. static int scr_postop;        /* screen position of terminal window -- top edge */
  82. static int scr_poslft;        /* ditto for left edge */
  83. static int scr_fntsz;        /* screen font size */
  84. static int scr_newline;
  85. static int scr_autowrap;
  86. static int scr_autorepeat;
  87. static int scr_smoothscroll;
  88. static int scr_dispcontchar;
  89. static int scr_blockcursor;
  90. static int scr_mouse_arrows;
  91. static int scr_visible_bell;
  92. static int scr_eightbit_disp;
  93. static int scr_blinkcursor;
  94. static int savinnum;        /* intermediate container for innum (I/O port) */
  95. static char savmcmdactive;    /* intermediate container for mcmdactive */
  96.  
  97. extern int drop_dtr;
  98.  
  99. extern char *dftty;            /* Default serial port */
  100. extern char default_port_name[];
  101. extern int dfprty;                      /* Default parity */
  102. extern int dfflow;                      /* Default flow control */
  103. extern int fDTR, fCTS;
  104.  
  105. /*
  106.  * Some things have been moved to the ttermw struct.  Keep
  107.  * placeholders for them and fixup later.
  108.  */
  109. volatile int *inames[] = {
  110.     &speed, &parity, &duplex, &delay, &mypadn,
  111.     &npad, &timint, &rtimo, &urpsiz, &spsiz,
  112.     &turnch, &turn, &bctr, &filargs.fildflg,
  113.     &scr_newline,            /* 14 termw->newline */
  114.     &scr_autowrap,            /* 15 termw->autowrap */
  115.     &scr_invert, 
  116.     &scr_autorepeat,            /* 17 termw->autorepeat */
  117.     &scr_smoothscroll,             /* 18 termw->smoothscroll */
  118.     &scr_dispcontchar,            /* 19 termw->dispcontchar */
  119.     &keep,                 /* Keep incomplete files */
  120.     &scr_blockcursor,            /* 21 termw->blockcursor */
  121.     &scr_mouse_arrows,            /* 22 termw->mouse_arrows */
  122.     &scr_visible_bell,            /* 23 termw->visible_bell */
  123.     &scr_eightbit_disp,            /* 24 termw->eightbit_disp */
  124.     &scr_blinkcursor,             /* 25 termw->blinkcursor */
  125.     &scr_size, &savinnum, &sendusercvdef,
  126.     &drop_dtr, &flow, &scr_postop, &scr_poslft, &scr_fntsz,
  127.     &wslotr, &fDTR, &fCTS
  128. };
  129.  
  130. #define NINAMES (sizeof(inames) / sizeof(long *))
  131.  
  132. char *cnames[] = {
  133.     &mypadc, &padch, &eol, &seol, &stchr, &mystch,
  134.     (char *) &fkeysactive, (char *) &savmcmdactive
  135. };
  136.  
  137. #define NCNAMES (sizeof(cnames) / sizeof(char *))
  138.  
  139. typedef long **IHandle;        /* handle to long[] */
  140. typedef char **CHandle;        /* handle to char[] */
  141.  
  142. struct lfile *lfiles = NULL;    /* list of launched take files */
  143.  
  144. /****************************************************************************/
  145. /* Delete the specified resource if it exists in the current resource file */
  146. /****************************************************************************/
  147. void
  148. KillResource (ResType type, int id)
  149. {
  150.     Handle theRsrc;
  151.  
  152.     theRsrc = GetResource (type, id);
  153.     if ((theRsrc != NIL) && (HomeResFile (theRsrc) == CurResFile ())) {
  154.     RmveResource (theRsrc);
  155.     if (ResError () != noErr) {    /* check for error */
  156.         printerr ("Could not remove old resource: ", ResError ());
  157.         return;
  158.     }
  159.     DisposHandle (theRsrc);
  160.     }
  161. }                /* KillResource */
  162.  
  163.  
  164.  
  165. /****************************************************************************/
  166. /* savevals - save variables for MacKermit */
  167. /****************************************************************************/
  168. void
  169. savevals()
  170. {
  171.     volatile IHandle ihdl;
  172.     volatile CHandle chdl, shdl;
  173.     SFReply savr;
  174.     Point where;
  175.     int err, cerr;
  176.     int rfnum;
  177.     int i;
  178.     FInfo finf;
  179.     Str255 name;
  180.     struct termw *termw;
  181.     Handle port_h = 0;
  182.  
  183.     termw = ttermw;
  184.  
  185.     GetWTitle (termw->window, name);
  186.  
  187.     SetPt (&where, 75, 115);
  188.     SFPutFile (where, "\pSave variables in file:", name,
  189.                (DlgHookProcPtr) NILPROC, &savr);
  190.     if (!savr.good)        /* did they hit cancel? */
  191.     return;            /* yes, so return now */
  192.  
  193.     SetVol (NILPTR, savr.vRefNum);    /* select volume for rsrc file */
  194.  
  195.     rfnum = OpenResFile (&savr.fName);
  196.     err = ResError ();
  197.     if (err == noErr) { /* file exists, clear old resources */
  198.     /* Be sure to delete the old resources, if they alraedy */
  199.     /* exist. Otherwise the resources will be added to the */
  200.     /* existing file (adding more and more resources with */
  201.     /* the same type and number). Unfortunately, for setting */
  202.     /* the parameters, Kermit always uses the first, i.e. */
  203.     /* the !oldest! set of resources! */
  204.     KillResource (SAVI_TYPE, SIVER);
  205.     KillResource (SAVC_TYPE, SCVER);
  206.     KillResource (KSET_TYPE, KSVER);
  207.     KillResource (MSET_TYPE, KMVER);
  208.     KillResource (SAVS_TYPE, SAVS_ID_FONT);
  209.     KillResource (PORT_TYPE, PORTVER);
  210.     /*
  211.      * Change the creator to us so that a TEXT file
  212.      * will become launchable.  [Are we allowed to do
  213.      * this?]
  214.      */
  215.     err = GetFInfo (&savr.fName, savr.vRefNum, &finf);
  216.     if (err == noErr) {
  217.         finf.fdCreator = kermtype;    /* set creator */
  218.         err = SetFInfo (&savr.fName, savr.vRefNum, &finf);
  219.         if (err != noErr)
  220.         printerr ("Can't set finder info: ", err);
  221.     }
  222.     } else if ((err == resFNotFound) || (err == fnfErr) || (err == eofErr)) {
  223.     cerr = err;
  224.     /* file not existing ? */
  225.     CreateResFile (&savr.fName);    /* try to create */
  226.     if (ResError () != noErr) {    /* check for error */
  227.         printerr ("Unknown error from create: ", ResError ());
  228.         return;
  229.     }
  230.     /* set the file finder infos */
  231.     err = GetFInfo (&savr.fName, savr.vRefNum, &finf);
  232.     if (err != noErr)
  233.         printerr ("Can't get finder info for file: ", err);
  234.     else {
  235.         finf.fdFldr = filargs.filfldr;    /* use same folder as
  236.                          * application */
  237.         if (cerr != eofErr)            /* if was not data only */
  238.         finf.fdType = settingstype;     /* set type */
  239.         finf.fdCreator = kermtype;    /* set creator */
  240.         err = SetFInfo (&savr.fName, savr.vRefNum, &finf);
  241.         if (err != noErr)
  242.         printerr ("Can't set finder info: ", err);
  243.     }
  244.     /* try open again */
  245.     rfnum = OpenResFile (&savr.fName);
  246.     if (rfnum == -1) {    /* failed to open? */
  247.         printerr ("Couldn't Open resource file: ", ResError ());
  248.         return;
  249.     }
  250.     } else {
  251.     printerr ("Couldn't Open resource file: ", err);
  252.     return;
  253.     }
  254.  
  255.     /*
  256.      * Add things in ttermw manually.
  257.      */
  258.     scr_invert = termw->screeninvert;    /* save the current value */
  259.     scr_size = termw->screensize;
  260.     scr_newline = termw->newline;
  261.     scr_autowrap = termw->autowrap;
  262.     scr_autorepeat = termw->autorepeat;
  263.     scr_smoothscroll = termw->smoothscroll;
  264.     scr_dispcontchar = termw->dispcontchar;
  265.     scr_blockcursor = termw->blockcursor;
  266.     scr_mouse_arrows = termw->mouse_arrows;
  267.     scr_visible_bell = termw->visible_bell;
  268.     scr_eightbit_disp = termw->eightbit_disp;
  269.     scr_blinkcursor = termw->blinkcursor;
  270.     savinnum = innum;        /* save current port too */
  271.     savmcmdactive = mcmdactive;
  272.  
  273.     get_term_pos(termw, &scr_postop, &scr_poslft);    /* in ckmco2.c */
  274.     scr_fntsz = termw->current_size;
  275.  
  276.     /*
  277.      * PWP: changed the format so {count, item, item, ...} so that we can
  278.      * load older versions without dying
  279.      */
  280.     ihdl = (IHandle) NewHandle ((long) (NINAMES + 1) * sizeof (long));
  281.     if (ihdl == (IHandle) NIL) {
  282.     printerr ("Could not save the int values (SAVI) (out of memory)", 0);
  283.     return;
  284.     }
  285.     HLock((Handle) ihdl);        /* play it safe with the C optimizer */
  286.     (*ihdl)[0] = NINAMES;
  287.     for (i = 0; i < NINAMES; i++)    /* copy from indirect table */
  288.     if (inames[i])
  289.         (*ihdl)[i + 1] = *inames[i];    /* $$$ this dies at i=18 */
  290.  
  291.     /* Set the data for output AFTER DOING ALL SETTINGS!!!! */
  292.     AddResource ((Handle) ihdl, SAVI_TYPE, SIVER, "");
  293.  
  294.     HUnlock((Handle) ihdl);        /* we are done looking at this manually */
  295.  
  296.     chdl = (CHandle) NewHandle ((long) (NCNAMES + 1) * sizeof (char));
  297.     if (chdl == (CHandle) NIL) {
  298.     printerr ("Could not save the char values (SAVC) (out of memory)", 0);
  299.     return;
  300.     }
  301.     HLock((Handle) chdl);        /* play it safe with the C optimizer */
  302.     (*chdl)[0] = NCNAMES;
  303.     for (i = 0; i < NCNAMES; i++)    /* copy from indirect table */
  304.     (*chdl)[i + 1] = *cnames[i];
  305.     AddResource ((Handle) chdl, SAVC_TYPE, SCVER, "");
  306.     HUnlock((Handle) chdl);        /* we are done looking at this manually */
  307.  
  308.     savekset ();        /* save key bit table */
  309.     savemset ();        /* save key macros table */
  310.     
  311.     /* save the screen font name */
  312.     GetFontName (termw->current_font, name);
  313.     shdl = (CHandle) NewHandle ((long) (Length(name) + 1) * sizeof (char));
  314.     if (shdl == (CHandle) NIL) {
  315.     printerr ("Could not save the string values (SAVS) (out of memory)", 0);
  316.     return;
  317.     }
  318.     HLock((Handle) shdl);        /* play it safe with the C optimizer */
  319.     SetString (shdl, name);
  320.     AddResource ((Handle) shdl, SAVS_TYPE, SAVS_ID_FONT, "\pScreen font");
  321.     HUnlock((Handle) shdl);        /* we are done looking at this manually */
  322.  
  323.     /*
  324.      * Save the port  name
  325.      */
  326.     if ((port_h = NewHandleClear(256)) == NIL) {
  327.     printerr ("Could not save the port name (out of memory)", 0);
  328.     return; /* dddddd should close res file and cleanup handles first */
  329.     }
  330.     HLock(port_h);
  331.     strcpy((char *)*port_h, dftty);
  332.     HUnlock(port_h);
  333.     AddResource(port_h, PORT_TYPE, PORTVER, "\pPort name");
  334.  
  335.     CloseResFile (rfnum);    /* this does an UpdateResFile too */
  336.     FlushVol (NILPTR, savr.vRefNum);    /* flush the bits out */
  337.  
  338.     /* ddddd these are illegal since res file was closed */
  339.     DisposHandle((Handle) ihdl);
  340.     DisposHandle((Handle) chdl);
  341.     DisposHandle((Handle) shdl);
  342.     
  343.     SetWTitle (termw->window, &savr.fName);
  344. }                /* savevals */
  345.  
  346.  
  347.  
  348. /****************************************************************************/
  349. /* do a Load settings... dialog */
  350. /****************************************************************************/
  351. void
  352. loadvals ()
  353. {
  354.     int err;
  355.     SFReply savr;
  356.     Point where;
  357.     FileParam pb;
  358.  
  359.     SetPt (&where, 75, 115);
  360.     SFGetFile (where, "\pLoad variables from:", (FileFilterProcPtr) NILPROC,
  361.                2, &loadlist, (DlgHookProcPtr) NILPROC, &savr);
  362.  
  363.     if (!savr.good)        /* did they hit cancel? */
  364.     return;            /* yes, so return now */
  365.  
  366.     /*
  367.      * Due to the mstr# resource, we can be called by multifinder
  368.      * with any file that has a KR09 creator.  Files of type
  369.      * TEXT probably contain scripts.  File types of KERS are
  370.      * Kermit settings resouces.  A TEXT file may also contain
  371.      * settings resources.  Figure out which we have and 
  372.      * try to do the appropriate thing.
  373.      */
  374.     pb.ioNamePtr = savr.fName;
  375.     pb.ioVRefNum = savr.vRefNum;
  376.     pb.ioFVersNum = pb.ioFDirIndex = 0;
  377.     err = PBGetFInfo((ParmBlkPtr)&pb, FALSE);
  378.     /* p2cstr (&savr.fName); */
  379.     if (err != noErr) {
  380.     printfalert("Could not PBGetFInfo for %s", p2c_tmp(savr.fName));
  381.     return;
  382.     }
  383.  
  384.     if (pb.ioFlRLgLen)            /* if resources present */
  385.     doloadvals(p2c_tmp(savr.fName), savr.vRefNum);    /* do the load */
  386.  
  387.     if (pb.ioFlLgLen) {            /* if data present */
  388.     kShowWindow(ctermw);
  389.     kSelectWindow(ctermw->window);
  390.  
  391.     /* queue the take file */
  392.     getlfile((char *) p2c_tmp(savr.fName), savr.vRefNum);
  393.     }
  394. } /* loadvals */
  395.  
  396.  
  397. /*
  398.  * takedialog
  399.  * Do a Take Command File... dialog
  400.  */
  401. void
  402. takedialog ()
  403. {
  404.     SFReply savr;
  405.     Point where;
  406.  
  407.     SetPt (&where, 75, 115);
  408.     SFGetFile (where, "\pCommand File:", (FileFilterProcPtr) NILPROC,
  409.                1, &texttype, (DlgHookProcPtr) NILPROC, &savr);
  410.  
  411.     if (!savr.good)        /* did they hit cancel? */
  412.     return;            /* yes, so return now */
  413.  
  414.     /* force command window */
  415.     kShowWindow(ctermw);
  416.     kSelectWindow(ctermw->window);
  417.  
  418.     /* queue the take file */
  419.     p2cstr(&savr.fName);        /* $$$ */
  420.     getlfile((char *) savr.fName, savr.vRefNum);
  421. }                /* takedialog */
  422.  
  423.  
  424. /****************************************************************************/
  425. /****************************************************************************/
  426. void
  427. findfinderfiles ()
  428. {
  429.     short msg, cnt;
  430.     int err, rfnum;
  431.     AppFile apf;
  432.     FInfo ainfo;
  433.     Str255 defvolname;
  434.     FileParam pb;
  435.     short defvolrefnum;
  436.     int i;
  437.     Boolean first;
  438.     extern Boolean have_128roms;
  439.     extern int startconnected;
  440.  
  441.     startconnected = TRUE;
  442.  
  443.     CountAppFiles (&msg, &cnt);    /* anything clicked by user? */
  444.     if (cnt == 0 || msg == appPrint) {    /* or they want us to print (?) */
  445.     /* filargs.filfldr = fDesktop; */  /* forget about loading values */
  446.     if (GetVol(&defvolname, &defvolrefnum) == noErr)
  447.         filargs.filfldr = defvolrefnum;
  448.     else
  449.         filargs.filfldr = 0;
  450.     loadkset ();        /* make new files appear on desk */
  451.     return;            /* use our default KSET */
  452.     }
  453.  
  454.     /*
  455.      * Loop through all the applications files.  If the data length
  456.      * is nonzero, assume this is a take file and put it on our
  457.      * list.  Load resources from the first (only) file that has
  458.      * Kermit resources.
  459.      */
  460.     first = TRUE;
  461.     for (i = 1; i <= cnt; i++) {
  462.     GetAppFiles(i, &apf);
  463.     err = GetFInfo (&apf.fName,    /* get settings file info */
  464.             apf.vRefNum, &ainfo);
  465.     if (err != noErr) {
  466.         printerr ("Couldn't GetFInfo for an applications file: ", err);
  467.         continue;
  468.     }
  469.  
  470.     pb.ioNamePtr = apf.fName;    /* WAS: pb.ioNamePtr = &apf.fName; */
  471.     pb.ioVRefNum = apf.vRefNum;
  472.     pb.ioFVersNum = pb.ioFDirIndex = 0;
  473.     err = PBGetFInfo((ParmBlkPtr)&pb, FALSE);
  474.     if (err != noErr) {
  475.         printerr("Couldn't PBGetFInfo for a file", err);
  476.         continue;
  477.     }
  478.  
  479.     /*
  480.      * Load settings resources out of the first file we find
  481.      * that has Kermit resources in it.
  482.      */
  483.     if (first && (pb.ioFlRLgLen > 0)) {
  484.         /*
  485.          * Check to see that Kermit resources are present.  Otherwise,
  486.          * we might have a text file with some kind of edit resources.
  487.          */
  488.         SetVol (NILPTR, apf.vRefNum); /* select volume */
  489.         rfnum = OpenResFile(apf.fName); /* open the resource file */
  490.         if (rfnum == -1)        /* DEBUG!!!!!!!!!! */
  491.         printfalert("Couldn't OpenResFile: ", ResError ());
  492.  
  493.         /*
  494.          * If no 128k roms, just assme we found Kermit resources.
  495.          */
  496.         if (!have_128roms ||
  497.         ((rfnum != -1) && (Count1Resources(SAVI_TYPE) > 0))) {
  498.         first = FALSE;
  499.         p2cstr (&apf.fName);
  500.         doloadvals((char *) &apf.fName, apf.vRefNum);    /* load the file */
  501.         c2pstr (&apf.fName);
  502.         /* use appl or text file's folder */
  503.         filargs.filfldr = ainfo.fdFldr;
  504.         }
  505.         if (rfnum != -1)
  506.         CloseResFile(rfnum);
  507.     }
  508.  
  509.     /*
  510.      * If there is data and the file is type TEXT assume this
  511.      * is a take file for us.
  512.      */
  513.     if ((pb.ioFlLgLen > 0) && (ainfo.fdType == 'TEXT')) {
  514.         startconnected = FALSE;    /* so we will take files */
  515.         p2cstr (apf.fName);
  516.         getlfile((char *) apf.fName, apf.vRefNum);
  517.         c2pstr (&apf.fName);
  518.     }
  519.     }
  520. }                /* findfinderfiles */
  521.  
  522.  
  523. /*
  524.  * getlfile
  525.  * Build an lfile entry and put it on the queue.
  526.  */
  527. void
  528. getlfile (char *name, short vref)
  529. {
  530.     struct lfile *lfile, *lastlfile = NULL;
  531.  
  532.     lfile = (struct lfile *) malloc(sizeof(struct lfile));
  533.     bzero((char *)lfile, sizeof(struct lfile));
  534.  
  535.     lfile->name = (char *)malloc(strlen(name));
  536.     if (!lfile->name) {
  537.     printerr("Not enough memory for applications files", 0);
  538.     return;
  539.     }
  540.     strcpy(lfile->name, name);
  541.  
  542.     lfile->vRefNum = vref;
  543.  
  544.     /* link on the list */
  545.     if (lastlfile)
  546.     lastlfile->next = lfile;
  547.     else
  548.     lfiles = lfile;
  549.     lastlfile = lfile;
  550. }
  551.  
  552.  
  553.  
  554. /*
  555.  * startlfile
  556.  * Start up a mac take file the finder gave us.
  557.  */
  558. void startlfile ()
  559. {
  560.     struct lfile *lfile;
  561.  
  562.     if (!(lfile = lfiles))
  563.     return;
  564.  
  565.     lfiles = lfile->next;        /* delink from list */
  566.     SetVol(NILPTR, lfile->vRefNum);    /* make sure volume is correct */
  567.                                         /* Should we save current loc? */
  568.     dotake(lfile->name);
  569.  
  570.     /* release memory held by queue entry */
  571.     free(lfile->name);
  572.     free(lfile);
  573. }
  574.  
  575.  
  576. extern MenuHandle menus[];    /* handle on our menus */
  577.  
  578. /****************************************************************************/
  579. /****************************************************************************/
  580. void
  581. doloadvals(char *fn, int refnum)
  582. {
  583.     int rfnum;
  584.     int i, n;
  585.     volatile IHandle resinames;
  586.     volatile CHandle rescnames, resstrs;
  587.     short fntnum;
  588.     struct termw *termw;
  589.     Handle port_h;
  590.     char old_port_name[256];
  591.  
  592.     termw = ttermw;
  593.  
  594.     /*
  595.      * Set the place-holder vars to their current values so an update
  596.      * of an older kermit save doesn't do wierd things to them
  597.      */
  598.     scr_invert = termw->screeninvert;    /* save the current value */
  599.     scr_size = termw->screensize;
  600.     scr_newline = termw->newline;
  601.     scr_autowrap = termw->autowrap;
  602.     scr_autorepeat = termw->autorepeat;
  603.     scr_smoothscroll = termw->smoothscroll;
  604.     scr_dispcontchar = termw->dispcontchar;
  605.     scr_blockcursor = termw->blockcursor;
  606.     scr_mouse_arrows = termw->mouse_arrows;
  607.     scr_visible_bell = termw->visible_bell;
  608.     scr_eightbit_disp = termw->eightbit_disp;
  609.     scr_blinkcursor = termw->blinkcursor;
  610.     savinnum = innum;            /* save current port too */
  611.     savmcmdactive = mcmdactive;
  612.     get_term_pos(termw, &scr_postop, &scr_poslft);    /* in ckmco2.c */
  613.     
  614.     scr_fntsz = termw->current_size;
  615.  
  616.     SetVol (NILPTR, refnum);    /* select volume */
  617.     rfnum = OpenResFile (c2p_tmp(fn));    /* open the resource file */
  618.     if (rfnum == -1) {
  619.     printerr ("Couldn't open file: ", ResError ());
  620.     return;
  621.     };
  622.  
  623.     /* load 'SAVI' resource, the saved integer values, */
  624.     /* 'SAVC' saved characters */
  625.  
  626.     if ((resinames = (IHandle) GetResource (SAVI_TYPE, SIVER)) == NIL ||
  627.     (rescnames = (CHandle) GetResource (SAVC_TYPE, SCVER)) == NIL) {
  628.     CloseResFile (rfnum);
  629.     printerr ("Can't load your settings, damaged file or wrong version.",
  630.           0);
  631.     return;            /* and return */
  632.     }
  633.     cursor_erase (termw);        /* hide the current cursor */
  634.  
  635.     /*
  636.      * PWP: changed the format to {count, item, item, ...} so that we can
  637.      * load older versions without dieing
  638.      */
  639.  
  640.     HLock((Handle) resinames);    
  641.     n = (*resinames)[0];
  642.     if (n > NINAMES)
  643.     n = NINAMES;
  644.     for (i = 0; i < n; i++)
  645.     if (inames[i])
  646.         *inames[i] = (*resinames)[i + 1];
  647.  
  648.     HUnlock((Handle) resinames);    
  649.     ReleaseResource((Handle) resinames);
  650.  
  651.     HLock(rescnames);    
  652.     n = (*rescnames)[0];
  653.     if (n > NCNAMES)
  654.     n = NCNAMES;
  655.     for (i = 0; i < n; i++)
  656.     *cnames[i] = (*rescnames)[i + 1];
  657.     HUnlock(rescnames);    
  658.     ReleaseResource(rescnames);
  659.  
  660.     /* restore the screen font name */
  661.     fntnum = 0;
  662.     if ((resstrs = (CHandle) GetResource (SAVS_TYPE, SAVS_ID_FONT)) != NIL) {
  663.     HLock(resstrs);    
  664.     GetFNum(*resstrs, &fntnum);
  665.     if (fntnum != 0)
  666.         termw->current_font = fntnum;
  667.     HUnlock(resstrs);
  668.     ReleaseResource(resstrs);
  669.     }
  670.  
  671.     loadkset ();        /* load new KSET */
  672.     loadmset ();        /* release current MSET and load new one */
  673.     
  674.     /*
  675.      *  Get the port name resource. If it does not exist, translate
  676.      *  the (old) port number
  677.      */
  678.     strcpy(old_port_name, dftty);
  679.     /* if we have a port resource */
  680.     if ((port_h = GetResource(PORT_TYPE, PORTVER)) != NIL) {
  681.     HLock(port_h);
  682.     strcpy(default_port_name, (char *)*port_h);
  683.     HUnlock(port_h);
  684.     } else {
  685.     if (savinnum == -8) {        /* if printer */
  686.         /* if ctb */
  687.         if (NGetTrapAddress(0x8b, OSTrap) != NGetTrapAddress(0x9f,OSTrap))
  688.           strcpy(default_port_name, "Printer Port");
  689.         else
  690.           strcpy(default_port_name, "Printer");
  691.     } else {
  692.         /* if ctb */
  693.         if (NGetTrapAddress(0x8b, OSTrap) != NGetTrapAddress(0x9f,OSTrap))
  694.           strcpy(default_port_name, "Modem Port");
  695.         else
  696.           strcpy(default_port_name, "Phone");
  697.     }
  698.     }
  699.     dftty = default_port_name;
  700.  
  701.     CloseResFile (rfnum);    /* no longer needed */
  702.     
  703.     set_term_pos(termw, scr_postop, scr_poslft);    /* in ckmco2.c */
  704.  
  705.     /*
  706.      * Restore things in termw manually.
  707.      */
  708.     termw->current_size = scr_fntsz;    /* change font size */
  709.     termw->newline = scr_newline;
  710.     termw->autowrap = scr_autowrap;
  711.     termw->autorepeat = scr_autorepeat;
  712.     termw->smoothscroll = scr_smoothscroll;
  713.     termw->dispcontchar = scr_dispcontchar;
  714.     termw->blockcursor = scr_blockcursor;
  715.     termw->mouse_arrows = scr_mouse_arrows;
  716.     termw->visible_bell = scr_visible_bell;
  717.     termw->eightbit_disp = scr_eightbit_disp;
  718.     termw->blinkcursor = scr_blinkcursor;
  719.  
  720.     /* we (may have) changed the font above */
  721.     term_new_font(termw);        /* update what font to use, font constants */
  722.     setup_font_menu();        /* update font and sizes */
  723.  
  724.     grow_term_to(termw, scr_size);    /* change screen size */
  725.  
  726.     if (scr_invert != termw->screeninvert)
  727.     invert_term (termw);
  728.  
  729.     cursor_draw(termw);            /* show the new cursor */
  730.  
  731.     /* if using new port */
  732.     if ((innum == 0) || (strcmp(old_port_name, dftty) != 0 )) {
  733.     int saved_drop_dtr;
  734.     Boolean old_port_was_open = (innum != 0);
  735.  
  736.     saved_drop_dtr = drop_dtr;
  737.     drop_dtr = 1;    /* so we don't confuse AppleTalk */
  738.     port_close();
  739.     drop_dtr = saved_drop_dtr;
  740.  
  741.     port_open(dftty);
  742.     if (innum == 0)    {        /* if open failed */
  743.         if (old_port_was_open)
  744.           port_open(old_port_name); /* re-open old port */
  745.         strcpy(dftty, old_port_name);
  746.     }
  747.     }
  748.  
  749.     /* tell serial driver about new vals */
  750.     if (!setserial (innum, outnum, speed, KPARITY_NONE))
  751.     printfalert("Problem setting port speed");
  752.     (void) sershake(flow);
  753.     
  754.     /* Frank changed main() to call init and then set flow, parity, etc.
  755.        so we make sure they will be set right (again) after we return. */
  756.     dfprty = parity;                    /* Set initial parity, */
  757.     dfflow = flow;                      /* and flow control. */
  758.  
  759.     /* set the two check menus */
  760.     enable_fkeys (fkeysactive);
  761.     CheckItem (menus[SETG_MENU], SCRD_SETG, (fkeysactive));
  762.     if (savmcmdactive != mcmdactive) {
  763.     mcmdactive = savmcmdactive;
  764.     setup_menus();
  765.     }
  766.     CheckItem (menus[SETG_MENU], MCDM_SETG, (mcmdactive));
  767.  
  768.     SetWTitle (termw->window, c2p_tmp(fn));
  769.  
  770.     /* (PWP) bounds check the values we just got to be double extra safe */
  771.     
  772.     if (urpsiz > MAXRP-8) {
  773.         printerr("Recieve packet lengh is too big", urpsiz);
  774.     urpsiz = MAXRP-8;
  775.     }
  776.     if (spsiz > MAXSP) {
  777.         printerr("Send packet length is too big", spsiz);
  778.     spsiz = MAXSP;
  779.     }
  780.     if (wslotr < 1) 
  781.     wslotr = 1;
  782.     if (wslotr > 1)
  783.     swcapr = 1;
  784.     else
  785.     swcapr = 0;
  786. }                /* doloadvals */
  787.  
  788. /*
  789.  * Junk so Emacs will set local variables to be compatible with Mac/MPW.
  790.  * Should be at end of file.
  791.  * This module uses 8
  792.  * 
  793.  * Local Variables:
  794.  * tab-width: 8
  795.  * End:
  796.  */
  797.