Adding @learning-objective, pt 1 #2172

lib/preproc.rkt

@@ -179,11 +179,17 @@
         '())))
 
 (define *assessments*
-  (let ([assessments-file (format "distribution/~a/learning-objectives-dict.js" *natlang*)])
+  (let ([assessments-file (format "distribution/~a/assessments.js" *natlang*)])
     (if (file-exists? assessments-file)
         (call-with-input-file assessments-file read-json)
         '())))
 
+(define *learning-objectives*
+  (let ([learning-objectives-file (format "distribution/~a/learning-objectives.js" *natlang*)])
+    (if (file-exists? learning-objectives-file)
+        (call-with-input-file learning-objectives-file read-json)
+        '())))
+
 (define *starter-files-used* '())
 (define *opt-starter-files-used* '())
 
@@ -1922,6 +1928,12 @@
                               (cond [(not c)
                                      (printf "WARNING: ~a: Ill-named @~a ~a\n\n" (errmessage-context) directive lbl)]
                                     [else (display lbl o)]))]
+                          [(string=? directive "learning-objective")
+                            (let* ([lbl (string->symbol (read-group i directive))]
+                                   [c (hash-ref *learning-objectives* lbl #f)])
+                              (cond [(not c)
+                                     (printf "WARNING: ~a: Ill-named @~a ~a\n\n" (errmessage-context) directive lbl)]
+                                    [else (display lbl o)]))]
                            [(string=? directive "opt-project")
                             (let* ([arg1 (read-commaed-group i directive read-group)]
                                    [project-file (first arg1)]