(use-package :oli)
;;Plotterliste und Papierformate auslesen

(sd-execute-annotator-command :cmd
	(format nil "~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a"
		"DEFINE Read_plot_list "
			"LOCAL Plot_cnt "
			"LOCAL Plotter "
			"LOCAL i "
			
			"INQ_ENV 22 "
			"LET Plot_cnt (INQ 2) "
			"LET i 1 "
			"CREATE_LTAB 'plotter_ltab' "
			"LET Plotter (INQ 900) "
			
			"WHILE (i <= Plot_cnt) "
				"WRITE_LTAB 'plotter_ltab' i 1 i "
				"WRITE_LTAB 'plotter_ltab' i 2 Plotter "
				"LET Plotter (INQ 901) "
				"LET i (i + 1) "
			"END_WHILE "
			
			"SAVE_LTAB 'plotter_ltab' DEL_OLD ((GETENV 'TEMP') + '/' + 'plotters.txt') "
		"END_DEFINE "
	)
)

(sd-execute-annotator-command :cmd
	(format nil "~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a~a"
		"DEFINE Read_paper_list "
			"LOCAL Plotter "
			"LOCAL Papier "
			"LOCAL Plot_cnt "
			"LOCAL i "
			"LOCAL j "
			"LOCAL Pos_str "
		
			"LET Plot_cnt (LTAB_ROWS 'plotter_ltab') "
			"LET i 1 "
		
			"WHILE (i <= Plot_cnt) "
				"LET Plotter (READ_LTAB 'plotter_ltab' i 2) "
				"PLOTTER_TYPE Plotter "
				"CREATE_LTAB 'papier_ltab' "
				"INQ_ENV 22 "
				"LET Papier (INQ 902) "
				"LET j 1 "
			
				"WHILE (Papier <> 'END-OF-LIST') "
					"WRITE_LTAB 'papier_ltab' j 1 i "
					"WRITE_LTAB 'papier_ltab' j 2 j "
					"WRITE_LTAB 'papier_ltab' j 3 Papier "
					"LET j (j + 1) "
					"LET Papier (INQ 903) "
				"END_WHILE "
			
				"LET Pos_str (POS (SUBSTR Plotter 3 (LEN Plotter)) (chr 92)) "
				"IF (Pos_str < 1) "
				"LET Pos_str 1 "
				"ELSE "
				"LET Pos_str (Pos_str + 3) "
				"END_IF "
				"SAVE_LTAB 'papier_ltab' DEL_OLD ((GETENV 'TEMP') + '/' + (STR i) + '_' + (SUBSTR Plotter (Pos_str) (LEN Plotter)) + '_Papier.txt') "
				"LET i (i + 1) "
			"END_WHILE "
		"END_DEFINE "
	)
)