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