module Drasil.GamePhysics.References where

import Language.Drasil

import Data.Drasil.Citations (koothoor2013, parnasClements1986, smithEtAl2007,
  smithLai2005, smithKoothoor2016, dampingSource, hibbeler2004)
import Data.Drasil.People (dParnas, wikiAuthors)
import qualified Language.Drasil.Sentence.Combinators as S

chaslesWiki, parnas1978 :: Citation

citations :: BibRef
citations :: BibRef
citations = [Citation
parnas1978, Citation
chaslesWiki, Citation
parnasClements1986,
  Citation
koothoor2013, Citation
smithEtAl2007, Citation
smithLai2005, Citation
smithKoothoor2016,
  Citation
dampingSource, Citation
hibbeler2004]

--FIXME: check for references made within document

chaslesWiki :: Citation
chaslesWiki = [CiteField] -> String -> Citation
cMisc [People -> CiteField
author [Person
wikiAuthors],
  String -> CiteField
title String
"Chasles' theorem (kinematics)",
  String -> CiteField
howPublishedU String
"https://en.wikipedia.org/wiki/Chasles'_theorem_(kinematics)",
  Month -> CiteField
month Month
Nov, Int -> CiteField
year Int
2018] String
"chaslesWiki"

parnas1978 :: Citation
parnas1978 = People
-> String -> String -> Int -> [CiteField] -> String -> Citation
cInProceedings [Person
dParnas]
    String
"Designing Software for Ease of Extension and Contraction"
    String
"ICSE '78: Proceedings of the 3rd international conference on Software engineering"
    Int
1978 [[Int] -> CiteField
pages [Int
264..Int
277]] String
"parnas1978"

uriReferences :: [Reference]
uriReferences :: [Reference]
uriReferences = [Reference
accelGravitySrc, Reference
impulseSrc]

accelGravitySrc :: Reference
accelGravitySrc :: Reference
accelGravitySrc = String -> String -> ShortName -> Reference
makeURI String
"accelGravitySrc" String
"https://en.wikipedia.org/wiki/Gravitational_acceleration" (ShortName -> Reference) -> ShortName -> Reference
forall a b. (a -> b) -> a -> b
$
  Sentence -> ShortName
shortname' (Sentence -> ShortName) -> Sentence -> ShortName
forall a b. (a -> b) -> a -> b
$ String -> Sentence
S String
"Definition" Sentence -> Sentence -> Sentence
`S.of_` String -> Sentence
S String
"Gravitational Acceleration"

impulseSrc :: Reference
impulseSrc :: Reference
impulseSrc = String -> String -> ShortName -> Reference
makeURI String
"impulseSrc" String
"http://www.chrishecker.com/images/e/e7/Gdmphys3.pdf" (ShortName -> Reference) -> ShortName -> Reference
forall a b. (a -> b) -> a -> b
$
  Sentence -> ShortName
shortname' (Sentence -> ShortName) -> Sentence -> ShortName
forall a b. (a -> b) -> a -> b
$ String -> Sentence
S String
"Impulse for Collision Ref"