<commit_before>#lang racket/base

#|
   Copyright 2016-2017 <NAME>

   Licensed under the Apache License, Version 2.0 (the "License");
   you may not use this file except in compliance with the License.
   You may obtain a copy of the License at

       http://www.apache.org/licenses/LICENSE-2.0

   Unless required by applicable law or agreed to in writing, software
   distributed under the License is distributed on an "AS IS" BASIS,
   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
   See the License for the specific language governing permissions and
   limitations under the License.
|#

;; This is the high level API for users to access the devices on their
;;   machine.
;; XXX This library is only partialy implemented!

(require racket/contract/base
         "private/devices.rkt")

(provide
 (contract-out
  [list-input-devices (-> input-devices?)]
  [input-devices? (-> any/c boolean?)]
  [screen-captures (-> input-devices? (listof string?))]
  [cameras (-> input-devices? (listof string?))]
  [audio-devices (-> input-devices? (listof string?))]))

(define (screen-captures dev)
  '())

(define (cameras dev)
  '())

(define (audio-devices dev)
  '())<commit_msg>Add implementation for video/devices<commit_after>#lang racket/base

#|
   Copyright 2016-2017 <NAME>

   Licensed under the Apache License, Version 2.0 (the "License");
   you may not use this file except in compliance with the License.
   You may obtain a copy of the License at

       http://www.apache.org/licenses/LICENSE-2.0

   Unless required by applicable law or agreed to in writing, software
   distributed under the License is distributed on an "AS IS" BASIS,
   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
   See the License for the specific language governing permissions and
   limitations under the License.
|#

;; This is the high level API for users to access the devices on their
;;   machine.
;; XXX This library is only partialy implemented!

(require racket/contract/base
         "private/devices.rkt")

(provide
 (contract-out
  [input-devices? (-> any/c boolean?)]
  [list-input-devices (-> input-devices?)]
  [screen-captures (-> input-devices? (listof string?))]
  [cameras (-> input-devices? (listof string?))]
  [video-devices (-> input-devices? (listof string?))]
  [audio-devices (-> input-devices? (listof string?))]))

(define screen-capture-regexp #"Capture screen.*")

(define (screen-captures dev)
  (filter (λ () (regexp-match screen-capture-regexp))
          (video-devices dev)))

(define (cameras dev)
  (filter (λ () (not (regexp-match screen-capture-regexp)))
          (video-devices dev)))

(define (video-devices dev)
  (input-devices-video dev))

(define (audio-devices dev)
  (input-devices-audio dev))
{'fraction_non_alphanumeric': 0.11701363962670495, 'fraction_numerical': 0.008614501076812634, 'mean_word_length': 3.70777027027027, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 16, 'https://': 0, 'lorem ipsum': 0, 'www.': 2, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '7614196', 'n_tokens_mistral': 837, 'n_tokens_neox': 805, 'n_words': 303}