;;; bwbport.el - Convert MS BASIC source for Bywater BASIC compatibility

(defun bwbport ()
 (interactive)
 (let ((bwbport-autofixed 0))
   ;; Convert to Unix-style file coding ...
   (set-buffer-file-coding-system 'unix)
   ;; Automatic fixes ...
   (beginning-of-buffer)
   (while (re-search-forward "^\\([0-9]+ +REM\\)\\([-*0-9]\\)" nil t)
     (progn
       (replace-match "\\1 \\2" nil nil)
       (setq bwbport-autofixed (1+ bwbport-autofixed))))
   (beginning-of-buffer)
   (while (re-search-forward "^\\([0-9]+ +REM\\)\\([A-Za-z]\\)" nil t)
     (progn
       (replace-match "\\1 REM\\2" nil nil)
       (setq bwbport-autofixed (1+ bwbport-autofixed))))
   (beginning-of-buffer)
   (while (re-search-forward  "\\(PRINT\\|INPUT\\)\\([\":]\\)" nil t)
     (progn
       (replace-match "\\1 \\2" nil nil)
       (setq bwbport-autofixed (1+ bwbport-autofixed))))
   (beginning-of-buffer)
   (while (re-search-forward "\\([A-Za-z0-9.] *; *\"\\)\\([A-Za-z0-9]\\)" nil t)
     (progn
       (replace-match "\\1 \\2" nil nil)
       (setq bwbport-autofixed (1+ bwbport-autofixed))))
   (beginning-of-buffer)
   (while (re-search-forward "\\(PRINT +\\([A-Za-z0-9.-]+|\\(\"[^\"]\"\\) *[;,] *\\)*[A-Za-z0-9.-]+|\\(\"[^\"]\"\\)\\) *\\([A-Za-z0-9.-\"]\\)" nil t)
; (PRINT +(<var-or-num>|<string><sep><var-or-num>|<string>)*<var-or-num>|<string>) *(<var-or-num>|<string>) ==> \1<sep>\3
     (progn
       (replace-match "\\1;\\5" nil nil)
       (setq bwbport-autofixed (1+ bwbport-autofixed))))

   ;; Fix by hand ...
   (beginning-of-buffer)
   (if (re-search-forward ": *NEXT" nil t)
       (message "*** bwbport: NEXT not first command on line (autofixed: %d)" bwbport-autofixed)
     (if (re-search-forward " STEP +[0-9]*\\.[0-9]" nil t)
         (message "*** bwbport: Non-integer FOR loop STEP (autofixed: %d)" bwbport-autofixed)
       (if (re-search-forward "[ :]PRINT [^:]*\"[^:]*\"[,;] *:" nil t)
           (message "*** bwbport: PRINT ending with format character not last command on line (autofixed: %d)" bwbport-autofixed)
       (message "* bwbport: No problems found (autofixed: %d)" bwbport-autofixed))))))

You are viewing proxied material from sdf.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.