tools/t32/config.cmm

   1 // File to load and save configuration settings to file\r
   2 //\r
   3 // Commands:\r
   4 // load - load config\r
   5 // save - save present configuration\r
   6 // debug - print some useful data\r
   7 \r
   8 // global configuration macros\r
   9 GLOBAL &cfg_project_path_g\r
  10 GLOBAL &cfg_loadfile_g\r
  11 GLOBAL &cfg_cpu_g\r
  12 GLOBAL &cfg_cpu_family_g\r
  13 \r
  14 \r
  15 // Global macros\r
  16 LOCAL &data_file\r
  17 LOCAL &user &cpu\r
  18 &user=os.env("username")\r
  19 //&cpu=CPU()\r
  20 //&data_file="~~~\cfg_t32_"+"&user"+"_"+"&cfg_cpu_g"+".txt"\r
  21 //&global_file="~~~\cfg_t32"\r
  22 &data_file="~~~\cfg_t32.txt"\r
  23 //+"&cfg_cpu_g"+".txt"\r
  24 \r
  25 \r
  26 LOCAL &cmd\r
  27 ENTRY &cmd\r
  28 GOSUB &cmd\r
  29 enddo\r
  30 \r
  31 \r
  32 rm:\r
  33     rm &data_file\r
  34     RETURN\r
  35 \r
  36 //--------------------------------------------------------------------\r
  37 \r
  38 load:\r
  39 \r
  40   print "loading config from &data_file"\r
  41 \r
  42   if OS.FILE(&data_file)\r
  43   (\r
  44     OPEN #1 &data_file /read\r
  45     READ #1 &cfg_project_path_g\r
  46     READ #1 &cfg_loadfile_g\r
  47     READ #1 &cfg_cpu_g\r
  48     READ #1 &cfg_cpu_family_g\r
  49     CLOSE #1\r
  50   )\r
  51   ELSE\r
  52   (\r
  53     &cfg_project_path_g=""\r
  54     &cfg_loadfile_g=""\r
  55     &cfg_cpu_g=""\r
  56     &cfg_cpu_family_g=""\r
  57   )\r
  58   RETURN\r
  59 \r
  60 //--------------------------------------------------------------------\r
  61 \r
  62 //--------------------------------------------------------------------\r
  63 \r
  64 save:\r
  65   print "Saving config to &data_file"\r
  66   OPEN #1 &data_file /create\r
  67   WRITE #1 "&cfg_project_path_g"\r
  68   WRITE #1 "&cfg_loadfile_g"\r
  69   WRITE #1 "&cfg_cpu_g"\r
  70   WRITE #1 "&cfg_cpu_family_g"\r
  71   CLOSE #1\r
  72   RETURN\r
  73 \r
  74 #--------------------------------------------------------------------\r
  75 debug:\r
  76   gosub load\r
  77   print "DEBUG: &data_file"\r
  78   print "       project_path: &cfg_project_path_g"\r
  79   print "       load file:    &cfg_loadfile_g"\r
  80   print "       cpu:          &cfg_cpu_g"\r
  81   print "       cpu_fam:      &cfg_cpu_family_g"\r
  82   RETURN\r
  83 \r
  84 \r
  85 //--------------------------------------------------------------------\r
  86 \r
  87 dialog_cpu:\r
  88   dialog\r
  89 (&\r
  90         HEADER "Select cpu"\r
  91         POS 0. 0. 14.\r
  92               BUTTON "mpc5516" "jumpto mpc5516"\r
  93         POS 0. 1. 14.\r
  94               BUTTON "mpc5554" "jumpto mpc5554"\r
  95         POS 0. 2. 14.\r
  96           BUTTON "arm" "jumpto arm"\r
  97         CLOSE "jumpto win_close2"\r
  98 )\r
  99    stop\r
 100 mpc5516:\r
 101   &cfg_cpu_g="mpc5516"\r
 102   jumpto win_close2\r
 103 mpc5554:\r
 104   &cfg_cpu_g="mpc5554"\r
 105   jumpto win_close2\r
 106 arm:\r
 107   &cfg_cpu_g="arm"\r
 108   jumpto win_close2\r
 109 win_close2:\r
 110   dialog.end\r
 111 \r
 112   ENDDO\r
 113 \r
 114 //--------------------------------------------------------------------\r
 115 \r
 116 \r
 117 \r
 118 dialog_project:\r
 119   LOCAL &path\r
 120 // &closewin\r
 121 //  &closewin=0.\r
 122 \r
 123   dialog\r
 124 (&\r
 125         pos 1. 1. 14.\r
 126         text "CPU:"\r
 127         pos 1. 2. 10.\r
 128 CPU:   PULLDOWN "mpc5516,mpc5554,mpc5633M,CortexM3,CortexR4F,HC12DG128A"\r
 129         (\r
 130         )\r
 131         HEADER "Project config"\r
 132         pos 1. 3. 14.\r
 133         text "Project root:"\r
 134         pos 1. 4. 50.\r
 135 P_PATH: EDIT "&cfg_project_path_g" ""\r
 136         pos 51. 4. 3.\r
 137         BUTTON "..."\r
 138         (\r
 139            Dialog.Setdir P_PATH "&cfg_project_path_g/*"\r
 140         )\r
 141         pos 35. 6. 10.\r
 142         DEFBUTTON "Set" "jumpto save_close"\r
 143         pos 45. 6. 10.\r
 144         DEFBUTTON "Cancel" "jumpto win_close"\r
 145         CLOSE "jumpto win_close"\r
 146 )\r
 147   stop\r
 148 save_close:\r
 149   &cfg_cpu_g=dialog.string(CPU)\r
 150   &cfg_project_path_g=dialog.string(P_PATH)\r
 151   sys.cpu &cfg_cpu_g\r
 152   do config save\r
 153 win_close:\r
 154   dialog.end\r
 155 \r
 156 //\r
 157 \r
 158   enddo\r
 159 \r
 160 \r
 161 \r
 162 \r
 163 \r
 164 \r
 165 \r
 166 \r
 167 \r
 168 \r
 169 \r
 170 \r
 171 \r
 172 \r
 173 \r
 174 \r
 175 \r
 176 \r
 177 \r
 178 \r
 179 \r
 180 \r
 181 \r
 182 \r
 183 \r
 184 \r
 185 \r